X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Fsubprim.lisp;h=e26207f23733aa68baf674139031617d71c952ec;hb=70c40b1892a606163d0f60ac7b20093724e8e5e5;hp=6a5d718a2368327f522a824d20782a9cd5ed78ca;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/hppa/subprim.lisp b/src/compiler/hppa/subprim.lisp
index 6a5d718..e26207f 100644
--- a/src/compiler/hppa/subprim.lisp
+++ b/src/compiler/hppa/subprim.lisp
@@ -22,7 +22,7 @@
     (inst li 0 count)
 
     (inst extru ptr 31 3 temp)
-    (inst comib :<> list-pointer-lowtag temp loose :nullify t)
+    (inst comib :<> list-pointer-lowtag temp lose :nullify t)
     (loadw ptr ptr cons-cdr-slot list-pointer-lowtag)
 
     LOOP
@@ -32,7 +32,7 @@
     (inst comib := list-pointer-lowtag temp loop :nullify t)
     (loadw ptr ptr cons-cdr-slot list-pointer-lowtag)
 
-    LOOSE
+    LOSE
     (cerror-call vop done object-not-list-error ptr)
 
     DONE