- (typep (sb-kernel:layout-info
- (sb-kernel:classoid-layout classoid))
- 'sb-kernel:defstruct-description)))))
+ (typep (layout-info
+ (classoid-layout classoid))
+ 'defstruct-description)))))
+
+(defun condition-type-p (type)
+ (and (symbolp type)
+ (condition-classoid-p (find-classoid type nil))))