[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-asdf.lisp 
Log Message:
* contrib/swank-asdf.lisp (asdf-system-files): Include the .asd file too.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/11/30 14:47:40	1.290
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/01 08:36:12	1.291
@@ -1,3 +1,7 @@
+2009-12-01  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-asdf.lisp (asdf-system-files): Include the .asd file too.
+
 2009-11-30  Helmut Eller  <heller at common-lisp.net>
 
 	* slime-repl.el (slime-repl-mode-map): Don't copy
--- /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2009/11/23 12:23:35	1.15
+++ /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2009/12/01 08:36:12	1.16
@@ -77,13 +77,16 @@
           (asdf:module-components module)))
 
 (defslimefun asdf-system-files (name)
-  (let* ((files (mapcar #'namestring
-                        (asdf-module-files (asdf:find-system name))))
+  (let* ((system (asdf:find-system name))
+         (files (mapcar #'namestring
+                        (cons
+                         (asdf:system-definition-pathname system)
+                         (asdf-module-files system))))
          (main-file (find name files
-                          :test #'string-equal
-                          :key #'pathname-name)))
+                          :test #'equalp :key #'pathname-name :start 1)))
     (if main-file
-        (cons main-file (remove main-file files :test #'equalp))
+        (cons main-file (remove main-file files
+                                :test #'equal :count 1))
         files)))
 
 (defslimefun asdf-system-loaded-p (name)