Lsp-mode: lsp-haxe on startup (wrong-type-argument symbolp "sendMethodResults")

[ponobodod]

Describe the bug
When starting lsp with lsp-haxe, it errors with Lisp error: (wrong-type-argument symbolp "sendMethodResults") and does not continue

To Reproduce
Start lsp in a haxe project

OS
Ubuntu 18.04 LTS Emacs 27.1

Error callstack

Debugger entered--Lisp error: (wrong-type-argument symbolp "sendMethodResults")
  json-serialize((:jsonrpc "2.0" :method "initialize" :params (:processId nil :rootPath "/home/x/Documents/debugger" :clientInfo (:name "emacs" :version "GNU Emacs 27.1 (build 1, x86_64-pc-linux-gnu, GTK+...") :rootUri "file:///home/x/Documents/debugger" :capabilities ((workspace (workspaceEdit (documentChanges . t) (resourceOperations . ["create" "rename" "delete"])) (applyEdit . t) (symbol (symbolKind (valueSet . ...))) (executeCommand (dynamicRegistration . :json-false)) (didChangeWatchedFiles (dynamicRegistration . t)) (workspaceFolders . t) (configuration . t)) (textDocument (declaration (linkSupport . t)) (definition (linkSupport . t)) (implementation (linkSupport . t)) (typeDefinition (linkSupport . t)) (synchronization (willSave . t) (didSave . t) (willSaveWaitUntil . t)) (documentSymbol (symbolKind (valueSet . ...)) (hierarchicalDocumentSymbolSupport . t)) (formatting (dynamicRegistration . t)) (rangeFormatting (dynamicRegistration . t)) (rename (dynamicRegistration . t) (prepareSupport . t)) (codeAction (dynamicRegistration . t) (isPreferredSupport . t) (codeActionLiteralSupport (codeActionKind ...))) (completion (completionItem (snippetSupport . :json-false) (documentationFormat . ...) (resolveAdditionalTextEditsSupport . t)) (contextSupport . t)) (signatureHelp (signatureInformation (parameterInformation ...))) (documentLink (dynamicRegistration . t) (tooltipSupport . t)) (hover (contentFormat . ["markdown" "plaintext"])) (foldingRange (dynamicRegistration . t)) (callHierarchy (dynamicRegistration . :json-false)) (publishDiagnostics (relatedInformation . t) (tagSupport (valueSet . ...)) (versionSupport . t))) (window (workDoneProgress . t))) :initializationOptions (("sendMethodResults" . t) ("haxelibConfig" ("executable" . "haxelib")) ("displayServerConfig" ("print" ("reusing" . :json-false) ("completion" . :json-false)) ("arguments" . []) ("env") ("path" . "haxe")) ("displayArguments" . ["build.hxml"])) :workDoneToken "1") :id 1) :null-object nil :false-object :json-false)
  (let ((body (json-serialize params :null-object nil :false-object :json-false))) (concat "Content-Length: " (number-to-string (1+ (string-bytes body))) "\15\n\15\n" body "\n"))
  lsp--make-message((:jsonrpc "2.0" :method "initialize" :params (:processId nil :rootPath "/home/x/Documents/debugger" :clientInfo (:name "emacs" :version "GNU Emacs 27.1 (build 1, x86_64-pc-linux-gnu, GTK+...") :rootUri "file:///home/x/Documents/debugger" :capabilities ((workspace (workspaceEdit (documentChanges . t) (resourceOperations . ["create" "rename" "delete"])) (applyEdit . t) (symbol (symbolKind (valueSet . ...))) (executeCommand (dynamicRegistration . :json-false)) (didChangeWatchedFiles (dynamicRegistration . t)) (workspaceFolders . t) (configuration . t)) (textDocument (declaration (linkSupport . t)) (definition (linkSupport . t)) (implementation (linkSupport . t)) (typeDefinition (linkSupport . t)) (synchronization (willSave . t) (didSave . t) (willSaveWaitUntil . t)) (documentSymbol (symbolKind (valueSet . ...)) (hierarchicalDocumentSymbolSupport . t)) (formatting (dynamicRegistration . t)) (rangeFormatting (dynamicRegistration . t)) (rename (dynamicRegistration . t) (prepareSupport . t)) (codeAction (dynamicRegistration . t) (isPreferredSupport . t) (codeActionLiteralSupport (codeActionKind ...))) (completion (completionItem (snippetSupport . :json-false) (documentationFormat . ...) (resolveAdditionalTextEditsSupport . t)) (contextSupport . t)) (signatureHelp (signatureInformation (parameterInformation ...))) (documentLink (dynamicRegistration . t) (tooltipSupport . t)) (hover (contentFormat . ["markdown" "plaintext"])) (foldingRange (dynamicRegistration . t)) (callHierarchy (dynamicRegistration . :json-false)) (publishDiagnostics (relatedInformation . t) (tagSupport (valueSet . ...)) (versionSupport . t))) (window (workDoneProgress . t))) :initializationOptions (("sendMethodResults" . t) ("haxelibConfig" ("executable" . "haxelib")) ("displayServerConfig" ("print" ("reusing" . :json-false) ("completion" . :json-false)) ("arguments" . []) ("env") ("path" . "haxe")) ("displayArguments" . ["build.hxml"])) :workDoneToken "1") :id 1))
  (let ((message (lsp--make-message body))) (puthash id (list callback error-callback method start-time (current-time)) (let ((cl-x (progn (or (and ... t) (signal ... ...)) (aref workspace 5)))) (progn (or (and (memq (type-of cl-x) cl-struct-lsp--client-tags) t) (signal 'wrong-type-argument (list 'lsp--client cl-x))) (aref cl-x 8)))) (lsp--send-no-wait message (progn (or (and (memq (type-of workspace) cl-struct-lsp--workspace-tags) t) (signal 'wrong-type-argument (list 'lsp--workspace workspace))) (aref workspace 7))))
  (closure (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (workspace) (if lsp-log-io ...) (let ... ... ...))(#s(lsp--workspace :ewoc #s(ewoc :buffer #<buffer *lsp-log: haxe:16101*> :pretty-printer lsp--log-entry-pp :header [[[[#3 #5 ... #<marker at 1 in *lsp-log: haxe:16101*>] #4 "" #<marker at 4367 in *lsp-log: haxe:16101*>] #3 DL-LIST #<marker at 4367 in *lsp-log: haxe:16101*>] [#3 [#4 [#5 #3 DL-LIST #<marker at 4367 in *lsp-log: haxe:16101*>] "" #<marker at 4367 in *lsp-log: haxe:16101*>] #s(lsp--log-entry :timestamp "11:45:38 am" :process-time nil :type outgoing-req :method "initialize" :id 1 :body (:processId nil :rootPath "/home/x/Documents/debugger" :clientInfo ... :rootUri "file:///home/x/Documents/debugger" :capabilities ... :initializationOptions ... :workDoneToken "1")) #<marker at 1 in *lsp-log: haxe:16101*>] "" #<marker at 1 in *lsp-log: haxe:16101*>] :footer [[[[#3 #5 DL-LIST #<marker at 4367 in *lsp-log: haxe:16101*>] #4 "" #<marker at 1 in *lsp-log: haxe:16101*>] #3 #s(lsp--log-entry :timestamp "11:45:38 am" :process-time nil :type outgoing-req :method "initialize" :id 1 :body (:processId nil :rootPath "/home/x/Documents/debugger" :clientInfo ... :rootUri "file:///home/x/Documents/debugger" :capabilities ... :initializationOptions ... :workDoneToken "1")) #<marker at 1 in *lsp-log: haxe:16101*>] [#3 [#4 [#5 #3 ... #<marker at 1 in *lsp-log: haxe:16101*>] "" #<marker at 1 in *lsp-log: haxe:16101*>] DL-LIST #<marker at 4367 in *lsp-log: haxe:16101*>] "" #<marker at 4367 in *lsp-log: haxe:16101*>] :dll [[[[#3 #5 "" #<marker at 1 in *lsp-log: haxe:16101*>] #4 #s(lsp--log-entry :timestamp "11:45:38 am" :process-time nil :type outgoing-req :method "initialize" :id 1 :body ...) #<marker at 1 in *lsp-log: haxe:16101*>] #3 "" #<marker at 4367 in *lsp-log: haxe:16101*>] [#3 [#4 [#5 #3 "" #<marker at 4367 in *lsp-log: haxe:16101*>] #s(lsp--log-entry :timestamp "11:45:38 am" :process-time nil :type outgoing-req :method "initialize" :id 1 :body ...) #<marker at 1 in *lsp-log: haxe:16101*>] "" #<marker at 1 in *lsp-log: haxe:16101*>] DL-LIST #<marker at 4367 in *lsp-log: haxe:16101*>] :last-node nil :hf-pp insert) :server-capabilities nil :registered-server-capabilities nil :root "/home/x/Documents/debugger" :client #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) (filter sentinel name environment-fn) (let (... ... ...) (let* ... ... ... ... ...))) :test\? (closure ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) nil (lsp-server-present\? (lsp-resolve-final-function command)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 7/65 0x15728be28b01> :request-handlers #<hash-table equal 0/65 0x15728be46789> :response-handlers #<hash-table eql 0/65 0x15728be47ac5> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15728bdc52e1> :action-handlers #<hash-table equal 0/65 0x15728bdc5ae9> :major-modes (haxe-mode) :activation-fn nil :priority -1 :server-id haxe :multi-root nil :initialization-options #f(compiled-function () #<bytecode 0x15728b880151>) :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>) :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 0x15728be3b649> :download-server-fn nil :download-in-progress? nil :buffers nil) :host-root nil :proc #<process haxe> :cmd-proc #<process haxe> :buffers (#<buffer Debugee.hx>) :semantic-highlighting-faces nil :semantic-highlighting-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x15728c06f9cd> :watches #<hash-table equal 0/65 0x15728c083ecd> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x15728c04e095> :work-done-tokens #<hash-table equal 0/65 0x15728c080fd5>))
  mapc((closure ... ... ... ...) (...))
  seq-do((closure ... ... ... ...) (...))
  (let* ((start-time (current-time)) (method (plist-get body :method)) (id (setq lsp-last-id (1+ lsp-last-id))) (hooks (cond ((eq mode 'alive) '((kill-buffer-hook . t))) ((eq mode 'tick) '((kill-buffer-hook . t) (after-change-functions . t))) ((eq mode 'unchanged) '((after-change-functions . t) (post-command-hook))) ((eq mode 'current) '((post-command-hook))) (t nil))) (buf (current-buffer)) (cleanup-hooks #'(lambda nil (if (buffer-live-p buf) (progn (save-current-buffer ... ...))) (remhash cancel-token lsp--cancelable-requests))) (callback (if (memq mode '(tick alive)) (progn #'(lambda (&rest args) (save-current-buffer ... ...))) callback)) (callback (lsp--create-async-callback callback method no-merge target-workspaces)) (callback #'(lambda (result) (lsp--request-cleanup-hooks id) (funcall callback result))) (error-callback (lsp--create-async-callback (or error-callback (lsp--create-default-error-handler method)) method nil target-workspaces)) (error-callback #'(lambda (error) (funcall callback :error) (lsp--request-cleanup-hooks id) (funcall error-callback error))) (cancel-callback (if cancel-callback (progn (if (memq mode '...) (progn #'...) cancel-callback)))) (body (plist-put body :id id))) (mapc #'(lambda (input0) (let* ((--dash-source-265-- input0) (hook (car-safe ...)) (local --dash-source-265--)) (add-hook hook (lsp--create-request-cancel id target-workspaces hook buf method cancel-callback) nil local))) hooks) (puthash id cleanup-hooks lsp--request-cleanup-hooks) (setq lsp--last-active-workspaces target-workspaces) (if cancel-token (progn (puthash cancel-token (cons id target-workspaces) lsp--cancelable-requests))) (seq-do #'(lambda (workspace) (if lsp-log-io (progn (lsp--log-entry-new (lsp--make-log-entry method id ... ...) workspace))) (let ((message (lsp--make-message body))) (puthash id (list callback error-callback method start-time (current-time)) (let (...) (progn ... ...))) (lsp--send-no-wait message (progn (or ... ...) (aref workspace 7))))) target-workspaces) body)
  (if target-workspaces (let* ((start-time (current-time)) (method (plist-get body :method)) (id (setq lsp-last-id (1+ lsp-last-id))) (hooks (cond ((eq mode 'alive) '(...)) ((eq mode 'tick) '(... ...)) ((eq mode 'unchanged) '(... ...)) ((eq mode 'current) '(...)) (t nil))) (buf (current-buffer)) (cleanup-hooks #'(lambda nil (if (buffer-live-p buf) (progn ...)) (remhash cancel-token lsp--cancelable-requests))) (callback (if (memq mode '(tick alive)) (progn #'(lambda ... ...)) callback)) (callback (lsp--create-async-callback callback method no-merge target-workspaces)) (callback #'(lambda (result) (lsp--request-cleanup-hooks id) (funcall callback result))) (error-callback (lsp--create-async-callback (or error-callback (lsp--create-default-error-handler method)) method nil target-workspaces)) (error-callback #'(lambda (error) (funcall callback :error) (lsp--request-cleanup-hooks id) (funcall error-callback error))) (cancel-callback (if cancel-callback (progn (if (memq mode ...) (progn ...) cancel-callback)))) (body (plist-put body :id id))) (mapc #'(lambda (input0) (let* ((--dash-source-265-- input0) (hook ...) (local --dash-source-265--)) (add-hook hook (lsp--create-request-cancel id target-workspaces hook buf method cancel-callback) nil local))) hooks) (puthash id cleanup-hooks lsp--request-cleanup-hooks) (setq lsp--last-active-workspaces target-workspaces) (if cancel-token (progn (puthash cancel-token (cons id target-workspaces) lsp--cancelable-requests))) (seq-do #'(lambda (workspace) (if lsp-log-io (progn (lsp--log-entry-new ... workspace))) (let ((message ...)) (puthash id (list callback error-callback method start-time ...) (let ... ...)) (lsp--send-no-wait message (progn ... ...)))) target-workspaces) body) (error "The connected server(s) does not support method %s..." (plist-get body :method)))
  (let* ((target-workspaces (and t (lsp--find-workspaces-for body)))) (if target-workspaces (let* ((start-time (current-time)) (method (plist-get body :method)) (id (setq lsp-last-id (1+ lsp-last-id))) (hooks (cond ((eq mode ...) '...) ((eq mode ...) '...) ((eq mode ...) '...) ((eq mode ...) '...) (t nil))) (buf (current-buffer)) (cleanup-hooks #'(lambda nil (if ... ...) (remhash cancel-token lsp--cancelable-requests))) (callback (if (memq mode '...) (progn #'...) callback)) (callback (lsp--create-async-callback callback method no-merge target-workspaces)) (callback #'(lambda (result) (lsp--request-cleanup-hooks id) (funcall callback result))) (error-callback (lsp--create-async-callback (or error-callback (lsp--create-default-error-handler method)) method nil target-workspaces)) (error-callback #'(lambda (error) (funcall callback :error) (lsp--request-cleanup-hooks id) (funcall error-callback error))) (cancel-callback (if cancel-callback (progn (if ... ... cancel-callback)))) (body (plist-put body :id id))) (mapc #'(lambda (input0) (let* (... ... ...) (add-hook hook ... nil local))) hooks) (puthash id cleanup-hooks lsp--request-cleanup-hooks) (setq lsp--last-active-workspaces target-workspaces) (if cancel-token (progn (puthash cancel-token (cons id target-workspaces) lsp--cancelable-requests))) (seq-do #'(lambda (workspace) (if lsp-log-io (progn ...)) (let (...) (puthash id ... ...) (lsp--send-no-wait message ...))) target-workspaces) body) (error "The connected server(s) does not support method %s..." (plist-get body :method))))
  lsp--send-request-async((:jsonrpc "2.0" :method "initialize" :params (:processId nil :rootPath "/home/x/Documents/debugger" :clientInfo (:name "emacs" :version "GNU Emacs 27.1 (build 1, x86_64-...") :rootUri "file:///home/x/Documents/de..." :capabilities ((workspace ... ... ... ... ... ... ...) (textDocument ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (window ...)) :initializationOptions (("sendMethodResults" . t) ("haxelibConfig" ...) ("displayServerConfig" ... ... ... ...) ("displayArguments" . ...)) :workDoneToken "1") :id 1) (closure ((workspace-folders) (cmd-proc . #<process haxe>) (proc . #<process haxe>) (--dash-source-378-- . #<process haxe>) (initialized-fn . #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>)) (multi-root) (custom-capabilities) (new-connection :connect (closure ... ... ...) :test\? (closure ... nil ...)) (environment-fn) (server-id . haxe) (workspace . #s(lsp--workspace :ewoc ... :server-capabilities nil :registered-server-capabilities nil :root "/home/x/Documents/debugger" :client ... :host-root nil :proc #<process haxe> :cmd-proc #<process haxe> :buffers ... :semantic-highlighting-faces nil :semantic-highlighting-modifier-faces nil :extra-client-capabilities nil :status starting :metadata #<hash-table equal 0/65 0x15728c06f9cd> :watches #<hash-table equal 0/65 0x15728c083ecd> :workspace-folders nil :last-id 0 :status-string nil :shutdown-action nil :diagnostics #<hash-table equal 0/65 0x15728c04e095> :work-done-tokens #<hash-table equal 0/65 0x15728c080fd5>)) (client . #s(lsp--client :language-id nil :add-on? nil :new-connection ... :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 7/65 0x15728be28b01> :request-handlers #<hash-table equal 0/65 0x15728be46789> :response-handlers #<hash-table eql 0/65 0x15728be47ac5> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15728bdc52e1> :action-handlers #<hash-table equal 0/65 0x15728bdc5ae9> :major-modes ... :activation-fn nil :priority -1 :server-id haxe :multi-root nil :initialization-options #f(compiled-function () #<bytecode 0x15728b880151>) :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>) :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 0x15728be3b649> :download-server-fn nil :download-in-progress? nil :buffers nil)) (initialization-options ("sendMethodResults" . t) ("haxelibConfig" ...) ("displayServerConfig" ... ... ... ...) ("displayArguments" . ...)) (root . "/home/x/Documents/debugger") (client-template . #s(lsp--client :language-id nil :add-on? nil :new-connection ... :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 7/65 0x15728be28b01> :request-handlers #<hash-table equal 0/65 0x15728be46789> :response-handlers #<hash-table eql 0/65 0x15728be47ac5> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15728bdc52e1> :action-handlers #<hash-table equal 0/65 0x15728bdc5ae9> :major-modes ... :activation-fn nil :priority -1 :server-id haxe :multi-root nil :initialization-options #f(compiled-function () #<bytecode 0x15728b880151>) :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>) :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 0x15728be3b649> :download-server-fn nil :download-in-progress? nil :buffers nil)) (session . #s(lsp-session :folders ... :folders-blacklist nil :server-id->folders #<hash-table equal 0/65 0x15728bf25529> :folder->servers #<hash-table equal 1/65 0x15728c04db55> :metadata #<hash-table equal 0/65 0x15728c055b79>)) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends ...) (response) (if response nil (lsp--spinner-stop) (signal 'lsp-empty-response-error (list "initialize"))) (progn (progn (or ... ...) (let* ... ...)) (progn (or ... ...) (let* ... ...))) (let ((lsp--cur-workspace workspace)) (lsp-notify "initialized" lsp--empty-ht)) (if initialized-fn (progn (funcall initialized-fn workspace))) (mapc #'(lambda ... ...) (progn (or ... ...) (aref workspace 9))) (let ((lsp--cur-workspace workspace)) (run-hooks 'lsp-after-initialize-hook)) (lsp--info "%s initialized successfully" (lsp--workspace-print workspace))) detached nil nil nil nil)
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:mode :error-handler :cancel-handler :no-merge :cancel-token :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:mode :error-handl..." (car --cl-keys--)))))) (lsp--send-request-async (list ':jsonrpc "2.0" ':method method ':params params) callback mode error-handler cancel-handler no-merge cancel-token))
  (let* ((mode (car (cdr (plist-member --cl-rest-- ':mode)))) (error-handler (car (cdr (plist-member --cl-rest-- ':error-handler)))) (cancel-handler (car (cdr (plist-member --cl-rest-- ':cancel-handler)))) (no-merge (car (cdr (plist-member --cl-rest-- ':no-merge)))) (cancel-token (car (cdr (plist-member --cl-rest-- ':cancel-token))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '...) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:mode :error-handl..." (car --cl-keys--)))))) (lsp--send-request-async (list ':jsonrpc "2.0" ':method method ':params params) callback mode error-handler cancel-handler no-merge cancel-token)))
  lsp-request-async("initialize" (:processId nil :rootPath "/home/x/Documents/deb..." :clientInfo (:name "emacs" :version "GNU Emacs 27.1 (build 1, x...") :rootUri "file:///home/x/Docume..." :capabilities ((workspace ... ... ... ... ... ... ...) (textDocument ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (window ...)) :initializationOptions (("sendMethodResults" . t) ("haxelibConfig" ...) ("displayServerConfig" ... ... ... ...) ("displayArguments" . ...)) :workDoneToken "1") (closure ((workspace-folders) (cmd-proc . #<process haxe>) (proc . #<process haxe>) (--dash-source-378-- . #<process haxe>) (initialized-fn . #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>)) (multi-root) (custom-capabilities) (new-connection :connect ... :test\? ...) (environment-fn) (server-id . haxe) (workspace . ...) (client . ...) (initialization-options ... ... ... ...) (root . "/home/x/Documents/deb...") (client-template . ...) (session . ...) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines ...) (response) (if response nil (lsp--spinner-stop) (signal ... ...)) (progn (progn ... ...) (progn ... ...)) (let (...) (lsp-notify "initialized" lsp--empty-ht)) (if initialized-fn (progn ...)) (mapc #'... (progn ... ...)) (let (...) (run-hooks ...)) (lsp--info "%s initialized successfull..." (lsp--workspace-print workspace))) :mode detached)
  (let ((lsp--cur-workspace workspace)) (run-hooks 'lsp-before-initialize-hook) (lsp-request-async "initialize" (append (list :processId nil :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 'vector (-map ... ...)))))) #'(lambda (response) (if response nil (lsp--spinner-stop) (signal 'lsp-empty-response-error (list "initialize"))) (progn (progn (or (and ... t) (signal ... ...)) (let* (...) (aset v 2 ...))) (progn (or (and ... t) (signal ... ...)) (let* (...) (aset v 13 ...)))) (let ((lsp--cur-workspace workspace)) (lsp-notify "initialized" lsp--empty-ht)) (if initialized-fn (progn (funcall initialized-fn workspace))) (mapc #'(lambda (buffer) (let* ... ...)) (progn (or (and ... t) (signal ... ...)) (aref workspace 9))) (let ((lsp--cur-workspace workspace)) (run-hooks 'lsp-after-initialize-hook)) (lsp--info "%s initialized successfully" (lsp--workspace-print workspace))) :mode 'detached))
  (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 (and (memq (type-of client) cl-struct-lsp--client-tags) t) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 15))) (environment-fn (progn (or (and (memq (type-of client) cl-struct-lsp--client-tags) t) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 26))) (new-connection (progn (or (and (memq (type-of client) cl-struct-lsp--client-tags) t) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 3))) (custom-capabilities (progn (or (and (memq (type-of client) cl-struct-lsp--client-tags) t) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 18))) (multi-root (progn (or (and (memq (type-of client) cl-struct-lsp--client-tags) t) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 16))) (initialized-fn (progn (or (and (memq (type-of client) cl-struct-lsp--client-tags) t) (signal 'wrong-type-argument (list 'lsp--client client))) (aref client 21))) (--dash-source-378-- (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)) (proc (car-safe (prog1 --dash-source-378-- (setq --dash-source-378-- (cdr --dash-source-378--))))) (cmd-proc --dash-source-378--) (workspace-folders (gethash server-id (progn (or (and (memq ... cl-struct-lsp-session-tags) t) (signal 'wrong-type-argument (list ... session))) (aref session 3))))) (progn (progn (or (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 (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 nil :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 (response) (if response nil (lsp--spinner-stop) (signal 'lsp-empty-response-error (list "initialize"))) (progn (progn (or ... ...) (let* ... ...)) (progn (or ... ...) (let* ... ...))) (let ((lsp--cur-workspace workspace)) (lsp-notify "initialized" lsp--empty-ht)) (if initialized-fn (progn (funcall initialized-fn workspace))) (mapc #'(lambda ... ...) (progn (or ... ...) (aref workspace 9))) (let ((lsp--cur-workspace workspace)) (run-hooks 'lsp-after-initialize-hook)) (lsp--info "%s initialized successfully" (lsp--workspace-print workspace))) :mode 'detached)) workspace)
  lsp--start-workspace(#s(lsp-session :folders ("/home/x/Documents/debugger") :folders-blacklist nil :server-id->folders #<hash-table equal 0/65 0x15728bf25529> :folder->servers #<hash-table equal 1/65 0x15728c04db55> :metadata #<hash-table equal 0/65 0x15728c055b79>) #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) (filter sentinel name environment-fn) (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 ...) (proc ...)) (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 ...) (special-mode)) (cons proc proc)))) :test\? (closure ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) nil (lsp-server-present\? (lsp-resolve-final-function command)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 7/65 0x15728be28b01> :request-handlers #<hash-table equal 0/65 0x15728be46789> :response-handlers #<hash-table eql 0/65 0x15728be47ac5> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15728bdc52e1> :action-handlers #<hash-table equal 0/65 0x15728bdc5ae9> :major-modes (haxe-mode) :activation-fn nil :priority -1 :server-id haxe :multi-root nil :initialization-options #f(compiled-function () #<bytecode 0x15728b880151>) :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>) :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 0x15728be3b649> :download-server-fn nil :download-in-progress? nil :buffers nil) "/home/x/Documents/debugger" (("sendMethodResults" . t) ("haxelibConfig" ("executable" . "haxelib")) ("displayServerConfig" ("print" ("reusing" . :json-false) ("completion" . :json-false)) ("arguments" . []) ("env") ("path" . "haxe")) ("displayArguments" . ["build.hxml"])))
  (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/x/Documents/debugger") :folders-blacklist nil :server-id->folders #<hash-table equal 0/65 0x15728bf25529> :folder->servers #<hash-table equal 1/65 0x15728c04db55> :metadata #<hash-table equal 0/65 0x15728c055b79>) #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) (filter sentinel name environment-fn) (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 ...) (proc ...)) (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 ...) (special-mode)) (cons proc proc)))) :test\? (closure ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) nil (lsp-server-present\? (lsp-resolve-final-function command)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 7/65 0x15728be28b01> :request-handlers #<hash-table equal 0/65 0x15728be46789> :response-handlers #<hash-table eql 0/65 0x15728be47ac5> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15728bdc52e1> :action-handlers #<hash-table equal 0/65 0x15728bdc5ae9> :major-modes (haxe-mode) :activation-fn nil :priority -1 :server-id haxe :multi-root nil :initialization-options #f(compiled-function () #<bytecode 0x15728b880151>) :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>) :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 0x15728be3b649> :download-server-fn nil :download-in-progress? nil :buffers nil) "/home/x/Documents/debugger")
  (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/x/Documents/debugger") (clients #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ... ... ...) :test\? (closure ... nil ...)) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 7/65 0x15728be28b01> :request-handlers #<hash-table equal 0/65 0x15728be46789> :response-handlers #<hash-table eql 0/65 0x15728be47ac5> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15728bdc52e1> :action-handlers #<hash-table equal 0/65 0x15728bdc5ae9> :major-modes (haxe-mode) :activation-fn nil :priority -1 :server-id haxe :multi-root nil :initialization-options #f(compiled-function () #<bytecode 0x15728b880151>) :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>) :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 0x15728be3b649> :download-server-fn nil :download-in-progress? nil :buffers nil)) (session . #s(lsp-session :folders ("/home/x/Documents/debugger") :folders-blacklist nil :server-id->folders #<hash-table equal 0/65 0x15728bf25529> :folder->servers #<hash-table equal 1/65 0x15728c04db55> :metadata #<hash-table equal 0/65 0x15728c055b79>)) lsp-browser-mode-abbrev-table lsp-browser-mode-syntax-table lsp-log-io-mode-abbrev-table lsp-log-io-mode-syntax-table company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) (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 ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) (filter sentinel name environment-fn) (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\? (closure ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) nil (lsp-server-present\? (lsp-resolve-final-function command)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 7/65 0x15728be28b01> :request-handlers #<hash-table equal 0/65 0x15728be46789> :response-handlers #<hash-table eql 0/65 0x15728be47ac5> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15728bdc52e1> :action-handlers #<hash-table equal 0/65 0x15728bdc5ae9> :major-modes (haxe-mode) :activation-fn nil :priority -1 :server-id haxe :multi-root nil :initialization-options #f(compiled-function () #<bytecode 0x15728b880151>) :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>) :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 0x15728be3b649> :download-server-fn nil :download-in-progress? nil :buffers nil))
  mapcar((closure ((ignore-multi-folder) (project-root . "/home/x/Documents/debugger") (clients #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ... ... ...) :test\? (closure ... nil ...)) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 7/65 0x15728be28b01> :request-handlers #<hash-table equal 0/65 0x15728be46789> :response-handlers #<hash-table eql 0/65 0x15728be47ac5> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15728bdc52e1> :action-handlers #<hash-table equal 0/65 0x15728bdc5ae9> :major-modes (haxe-mode) :activation-fn nil :priority -1 :server-id haxe :multi-root nil :initialization-options #f(compiled-function () #<bytecode 0x15728b880151>) :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>) :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 0x15728be3b649> :download-server-fn nil :download-in-progress? nil :buffers nil)) (session . #s(lsp-session :folders ("/home/x/Documents/debugger") :folders-blacklist nil :server-id->folders #<hash-table equal 0/65 0x15728bf25529> :folder->servers #<hash-table equal 1/65 0x15728c04db55> :metadata #<hash-table equal 0/65 0x15728c055b79>)) lsp-browser-mode-abbrev-table lsp-browser-mode-syntax-table lsp-log-io-mode-abbrev-table lsp-log-io-mode-syntax-table company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) (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 ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) (filter sentinel name environment-fn) (let (... ... ...) (let* ... ... ... ... ...))) :test\? (closure ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) nil (lsp-server-present\? (lsp-resolve-final-function command)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 7/65 0x15728be28b01> :request-handlers #<hash-table equal 0/65 0x15728be46789> :response-handlers #<hash-table eql 0/65 0x15728be47ac5> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15728bdc52e1> :action-handlers #<hash-table equal 0/65 0x15728bdc5ae9> :major-modes (haxe-mode) :activation-fn nil :priority -1 :server-id haxe :multi-root nil :initialization-options #f(compiled-function () #<bytecode 0x15728b880151>) :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>) :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 0x15728be3b649> :download-server-fn nil :download-in-progress? nil :buffers nil)))
  -map((closure ((ignore-multi-folder) (project-root . "/home/x/Documents/debugger") (clients #s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ... ... ...) :test\? (closure ... nil ...)) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 7/65 0x15728be28b01> :request-handlers #<hash-table equal 0/65 0x15728be46789> :response-handlers #<hash-table eql 0/65 0x15728be47ac5> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15728bdc52e1> :action-handlers #<hash-table equal 0/65 0x15728bdc5ae9> :major-modes (haxe-mode) :activation-fn nil :priority -1 :server-id haxe :multi-root nil :initialization-options #f(compiled-function () #<bytecode 0x15728b880151>) :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>) :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 0x15728be3b649> :download-server-fn nil :download-in-progress? nil :buffers nil)) (session . #s(lsp-session :folders ("/home/x/Documents/debugger") :folders-blacklist nil :server-id->folders #<hash-table equal 0/65 0x15728bf25529> :folder->servers #<hash-table equal 1/65 0x15728c04db55> :metadata #<hash-table equal 0/65 0x15728c055b79>)) lsp-browser-mode-abbrev-table lsp-browser-mode-syntax-table lsp-log-io-mode-abbrev-table lsp-log-io-mode-syntax-table company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) (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 ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) (filter sentinel name environment-fn) (let (... ... ...) (let* ... ... ... ... ...))) :test\? (closure ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) nil (lsp-server-present\? (lsp-resolve-final-function command)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 7/65 0x15728be28b01> :request-handlers #<hash-table equal 0/65 0x15728be46789> :response-handlers #<hash-table eql 0/65 0x15728be47ac5> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15728bdc52e1> :action-handlers #<hash-table equal 0/65 0x15728bdc5ae9> :major-modes (haxe-mode) :activation-fn nil :priority -1 :server-id haxe :multi-root nil :initialization-options #f(compiled-function () #<bytecode 0x15728b880151>) :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>) :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 0x15728be3b649> :download-server-fn nil :download-in-progress? nil :buffers nil)))
  lsp--ensure-lsp-servers(#s(lsp-session :folders ("/home/x/Documents/debugger") :folders-blacklist nil :server-id->folders #<hash-table equal 0/65 0x15728bf25529> :folder->servers #<hash-table equal 1/65 0x15728c04db55> :metadata #<hash-table equal 0/65 0x15728c055b79>) (#s(lsp--client :language-id nil :add-on? nil :new-connection (:connect (closure ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) (filter sentinel name environment-fn) (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\? (closure ((test-command) (command . lsp-clients--haxe-command) company-mode cl-struct-lsp--log-entry-tags cl-struct-lsp-session-tags cl-struct-lsp--workspace-tags cl-struct-lsp--registered-capability-tags lsp-mode-menu cl-struct-lsp--folding-range-tags cl-struct-lsp-watch-tags cl-struct-lsp--client-tags lsp--log-lines dap-ui-menu-items dap-auto-configure-mode yas-also-auto-indent-first-line yas-indent-line yas-inhibit-overlay-modification-protection company-backends t) nil (lsp-server-present\? (lsp-resolve-final-function command)))) :ignore-regexps nil :ignore-messages nil :notification-handlers #<hash-table equal 7/65 0x15728be28b01> :request-handlers #<hash-table equal 0/65 0x15728be46789> :response-handlers #<hash-table eql 0/65 0x15728be47ac5> :prefix-function nil :uri-handlers #<hash-table equal 0/65 0x15728bdc52e1> :action-handlers #<hash-table equal 0/65 0x15728bdc5ae9> :major-modes (haxe-mode) :activation-fn nil :priority -1 :server-id haxe :multi-root nil :initialization-options #f(compiled-function () #<bytecode 0x15728b880151>) :custom-capabilities nil :library-folders-fn nil :before-file-open-fn nil :initialized-fn #f(compiled-function (workspace) #<bytecode 0x15728b8a450d>) :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 0x15728be3b649> :download-server-fn nil :download-in-progress? nil :buffers nil)) "/home/x/Documents/debugger" nil)
  (progn (if (-contains\? (progn (or (and (memq (type-of session) cl-struct-lsp-session-tags) t) (signal 'wrong-type-argument (list 'lsp-session session))) (aref session 1)) project-root) nil (progn (or (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 (cons project-root (aref v 1))))) (lsp--persist-session session)) (lsp--ensure-lsp-servers session clients project-root ignore-multi-folder))
  (if project-root (progn (if (-contains\? (progn (or (and (memq ... cl-struct-lsp-session-tags) t) (signal 'wrong-type-argument (list ... session))) (aref session 1)) project-root) nil (progn (or (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 (cons project-root (aref 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)
  (let ((project-root (let ((result (let (...) (if result ...)))) (if result (progn (lsp-f-canonical result)))))) (if project-root (progn (if (-contains\? (progn (or (and ... t) (signal ... ...)) (aref session 1)) project-root) nil (progn (or (and (memq ... cl-struct-lsp-session-tags) t) (signal 'wrong-type-argument (list ... session))) (let* ((v session)) (aset v 1 (cons project-root ...)))) (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 (and ... t) (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) (format "[%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--matching-clients\? #'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 (and ... t) (signal ... ...)) (let* (...) (aset v 31 ...)))) clients)) ((setq clients (lsp--filter-clients (-andfn #'lsp--matching-clients\? #'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 (and (memq (type-of client) cl-struct-lsp--client-tags) t) (signal 'wrong-type-argument (list 'lsp--client client))) (let* ((v client)) (aset v 31 (let* (... ...) (if ... vlist ...))))) (lsp--install-server-internal client))) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn #'lsp--matching-clients\? (-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--matching-clients\?)) (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--matching-clients\? #'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--matching-clients\? #'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--matching-clients\? #'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 (and (memq ... cl-struct-lsp--client-tags) t) (signal 'wrong-type-argument (list ... client))) (let* ((v client)) (aset v 31 (let* ... ...)))) (lsp--install-server-internal client))) ((setq clients (if matching-clients nil (lsp--filter-clients (-andfn #'lsp--matching-clients\? (-not ...))))) (lsp--warn "The following servers support current file but do ..." (mapconcat #'(lambda (client) (symbol-name ...)) clients " "))) ((not (lsp--filter-clients #'lsp--matching-clients\?)) (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--matching-clients\? #'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--matching-clients\? #'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--matching-clients\? #'lsp--client-download-server-fn (-not ...)))) (let ((client (lsp--completing-read ... clients ... nil t))) (progn (or (and ... t) (signal ... ...)) (let* (...) (aset v 31 ...))) (lsp--install-server-internal client))) ((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--matching-clients\?)) (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--matching-clients\? #'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))) ((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--matching-clients\?)) (lsp--error "There are no language servers supporting current m..." major-mode major-mode major-mode))))))
  lsp(nil)

[kiennq]

lsp-haxe needs to be updated to work with Emacs 27 native json.
You can change these line in lsp-haxe.el

  (lambda ()
    `(("sendMethodResults" . t)
      ("haxelibConfig" ("executable" . "haxelib"))
      ("displayServerConfig"
       ("print" ("reusing" . :json-false) ("completion" . :json-false))
       ("arguments" . [])
       ("env")
       ("path" . "haxe"))
      ("displayArguments" . [,lsp-haxe-hxml])))

to something like

  (lambda ()
    `( :sendMethodResults t
       :haxelibConfig (:executable "haxelib")
       :displayServerConfig
       ( :print (:reusing :json-false :completion :json-false)
         :arguments []
         :env nil
         :path "haxe")
       :displayArguments [,lsp-haxe-hxml]))

[ericdallo]

Closing as @kiennq fix suggestion was merged on master, feel free to reopen otherwise