0.pre7.60:

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

diff --git a/src/compiler/x86/show.lisp b/src/compiler/x86/show.lisp
index c2076b2..b52d6a5 100644 (file)
--- a/src/compiler/x86/show.lisp
+++ b/src/compiler/x86/show.lisp
@@ -28,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)))