diff options
Diffstat (limited to 'lambda-tools.lisp')
-rw-r--r-- | lambda-tools.lisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lambda-tools.lisp b/lambda-tools.lisp index 4b3ec86..9675c0a 100644 --- a/lambda-tools.lisp +++ b/lambda-tools.lisp @@ -16,9 +16,8 @@ PREDICATES have side effects, they will be executed only if each of the preceding predicates in the list returned NIL." (labels ((disj (x preds) (if (null preds) nil - (if-let (res (funcall (car preds) x)) - res - (disj x (cdr preds)))))) + (or (function pred x) + (disj x (cdr preds)))))) (lambda (x) (disj x predicates)))) (defun $and (&rest predicates) |