change set-client-capabilities

cxxxr · Dec 22, 2020 · 4bdd553 · 4bdd553
1 parent b80f663
commit 4bdd553
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/src/methods/lifetime.lisp b/src/methods/lifetime.lisp
@@ -2,6 +2,7 @@
   (:use :cl)
   (:import-from :cl-lsp/server
                 :define-method
+                :this-server
                 :set-client-capabilities)
   (:import-from :cl-lsp/swank
                 :swank-init)
@@ -71,7 +72,7 @@
    ))
 
 (define-method "initialize" (params protocol:initialize-params) ()
-  (set-client-capabilities params)
+  (set-client-capabilities params (this-server))
   (json:object-to-json
    (make-instance 'protocol:initialize-result
                   :capabilities (make-server-capabilities)

diff --git a/src/server.lisp b/src/server.lisp
@@ -30,7 +30,8 @@
 (defclass abstract-server ()
   ((client-capabilities
     :initform nil
-    :accessor server-client-capabilities)))
+    :reader server-client-capabilities
+    :writer set-client-capabilities)))
 
 (defun register-all-methods (server)
   (dolist (class (closer-mop:class-direct-subclasses (find-class 'request)))
@@ -46,9 +47,6 @@
 (defmacro with-server ((server) &body body)
   `(let ((*server* ,server)) ,@body))
 
-(defun set-client-capabilities (capabilities)
-  (setf (server-client-capabilities (this-server)) capabilities))
-
 ;;; json-object-converter
 (defclass json-object-converter ()
   ((params-type