X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Ftype-vops.lisp;h=6dbaaab23066befed58bfb2bfb1d51b3608f6823;hb=b63c4fb9b98fa8188e17ba926e150ba417a74635;hp=46d6bc21ca119b2c40ade8718e83d15a17bf294a;hpb=78fa16bf55be44cc16845be84d98023e83fb14bc;p=sbcl.git

diff --git a/src/compiler/x86-64/type-vops.lisp b/src/compiler/x86-64/type-vops.lisp
index 46d6bc2..6dbaaab 100644
--- a/src/compiler/x86-64/type-vops.lisp
+++ b/src/compiler/x86-64/type-vops.lisp
@@ -176,9 +176,10 @@
     (inst sar rax-tn (+ 32 3 -1))
     (if not-p
 	(progn
-	  (inst jmp :nz target)
+	  (inst jmp :nz maybe)
 	  (inst jmp not-target))
 	(inst jmp :z target))
+    MAYBE
     (inst cmp rax-tn -1)
     (inst jmp (if not-p :ne :eq) target)
     NOT-TARGET))