X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmips%2Fsubprim.lisp;h=4bd07b702a6f90bad3956f0ed36f83b79abb461f;hb=70c40b1892a606163d0f60ac7b20093724e8e5e5;hp=28542c64b4dd037ee576dc6dc5173080262b1e2e;hpb=dc6e685751c1baaa93081bac63aca2201df9b8ee;p=sbcl.git

diff --git a/src/compiler/mips/subprim.lisp b/src/compiler/mips/subprim.lisp
index 28542c6..4bd07b7 100644
--- a/src/compiler/mips/subprim.lisp
+++ b/src/compiler/mips/subprim.lisp
@@ -28,7 +28,7 @@
       (inst beq ptr null-tn done)
       (inst and temp ptr lowtag-mask)
       (inst xor temp list-pointer-lowtag)
-      (inst bne temp zero-tn not-list)
+      (inst bne temp not-list)
       (inst nop)
 
       (loadw ptr ptr cons-cdr-slot list-pointer-lowtag)