1.0.0.32: support for FreeBSD/x86-64

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

diff --git a/src/compiler/hppa/debug.lisp b/src/compiler/hppa/debug.lisp
index 51f912a..705b0d4 100644 (file)
--- 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)))