(asdf:initialize-source-registry `(:source-registry (:tree ,(car (directory "src"))) :INHERIT-CONFIGURATION))
(asdf:load-system :clnl)
(asdf:load-system :clnl-test)
(asdf:initialize-source-registry `(:source-registry (:tree ,(car (directory "src"))) :INHERIT-CONFIGURATION))
(asdf:load-system :clnl)
(asdf:load-system :clnl-test)
(when (not (find-package :docgen)) (asdf:load-system :docgen))
(format t "~%~c[1;33mChecking Docs~c[0m~%" #\Esc #\Esc)
(when (not (docgen:pretty-print-validate-packages
(when (not (find-package :docgen)) (asdf:load-system :docgen))
(format t "~%~c[1;33mChecking Docs~c[0m~%" #\Esc #\Esc)
(when (not (docgen:pretty-print-validate-packages
(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;31mFailed doc check!~c[0m~%" #\Esc #\Esc)
(sb-ext:exit :code 1))
(format t "~c[1;32m- Doc Check Passed!~c[0m~%" #\Esc #\Esc)