ref: 6a51a03b801b21f42e2eb3dfa02c99e96c86b10c
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)