diff options
| -rw-r--r-- | lambda-tools.asd | 1 | ||||
| -rw-r--r-- | lambda-tools.lisp | 5 | ||||
| -rw-r--r-- | package.lisp | 2 |
3 files changed, 2 insertions, 6 deletions
diff --git a/lambda-tools.asd b/lambda-tools.asd index f6e9bc7..31b5dbe 100644 --- a/lambda-tools.asd +++ b/lambda-tools.asd @@ -6,7 +6,6 @@ :license "GPLv3" :version "0.0.1" :serial t - :depends-on (:alexandria) :components ((:file "package") (:file "macros") (:file "lambda-tools"))) 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) diff --git a/package.lisp b/package.lisp index 3160113..d6a307d 100644 --- a/package.lisp +++ b/package.lisp @@ -2,8 +2,6 @@ (defpackage #:lambda-tools (:use #:cl) - (:import-from #:alexandria - #:if-let) (:export #:$$ #:$and #:$or)) |