0.pre7.86.flaky7:

[sbcl.git] / src / compiler / seqtran.lisp

diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp
index dfc86a2..8282341 100644 (file)
--- 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