X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ftarget-main.lisp;h=70178958b31aaf7f9e8044feb929e9e054339c2b;hb=0a82f2db352cc348d2107a882e50af222ff97ed3;hp=2b53bd4675da6db30bc2c6297762aa1e7caee8a0;hpb=416152f084604094445a758ff399871132dff2bd;p=sbcl.git

diff --git a/src/compiler/target-main.lisp b/src/compiler/target-main.lisp
index 2b53bd4..7017895 100644
--- 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