9 lines
322 B
Common Lisp
9 lines
322 B
Common Lisp
(set! documentation (lambda (object)
|
|
(cond ((= (type object) "LMDA")
|
|
(let (d (nth 3 (source object)))
|
|
(cond ((string? d) d)
|
|
(t (source object)))))
|
|
((member (type object) '("FUNC" "SPFM"))
|
|
(:documentation (meta object))))))
|
|
|
|
(set! doc documentation)
|