get rid of aunless (because - will always be nil in its body); remove shameful vestiges from the asd file
This commit is contained in:
parent
5b79bc0b42
commit
7b5702a41a
2
fb.asd
2
fb.asd
@ -3,7 +3,6 @@
|
||||
|
||||
(defsystem "fb"
|
||||
:name "Fancy Build"
|
||||
;:serial nil
|
||||
:pathname "src/"
|
||||
|
||||
:depends-on (#:osicat #:ironclad #:cl-conspack)
|
||||
@ -13,7 +12,6 @@
|
||||
(:file "parallel-build" :depends-on ("dependable" "misc"))
|
||||
(:file "buildables/rebuilt-on-file-change" :depends-on ("dependable"))
|
||||
(:file "fb-entry" :depends-on ("dependable" "parallel-build" "misc")))
|
||||
;(:file "x" :depends-on ("y" "z"))
|
||||
|
||||
:build-pathname "fb"
|
||||
:entry-point "fancybuild:main")
|
||||
|
@ -11,9 +11,6 @@
|
||||
(defmacro awhen (test &body body)
|
||||
`(let ((- ,test))
|
||||
(when - ,@body)))
|
||||
(defmacro aunless (test &body body)
|
||||
`(let ((- ,test))
|
||||
(unless - ,@body)))
|
||||
|
||||
(defun stdout-tty-p () (interactive-stream-p *standard-output*))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user