[slime-devel] make-pathname on Windows

[Alan Shutko]

With a current SLIME on Windows XP with clisp 2.32, I was unable to
start a session if I M-x slime RET on a different drive from the
slime sources.  I saw error messages looking like this:

Compiling file C:\cc\slime\swank.lisp ...
*** - nonexistent directory: #P"U:\\cc\\slime\\"

Slime was losing the drive when making pathnames.  The changes below
fix my problem on clisp, and I _think_ they should be harmless on
systems without devices.

cvs server: Diffing .
Index: swank-loader.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank-loader.lisp,v
retrieving revision 1.19
diff -u -r1.19 swank-loader.lisp
--- swank-loader.lisp	9 Mar 2004 19:35:36 -0000	1.19
+++ swank-loader.lisp	19 Mar 2004 19:17:29 -0000
@@ -18,6 +18,10 @@
   (merge-pathnames name 
                    (make-pathname 
                     :type type
+                    :device 
+                    (pathname-device 
+                     (or *compile-file-pathname* *load-pathname*
+                         *default-pathname-defaults*))
                     :directory 
                     (pathname-directory
                      (or *compile-file-pathname* *load-pathname*
Index: swank.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/swank.lisp,v
retrieving revision 1.150
diff -u -r1.150 swank.lisp
--- swank.lisp	18 Mar 2004 21:57:14 -0000	1.150
+++ swank.lisp	19 Mar 2004 19:17:29 -0000
@@ -286,6 +286,7 @@
                (let* ((here (or *compile-file-truename* *load-truename*))
 		      (changelog (make-pathname 
 				  :name "ChangeLog" 
+                  :device (pathname-device here)
 				  :directory (pathname-directory here)
 				  :host (pathname-host here)))
 		      (date (with-open-file (file changelog :direction :input)


-- 
Alan Shutko <ats at acm.org> - I am the rocks.
Flying saucer: what follows a flying coffee cup during an argument.