0.9.1.38:

[sbcl.git] / src / compiler / x86-64 / move.lisp

diff --git a/src/compiler/x86-64/move.lisp b/src/compiler/x86-64/move.lisp
index 7e750fb..3a1e22e 100644 (file)
--- a/src/compiler/x86-64/move.lisp
+++ b/src/compiler/x86-64/move.lisp
@@ -236,9 +236,9 @@
   (:generator 4
     (move eax x)
     (inst test al-tn 7)                        ; a symbolic constant for this 
-    (inst jmp :z fixnum)               ; would be nice
+    (inst jmp :z FIXNUM)               ; would be nice
     (loadw y eax bignum-digits-offset other-pointer-lowtag)
-    (inst jmp done)
+    (inst jmp DONE)
     FIXNUM
     (inst sar eax (1- n-lowtag-bits))
     (move y eax)