1.  
  2. (defun no-dups (x)
  3.   (cond ((endp x) nil)
  4.         ((not (set-memberp (car x) (cdr x))) (cons (car x) (no-dups 
  5. (cdr x))))
  6.         (t (no-dups (cdr x)))))