36 lines
922 B
Common Lisp
36 lines
922 B
Common Lisp
;; This file should be run as follows:
|
|
;; sbcl --load build.lisp --eval '(cli)'
|
|
;; where <BUILD FUNCTION> is either `cli' or `web'
|
|
|
|
#-sbcl (error "Only SBCL is supported right now")
|
|
|
|
(require :asdf)
|
|
|
|
(defun cli ()
|
|
"Build the CLI application executable."
|
|
(sb-ext:disable-debugger)
|
|
#+quicklisp
|
|
(ql:quickload :truth-table/cli)
|
|
#-quicklisp
|
|
(asdf:load-system :truth-table/cli)
|
|
(require :truth-table/cli)
|
|
(sb-ext:save-lisp-and-die
|
|
"truth-table"
|
|
:executable t
|
|
:save-runtime-options t
|
|
:toplevel (intern "TOPLEVEL" :truth-table/cli)))
|
|
|
|
(defun web ()
|
|
"Build web CLI application executable."
|
|
(sb-ext:disable-debugger)
|
|
#+quicklisp
|
|
(ql:quickload :truth-table/web)
|
|
#-quicklisp
|
|
(asdf:load-system :truth-table/web)
|
|
(require :truth-table/web)
|
|
(sb-ext:save-lisp-and-die
|
|
"truth-table-web-server"
|
|
:executable t
|
|
:save-runtime-options t
|
|
:toplevel (intern "TOPLEVEL" :truth-table/web)))
|