子函数放置位置的探讨

gaics

2. (defun c:tt1 ()
   
3.   (defun Subfunction ()
   
4.     (princ "a")
   
5.   )
   
6.   (Subfunction)
   
7.   (princ)
   
8. );;tt1返回a
   
9. (defun c:tt2 (/ Subfunction)
   
10.   (defun Subfunction ()
    
11.     (princ "b")
    
12.   )
    
13.   (Subfunction)
    
14.   (princ)
    
15. );;tt2返回b
    
16. (defun c:tt3 ()
    
17.   (Subfunction)
    
18.   (defun bcd ()
    
19.     (princ "c")
    
20.   )
    
21.   (princ)
    
22. );;tt3返回a或c或e
    
23. (defun c:tt4 (/ Subfunction)
    
24.   (Subfunction)
    
25.   (defun Subfunction ()
    
26.     (princ "d")
    
27.   )
    
28.   (princ)
    
29. );;tt4返回; 错误: no function definition: Subfunction
    
30. (defun Subfunction ()
    
31.   (princ "e")
    
32. )

(defun c:tt1 ()<br />   (defun Subfunction ()<br />     (princ "a")<br />   )<br />   (Subfunction)<br />   (princ)<br /> );;tt1返回a<br /> (defun c:tt2 (/ Subfunction)<br />   (defun Subfunction ()<br />     (princ "b")<br />   )<br />   (Subfunction)<br />   (princ)<br /> );;tt2返回b<br /> (defun c:tt3 ()<br />   (Subfunction)<br />   (defun bcd ()<br />     (princ "c")<br />   )<br />   (princ)<br /> );;tt3返回a或c或e<br /> (defun c:tt4 (/ Subfunction)<br />   (Subfunction)<br />   (defun Subfunction ()<br />     (princ "d")<br />   )<br />   (princ)<br /> );;tt4返回; 错误: no function definition: Subfunction<br /> (defun Subfunction ()<br />   (princ "e")<br /> )

如上面的代码定义了5个同名子函数，tt1~4分别做不同的调用写法，返回不同的结果。

tt3返回值具有不确定性，取决于tt1、tt2以及放置在主函数外面的Subfunction哪个被最近调用过。
综上，推荐tt2的写法，既不怕子函数重名，而且对其他函数也没有影响。

各位，是否可以这么理解？

vitalgg

把函数当变量符号看待，
使用前先赋值。需要私有化就私有化。