UI/Model Parse - Sliders - WIP

[clnl] / bin / all.lisp

diff --git a/bin/all.lisp b/bin/all.lisp
index 441810aaa42436bd0393847d4295e819621cf68f..a31d09cafda704ceb17457eb9ed93b4c85f3a2ad 100644 (file)
--- a/bin/all.lisp
+++ b/bin/all.lisp
@@ -1,5 +1,11 @@
-(when (not (find-package :clnl)) (asdf:load-system :clnl))
-(when (not (find-package :clnl-test)) (asdf:load-system :clnl-test))
+(setf *compile-print* nil)
+(require 'asdf)
+(asdf:initialize-source-registry `(:source-registry (:tree ,(car (directory "src"))) :INHERIT-CONFIGURATION))
+(asdf:load-system :clnl)
+(asdf:load-system :clnl-test)
+(asdf:load-system :clnl-extension-cli)
+#-travis(asdf:load-system :style-checker)
+#-travis(asdf:load-system :docgen)
 
 (format t "~%~c[1;33mRunning Tests~c[0m~%" #\Esc #\Esc)
 (when (not (clnl-test:run-all-tests))
@@ -13,14 +19,21 @@
  (sb-ext:exit :code 1))
 (format t "~c[1;32m- Style Passed!~c[0m~%" #\Esc #\Esc)
 
+(sb-ext:gc :full t)
+
 (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
-            :clnl :clnl-parser :clnl-random :clnl-transpiler :clnl-nvm :clnl-lexer :clnl-interface :clnl-cli))
+            :clnl :clnl-parser :clnl-random :clnl-transpiler :clnl-nvm
+            :clnl-lexer :clnl-interface :clnl-model :clnl-code-parser
+            :clnl-extensions
+            :clnl-extension-cli))
  (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)
 
+(sb-ext:gc :full t)
+
 (format t "~c[1;30m--------------~c[0m~%" #\Esc #\Esc)
 (format t "~c[1;32mBuild Success!~c[0m~%" #\Esc #\Esc)
 (sb-ext:exit :code 0)