238 |
(:method ((x find-class-class-01)) :good) |
(:method ((x find-class-class-01)) :good) |
239 |
(:method ((x t)) nil)))) |
(:method ((x t)) nil)))) |
240 |
(obj (make-instance class1))) |
(obj (make-instance class1))) |
241 |
(values |
(assert (typep fn 'function)) |
242 |
(funcall fn nil) |
(locally |
243 |
(funcall fn obj) |
(declare (type function fn)) |
244 |
(setf (find-class 'find-class-class-01) nil) |
(values |
245 |
(funcall fn nil) |
(funcall fn nil) |
246 |
(funcall fn obj)))) |
(funcall fn obj) |
247 |
|
(setf (find-class 'find-class-class-01) nil) |
248 |
|
(funcall fn nil) |
249 |
|
(funcall fn obj))))) |
250 |
nil :good nil nil :good) |
nil :good nil nil :good) |
251 |
|
|
252 |
(deftest find-class.23 |
(deftest find-class.23 |
262 |
(:method ((x t)) t)))) |
(:method ((x t)) t)))) |
263 |
(obj1 (make-instance class1)) |
(obj1 (make-instance class1)) |
264 |
(obj2 (make-instance class2))) |
(obj2 (make-instance class2))) |
265 |
(values |
(assert (typep fn 'function)) |
266 |
(funcall fn nil) |
(locally |
267 |
(funcall fn obj1) |
(declare (type function fn)) |
268 |
(funcall fn obj2) |
(values |
269 |
(setf (find-class 'find-class-class-01) nil) |
(funcall fn nil) |
270 |
(funcall fn nil) |
(funcall fn obj1) |
271 |
(funcall fn obj1) |
(funcall fn obj2) |
272 |
(funcall fn obj2)))) |
(setf (find-class 'find-class-class-01) nil) |
273 |
|
(funcall fn nil) |
274 |
|
(funcall fn obj1) |
275 |
|
(funcall fn obj2))))) |
276 |
t 1 2 nil t 1 2) |
t 1 2 nil t 1 2) |
277 |
|
|
278 |
;;; Error tests |
;;; Error tests |