From 29e825da91622215da0aefc136618251d31f9c9e Mon Sep 17 00:00:00 2001 From: Mark Cox Date: Fri, 3 Oct 2014 16:04:50 +1000 Subject: [PATCH] Do not insert conditional new lines in %PRINT-UNREADABLE-OBJECT. --- src/code/print.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/code/print.lisp b/src/code/print.lisp index 2bdbcd1..2e1b9f7 100644 --- a/src/code/print.lisp +++ b/src/code/print.lisp @@ -336,14 +336,12 @@ variable: an unreadable object representing the error is printed instead.") (when type (write (type-of object) :stream stream :circle nil :level nil :length nil) - (write-char #\space stream) - (pprint-newline :fill stream)) + (write-char #\space stream)) (when body (funcall body)) (when identity (when (or body (not type)) (write-char #\space stream)) - (pprint-newline :fill stream) (write-char #\{ stream) (write (get-lisp-obj-address object) :stream stream :radix nil :base 16) -- 2.2.0