[Order of arguments to sequence :TEST functions]

[RpK%acorn@oak.lcs.mit.edu]

> Date: Mon, 29 Feb 88 09:34 EST
> From: David C. Plummer <DCP@QUABBIN.SCRC.Symbolics.COM>
> Subject: Order of arguments to sequence :TEST functions
> To: common-lisp@sail.stanford.edu
> 
> CLtL page 247 says
> 	... (funcall testfn item (keyfn x)) ...
> I'm curious to know why this order was chosen instead of
> 	... (funcall testfn (keyfn x) item) ...

Well, one nice property about this is that

   (find-if pred seq ...)

is equivalent to

   (find pred seq :test #'funcall ...)