1 (setf *compile-print* nil)
3 (asdf:initialize-source-registry `(:source-registry (:tree ,(car (directory "src"))) :INHERIT-CONFIGURATION))
4 (asdf:load-system :docgen)
5 (asdf:load-system :docgen-test)
6 #-travis (asdf:load-system :style-checker)
8 (format t "~%~c[1;33mRunning Tests~c[0m~%" #\Esc #\Esc)
9 (when (not (docgen-test:run-all-tests))
10 (format t "~c[1;31mFailed tests!~c[0m~%" #\Esc #\Esc)
11 (sb-ext:exit :code 1))
13 (format t "~%~c[1;33mChecking Style~c[0m~%" #\Esc #\Esc)
14 (when (not (syntax-checker:pretty-print-check-directory "src"))
15 (format t "~c[1;31mFailed style check!~c[0m~%" #\Esc #\Esc)
16 (sb-ext:exit :code 1))
17 (format t "~c[1;32m- Style Passed!~c[0m~%" #\Esc #\Esc)
19 (format t "~%~c[1;33mChecking Docs~c[0m~%" #\Esc #\Esc)
20 (when (not (docgen:pretty-print-validate-packages :docgen))
21 (format t "~c[1;31mFailed doc check!~c[0m~%" #\Esc #\Esc)
22 (sb-ext:exit :code 1))
23 (format t "~c[1;32m- Doc Check Passed!~c[0m~%" #\Esc #\Esc)
25 (format t "~c[1;30m--------------~c[0m~%" #\Esc #\Esc)
26 (format t "~c[1;32mBuild Success!~c[0m~%" #\Esc #\Esc)