(define-syntax cond-list
  (syntax-rules ()
    ((cond-list) (list))
    ((cond-list (c e) rest ...)
     (let ((tail (cond-list rest ...)))
       (if c
           (cons e tail)
           tail)))))