aboutsummaryrefslogtreecommitdiff
path: root/functions.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'functions.lisp')
-rw-r--r--functions.lisp30
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)))
-
-
-