（XD::List:ElementToString）表元素变字符串

Lispboy

1. ;|
   
2. 表元素变字符串
   
3. 参数：  lst  ---- 表
   
4.         mode ---- t 递归处理子表，所有元素都变，nil只处理第一层元素
   
5. 返回值：表
   
6. |;
   
7. (defun XD::List:ElementToString (lst mode)
   
8.   (mapcar
   
9.     '(lambda (x)
   
10.        (if (or (not mode)(ATOM x))
    
11.          (vl-princ-to-string x)
    
12.          (XD::List:ElementToString x mode)
    
13.        )
    
14.      )
    
15.     lst
    
16.   )
    
17. )
    
18. 
    

;|<br /> 表元素变字符串<br /> 参数：  lst  ---- 表<br />         mode ---- t 递归处理子表，所有元素都变，nil只处理第一层元素<br /> 返回值：表<br /> |;<br /> (defun XD::List:ElementToString (lst mode)<br />   (mapcar<br />     '(lambda (x)<br />        (if (or (not mode)(ATOM x))<br />          (vl-princ-to-string x)<br />          (XD::List:ElementToString x mode)<br />        )<br />      )<br />     lst<br />   )<br /> )<br /> <br />

sicky111

可以反向吗？

sicky111

("12" "abc" "456" "de")  ==>  (12 abc 456 de)