diff --git a/core/core-editor.el b/core/core-editor.el
index 4d134b6aa..c4178aa3d 100644
--- a/core/core-editor.el
+++ b/core/core-editor.el
@@ -423,9 +423,10 @@ files, so we replace calls to `pp' with the much faster `prin1'."
   :after-call doom-switch-buffer-hook after-find-file
   :commands sp-pair sp-local-pair sp-with-modes sp-point-in-comment sp-point-in-string
   :config
+  ;; smartparens recognizes `slime-mrepl-mode', but not `sly-mrepl-mode', so...
+  (add-to-list 'sp-lisp-modes 'sly-mrepl-mode)
   ;; Load default smartparens rules for various languages
   (require 'smartparens-config)
-
   ;; Overlays are too distracting and not terribly helpful. show-parens does
   ;; this for us already (and is faster), so...
   (setq sp-highlight-pair-overlay nil
diff --git a/modules/config/default/config.el b/modules/config/default/config.el
index 6abf44aa1..65f1e4ba5 100644
--- a/modules/config/default/config.el
+++ b/modules/config/default/config.el
@@ -98,7 +98,9 @@
                :unless '(sp-point-before-word-p sp-point-before-same-p)))
 
     ;; In lisps ( should open a new form if before another parenthesis
-    (sp-local-pair sp-lisp-modes "(" ")" :unless '(:rem sp-point-before-same-p))
+    (sp-with-modes sp-lisp-modes
+      (sp-local-pair "`" "`" :actions nil)
+      (sp-local-pair "(" ")" :unless '(:rem sp-point-before-same-p)))
 
     ;; Major-mode specific fixes
     (sp-local-pair '(ruby-mode enh-ruby-mode) "{" "}"
diff --git a/modules/lang/common-lisp/config.el b/modules/lang/common-lisp/config.el
index 21cb656c3..f126695d0 100644
--- a/modules/lang/common-lisp/config.el
+++ b/modules/lang/common-lisp/config.el
@@ -47,10 +47,6 @@
       ;; buffers are meant to be displayed with sufficient vertical space.
       ("^\\*sly-\\(?:db\\|inspector\\)" :ignore t)))
 
-  (sp-with-modes '(sly-mrepl-mode)
-    (sp-local-pair "'" "'" :actions nil)
-    (sp-local-pair "`" "`" :actions nil))
-
   (defun +common-lisp--cleanup-sly-maybe-h ()
     "Kill processes and leftover buffers when killing the last sly buffer."
     (unless (cl-loop for buf in (delq (current-buffer) (buffer-list))