aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lambda-tools.asd1
-rw-r--r--lambda-tools.lisp5
-rw-r--r--package.lisp2
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))