[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-asdf.el 
Log Message:
* contrib/slime-asdf.el (slime-browse-system): Open the parent directory of
an .asd file, not just files defined in it.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/10/21 13:26:36	1.259
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/10/21 14:32:57	1.260
@@ -1,5 +1,10 @@
 2009-10-21  Stas Boukarev  <stassats at gmail.com>
 
+	* slime-asdf.el (slime-browse-system): Open the parent directory of
+	an .asd file, not just files defined in it.
+
+2009-10-21  Stas Boukarev  <stassats at gmail.com>
+
 	* slime-asdf.el (slime-browse-system): New command for browsing
 	files in asdf using Dired.
 
--- /project/slime/cvsroot/slime/contrib/slime-asdf.el	2009/10/21 13:26:36	1.10
+++ /project/slime/cvsroot/slime/contrib/slime-asdf.el	2009/10/21 14:32:57	1.11
@@ -80,21 +80,16 @@
    `(swank:asdf-system-files ,name)
    (lambda (files) (mapc 'find-file files))))
 
-(defun slime-browse-system (name &optional load)
+(defun slime-browse-system (name)
   "Browse files in an ASDF system using Dired."
   (interactive (list (slime-read-system-name)))
-  (when (or load
-            (and (called-interactively-p)
-                 (not (slime-eval `(swank:asdf-system-loaded-p ,name)))
-                 (y-or-n-p "Load it? ")))
-    (slime-load-system name))
-  (slime-eval-async
-   `(swank:asdf-system-files ,name)
-   (lexical-let ((name name))
-     (lambda (files)
-       (when files
-         (dired (cons (format "ASDF system %s" name)
-                      files)))))))
+  (slime-eval-async 
+   `(cl:directory-namestring
+     (cl:truename
+      (asdf:system-definition-pathname (asdf:find-system ,name))))
+   (lambda (directory)
+     (when directory
+       (dired directory)))))
 
 (defslime-repl-shortcut slime-repl-load/force-system ("force-load-system")
   (:handler (lambda ()