aboutsummaryrefslogtreecommitdiff
path: root/src/combinator.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/combinator.lisp')
-rw-r--r--src/combinator.lisp3
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)