X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fprint.impure.lisp;h=70f78729ea5eb308feabe7bf883e19669e718c04;hb=bd93f052f95371f613fb913c1cac2b01c8ff2a5c;hp=382483a2cbc2af3242d9d72e1fcf7646a37721d6;hpb=8ac4167586be6db0ab26afa7ab6f326bb07c1a55;p=sbcl.git

diff --git a/tests/print.impure.lisp b/tests/print.impure.lisp
index 382483a..70f7872 100644
--- a/tests/print.impure.lisp
+++ b/tests/print.impure.lisp
@@ -472,4 +472,11 @@
                      (format nil "~A" (make-instance 'a-class-name)))
                    :test #'char=)))
 
+;;; The PRINT-OBJECT method for RANDOM-STATE used to have a bogus
+;;; dimension argument for MAKE-ARRAY.
+(with-test (:name :print-random-state)
+  (assert (equalp *random-state*
+                  (read-from-string
+                   (write-to-string *random-state*)))))
+
 ;;; success