- (let ((class (cl:find-class type nil)))
- (and class
- (typep (sb-kernel:layout-info (sb-kernel:class-layout class))
+ (let ((classoid (sb-kernel:find-classoid type nil)))
+ (and classoid
+ (typep (sb-kernel:layout-info
+ (sb-kernel:classoid-layout classoid))