build multiple targets at once from the command line

This commit is contained in:
Moonchild 2020-10-04 17:08:36 -07:00
parent d4052f2b04
commit 1467133c5d

@ -23,10 +23,13 @@
(setf *global-cache* (conspack:decode buf)))))
(load "fancy.build")
(let ((target (gethash (or (cadr sb-ext:*posix-argv*) "default") *targets*)))
(mapcar #'(lambda (target-name)
(let ((target (gethash target-name *targets*)))
(if target
(build target)
(format t "I don't know what to do with that...~%")))
(format t "No target named '~a'.~%" target-name))))
(or (cdr sb-ext:*posix-argv*) '("default")))
(with-open-file (fp "fancy.buildcache"
:direction :output