[slime-cvs] CVS slime

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv32030

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-xrefs-for-notes): Format location in a proper
way.
Reported by Max Mikhanosha.


--- /project/slime/cvsroot/slime/ChangeLog	2012/04/27 14:57:58	1.2321
+++ /project/slime/cvsroot/slime/ChangeLog	2012/05/01 10:07:34	1.2322
@@ -1,3 +1,9 @@
+2012-05-01  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-xrefs-for-notes): Format location in a proper
+	way.
+	Reported by Max Mikhanosha.
+
 2012-04-27  Nikodemus Siivola  <nikodemus at random-state.net>
 
 	* swank-sbcl.lisp (lisp-source-location): How hard can it be to
--- /project/slime/cvsroot/slime/slime.el	2012/04/23 16:32:52	1.1401
+++ /project/slime/cvsroot/slime/slime.el	2012/05/01 10:07:34	1.1402
@@ -2842,10 +2842,10 @@
              (fn (cadr (assq :file (cdr location))))
              (file (assoc fn xrefs))
              (node
-              (cons (format "%s: %s" 
-                            (getf note :severity)
-                            (slime-one-line-ify (getf note :message)))
-                    location)))
+               (list (format "%s: %s" 
+                             (getf note :severity)
+                             (slime-one-line-ify (getf note :message)))
+                     location)))
         (when fn
           (if file
               (push node (cdr file))