diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-08 23:27:48 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-10 21:31:38 -0700 |
commit | 171f39f340f1799060968c608cf2c096f3eb3aee (patch) | |
tree | 9bbc99da3ddd40b9a515145b58ddc66d9efaabae /src | |
parent | df4380caf8dc06deba98928191cd98b83d486e7e (diff) | |
download | consfigurator-171f39f340f1799060968c608cf2c096f3eb3aee.tar.gz |
(remove-if #'null ...) -> (remove nil ...) & similarly for DELETE-IF
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
-rw-r--r-- | src/combinator.lisp | 3 | ||||
-rw-r--r-- | src/data.lisp | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index fdb56e9..4814f6f 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -149,8 +149,7 @@ apply the elements of REQUIREMENTS in reverse order." (return-value :no-change) ;; Remove any null propapps because we don't want to print anything ;; for those, and applying them will do nothing. - (propapps - (remove-if #'null (if unapply (reverse propapps) propapps)))) + (propapps (remove nil (if unapply (reverse propapps) propapps)))) (labels ((propapp-apply (propapp) (if unapply (propappunapply propapp) (propappapply propapp))) (announce-propapp-apply (propapp) diff --git a/src/data.lisp b/src/data.lisp index c7f4094..cbcc138 100644 --- a/src/data.lisp +++ b/src/data.lisp @@ -407,7 +407,7 @@ Note that since prerequisite data sources are queried only in the root Lisp, but items of prerequisite data are never uploaded to the root Lisp, there is no risk of clashes between fresly generated files and cached copies of files." (let ((pn (apply #'data-pathname (get-local-data-cache-dir) - (delete-if #'null (list iden1 iden2 version))))) + (delete nil (list iden1 iden2 version))))) (ensure-directories-exist (if version pn (ensure-directory-pathname pn))))) |