COMMON LISP JP > Archives > 2011/01/21

すいません誤爆です。
お聞きしたいことがあるのですが、Common Lispの関数定義でオプショナルなキーワード引数を指定したいんですけど、これって出来ますか？ 試行錯誤してみた結果無理だと思ってるんですがどうでしょう。

すみません、僕の説明が悪かったです。
(foo "hello") と (foo :a "hello") の両方が使えるようにしたいということです。
なので、(defun foo (&key (a 0)) body) はちょっとやりたいことと違います。

(defmacro %defun (name args &body body)
  (let ((func (gensym)))
    `(progn
       (defun ,func (&optional ,@args)
         ,@body)
       (defun ,name (&rest args)
         (apply ',func
                (if (keywordp (car args))
                    (loop
                       for k in ',(mapcar
                                   #'(lambda (arg)
                                       (if (listp arg)
                                           (intern (symbol-name (car arg))
                                                   "KEYWORD")
                                           (intern (symbol-name arg)
                                                   "KEYWORD")))
                                              args)
                       collect (getf args k))
                    args))))))

CL-USER> (defun$ foo ((a "hello")) (print a))
FOO
CL-USER> (foo)

"hello" 
"hello"
CL-USER> (foo "world")

"world" 
"world"
CL-USER> (foo :a "world")

"world" 
"world"
CL-USER>