From: Christophe R. <cr...@us...> - 2004-07-01 11:41:31
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2635/tests Modified Files: clos.impure-cload.lisp Log Message: 0.8.12.15: Fix for (declare ignore) treatment in methods when there is use of SETQ in the body ... wow, no-one noticed before me? Cool! Index: clos.impure-cload.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure-cload.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- clos.impure-cload.lisp 29 Jun 2004 08:51:02 -0000 1.10 +++ clos.impure-cload.lisp 1 Jul 2004 11:41:22 -0000 1.11 @@ -105,5 +105,19 @@ (assert (eq 'orig-initform (slot-value (make-instance 'shared-to-local-initform-sub) 'redefined))) +(defgeneric no-ignored-warnings (x y)) +(handler-case + (eval '(defmethod no-ignored-warnings ((x t) (y t)) + (declare (ignore x y)) nil)) + (style-warning (c) (error c))) +(handler-case + (eval '(defmethod no-ignored-warnings ((x number) (y t)) + (declare (ignore x y)) (setq *print-level* nil))) + (style-warning (c) (error c))) +(handler-case + (eval '(defmethod no-ignored-warnings ((x fixnum) (y t)) + (declare (ignore x)) (setq y 'foo))) + (style-warning (c) (error c))) + ;;; success -(sb-ext:quit :unix-status 104) \ No newline at end of file +(sb-ext:quit :unix-status 104) |