X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Falpha%2Fmove.lisp;h=ce7fd880f210a60bd6056eca7af73caddb3b97ad;hb=5ba61168c5e0ee518580d555dfc7fd64f9ff8a23;hp=6416dc622f88a78823e192905564602f708a0508;hpb=e6a7faf7fe4193f61eeaf1151f891c38b7c8e6ed;p=sbcl.git

diff --git a/src/compiler/alpha/move.lisp b/src/compiler/alpha/move.lisp
index 6416dc6..ce7fd88 100644
--- a/src/compiler/alpha/move.lisp
+++ b/src/compiler/alpha/move.lisp
@@ -161,7 +161,7 @@
   (:results (y :scs (signed-reg unsigned-reg)))
   (:note "constant load")
   (:generator 1
-    (cond ((sc!c::tn-leaf x)
+    (cond ((sb!c::tn-leaf x)
            (inst li (tn-value x) y))
           (t
            (loadw y code-tn (tn-offset x) other-pointer-lowtag)