From 19f8f337b041caa4ea13293555e8d1ff0e143458 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 14 Feb 2021 20:00:25 +0100
Subject: config: Remove `(setf socket-url)` method

Don't need this now that we have a `make-config` constructor.
---
 l/src/config.lisp | 10 ----------
 1 file changed, 10 deletions(-)

(limited to 'l/src')

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
-- 
cgit v1.2.3