Бинарное дерево на основе многоуровневых списков

(defun tst() (setq tree (list t "tree" (list (list 1 1 (list (list 1 11 (list nil nil)) (list 2 12 (list nil nil)))) (list 2 2 (list (list 1 21 (list nil nil)) (list 2 22 (list nil nil))))))) tree)
 
(defun getkey(l tr &optional k) (if (not k)
                         (setq k 0))
                                 (cond ((or (> k (length l)) (= k (length l)))
                        (return tr))
                           (getkey l (cond ((eq (nth k l) (nth 0 (nth 0 (nth 2 tr))))
                                (nth 0 (nth 2 tr)))
                                   ((eq (nth k l) (nth 0 (nth 1 (nth 2 tr))))
                                (nth 0 (nth 2 tr)))
                                   (return nil))
                               (+ k 1))))

(defun add-in-tree (tree item)
   (cond ((null (car tree)) (rplaca tree item))
         ((> (car tree) item) (cond ((null (cadr tree)) (rplaca (cdr tree) (list item nil nil))) 
                                    (t (add-in-tree (cadr tree) item))))
         ((< (car tree) item) (cond ((null (caddr tree)) (rplaca (cddr tree) (list item nil nil)))
                                    (t (add-in-tree (caddr tree) item))))
         (t t)))
 
==> add-in-tree
 
(setq *tree* '(nil nil nil))
 
==> (NIL NIL NIL)
 
(dolist (i '(-1 3 1 2 7 8 -6) *tree*)
  (add-in-tree *tree* i))
 
==> (-1 (-6 NIL NIL) (3 (1 NIL (2 NIL NIL)) (7 NIL (8 NIL NIL))))