From 76ce9621e57a51c4dff7f89f86bf32c105780de7 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 13 Aug 2020 09:44:17 -0500 Subject: tweaks and fixes, an a kind of threading/composition function pair --- lambda-tools.lisp | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'lambda-tools.lisp') 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))) + -- cgit v1.2.3