4 (proclaim '(optimize (debug 3)))
6 (defparameter *examples-defaults
* (merge-pathnames "examples/" *load-truename
*))
7 (format t
"Making examples in ~S~%" *examples-defaults
*)
9 (defvar *examples
* '("simple" "shader" "shader-arb" "triangle" "vbo" "gears" "keytest" "listmodes"))
11 (let ((load-library-lisp (make-pathname :name
"load-library" :type
"lisp" :defaults
*examples-defaults
*))
12 (load-library-object (make-pathname :name
"load-library" :type
"o" :defaults
*examples-defaults
*)))
13 (compile-file load-library-lisp
:system-p t
:verbose t
)
15 (dolist (example *examples
*)
16 (let ((lisp-file (make-pathname :name example
:type
"lisp" :defaults
*examples-defaults
*))
17 (object-file (make-pathname :name example
:type
"o" :defaults
*examples-defaults
*))
18 (exe-file (make-pathname :name example
:type
#-windows nil
#+windows
"exe" :defaults
*examples-defaults
*)))
19 (compile-file lisp-file
:system-p t
:verbose t
)
20 (c:build-program exe-file
:lisp-files
(list load-library-object object-file
)))))