[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	swank-asdf.lisp 
Log Message:
* swank-asdf.lisp (asdf-system-directory): preserve
 pathname-device and use NAMESTRING for final conversion, so both
 device and directory are passed to SLIME. It is required e.g. on
 MS Windows with implementations using PATHNAME-DEVICE for drive
 letters (SBCL); intended to be portable and useful on every
 platform where DEVICE is important.


--- /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2011/10/01 01:35:42	1.31
+++ /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2011/10/05 11:22:21	1.32
@@ -141,9 +141,12 @@
        t))
 
 (defslimefun asdf-system-directory (name)
-  (cl:directory-namestring
-   (cl:truename
-    (asdf:system-definition-pathname (asdf:find-system name)))))
+  (let ((truename
+          (truename
+           (asdf:system-definition-pathname (asdf:find-system name)))))
+    (namestring
+     (make-pathname :device (pathname-device truename)
+                    :directory (pathname-directory truename)))))
 
 (defun system-contains-file-p (module pathname pathname-name)
   (some #'(lambda (component)