(load (sb-ext:posix-getenv "ASDF"))
(asdf:load-asd (pathname (truename "tfcserver.asd")))
(asdf:load-system 'tfcserver)
;; (asdf:make :tfcserver)
;; (asdf:operate :program-op :tfcserver)
(asdf:disable-output-translations)
(sb-ext:save-lisp-and-die 
  #p"tfcserver"
  :compression t
  :toplevel #'tfcserver::main
  :executable t)