X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fprint.impure.lisp;h=382483a2cbc2af3242d9d72e1fcf7646a37721d6;hb=371577a214ce2659c271279ad48e4c42e1c0c93e;hp=7766b39a2160308b22bcd00cbba8eea8ee038ba4;hpb=2a1df4bcc815f763fac346f32fbe535b39a0d2e1;p=sbcl.git

diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index 7766b39..382483a 100644
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -456,4 +456,20 @@
       (let ((*print-pretty* t))
         (assert (string= (princ-to-string 'bar) "BAR"))))))
 
+;;; bug-lp#488979
+
+(defclass a-class-name () ())
+
+(assert (find #\Newline
+              (let ((*print-pretty* t)
+                    (*print-right-margin* 10))
+                (format nil "~A" (make-instance 'a-class-name)))
+              :test #'char=))
+
+(assert (not (find #\Newline
+                   (let ((*print-pretty* nil)
+                         (*print-right-margin* 10))
+                     (format nil "~A" (make-instance 'a-class-name)))
+                   :test #'char=)))
+
 ;;; success