diff options
Diffstat (limited to 'functions.lisp')
-rw-r--r-- | functions.lisp | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/functions.lisp b/functions.lisp deleted file mode 100644 index aeccbb3..0000000 --- a/functions.lisp +++ /dev/null @@ -1,30 +0,0 @@ -;;;; lambda-tools.lisp - -(in-package #:lambda-riffs) - -(defun threading> (arg &rest fns) - (dolist (fn fns arg) - (setf arg (funcall fn arg)))) - -(defun all> (arg &rest preds) - "Predicate Filter. Returns ARG if (PRED ARG) is non-NIL for every -PRED in PREDS" - (dolist (pred preds arg) - (unless (funcall pred arg) - (return-from all> nil)))) - - -(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)))) - - -(defun <> (&rest fns) - (lambda (arg) - (apply #'>> arg fns))) - - - |