diff options
| -rw-r--r-- | hofs.lisp | 6 | ||||
| -rw-r--r-- | package.lisp | 1 |
2 files changed, 7 insertions, 0 deletions
@@ -21,3 +21,9 @@ PRED, THEN, and ELSE are assumed to accept the same arguments." when (apply pred args) return (apply fn args)))) +(defun mapped (fn1 &rest fns) + "Return a function the arguments of which are applied to (FN1 . FNS), +returning a list of return values." + (lambda (&rest args) + (loop :for fn :in (cons fn1 fns) + :collect (apply fn args)))) diff --git a/package.lisp b/package.lisp index 2db36f3..45c1374 100644 --- a/package.lisp +++ b/package.lisp @@ -3,5 +3,6 @@ (defpackage #:lambda-riffs (:use #:cl) (:export #:closure + #:mapped #:lambda-if #:lambda-cond)) |