X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1util.lisp;h=95c7f2f4e8ce3c5e77a9fc1c943c4462179ef8b5;hb=012fbee7176df4472ef4add1a7df558d762bc4f6;hp=9585c637575995ce44936d5f9f442126ae7e5de7;hpb=be9eb6c67b5f43a095c3de17bea945c309d662e4;p=sbcl.git

diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp
index 9585c63..95c7f2f 100644
--- a/src/compiler/ir1util.lisp
+++ b/src/compiler/ir1util.lisp
@@ -1087,7 +1087,7 @@
     (unless (combination-p inside)
       (give-up-ir1-transform))
     (let ((inside-fun (combination-fun inside)))
-      (unless (eq (continuation-function-name inside-fun) fun)
+      (unless (eq (continuation-fun-name inside-fun) fun)
 	(give-up-ir1-transform))
       (let ((inside-args (combination-args inside)))
 	(unless (= (length inside-args) num-args)
@@ -1206,15 +1206,15 @@
 ;;; If CONT's only use is a non-notinline global function reference,
 ;;; then return the referenced symbol, otherwise NIL. If NOTINLINE-OK
 ;;; is true, then we don't care if the leaf is NOTINLINE.
-(defun continuation-function-name (cont &optional notinline-ok)
+(defun continuation-fun-name (cont &optional notinline-ok)
   (declare (type continuation cont))
   (let ((use (continuation-use cont)))
     (if (ref-p use)
 	(let ((leaf (ref-leaf use)))
 	  (if (and (global-var-p leaf)
 		   (eq (global-var-kind leaf) :global-function)
-		   (or (not (defined-function-p leaf))
-		       (not (eq (defined-function-inlinep leaf) :notinline))
+		   (or (not (defined-fun-p leaf))
+		       (not (eq (defined-fun-inlinep leaf) :notinline))
 		       notinline-ok))
 	      (leaf-name leaf)
 	      nil))