xyzzy用Printf挿入Lisp

id:higeponさんが、2月12日の記事で書かれているデバック用printf挿入LispEmacs用に書かれているものをxyzzy用に移植してみました。(祝!初Lisp

ここから ---

(defun my-insert-printf-debug ()
(interactive)
(insert "printf(\"%s %s:%d\\n\", __func__, __FILE__, __LINE__);")
(c-indent-line)
)

(add-hook 'ed::*c-mode-hook*
(function (lambda ()
(define-key ed::*c-mode-map* '(#\C-c #\d) 'my-insert-
printf-debug)
)))

ここまで ---

上記のコードを.xyzzyに追加してxyzzy再起動したら、c-mode時にC-c dで
printf文が追加される・・・と思われます。

以下、いい訳ですが、Lispをはじめて触ったので、これでいいのかどうかすら分かりません。まぁ、動いているっぽいので。