error in process filter: Attempt to set a constant symbol: :type

[zhensydow]

I have update last version and got this error continually: "error in process filter: Attempt to set a constant symbol: :type"
It interrupts normal code writing.

With debugger on the callstack I obtain is:

Debugger entered--Lisp error: (setting-constant :type)
  (let* ((--cl-rest-- msg) (:type (car (cdr (plist-member --cl-rest-- '::type)))) (log-level (car (cdr (plist-member --cl-rest-- ':log-level)))) (:message (car (cdr (plist-member --cl-rest-- '::message)))) (log-msg (car (cdr (plist-member --cl-rest-- ':log-msg))))) (save-current-buffer (set-buffer (get-buffer-create "*copilot-language-server-log*")) (save-excursion (goto-char (point-max)) (insert (propertize (concat log-msg "\n") 'face (cond ((eql log-level 4) (let nil ...)) ((eql log-level 3) (let nil ...)) ((eql log-level 2) (let nil ...)) ((eql log-level 1) (let nil ...))))))))
  (closure (t) (msg) (let* ((--cl-rest-- msg) (:type (car (cdr (plist-member --cl-rest-- ...)))) (log-level (car (cdr (plist-member --cl-rest-- ...)))) (:message (car (cdr (plist-member --cl-rest-- ...)))) (log-msg (car (cdr (plist-member --cl-rest-- ...))))) (save-current-buffer (set-buffer (get-buffer-create "*copilot-language-server-log*")) (save-excursion (goto-char (point-max)) (insert (propertize (concat log-msg "\n") 'face (cond ... ... ... ...)))))))((:type 2 :message "[sdk] setEditorInfo is deprecated. Use initializat..."))
  funcall((closure (t) (msg) (let* ((--cl-rest-- msg) (:type (car (cdr (plist-member --cl-rest-- ...)))) (log-level (car (cdr (plist-member --cl-rest-- ...)))) (:message (car (cdr (plist-member --cl-rest-- ...)))) (log-msg (car (cdr (plist-member --cl-rest-- ...))))) (save-current-buffer (set-buffer (get-buffer-create "*copilot-language-server-log*")) (save-excursion (goto-char (point-max)) (insert (propertize (concat log-msg "\n") 'face (cond ... ... ... ...))))))) (:type 2 :message "[sdk] setEditorInfo is deprecated. Use initializat..."))
  (let ((handler (car tail))) (funcall handler msg) (setq tail (cdr tail)))
  (while tail (let ((handler (car tail))) (funcall handler msg) (setq tail (cdr tail))))
  (let ((tail handlers)) (while tail (let ((handler (car tail))) (funcall handler msg) (setq tail (cdr tail)))))
  (let ((handlers (gethash method copilot--notification-handlers 'nil))) (let ((tail handlers)) (while tail (let ((handler (car tail))) (funcall handler msg) (setq tail (cdr tail))))))
  copilot--handle-notification(#<jsonrpc-process-connection jsonrpc-process-connection-865b52f420> window/logMessage (:type 2 :message "[sdk] setEditorInfo is deprecated. Use initializat..."))
  jsonrpc-connection-receive(#<jsonrpc-process-connection jsonrpc-process-connection-865b52f420> (:jsonrpc "2.0" :method "window/logMessage" :params (:type 2 :message "[sdk] setEditorInfo is deprecated. Use initializat...")))
  jsonrpc--process-filter(#<process copilot server> "Content-Length: 121\15\n\15\n{\"jsonrpc\":\"2.0\",\"method\":\"...")`

And doing some tests, if I comment the (copilot-on-notification 'window/logMessage ......) block, it removes the problem and copilot works as before.

Thanks a lot!

[bbatsov]

@knilink Could you please take a look at this bug report?

[knilink]

copilot.el/copilot.el

Line 795 in 3e36a98

(copilot--dbind (:type log-level :message log-msg) msg

looks like because i didn't realized copilot--dbind has been updated
@zhensydow can you see whether following change works for you?

(copilot-on-notification
 'window/logMessage
 (lambda (msg)
-   (copilot--dbind (:type log-level :message log-msg) msg
+   (copilot--dbind (((:type log-level)) ((:message log-msg))) msg
     (with-current-buffer (get-buffer-create "*copilot-language-server-log*")
       (save-excursion
         (goto-char (point-max))
         (insert (propertize (concat log-msg "\n")
                             'face (pcase log-level
                                     (4 'shadow)
                                     (3 'success)
                                     (2 'warning)
                                     (1 'error)))))))))

[bbatsov]

Ah, yeah - I should have noticed this myself!

[zhensydow]

@knilink Thanks a lot for the fix. I'll check Monday, I am using it at work computer.

[eval-exec]

I got this error too. And I confirmed the latest main branch fixed this issue. Thank you. 💙

[zhensydow]

Checked the fix. It works fine. Thanks for the help!