diff options
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)))) |