[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-ecl.lisp 
Log Message:
* swank-ecl.lisp (+TAGS+): change
(translate-logical-pathname #P"SYS:TAGS") to
(merge-pathnames "TAGS" (translate-logical-pathname "SYS:"))
because of case conversion the former results in a pathname with a
name "tags", which doesn't exist.


--- /project/slime/cvsroot/slime/ChangeLog	2010/12/10 15:05:05	1.2168
+++ /project/slime/cvsroot/slime/ChangeLog	2011/01/20 23:34:21	1.2169
@@ -1,3 +1,11 @@
+2011-01-20  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-ecl.lisp (+TAGS+): change
+	(translate-logical-pathname #P"SYS:TAGS") to
+	(merge-pathnames "TAGS" (translate-logical-pathname "SYS:"))
+	because of case conversion the former results in a pathname with a
+	name "tags", which doesn't exist.
+
 2010-12-10  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-with-popup-buffer): Correct the docstring.
--- /project/slime/cvsroot/slime/swank-ecl.lisp	2010/09/28 21:46:02	1.67
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2011/01/20 23:34:22	1.68
@@ -498,7 +498,8 @@
 
 ;;;; Definitions
 
-(defvar +TAGS+ (namestring (translate-logical-pathname #P"SYS:TAGS")))
+(defvar +TAGS+ (namestring
+                (merge-pathnames "TAGS" (translate-logical-pathname "SYS:"))))
 
 (defun make-file-location (file file-position)
   ;; File positions in CL start at 0, but Emacs' buffer positions