From afc9f4d822c8ce2c3a9cfdbb43a2c664c945acc4 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sat, 20 Jul 2013 19:37:27 +0200
Subject: BODY-DECLS&FORMS: Use REDUCE + MAPCAR instead of MAPCAN.

---
 sb-eval2.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3