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

diff --git a/tests/reader.impure.lisp b/tests/reader.impure.lisp
index 214ca6f..b71a2ee 100644
--- a/tests/reader.impure.lisp
+++ b/tests/reader.impure.lisp
@@ -59,5 +59,17 @@
   (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))
+
+;;; reported by Henrik Motakef
+(defpackage "")
+(assert (eq (symbol-package (read-from-string "||::FOO"))
+	    (find-package "")))
+
 ;;; success
 (quit :unix-status 104)