X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Ftype-vops.lisp;h=7953a332724999ba0fa3d380353a35a0ada5e662;hb=b83353d9f998e5c0e34604b5593df70c66d2c510;hp=03144c8098a42847bfccdd5ae21f0729b8a0a168;hpb=0d74ed478e7f3af5d3292153726373763631aa8e;p=sbcl.git

diff --git a/src/compiler/hppa/type-vops.lisp b/src/compiler/hppa/type-vops.lisp
index 03144c8..7953a33 100644
--- a/src/compiler/hppa/type-vops.lisp
+++ b/src/compiler/hppa/type-vops.lisp
@@ -167,7 +167,7 @@
       ;; Get the second digit.
       (loadw temp value (1+ bignum-digits-offset) other-pointer-lowtag)
       ;; All zeros, its an (unsigned-byte 32).
-      ; Dont nullify comb here, because we cant guarantee target is forward
+      ;; Dont nullify comb here, because we cant guarantee target is forward
       (inst comb (if not-p := :<>) temp zero-tn not-target)
       (inst nop)
       (inst b target)