Function: BUILD-CALL

Source

(defun build-call (op fns)
  (with-gensyms (g)
    `(lambda (,g)
      (,op ,@(mapcar (lambda (f)
		       `(,(rbuild f) ,g))
		     fns)))))
Source Context