Moonchild/fancy-build
1
0
Fork 1
Code Issues Pull Requests Releases Activity

get rid of aunless (because - will always be nil in its body); remove shameful vestiges from the asd file

Browse Source
This commit is contained in:
Moonchild 2020-11-12 00:35:09 -08:00
parent 5b79bc0b42
commit 7b5702a41a
2 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fb.asd
View File

@ -3,7 +3,6 @@
(defsystem "fb" (defsystem "fb"
:name "Fancy Build" :name "Fancy Build"
;:serial nil
:pathname "src/" :pathname "src/"
:depends-on (#:osicat #:ironclad #:cl-conspack) :depends-on (#:osicat #:ironclad #:cl-conspack)
@ -13,7 +12,6 @@
(:file "parallel-build" :depends-on ("dependable" "misc")) (:file "parallel-build" :depends-on ("dependable" "misc"))
(:file "buildables/rebuilt-on-file-change" :depends-on ("dependable")) (:file "buildables/rebuilt-on-file-change" :depends-on ("dependable"))
(:file "fb-entry" :depends-on ("dependable" "parallel-build" "misc"))) (:file "fb-entry" :depends-on ("dependable" "parallel-build" "misc")))
;(:file "x" :depends-on ("y" "z"))
:build-pathname "fb" :build-pathname "fb"
:entry-point "fancybuild:main") :entry-point "fancybuild:main")

3
src/misc.lisp
View File

@ -11,9 +11,6 @@
(defmacro awhen (test &body body) (defmacro awhen (test &body body)
`(let ((- ,test)) `(let ((- ,test))
(when - ,@body))) (when - ,@body)))
(defmacro aunless (test &body body)
`(let ((- ,test))
(unless - ,@body)))
(defun stdout-tty-p () (interactive-stream-p *standard-output*)) (defun stdout-tty-p () (interactive-stream-p *standard-output*))