0.9.0.12:

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

diff --git a/src/compiler/x86/show.lisp b/src/compiler/x86/show.lisp
index 2cd27b1..cdc1d11 100644 (file)
--- a/src/compiler/x86/show.lisp
+++ b/src/compiler/x86/show.lisp
@@ -12,9 +12,6 @@
 
 (in-package "SB!VM")
 
-(file-comment
- "$Header$")
-
 ;;; FIXME: should probably become conditional on #!+SB-SHOW
 ;;; FIXME: should be called DEBUG-PRINT or COLD-PRINT
 (define-vop (print)
@@ -29,7 +26,7 @@
   (:save-p t)
   (:generator 100
     (inst push object)
-    (inst lea eax (make-fixup (extern-alien-name "debug_print") :foreign))
-    (inst call (make-fixup (extern-alien-name "call_into_c") :foreign))
-    (inst add esp-tn word-bytes)
+    (inst lea eax (make-fixup "debug_print" :foreign))
+    (inst call (make-fixup "call_into_c" :foreign))
+    (inst add esp-tn n-word-bytes)
     (move result eax)))