Update of /cvsroot/sbcl/sbcl/tests
In directory usw-pr-cvs1:/tmp/cvs-serv10321/tests
Modified Files:
clos.impure.lisp
Log Message:
0.7.9.10:
Implement NO-NEXT-METHOD (following Gerd Moellmann on cmucl-imp
in message 86vg5rryqn.fsf@...
entomotomy reference: no-next-method-unimplemented)
... add a comment in boot.lisp describing coupling of %METHOD-NAME
declaration to NO-NEXT-METHOD implementation
Index: clos.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- clos.impure.lisp 26 Oct 2002 11:22:51 -0000 1.16
+++ clos.impure.lisp 29 Oct 2002 10:02:31 -0000 1.17
@@ -318,6 +318,14 @@
(declare (special y))))
(assert-program-error (defgeneric bogus-declaration2 (x)
(declare (notinline concatenate)))))
+;;; CALL-NEXT-METHOD should call NO-NEXT-METHOD if there is no next
+;;; method.
+(defmethod no-next-method-test ((x integer)) (call-next-method))
+(assert (null (ignore-errors (no-next-method-test 1))))
+(defmethod no-next-method ((g (eql #'no-next-method-test)) m &rest args)
+ 'success)
+(assert (eq (no-next-method-test 1) 'success))
+(assert (null (ignore-errors (no-next-method-test 'foo))))
;;;; success
|