(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)