
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.