[slime-devel] Propose a patch to fix load error on Win32

[Pisin Bootvong]

Hi,

This patch should fix source file not found error when:

- Run on Win32 (CLISP)
- (user-homedir-pathname) is on different drive than *default-pathname-defaults*
- Run slime a second time (so slime has to compare fasl file date with
source code date).

The problem is that PATHNAME-DIRECTORY does not include the drive letter.

Please review and apply if it is ok.


--- swank-loader-cvs-20060311.lisp      2006-02-25 21:57:21.000000000 +0700
+++ swank-loader.lisp   2006-03-11 16:27:18.625000000 +0700
@@ -179,8 +179,9 @@

 (defun swank-source-files (source-directory)
  (mapcar (lambda (name)
-            (make-pathname :name name :type "lisp"
-                           :directory (pathname-directory source-directory)))
+            (merge-pathnames
+             (make-pathname :name name :type "lisp")
+             source-directory))
          `("swank-backend" ,@*sysdep-files* "swank")))

 (defvar *fasl-directory* (default-fasl-directory)