0.pre7.88:

[sbcl.git] / src / code / fop.lisp

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 59761b5..b290907 100644 (file)
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -110,7 +110,7 @@
     (declare (ignorable arg))
     #!+sb-show
     (when *show-fop-nop4-p*
-      (format *debug-io* "~&/FOP-NOP4 ARG=~D=#X~X~%" arg arg))))
+      (format *debug-io* "~&/FOP-NOP4 ARG=~W=#X~X~%" arg arg))))
 
 (define-fop (fop-nop 0 :nope))
 (define-fop (fop-pop 1 nil) (push-fop-table (pop-stack)))