56 |
(no-app-meth-gf-04 'a 'b 'c 'd) |
(no-app-meth-gf-04 'a 'b 'c 'd) |
57 |
(a b c d)) |
(a b c d)) |
58 |
|
|
59 |
|
(defparameter *no-app-meth-gf-05* |
60 |
|
(defgeneric no-app-meth-gf-05 (x &key) |
61 |
|
(:method ((x symbol) &key) x))) |
62 |
|
|
63 |
|
(defmethod no-applicable-method ((x (eql *no-app-meth-gf-05*)) &rest args) |
64 |
|
(and (eql x *no-app-meth-gf-05*) |
65 |
|
(copy-list args))) |
66 |
|
|
67 |
|
(deftest no-applicable-method.8 |
68 |
|
(no-app-meth-gf-05 'a) |
69 |
|
a) |
70 |
|
|
71 |
|
;;; From section 7.6.6: 'Calling no-applicable-method takes precedence |
72 |
|
;;; over checking for acceptable keyword arguments' |
73 |
|
|
74 |
|
(deftest no-applicable-method.9 |
75 |
|
(no-app-meth-gf-05 10 :nonsense t) |
76 |
|
(10 :nonsense t)) |