search

emacs-lsp / lsp-mode

Emacs client/library for the Language Server Protocol
https://emacs-lsp.github.io/lsp-mode
GNU General Public License v3.0
4.79k stars 889 forks source link

Invalid command list for clojure #3833

Closed mattiasdrp closed 1 year ago

mattiasdrp commented 1 year ago

Thank you for the bug report

Bug description

When starting a clean emacs with M-x lsp-start-plain I have an error about Invalid command list

Emacs version is 29.0.60

Steps to reproduce

Open a clojure file with M-x lsp-start-plain

Expected behavior

The lsp server should start

Which Language Server did you use?

clojure-lsp

OS

Linux

Error callstack

Debugger entered--Lisp error: (cl-assertion-failed ((seq-every-p (apply-partially #'stringp) command) "Invalid command list"))
  cl--assertion-failed((seq-every-p (apply-partially #'stringp) command) "Invalid command list" nil nil)
  (or (seq-every-p (apply-partially #'stringp) command) (cl--assertion-failed '(seq-every-p (apply-partially #'stringp) command) "Invalid command list" (list) (list)))
  (progn (or (seq-every-p (apply-partially #'stringp) command) (cl--assertion-failed '(seq-every-p (apply-partially #'stringp) command) "Invalid command list" (list) (list))) nil)
  (cond ((listp command) (progn (or (seq-every-p (apply-partially #'stringp) command) (cl--assertion-failed '(seq-every-p (apply-partially ...) command) "Invalid command list" (list) (list))) nil) command) ((stringp command) (list command)) ((error "cl-etypecase failed: %s, %s" command '(list string)) nil))
  (let* ((command (if (functionp command) (funcall command) command))) (cond ((listp command) (progn (or (seq-every-p (apply-partially #'stringp) command) (cl--assertion-failed '(seq-every-p ... command) "Invalid command list" (list) (list))) nil) command) ((stringp command) (list command)) ((error "cl-etypecase failed: %s, %s" command '(list string)) nil)))
  lsp-resolve-final-function(lsp-clojure--build-command)
  (let ((final-command (lsp-resolve-final-function command)) (process-name (generate-new-buffer-name name)) (process-environment (lsp--compute-process-environment environment-fn))) (let* ((stderr-buf (format "*%s::stderr*" process-name)) (default-directory (lsp--default-directory-for-connection)) (proc (make-process :name process-name :connection-type 'pipe :buffer (format "*%s*" process-name) :coding 'no-conversion :command final-command :filter filter :sentinel sentinel :stderr stderr-buf :noquery t))) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag (get-buffer-process stderr-buf) nil) (save-current-buffer (set-buffer (get-buffer stderr-buf)) (special-mode)) (cons proc proc)))
  (if (functionp 'json-rpc-connection) (lsp-json-rpc-connection workspace (lsp-resolve-final-function command)) (let ((final-command (lsp-resolve-final-function command)) (process-name (generate-new-buffer-name name)) (process-environment (lsp--compute-process-environment environment-fn))) (let* ((stderr-buf (format "*%s::stderr*" process-name)) (default-directory (lsp--default-directory-for-connection)) (proc (make-process :name process-name :connection-type 'pipe :buffer (format "*%s*" process-name) :coding 'no-conversion :command final-command :filter filter :sentinel sentinel :stderr stderr-buf :noquery t))) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag (get-buffer-process stderr-buf) nil) (save-current-buffer (set-buffer (get-buffer stderr-buf)) (special-mode)) (cons proc proc))))
  (closure ((command . lsp-clojure--build-command)) (filter sentinel name environment-fn workspace) (if (functionp 'json-rpc-connection) (lsp-json-rpc-connection workspace (lsp-resolve-final-function command)) (let ((final-command (lsp-resolve-final-function command)) (process-name (generate-new-buffer-name name)) (process-environment (lsp--compute-process-environment environment-fn))) (let* ((stderr-buf (format "*%s::stderr*" process-name)) (default-directory (lsp--default-directory-for-connection)) (proc (make-process :name process-name :connection-type ... :buffer ... :coding ... :command final-command :filter filter :sentinel sentinel :stderr stderr-buf :noquery t))) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag (get-buffer-process stderr-buf) nil) (save-current-buffer (set-buffer (get-buffer stderr-buf)) (special-mode)) (cons proc proc)))))((closure ((chunk) (body) (body-length) (leftovers) (body-received . 0) (workspace . #s(lsp--workspace :ewoc nil :server-capabilities nil :registered-server-capabilities nil :root "/home/mattias/test_clojure/src/test_cl..." :client #s(lsp--client :language-id nil :add-on? nil :new-connection ... :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x155d2cdca0cb> :request-handlers #<hash-table equal 0/65 0x155d2c6b19d1> :response-handlers #<hash-table eql 0/65 0x155d2bd657bd> :prefix-function nil :uri-handlers #<hash-table equal 1/65 0x155d2cdca08b> :action-handlers #<hash-table equal 1/65 0x155d2cdca0ab> :major-modes ... :activation-fn nil :priority 0 :server-id clojure-lsp :multi-root nil :initialization-options ... :semantic-tokens-faces-overrides ... :custom-capabilities ... :library-folders-fn ... :before-file-open-fn nil :initialized-fn nil :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x155d2cdd94dd> :download-server-fn ... :download-in-progress? nil :buffers nil :synchronize-sections nil) :host-root nil :proc nil :cmd-proc nil :buffers (#<buffer core.clj>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x155d2d1112e7> :watches #<hash-table equal 0/65 0x155d2d1095a3> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x155d2d10a0a1> :work-done-tokens #<hash-table equal 0/65 0x155d2d10a2cf>))) (_proc input) (setq chunk (if (s-blank? leftovers) input (concat leftovers input))) (let (messages) (while (not (s-blank? chunk)) (if (not body-length) (let* ... ...) (let* ... ... ... ...))) (mapc #'(lambda ... ...) (nreverse messages)))) #f(compiled-function (&rest args2) #<bytecode -0xada19f5875d00f0>) "clojure-lsp" nil #s(lsp--workspace :ewoc nil :server-capabilities nil :registered-server-capabilities nil :root "/home/mattias/test_clojure/src/test_cl..." :client #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure (...) (filter sentinel name environment-fn workspace) (if ... ... ...)) :test? lsp-clojure--build-command) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x155d2cdca0cb> :request-handlers #<hash-table equal 0/65 0x155d2c6b19d1> :response-handlers #<hash-table eql 0/65 0x155d2bd657bd> :prefix-function nil :uri-handlers #<hash-table equal 1/65 0x155d2cdca08b> :action-handlers #<hash-table equal 1/65 0x155d2cdca0ab> :major-modes (clojure-mode clojurec-mode clojurescript-mode) :activation-fn nil :priority 0 :server-id clojure-lsp :multi-root nil :initialization-options (:dependency-scheme "jar" :show-docs-arity-on-same-line? t) :semantic-tokens-faces-overrides (:types (("macro" . font-lock-keyword-face) ("keyword" . clojure-keyword-face) ("event" . default))) :custom-capabilities ((experimental (testTree . t))) :library-folders-fn (closure (t) (_workspace) lsp-clojure-library-dirs) :before-file-open-fn nil :initialized-fn nil :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x155d2cdd94dd> :download-server-fn (closure (t) (_client callback error-callback _update?) (lsp-package-ensure 'clojure-lsp callback error-callback)) :download-in-progress? nil :buffers nil :synchronize-sections nil) :host-root nil :proc nil :cmd-proc nil :buffers (#<buffer core.clj>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x155d2d1112e7> :watches #<hash-table equal 0/65 0x155d2d1095a3> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x155d2d10a0a1> :work-done-tokens #<hash-table equal 0/65 0x155d2d10a2cf>))
  funcall((closure ((command . lsp-clojure--build-command)) (filter sentinel name environment-fn workspace) (if (functionp 'json-rpc-connection) (lsp-json-rpc-connection workspace (lsp-resolve-final-function command)) (let ((final-command ...) (process-name ...) (process-environment ...)) (let* (... ... ...) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag ... nil) (save-current-buffer ... ...) (cons proc proc))))) (closure ((chunk) (body) (body-length) (leftovers) (body-received . 0) (workspace . #s(lsp--workspace :ewoc nil :server-capabilities nil :registered-server-capabilities nil :root "/home/mattias/test_clojure/src/test_cl..." :client #s(lsp--client :language-id nil :add-on? nil :new-connection ... :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x155d2cdca0cb> :request-handlers #<hash-table equal 0/65 0x155d2c6b19d1> :response-handlers #<hash-table eql 0/65 0x155d2bd657bd> :prefix-function nil :uri-handlers #<hash-table equal 1/65 0x155d2cdca08b> :action-handlers #<hash-table equal 1/65 0x155d2cdca0ab> :major-modes ... :activation-fn nil :priority 0 :server-id clojure-lsp :multi-root nil :initialization-options ... :semantic-tokens-faces-overrides ... :custom-capabilities ... :library-folders-fn ... :before-file-open-fn nil :initialized-fn nil :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x155d2cdd94dd> :download-server-fn ... :download-in-progress? nil :buffers nil :synchronize-sections nil) :host-root nil :proc nil :cmd-proc nil :buffers (#<buffer core.clj>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x155d2d1112e7> :watches #<hash-table equal 0/65 0x155d2d1095a3> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x155d2d10a0a1> :work-done-tokens #<hash-table equal 0/65 0x155d2d10a2cf>))) (_proc input) (setq chunk (if (s-blank? leftovers) input (concat leftovers input))) (let (messages) (while (not (s-blank? chunk)) (if (not body-length) (let* ... ...) (let* ... ... ... ...))) (mapc #'(lambda ... ...) (nreverse messages)))) #f(compiled-function (&rest args2) #<bytecode -0xada19f5875d00f0>) "clojure-lsp" nil #s(lsp--workspace :ewoc nil :server-capabilities nil :registered-server-capabilities nil :root "/home/mattias/test_clojure/src/test_cl..." :client #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure (...) (filter sentinel name environment-fn workspace) (if ... ... ...)) :test? lsp-clojure--build-command) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x155d2cdca0cb> :request-handlers #<hash-table equal 0/65 0x155d2c6b19d1> :response-handlers #<hash-table eql 0/65 0x155d2bd657bd> :prefix-function nil :uri-handlers #<hash-table equal 1/65 0x155d2cdca08b> :action-handlers #<hash-table equal 1/65 0x155d2cdca0ab> :major-modes (clojure-mode clojurec-mode clojurescript-mode) :activation-fn nil :priority 0 :server-id clojure-lsp :multi-root nil :initialization-options (:dependency-scheme "jar" :show-docs-arity-on-same-line? t) :semantic-tokens-faces-overrides (:types (("macro" . font-lock-keyword-face) ("keyword" . clojure-keyword-face) ("event" . default))) :custom-capabilities ((experimental (testTree . t))) :library-folders-fn (closure (t) (_workspace) lsp-clojure-library-dirs) :before-file-open-fn nil :initialized-fn nil :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x155d2cdd94dd> :download-server-fn (closure (t) (_client callback error-callback _update?) (lsp-package-ensure 'clojure-lsp callback error-callback)) :download-in-progress? nil :buffers nil :synchronize-sections nil) :host-root nil :proc nil :cmd-proc nil :buffers (#<buffer core.clj>) :semantic-tokens-faces nil :semantic-tokens-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x155d2d1112e7> :watches #<hash-table equal 0/65 0x155d2d1095a3> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x155d2d10a0a1> :work-done-tokens #<hash-table equal 0/65 0x155d2d10a2cf>))
  (let* ((default-directory root) (client (copy-lsp--client client-template)) (workspace (make-lsp--workspace :root root :client client :status 'starting :buffers (list (lsp-current-buffer)) :host-root (file-remote-p root))) (server-id (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 15))) (environment-fn (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 27))) (new-connection (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 3))) (custom-capabilities (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 19))) (multi-root (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 16))) (initialized-fn (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 22))) (--dash-source-471-- (funcall (or (plist-get new-connection :connect) (user-error "Client %s is configured incorrectly" client)) (lsp--create-filter-function workspace) (apply-partially #'lsp--process-sentinel workspace) (format "%s" server-id) environment-fn workspace)) (proc (car-safe (prog1 --dash-source-471-- (setq --dash-source-471-- (cdr --dash-source-471--))))) (cmd-proc --dash-source-471--) (workspace-folders (gethash server-id (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list ... session))) (aref session 3))))) (progn (progn (or (progn (and (memq (type-of workspace) cl-struct-lsp--workspace-tags) t)) (signal 'wrong-type-argument (list 'lsp--workspace workspace))) (let* ((v workspace)) (aset v 7 proc))) (progn (or (progn (and (memq (type-of workspace) cl-struct-lsp--workspace-tags) t)) (signal 'wrong-type-argument (list 'lsp--workspace workspace))) (let* ((v workspace)) (aset v 8 cmd-proc)))) (mapc #'(lambda (project-root) (let* ((a1 workspace) (v project-root) (v (progn ... ...))) (puthash v (let* (...) (if ... vlist ...)) v))) (or workspace-folders (list root))) (let ((lsp--cur-workspace workspace)) (run-hooks 'lsp-before-initialize-hook) (lsp-request-async "initialize" (append (list :processId (if (file-remote-p (buffer-file-name)) nil (emacs-pid)) :rootPath (lsp-file-local-name (expand-file-name root)) :clientInfo (list :name "emacs" :version (emacs-version)) :rootUri (lsp--path-to-uri root) :capabilities (lsp--client-capabilities custom-capabilities) :initializationOptions initialization-options :workDoneToken "1") (if lsp-server-trace (progn (list :trace lsp-server-trace))) (if multi-root (progn (list :workspaceFolders (apply ... ...))))) #'(lambda (input0) (let* ((capabilities ...)) (if (equal ... server-id) (progn ...)) (progn (progn ... ...) (progn ... ...)) (let (...) (lsp-notify "initialized" lsp--empty-ht)) (if initialized-fn (progn ...)) (progn (or ... ...) (let* ... ...)) (mapc #'... (progn ... ...)) (let (...) (run-hooks ...)) (lsp--info "%s initialized successfully in folders: %s" (lsp--workspace-print workspace) (lsp-workspace-folders workspace)))) :mode 'detached)) workspace)
  lsp--start-workspace(#s(lsp-session :folders ("/home/mattias/test_clojure/src/test_clojure") :folders-blacklist nil :server-id->folders #<hash-table equal 0/65 0x155d2c701473> :folder->servers #<hash-table equal 0/65 0x155d2c79d9c7> :metadata #<hash-table equal 0/65 0x155d2c7bc789>) #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((command . lsp-clojure--build-command)) (filter sentinel name environment-fn workspace) (if (functionp 'json-rpc-connection) (lsp-json-rpc-connection workspace (lsp-resolve-final-function command)) (let ((final-command ...) (process-name ...) (process-environment ...)) (let* (... ... ...) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag ... nil) (save-current-buffer ... ...) (cons proc proc))))) :test? lsp-clojure--build-command) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x155d2cdca0cb> :request-handlers #<hash-table equal 0/65 0x155d2c6b19d1> :response-handlers #<hash-table eql 0/65 0x155d2bd657bd> :prefix-function nil :uri-handlers #<hash-table equal 1/65 0x155d2cdca08b> :action-handlers #<hash-table equal 1/65 0x155d2cdca0ab> :major-modes (clojure-mode clojurec-mode clojurescript-mode) :activation-fn nil :priority 0 :server-id clojure-lsp :multi-root nil :initialization-options (:dependency-scheme "jar" :show-docs-arity-on-same-line? t) :semantic-tokens-faces-overrides (:types (("macro" . font-lock-keyword-face) ("keyword" . clojure-keyword-face) ("event" . default))) :custom-capabilities ((experimental (testTree . t))) :library-folders-fn (closure (t) (_workspace) lsp-clojure-library-dirs) :before-file-open-fn nil :initialized-fn nil :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x155d2cdd94dd> :download-server-fn (closure (t) (_client callback error-callback _update?) (lsp-package-ensure 'clojure-lsp callback error-callback)) :download-in-progress? nil :buffers nil :synchronize-sections nil) "/home/mattias/test_clojure/src/test_clojure" (:dependency-scheme "jar" :show-docs-arity-on-same-line? t))
  (unwind-protect (lsp--start-workspace session client project-root (lsp--create-initialization-options session client)) (lsp--spinner-stop))
  lsp--start-connection(#s(lsp-session :folders ("/home/mattias/test_clojure/src/test_clojure") :folders-blacklist nil :server-id->folders #<hash-table equal 0/65 0x155d2c701473> :folder->servers #<hash-table equal 0/65 0x155d2c79d9c7> :metadata #<hash-table equal 0/65 0x155d2c7bc789>) #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((command . lsp-clojure--build-command)) (filter sentinel name environment-fn workspace) (if (functionp 'json-rpc-connection) (lsp-json-rpc-connection workspace (lsp-resolve-final-function command)) (let ((final-command ...) (process-name ...) (process-environment ...)) (let* (... ... ...) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag ... nil) (save-current-buffer ... ...) (cons proc proc))))) :test? lsp-clojure--build-command) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x155d2cdca0cb> :request-handlers #<hash-table equal 0/65 0x155d2c6b19d1> :response-handlers #<hash-table eql 0/65 0x155d2bd657bd> :prefix-function nil :uri-handlers #<hash-table equal 1/65 0x155d2cdca08b> :action-handlers #<hash-table equal 1/65 0x155d2cdca0ab> :major-modes (clojure-mode clojurec-mode clojurescript-mode) :activation-fn nil :priority 0 :server-id clojure-lsp :multi-root nil :initialization-options (:dependency-scheme "jar" :show-docs-arity-on-same-line? t) :semantic-tokens-faces-overrides (:types (("macro" . font-lock-keyword-face) ("keyword" . clojure-keyword-face) ("event" . default))) :custom-capabilities ((experimental (testTree . t))) :library-folders-fn (closure (t) (_workspace) lsp-clojure-library-dirs) :before-file-open-fn nil :initialized-fn nil :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x155d2cdd94dd> :download-server-fn (closure (t) (_client callback error-callback _update?) (lsp-package-ensure 'clojure-lsp callback error-callback)) :download-in-progress? nil :buffers nil :synchronize-sections nil) "/home/mattias/test_clojure/src/test_clojure")
  (or (lsp--find-workspace session client project-root) (if ignore-multi-folder nil (lsp--find-multiroot-workspace session client project-root)) (lsp--start-connection session client project-root))
  (closure ((ignore-multi-folder) (project-root . "/home/mattias/test_clojure/src/test_clojure") (session . #s(lsp-session :folders ("/home/mattias/test_clojure/src/test_clojure") :folders-blacklist nil :server-id->folders #<hash-table equal 0/65 0x155d2c701473> :folder->servers #<hash-table equal 0/65 0x155d2c79d9c7> :metadata #<hash-table equal 0/65 0x155d2c7bc789>))) (client) (or (lsp--find-workspace session client project-root) (if ignore-multi-folder nil (lsp--find-multiroot-workspace session client project-root)) (lsp--start-connection session client project-root)))(#s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((command . lsp-clojure--build-command)) (filter sentinel name environment-fn workspace) (if (functionp 'json-rpc-connection) (lsp-json-rpc-connection workspace (lsp-resolve-final-function command)) (let ((final-command ...) (process-name ...) (process-environment ...)) (let* (... ... ...) (set-process-query-on-exit-flag proc nil) (set-process-query-on-exit-flag ... nil) (save-current-buffer ... ...) (cons proc proc))))) :test? lsp-clojure--build-command) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x155d2cdca0cb> :request-handlers #<hash-table equal 0/65 0x155d2c6b19d1> :response-handlers #<hash-table eql 0/65 0x155d2bd657bd> :prefix-function nil :uri-handlers #<hash-table equal 1/65 0x155d2cdca08b> :action-handlers #<hash-table equal 1/65 0x155d2cdca0ab> :major-modes (clojure-mode clojurec-mode clojurescript-mode) :activation-fn nil :priority 0 :server-id clojure-lsp :multi-root nil :initialization-options (:dependency-scheme "jar" :show-docs-arity-on-same-line? t) :semantic-tokens-faces-overrides (:types (("macro" . font-lock-keyword-face) ("keyword" . clojure-keyword-face) ("event" . default))) :custom-capabilities ((experimental (testTree . t))) :library-folders-fn (closure (t) (_workspace) lsp-clojure-library-dirs) :before-file-open-fn nil :initialized-fn nil :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x155d2cdd94dd> :download-server-fn (closure (t) (_client callback error-callback _update?) (lsp-package-ensure 'clojure-lsp callback error-callback)) :download-in-progress? nil :buffers nil :synchronize-sections nil))
  mapcar((closure ((ignore-multi-folder) (project-root . "/home/mattias/test_clojure/src/test_clojure") (session . #s(lsp-session :folders ("/home/mattias/test_clojure/src/test_clojure") :folders-blacklist nil :server-id->folders #<hash-table equal 0/65 0x155d2c701473> :folder->servers #<hash-table equal 0/65 0x155d2c79d9c7> :metadata #<hash-table equal 0/65 0x155d2c7bc789>))) (client) (or (lsp--find-workspace session client project-root) (if ignore-multi-folder nil (lsp--find-multiroot-workspace session client project-root)) (lsp--start-connection session client project-root))) (#s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((command . lsp-clojure--build-command)) (filter sentinel name environment-fn workspace) (if (functionp 'json-rpc-connection) (lsp-json-rpc-connection workspace (lsp-resolve-final-function command)) (let (... ... ...) (let* ... ... ... ... ...)))) :test? lsp-clojure--build-command) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x155d2cdca0cb> :request-handlers #<hash-table equal 0/65 0x155d2c6b19d1> :response-handlers #<hash-table eql 0/65 0x155d2bd657bd> :prefix-function nil :uri-handlers #<hash-table equal 1/65 0x155d2cdca08b> :action-handlers #<hash-table equal 1/65 0x155d2cdca0ab> :major-modes (clojure-mode clojurec-mode clojurescript-mode) :activation-fn nil :priority 0 :server-id clojure-lsp :multi-root nil :initialization-options (:dependency-scheme "jar" :show-docs-arity-on-same-line? t) :semantic-tokens-faces-overrides (:types (("macro" . font-lock-keyword-face) ("keyword" . clojure-keyword-face) ("event" . default))) :custom-capabilities ((experimental (testTree . t))) :library-folders-fn (closure (t) (_workspace) lsp-clojure-library-dirs) :before-file-open-fn nil :initialized-fn nil :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x155d2cdd94dd> :download-server-fn (closure (t) (_client callback error-callback _update?) (lsp-package-ensure 'clojure-lsp callback error-callback)) :download-in-progress? nil :buffers nil :synchronize-sections nil)))
  -map((closure ((ignore-multi-folder) (project-root . "/home/mattias/test_clojure/src/test_clojure") (session . #s(lsp-session :folders ("/home/mattias/test_clojure/src/test_clojure") :folders-blacklist nil :server-id->folders #<hash-table equal 0/65 0x155d2c701473> :folder->servers #<hash-table equal 0/65 0x155d2c79d9c7> :metadata #<hash-table equal 0/65 0x155d2c7bc789>))) (client) (or (lsp--find-workspace session client project-root) (if ignore-multi-folder nil (lsp--find-multiroot-workspace session client project-root)) (lsp--start-connection session client project-root))) (#s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((command . lsp-clojure--build-command)) (filter sentinel name environment-fn workspace) (if (functionp 'json-rpc-connection) (lsp-json-rpc-connection workspace (lsp-resolve-final-function command)) (let (... ... ...) (let* ... ... ... ... ...)))) :test? lsp-clojure--build-command) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x155d2cdca0cb> :request-handlers #<hash-table equal 0/65 0x155d2c6b19d1> :response-handlers #<hash-table eql 0/65 0x155d2bd657bd> :prefix-function nil :uri-handlers #<hash-table equal 1/65 0x155d2cdca08b> :action-handlers #<hash-table equal 1/65 0x155d2cdca0ab> :major-modes (clojure-mode clojurec-mode clojurescript-mode) :activation-fn nil :priority 0 :server-id clojure-lsp :multi-root nil :initialization-options (:dependency-scheme "jar" :show-docs-arity-on-same-line? t) :semantic-tokens-faces-overrides (:types (("macro" . font-lock-keyword-face) ("keyword" . clojure-keyword-face) ("event" . default))) :custom-capabilities ((experimental (testTree . t))) :library-folders-fn (closure (t) (_workspace) lsp-clojure-library-dirs) :before-file-open-fn nil :initialized-fn nil :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x155d2cdd94dd> :download-server-fn (closure (t) (_client callback error-callback _update?) (lsp-package-ensure 'clojure-lsp callback error-callback)) :download-in-progress? nil :buffers nil :synchronize-sections nil)))
  lsp--ensure-lsp-servers(#s(lsp-session :folders ("/home/mattias/test_clojure/src/test_clojure") :folders-blacklist nil :server-id->folders #<hash-table equal 0/65 0x155d2c701473> :folder->servers #<hash-table equal 0/65 0x155d2c79d9c7> :metadata #<hash-table equal 0/65 0x155d2c7bc789>) (#s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((command . lsp-clojure--build-command)) (filter sentinel name environment-fn workspace) (if (functionp 'json-rpc-connection) (lsp-json-rpc-connection workspace (lsp-resolve-final-function command)) (let (... ... ...) (let* ... ... ... ... ...)))) :test? lsp-clojure--build-command) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 1/65 0x155d2cdca0cb> :request-handlers #<hash-table equal 0/65 0x155d2c6b19d1> :response-handlers #<hash-table eql 0/65 0x155d2bd657bd> :prefix-function nil :uri-handlers #<hash-table equal 1/65 0x155d2cdca08b> :action-handlers #<hash-table equal 1/65 0x155d2cdca0ab> :major-modes (clojure-mode clojurec-mode clojurescript-mode) :activation-fn nil :priority 0 :server-id clojure-lsp :multi-root nil :initialization-options (:dependency-scheme "jar" :show-docs-arity-on-same-line? t) :semantic-tokens-faces-overrides (:types (("macro" . font-lock-keyword-face) ("keyword" . clojure-keyword-face) ("event" . default))) :custom-capabilities ((experimental (testTree . t))) :library-folders-fn (closure (t) (_workspace) lsp-clojure-library-dirs) :before-file-open-fn nil :initialized-fn nil :remote? nil :completion-in-comments? nil :path->uri-fn nil :uri->path-fn nil :environment-fn nil :after-open-fn nil :async-request-handlers #<hash-table equal 0/65 0x155d2cdd94dd> :download-server-fn (closure (t) (_client callback error-callback _update?) (lsp-package-ensure 'clojure-lsp callback error-callback)) :download-in-progress? nil :buffers nil :synchronize-sections nil)) "/home/mattias/test_clojure/src/test_clojure" nil)
  (progn (if (-contains? (progn (or (progn (and (memq ... cl-struct-lsp-session-tags) t)) (signal 'wrong-type-argument (list 'lsp-session session))) (aref session 1)) project-root) nil (progn (or (progn (and (memq (type-of session) cl-struct-lsp-session-tags) t)) (signal 'wrong-type-argument (list 'lsp-session session))) (let* ((v session)) (aset v 1 (let* ((vlist ...)) (if (memql project-root vlist) vlist (cons project-root vlist)))))) (lsp--persist-session session)) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder))
  (if project-root (progn (if (-contains? (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list ... session))) (aref session 1)) project-root) nil (progn (or (progn (and (memq ... cl-struct-lsp-session-tags) t)) (signal 'wrong-type-argument (list 'lsp-session session))) (let* ((v session)) (aset v 1 (let* (...) (if ... vlist ...))))) (lsp--persist-session session)) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder)) (lsp--warn "%s not in project or it is blacklisted." (buffer-name)) nil)
  (let ((project-root (let ((result (let (...) (if result ...)))) (if result (progn (lsp-f-canonical result)))))) (if project-root (progn (if (-contains? (progn (or (progn ...) (signal ... ...)) (aref session 1)) project-root) nil (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list ... session))) (let* ((v session)) (aset v 1 (let* ... ...)))) (lsp--persist-session session)) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder)) (lsp--warn "%s not in project or it is blacklisted." (buffer-name)) nil))
  (if clients (let ((project-root (let ((result (let ... ...))) (if result (progn (lsp-f-canonical result)))))) (if project-root (progn (if (-contains? (progn (or ... ...) (aref session 1)) project-root) nil (progn (or (progn ...) (signal ... ...)) (let* (...) (aset v 1 ...))) (lsp--persist-session session)) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder)) (lsp--warn "%s not in project or it is blacklisted." (buffer-name)) nil)) (lsp--warn "No LSP server for %s(check *lsp-log*)." major-mode) nil)
  (let ((clients (if ask-for-client (list (lsp--completing-read "Select server to start: " (ht-values lsp-clients) (-compose 'symbol-name 'lsp--client-server-id) nil t)) (lsp--find-clients)))) (if clients (let ((project-root (let ((result ...)) (if result (progn ...))))) (if project-root (progn (if (-contains? (progn ... ...) project-root) nil (progn (or ... ...) (let* ... ...)) (lsp--persist-session session)) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder)) (lsp--warn "%s not in project or it is blacklisted." (buffer-name)) nil)) (lsp--warn "No LSP server for %s(check *lsp-log*)." major-mode) nil))
  (let* ((session input0)) (let ((clients (if ask-for-client (list (lsp--completing-read "Select server to start: " (ht-values lsp-clients) (-compose ... ...) nil t)) (lsp--find-clients)))) (if clients (let ((project-root (let (...) (if result ...)))) (if project-root (progn (if (-contains? ... project-root) nil (progn ... ...) (lsp--persist-session session)) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder)) (lsp--warn "%s not in project or it is blacklisted." (buffer-name)) nil)) (lsp--warn "No LSP server for %s(check *lsp-log*)." major-mode) nil)))
  (let ((input0 (lsp-session))) (let* ((session input0)) (let ((clients (if ask-for-client (list (lsp--completing-read "Select server to start: " ... ... nil t)) (lsp--find-clients)))) (if clients (let ((project-root (let ... ...))) (if project-root (progn (if ... nil ... ...) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder)) (lsp--warn "%s not in project or it is blacklisted." (buffer-name)) nil)) (lsp--warn "No LSP server for %s(check *lsp-log*)." major-mode) nil))))
  lsp--try-project-root-workspaces(nil nil)
  (or (and (not (lsp-find-session-folder (lsp-session) (buffer-file-name))) (lsp--try-open-in-library-workspace)) (lsp--try-project-root-workspaces (equal arg '(4)) (and arg (not (equal arg 1)))))
  (setq lsp--buffer-workspaces (or (and (not (lsp-find-session-folder (lsp-session) (buffer-file-name))) (lsp--try-open-in-library-workspace)) (lsp--try-project-root-workspaces (equal arg '(4)) (and arg (not (equal arg 1))))))
  (if (setq lsp--buffer-workspaces (or (and (not (lsp-find-session-folder (lsp-session) (buffer-file-name))) (lsp--try-open-in-library-workspace)) (lsp--try-project-root-workspaces (equal arg '(4)) (and arg (not (equal arg 1)))))) (progn (lsp-mode 1) (if lsp-auto-configure (progn (lsp--auto-configure))) (setq lsp-buffer-uri (lsp--buffer-uri)) (lsp--info "Connected to %s." (apply 'concat (mapcar #'(lambda (it) (ignore it) (format "[%s %s]" ... ...)) lsp--buffer-workspaces)))))
  (cond (matching-clients (if (setq lsp--buffer-workspaces (or (and (not (lsp-find-session-folder ... ...)) (lsp--try-open-in-library-workspace)) (lsp--try-project-root-workspaces (equal arg '...) (and arg (not ...))))) (progn (lsp-mode 1) (if lsp-auto-configure (progn (lsp--auto-configure))) (setq lsp-buffer-uri (lsp--buffer-uri)) (lsp--info "Connected to %s." (apply 'concat (mapcar #'... lsp--buffer-workspaces)))))) ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--client-download-in-progress?))) (lsp--info "There are language server(%s) installation in prog..." (-map #'lsp--client-server-id clients)) (seq-do #'(lambda (client) (progn (or (progn ...) (signal ... ...)) (let* (...) (aset v 32 ...)))) clients)) ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? (-const lsp-enable-suggest-server-download) #'lsp--client-download-server-fn (-not #'lsp--client-download-in-progress?)))) (let ((client (lsp--completing-read (concat "Unable to find installed server supporting this fi..." "The following servers could be installed automatic...") clients (-compose #'symbol-name #'lsp--client-server-id) nil t))) (progn (or (progn (and (memq ... cl-struct-lsp--client-tags) t)) (signal 'wrong-type-argument (list 'lsp--client client))) (let* ((v client)) (aset v 32 (let* (... ...) (if ... vlist ...))))) (lsp--install-server-internal client))) ((not lsp-warn-no-matched-clients) nil) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--client-download-server-fn (-not (-const lsp-enable-suggest-server-download)) (-not #'lsp--server-binary-present?))))) (lsp--warn "The following servers support current file but aut..." (mapconcat #'(lambda (client) (symbol-name (progn ... ...))) clients " "))) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn #'lsp--supports-buffer? (-not #'lsp--server-binary-present?))))) (lsp--warn "The following servers support current file but do ..." (mapconcat #'(lambda (client) (symbol-name (progn ... ...))) clients " "))) ((not (lsp--filter-clients #'lsp--supports-buffer?)) (lsp--error "There are no language servers supporting current m..." major-mode major-mode major-mode)))
  (let (clients (matching-clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--server-binary-present?)))) (cond (matching-clients (if (setq lsp--buffer-workspaces (or (and (not ...) (lsp--try-open-in-library-workspace)) (lsp--try-project-root-workspaces (equal arg ...) (and arg ...)))) (progn (lsp-mode 1) (if lsp-auto-configure (progn (lsp--auto-configure))) (setq lsp-buffer-uri (lsp--buffer-uri)) (lsp--info "Connected to %s." (apply 'concat (mapcar ... lsp--buffer-workspaces)))))) ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--client-download-in-progress?))) (lsp--info "There are language server(%s) installation in prog..." (-map #'lsp--client-server-id clients)) (seq-do #'(lambda (client) (progn (or ... ...) (let* ... ...))) clients)) ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? (-const lsp-enable-suggest-server-download) #'lsp--client-download-server-fn (-not #'lsp--client-download-in-progress?)))) (let ((client (lsp--completing-read (concat "Unable to find installed server supporting this fi..." "The following servers could be installed automatic...") clients (-compose ... ...) nil t))) (progn (or (progn (and ... t)) (signal 'wrong-type-argument (list ... client))) (let* ((v client)) (aset v 32 (let* ... ...)))) (lsp--install-server-internal client))) ((not lsp-warn-no-matched-clients) nil) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--client-download-server-fn (-not ...) (-not ...))))) (lsp--warn "The following servers support current file but aut..." (mapconcat #'(lambda (client) (symbol-name ...)) clients " "))) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn #'lsp--supports-buffer? (-not ...))))) (lsp--warn "The following servers support current file but do ..." (mapconcat #'(lambda (client) (symbol-name ...)) clients " "))) ((not (lsp--filter-clients #'lsp--supports-buffer?)) (lsp--error "There are no language servers supporting current m..." major-mode major-mode major-mode))))
  (progn (let (clients (matching-clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--server-binary-present?)))) (cond (matching-clients (if (setq lsp--buffer-workspaces (or (and ... ...) (lsp--try-project-root-workspaces ... ...))) (progn (lsp-mode 1) (if lsp-auto-configure (progn ...)) (setq lsp-buffer-uri (lsp--buffer-uri)) (lsp--info "Connected to %s." (apply ... ...))))) ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--client-download-in-progress?))) (lsp--info "There are language server(%s) installation in prog..." (-map #'lsp--client-server-id clients)) (seq-do #'(lambda (client) (progn ... ...)) clients)) ((setq clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? (-const lsp-enable-suggest-server-download) #'lsp--client-download-server-fn (-not ...)))) (let ((client (lsp--completing-read ... clients ... nil t))) (progn (or (progn ...) (signal ... ...)) (let* (...) (aset v 32 ...))) (lsp--install-server-internal client))) ((not lsp-warn-no-matched-clients) nil) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn ... ... ... ...)))) (lsp--warn "The following servers support current file but aut..." (mapconcat #'(lambda ... ...) clients " "))) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn ... ...)))) (lsp--warn "The following servers support current file but do ..." (mapconcat #'(lambda ... ...) clients " "))) ((not (lsp--filter-clients #'lsp--supports-buffer?)) (lsp--error "There are no language servers supporting current m..." major-mode major-mode major-mode)))))
  (if (buffer-file-name) (progn (let (clients (matching-clients (lsp--filter-clients (-andfn #'lsp--supports-buffer? #'lsp--server-binary-present?)))) (cond (matching-clients (if (setq lsp--buffer-workspaces (or ... ...)) (progn (lsp-mode 1) (if lsp-auto-configure ...) (setq lsp-buffer-uri ...) (lsp--info "Connected to %s." ...)))) ((setq clients (lsp--filter-clients (-andfn ... ...))) (lsp--info "There are language server(%s) installation in prog..." (-map #'lsp--client-server-id clients)) (seq-do #'(lambda ... ...) clients)) ((setq clients (lsp--filter-clients (-andfn ... ... ... ...))) (let ((client ...)) (progn (or ... ...) (let* ... ...)) (lsp--install-server-internal client))) ((not lsp-warn-no-matched-clients) nil) ((setq clients (if matching-clients nil (lsp--filter-clients ...))) (lsp--warn "The following servers support current file but aut..." (mapconcat #'... clients " "))) ((setq clients (if matching-clients nil (lsp--filter-clients ...))) (lsp--warn "The following servers support current file but do ..." (mapconcat #'... clients " "))) ((not (lsp--filter-clients #'lsp--supports-buffer?)) (lsp--error "There are no language servers supporting current m..." major-mode major-mode major-mode))))))
  lsp()
  run-hooks(change-major-mode-after-body-hook prog-mode-hook clojure-mode-hook)
  apply(run-hooks (change-major-mode-after-body-hook prog-mode-hook clojure-mode-hook))
  run-mode-hooks(clojure-mode-hook)
  clojure-mode()
  set-auto-mode-0(clojure-mode nil)
  set-auto-mode--apply-alist((("\\.hsc\\'" . haskell-mode) ("\\.l[gh]s\\'" . haskell-literate-mode) ("\\.hsig\\'" . haskell-mode) ("\\.[gh]s\\'" . haskell-mode) ("\\.cabal\\'\\|/cabal\\.project\\|/\\.cabal/config\\'" . haskell-cabal-mode) ("\\.chs\\'" . haskell-c2hs-mode) ("\\.ghci\\'" . ghci-script-mode) ("\\.dump-simpl\\'" . ghc-core-mode) ("\\.hcr\\'" . ghc-core-mode) ("\\.ts\\'" . typescript-mode) ("\\(?:build\\|profile\\)\\.boot\\'" . clojure-mode) ("\\.cljs\\'" . clojurescript-mode) ("\\.cljc\\'" . clojurec-mode) ("\\.\\(clj\\|cljd\\|dtm\\|edn\\)\\'" . clojure-mode) ("\\.\\(scala\\|sbt\\|worksheet\\.sc\\)\\'" . scala-mode) ("\\.\\(?:php[s345]?\\|phtml\\)\\'" . php-mode-maybe) ("\\.\\(?:php\\.inc\\|stub\\)\\'" . php-mode) ("/\\.php_cs\\(?:\\.dist\\)?\\'" . php-mode) ("\\.rs\\'" . rust-mode) ("\\.dart\\'" . dart-mode) ("\\.\\(?:md\\|markdown\\|mkd\\|mdown\\|mkdn\\|mdwn\\)\\'" . markdown-mode) ("\\.gpg\\(~\\|\\.~[0-9]+~\\)?\\'" nil epa-file) ("\\.elc\\'" . elisp-byte-code-mode) ("\\.\\(?:3fr\\|a\\(?:rw\\|vs\\)\\|bmp[23]?\\|c\\(?:als?\\|myk..." . image-mode) ("\\.zst\\'" nil jka-compr) ("\\.dz\\'" nil jka-compr) ("\\.xz\\'" nil jka-compr) ("\\.lzma\\'" nil jka-compr) ("\\.lz\\'" nil jka-compr) ("\\.g?z\\'" nil jka-compr) ("\\.bz2\\'" nil jka-compr) ("\\.Z\\'" nil jka-compr) ("\\.vr[hi]?\\'" . vera-mode) ("\\.tsx\\'" . typescript-ts-mode) ("\\.ts\\'" . typescript-ts-mode) ("\\(?:\\.\\(?:rbw?\\|ru\\|rake\\|thor\\|jbuilder\\|rabl\\|ge..." . ruby-mode) ("\\.re?st\\'" . rst-mode) ("\\.py[iw]?\\'" . python-mode) ("\\.m\\'" . octave-maybe-mode) ("\\.less\\'" . less-css-mode) ("\\.scss\\'" . scss-mode) ("\\.cs\\'" . csharp-mode) ("\\.awk\\'" . awk-mode) ("\\.\\(u?lpc\\|pike\\|pmod\\(\\.in\\)?\\)\\'" . pike-mode) ("\\.idl\\'" . idl-mode) ("\\.java\\'" . java-mode) ("\\.m\\'" . objc-mode) ("\\.ii\\'" . c++-mode) ("\\.i\\'" . c-mode) ("\\.lex\\'" . c-mode) ...) nil nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer core.clj> "~/test_clojure/src/test_clojure/core.clj" nil nil "~/test_clojure/src/test_clojure/core.clj" (201226 2064))
  find-file-noselect("/home/mattias/test_clojure/src/test_clojure/core.c...")
  command-line-1(("-l" "/tmp/plainMdo9Nx.el" "/home/mattias/test_clojure/src/test_clojure/core.c..."))
  command-line()
  normal-top-level()


### Anything else?

_No response_
ericdallo commented 1 year ago

I have no idea why that happens, any thoughts @yyoncho ?

yyoncho commented 1 year ago

@ericdallo I think that lsp-clojure.el returns nil as command.

ericdallo commented 1 year ago

Got it, will take a look, and possible fix it, thank you!

ericdallo commented 1 year ago

@mattiasdrp it should be fixed on master, the issue was that when emacs didn't find clojure-lsp on system, it was building a '(nil) which is not the same as nil so lsp-mode was blowing up, LMK if otherwise

mattiasdrp commented 1 year ago

Just checked it and it works perfectly, thanks!