diff options
| -rw-r--r-- | sb-eval2.lisp | 2 |
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) |