1.1--- a/emacs/default.el	Fri Aug 23 19:03:17 2024 -0400
     1.2+++ b/emacs/default.el	Fri Aug 23 19:40:56 2024 -0400
     1.3@@ -185,11 +185,8 @@
     1.4 ;;; Lisp
     1.5 (use-package slime
     1.6   :ensure t
     1.7-  :hook ((slime-mode . #'slime-cape-maybe-enable)
     1.8-         (sldb . #'slime-cape-maybe-enable))
     1.9   :init
    1.10   (require 'slime-cape)
    1.11-  (require 'slime-autoloads)
    1.12   (setq slime-contribs '(slime-fancy
    1.13                          slime-quicklisp
    1.14                          slime-hyperdoc
    1.15@@ -278,7 +275,9 @@
    1.16 
    1.17   (setq common-lisp-style-default "core")
    1.18   ;; (define-key slime-prefix-map (kbd "i") 'clouseau-inspect)
    1.19-  (setq slime-threads-update-interval 1))
    1.20+  (setq slime-threads-update-interval 1)
    1.21+  (add-hook 'slime-mode-hook #'slime-cape-maybe-enable 100)
    1.22+  (add-hook 'slime-repl-mode-hook #'slime-cape-maybe-enable 100))
    1.23 
    1.24 (use-package lisp-mode
    1.25   :ensure nil

     2.1--- a/emacs/lib/slime-cape.el	Fri Aug 23 19:03:17 2024 -0400
     2.2+++ b/emacs/lib/slime-cape.el	Fri Aug 23 19:40:56 2024 -0400
     2.3@@ -22,17 +22,11 @@
     2.4 (define-slime-contrib slime-cape
     2.5   (:authors "ccQpein")
     2.6   (:swank-dependencies swank-arglists)
     2.7-  (:on-load
     2.8-   (dolist (h '(slime-mode-hook slime-repl-mode-hook sldb-mode-hook))
     2.9-     (add-hook h 'slime-cape-maybe-enable))
    2.10-   )
    2.11   (:on-unload
    2.12-   (dolist (h '(slime-mode-hook slime-repl-mode-hook sldb-mode-hook))
    2.13-     (remove-hook h 'slime-cape-maybe-enable))
    2.14-   (delete cape-slime-backend completion-at-point-functions)
    2.15-   ))
    2.16+   (delete cape-slime-backend completion-at-point-functions)))
    2.17 
    2.18 (defun slime-cape-maybe-enable ()
    2.19+  (interactive)
    2.20   (when (slime-company-active-p)
    2.21     (add-to-list 'completion-at-point-functions cape-slime-backend)))
    2.22