foo

make-forest-image.lisp

@@ -0,0 +1,22 @@
+(require 'sb-posix)
+
+(push (merge-pathnames "lib/" (values *default-pathname-defaults*))
+      asdf:*central-registry*)
+
+(asdf:oos 'asdf:load-op 'xe2)
+
+(cffi:close-foreign-library 'sdl-gfx-cffi::sdl-gfx)
+(cffi:close-foreign-library 'sdl-mixer-cffi::sdl-mixer)
+(cffi:close-foreign-library 'sdl-image-cffi::sdl-image)
+(cffi:close-foreign-library 'sdl-cffi::sdl)
+
+(sb-ext:save-lisp-and-die "sanctuary"
+			  :toplevel (lambda ()
+				      (sb-posix:putenv
+				       (format nil "SBCL_HOME=~A" 
+					       #.(sb-ext:posix-getenv "SBCL_HOME")))
+				      (xe2:play "forest")
+				      0)
+			  :executable t)
+
+