From a6f672f53e924811ead5970815ef6b845c944607 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 14 Jul 2020 10:42:28 -0500 Subject: removed alexandria dep --- lambda-tools.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lambda-tools.lisp') 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) -- cgit v1.2.3