:test使い回し

同じ:testを指定するのが面倒 - 'T - cadr group
これxyzzyにも欲しいなーと思いつつ、以前scratchでxhr使って遊んでる時にこんな風にパラメータ使い回した事あったなと思いだした。

(member "bar"
        (delete "foo"
                (delete-duplicates
                  (copy-list '(delete "foo" "bar" "baz" "foo" "FOO"))
                  . #1=(:test #'string=)) . #1#) . #1#)

atapはg000001さんオリジナルかな? みんなパクるといいと思う。