From: Christophe R. <cr...@us...> - 2003-10-19 09:35:24
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1:/tmp/cvs-serv17370/tests Modified Files: clos.impure.lisp Log Message: 0.8.4.30: Be more careful over automatically generated generic function lambda lists ... when generating PCL-internal GFs, pass :LAMBDA-LIST to ENSURE-GENERIC-FUNCTION ... when generating accessor GFs, pass :LAMBDA-LIST if the function is not already created (where you want to preserve the user's lambda list instead) ... tests for required behaviour Adjust INVALID-FASL patch slightly ... comment in package-data-list.lisp-expr ... remove unneccessary sb!ext:: prefixes Index: clos.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v retrieving revision 1.46 retrieving revision 1.47 diff -u -d -r1.46 -r1.47 --- clos.impure.lisp 15 Oct 2003 16:28:15 -0000 1.46 +++ clos.impure.lisp 18 Oct 2003 10:14:53 -0000 1.47 @@ -720,5 +720,17 @@ :font 'baskerville :pixel-size 10) 'baskerville)) +;;; class redefinition shouldn't give any warnings, in the usual case +(defclass about-to-be-redefined () ((some-slot :accessor some-slot))) +(handler-bind ((warning #'error)) + (defclass about-to-be-redefined () ((some-slot :accessor some-slot)))) + +;;; attempts to add accessorish methods to generic functions with more +;;; complex lambda lists should fail +(defgeneric accessoroid (object &key &allow-other-keys)) +(assert (raises-error? + (defclass accessoroid-class () ((slot :accessor accessoroid))) + program-error)) + ;;;; success (sb-ext:quit :unix-status 104) |