(require :asdf)
(require :uiop)

(setf *debugger-hook*
      (lambda (condition _)
        (declare (ignore _))
        (format t "~&Exiting with error:~2%~a~%" condition)
        (uiop:quit 42)))

(uiop:setup-command-line-arguments)

(mapcar 'asdf:load-asd (directory "*.asd"))

(asdf:load-system :activitypub-tools/webfinger-viewer)

(sb-ext:save-lisp-and-die "wfv"
                          :executable t
                          :toplevel 'activitypub-tools.webfinger-viewer:main)