(define (cl:subset? lst1 lst2) (or (eq? lst1 lst2) (let loop ((lst1 lst1)) (or (null? lst1) (and (member (car lst1) lst2) (loop (cdr lst1))))))) ;@