X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Ffngen.lisp;h=bdcb74687374a1e667d8765813918bd63ba5dd7f;hb=1c2d2fa984c9d0bf07b5a1e5eeae2eade5cc4cb4;hp=08d8bdd8bdf872f674061022918bbe8f2561f0a7;hpb=475c832b081651e66ad9446d4852c62086f5e740;p=sbcl.git

diff --git a/src/pcl/fngen.lisp b/src/pcl/fngen.lisp
index 08d8bdd..bdcb746 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-FUNCTION:
 ;;;   compute-test converts the lambda into a key to be used for lookup,
-;;;   compute-code is used by get-new-function-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.
@@ -113,17 +113,17 @@
 	 (fgen (lookup-fgen test)))
     (if fgen
 	(fgen-generator fgen)
-	(get-new-function-generator lambda test code-converter))))
+	(get-new-fun-generator lambda test code-converter))))
 
-(defun get-new-function-generator (lambda test code-converter)
+(defun get-new-fun-generator (lambda test code-converter)
   (multiple-value-bind (gensyms generator-lambda)
-      (get-new-function-generator-internal lambda code-converter)
+      (get-new-fun-generator-internal lambda code-converter)
     (let* ((generator (compile nil generator-lambda))
 	   (fgen (make-fgen test gensyms generator generator-lambda nil)))
       (store-fgen fgen)
       generator)))
 
-(defun get-new-function-generator-internal (lambda code-converter)
+(defun get-new-fun-generator-internal (lambda code-converter)
   (multiple-value-bind (code gensyms)
       (compute-code lambda code-converter)
     (values gensyms `(lambda ,gensyms (function ,code)))))