1 (setf *compile-print* nil)
3 (setf asdf:*central-registry* (list #p"deps/"))
4 (asdf:load-system :style-checker.internal)
5 (asdf:load-system :style-checker-test.internal)
7 (format t "~%~c[1;33mRunning Tests~c[0m~%" #\Esc #\Esc)
8 (when (not (style-checker-test:run-all-tests))
9 (format t "~c[1;31mFailed tests!~c[0m~%" #\Esc #\Esc)
10 (sb-ext:exit :code 1))
12 (format t "~%~c[1;33mChecking Style~c[0m~%" #\Esc #\Esc)
13 (when (not (syntax-checker:pretty-print-check-directory "src"))
14 (format t "~c[1;31mFailed style check!~c[0m~%" #\Esc #\Esc)
15 (sb-ext:exit :code 1))
17 (format t "~c[1;32mSuccess!~c[0m~%" #\Esc #\Esc)