xyzzyで対話的にディレクトリ作成

(defun interactive-create-directory ()
  (interactive)
  (let ((dest-dir (read-string 
                  (format "Create Directory: ~A" (directory-namestring (or (get-buffer-file-name) "~"))))))
    (create-directory dest-dir)))

いちいちエクスプローラ立ち上げるのもめんどくさいし、シェル立ち上げるのもめんどくさいので。
C-xではじまるキーバインドってコアのものなのかな?
よくわからないので、とりあえずC-c dにする。CreateのcとDirectoryのdみたいな。