(load (sb-ext:posix-getenv "ASDF"))
(asdf:load-asd (pathname (truename "tfcserver.asd")))
;; (ql:quickload :tfcserver)
(asdf:make :tfcserver)