;; load nova
(declaim (sb-ext:muffle-conditions sb-ext:compiler-note))
(require 'asdf)
(require 'sb-bsd-sockets)
(asdf:operate 'asdf:load-op 'wvu-lib)
(asdf:operate 'asdf:load-op 'xomo)
(asdf:operate 'asdf:load-op 'nova-web)
(wvu-lib.guess:init-db)
;; build bin
(save-lisp-and-die "bin/nova-web"
                   :toplevel #'(lambda ()
                                 (wvu-lib.tricks:reset-seed (get-universal-time))
                                 (with-open-file (s "/dev/stdin" :element-type '(unsigned-byte 8))
                                   (let* ((*standard-input* s)
                                          (status (if (nova-web.xml:nova-xml-standard-io-interface)
                                                      0
                                                      1)))
                                     (sb-ext:quit :unix-status status))))
                   :executable t
                   :purify t)