マクロに apply できない問題

with-short-circuiting.el

(defun or/l (args)
    (let ((r nil))
        (while (and args (null r))
            (setq r (or r (car args)))
            (setq args (cdr args)))
        r))

with-short-circuiting.scm

(define (or/l xs)
    (if (null? xs) #f
        (let1 x (car xs)
            (or x (or/l (cdr xs))))))

;; https://twitter.com/anohana/status/413272565629456384
(any values xs) ; ここまでくると define し直す意義ないか.

without-short-circuiting.scm

(define (or/l xs)
    (fold (lambda (r l) (or r l)) #f xs))