X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fseqtran.lisp;h=8282341a7687cfce7a02fe07fdd1f9fe919fc191;hb=1a6def3955b715472eb2c75b15660912b9f90173;hp=dfc86a208dce9a3350246e908748bd4ac83d91a5;hpb=b6aa15328871678a3475e82c150b251dffb49ba1;p=sbcl.git

diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp
index dfc86a2..8282341 100644
--- a/src/compiler/seqtran.lisp
+++ b/src/compiler/seqtran.lisp
@@ -324,7 +324,8 @@
 	 (let ((leaf (ref-leaf use)))
 	   (and (global-var-p leaf)
 		(eq (global-var-kind leaf) :global-function)
-		(not (null (member (leaf-name leaf) names :test #'equal))))))))
+		(not (null (member (leaf-source-name leaf) names
+				   :test #'equal))))))))
 
 ;;; If CONT is a constant continuation, the return the constant value.
 ;;; If it is null, then return default, otherwise quietly give up the