test, if obj is a duplicate in lst
(defun duplicate (obj lst &key (test #'eql)) "test, if obj is a duplicate in lst" (member obj (cdr (member obj lst :test test)) :test test))