Fix undefined function errors on PPC and MIPS.

[sbcl.git] / src / compiler / sparc / show.lisp

diff --git a/src/compiler/sparc/show.lisp b/src/compiler/sparc/show.lisp
index c334943..d16ac95 100644 (file)
--- a/src/compiler/sparc/show.lisp
+++ b/src/compiler/sparc/show.lisp
@@ -24,12 +24,12 @@
   (:generator 100
     (let ((cur-nfp (current-nfp-tn vop)))
       (when cur-nfp
-       (store-stack-tn nfp-save cur-nfp))
+        (store-stack-tn nfp-save cur-nfp))
       (move nl0 object)
       (inst li cfunc (make-fixup "debug_print" :foreign))
       (inst li temp (make-fixup "call_into_c" :foreign))
       (inst jal lip temp)
       (inst nop)
       (when cur-nfp
-       (load-stack-tn cur-nfp nfp-save))
+        (load-stack-tn cur-nfp nfp-save))
       (move result nl0))))