X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fhppa%2Fdebug.lisp;h=705b0d42608d1bf117e9168a28006e78c7540a41;hb=bd455348d39bee562296741689882dcb97c46ba3;hp=51f912a5b015136ed36703dbfdf8135e6087c1cc;hpb=8a19c6876412b8ad1cf729297c2a373d63a0d0ec;p=sbcl.git

diff --git a/src/compiler/hppa/debug.lisp b/src/compiler/hppa/debug.lisp
index 51f912a..705b0d4 100644
--- a/src/compiler/hppa/debug.lisp
+++ b/src/compiler/hppa/debug.lisp
@@ -21,7 +21,7 @@
   (:translate stack-ref)
   (:policy :fast-safe)
   (:args (object :scs (sap-reg))
-	 (offset :scs (any-reg)))
+         (offset :scs (any-reg)))
   (:arg-types system-area-pointer positive-fixnum)
   (:results (result :scs (descriptor-reg)))
   (:result-types *)
@@ -43,8 +43,8 @@
   (:translate %set-stack-ref)
   (:policy :fast-safe)
   (:args (object :scs (sap-reg) :target sap)
-	 (offset :scs (any-reg))
-	 (value :scs (descriptor-reg) :target result))
+         (offset :scs (any-reg))
+         (value :scs (descriptor-reg) :target result))
   (:arg-types system-area-pointer positive-fixnum *)
   (:results (result :scs (descriptor-reg)))
   (:result-types *)
@@ -58,7 +58,7 @@
   (:translate %set-stack-ref)
   (:policy :fast-safe)
   (:args (sap :scs (sap-reg))
-	 (value :scs (descriptor-reg) :target result))
+         (value :scs (descriptor-reg) :target result))
   (:info offset)
   (:arg-types system-area-pointer (:constant (signed-byte 12)) *)
   (:results (result :scs (descriptor-reg)))