; Common Lisp:
  (flet ((f (x y)
           (blah blah x y)))
    (remove-if-not f xs))

  ; Arc:
  (let f (fn (x y)
           (blah blah x y))
    (keep f xs))