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/combinator.lisp | |
| 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/combinator.lisp')
| -rw-r--r-- | src/combinator.lisp | 3 |
1 files changed, 1 insertions, 2 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) |