두개의 리스트 비교하는 식을 만들려고합니다

안녕하세요


(setq a ‘( 1 2 3 4 5 6 4 3 2 1 1 1 ))
(setq b (vl-sort a ‘<))

하면
a=(1 2 3 4 5 6 4 3 2 1 1 1)
b=(1 2 3 4 5 6)

이 되는데요
저는 a 에 있는 리스트 중에서 b에 있는 리스트를 빼고
나머지중에서 한개씩만 c=( 1 2 3 4 ) 를 구하고 싶습니다
vl-sort  함수가 중복되는것은 지우고 한개씩만 남겨놓은것이라면
반대로 리스트중에서 한개씩만 지우고 나머지 것만 리스트로 뽑고싶습니다
(setq ab (mapcar ‘(lambda (a b)(- a b) a b)))
(setq c (vl-sort ab ‘<))
이런식으로 해볼려고 합니다 그런데,,,,
분홍색 수식에서 어떻게 해야할지를 모르겠습니다
수식 조합 부탁드립니다
더 쉬운방법있으면 염치없지만 알려주세요
복 많이 많이 받으세요
꾸벅,,,,