Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 3d51dee097
Fetching contributors…

Cannot retrieve contributors at this time

file 52 lines (48 sloc) 1.588 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
#+sbcl(require 'sb-posix)
#+clisp(load (merge-pathnames "lib/asdf.lisp" (ext:default-directory)))
(push (merge-pathnames "lib/"
#+sbcl(values *default-pathname-defaults*)
#+ccl(ccl::current-directory-name)
#+clisp(ext:default-directory)) asdf:*central-registry*)

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

#+sbcl(sb-ext:save-lisp-and-die "yashmup"
:toplevel (lambda ()
(sb-posix:putenv
(format nil "SBCL_HOME=~A"
#.(sb-ext:posix-getenv "SBCL_HOME")))
(yashmup::main)
0)
:executable t)

#+ccl(progn
       (ccl::save-application "yashmup"
:toplevel-function
(lambda ()
(cffi:define-foreign-library sdl
(t (:default "libSDL")))
(cffi:define-foreign-library sdl-mixer
(t (:default "libSDL_mixer")))
(cffi:define-foreign-library sdl-image
(t (:default "libSDL_image")))
(cffi:use-foreign-library sdl)
(cffi:use-foreign-library sdl-mixer)
(cffi:use-foreign-library sdl-image)
(yashmup::main)
(ccl::quit))
:prepend-kernel t))

#+clisp(ext:saveinitmem "yashmup"
:init-function (lambda ()
(cffi:define-foreign-library sdl
(t (:default "libSDL")))
(cffi:define-foreign-library sdl-mixer
(t (:default "libSDL_mixer")))
(cffi:define-foreign-library sdl-image
(t (:default "libSDL_image")))
(cffi:use-foreign-library sdl)
(cffi:use-foreign-library sdl-mixer)
(cffi:use-foreign-library sdl-image)
(yashmup::main)
(ext:quit))
:norc t
:script t
:executable t
:quiet t)
Something went wrong with that request. Please try again.