Correctly check return value of (compare-strings)
(compare-strings) returns T when the strings are equal, or an integer otherwise. Unfortunately both of these values are true in Emacs Lisp, so we must test explicitly for T. This bug was making M-x slime try to eval Clojure code when e.g. starting a Common Lisp.
|@@ -165,7 +165,7 @@|
|(defun clojure-test-load-reporting ()|
|"Redefine the test-is report function to store results in metadata."|
|- (when (compare-strings "clojure" 0 7 (slime-connection-name) 0 7)|
|+ (when (eq (compare-strings "clojure" 0 7 (slime-connection-name) 0 7) t)|
|"(require 'clojure.test) (ns clojure.test)|