日付と名前を挿入してコメントを書く。

今日のはいつにも増して小ネタlispです。
一つのソースコードを複数人で触る場合、変更した場所に「変更日にち」と「変更者」を書き入れる、というルールはありませんか？
あまり一般的でない？　少なくともウチではそういう事になっていたので、ワンキーで日付と名前を挿入して、IMEをONにするlispを組みました。

;日付と名前を挿入してコメントを書く。
;p95095yy
(define-key ed::*c++-mode-map* #\C-. 'insert-comment)
(defun insert-comment()
  (interactive)
  (let ( (day-string (format-date-string "//%Y/%m/%d  YOUR NAME ")) )
    (insert day-string))
  (unless (get-ime-mode)
    (toggle-ime)))