Add holistic checking

[sheep] / src / main / pkg.lisp

diff --git a/src/main/pkg.lisp b/src/main/pkg.lisp
index 1ce94be4f6b15a10f440764420fb00c34a3a022c..df9848f8e4c85cac2db749a2b364111d781de6f8 100644 (file)
--- a/src/main/pkg.lisp
+++ b/src/main/pkg.lisp
@@ -3,6 +3,7 @@
 (defun fire-error (msg) (error (make-instance 'docgen:validation-failure :msg msg)))
 
 (defun doc->ast (pkg)
+ (when (not (documentation pkg t)) (fire-error (format nil "Package ~A has no documentation" (package-name pkg))))
  (labels
   ((validate (strs)
     (mapcar