cl:subset?   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

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


Back to Index