Работа со словами в форме списков

>(словарь '((Ф у н к ц и я) (цикл) (р е к у р с и я)))
(Р Е К У Р С И Я) (Ф У Н К Ц И Я) (Ц И К Л))

>(словарь '((Ф у н к ц и я) (цикл) (р е к у р с и я)))
((Ц И К Л) (Р Е К У Р С И Я) (Ф У Н К Ц И Я))

>(defun РАНЬШЕ-Р (а b порядок)
       (cond ((null порядок) nil)
                ((eq a (car порядок)) t) ;А раньше
                ((eq b (car порядок)) nil) ;В раньше
                (t (РАНЬШЕ-Р a b (cdr порядок)))))
РАНЬШЕ-Р
>(раньше-р 'b 'e '(a b с d е))
Т
>(вставь 'b '(а с d) '(a b с d e))
(А В С D)

(defun раньше-р (a b порядок) 
  (COND ((NULL порядок) NIL)
        ((EQ a (CAR порядок)) T)
        ((EQ b (CAR порядок)) NIL) 
        (T (РАНЬШЕ-Р a b (CDR порядок)))))
 
(defun cmp-words (w1 w2 seq &optional (ww1 w1) (ww2 w2))
  (cond ((and (null w1) (null w2)) ww1)
        ((and (null w1) w2) ww1)
        ((and (null w2) w1) ww2)
        ((eq (car w1) (car w2)) (cmp-words (cdr w1) (cdr w2) seq ww1 ww2))
        ((РАНЬШЕ-Р (car w1) (car w2) seq) ww1)
        (t ww2))) 
 
(defun min-word (wlist seq &optional (minw (car wlist)))
  (cond ((null wlist) minw)
        (t (min-word (cdr wlist) seq (cmp-words (car wlist) minw seq)))))
 
 
(defun sort-words (wlist seq)
  (cond ((null wlist) nil)
        (t (let ((minw (min-word wlist seq)))
           (cons minw (sort-words (removef minw wlist) seq))))))
 
(sort-words '((b o t) (b a t t) (a 1) (a 0))  '(0 1 2 3 4 5 6 7 8 9 a b c d e f g h i j k l m n o p q r s t u v w x y z))
 
==> ((a 0) (a 1) (b a T T) (b o T))