[Sbcl-commits] CVS: sbcl/tests pprint.impure.lisp,1.10,1.11

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv26663/tests

Modified Files:
	pprint.impure.lisp 
Log Message:
1.0.27.24: robustify DEFPACKAGE form pretty-printing

 * Thanks to Sidney Markowitz.

 * A few missing NEWS entries.


Index: pprint.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/pprint.impure.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- pprint.impure.lisp	26 Aug 2005 21:09:04 -0000	1.10
+++ pprint.impure.lisp	23 Apr 2009 11:21:17 -0000	1.11
@@ -200,5 +200,11 @@
   (assert (string= "#1=(#2=(#2# . #3=(#1# . #3#)))"
                    (with-output-to-string (s)
                      (write '#1=(#2=(#2# . #3=(#1# . #3#))) :stream s)))))
+
+;;; Printing malformed defpackage forms without errors.
+(with-test (:name :pprint-defpackage)
+  (with-open-stream (null (make-broadcast-stream))
+    (pprint '(defpackage :foo nil))
+    (pprint '(defpackage :foo 42))))
 
 ;;; success