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.