[密技]：一个把全局变量变为局部变量的小技巧

highflybird

很多情况下一些局部变量会从一个函数调到另外一个函数 ，而且很可能有很多这样的局部变量，这是候在参数设置后加局部变量，显得很长，很不美观，而且也容易忘记把它设置为局部变量。
这是候有一种小技巧：
就是把这些局部变量设置成为全局变量。然后通过对这些局部变量全部清空的函数来达到使得全局变量变成局部变量。

2. 
   
3. (defun all-nil (/ SYMLIST)
   
4.   (setq SYMLIST '(x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 ..........))
   
5.   (foreach n SYMLIST
   
6.     (set n nil)
   
7.   )
   
8.   ;;(mapcar 'set SYMLIST (mapcar '(lambda (x) nil) SYMLIST));一样的效果
   
9. )
   

<br /> (defun all-nil (/ SYMLIST)<br />   (setq SYMLIST '(x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 ..........))<br />   (foreach n SYMLIST <br />     (set n nil)<br />   )<br />   ;;(mapcar 'set SYMLIST (mapcar '(lambda (x) nil) SYMLIST));一样的效果<br /> )<br />

例如一个函数

2. 
   
3. (defun test (x / )
   
4.    ......
   
5. 
   
6.    (all-nil)    ;虽然没有申明x1,x2.....是局部变量，但已全部清空了。
   
7. )
   

<br /> (defun test (x / ) <br />    ......<br /> <br />    (all-nil)    ;虽然没有申明x1,x2.....是局部变量，但已全部清空了。<br /> )<br />

这跟函数

2. 
   
3. (defun  test (x / x1 x2 x3 .......)
   
4. ......
   
5. )

<br /> (defun  test (x / x1 x2 x3 .......) <br /> ...... <br /> )

是一样的效果.
大家可以看看这个清空函数中set 的用法，更能体会到set, setq的区别。

oyxx_1023

那不是每写一个程序都去重新读一遍程序,把要改变的全局变量一个个挑出来,放到(ALL-NIL)这个函数中来?

highflybird

我并没指所有的情况都这么用，只是在某些情况下这么用方便些。

fsxm

这样没起到隔离变量空间作用域的效果，
是这一很不安全的结合方法。。。
对于一些程序可能会产生可能难以觉察的错误，
现在各种流行的编程方法是就是“封装”
它要求各模块间变量具有独立的变量空间，
非特别指定的变量在外部是无法访问与修改，
这才是一个相对安全的模式，这点CAD做的还不够好~
一个好的程序要尽可能的不用全局变量
（这不只是清空变量值这么简单，就算清空了它还是全局变量）。