mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-12 20:31:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Documentation of macros is stored in the function definition of the macro

Browse source
This commit is contained in:
jjgarcia 2005-06-20 16:43:35 +00:00
parent 702040d061
commit 587fb1acc7
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/clos/inspect.lsp
View file

@ -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)))