* eval.c (expand): Bugfix. When processing a defvar, should mark

the variable as special at expansion time. Without this, binding
forms in other parts of the tree won't be expanded properly
to bring about the special semantics.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index e718853a..be60544b 100644
--- a/eval.c
+++ b/eval.c
@@ -2409,6 +2409,8 @@ tail:
       if (sym == defsymacro_s) {
         val result = eval(form_ex, make_env(nil, nil, nil), form);
         return cons(quote_s, cons(result, nil));
+      } else {
+        mark_special(name);
       }
 
       return form_ex;