按引用传参的几种方式

xiaoniao7619

1. (defun aa (p1 / ) ;方式1
   
2.   (set p1 9 )
   
3. )
   
4. (defun bb (s /);方式2
   
5.   (set (read s) 99)
   
6.   )
   
7. (defun tt ( / l)
   
8.   (setq l 1 )
   
9.   (aa 'l)
   
10.   (princ l)
    
11.   (princ "\n")
    
12.     (bb "l")
    
13.     (princ l)
    
14.   (princ )
    
15. )
    
16. 
    
17. (tt)
    

(defun aa (p1 / ) ;方式1<br />   (set p1 9 ) <br /> )<br /> (defun bb (s /);方式2<br />   (set (read s) 99)<br />   )<br /> (defun tt ( / l) <br />   (setq l 1 ) <br />   (aa 'l)<br />   (princ l)<br />   (princ "\n")<br />     (bb "l")<br />     (princ l)<br />   (princ )<br /> )<br /> <br /> (tt)<br />