X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/d6caa73bc6253f7a0461406a939865a207bad7c8..3bb66aca507b7c9df6e90d9b7898a8b6569d640b:/mdw-base.lisp

diff --git a/mdw-base.lisp b/mdw-base.lisp
index a41b685..95b79de 100644
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -66,7 +66,7 @@ (defmacro show (x)
   "Debugging tool: print the expression X and its values."
   (let ((tmp (gensym)))
     `(let ((,tmp (multiple-value-list ,x)))
-       (format t "~&")
+       (fresh-line)
        (pprint-logical-block (*standard-output* nil :per-line-prefix ";; ")
 	 (format t
 		 "~S = ~@_~:I~:[#<no values>~;~:*~{~S~^ ~_~}~]"