23 |
(error () :good)) |
(error () :good)) |
24 |
:good) |
:good) |
25 |
|
|
26 |
(defparameter *no-next-meth-gf-02* |
;;; (defparameter *no-next-meth-gf-02* |
27 |
(defgeneric no-next-meth-gf-02 (x))) |
;;; (defgeneric no-next-meth-gf-02 (x))) |
28 |
|
;;; |
29 |
(defmethod no-next-meth-gf-02 ((x integer)) |
;;; (defmethod no-next-meth-gf-02 ((x integer)) |
30 |
(call-next-method)) |
;;; (call-next-method)) |
31 |
|
;;; |
32 |
(defmethod no-next-meth-gf-02 :around ((x character)) |
;;; (defmethod no-next-meth-gf-02 :around ((x character)) |
33 |
(call-next-method)) |
;;; (call-next-method)) |
34 |
|
;;; |
35 |
(defmethod no-next-method ((gf (eql *no-next-meth-gf-02*)) |
;;; (defmethod no-next-method ((gf (eql *no-next-meth-gf-02*)) |
36 |
(method standard-method) |
;;; (method standard-method) |
37 |
&rest args) |
;;; &rest args) |
38 |
(values args :aborted)) |
;;; (values (copy-list args) :aborted)) |
39 |
|
;;; |
40 |
(deftest no-next-method.3 |
;;; (deftest no-next-method.3 |
41 |
(no-next-meth-gf-02 10) |
;;; (no-next-meth-gf-02 10) |
42 |
(10) :aborted) |
;;; (10) :aborted) |
43 |
|
;;; |
44 |
(deftest no-next-method.4 |
;;; (deftest no-next-method.4 |
45 |
(no-next-meth-gf-02 #\a) |
;;; (no-next-meth-gf-02 #\a) |
46 |
(#\a) :aborted) |
;;; (#\a) :aborted) |