(defpackage :fwoar.build
  (:use :cl)
  (:export make))
(in-package :fwoar.build)

#.(progn (ql:quickload :alexandria) nil)

(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)))

;; #.(progn
;;     (load "~/quicklisp/setup.lisp")
;;     nil)

(stepwise
  ((defun load-compile (pn)
     (load (compile-file pn))))

  ((ql:quickload :cffi-grovel))
  ((princ
    (mapcar 'load-compile
            (remove #\.
                    (directory (merge-pathnames "*.asd"
                                                *load-pathname*)) 
                    :key 'pathname-name 
                    :test 'alexandria:starts-with)))
   (terpri))

  ((ql:quickload :daydreamer))

  ((asdf:operate :static-program-op :daydreamer))
  #+nil
  ((asdf/driver:symbol-call :daydreamer.cli :dump))
  
  ((sb-ext:quit)))