diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-20 19:37:27 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-20 19:37:27 +0200 |
| commit | afc9f4d822c8ce2c3a9cfdbb43a2c664c945acc4 (patch) | |
| tree | 2b05c1da4ecbdb52d2b8f2ec6cb2c67a49d42538 | |
| parent | 9ad0b06f1619e02aff7fc11d05534f8b6bc9468d (diff) | |
BODY-DECLS&FORMS: Use REDUCE + MAPCAR instead of MAPCAN.
| -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) |