[求助]：如何传递多个结果.

阿_Q

LISP函数如何传递多个结果?
如:
(defun q (/ a b c)
(setq d 1)
(setq a (+ d d))
(setq b d)
(setq c (+ d d d))
a
b
c
)


命令: (setq e (q))
3
只得到C的值.
如何才能得到a b c的值.所以想问如何产生和传递多个结果.

lidejun_55

做成表

zml84

2. 
   
3.   [FONT=courier new]
   
4. (defun q (/ a b c)
   
5.     (setq d 1)
   
6.     (setq a (+ d d)
   
7.           b d
   
8.           c (+ d d d)
   
9.     )
   
10.     (list a b c)
    
11. )
    
12.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun q (/ a b c)<br />     (setq d 1)<br />     (setq a (+ d d)<br />           b d<br />           c (+ d d d)<br />     )<br />     (list a b c)<br /> )<br />   [/FONT]<br />

aeo

或者设成全局

2. 
   
3. (defun abc( / a b c ...)
   
4.    (defun efg()
   
5.      (setq a 0 b 1 c 2)
   
6.    )
   
7.    ...
   
8.    (efg)
   
9.   ...
   
10. )
    

<br /> (defun abc( / a b c ...)<br />    (defun efg()<br />      (setq a 0 b 1 c 2)<br />    )<br />    ...<br />    (efg)<br />   ...<br /> )<br />