CL-USER> (let ((foo '(1 2 3)) (y '(2 4))) (loop for x in foo unless (member x y :test #'=) collect x)) ;; -> (1 3)