257 |
collect sym) |
collect sym) |
258 |
nil) |
nil) |
259 |
|
|
260 |
|
;;; Confirm that all standard generic functions are instances of |
261 |
|
;;; the class standard-generic-function. |
262 |
|
|
263 |
|
(deftest all-standard-generic-functions-are-instances-of-that-class |
264 |
|
(loop for sym in *cl-standard-generic-function-symbols* |
265 |
|
for fun = (and (fboundp sym) (symbol-function sym)) |
266 |
|
unless (and (typep fun 'generic-function) |
267 |
|
(typep fun 'standard-generic-function)) |
268 |
|
collect (list sym fun)) |
269 |
|
nil) |
270 |
|
|
271 |
|
|
272 |
|
;;; Canonical metaobjects are in the right classes |
273 |
|
|
274 |
|
(deftest structure-object-is-in-structure-class |
275 |
|
(notnot-mv (typep (find-class 'structure-object) 'structure-class)) |
276 |
|
t) |
277 |
|
|
278 |
|
(deftest standard-object-is-in-standard-class |
279 |
|
(notnot-mv (typep (find-class 'standard-object) 'standard-class)) |
280 |
|
t) |
281 |
|
|
282 |
|
|
283 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |