From 7b5702a41add6b2dabe176959dd30c740dde1d4e Mon Sep 17 00:00:00 2001 From: Moonchild Date: Thu, 12 Nov 2020 00:35:09 -0800 Subject: [PATCH] get rid of aunless (because - will always be nil in its body); remove shameful vestiges from the asd file --- fb.asd | 2 -- src/misc.lisp | 3 --- 2 files changed, 5 deletions(-) diff --git a/fb.asd b/fb.asd index ca8dcb9..536ba2f 100644 --- a/fb.asd +++ b/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") diff --git a/src/misc.lisp b/src/misc.lisp index 32b808d..b113af5 100644 --- a/src/misc.lisp +++ b/src/misc.lisp @@ -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*))