Index: contrib/ChangeLog
===================================================================
RCS file: /project/slime/cvsroot/slime/contrib/ChangeLog,v
retrieving revision 1.492
diff -u -r1.492 ChangeLog
--- contrib/ChangeLog	12 Sep 2011 16:23:59 -0000	1.492
+++ contrib/ChangeLog	19 Sep 2011 13:37:15 -0000
@@ -1,3 +1,12 @@
+2011-09-19  Anton Kovalenko  <anton@sw4me.com>
+
+	* 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.
+
 2011-09-12  Christophe Rhodes  <csr21@cantab.net>
 
 	* slime-media.el (slime-dispatch-media-event): allow swank to
Index: contrib/swank-asdf.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/contrib/swank-asdf.lisp,v
retrieving revision 1.30
diff -u -r1.30 swank-asdf.lisp
--- contrib/swank-asdf.lisp	4 Jul 2010 15:55:29 -0000	1.30
+++ contrib/swank-asdf.lisp	19 Sep 2011 13:37:15 -0000
@@ -140,9 +140,12 @@
        t))
 
 (defslimefun asdf-system-directory (name)
-  (cl:directory-namestring
-   (cl:truename
-    (asdf:system-definition-pathname (asdf:find-system name)))))
+  (let ((truename
+          (cl:truename
+           (asdf:system-definition-pathname (asdf:find-system name)))))
+    (cl:namestring
+     (make-pathname :device (pathname-device truename)
+                    :directory (pathname-directory truename)))))
 
 (defun system-contains-file-p (module pathname pathname-name)
   (some #'(lambda (component)