code.consxy.com Git - clnl/blob - bin/all.lisp

   1 (when (not (find-package :clnl)) (asdf:load-system :clnl))
   2 (when (not (find-package :clnl-test)) (asdf:load-system :clnl-test))
   3
   4 (format t "~%~c[1;33mRunning Tests~c[0m~%" #\Esc #\Esc)
   5 (when (not (clnl-test:run-all-tests))
   6  (format t "~c[1;31mFailed tests!~c[0m~%" #\Esc #\Esc)
   7  (sb-ext:exit :code 1))
   8
   9 (when (not (find-package :syntax-checker)) (asdf:load-system :style-checker))
  10 (format t "~%~c[1;33mChecking Style~c[0m~%" #\Esc #\Esc)
  11 (when (not (syntax-checker:pretty-print-check-directory "src"))
  12  (format t "~c[1;31mFailed style check!~c[0m~%" #\Esc #\Esc)
  13  (sb-ext:exit :code 1))
  14 (format t "~c[1;32m- Style Passed!~c[0m~%" #\Esc #\Esc)
  15
  16 (when (not (find-package :docgen)) (asdf:load-system :docgen))
  17 (format t "~%~c[1;33mChecking Docs~c[0m~%" #\Esc #\Esc)
  18 (when (not (docgen:pretty-print-validate-packages
  19             :clnl :clnl-parser :clnl-random :clnl-transpiler :clnl-nvm :clnl-lexer :clnl-interface :clnl-cli))
  20  (format t "~c[1;31mFailed doc check!~c[0m~%" #\Esc #\Esc)
  21  (sb-ext:exit :code 1))
  22 (format t "~c[1;32m- Doc Check Passed!~c[0m~%" #\Esc #\Esc)
  23
  24 (format t "~c[1;30m--------------~c[0m~%" #\Esc #\Esc)
  25 (format t "~c[1;32mBuild Success!~c[0m~%" #\Esc #\Esc)
  26 (sb-ext:exit :code 0)