X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fprint.impure.lisp;h=a54996ede2e731a91c296d860e747787f373f319;hb=5e92e9ed61903658015c2a75c79a32ad41dbd29d;hp=a0f67bfd0c4ca97b7655ef3562a34e760d282415;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index a0f67bf..a54996e 100644
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -337,5 +337,14 @@
 ;;; Adam Warner's test case
 (assert (string= (format nil "~@F" 1.23) "+1.23"))
 
+(let ((table (make-hash-table)))
+  (setf (gethash 1 table) t)
+  (assert
+   (raises-error? (with-standard-io-syntax
+                    (let ((*read-eval* nil)
+                          (*print-readably* t))
+                      (with-output-to-string (*standard-output*)
+                        (prin1 table))))
+                  print-not-readable)))
+
 ;;; success
-(quit :unix-status 104)