Index: /trunk/ccl/level-1/l1-readloop.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop.lisp	(revision 279)
+++ /trunk/ccl/level-1/l1-readloop.lisp	(revision 280)
@@ -686,5 +686,6 @@
             ((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