1.0.31.27: RUN-PROGRAM process group change

[sbcl.git] / tests / pprint.impure.lisp

diff --git a/tests/pprint.impure.lisp b/tests/pprint.impure.lisp
index 9c6fcee..bf85bcf 100644 (file)
--- a/tests/pprint.impure.lisp
+++ b/tests/pprint.impure.lisp
@@ -200,6 +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))))
 \f
 ;;; success
-(quit :unix-status 104)