3 (define-condition validation-failure nil ((msg :initarg :msg :reader validation-failure-msg)))
5 (defun validate-package (pkg)
8 (do-external-symbols (symb pkg) (push symb symbs))
9 (setf symbs (sort symbs #'string< :key #'symbol-name))
15 (docgen-func:doc->ast symb)
17 (validation-failure (v) (list :failure :msg (validation-failure-msg v)))))
20 (defun export-package (pkg)
23 (do-external-symbols (symb pkg) (push symb symbs))
24 (setf symbs (sort symbs #'string< :key #'symbol-name))
25 (format nil "~{~A~^~%~}" (mapcar (lambda (symb) (docgen-func:ast->md (docgen-func:doc->ast symb))) symbs))))