(defclass bla (sequence) ())
(subtypep 'bla 'sequence)
 ; => NIL, T
(subtypep (find-class 'bla) 'sequence)
 ; => NIL, T