From f36fbd9c42e8c151fc55de3efa1cb0520ba20927 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 10 Nov 2008 11:41:13 +0000
Subject: [PATCH] mdw-base: Replace (FORMAT T "~&") by (FRESH-LINE).

No idea why I wrote it like that in the first place.
---
 mdw-base.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 @@
   "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~^ ~_~}~]"
-- 
2.11.0