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