pgroce

--- a1.el	2014-07-24 09:26:04.000000000 -0400
+++ a2.el	2014-07-24 09:26:15.000000000 -0400
@@ -1,17 +1,18 @@
 (defun cider-test-highlight-problem (buffer test)
   "Highlight the BUFFER test definition for the non-passing TEST."
   (with-current-buffer buffer
-    (nrepl-dbind-response test (type line message expected actual)
-      (save-excursion
-        (goto-line line)
-        (forward-whitespace 1)

pgroce

Debugger entered--Lisp error: (invalid-function cider-propertize-region)
  cider-propertize-region((face cider-repl-prompt-face read-only t intangible t cider-prompt t rear-nonsticky (cider-prompt read-only face intangible)) nil)
  cider-repl--insert-prompt("clojure.test.mode")
  cider-repl--insert-banner-and-prompt("clojure.test.mode")
  cider-init-repl-buffer("*cider-repl 127.0.0.1*<3>")
  cider-create-repl-buffer()
  cider-make-repl(#<process nrepl<2>>)
  #[257 "\302\303\"Ar\300q\210\211)\210\304\305\300!!\210\306\300!\210\307 \207" [#<buffer *nrepl-connection 127.0.0.1*<3>> nrepl-ops assoc "ops" cider-make-repl get-buffer-process nrepl-make-repl-connection-default cider-verify-required-nrepl-ops] 4 "\n\n(fn RESPONSE)"]((dict ("id" . "3") ("ops" dict ("classpath" dict) ("clone" dict) ("close" dict) ("complete" dict) ("describe" dict) ("eval" dict) ("info" dict) ("inspect-pop" dict) ("inspect-push" dict) ("inspect-refresh" dict) ("inspect-reset" dict) ("inspect-start" dict) ("interrupt" dict) ("load-file"

pgroce

ClojureException in thread "main" java.lang.IncompatibleClassChangeError: Implementing class, compiling:(java.clj:73:3)
	at clojure.lang.Compiler$InvokeExpr.eval(Compiler.java:3558)
	at clojure.lang.Compiler$DefExpr.eval(Compiler.java:417)
	at clojure.lang.Compiler.compile1(Compiler.java:7226)
	at clojure.lang.Compiler.compile(Compiler.java:7292)
	at clojure.lang.RT.compile(RT.java:398)
	at clojure.lang.RT.load(RT.java:438)
	at clojure.lang.RT.load(RT.java:411)
	at clojure.core$load$fn__5066.invoke(core.clj:5641)
	at clojure.core$load.doInvoke(core.clj:5640)

pgroce

(defun pg/package-install (package &optional repository)
    "Install PACKAGE if it has not yet been installed.
  If REPOSITORY is specified, use that."
    (unless (package-installed-p package)
      (let ((package-archives (if repository
                                  (list (assoc repository package-archives))
                                package-archives)))
      (package-install package))))