(defun get-symb-type (symb)
(cond
- ;((documentation symb 'variable) :variable)
+ ((documentation symb 'variable) :variable)
((documentation symb 'structure) :structure)
((documentation symb 'function) :function)))
(case (get-symb-type symb)
(:function (docgen-func:doc->ast symb))
(:structure (docgen-struc:doc->ast symb))
+ (:variable (docgen-var:doc->ast symb))
(t (error (make-condition 'validation-failure :msg (format nil "Symbol ~A has no documentation" symb)))))))
symbs))))))
EXAMPLES:
(pretty-print-validate-packages :pkg1 :pkg2) => t"
- (some
+ (every
#'identity
(mapcar
(lambda (pkg)
(docgen-struc:ast->category-name (docgen-struc:doc->ast symb))
(docgen-struc:ast->short-name (docgen-struc:doc->ast symb))
(docgen-struc:ast->link (docgen-struc:doc->ast symb))
- (docgen-struc:ast->short-desc (docgen-struc:doc->ast symb))))))
+ (docgen-struc:ast->short-desc (docgen-struc:doc->ast symb))))
+ (:variable
+ (list
+ (docgen-var:ast->category-name (docgen-var:doc->ast symb))
+ (docgen-var:ast->short-name (docgen-var:doc->ast symb))
+ (docgen-var:ast->link (docgen-var:doc->ast symb))
+ (docgen-var:ast->short-desc (docgen-var:doc->ast symb))))))
symbs))))
(defun export-package (pkg)
(mapcar
(lambda (symb)
(case (get-symb-type symb)
+ (:variable (docgen-var:ast->md (docgen-var:doc->ast symb)))
(:function (docgen-func:ast->md (docgen-func:doc->ast symb)))
(:structure (docgen-struc:ast->md (docgen-struc:doc->ast symb)))))
symbs)))))