lambda-tools.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

;;;; lambda-tools.lisp

(in-package #:lambda-tools)

(defun >> (arg &rest fns)
  (dolist (fn fns)
    (setf arg (funcall fn arg)))
  arg)


(defun <> (&rest fns)
  (lambda (arg)
    (apply #'>> arg fns)))