X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fx86-64%2Fmove.lisp;h=3a1e22e6f12a3f9f862e93b3d1aa3f632933e491;hb=f3f677703e37f5a335b3be7fa64f7748ad969517;hp=7e750fb0b973f9965ffa83ac20aeda4b9bbf67b0;hpb=78fa16bf55be44cc16845be84d98023e83fb14bc;p=sbcl.git

diff --git a/src/compiler/x86-64/move.lisp b/src/compiler/x86-64/move.lisp
index 7e750fb..3a1e22e 100644
--- 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)