0.pre8.16:

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

diff --git a/tests/reader.impure.lisp b/tests/reader.impure.lisp
index 214ca6f..c3c8f4e 100644 (file)
--- 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)