Define test command for Common Lisp projects

I tried `projectile-test-project`, but it only accepts shell commands,
whereas I wanted a faster way to run tests from the SLIME REPL.
contrapunctus 3 months ago
parent 76d472b0e0
commit babf615646

@ -1057,7 +1057,8 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("j" slime-edit-definition "Jump to definition")
("p" slime-repl-set-package "Set package")
("n" imenus "imenus")
("v" slime-inspect-presentation-at-point "inspect"))
("v" slime-inspect-presentation-at-point "inspect")
("t" my-run-cl-tests "test"))
**** eval
@ -5559,6 +5560,17 @@ All COMMAND-SPECS should be a list in the form
(modify-syntax-entry ?\[ "(]" lisp-mode-syntax-table)
(modify-syntax-entry ?\] ")[" lisp-mode-syntax-table)) ;; cl-launch scripts
(defvar my-test-command nil
"Command which runs tests for the current project.")
(defun my-run-cl-tests ()
(cond ((bound-and-true-p my-test-command)
;; (slime-interactive-eval my-test-command)
(slime-repl-send-string my-test-command)
(t (message "my-test-commmand is unbound or nil"))))
*** redshank