compose functions

compose.lisp

(defun compose (&rest funcs)
  "compose functions, (compose f g) => (f (g args))"
  ;; at least one function is required
  (if (null funcs)
      nil
      (destructuring-bind (fn . rest) (reverse funcs)
        #'(lambda (&rest arguments)
            (reduce #'(lambda (v f)
                        (funcall f v))
                    rest
                    :initial-value (apply fn arguments))))))