X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fsparc%2Fshow.lisp;h=d16ac954e45f6b3a78bf4e1f2730b26efb5e2f86;hb=54da325f13fb41669869aea688ae195426c0e231;hp=a4f99aeed83f21becbc9ac422bd772b5f1ea8250;hpb=68fd2d2dd6f265669a8957accd8a33e62786a97e;p=sbcl.git

diff --git a/src/compiler/sparc/show.lisp b/src/compiler/sparc/show.lisp
index a4f99ae..d16ac95 100644
--- 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 (extern-alien-name "debug_print") :foreign))
-      (inst li temp (make-fixup (extern-alien-name "call_into_c") :foreign))
+      (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))))