>> ...to be able to specify the test function in CASE. >> (selector item equalp ("foo" ...) ...) >> >> (case item :test #'equalp ("foo" ...) ...) >> >> (cond ((equalp item "foo") ...) ...) Of the three, I prefer the (case item :test #'equalp ("foo" ...) ...) But I would rather a separate function (case-with-test item equalp ...) ----- dgb: