;;; it needs a more mnemonic name. -- WHN 19991204
(defun structure-type-p (type)
(and (symbolp type)
+ (not (condition-type-p type))
(let ((classoid (find-classoid type nil)))
(and classoid
(typep (layout-info
(classoid-layout classoid))
'defstruct-description)))))
+
+(defun condition-type-p (type)
+ (and (symbolp type)
+ (condition-classoid-p (find-classoid type nil))))
\f
(/show "finished with early-low.lisp")