From: Christophe R. <cr...@us...> - 2003-03-29 18:51:55
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1:/tmp/cvs-serv30087/tests Modified Files: reader.impure.lisp Log Message: 0.pre8.16: Fix nasty bug introduced in 0.pre8.1 or so, wherein #S no longer worked. (mea maxima culpa) ... export STRUCTURE-CLASSOID ... write a test for it, so it doesn't happen again Now we can build from ourselves again, probably :-/ Index: reader.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/reader.impure.lisp,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- reader.impure.lisp 7 Feb 2003 14:54:12 -0000 1.5 +++ reader.impure.lisp 29 Mar 2003 18:51:52 -0000 1.6 @@ -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) |