|函数|说明|示例| |-|-|-| |(acad_strlsort lst)|按字母表顺序对字符串列表进行排序| |(append lst ...)|将多个列表合并为一个列表| |(assoc item alist)|搜索关联表中指定键值的元素| |(car lst)|返回列表的第一个元素|| |(cdr lst)|去掉列表的第一个元素|| |(cons new-first-element lst)|在列表头部添加一个元素，或构建一个点列表|| |(foreach name lst [expr ...])|对列表lst中的每个元素name，执行expr(expr可以是多个)|命令: (setq aa 0)(setq bb 9)(foreach n '(aa bb) (print n)(princ n))<br>AA AA<br>BB BBBB | |(last lst)|返回列表的最后一个元素|| |(length lst)|返回列表中元素的数量| |(list [expr ...])|用expr作为元素构成一个列表| |(listp item)|判断item的类型是不是列表| |(mapcar function list1 ... listn)|分别以list1 ... listn中的第1...n个元素作为参数，调用function，将n+1次调用的返回值组成列表作为mapcar的返回值。注意：列表的元素个数和function的参数个数要一致|命令: (mapcar '1+ (list 1 2 3))<br>(2 3 4)<br>命令:(mapcar '+ (list 1 2 3)(list 10 20 30))<br>(11 22 33)| |(member expr lst)|在lst中查找expr，如果找到，则返回自找到的位置往后的所有元素构成的列表；如果找不到，则返回nil|命令:(member 'c '(a b c d e))<br>(C D E)<br>命令:(member 'q '(a b c d e))<br>nil| |(nth n lst)|返回列表的第n个元素| |(reverse lst)|反转列表|命令:(reverse '((a) b c))<br>(C B (A))| |(subst newitem olditem lst)|将列表lst中所有的olditem，替换为newitem|| |(vl-consp list-variable)|判断一个列表是否为nil|| |(vl-every predicate-function list [ more-lists ...])|对列表中的每个元素，依次执行判断函数，如果每次执行的返回值都是t则返回t，否则返回nil|命令: (vl-every '(lambda (fnm) (> (vl-file-size fnm) 0))( vl-directory-files nil nil 1))<br>T| |(vl-list* object [more-objects ...])|待补充...|| |(vl-list->string char-codes-list)|将列表中的每个整数转换成其ascii码是这个整数的字符，然后将这些字符构成字符串|| |(vl-list-length list-or-cons-object)|返回“真正”的列表的元素的个数。对于点列表会返回nil|命令:(vl-list* 1 2 3)(vl-list-length aa)<br>nil<br>命令:(vl-list-length '(1 2 3))<br>3| |(vl-member-if predicate-function list)|list中是否有元素满足判定函数predicate-function|| |(vl-member-if-not predicate-function list)|list中是否有元素使判定函数返回nil| |(vl-position symbol list)|返回列表中指定元素的索引| |(vl-remove element-to-remove list)|删除列表中的指定元素|| |(vl-remove-if predicate-function list)|删除列表中满足判定函数的元素|| |(vl-remove-if-not predicate-function list)|删除列表中不满足判定函数的元素|| |(vl-some predicate-function list [more-lists ...])|判断列表中是否有元素使判定函数不返回nil|| (vl-sort list comparison-function)|用指定的比较函数对列表排序||| |(vl-sort-i list comparison-function)|用指定的比较函数对列表排序，返回排序后的列表的每个元素在排序前的列表中的索引构成的列表|命令: (vl-sort-i '("a" "d" "f" "c") '>)<br>(2 1 3 0) | |(vl-string->list string)|将一个字符串转化成其每个字符的字符码构成的列表|命令: (vl-string->list "12")<br>(49 50)|