diff options
| -rw-r--r-- | .gitignore | 1 | ||||
| -rw-r--r-- | build.lisp | 16 | ||||
| -rw-r--r-- | dnd.lisp | 5 | ||||
| -rw-r--r-- | package.lisp | 3 |
4 files changed, 24 insertions, 1 deletions
@@ -1 +1,2 @@ *~ +/bin/ diff --git a/build.lisp b/build.lisp new file mode 100644 index 0000000..8bb5ec5 --- /dev/null +++ b/build.lisp @@ -0,0 +1,16 @@ +(ql:quickload :dnd) + +(swank:swank-require + '(SWANK-IO-PACKAGE::SWANK-INDENTATION + SWANK-IO-PACKAGE::SWANK-TRACE-DIALOG + SWANK-IO-PACKAGE::SWANK-PACKAGE-FU + SWANK-IO-PACKAGE::SWANK-PRESENTATIONS + SWANK-IO-PACKAGE::SWANK-MACROSTEP + SWANK-IO-PACKAGE::SWANK-FUZZY + SWANK-IO-PACKAGE::SWANK-FANCY-INSPECTOR + SWANK-IO-PACKAGE::SWANK-C-P-C + SWANK-IO-PACKAGE::SWANK-ARGLISTS + SWANK-IO-PACKAGE::SWANK-REPL)) + +(ensure-directories-exist #P"./bin/") +(sb-ext:save-lisp-and-die "./bin/dnd" :toplevel #'dnd:boot :executable t) @@ -10,3 +10,8 @@ (setf *dnd-arena* (lzb:create-server)) (lzb:install-app *dnd-arena* (lzb:app 'dnd)) (lzb:start-server *dnd-arena*)) + +(defun boot () + (swank:create-server :port 9876 :dont-close t) + (conjure-arena) + (loop (sleep 1))) diff --git a/package.lisp b/package.lisp index a844c56..582e854 100644 --- a/package.lisp +++ b/package.lisp @@ -14,6 +14,7 @@ #:with-plist) (:import-from #:spinneret #:with-html - #:with-html-string)) + #:with-html-string) + (:export :boot)) |