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

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