;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Sun May 11 14:41:50 2003 ;;;; Contains: Tests of NO-NEXT-METHOD (in-package :cl-test) (defgeneric no-next-meth-gf-01 (x)) (defmethod no-next-meth-gf-01 ((x integer)) (call-next-method)) (defmethod no-next-meth-gf-01 :around ((x character)) (call-next-method)) (deftest no-next-method.1 (handler-case (progn (no-next-meth-gf-01 10) :bad) (error () :good)) :good) (deftest no-next-method.2 (handler-case (progn (no-next-meth-gf-01 ) :bad) (error () :good)) :good) (defparameter *no-next-meth-gf-02* (defgeneric no-next-meth-gf-02 (x))) (defmethod no-next-meth-gf-02 ((x integer)) (call-next-method)) (defmethod no-next-meth-gf-02 :around ((x character)) (call-next-method)) (defmethod no-next-method ((gf (eql *no-next-meth-gf-02*)) (method standard-method) &rest args) (values args :aborted)) (deftest no-next-method.3 (no-next-meth-gf-02 10) (10) :aborted) (deftest no-next-method.4 (no-next-meth-gf-02 #\a) (#\a) :aborted)