(defun doc-file (file packages) ;;Write FILE of doc strings for all symbols in PACKAGES ;;This file is suitable for use with the find-doc function. #+kcl (and (member 'lisp packages) (not (documentation 'setq 'function)) (load (format nil "~a../lsp/setdoc.lsp" si::*system-directory*))) (with-open-file (st file :direction :output) (sloop:sloop for v in packages do (setq v (if (packagep v) (package-name v) v)) do (sloop:sloop for w in-package v when (setq doc (documentation w 'function)) do (format st "F~a~%~ain ~a package:~a" w (cond ((special-form-p w) "Special Form ") ((functionp w) "Function ") ((macro-function w) "Macro ") (t "")) v doc) when (setq doc (documentation w 'variable)) do (format st "V~a~%Variable in ~a package:~a" w v doc) ))))