0.8.4.23:

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

diff --git a/src/pcl/fngen.lisp b/src/pcl/fngen.lisp
index 7564c76..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))
@@ -190,4 +190,3 @@
 
 (defun load-function-generator (test gensyms generator generator-lambda system)
   (store-fgen (make-fgen test gensyms generator generator-lambda system)))
-