Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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.
  • Loading branch information...
commit f5999cdc07b9174d4e1fd78b19759da14e6486a8 1 parent e491c47
@dsedivec dsedivec authored technomancy committed
Showing with 1 addition and 1 deletion.
  1. +1 −1  clojure-test-mode.el
View
2  clojure-test-mode.el
@@ -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)
(clojure-test-eval-sync
"(require 'clojure.test) (ns clojure.test)
Please sign in to comment.
Something went wrong with that request. Please try again.