0.9.1.38:

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

diff --git a/src/pcl/fngen.lisp b/src/pcl/fngen.lisp
index 17a6e72..e4c6697 100644 (file)
--- 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)))
-