5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
|
(deftest no-applicable-method.error.1 |
|
|
(classify-error (no-applicable-method)) |
|
|
program-error) |
|
|
|
|
8 |
(defgeneric no-app-meth-gf-01 (x)) |
(defgeneric no-app-meth-gf-01 (x)) |
9 |
|
|
10 |
(deftest no-applicable-method.2 |
(deftest no-applicable-method.2 |
44 |
(deftest no-applicable-method.6 |
(deftest no-applicable-method.6 |
45 |
(no-app-meth-gf-03 100000000000000000) |
(no-app-meth-gf-03 100000000000000000) |
46 |
:good) |
:good) |
47 |
|
|
48 |
|
(defparameter *no-app-meth-gf-04* |
49 |
|
(defgeneric no-app-meth-gf-04 (x))) |
50 |
|
|
51 |
|
(defmethod no-applicable-method ((x (eql *no-app-meth-gf-04*)) &rest args) |
52 |
|
(and (eql x *no-app-meth-gf-04*) |
53 |
|
(copy-list args))) |
54 |
|
|
55 |
|
(deftest no-applicable-method.7 |
56 |
|
(no-app-meth-gf-04 'a 'b 'c 'd) |
57 |
|
(a b c d)) |