(defmethod documentation ((x list) (doc-type (eql 'compiler-macro)))
(awhen (compiler-macro-function x)
(documentation it t)))
(defmethod documentation ((x symbol) (doc-type (eql 'function)))
(defmethod documentation ((x list) (doc-type (eql 'compiler-macro)))
(awhen (compiler-macro-function x)
(documentation it t)))
(defmethod documentation ((x symbol) (doc-type (eql 'function)))