X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1util.lisp;h=6c1b5e02fff2f21ed3cffda2567390aef0758cb3;hb=29a9ccc860532b32c566aec095f570e999a9c52c;hp=6dbca4d04203bd168b808b726d9b185e74eb7e56;hpb=a92c91a4fdcdcf1c96b33339c1ef077243183187;p=sbcl.git

diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp
index 6dbca4d..6c1b5e0 100644
--- a/src/compiler/ir1util.lisp
+++ b/src/compiler/ir1util.lisp
@@ -1138,7 +1138,7 @@
 ;;; of arguments changes, the transform must be prepared to return a
 ;;; lambda with a new lambda-list with the correct number of
 ;;; arguments.
-(defun extract-function-args (cont fun num-args)
+(defun extract-fun-args (cont fun num-args)
   #!+sb-doc
   "If CONT is a call to FUN with NUM-ARGS args, change those arguments
    to feed directly to the continuation-dest of CONT, which must be
@@ -1167,7 +1167,7 @@
 	  (setf (combination-args outside)
 		(append before-args inside-args after-args))
 	  (change-ref-leaf (continuation-use inside-fun)
-			   (find-free-function 'list "???"))
+			   (find-free-fun 'list "???"))
 	  (setf (combination-kind inside) :full)
 	  (setf (node-derived-type inside) *wild-type*)
 	  (flush-dest cont)