Найти слова, которые есть в первом предложении, но отсутствуют во втором

(defun task (s1 s2)
  (let ((l1 (strWords s1))
        (l2 (strWords s2)))
   (remove-if-not (lambda (x) (member x l2)) l1)))
 
==> TASK
 
(task "я иду и пою" "a я иду шагаю по Москве")
 
==> ("я" "иду")

(defun word-set-difference (a b)
  (symbols-to-strings (set-difference (string-list a)
                                      (string-list b))))
 
(defun symbols-to-strings (w)
  (when w (cons (string (car w)) (symbols-to-strings (cdr w)))))
 
(defun string-list (s) 
  (read-from-string
   (concatenate
    'string "(" (delete-if-not #'(lambda (x)
                                   (or (alpha-char-p x)
                                       (equal x #\space)
                                       (equal x #\-)))
                               s) ")")))
 
> (word-set-differnce "aa b-b cc" "cc dd")
("AA" "B-B")

(defun word-set-difference (a b)
  (loop for a in (set-difference (string-list a)
                                 (string-list b))
        collect (string a)))
 
(defun string-list (s) 
  (read-from-string
   (concatenate
    'string "(" (delete-if-not #'(lambda (x)
                                   (or (alpha-char-p x)
                                       (equal x #\space)
                                       (equal x #\-)))
                               s) ")")))
 
> (word-set-difference "aa b-b cc" "cc dd")
("AA" "B-B")

(defun word-set-difference (a b)
  (mapcar #'string (set-difference (string-list a)
                                   (string-list b))))
 
(defun string-list (s) 
  (read-from-string
   (concatenate
    'string "(" (delete-if-not #'(lambda (x)
                                   (or (alpha-char-p x)
                                       (equal x #\space)
                                       (equal x #\-)))
                               s) ")")))
 
> (word-set-difference "aa b-b cc" "cc dd")
("AA" "B-B")