((and (csubtypep type (specifier-type 'sequence))
(find-class output-type-spec nil))
(let ((class (find-class output-type-spec)))
((and (csubtypep type (specifier-type 'sequence))
(find-class output-type-spec nil))
(let ((class (find-class output-type-spec)))