X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fprint.impure.lisp;h=e3184bc5af9ed0119d60b7e4e1ce35d7223a9171;hb=b5dc433da5b8bd3b36db88f7ec35cdb03cb64384;hp=4fd0a67b736c507f07cf8e1a72386a802ada5338;hpb=8eb4473fb596e0c60930f1c1a080f4c6b424005b;p=sbcl.git

diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index 4fd0a67..e3184bc 100644
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -242,5 +242,10 @@
 ;;; NIL parameters to "interpreted" FORMAT directives
 (assert (string= (format nil "~v%" nil) (string #\Newline)))
 
+;;; PRINC-TO-STRING should bind print-readably
+(let ((*print-readably* t))
+  (assert (string= (princ-to-string #\7)
+		   (write-to-string #\7 :escape nil :readably nil))))
+
 ;;; success
 (quit :unix-status 104)