3 (define-condition validation-failure nil ((msg :initarg :msg :reader validation-failure-msg)))
5 (defun validate-package (pkg)
7 ((with-success-check (&rest f)
10 (validation-failure (v) (list :failure :msg (validation-failure-msg v))))))
13 (do-external-symbols (symb pkg) (push symb symbs))
14 (setf symbs (sort symbs #'string< :key #'symbol-name))
17 (list (with-success-check (docgen-pkg:doc->ast pkg)))
19 (lambda (symb) (with-success-check (docgen-func:doc->ast symb)))
22 (defun export-package (pkg)
25 (do-external-symbols (symb pkg) (push symb symbs))
26 (setf symbs (sort symbs #'string< :key #'symbol-name))
27 (with-output-to-string (str)
28 (format str "~A~%~%" (docgen-pkg:ast->md (docgen-pkg:doc->ast (find-package pkg))))
29 (format str "~{~A~^~%~}" (mapcar (lambda (symb) (docgen-func:ast->md (docgen-func:doc->ast symb))) symbs)))))