From: Nikodemus S. <de...@us...> - 2008-01-21 14:41:00
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv5608/tests Modified Files: bug-414.lisp clos.impure.lisp Log Message: 1.0.13.46: fixed bug #402 * Rewrite SPLIT-DECLARATIONS to use two (short) constant lists and INFO instead of *VAR-DECLARATIONS-WITH|WITHOUT-ARG*. * Test-case for #402. * While at it, replace the *VAR-DECLARATIONS* from walker as well, replacing it with WALKED-VAR-DECLARATION-P, and make VAR-DECLARATION use a compiler-macro to check for bogus-declarations when possible. (All our whopping 3 calls to it.) * Bug #413 was fixed in 1.0.13, remove it from BUGS. * Whitespace. Index: bug-414.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/bug-414.lisp,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- bug-414.lisp 15 Jan 2008 23:55:51 -0000 1.1 +++ bug-414.lisp 21 Jan 2008 14:40:55 -0000 1.2 @@ -1,6 +1,6 @@ ;;; compiling and disassembling this used to give ;;; -;;; WARNING: bogus form-number in form! The source file has probably +;;; WARNING: bogus form-number in form! The source file has probably ;;; been changed too much to cope with. ;;; ;;; but the symptoms have disappeared. Index: clos.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v retrieving revision 1.95 retrieving revision 1.96 diff -u -d -r1.95 -r1.96 --- clos.impure.lisp 29 Aug 2007 17:14:45 -0000 1.95 +++ clos.impure.lisp 21 Jan 2008 14:40:55 -0000 1.96 @@ -1597,5 +1597,15 @@ (assert (not (sb-pcl::layout-for-std-class-p (sb-pcl::find-layout 'warning)))) (assert (not (sb-pcl::layout-for-std-class-p (sb-pcl::find-layout 'hash-table)))) (assert (eq t (sb-pcl::layout-for-std-class-p (sb-pcl::find-layout 'standard-object)))) + +;;;; bug 402: PCL used to warn about non-standard declarations +(declaim (declaration bug-402-d)) +(defgeneric bug-402-gf (x)) +(with-test (:name :bug-402) + (handler-bind ((warning #'error)) + (eval '(defmethod bug-402-gf (x) + (declare (bug-402-d x)) + x)))) + ;;;; success |