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

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



(stepwise
  ((defun tr (v)
     (prog1 v
       (format t "~&tracing: ~s~%" v))))

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

  ((princ
    (mapcar 'load-compile
            (directory (merge-pathnames "*.asd"
                                        *load-pathname*))))
   (terpri))

  ((ql:quickload :daydreamer))

  ((asdf/driver:symbol-call :daydreamer.cli :dump)))