;;;@ Checks to see if a list has any duplicate MEMBERs. (define (cl:has-duplicates? lst) (cond ((null? lst) #f) ((member (car lst) (cdr lst)) #t) (else (cl:has-duplicates? (cdr lst)))))