Записать каждое предложение текста в порядке возрастания количества гласных букв в слове

(defun split (s &optional ac (p (position #\Space s)))
  (cond ((zerop (length s)) ac)
        (p (split (subseq s (1+ p)) (cons (subseq s 0 p) ac)))
        ((cons (subseq s 0) ac))))
 
(defun ws (w)
 (mapcar #'(lambda (a) (coerce a 'list)) w))
 
(defun cn (w &optional (n 0))
  (cond ((null w) n)
        ((member (car w) '(#\a #\e #\i #\o #\u))
         (cn (cdr w) (1+ n)))
        ((cn (cdr w) n))))
 
(defun ez (w)
  (mapcar #'(lambda (e) (list e (cn e))) w))
 
(defun ts (w)
  (sort w #'< :key #'cadr))
 
(defun join (w)
  (apply #'concatenate 'string (mapcar #'string w)))
 
(defun dm (w)
  (cond ((null w) nil)
        ((cons (join (caar w)) (dm (cdr w))))))
 
(defun ju (w)
  (format nil "~{~A~^ ~}" w))
 
(defun sort-vowels< (w)
  (ju (dm (ts (ez (ws (split w)))))))
 
> (sort-vowels< "aaaw aaw aww w")
"w aww aaw aaaw"

;; Подсчет числа русских гласных в списке букв
 
(defun count-vow (lst)
  (cond ((null lst) 0)
        ((member (car lst) '(а е и о у ы ю я)) (+ 1 (count-vow (cdr lst))))
        (t (count-vow (cdr lst)))))
 
;; Построение списка пар (Число_гласных . слово)
 
(defun mk-pair (sent)
  (mapcar #'(lambda (x) (cons (count-vow (explode x)) x)) sent))
 
;; Сортировка списка пар по CAR
 
(defun vsort (x) 
   (COND ((NULL x) NIL) 
         (T (APPEND (vsort (remove-if (FUNCTION (LAMBDA (z) (> (car z) (CAAR x)))) (CDR x)))
                    (LIST (CAR x))
                    (vsort (remove-if (FUNCTION (LAMBDA (z) (<= (car z) (CAAR x)))) (CDR x)))))))
 
;; Построить "предложение" из списка пар
 
(defun mk-sent (lst)
  (mapcar #'(lambda (x) (cdr x)) lst))
 
;; Решение
 
(defun task (lst-sent)
  (mapcar #'(lambda (x) (mk-sent (vsort (mk-pair x)))) lst-sent))
 
;; Проверка:
 
(task '((Однажды в студеную зимнюю пору) 
         (Белая береза под моим окном) 
         (Мой дядя самых честных правил)))
 
==> ((в пору зимнюю Однажды студеную)
       (под окном моим береза Белая) 
      (Мой правил честных самых дядя))