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 | |
| parent | 1b06f7b323b221243a1fdffcb3fc8c6d23ef2754 (diff) | |
removed alexandria dep
| -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)) |