Fix for sb-gmp bignum result allocation (lp#1206191)

[sbcl.git] / src / compiler / alpha / move.lisp

diff --git a/src/compiler/alpha/move.lisp b/src/compiler/alpha/move.lisp
index 6416dc6..ce7fd88 100644 (file)
--- 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)