这个函数的作用是什么?

lucas3

请问大师们,
下面这个函数的作用是什么?

1. ; Load your Lisp files here...
   
2. (defun c:AtomsClean ( / lst)
   
3.   (princ
   
4.     (strcat
   
5.       "\nNumber of extra atoms: "
   
6.       (itoa
   
7.         (-
   
8.           (length (setq lst (vl-remove '*atoms_default* (atoms-family 0))))
   
9.           (length *atoms_default*)
   
10.         )
    
11.       )
    
12.     )
    
13.   )
    
14.   (mapcar
    
15.     '(lambda (atm)
    
16.       (if
    
17.         (and
    
18.           atm
    
19.           (= 'sym (type atm))
    
20.           (not (vl-position atm *atoms_default*))
    
21.         )
    
22.         (progn
    
23.           (print (vl-princ-to-string atm))
    
24.           (setq atm nil)
    
25.         )
    
26.       )
    
27.     )
    
28.     lst
    
29.   )
    
30.   (gc)
    
31.   (princ)
    
32. )

; Load your Lisp files here...<br /> (defun c:AtomsClean ( / lst)<br />   (princ<br />     (strcat<br />       "\nNumber of extra atoms: "<br />       (itoa<br />         (-<br />           (length (setq lst (vl-remove '*atoms_default* (atoms-family 0))))<br />           (length *atoms_default*)<br />         )<br />       )<br />     )<br />   )<br />   (mapcar<br />     '(lambda (atm)<br />       (if<br />         (and<br />           atm<br />           (= 'sym (type atm))<br />           (not (vl-position atm *atoms_default*))<br />         )<br />         (progn<br />           (print (vl-princ-to-string atm))<br />           (setq atm nil)<br />         )<br />       )<br />     )<br />     lst<br />   )<br />   (gc)<br />   (princ)<br /> )

还有这一句:
作用又是什么?

1. (setq *atoms_default* (atoms-family 0))

(setq *atoms_default* (atoms-family 0))

iLisp

缺省变量名称列表

lucas3

iLisp 发表于 2015-8-19 13:04
缺省变量名称列表

大师,能说具体点吗?

shaodeng000

同样想知道