+(declaim (inline defstruct-classoid-p))
+(defun defstruct-classoid-p (classoid)
+ ;; It is non-obvious to me why STRUCTURE-CLASSOID-P doesn't
+ ;; work instead of this. -- NS 2008-03-14
+ (typep (layout-info (classoid-layout classoid)) 'defstruct-description))
+