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

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

(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)

您好，我是有问必答小助手，您的问题已经有小伙伴帮您解答，感谢您对有问必答的支持与关注！
PS：问答VIP年卡 【限时加赠：IT技术图书免费领】，了解详情>>> https://vip.csdn.net/askvip?utm_source=1146287632