Show function documentation in describe (Alan Ruttenberg)

<https://github.com/armedbear/abcl/pull/26/>
parent fdd6cb15
......@@ -92,7 +92,15 @@
(setf plist (cddr plist))))))
(FUNCTION
(%describe-object object stream)
(describe-arglist object stream))
(describe-arglist object stream)
(let ((function-symbol (nth-value 2 (function-lambda-expression object))))
(if (and (consp function-symbol) (eq (car function-symbol) 'macro-function))
(setq function-symbol (second function-symbol)))
(when function-symbol
(let ((doc (documentation function-symbol 'function)))
(when doc
(format stream "Function documentation:~% ~A~%" doc)))
)))
(INTEGER
(%describe-object object stream)
(format stream "~D.~%~
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment