+(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)))
+