error in process filter: Unmatched bracket or quote

[kostafey]

UPD: Dublicates #587

CIDER 20140718.747

When I trying to get c3p0 pool I've got
error in process filter: Unmatched bracket or quote.

The way to reproduce:
Add c3p0 to project :dependencies

[com.mchange/c3p0 "0.9.5-pre8"]
[com.h2database/h2 "1.4.178"] ;; in this example

(import 'com.mchange.v2.c3p0.ComboPooledDataSource)

(let [{:keys [classname subprotocol subname user password] 
       :as other-spec}
      {:subprotocol "h2"
       :subname (str
                 "file:/tmp/test_db"
                 ";DATABASE_TO_UPPER=false;DB_CLOSE_DELAY=-1;")
       :classname "org.h2.Driver"
       :user "test"
       :password "test"}
      cpds (doto (ComboPooledDataSource.)
             (.setDriverClass classname)
             (.setJdbcUrl (str "jdbc:" subprotocol ":" subname))
             (.setUser user)
             (.setPassword password))]
  {:datasource cpds})

Evaluating let leads to such error. The same problem may involve some other java objects, but I caught this one.

[kostafey]

Dublicates #587

It is the same problem, sorry. There is a simpler way to reproduce:

(.split "1,2,3" ",")

The same with CIDER 20140721.1252.

[expez]

When I C-x C-e that expression I get this:

Debugger entered--Lisp error: (error "Unmatched bracket or quote")
  signal(error ("Unmatched bracket or quote"))
  byte-code("�  !\204��\303�\304    @   A\"\210\303\207" [paredit-override-check-parens-function condition paredit-mode nil signal] 3)
  paredit-mode(1)
  my-clojure-mode-hook()
  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()
  cider-font-lock-as(clojure-mode "#<String[] [Ljava.lang.String;@745f5e90>")
  cider-font-lock-as-clojure("#<String[] [Ljava.lang.String;@745f5e90>")
  #[514 "\301\302�\303�!#\207" [cider-interactive-eval-result-prefix message "%s%s" cider-font-lock-as-clojure] 7 "\n\n(fn BUFFER VALUE)"](#<buffer core_test.clj> "#<String[] [Ljava.lang.String;@745f5e90>")
  #[257 "\306\307�\"A\306\310�\"A\306\311�\"A\306\312�\"A\306\313��\"A\306\314��\"A\306\315��\"A\306\316�   \"A\306\317�\n\"A��\203Q�r\300q\210��\203D�����)\301\205\305�\301\300�\n\"\202\305���\203b�\302\205\305�\302\300��\"\202\305��\203r�\303\205\305�\303\300��\"\202\305��\205\305�\320�\235\203\200�\321\322!\210\323�\235\203\222�\305\206\214���\300���$\210\324�\235\203\234�\321\325!\210\326�\235\203\246�\327\300!\210\330�\235\205\305�\331�\332����\"��#\210\333���\"\210\304\205\305�\304\300!\207" [#<buffer core_test.clj> #[514 "\301\302�\303�!#\207" [cider-interactive-eval-result-prefix message "%s%s" cider-font-lock-as-clojure] 7 "\n\n(fn BUFFER VALUE)"] #[514 "\300�!\207" [cider-emit-interactive-eval-output] 4 "\n\n(fn BUFFER OUT)"] #[514 "\300�!\210\301��\"\207" [cider-emit-interactive-eval-output cider-highlight-compilation-errors] 5 "\n\n(fn BUFFER ERR)"] nil nil assoc "value" "ns" "out" "err" "status" "id" "ex" "root-ex" "session" "interrupted" message "Evaluation interrupted." "eval-error" "namespace-not-found" "Namespace not found." "need-input" cider-need-input "done" puthash gethash remhash nrepl-buffer-ns nrepl-err-handler nrepl-pending-requests nrepl-completed-requests] 15 "\n\n(fn RESPONSE)"]((dict ("id" . "78") ("ns" . "test.core-test") ("session" . "dd2eb7e8-4ce1-4bdb-b00d-28666b437c48") ("value" . "#<String[] [Ljava.lang.String;@745f5e90>")))
  funcall(#[257 "\306\307�\"A\306\310�\"A\306\311�\"A\306\312�\"A\306\313��\"A\306\314��\"A\306\315��\"A\306\316�   \"A\306\317�\n\"A��\203Q�r\300q\210��\203D�����)\301\205\305�\301\300�\n\"\202\305���\203b�\302\205\305�\302\300��\"\202\305��\203r�\303\205\305�\303\300��\"\202\305��\205\305�\320�\235\203\200�\321\322!\210\323�\235\203\222�\305\206\214���\300���$\210\324�\235\203\234�\321\325!\210\326�\235\203\246�\327\300!\210\330�\235\205\305�\331�\332����\"��#\210\333���\"\210\304\205\305�\304\300!\207" [#<buffer core_test.clj> #[514 "\301\302�\303�!#\207" [cider-interactive-eval-result-prefix message "%s%s" cider-font-lock-as-clojure] 7 "\n\n(fn BUFFER VALUE)"] #[514 "\300�!\207" [cider-emit-interactive-eval-output] 4 "\n\n(fn BUFFER OUT)"] #[514 "\300�!\210\301��\"\207" [cider-emit-interactive-eval-output cider-highlight-compilation-errors] 5 "\n\n(fn BUFFER ERR)"] nil nil assoc "value" "ns" "out" "err" "status" "id" "ex" "root-ex" "session" "interrupted" message "Evaluation interrupted." "eval-error" "namespace-not-found" "Namespace not found." "need-input" cider-need-input "done" puthash gethash remhash nrepl-buffer-ns nrepl-err-handler nrepl-pending-requests nrepl-completed-requests] 15 "\n\n(fn RESPONSE)"] (dict ("id" . "78") ("ns" . "test.core-test") ("session" . "dd2eb7e8-4ce1-4bdb-b00d-28666b437c48") ("value" . "#<String[] [Ljava.lang.String;@745f5e90>")))
  (if callback (funcall callback response) (funcall (nrepl-default-handler) response))
  (let ((callback (or (gethash id nrepl-pending-requests) (gethash id nrepl-completed-requests)))) (if callback (funcall callback response) (funcall (nrepl-default-handler) response)))
  (let ((id (cdr (assoc "id" response)))) (let ((callback (or (gethash id nrepl-pending-requests) (gethash id nrepl-completed-requests)))) (if callback (funcall callback response) (funcall (nrepl-default-handler) response))))
  (nrepl-dbind-response response (id) (let ((callback (or (gethash id nrepl-pending-requests) (gethash id nrepl-completed-requests)))) (if callback (funcall callback response) (funcall (nrepl-default-handler) response))))
  nrepl-dispatch((dict ("id" . "78") ("ns" . "test.core-test") ("session" . "dd2eb7e8-4ce1-4bdb-b00d-28666b437c48") ("value" . "#<String[] [Ljava.lang.String;@745f5e90>")))
  nrepl-handle-process-output(#<process nrepl>)
  nrepl-net-filter(#<process nrepl> "d2:id2:777:session36:dd2eb7e8-4ce1-4bdb-b00d-28666b437c486:statusl4:doneeed2:id2:782:ns14:test.core-test7:session36:dd2eb7e8-4ce1-4bdb-b00d-28666b437c485:value40:#<String[] [Ljava.lang.String;@745f5e90>ed2:id2:787:session36:dd2eb7e8-4ce1-4bdb-b00d-28666b437c486:statusl4:doneee")
  accept-process-output(#<process nrepl> 0.01)
  nrepl-net-filter(#<process nrepl> "d2:ex35:class java.io.FileNotFoundException2:id2:777:root-ex35:class java.io.FileNotFoundException7:session36:dd2eb7e8-4ce1-4bdb-b00d-28666b437c486:statusl10:eval-erroree")

The error is coming from paredit because the clojure-mode-hook is triggered in some anonymous result buffer?

[kostafey]

I can see the trace like this:

Debugger entered--Lisp error: (error "Unmatched bracket or quote")
  signal(error ("Unmatched bracket or quote"))
  (progn (setq paredit-mode nil) (signal (car condition) (cdr condition)))
  (if (not (funcall paredit-override-check-parens-function condition)) (progn (setq paredit-mode nil) (signal (car condition) (cdr condition))))
  (condition-case condition (check-parens) (error (if (not (funcall paredit-override-check-parens-function condition)) (progn (setq paredit-mode nil) (signal (car condition) (cdr condition))))))
  (if (and paredit-mode (not current-prefix-arg)) (condition-case condition (check-parens) (error (if (not (funcall paredit-override-check-parens-function condition)) (progn (setq paredit-mode nil) (signal (car condition) (cdr condition)))))))
  (let ((last-message (current-message))) (setq paredit-mode (if (eq arg (quote toggle)) (not paredit-mode) (> (prefix-numeric-value arg) 0))) (if (and paredit-mode (not current-prefix-arg)) (condition-case condition (check-parens) (error (if (not (funcall paredit-override-check-parens-function condition)) (progn (setq paredit-mode nil) (signal (car condition) (cdr condition))))))) (run-hooks (quote paredit-mode-hook) (if paredit-mode (quote paredit-mode-on-hook) (quote paredit-mode-off-hook))) (if (called-interactively-p (quote any)) (progn nil (if (and (current-message) (not (equal last-message (current-message)))) nil (message "Paredit mode %sabled" (if paredit-mode "en" "dis"))))))
  paredit-mode(1)
  enable-paredit-mode()
  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()
  cider-font-lock-as(clojure-mode "#<String[] [Ljava.lang.String;@4d0a0b3d>")
  cider-font-lock-as-clojure("#<String[] [Ljava.lang.String;@4d0a0b3d>")
  #[514 "\301\302�\303�!#\207" [cider-interactive-eval-result-prefix message "%s%s" cider-font-lock-as-clojure] 7 "\n\n(fn BUFFER VALUE)"](#<buffer core.clj> "#<String[] [Ljava.lang.String;@4d0a0b3d>")
  #[257 "\306\307�\"A\306\310�\"A\306\311�\"A\306\312�\"A\306\313��\"A\306\314��\"A\306\315��\"A\306\316�   \"A\306\317�\n\"A��\203Q�r\300q\210��\203D�����)\301\205\305�\301\300�\n\"\202\305���\203b�\302\205\305�\302\300��\"\202\305��\203r�\303\205\305�\303\300��\"\202\305��\205\305�\320�\235\203\200�\321\322!\210\323�\235\203\222�\305\206\214���\300���$\210\324�\235\203\234�\321\325!\210\326�\235\203\246�\327\300!\210\330�\235\205\305�\331�\332����\"��#\210\333���\"\210\304\205\305�\304\300!\207" [#<buffer core.clj> #[514 "\301\302�\303�!#\207" [cider-interactive-eval-result-prefix message "%s%s" cider-font-lock-as-clojure] 7 "\n\n(fn BUFFER VALUE)"] #[514 "\300�!\207" [cider-emit-interactive-eval-output] 4 "\n\n(fn BUFFER OUT)"] #[514 "\300�!\210\301��\"\207" [cider-emit-interactive-eval-output cider-highlight-compilation-errors] 5 "\n\n(fn BUFFER ERR)"] nil nil assoc "value" "ns" "out" "err" "status" "id" "ex" "root-ex" "session" "interrupted" message "Evaluation interrupted." "eval-error" "namespace-not-found" "Namespace not found." "need-input" cider-need-input "done" puthash gethash remhash nrepl-buffer-ns nrepl-err-handler nrepl-pending-requests nrepl-completed-requests] 15 "\n\n(fn RESPONSE)"]((dict ("id" . "12") ("ns" . "test-prj.core") ("session" . "b591732b-6546-463b-97a2-cf8c47dceacc") ("value" . "#<String[] [Ljava.lang.String;@4d0a0b3d>")))
  nrepl-dispatch((dict ("id" . "12") ("ns" . "test-prj.core") ("session" . "b591732b-6546-463b-97a2-cf8c47dceacc") ("value" . "#<String[] [Ljava.lang.String;@4d0a0b3d>")))
  nrepl-handle-process-output(#<process nrepl>)
  nrepl-net-filter(#<process nrepl> "d2:id2:122:ns13:test-prj.core7:session36:b591732b-6546-463b-97a2-cf8c47dceacc5:value40:#<String[] [Ljava.lang.String;@4d0a0b3d>ed2:id2:127:session36:b591732b-6546-463b-97a2-cf8c47dceacc6:statusl4:doneee")

[bbatsov]

I guess this problem goes away without paredit, right?

[kostafey]

Yes, but I can't find out how to keep paredit and avoid such error.
Аlthough, it is not CIDER fault.

[bbatsov]

I'm using smartparens-strict-mode (a mode pretty similar to paredit) and it's not causing such problems. Generally I'm not keen on wasting time debugging problems with third-party packages.

[kostafey]

Ok, let's consider the issue closed. When I find solution, I'll describe it.

[expez]

Why is the clojure-mode-hook triggered at all?

[kostafey]

@expez For result fontification in minibuffer, as I can see.

[expez]

Seems unnecessary to activate the hook for that, no? Probably half the users of cider use paredit so if this is an easy fix...

[kostafey]

Ok, the first approach is:

(defun my-lisp-coding-hook ()
  (my-coding-hook)
  (if (not (equal " *temp*" (buffer-name (current-buffer))))
      (enable-paredit-mode)))

(add-hook 'clojure-mode-hook 'my-lisp-coding-hook)

[bbatsov]

@expez Yes, it's a bit of an overkill but there's no easy way to get the font-locking other than using a temp buffer. I'm guess there's some way to suppress the mode hooks, but I don't know it (yet).