X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fshow.lisp;h=b52d6a500d329846e4b70d86f9b05c97de00f175;hb=b05ccdd91520249de6b465e226d3708089e541dc;hp=2cd27b1b9ce26df9283caabc47ec1aa7ab5b83ff;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/compiler/x86/show.lisp b/src/compiler/x86/show.lisp
index 2cd27b1..b52d6a5 100644
--- 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)
@@ -31,5 +28,5 @@
     (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 add esp-tn n-word-bytes)
     (move result eax)))