[xyzzy:07519] 日付入りサインを挿入したい

[Minoru Yagi <minoru2.yagi@xxxxxxxxxxxxx>]

八木と申します。

日付入りサインを挿入したい、と思いまして、みようみまねと試行錯誤で
次のような関数を作ったのですが、

(defvar *current-date*
  '("%Y/%m/%d"))

(defun insert-open-signature ()
  (interactive "*")
  (setq cur-date (mapcar #'format-date-string *current-date*)) ;;...(*)
  (insert (format nil "//--> ~a M.Yagi" cur-date))
  t)

使ってみると
//--> (2001/09/10) M.Yagi
というように日付の前後に()がついてしまいます。

なんとなく(*)に問題がありそう、とは思うのですが、どうすれば
よいのかが分かりません。解決策もしくはヒントを教えていただけますか。
------------------------------------------------------------
   |  ^|^  |         八木 稔   Minoru Yagi
   |   @   | (株)東芝 医用システム社
             医用機器・システム開発センター戦略技術開発部
                    minoru2.yagi@xxxxxxxxxxxxx