From a6f672f53e924811ead5970815ef6b845c944607 Mon Sep 17 00:00:00 2001
From: Colin Okay <cbeok@protonmail.com>
Date: Tue, 14 Jul 2020 10:42:28 -0500
Subject: removed alexandria dep

---
 lambda-tools.asd  | 1 -
 lambda-tools.lisp | 5 ++---
 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))
-- 
cgit v1.2.3