15 lines
334 B
Common Lisp
15 lines
334 B
Common 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)
|