求助：我编的这个程序怎么不能实现多重排序？

野狼谷/〈M〉

求助：我编的这个程序怎么不能实现多重排序？

(setq List1 '((3 11) (2 13) (1 13)(2 14) (3 10) (2 14) (3 11) (1 12)(4 12)))
(setq i 0)
(setq number 2)
(repeat        number
   (setq List1  (mapcar '(lambda (x) (nth x List1))
             (vl-sort-i        List1
                        (function (lambda (e1 e2)
                                       (< (nth i e1) (nth i e2))
                                  )
                        )
             )
     )
)
     (setq i (1+ i))
  
)
List1

nzl1116

(vl-sort (vl-sort List1 (function (lambda (x y) (< (cadr x) (cadr y)))))
(function (lambda (x y) (< (car x) (car y)))))

野狼谷/〈M〉

(defun mult-sort (lst / i )
            (setq i 1 )
          (while (> i 0)
               (vl-sort ( mult-sort lst)
                             (function (lambda (x y) (< (nth i x) (nth i y))))
                    )

          (setq i (1- i))
          )
     
)