e4881c6a |
(defpackage :fwoar.build
(:use :cl)
(:export make))
(in-package :fwoar.build)
|
5d168e1a |
#.(progn (ql:quickload :alexandria) nil)
|
e4881c6a |
(defmacro eval-always (&body body)
`(eval-when (:compile-toplevel :load-toplevel :execute)
,@body))
(defmacro stepwise (&body body)
`(progn
,@(mapcar (lambda (x)
`(eval-always
,@x))
body)))
|
36330a16 |
;; #.(progn
;; (load "~/quicklisp/setup.lisp")
;; nil)
|
e4881c6a |
(stepwise
((defun load-compile (pn)
(load (compile-file pn))))
|
36330a16 |
((ql:quickload :cffi-grovel))
|
e4881c6a |
((princ
(mapcar 'load-compile
|
36330a16 |
(remove #\.
(directory (merge-pathnames "*.asd"
*load-pathname*))
:key 'pathname-name
:test 'alexandria:starts-with)))
|
e4881c6a |
(terpri))
|
36330a16 |
((ql:quickload :daydreamer))
|
98dd2e66 |
|
36330a16 |
((asdf:operate :static-program-op :daydreamer))
|
a39907ca |
#+nil
|
36330a16 |
((asdf/driver:symbol-call :daydreamer.cli :dump))
|
5d168e1a |
((sb-ext:quit)))
|