X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Fsubprim.lisp;h=e26207f23733aa68baf674139031617d71c952ec;hb=69e6aef5e6fb3bd682c7a2cbf774034d2ea58ee8;hp=a2097b796c6026244a72c99d4f336a533ed3a472;hpb=8a19c6876412b8ad1cf729297c2a373d63a0d0ec;p=sbcl.git

diff --git a/src/compiler/hppa/subprim.lisp b/src/compiler/hppa/subprim.lisp
index a2097b7..e26207f 100644
--- a/src/compiler/hppa/subprim.lisp
+++ b/src/compiler/hppa/subprim.lisp
@@ -11,7 +11,7 @@
   (:temporary (:scs (descriptor-reg) :from (:argument 0)) ptr)
   (:temporary (:scs (non-descriptor-reg) :type random) temp)
   (:temporary (:scs (any-reg) :type fixnum :to (:result 0) :target result)
-	      count)
+              count)
   (:results (result :scs (any-reg descriptor-reg)))
   (:policy :fast-safe)
   (:vop-var vop)
@@ -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