Function: BUILD-COMPOSE

Source

(defun build-compose (fns)
  (with-gensyms (g)
    `(lambda (,g)
      ,(labels ((rec (fns)
		     (if fns
			 `(,(rbuild (car fns))
			   ,(rec (cdr fns)))
			 g)))
	       (rec fns)))))