From 219f2443f6fa50a85d4c29d2a2202f2258b916ac Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 9 Feb 2017 15:00:10 -0800 Subject: sys:op: don't warn about @var targets. * eval.c (do_expand): The previous commit exposes this false warning. Basically, the (sys:var ) place expander generates a (sys:setq (sys:var ) ) form. That is valid, and the expander shoud not warn that sys:var form is an unbound variable. --- eval.c | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index f3f9cd6f..41c46f64 100644 --- a/eval.c +++ b/eval.c @@ -4208,12 +4208,18 @@ static val do_expand(val form, val menv) if (cddr(args)) eval_error(form, lit("~s: excess arguments"), sym, nao); - if (!bindable(car(args))) - not_bindable_warning(form, car(args)); + { + val target = car(args); - if (car(args_ex) != car(args)) - eval_error(form, lit("~s: misapplied to symbol macro ~a"), sym, - car(args), nao); + if (!consp(target) || car(target) != var_s) { + if (!bindable(target)) + not_bindable_warning(form, car(args)); + + if (car(args_ex) != target) + eval_error(form, lit("~s: misapplied to symbol macro ~a"), sym, + car(args), nao); + } + } } if (!lookup_fun(menv, sym) && !special_operator_p(sym)) { -- cgit v1.2.3