请教关于(VL-SORT list comparision-function)函数的用法？

Ea

1. (mapcar  '(lambda (x)
2.        (nth  x
3.     '(a d c b a)
4.        )
5.    )
6.   (vl-sort-i
7.      '(a d c b a)
8.      '(lambda (s1 s2)
9.            (< (vl-symbol-name s1) (vl-symbol-name s2))
10.        )
11.   )
12. )

复制代码

badgirl

谢谢各位大侠!