Pascal Costanza wrote:

(defun count (element list)
(loop for x in list
count (eql x element)))

newLISP

(count '(c) '(b c d f c g h c))
===>
(3)

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)