(asdf:load-asd "/home/chris/dev/tfcconnection/tfcserver.asd")
(ql:quickload :tfcserver)
(asdf:make :tfcserver)