path: root/make-image.lisp

#-sbcl
(error "This lisp implementation is not supported.")

(require 'asdf)

(asdf:oos 'asdf:load-op 'xmpp-send)

(save-lisp-and-die
 "xmpp-send" :toplevel
 (lambda ()
   (sb-posix:putenv (format nil "SBCL_HOME=~A" #.(sb-ext:posix-getenv "SBCL_HOME")))
   (org.ryuslash.xmpp-send:xmpp-send sb-ext:*posix-argv*)
   0)
 :executable t)