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

[求助]请教关于vl-sort排序丢失元素的问题！
www.dimcax.com
[求助]请教关于vl-sort排序丢失元素的问题！
我想将一组(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
d
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
d