X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=sheep;a=blobdiff_plain;f=bin%2Ftravis.lisp;h=454b3ada216d36f547309700d9ba3eb184d81d99;hp=6a3ed0f3c313805e9d084a9d595b6a8ebf9f5097;hb=2d880c9;hpb=a7319414d0f0ea8a66764a040e7827b1801da5e5

diff --git a/bin/travis.lisp b/bin/travis.lisp
index 6a3ed0f..454b3ad 100644
--- a/bin/travis.lisp
+++ b/bin/travis.lisp
@@ -1,8 +1,9 @@
 (setf *compile-print* nil)
 (require 'asdf)
-(setf asdf:*central-registry* (list #p"deps/"))
-(asdf:load-system :docgen.internal)
-(asdf:load-system :docgen-test.internal)
+(asdf:initialize-source-registry `(:source-registry (:tree ,(car (directory "src"))) :INHERIT-CONFIGURATION))
+(asdf:load-system :docgen)
+(asdf:load-system :docgen-test)
+#-travis (asdf:load-system :style-checker)
 
 (format t "~%~c[1;33mRunning Tests~c[0m~%" #\Esc #\Esc)
 (when (not (docgen-test:run-all-tests))
@@ -13,6 +14,14 @@
 (when (not (syntax-checker:pretty-print-check-directory "src"))
  (format t "~c[1;31mFailed style check!~c[0m~%" #\Esc #\Esc)
  (sb-ext:exit :code 1))
+(format t "~c[1;32m- Style Passed!~c[0m~%" #\Esc #\Esc)
 
-(format t "~c[1;32mSuccess!~c[0m~%" #\Esc #\Esc)
+(format t "~%~c[1;33mChecking Docs~c[0m~%" #\Esc #\Esc)
+(when (not (docgen:pretty-print-validate-packages :docgen))
+ (format t "~c[1;31mFailed doc check!~c[0m~%" #\Esc #\Esc)
+ (sb-ext:exit :code 1))
+(format t "~c[1;32m- Doc Check Passed!~c[0m~%" #\Esc #\Esc)
+
+(format t "~c[1;30m--------------~c[0m~%" #\Esc #\Esc)
+(format t "~c[1;32mBuild Success!~c[0m~%" #\Esc #\Esc)
 (sb-ext:exit :code 0)