Expander check for macro destination in setq forms.

* eval.c (do_expand): Throw an error if the destination
is a symbol macro which requires expanding.

1 files changed, 4 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 15adbcaa..a2f014b9 100644
--- a/eval.c
+++ b/eval.c
@@ -4146,6 +4146,10 @@ static val do_expand(val form, val menv)
 
         if (!bindable(car(args)))
           not_bindable_warning(form, car(args));
+
+        if (car(args_ex) != car(args))
+          eval_error(form, lit("~s: misapplied to symbol macro ~a"), sym,
+                     car(args), nao);
       }
 
       if (!lookup_fun(menv, sym) && !special_operator_p(sym)) {