[求助]：如何定义函数的默认参数？

libo2000

2. 
   
3.   [FONT=courier new]
   
4. 如何定义函数的默认参数？
   
5. (defun test (ang1 ang2 ang3 / )
   
6. ;ang3默认值为0
   
7. (cond
   
8.    ( (= ang3 0) (princ ang1)
   
9.    ( (= ang3 1) (princ ang2)
   
10.    ( (= ang3 2) (princ ang3))
    
11. )
    
12. (princ)
    
13. )
    
14. 执行：
    
15. command:(test 1 2)
    
16. 相应：
    
17. 1
    
18. 执行：
    
19. command:(test 1 2 1)
    
20. 相应：
    
21. 2
    
22. 
    
23.   [/FONT]
    

<br />   [FONT=courier new]<br /> 如何定义函数的默认参数？<br /> (defun test (ang1 ang2 ang3 / )<br /> ;ang3默认值为0<br /> (cond <br />    ( (= ang3 0) (princ ang1)<br />    ( (= ang3 1) (princ ang2)<br />    ( (= ang3 2) (princ ang3))<br /> )<br /> (princ)<br /> )<br /> 执行：<br /> command:(test 1 2)<br /> 相应：<br /> 1<br /> 执行：<br /> command:(test 1 2 1)<br /> 相应：<br /> 2<br /> <br />   [/FONT]<br />

lsjjm

不明白你的意思, 你想达到什么的目的? 要求?
你的程序也有误呀!:
第四,五行缺右括号")"
第一个命令缺额"0" 应为: (test 1 2 0)

libo2000

要达到的目的：
比如：(inters p1 p2 p3 p4 nil) 与(inters p1 p2 p3 p4)是如何实现的？
(inters)可以传递4个或5个参数

kytw

lisp语言不支持变参函数