(let ((pcl-class (sb-kernel:class-pcl-class x)))
(and pcl-class (plist-value pcl-class 'documentation)))))
(defmethod documentation ((x cl:structure-class) (doc-type (eql 'type)))
(let ((pcl-class (sb-kernel:class-pcl-class x)))
(and pcl-class (plist-value pcl-class 'documentation)))))
(defmethod documentation ((x cl:structure-class) (doc-type (eql 'type)))