lisp语言，列表中求元素出现次数

Question

lisp，定义一个列表，求某元素在该列表中出现次数（列表与元素可以随意举例，列表元素多一点较好）（代码举例）

Answer 1

(defun count-element (list element)
  (let ((count 0))
    (dolist (x list)
      (if (equal x element)
          (setf count (1+ count))))
    count))
(defun main ()
  (let ((list '(1 2 3 4 5 1 2 3 4 5))
        (element 1))
    (print (count-element list element))))
(main)