[slime-devel] ,disconnect

[Daniel Koning]

On Thu, Jul 13, 2006 at 02:18:56PM -0400, Bill Atkins wrote:
> Can someone add a disconnect comma-command that would be equivalent to
> slime-disconnect?

This should do it.

-- 
Daniel Koning        | http://engr.smu.edu/~dkoning/
dkoning at seas.smu.edu |  (= today (car (cdr your-life)))
-------------- next part --------------
--- slime/slime.el.orig	2006-07-13 14:32:35.000000000 -0500
+++ slime/slime.el	2006-07-13 14:30:45.000000000 -0500
@@ -4170,6 +4170,10 @@
               (slime-repl-send-input)))
   (:one-liner "Resend the last form."))
 
+(defslime-repl-shortcut slime-repl-disconnect ("disconnect")
+  (:handler 'slime-disconnect)
+  (:one-liner "Disconnect all connections."))
+
 (defslime-repl-shortcut slime-repl-sayoonara ("sayoonara")
   (:handler (lambda ()
               (interactive)