Basic duplicates check; table is a fast alist that associates already-seen elements with t.
Function:
(defun hons-dups-p1 (l tab) (declare (xargs :guard t)) (cond ((atom l) (ansfl nil tab)) ((hons-get (car l) tab) (ansfl l tab)) (t (hons-dups-p1 (cdr l) (hons-acons (car l) t tab)))))