C-c C-f でカーソル位置の FiveAM テストを実行する

Slime では C-c C-c でカーソル位置の defun などをコンパイルする。それと同じように C-c C-f でカーソル位置の FiveAM テストを実行したかったので書いてみた。

(defun slime-fiveam-debug-test ()
  "fiveam:debug!"
  (interactive)
  (slime-interactive-eval
   (format "(fiveam:debug! %s)" (slime-defun-at-point))))

(define-key slime-mode-map
  [(control ?c) (control ?f)] 'slime-fiveam-debug-test)

ちゃんと動く?