(mapcar #'find-class '(simple-condition
condition
sb-pcl::slot-object
- sb-kernel:instance
t))))
;; stream classes
'fundamental-stream))
(mapcar #'find-class '(fundamental-stream
standard-object
- sb-pcl::std-object
sb-pcl::slot-object
stream
- sb-kernel:instance
t))))
(assert (equal (sb-pcl:class-precedence-list (find-class
'fundamental-stream))
(mapcar #'find-class '(fundamental-stream
standard-object
- sb-pcl::std-object
sb-pcl::slot-object stream
- sb-kernel:instance t))))
+ t))))
(assert (subtypep (find-class 'stream) (find-class t)))
(assert (subtypep (find-class 'fundamental-stream) 'stream))
(assert (not (subtypep 'stream 'fundamental-stream)))))