[求助]：贴一个例程，选择集合并，兼问一个问题

秋枫

2. 
   
3. [FONT=courier new]
   
4. (defun ssunion (sslist)
   
5.   (mapcar '(lambda (x / c)
   
6.              (setq c -1)
   
7.              (repeat (sslength x)
   
8.                (ssadd (ssname x (++ 'c)) (car sslist))
   
9.              )
   
10.            )
    
11.           (cdr sslist)
    
12.   )
    
13.   (sslength (car sslist))
    
14. )
    
15. [/FONT]

<br /> [FONT=courier new]<br /> (defun ssunion (sslist)<br />   (mapcar '(lambda (x / c)<br />              (setq c -1)<br />              (repeat (sslength x)<br />                (ssadd (ssname x (++ 'c)) (car sslist))<br />              )<br />            )<br />           (cdr sslist)<br />   )<br />   (sslength (car sslist))<br /> )<br /> [/FONT]

上述程序来自acadx.com
可能是贴程序的人粗心了, 没有给出++的实现方法。
我试着写一下：

2. 
   
3. [FONT=courier new]
   
4. (defun ++ ( x ) (set x (+ 1 (eval x))))
   
5. [/FONT]

<br /> [FONT=courier new]<br /> (defun ++ ( x ) (set x (+ 1 (eval x))))<br /> [/FONT]

不对。各位能不能改一下，告诉我错在哪里。

秋枫

2. 
   
3. [FONT=courier new]
   
4. 哦，我写的是对的。
   
5. 刚才糊涂了
   
6. 
   
7. Command: (defun ++ ( x ) (set x (+ 1 (eval x))))
   
8. ++
   
9. 
   
10. Command: (setq c 1)
    
11. 1
    
12. 
    
13. Command: (++ 'c)
    
14. 2
    
15. 
    
16. Command: !c
    
17. 2
    
18. [/FONT]

<br /> [FONT=courier new]<br /> 哦，我写的是对的。<br /> 刚才糊涂了<br /> <br /> Command: (defun ++ ( x ) (set x (+ 1 (eval x))))<br /> ++<br /> <br /> Command: (setq c 1)<br /> 1<br /> <br /> Command: (++ 'c)<br /> 2<br /> <br /> Command: !c<br /> 2<br /> [/FONT]

XDSoft

给LISP加入了C的＋＋运算符