xyzzyのファイラーで現在表示しているディレクトリーからシェルを起動する

siteinit.lに以下のように記述。
キーバインドは通常時に合わせてC-x cとした。

;;; ファイラー
;; 開いているディレクトリーでシェルを起動
(define-key filer-keymap '(#\C-x #\c)
            #'(lambda ()
                (interactive)
                (call-process (or *eshell* *shell*) :no-std-handles t :show :show
                              :exec-directory (filer-get-directory))))

設定ファイル全体は以下
https://github.com/phithon/dotfiles/blob/master/siteinit.l