4
20
16
初来乍到
使用道具 举报
35
2471
2447
初露锋芒
(equal (type "abc") 'STR)
114
1万
中流砥柱
(vl-some '(lambda ( x ) (= 'str (type x))) <your list>)
(defun _stringinlist ( l ) (and l (or (= 'str (type (car l))) (_stringinlist (cdr l)))))
(vl-remove-if '(lambda(x) (equal (type x) 'STR)) listToProcess)
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-3-9 20:58 , Processed in 0.434346 second(s), 62 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端