defun UNION-

( defun UNION- (x y) (let ( (a-x (CAR x))
(d-x (CDR x)) )
(COND ((NULL x) y)
((MEMBER a-x y) (UNION d-x y) )
(T (CONS a-x (UNION d-x y)) ) ) ))

Содержание раздела

---