:metaclass 'funcallable-standard-class)
(assert (eq (class-of (find-class 'better-be-standard-class))
(find-class 'standard-class)))
:metaclass 'funcallable-standard-class)
(assert (eq (class-of (find-class 'better-be-standard-class))
(find-class 'standard-class)))