+(export 'c-type-form)
+(defmethod documentation ((symbol symbol) (doc-type (eql 'c-type-form)))
+ (let ((method (find-eql-specialized-method #'expand-c-type-form 0 symbol)))
+ (and method (documentation method t))))
+(defmethod (setf documentation)
+ (string (symbol symbol) (doc-type (eql 'c-type-form)))
+ (let ((method (find-eql-specialized-method #'expand-c-type-form 0 symbol)))
+ (unless method (error "No C type spec found with name `~S'." symbol))
+ (setf (documentation method t) string)))
+