X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Ffngen.lisp;h=e4c669723cf3703e087f18b395db672b76f06e18;hb=f3f677703e37f5a335b3be7fa64f7748ad969517;hp=17a6e72678a870970c0addea5e964296141a4c18;hpb=d40a76606c86722b0aef8179155f9f2840739b72;p=sbcl.git

diff --git a/src/pcl/fngen.lisp b/src/pcl/fngen.lisp
index 17a6e72..e4c6697 100644
--- a/src/pcl/fngen.lisp
+++ b/src/pcl/fngen.lisp
@@ -39,7 +39,7 @@
 ;;; There are three internal functions which operate on the lambda argument
 ;;; to GET-FUN:
 ;;;   COMPUTE-TEST converts the lambda into a key to be used for lookup,
-;;;   COMPUTE-CODE is used by get-new-fun-generator-internal to
+;;;   COMPUTE-CODE is used by GET-NEW-FUN-GENERATOR-INTERNAL to
 ;;;		generate the actual lambda to be compiled, and
 ;;;   COMPUTE-CONSTANTS is used to generate the argument list that is
 ;;;		to be passed to the compiled function.
@@ -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)))
-