@@ -164,7 +164,7 @@ ;;;; Documentation (defn- briefly-describe-symbol-for-emacs [var] - (let [lines (fn [s] (seq (.split s (System/getProperty "line.separator")))) + (let [lines (fn [s] (seq (.split #^String s (System/getProperty "line.separator")))) [_ symbol-name arglists d1 d2 & __] (lines (describe-to-string var)) macro? (= d1 "Macro")] (list :designator symbol-name @@ -328,7 +328,7 @@ that symbols accessible in the current namespace go first." (.replace \- \_) (.replace \. \/)))) -(defn source-location-for-frame [frame] +(defn source-location-for-frame [#^StackTraceElement frame] (let [line (.getLineNumber frame) filename (if (.. frame getFileName (endsWith ".java")) (.. frame getClassName (replace \. \/) swank/commands/basic.clj d1617c2686483ad3cfdb5e444c77a2742796d234 Jeffrey Chu jochu0@gmail.com http://github.com/jochu/swank-clojure/commit/6cd3057d48e00da485cdf43b2b170816e5187c40 6cd3057d48e00da485cdf43b2b170816e5187c40 2009-07-07T21:23:10-07:00 2009-07-07T21:23:10-07:00 add type hints 2c7f788d926e2bff73f2c14e304878b9c00fd4cc Jeffrey Chu jochu0@gmail.com