blob: 63f5c4d1251f7a2a65cec4f64b83ced1c496e1c8 (
plain)
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)))
|