diff options
| author | Colin Okay <okay@toyful.space> | 2020-12-13 11:01:10 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2020-12-13 11:01:10 -0600 |
| commit | 1c9c78d917d86632c176084352bbe90698a6c5da (patch) | |
| tree | 735469dd7fa2b6d280b73b8c389630573e0d8de8 /functions.lisp | |
| parent | a2fcc41e193f68ce8cf5901523e9276723deb88a (diff) | |
monadic>
Diffstat (limited to 'functions.lisp')
| -rw-r--r-- | functions.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/functions.lisp b/functions.lisp index 3c06f79..8296f87 100644 --- a/functions.lisp +++ b/functions.lisp @@ -7,7 +7,7 @@ (setf arg (funcall fn arg)))) (defun all> (arg &rest preds) - "Predicate Filter. Returns ARG if (PRED ARG) is non-NIL for each + "Predicate Filter. Returns ARG if (PRED ARG) is non-NIL for every PRED in PREDS" (dolist (pred preds arg) (unless (funcall pred arg) @@ -15,6 +15,8 @@ PRED in PREDS" (defun some> (arg &rest preds) + "Predicate filter. Returns ARG if (PRED ARG) is non-NIL for any PRED +in PREDS." (dolist (pred preds nil) (when (funcall pred arg) (return-from some> arg)))) |