#xyzzy M-x start-repl するのに疲れた

gistfile1.lisp

(defun switch-to-repl ()
  "repl を開く。
既に見えてたらそのウィンドウへ。既に開いてたらそのバッファへ。まだ開いて
なかったら開く。"
  (interactive)
  (let* ((repl-buffer (find-buffer "*repl*"))
         (repl-window (when repl-buffer (get-buffer-window repl-buffer))))
    (cond (repl-window (set-window repl-window))
          (repl-buffer (switch-to-buffer repl-buffer))
          (t           (start-repl)))))

(define-key *global-keymap* #\M-F4 'switch-to-repl)