Fix a typo in the block comment on encoding/decoding universal times

[sbcl.git] / src / compiler / hppa / subprim.lisp

diff --git a/src/compiler/hppa/subprim.lisp b/src/compiler/hppa/subprim.lisp
index 6a5d718..e26207f 100644 (file)
--- 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