1 files changed, 1 insertions, 1 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index cc7e1a4..f5fb4dd 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -289,7 +289,7 @@
                             (eq 'declare (first (first exprs))))
                  for expr = (pop exprs)
                  collect expr))
-         (decls (mapcan #'rest decl-exprs)))
+         (decls (reduce #'append (mapcar #'rest decl-exprs))))
     (values decls exprs)))
 
 (defun decl-specials (declaration)