diff options
author | Colin Okay <cbeok@protonmail.com> | 2020-07-14 10:42:28 -0500 |
---|---|---|
committer | Colin Okay <cbeok@protonmail.com> | 2020-07-14 10:42:28 -0500 |
commit | a6f672f53e924811ead5970815ef6b845c944607 (patch) | |
tree | 733dbcde761e5f9975696966c8377565e493da02 /lambda-tools.lisp | |
parent | 1b06f7b323b221243a1fdffcb3fc8c6d23ef2754 (diff) |
removed alexandria dep
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) |