--- 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)