0.8.4.23:

[sbcl.git] / src / pcl / fngen.lisp

diff --git a/src/pcl/fngen.lisp b/src/pcl/fngen.lisp
index 5a1222a..e4c6697 100644 (file)
--- a/src/pcl/fngen.lisp
+++ b/src/pcl/fngen.lisp
@@ -167,7 +167,7 @@
                     (let ((consts (funcall constant-converter f)))
                       (if consts
                           (progn
-                            (setq collect (nconc collect consts))
+                            (setq collect (append collect consts))
                             (values f t))
                           f)))))
     collect))