X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fshow.lisp;h=429ea974ba89a3dda2c83b48b3f8561db86e9b4f;hb=debae3c18d31b5222be4d5de8dcb2601336e24a4;hp=526b1c2b9b15d486420db1f6bc9b2b8d83017859;hpb=cab2c71bb1bb8a575d9eebdae335e731daa64183;p=sbcl.git

diff --git a/src/compiler/ppc/show.lisp b/src/compiler/ppc/show.lisp
index 526b1c2..429ea97 100644
--- a/src/compiler/ppc/show.lisp
+++ b/src/compiler/ppc/show.lisp
@@ -16,7 +16,7 @@
   (: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 lr temp  (make-fixup "call_into_c" :foreign))
       (inst mr lip temp)
@@ -24,5 +24,5 @@
       (inst lr cfunc (make-fixup "debug_print" :foreign))
       (inst bctrl)
       (when cur-nfp
-	(load-stack-tn cur-nfp nfp-save))
+        (load-stack-tn cur-nfp nfp-save))
       (move result nl0))))