Make web server

build.lisp

@@ -1,15 +1,14 @@
 ;; This file should be run as follows:
-;;   sbcl --load build.lisp --eval '(<BUILD FUNCTION>)'
+;;   sbcl --load build.lisp --eval '(cli)'
 ;; where <BUILD FUNCTION> is either `cli' or `web'
 
 #-sbcl (error "Only SBCL is supported right now")
 
-(sb-ext:disable-debugger)
-
 (require :asdf)
 
 (defun cli ()
   "Build the CLI application executable."
+  (sb-ext:disable-debugger)
   (asdf:load-system :truth-table/cli)
   (require :truth-table/cli)
   (sb-ext:save-lisp-and-die
@@ -17,13 +16,3 @@
    :executable t
    :save-runtime-options t
    :toplevel (intern "TOPLEVEL" :truth-table/cli)))
-
-(defun web ()
-  "Build the web server executable."
-  (asdf:load-system :truth-table/web)
-  (require :truth-table/web)
-  (sb-ext:save-lisp-and-die
-   "truth-table-webserver"
-   :executable t
-   :save-runtime-options t
-   :toplevel (intern "TOPLEVEL" :truth-table/web)))