Функция Lexorder1 - Lisp

Формулировка задачи:

Функция LEXORDER1 работает аналогично описанной выше функции LEXORDER, за одним существенным исключением: значением третьего аргумента должен быть список, состоящий из списков, а не атомов. Когда выполняется сравнение i-й пары атомов, то в качестве упорядочивающего используется i-й элемент значения третьего аргумента. Вот примеры работы с функцией LEXORDER1 : (lexorder1 '(b c) '(d e) '((d b u v) (a b c d)))==> NIL (lexorder1 '(a b c) '(a d e) '((a b c d) (b d u v)) (1 2 3))==> T (lexorder1 '(a b w) '(a b z) '((a b c d) (1 2 3) (b d u v)))==> orderundef

Пожалуйста помогите написать функцию Lexorder1

Решение задачи: «Функция Lexorder1»

textual
                            Листинг программы 
                        
                            (getd 'lexorder)
 
==> (EXPR (x y L) (COND ((NULL x) T) ((NULL y) NIL) ((equal (CAR x) (CAR y)) (lexorder (CDR x) (CDR y) L)) (T (order1 (CAR x) (CAR y) L))))