Refactor to use ASDF

build.lisp

@@ -1,15 +1,19 @@
-(ql:quickload '(:uiop :with-user-abort))
+;; This file should be run as follows:
+;;   sbcl --load build.lisp --eval '(<BUILD FUNCTION>)'
+;; where <BUILD FUNCTION> is either `cli' or `web'
 
-(load "truth-table.lisp")
+#-sbcl (error "Only SBCL is supported right now")
 
-#+sbcl
-(progn
-  (sb-ext:disable-debugger)
+(sb-ext:disable-debugger)
+
+(require :asdf)
+
+(defun cli ()
+  "Build the CLI application executable."
+  (asdf:load-system :truth-table/cli)
+  (require :truth-table/cli)
   (sb-ext:save-lisp-and-die
    "truth-table"
-   :toplevel 'truth-table:toplevel
+   :executable t
    :save-runtime-options t
-   :executable t))
-
-#-sbcl
-(error "I only know how to build under SBCL")
+   :toplevel (intern "TOPLEVEL" :truth-table/cli)))