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

[Martin Simmons]

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

Modified Files:
	swank-loader.lisp 
Log Message:
(make-swank-pathname): Preserve the host component (important for LispWorks
on Windows).

Date: Thu Sep  9 17:57:24 2004
Author: msimmons

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.32 slime/swank-loader.lisp:1.33
--- slime/swank-loader.lisp:1.32	Thu Sep  2 07:58:44 2004
+++ slime/swank-loader.lisp	Thu Sep  9 17:57:24 2004
@@ -15,17 +15,10 @@
 
 (defun make-swank-pathname (name &optional (type "lisp"))
   "Return a pathname with name component NAME in the Slime directory."
-  (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*
-                         *default-pathname-defaults*)))))
+  (merge-pathnames (make-pathname :name name :type type)
+                   (or *compile-file-pathname*
+                       *load-pathname*
+                       *default-pathname-defaults*)))
 
 (defparameter *sysdep-pathnames*
   (mapcar #'make-swank-pathname