帮忙看哪里出错了

namezg

(setq a '(3 4 0))
(setq b '(4 2 0))
;法一
(if (> (cadr a) (cadr b))
        (setq value a)
        (setq value b)
)
;;法二
(car (vl-sort (list a b) '(lambda (e1 e2) (> (cadr e1) (cadr e2)))))

newbuser

namezg 发表于 2014-12-3 20:19
(setq a '(3 4 0))
(setq b '(4 2 0))
;法一

多谢版主的解答，小弟汇存。