chickadee » amb » count-member

(count-member OBJECT LS [eql? equal?]) => integerprocedure

Returns, using eql? for comparison, the number of times OBJECT referenced in LS.