46 |
:good) |
:good) |
47 |
|
|
48 |
(defparameter *no-app-meth-gf-04* |
(defparameter *no-app-meth-gf-04* |
49 |
(defgeneric no-app-meth-gf-04 (x))) |
(defgeneric no-app-meth-gf-04 (&rest args))) |
50 |
|
|
51 |
(defmethod no-applicable-method ((x (eql *no-app-meth-gf-04*)) &rest args) |
(defmethod no-applicable-method ((x (eql *no-app-meth-gf-04*)) &rest args) |
52 |
(and (eql x *no-app-meth-gf-04*) |
(and (eql x *no-app-meth-gf-04*) |
55 |
(deftest no-applicable-method.7 |
(deftest no-applicable-method.7 |
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 |
|
|