From 233eb63f35574b011a1ec94927ec0c6ecde2d5af Mon Sep 17 00:00:00 2001
From: Steve Purcell <steve@sanityinc.com>
Date: Tue, 6 Feb 2024 12:14:25 +0000
Subject: [PATCH] init-common-lisp.el was obsolete, and only init-sly.el is
 useful now

---
 init.el                  |  1 -
 lisp/init-common-lisp.el | 52 ----------------------------------------
 2 files changed, 53 deletions(-)
 delete mode 100644 lisp/init-common-lisp.el

diff --git a/init.el b/init.el
index 707b0b604b..5c5df9fd3b 100644
--- a/init.el
+++ b/init.el
@@ -131,7 +131,6 @@
 (require 'init-sly)
 (require 'init-clojure)
 (require 'init-clojure-cider)
-(require 'init-common-lisp)
 
 (when *spell-check-support-enabled*
   (require 'init-spelling))
diff --git a/lisp/init-common-lisp.el b/lisp/init-common-lisp.el
deleted file mode 100644
index e5390d4577..0000000000
--- a/lisp/init-common-lisp.el
+++ /dev/null
@@ -1,52 +0,0 @@
-;;; init-common-lisp.el --- Common Lisp support -*- lexical-binding: t -*-
-;;; Commentary:
-;;; Code:
-
-;; See http://bc.tech.coop/blog/070927.html
-(add-auto-mode 'lisp-mode "\\.cl\\'")
-(add-hook 'lisp-mode-hook (lambda ()
-                            (unless (featurep 'slime)
-                              (require 'slime)
-                              (normal-mode))))
-
-(with-eval-after-load 'slime
-  (when (executable-find "sbcl")
-    (add-to-list 'slime-lisp-implementations
-                 '(sbcl ("sbcl") :coding-system utf-8-unix)))
-  (when (executable-find "lisp")
-    (add-to-list 'slime-lisp-implementations
-                 '(cmucl ("lisp") :coding-system iso-latin-1-unix)))
-  (when (executable-find "ccl")
-    (add-to-list 'slime-lisp-implementations
-                 '(ccl ("ccl") :coding-system utf-8-unix))))
-
-;; From http://bc.tech.coop/blog/070515.html
-(defun lispdoc ()
-  "Searches lispdoc.com for SYMBOL, which is by default the symbol currently under the curser"
-  (interactive)
-  (let* ((word-at-point (word-at-point))
-         (symbol-at-point (symbol-at-point))
-         (default (symbol-name symbol-at-point))
-         (inp (read-from-minibuffer
-               (if (or word-at-point symbol-at-point)
-                   (concat "Symbol (default " default "): ")
-                 "Symbol (no default): "))))
-    (if (and (string= inp "") (not word-at-point) (not
-                                                   symbol-at-point))
-        (message "you didn't enter a symbol!")
-      (let ((search-type (read-from-minibuffer
-                          "full-text (f) or basic (b) search (default b)? ")))
-        (browse-url (concat "http://lispdoc.com?q="
-                            (if (string= inp "")
-                                default
-                              inp)
-                            "&search="
-                            (if (string-equal search-type "f")
-                                "full+text+search"
-                              "basic+search")))))))
-
-(define-key lisp-mode-map (kbd "C-c l") 'lispdoc)
-
-
-(provide 'init-common-lisp)
-;;; init-common-lisp.el ends here