子函数的参数问题

bingshuier

2. (defun c:zsy()
   
3.   (zsy2 "aaa")
   
4.   (princ)
   
5.   )
   
6. (defun zsy2  (a b)
   
7.   (if (= a null)
   
8.     (setq a "1111"))
   
9.   (if (= b null)
   
10.     (setq b "2222"))
    
11.   (princ a)
    
12.   (princ b)
    
13.   )

(defun c:zsy()<br />   (zsy2 "aaa")<br />   (princ)<br />   )<br /> (defun zsy2  (a b)<br />   (if (= a null)<br />     (setq a "1111"))<br />   (if (= b null)<br />     (setq b "2222"))<br />   (princ a)<br />   (princ b)<br />   )

想要实现主函数调用子函数时参数少于子函数，缺省的子函数参数有默认的值

elitefish

lisp的参数数量是固定的 不能改变

vectra

只能退而求其次用表了 (zsy2  (list (a b)) 就是看上去有点丑，对于LISP这门古老的语言，可变参数和多态这些特性都是不具备的。。

bingshuier

vectra 发表于 2017-10-17 09:09
只能退而求其次用表了 (zsy2  (list (a b)) 就是看上去有点丑，对于LISP这门古老的语言，可变参数和多态这 ...

en  好的 谢谢