diff options
Diffstat (limited to 'hofs.lisp')
-rw-r--r-- | hofs.lisp | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -27,3 +27,12 @@ returning a list of return values." (lambda (&rest args) (loop :for fn :in (cons fn1 fns) :collect (apply fn args)))) + + +(defun rev (fn) + "Return a function that applies its arguments to FN in reverse order. + +E.g. (funcall (rev #'cons) 1 2) ;; (2 . 1)" + (lambda (&rest args) + (apply fn (reverse args)))) + |