[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv13026

Modified Files:
	swank-clisp.lisp ChangeLog 
Log Message:

	* swank-clisp.lisp (fspec-location): Fix creation of source-location.


--- /project/slime/cvsroot/slime/swank-clisp.lisp	2009/01/10 12:25:16	1.88
+++ /project/slime/cvsroot/slime/swank-clisp.lisp	2009/01/30 09:58:48	1.89
@@ -307,8 +307,9 @@
 			  (make-location (list :file (namestring truename))
 					 (if (consp lines)
 					     (list* :line lines)
-					     (list :function-name (string fspec)))
-					 (list :snippet (format nil "~A" type))))
+					     (list :function-name (string name)))
+                                         (when (consp type)
+                                           (list :snippet (format nil "~A" type)))))
 			 (t (list :error (princ-to-string c))))))
 		(t (list :error (format nil "No source information available for: ~S"
 					fspec)))))))
--- /project/slime/cvsroot/slime/ChangeLog	2009/01/30 06:08:07	1.1673
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/30 09:58:48	1.1674
@@ -1,3 +1,9 @@
+2009-01-30  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* swank-clisp.lisp (fspec-location): Fix creation of source-location.
+
+	Patch by Carsten Blaauw.
+
 2009-01-30  Geo Carncross  <geocar at gmail.com>
 
 	* swank-ecl.lisp (grovel-docstring-for-arglist): Fix for arglist