[slime-devel] RT Test Key binding

[Evrim Ulu]

Hi,

I was annoyed to write (rt:do-test 'some-test-symbol) everytime so i 
have written the small addition below. I'm posting since it may help 
somebody else.

Evrim.

I have a test macro and tests like:
----------------------------------------
(defmacro test-js (name statement result)
  `(deftest ,name
       (core-server::js+ ,statement)
     ,result))

(test-js symbol-conversion-1
  !?#@%
  "bangwhathashatpercent")

My addition to slime.el:
-----------------------------------------

(defun slime-run-rt-test ()
  (interactive)
  (slime-display-output-buffer)
  (slime-interactive-eval (format "%s" `(rt:do-test ',(cadr (read 
(slime-last-expression)))))))

(add-hook 'slime-mode-hook
      (lambda ()
        (slime-define-key "\C-x\C-a"
                  'slime-run-rt-test)))

Key binding can be changed to something else but i couldnt find an empty 
one having "t" in it.