[slime-cvs] CVS update: slime/swank.lisp

[Luke Gorrie]

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

Modified Files:
	swank.lisp 
Log Message:
(changelog-date): make-pathname portability fix (from alanr).

Date: Fri Jan 16 01:24:08 2004
Author: lgorrie

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.97 slime/swank.lisp:1.98
--- slime/swank.lisp:1.97	Thu Jan 15 13:17:09 2004
+++ slime/swank.lisp	Fri Jan 16 01:24:08 2004
@@ -270,9 +270,10 @@
   "Return the datestring of the latest ChangeLog entry.  The date is
 determined at compile time."
   (macrolet ((date ()
-	       (let* ((dir (pathname-directory *compile-file-pathname*))
-		      (changelog (make-pathname :name "ChangeLog" 
-						:directory dir))
+               (let* ((dir (pathname-directory *compile-file-pathname*))
+                      (changelog (make-pathname :name "ChangeLog" :directory dir
+                                                :host (pathname-host
+                                                       *compile-file-pathname*)))
 		      (date (with-open-file (file changelog :direction :input)
 			      (string (read file)))))
 		 `(quote ,date))))