X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Ffngen.lisp;h=e4c669723cf3703e087f18b395db672b76f06e18;hb=3a618201c9f2370bb8784217a866d000371769e5;hp=7564c764f6d1cff18e3c41eee991407f539fb594;hpb=106e6fe2df729b6027718f6f056721a95c047c17;p=sbcl.git

diff --git a/src/pcl/fngen.lisp b/src/pcl/fngen.lisp
index 7564c76..e4c6697 100644
--- 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)))
-