(in-package :cl-user)

 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defun build ()
     (ql:quickload :todo-backend)
     (handler-case
         (progn (setq sb-alien::*shared-objects* nil)
                (save-lisp-and-die (car (last (uiop:command-line-arguments)))
                                   :executable t
                                   :toplevel (find-symbol "MAIN" :fwoar.todo)
                                   :save-runtime-options t
                                   :compression 5))
       (serious-condition (c)
         (format t "~&fail: ~a~%" c)
         (sb-ext:exit :code 1)))))

 (build)