make-xiobreak-image.lisp

(require 'sb-posix)

(push (merge-pathnames "lib/" (values *default-pathname-defaults*))
      asdf:*central-registry*)

(asdf:oos 'asdf:load-op 'xe2)

(sb-ext:save-lisp-and-die "run-xiotank"
			  :toplevel (lambda ()
				      (sb-posix:putenv
				       (format nil "SBCL_HOME=~A" 
					       #.(sb-ext:posix-getenv "SBCL_HOME")))
				      (xe2:play "xiobreak")
				      0)
			  :executable t)