Merge pull request #1715 from jfaz1/micros-keybinds

Add micros keybinds to lisp-mode

Author: cxxxr

extensions/lisp-mode/lisp-mode.lisp

@@ -92,6 +92,10 @@
 (define-key *lisp-mode-keymap* "Return" 'newline-and-indent)
 (define-key *lisp-mode-keymap* "C-c C-j" 'lisp-eval-expression-in-repl)
 (define-key *lisp-mode-keymap* "C-c ~" 'lisp-listen-in-current-package)
+(define-key *lisp-mode-keymap* "C-c m s" 'slime)
+(define-key *lisp-mode-keymap* "C-c m r" 'slime-restart)
+(define-key *lisp-mode-keymap* "C-c m q" 'slime-quit)
+(define-key *lisp-mode-keymap* "C-c m c" 'slime-connect)
 
 (defmethod convert-modeline-element ((element (eql 'lisp-mode)) window)
   (format nil "  ~A~A" (buffer-package (window-buffer window) "CL-USER")
@@ -891,7 +895,7 @@
 
 (defun notify-change-connection-to-wait-message-thread ()
   (bt2:interrupt-thread *wait-message-thread*
-                       (lambda () (error 'change-connection))))
+                        (lambda () (error 'change-connection))))
 
 (defun message-waiting-some-connections-p (&key (timeout 0))
   (with-broadcast-connections (connection)