X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Ffngen.lisp;h=e4c669723cf3703e087f18b395db672b76f06e18;hb=2912f5f6c2acb2da3b9fcc0f5afd1ca89782a9f8;hp=5a1222aea0119354c994c0594838aef051198ce7;hpb=1fd80272bd0a0510113978a33066622e4fd506a7;p=sbcl.git

diff --git a/src/pcl/fngen.lisp b/src/pcl/fngen.lisp
index 5a1222a..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))