(xdef 'apply (lambda (fn . args)
               (ar-apply fn (ar-apply-args args))))

From ac.scm ©