From: Nikodemus S. <de...@us...> - 2004-05-20 22:57:00
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27744/tests Modified Files: clos.impure.lisp Log Message: 0.8.10.42: Fixed bug reported by Thomas Burdick (sbcl-devel 2004-05-09), which causes an AVER to fail from identical :READER and :WRITER names in DEFCLASS slot definitions: ... Moved error checking from FIND-METHOD to REAL-GET-METHOD so that internals bypassing FIND-METHOD can benefit from it. ... Added regression test. Index: clos.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v retrieving revision 1.51 retrieving revision 1.52 diff -u -d -r1.51 -r1.52 --- clos.impure.lisp 17 May 2004 21:21:37 -0000 1.51 +++ clos.impure.lisp 20 May 2004 22:56:43 -0000 1.52 @@ -784,5 +784,13 @@ (assert (eq (find-class 'one-more-to-obsolete) (make-instances-obsolete (find-class 'one-more-to-obsolete)))) +;;; Sensible error instead of a BUG. Reported by Thomas Burdick. +(multiple-value-bind (value err) + (ignore-errors + (defclass slot-def-with-duplicate-accessors () + ((slot :writer get-slot :reader get-slot)))) + (assert (typep err 'error)) + (assert (not (typep err 'sb-int:bug)))) + ;;;; success (sb-ext:quit :unix-status 104) |