Enumerate locals for the debug backtrace

njordhov · njordhov · commit dc6d973c4f65 · 2011-04-21T23:58:28.000-07:00
diff --git a/src/swank/commands/basic.clj b/src/swank/commands/basic.clj
@@ -534,9 +534,8 @@ that symbols accessible in the current namespace go first."
 (defslimefn buffer-first-change [file-name] nil)
 
 (defn locals-for-emacs [m]
-  (sort-by second
-           (map #(list :name (name (first %)) :id 0
-                       :value (pr-str (second %))) m)))
+  (map-indexed #(list :name (name (first %2)) :id %
+                 :value (pr-str (second %2))) m))
 
 (defslimefn frame-catch-tags-for-emacs [n] nil)
 (defslimefn frame-locals-for-emacs [n]
