0.pre7.61:

[sbcl.git] / src / compiler / target-main.lisp

diff --git a/src/compiler/target-main.lisp b/src/compiler/target-main.lisp
index 2b53bd4..7017895 100644 (file)
--- a/src/compiler/target-main.lisp
+++ b/src/compiler/target-main.lisp
@@ -33,7 +33,7 @@
 ;;; top-level lambda for the compilation. A REF for the real function
 ;;; is the only thing in the top-level lambda other than the bind and
 ;;; return, so it isn't too hard to find.
-(defun compile-fix-function-name (lambda name)
+(defun compile-fix-fun-name (lambda name)
   (declare (type clambda lambda) (type (or symbol cons) name))
   (when name
     (let ((fun (ref-leaf