X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=sheep;a=blobdiff_plain;f=src%2Fmain%2Fpkg.lisp;h=df9848f8e4c85cac2db749a2b364111d781de6f8;hp=1ce94be4f6b15a10f440764420fb00c34a3a022c;hb=2a64bd9;hpb=683928f90e320bed84a816e8b59521b1c6714991

diff --git a/src/main/pkg.lisp b/src/main/pkg.lisp
index 1ce94be..df9848f 100644
--- 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