diff options
Diffstat (limited to 'lambda-tools.lisp')
-rw-r--r-- | lambda-tools.lisp | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lambda-tools.lisp b/lambda-tools.lisp index ecad381..24e3cb2 100644 --- a/lambda-tools.lisp +++ b/lambda-tools.lisp @@ -38,3 +38,14 @@ the preceding predicates in the list returned non-NIL." ((funcall (car preds) x) (conj x (cdr preds)))))) (lambda (x) (conj x predicates)))) + +(defun >> (arg &rest fns) + (dolist (fn fns) + (setf arg (funcall fn arg))) + arg) + + +(defun <> (&rest fns) + (lambda (arg) + (apply #'>> arg fns))) + |