Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.896
diff -u -r1.896 slime.el
@@ -6591,6 +6600,15 @@
 
 (define-sldb-invoke-restart-keys 0 9)
 
+(defun sldb-invoke-restart-by-name (restart-name)
+  (interactive (list (completing-read "Restart: "
+                                      sldb-restarts nil t
+                                      ""
+                                      'sldb-invoke-restart-by-name)))
+  (sldb-invoke-restart (position restart-name sldb-restarts :test 'string= :key 'first)))
+
+(define-key sldb-mode-map (kbd "C-r") 'sldb-invoke-restart-by-name)
+
 
 ;;;;; SLDB buffer creation & update