eglot-java-run-test fails with No applicable method: jsonrpc--request-continuations, nil

[skybert]

When I'm in a JUnit java file and have the point at a test method, running M-x eglot-java-run-test fails with:

cl-no-applicable-method: No applicable method: jsonrpc--request-continuations, nil

Expected:

Emacs runs the unit test with output in a compilation buffer.

Versions

GNU Emacs 29.4 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.43, cairo version 1.18.2)
~/.emacs.d/elpa/eglot-java-20240501.922/

Full stack trace:

Debugger entered--Lisp error: (cl-no-applicable-method jsonrpc--next-request-id nil)
  signal(cl-no-applicable-method (jsonrpc--next-request-id nil))
  cl-no-applicable-method(#s(cl--generic :name jsonrpc--next-request-id :dispatches ((0 #s(cl--generic-generalizer :name eieio--generic-generalizer :priority 50 :tagcode-function cl--generic-struct-tag :specializers-function #f(compiled-function (tag &rest _) #<bytecode 0x668a167596c01>)) #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1cba0b13a96764e4>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x2b662d08469105e>)))) :method-table (#s(cl--generic-method :specializers (jsonrpc-connection) :qualifiers nil :call-con nil :function #f(compiled-function (this) "Retrieve the slot `-next-request-id' from an object of class\n`jsonrpc-connection'." #<bytecode -0xdff9361f34872a5>))) :options nil) nil)
  apply(cl-no-applicable-method #s(cl--generic :name jsonrpc--next-request-id :dispatches ((0 #s(cl--generic-generalizer :name eieio--generic-generalizer :priority 50 :tagcode-function cl--generic-struct-tag :specializers-function #f(compiled-function (tag &rest _) #<bytecode 0x668a167596c01>)) #s(cl--generic-generalizer :name cl--generic-t-generalizer :priority 0 :tagcode-function #f(compiled-function (name &rest _) #<bytecode -0x1cba0b13a96764e4>) :specializers-function #f(compiled-function (tag &rest _) #<bytecode -0x2b662d08469105e>)))) :method-table (#s(cl--generic-method :specializers (jsonrpc-connection) :qualifiers nil :call-con nil :function #f(compiled-function (this) "Retrieve the slot `-next-request-id' from an object of class\n`jsonrpc-connection'." #<bytecode -0xdff9361f34872a5>))) :options nil) nil)
  #f(compiled-function (&rest args) #<bytecode -0xd3fa8b7e36dcc4a>)(nil)
  apply(#f(compiled-function (&rest args) #<bytecode -0xd3fa8b7e36dcc4a>) nil nil)
  jsonrpc--next-request-id(nil)
  jsonrpc--async-request-1(nil :textDocument/documentSymbol (:textDocument (:uri "file:///home/torstein/src/foo/foo-...")) :success-fn #f(compiled-function (result) #<bytecode -0x140a91e118b5cbc4>) :error-fn #f(compiled-function (jsonrpc-lambda-elem0) #<bytecode -0x1263e6afbfc646e>) :timeout-fn #f(compiled-function () #<bytecode -0x1ff00af676039458>))
  apply(jsonrpc--async-request-1 nil :textDocument/documentSymbol (:textDocument (:uri "file:///home/torstein/src/foo/foo-...")) :success-fn #f(compiled-function (result) #<bytecode -0x140a91e118b5cbc4>) :error-fn #f(compiled-function (jsonrpc-lambda-elem0) #<bytecode -0x1263e6afbfc646e>) :timeout-fn #f(compiled-function () #<bytecode -0x1ff00af676039458>) nil)
  #<subr jsonrpc-request>(nil :textDocument/documentSymbol (:textDocument (:uri "file:///home/torstein/src/foo/foo-...")))
  apply(#<subr jsonrpc-request> (nil :textDocument/documentSymbol (:textDocument (:uri "file:///home/torstein/src/foo/foo-..."))))
  jsonrpc-request(nil :textDocument/documentSymbol (:textDocument (:uri "file:///home/torstein/src/foo/foo-...")))
  eglot-java--document-symbols()
  eglot-java--find-nearest-method-at-point()
  eglot-java-run-test(nil)
  funcall-interactively(eglot-java-run-test nil)
  command-execute(eglot-java-run-test record)
  #<subr execute-extended-command>(nil "eglot-java-run-test" nil)
  ad-Advice-execute-extended-command(#<subr execute-extended-command> nil "eglot-java-run-test")
  apply(ad-Advice-execute-extended-command #<subr execute-extended-command> (nil "eglot-java-run-test"))
  execute-extended-command(nil "eglot-java-run-test")
  smex-read-and-run(("eglot-java-run-test" "list-packages" "eldoc" "eglot" "eldoc-doc-buffer" "revert-buffer" "envrc-allow" "projectile-grep" "tkj/copy-vc-link" "smerge-keep-current" "shell" "man" "insert-char" "sort-lines" "package-install" "delete-trailing-whitespace" "sh-mode" "vterm" "tkj/insert-date" "tkj/unpresent" "package-delete" "lsp" "conf-mode" "lisp-mode" "load-theme" "ispell-word" "tkj/present" "ox-jira-export-as-jira" "occur" "d2-mode" "eval-region" "whitespace-mode" "customize-variable" "org-mode" "xml-mode" "magit-status" "disable-theme" "auto-fill-mode" "lsp-install-server" "term" "git-link" "java-mode" "text-mode" "LaTeX-mode" "counsel-grep" "envrc-reload" "ediff-buffers" "flyspell-mode" "markdown-mode" "profiler-start" ...))
  smex()
  funcall-interactively(smex)
  command-execute(smex)

[Lucartas]

Have the same problem.
Emacs version:
GNU Emacs 29.4 (build 2, x86_64-apple-darwin24.1.0, NS appkit-2575.20 Version 15.1.1 (Build 24B91)) of 2024-12-14
using the built-in Eglot version (~1.12).

With my very limited knowledge of lisp I've managed to track the problem to the function eglot-java--find-server:

  "Find the LSP server of type eglot-java-eclipse-jdt for the
current project. In the strange event that there are multiple,
return the first one."
  (when-let* ((project (project-current))
              (servers (gethash project eglot--servers-by-project)))
    (cl-find-if #'eglot-java-eclipse-jdt-p servers)))

The last line with cl-find-if always return nil (it never finds the server). If I change it to:
(cl-find-if #'eglot-lsp-server-p servers)))
it works although I don't understand why one works and the other no... :-\

[skybert]

Nice. I went down a different path: I wrote my own function (and removed eglot-java): https://gitlab.com/skybert/my-little-friends/-/commit/6caf437148157e3aa48074e861a22e4d2d884403

…

On Tue, 31 Dec 2024, 15:25 Lucartas, ***@***.***> wrote: Have the same problem. Emacs version: GNU Emacs 29.4 (build 2, x86_64-apple-darwin24.1.0, NS appkit-2575.20 Version 15.1.1 (Build 24B91)) of 2024-12-14 using the built-in Eglot version (~1.12). With my very limited knowledge of lisp I've managed to track the problem to the function eglot-java--find-server: "Find the LSP server of type eglot-java-eclipse-jdt for the current project. In the strange event that there are multiple, return the first one." (when-let* ((project (project-current)) (servers (gethash project eglot--servers-by-project))) (cl-find-if #'eglot-java-eclipse-jdt-p servers))) The last line with cl-find-if always return nil (it never finds the server). If I change it to: (cl-find-if #'eglot-lsp-server-p servers))) it works although I don't understand why one works and the other no... :-\ — Reply to this email directly, view it on GitHub <#56 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AACTOTQYACCLWXQZ6LPETRD2IKSMHAVCNFSM6AAAAABTQSCD5WVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZDKNRWGQ4TGMJYGI> . You are receiving this because you authored the thread.Message ID: ***@***.***>

[lwiechec]

@skybert thank you for a great solution!

[skybert]

You're welcome 😊