(setf (info :variable :documentation x) new-value))
\f
;;; default if DOC-TYPE doesn't match one of the specified types
(defmethod documentation (object doc-type)
(warn "unsupported DOCUMENTATION: type ~S for object ~S"
(setf (info :variable :documentation x) new-value))
\f
;;; default if DOC-TYPE doesn't match one of the specified types
(defmethod documentation (object doc-type)
(warn "unsupported DOCUMENTATION: type ~S for object ~S"