[slime-cvs] CVS slime

[msimmons]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv21089

Modified Files:
	swank-loader.lisp 
Log Message:

(load-site-init-file, swank-source-files): Fix
pathname construction to take all unspecified components from the
directory pathname, in particular the drive letter on Windows.


--- /project/slime/cvsroot/slime/swank-loader.lisp	2006/03/16 17:26:27	1.58
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2006/04/13 10:41:59	1.59
@@ -175,13 +175,13 @@
 
 (defun load-site-init-file (directory)
   (load (make-pathname :name "site-init" :type "lisp"
-                       :directory (pathname-directory directory))
+                       :defaults directory)
         :if-does-not-exist nil))
 
 (defun swank-source-files (source-directory)
   (mapcar (lambda (name)
             (make-pathname :name name :type "lisp"
-                           :directory (pathname-directory source-directory)))
+                           :defaults source-directory))
           `("swank-backend" ,@*sysdep-files* "swank")))
 
 (defvar *fasl-directory* (default-fasl-directory)