5 |
|
|
6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(defgeneric find-method-gf-01 (x)) |
(eval-when (:load-toplevel :compile-toplevel :execute) |
9 |
(defparameter *find-method-gf-01-method1* |
(report-and-ignore-errors |
10 |
(defmethod find-method-gf-01 ((x integer)) 'a)) |
(defgeneric find-method-gf-01 (x))) |
11 |
(defparameter *find-method-gf-01-method2* |
(report-and-ignore-errors |
12 |
(defmethod find-method-gf-01 ((x rational)) 'b)) |
(defparameter *find-method-gf-01-method1* |
13 |
(defparameter *find-method-gf-01-method3* |
(defmethod find-method-gf-01 ((x integer)) 'a))) |
14 |
(defmethod find-method-gf-01 ((x real)) 'c)) |
(report-and-ignore-errors |
15 |
(defparameter *find-method-gf-01-method4* |
(defparameter *find-method-gf-01-method2* |
16 |
(defmethod find-method-gf-01 ((x t)) 'd)) |
(defmethod find-method-gf-01 ((x rational)) 'b))) |
17 |
|
(report-and-ignore-errors |
18 |
|
(defparameter *find-method-gf-01-method3* |
19 |
|
(defmethod find-method-gf-01 ((x real)) 'c))) |
20 |
|
(report-and-ignore-errors |
21 |
|
(defparameter *find-method-gf-01-method4* |
22 |
|
(defmethod find-method-gf-01 ((x t)) 'd))) |
23 |
|
) |
24 |
|
|
25 |
(deftest find-method.1 |
(deftest find-method.1 |
26 |
(eqt (find-method #'find-method-gf-01 nil (list (find-class 'integer))) |
(eqt (find-method #'find-method-gf-01 nil (list (find-class 'integer))) |