怎么写一个函数能同时支持“不带参数或也可以带一个参数”

xiaoyingzi

某软件的指定路径的函数,这个函数可以不带参数，也可以带一个参数
(getxxpath)
(getxxpath 1)
(getxxpath 2)
(getxxpath "lisp")
(getxxpath "data")


我想自己重新定义，总是不行,代码如下,GetmysoftPath为自己已定义的获取路径的函数
(defun getxxpath (path)
   (cond
      ((= path nil)(GetmysoftPath))
      ((= path 1)(strcat (GetmysoftPath) "\\lisp"))
      ((= path 2)(strcat (GetmysoftPath) "\\data"))
      ((= path "lisp")(strcat (GetmysoftPath) "\\lisp"))
      ((= path "data")(strcat (GetmysoftPath) "\\data"))
   )
)

主要问题，怎么写一个函数能同时支持“不带参数或也可以带一个参数”，而参数中出现1而不是“1”，怎么实现，
网上搜了很多，没找到解决办法，自己也想了很长时间，恳请各位高手帮帮忙！！

zark

楼主，如果找到答案麻烦你转告我一下，因为我也想知道。就像“+”这个函数（+ . . . . . ）多少个参数都可以

Andyhon

C / C++ 的模式 并非皆能用 Lisp 来实现的
变通之道是用封包,但至少得有一个引数 (Myfun Arg1)
老帖中有