X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Freader.impure.lisp;h=c3c8f4ea66201aeebb4c58a7daea370b9191b07a;hb=ed85afcccb1d054691bcc7ed2242ad0257d251a0;hp=214ca6f96d53516552266bdb917287866128516f;hpb=22b8c6a91a89d0710db10e88f76ce0f2a245905d;p=sbcl.git

diff --git a/tests/reader.impure.lisp b/tests/reader.impure.lisp
index 214ca6f..c3c8f4e 100644
--- a/tests/reader.impure.lisp
+++ b/tests/reader.impure.lisp
@@ -59,5 +59,12 @@
   (assert (eq (value res) res))
   (assert (= pos 8)))
 
+;;; CSR managed to break the #S reader macro in the process of merging
+;;; SB-PCL:CLASS and CL:CLASS -- make sure it works
+(defstruct readable-struct a)
+(assert (eq (readable-struct-a
+	     (read-from-string "#S(READABLE-STRUCT :A T)"))
+	    t))
+
 ;;; success
 (quit :unix-status 104)