X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1util.lisp;h=95c7f2f4e8ce3c5e77a9fc1c943c4462179ef8b5;hb=986ce2596822cc0871b609346aaf592348aca596;hp=cf497479331808ade1ee5e8475caf24dfb5f4fab;hpb=0a82f2db352cc348d2107a882e50af222ff97ed3;p=sbcl.git

diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp
index cf49747..95c7f2f 100644
--- a/src/compiler/ir1util.lisp
+++ b/src/compiler/ir1util.lisp
@@ -1213,8 +1213,8 @@
 	(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))