36 |
|
|
37 |
(defgeneric nmp-gf-03 (x y) |
(defgeneric nmp-gf-03 (x y) |
38 |
(:method ((x integer) (y symbol)) #'next-method-p) |
(:method ((x integer) (y symbol)) #'next-method-p) |
39 |
(:method ((x t) (y (eql nil))) 'foo)) |
(:method ((x t) (y (eql nil))) (constantly 1))) |
40 |
|
|
41 |
(deftest next-method-p.6 |
(deftest next-method-p.6 |
42 |
(notnot-mv (funcall (nmp-gf-03 10 nil))) |
(notnot-mv (funcall (the function (nmp-gf-03 10 nil)))) |
43 |
t) |
t) |
44 |
|
|
45 |
(deftest next-method-p.7 |
(deftest next-method-p.7 |
47 |
nil) |
nil) |
48 |
|
|
49 |
(defmethod nmp-gf-04 ((x integer) (y symbol)) #'next-method-p) |
(defmethod nmp-gf-04 ((x integer) (y symbol)) #'next-method-p) |
50 |
(defmethod nmp-gf-04 ((x t) (y (eql nil))) 'foo) |
(defmethod nmp-gf-04 ((x t) (y (eql nil))) (constantly 2)) |
51 |
|
|
52 |
(deftest next-method-p.8 |
(deftest next-method-p.8 |
53 |
(notnot-mv (funcall (nmp-gf-04 10 nil))) |
(notnot-mv (funcall (the function (nmp-gf-04 10 nil)))) |
54 |
t) |
t) |
55 |
|
|
56 |
(deftest next-method-p.9 |
(deftest next-method-p.9 |