config: Remove `(setf socket-url)` method

Don't need this now that we have a `make-config` constructor.

1 files changed, 0 insertions, 10 deletions

diff --git a/l/src/config.lisp b/l/src/config.lisp
index 4e3cbbf..f826537 100644
--- a/l/src/config.lisp
+++ b/l/src/config.lisp
@@ -26,16 +26,6 @@
               ":socket-url ~s :extension-ids ~s :reload-current-tab ~s :ws-client ~s"
               socket-url extension-ids reload-current-tab ws-client))))
 
-;; TODO: (make-config) instead, initialise ws-client in initialiser
-(defgeneric (setf socket-url) (url config))
-
-(defmethod (setf socket-url) (url (config config))
-  "Set `socket-url` and initialise a new `websocket-driver:client` in the
-`ws-client` slot"
-  (setf (slot-value config 'socket-url) url)
-
-  (setf (slot-value config 'ws-client) (wsd:make-client url)))
-
 (defun make-config (&key socket-url extension-ids reload-current-tab)
   (let ((config (make-instance 'config
                                :socket-url socket-url