From 171f39f340f1799060968c608cf2c096f3eb3aee Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 8 Jul 2021 23:27:48 -0700 Subject: (remove-if #'null ...) -> (remove nil ...) & similarly for DELETE-IF Signed-off-by: Sean Whitton --- src/combinator.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/combinator.lisp') 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) -- cgit v1.2.3