16 lines
291 B
Common Lisp
16 lines
291 B
Common Lisp
(ql:quickload '(:uiop :with-user-abort))
|
|
|
|
(load "truth-table.lisp")
|
|
|
|
#+sbcl
|
|
(progn
|
|
(sb-ext:disable-debugger)
|
|
(sb-ext:save-lisp-and-die
|
|
"truth-table"
|
|
:toplevel 'truth-table:toplevel
|
|
:save-runtime-options t
|
|
:executable t))
|
|
|
|
#-sbcl
|
|
(error "I only know how to build under SBCL")
|