From 587fb1acc70c07fb9f2837eeb13632196bd67d15 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Mon, 20 Jun 2005 16:43:35 +0000 Subject: [PATCH] Documentation of macros is stored in the function definition of the macro --- src/clos/inspect.lsp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/clos/inspect.lsp b/src/clos/inspect.lsp index f92ef8cc4..2b33958f0 100644 --- a/src/clos/inspect.lsp +++ b/src/clos/inspect.lsp @@ -438,7 +438,10 @@ q (or Q): quits the inspection.~%~ (documentation c t) (si::get-documentation object doc-type)))) (function - (or (and (fboundp object) (documentation (fdefinition object) doc-type)) + (or (and (fboundp object) + (documentation (or (macro-function object) + (fdefinition object)) + doc-type)) (si::get-documentation object doc-type))) (otherwise (si::get-documentation object doc-type))))) @@ -456,7 +459,7 @@ q (or Q): quits the inspection.~%~ (si::set-documentation object doc-type new-value)))) (function (if (fboundp object) - (let ((c (fdefinition object))) + (let ((c (or (macro-function object) (fdefinition object)))) (si::set-documentation c 'function nil) (setf (documentation c 'function) new-value)) (si::set-documentation object doc-type new-value)))