[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv1099

Modified Files:
	ChangeLog slime-asdf.el 
Log Message:
* slime-asdf.el: use slime-from-lisp-filename so that slime-tramp can work.
Reported by Peter Stirling.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/03/12 23:59:24	1.357
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/03/13 03:08:04	1.358
@@ -1,3 +1,8 @@
+2010-03-13  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-asdf.el: use slime-from-lisp-filename so that slime-tramp can work.
+	Reported by Peter Stirling.
+
 2010-03-12  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-arglists.lisp (extract-local-op-arglists (eql 'labels)):
--- /project/slime/cvsroot/slime/contrib/slime-asdf.el	2010/02/15 21:42:37	1.28
+++ /project/slime/cvsroot/slime/contrib/slime-asdf.el	2010/03/13 03:08:04	1.29
@@ -66,7 +66,8 @@
 
 (defun slime-determine-asdf-system (filename buffer-package)
   "Try to determine the asdf system that `filename' belongs to."
-  (slime-eval `(swank:asdf-determine-system ,filename ,buffer-package)))
+  (slime-eval `(swank:asdf-determine-system ,(slime-to-lisp-filename filename)
+                                            ,buffer-package)))
 
 (defun slime-who-depends-on-rpc (system)
   (slime-eval `(swank:who-depends-on ,system)))
@@ -105,7 +106,8 @@
    `(swank:asdf-system-files ,name)
    (lambda (files)
      (when files
-       (let ((files (nreverse files)))
+       (let ((files (mapcar 'slime-from-lisp-filename
+                            (nreverse files))))
          (find-file-other-window (car files))
          (mapc 'find-file (cdr files)))))))
 
@@ -115,7 +117,7 @@
   (slime-eval-async `(swank:asdf-system-directory ,name)
    (lambda (directory)
      (when directory
-       (dired directory)))))
+       (dired (slime-from-lisp-filename directory))))))
 
 (if (fboundp 'rgrep)
     (defun slime-rgrep-system (sys-name regexp)
@@ -124,7 +126,8 @@
                           (list (slime-read-system-name nil nil t)
                                 (grep-read-regexp))))
       (rgrep regexp "*.lisp"
-             (slime-eval `(swank:asdf-system-directory ,sys-name))))
+             (slime-from-lisp-filename
+              (slime-eval `(swank:asdf-system-directory ,sys-name)))))
     (defun slime-rgrep-system ()
       (interactive)
       (error "This command is only supported on GNU Emacs >21.x.")))
@@ -133,7 +136,8 @@
     (defun slime-isearch-system (sys-name)
       "Run `isearch-forward' on the files of an ASDF system."
       (interactive (list (slime-read-system-name nil nil t)))
-      (let* ((files (slime-eval `(swank:asdf-system-files ,sys-name)))
+      (let* ((files (mapcar 'slime-from-lisp-filename
+                            (slime-eval `(swank:asdf-system-files ,sys-name))))
              (multi-isearch-next-buffer-function
               (lexical-let* 
                   ((buffers-forward  (mapcar #'find-file-noselect files))
@@ -172,7 +176,8 @@
       ;; `tags-query-replace' actually uses `query-replace-regexp'
       ;; internally.
       (tags-query-replace (regexp-quote from) to delimited
-                          '(slime-eval `(swank:asdf-system-files ,name)))
+                          '(mapcar 'slime-from-lisp-filename
+                            (slime-eval `(swank:asdf-system-files ,name))))
     (error
      ;; Kludge: `tags-query-replace' does not actually return but
      ;; signals an unnamed error with the below error
@@ -222,7 +227,7 @@
       `(swank:asdf-system-files ,system)
     (lambda (files)
       (dolist (file files)
-        (let ((buffer (get-file-buffer file)))
+        (let ((buffer (get-file-buffer (slime-from-lisp-filename file))))
           (when buffer
             (with-current-buffer buffer
               (save-buffer buffer)))))