(sb-ext:disable-debugger)
 (sb-alien:alien-funcall
   (sb-alien:extern-alien "disable_lossage_handler"
                          (function sb-alien:void)))
 
 (defmacro eval-always (&body body)
   `(eval-when (:compile-toplevel :load-toplevel :execute)
      ,@body))
 
 (eval-always
   (load "~/quicklisp/setup.lisp")
   (compile-file "./zmq-hub.asd")
   (load "./zmq-hub"))
 
 (eval-always (ql:quickload :swank))
 
 (eval-always (ql:quickload :zmq-hub))
 
 (eval-always (load (compile-file "./textmessage-proc.lisp")))
 
 (eval-always (pushnew '("SYS:SITE;**;*.*.*" #p"/home/edwlan/.sbcl/site/**/*.*")
                       (logical-pathname-translations "SYS")
                       :test #'equal))
 
 (save-lisp-and-die "textmessage-handler"
                    :executable t
                    :compression 9
                    :toplevel #'fwoar.hub.client-sms::main)