[求助]请教关于VL-SORT排序丢失元素的问题！

agmn

我想将一组(x y z)坐标的串行按照先x从小到大，再z从小到大，最后y从小到大的顺序排序。
我用以下方法排序：
(setq vllst (vl-sort lst '(lambda (p1 p2)
  (cond
   ((/= (car p1) (car p2))(< (car p1) (car p2)))
   ((and (= (car p1) (car p2)) (/= (caddr p1) (caddr p2))) (< (caddr p1) (caddr p2)))
   ((and (= (car p1) (car p2)) (= (caddr p1) (caddr p2))(/= (cadr p1) (cadr p2)))(< (cadr p1) (cadr p2)))
   (T NIL)
  ))))

串行元素少的情况下排序正常，为什么元素一多，排序后就会少很多元素？

如下面的例子，排序前有25个元素，排序后始终只有18个，总要丢掉几个，我的串行里没有重复的元素啊。

请高手帮我看看我的程序是不是有问题，或者哪位高手帮我写一段解决下我的问题。

论坛的关于排序的帖子我都看了好几遍了，高手们提供了很多方法，但我始终没找到一个适合我这种情况的，要么就是只能单一的按x或者y排序，要么就有些我调试通不过，要么就没有源码。

程序如下：

(defun c:px()

(setq lst
'((12 300.000 -400.000)
 (16 400.000 -300.000)
 (16 400.000 -400.000)
(12 300.000 -300.000)
 (4 100.000 -400.000)
(8 200.000 -300.000)
(1 0.000000 300.000)
 (1 0.000000 400.000)
 (8 200.000 -400.000)
(4 100.000 -300.000)
(12 300.000 -200.000)
 (12 300.000 0)
 (16 400.000 -100.000)
(16 400.000 0)
(16 400.000 -200.000)
 (12 300.000 -100.000)
 (4 100.000 -200.000)
 (4 100.000 0)
(8 200.000 -100.000)
(1 0.000000 100.000)
 (8 200.000 0)
 (1 0.000000 200.000)
(8 200.000 -200.000)
 (4 100.000 -100.000)
 (1 0.000000 0))
)

(setq vllst (vl-sort lst '(lambda (p1 p2)
  (cond
   ((/= (car p1) (car p2))(< (car p1) (car p2)))
   ((and (= (car p1) (car p2)) (/= (caddr p1) (caddr p2))) (< (caddr p1) (caddr p2)))
   ((and (= (car p1) (car p2)) (= (caddr p1) (caddr p2))(/= (cadr p1) (cadr p2)))(< (cadr p1) (cadr p2)))
   (T NIL)
  )
  )
  )
  )

(princ "\n")(princ "排序前共")(princ (LENGTH lst))(princ "个元素,分别为：")(princ lst)(princ "\n")
(princ "\n")(princ "排序后共")(princ (LENGTH vllst))(princ "个元素,分别为：")(princ vllst)(princ "\n")
)

agmn