diff -ur slime/slime.el slime-kmr/slime.el
--- slime/slime.el	2007-01-04 14:09:59.185168825 -0700
+++ slime-kmr/slime.el	2007-01-04 14:57:39.003709074 -0700
@@ -4567,6 +4567,18 @@
               (slime-oos (slime-read-system-name) "LOAD-OP" :force t)))
   (:one-liner "Recompile and load an ASDF system."))
 
+(defslime-repl-shortcut slime-repl-test/force-system ("force-test-system")
+  (:handler (lambda ()
+              (interactive)
+              (slime-oos (slime-read-system-name) "TEST-OP" :force t)))
+  (:one-liner "Compile (as needed) and force test an ASDF system."))
+
+(defslime-repl-shortcut slime-repl-test-system ("test-system")
+  (:handler (lambda ()
+              (interactive)
+              (slime-oos (slime-read-system-name) "TEST-OP")))
+  (:one-liner "Compile (as needed) and test an ASDF system."))
+
 (defslime-repl-shortcut slime-repl-load-system ("load-system")
   (:handler (lambda ()
               (interactive)