Changeset 280

Timestamp:

Jan 13, 2004, 4:58:02 PM (21 years ago)

Author:

Gary Byers

Message:

SYMBOL-MACROLET in the cheap evaluator: process declarations along with
symbol-macros, so that AUGMENT-ENVIRONMENT can complain about SPECIAL
decls easier.

File:

• trunk/ccl/level-1/l1-readloop.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-readloop.lisp

@@ -686 +686 @@
             ((eq sym 'locally) (progn-in-env (%cdr form) env env))
             ((eq sym 'symbol-macrolet)
-             (progn-in-env (cddr form) env (augment-environment env :symbol-macro (cadr form))))
+             (multiple-value-bind (body decls) (parse-body (cddr form) env)
+               (progn-in-env body env (augment-environment env :symbol-macro (cadr form) :declare (decl-specs-from-declarations decls)))))
             ((eq sym 'macrolet)
              (let ((temp-env (augment-environment env