X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fprint.impure.lisp;h=a54996ede2e731a91c296d860e747787f373f319;hb=e663f81f7297ab9f53b38d5f0975152de3557e69;hp=8d22b9d8149991bbb86b8f927c43381df5054fbe;hpb=175c318c892b0627b36fa3c4db66f59680242204;p=sbcl.git

diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index 8d22b9d..a54996e 100644
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -337,4 +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