'fundamental-stream))
(mapcar #'find-class '(fundamental-stream
standard-object
- sb-pcl::std-object
sb-pcl::slot-object
stream
t))))
'fundamental-stream))
(mapcar #'find-class '(fundamental-stream
standard-object
- sb-pcl::std-object
sb-pcl::slot-object stream
t))))
(assert (subtypep (find-class 'stream) (find-class t)))
(assert (functionp (sb-pcl::ensure-ctor
(list 'sb-pcl::ctor (gensym)) nil nil))))
\f
+;;; from PFD ansi-tests
+(let ((t1 '(cons (cons (cons (real -744833699 -744833699) cons)
+ (integer -234496 215373))
+ integer))
+ (t2 '(cons (cons (cons integer integer)
+ (integer -234496 215373))
+ t)))
+ (assert (null (values (subtypep `(not ,t2) `(not ,t1))))))
+\f
;;; success