;macro
(defmacro find-element-with-multiple-strategies (value l (&body strategies))
       `(cond
          ,@(find-element ,value ,l #'strategies)))

;expansion
(cond
    (find-element 1 '(1 2 3) #'(lambda () '()))
    (find-element 1 '(1 2 3) #'(lambda () t)))