REDUCE args

[ALR%OZ.AI.MIT.EDU@XX.LCS.MIT.EDU]

Does anybody else wish that REDUCE took a KEY argument, similarly to MEMBER.
i.e.

(reduce #'+ list-of-objects :KEY #'object-quantity)

would apply the function OBJECT-QUANTITY to each element of the
list-of-objects before reducing it with +.

Andrew