2 Sep 2005 22:44
CVS: sbcl/tests print.impure.lisp,1.33,1.34
Christophe Rhodes <crhodes <at> users.sourceforge.net>
2005-09-02 20:44:08 GMT
2005-09-02 20:44:08 GMT
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17396/tests Modified Files: print.impure.lisp Log Message: 0.9.4.24: Make printing HASH-TABLEs with *READ-EVAL* = NIL signal PRINT-NOT-READABLE. Index: print.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/print.impure.lisp,v retrieving revision 1.33 retrieving revision 1.34 diff -u -d -r1.33 -r1.34 --- print.impure.lisp 26 Aug 2005 21:09:04 -0000 1.33 +++ print.impure.lisp 2 Sep 2005 20:44:06 -0000 1.34 <at> <at> -337,4 +337,14 <at> <at> ;;; Adam Warner's test case (assert (string= (format nil "~ <at> 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))))(Continue reading)
RSS Feed