[slime-cvs] CVS slime

[eweitz]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv6705

Modified Files:
	ChangeLog slime.el 
Log Message:
New REPL shortcuts by Kevin Rosenberg


--- /project/slime/cvsroot/slime/ChangeLog	2007/01/11 17:48:05	1.1043
+++ /project/slime/cvsroot/slime/ChangeLog	2007/01/11 22:26:59	1.1044
@@ -1,3 +1,9 @@
+2007-01-11  Edi Weitz  <edi at agharta.de>
+
+	* slime.el (slime-repl-test-system, slime-repl-test/force-system):
+	New REPL shortcuts.  Patch by Kevin Rosenberg
+	<kevin at rosenberg.net>.
+
 2007-01-11  Juho Snellman  <jsnell at iki.fi>
 
 	* slime.el (slime-read-expression-map): restore tab completion in
@@ -8,8 +14,8 @@
 2007-01-11  Marco Baringer  <mb at bese.it>
 
 	* swank.lisp (inspect-for-emacs integer): Don't die if the integer
-	can't be expressed as a float. (Patch by: Ariel Badichi
-	<abadichi at bezeqint.net>)
+	can't be expressed as a float.  Patch by Ariel Badichi
+	<abadichi at bezeqint.net>.
  
 	* slime.el (slime-keys): Removed binding of M-,
 
--- /project/slime/cvsroot/slime/slime.el	2007/01/11 17:48:05	1.741
+++ /project/slime/cvsroot/slime/slime.el	2007/01/11 22:26:59	1.742
@@ -4570,6 +4570,18 @@
               (slime-oos (slime-read-system-name) "LOAD-OP")))
   (:one-liner "Compile (as needed) 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-compile-system ("compile-system")
   (:handler (lambda ()
               (interactive)