X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fsubprim.lisp;h=37b2edc1a6f73a95da9a2fdfb8379b60fdaaa51e;hb=369029d73f198b59135c6c005b7a70ae5a753650;hp=4ff2127cc6a95456efdf64746d922a4f4e153c80;hpb=faa0ea92986f4c2b361c9378c69a540e42a70c62;p=sbcl.git

diff --git a/src/compiler/sparc/subprim.lisp b/src/compiler/sparc/subprim.lisp
index 4ff2127..37b2edc 100644
--- a/src/compiler/sparc/subprim.lisp
+++ b/src/compiler/sparc/subprim.lisp
@@ -37,11 +37,14 @@
       (inst b :eq done)
       (inst nop)
 
-      (test-type ptr temp not-list t list-pointer-lowtag)
+      ;; FIXME: Maybe rewrite this to remove this TEST-TYPE (and the
+      ;; one below) to put it in line with all other architectures
+      ;; (apart from PPC)?
+      (test-type ptr not-list t (list-pointer-lowtag) :temp temp)
 
       (loadw ptr ptr cons-cdr-slot list-pointer-lowtag)
       (inst add count count (fixnumize 1))
-      (test-type ptr temp loop nil list-pointer-lowtag)
+      (test-type ptr loop nil (list-pointer-lowtag) :temp temp)
 
       (cerror-call vop done object-not-list-error ptr)