ref: 1e9424a30924dca0f7715d93e7a78f63e1736039
dir: /docs_extra.lsp/
(define-macro (doc-for term doc)
(let* ((sym (or (and (cons? term) (car term)) term))
(val (top-level-value sym))
(funvars (and (cons? term) (cdr term))))
(if (not funvars)
(when (function? val)
(error "docs: " sym ": no funvars specified"))
(unless (function? val)
(error "docs: " sym ": funvars set but isn't a function")))
(symbol-set-doc sym doc funvars)))
(doc-for (vm-stats)
"Print various VM-related information, such as the number of GC calls
so far, heap and stack size, etc.")
(del! *syntax-environment* 'doc-for)