Рекурсивное превращение списков

(defun tree_mirror (tree)
  ((lambda (frec)
     (frec tree nil)
   )
    (lambda (tree revp)
      (if tree
    (if (listp (car tree))
      (cons (frec (car tree) (not revp))
        (frec (cdr tree) (not revp))
      )
      (if revp
        ((lambda (lst)
           ((lambda (x)
          (append
            (cdr (member (car x) lst))
            x
            (reverse (cdr (member (car x) (reverse lst))))
          )
        )
         (vl-remove-if 'atom lst)
           )
         )
          tree
        )
        tree
      )
    )
      )
    )
  )
)

(defun swap-list (lst)
  (let ((beg nil)
        (mid nil)
        (tail nil)
        (flg nil)) 
    (cond  ((Equal lst (list nil)) (list nil))
             (t (dolist (i lst (append beg (list (swap-list mid)) tail))
                  (when (and (not flg) (atom i)) (setq tail (cons i tail)))
                  (when (and i (listp i)) (setq mid i) (setq flg t))
                  (when (and flg (atom i)) (setq beg (append beg (list i)))))))))
           
==> swap-list
 
(swap-list '(a b c( d (e f ( g h i j ( k ( nil ) 1 2 ) 3 ) 4 ) 5 6 ) 7 8 9 10))
 
==> (7 8 9 10 (5 6 (4 (3 (1 2 (NIL) k) j i h g) f e) d) c b a)