X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fshow.lisp;h=526b1c2b9b15d486420db1f6bc9b2b8d83017859;hb=a2ff6543c79752bfe42578f794bda1c28167fd10;hp=083824b992291d34500415d25878c3b911f8cdb3;hpb=0834142e83d6a1ee99260baa3a8ca1d1557b3737;p=sbcl.git

diff --git a/src/compiler/ppc/show.lisp b/src/compiler/ppc/show.lisp
index 083824b..526b1c2 100644
--- a/src/compiler/ppc/show.lisp
+++ b/src/compiler/ppc/show.lisp
@@ -18,10 +18,10 @@
       (when cur-nfp
 	(store-stack-tn nfp-save cur-nfp))
       (move nl0 object)
-      (inst lr temp  (make-fixup (extern-alien-name "call_into_c") :foreign))
+      (inst lr temp  (make-fixup "call_into_c" :foreign))
       (inst mr lip temp)
       (inst mtctr lip)
-      (inst lr cfunc (make-fixup (extern-alien-name "debug_print") :foreign))
+      (inst lr cfunc (make-fixup "debug_print" :foreign))
       (inst bctrl)
       (when cur-nfp
 	(load-stack-tn cur-nfp nfp-save))