Небольшой вопрос по спискам

(defun isOut(X);Проверка на выход за границы доски
(cond
    ((and (< 0 (car X)) (> 9 (car X)) (< 0 (cdr X)) (> 9 (cdr X))) T);Если координата X от 1 до 8 возвращяем T
        (T nil);Если она пуста то nil
)
)
 
(defun isVisited(X Y);Проверка наличия координаты X в списке Y
(cond
    ((null X) nil)
        ((null Y) nil)
        ((and (= (car X) (caar Y)) (= (cdr X) (cdar Y))) T);Если координаты равны возвращяем T
        (T (isVisited X (cdr Y)));Иначе рекурсивно вызываем функцию
)
)
 
(defun isCorr(From Dest);Проверка на эквивалент, равна ли точка отправления прибытию
(cond
    ((equal From Dest) T)
        (T nil)
)
)
 
(defun find_path(From Visited Dest)
(cond
    ((and (< 0 (length result)) (< (length result) (length (cons from visited)))) nil)
        ((or (isVisited From Visited) (Null (isOut From))) nil);Если мы были в текущей ячейке то возврат nil или вышли за границы доски
    ((isCorr From Dest);Проверка пришли ли мы в заданную позицию
        (cond 
            ((> 1 (length result)) (setq result (cons from visited)) nil)
                ((> (length result) (length (cons from visited))) (setq result (cons from visited)) nil)
            (T nil)
        )
    )
        (T
        (or
                        (find_path (cons (+ (car From) 1) (+ (cdr From) 2)) (cons From Visited) Dest);X+1 Y+2
                        (find_path (cons (+ (car From) 1) (- (cdr From) 2)) (cons From Visited) Dest);X+1 Y-2
                        (find_path (cons (- (car From) 1) (+ (cdr From) 2)) (cons From Visited) Dest);X-1 Y+2
                    (find_path (cons (- (car From) 1) (- (cdr From) 2)) (cons From Visited) Dest);X-1 Y-2
                        (find_path (cons (+ (car From) 2) (+ (cdr From) 1)) (cons From Visited) Dest);X+2 Y+1
                        (find_path (cons (+ (car From) 2) (- (cdr From) 1)) (cons From Visited) Dest);X+2 Y-1
                        (find_path (cons (- (car From) 2) (+ (cdr From) 1)) (cons From Visited) Dest);X-2 Y+1
                        (find_path (cons (- (car From) 2) (- (cdr From) 1)) (cons From Visited) Dest);X-2 Y-1
                 )
    )
)
)
 
(defun path(From Visited Dest)
  (setq result nil)
  (find_path From Visited Dest)
  (prnLS result)
 )
(defun prnLS(list)
(cond
    ((null list) 0)
    (t
        (prnls (cdr list))
        (print (car list))
        
    )
)
)
(defun solution(From To)
    (path From '() To)
)
(solution '(1 . 1) '(2 . 2))

'(a b c . d) <=> (cons a (cons b (cons c d)))
'(a b c d) <=> (cons a (cons b (cons c (cons d nil))))