9 lines
344 B
Common Lisp
9 lines
344 B
Common Lisp
(when (find-package :ql) (funcall (read-from-string "ql:quickload") :deploy))
|
|
(load (sb-ext:posix-getenv "ASDF"))
|
|
(asdf:load-asd (pathname (truename "tfcserver.asd")))
|
|
(asdf:load-system "tfcserver")
|
|
(when (find-package :ql) (funcall (read-from-string "ql:quickload") :tfcserver))
|
|
(push :deploy-console *features*)
|
|
(asdf:make :tfcserver)
|
|
(quit)
|