X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1-translators.lisp;h=2cb22953c462f8a9f906feea54b4402fbe0d5f29;hb=b6aa15328871678a3475e82c150b251dffb49ba1;hp=ae2acab70ee8ea1453d474a9d3d660d55e6a00ac;hpb=f43f136f9b3ff6cae501e850fa67b2183317e212;p=sbcl.git

diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp
index ae2acab..2cb2295 100644
--- a/src/compiler/ir1-translators.lisp
+++ b/src/compiler/ir1-translators.lisp
@@ -423,7 +423,7 @@
        (%funcall ,(if (csubtypep (continuation-type function)
 				 (specifier-type 'function))
 		      'function
-		      '(%coerce-callable-to-function function))
+		      '(%coerce-callable-to-fun function))
 		 ,@arg-names))))
 
 (def-ir1-translator %funcall ((function &rest args) start cont)
@@ -441,9 +441,9 @@
       `(%funcall ,function ,@args)
       (values nil t)))
 
-(deftransform %coerce-callable-to-function ((thing) (function) *
-					    :when :both
-					    :important t)
+(deftransform %coerce-callable-to-fun ((thing) (function) *
+				       :when :both
+				       :important t)
   "optimize away possible call to FDEFINITION at runtime"
   'thing)
 
@@ -885,7 +885,7 @@
     (ir1-convert start fun-cont
 		 (if (and (consp fun) (eq (car fun) 'function))
 		     fun
-		     `(%coerce-callable-to-function ,fun)))
+		     `(%coerce-callable-to-fun ,fun)))
     (setf (continuation-dest fun-cont) node)
     (assert-continuation-type fun-cont
 			      (specifier-type '(or function symbol)))