[slime-cvs] CVS update: slime/ChangeLog slime/swank.lisp

[Edi Weitz]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
remove duplicate asdf systems

Date: Mon Jun 13 11:34:54 2005
Author: eweitz

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.714 slime/ChangeLog:1.715
--- slime/ChangeLog:1.714	Mon Jun 13 11:17:32 2005
+++ slime/ChangeLog	Mon Jun 13 11:34:53 2005
@@ -1,5 +1,8 @@
 2005-06-13  Edi Weitz  <edi at agharta.de>
 
+	* swank.lisp (list-all-systems-in-central-registry): Delete
+	duplicates.
+
 	* swank-lispworks.lisp (unmangle-unfun): If you rename a package
 	you should rename it everywhere...
 


Index: slime/swank.lisp
diff -u slime/swank.lisp:1.307 slime/swank.lisp:1.308
--- slime/swank.lisp:1.307	Sun Jun 12 18:33:50 2005
+++ slime/swank.lisp	Mon Jun 13 11:34:53 2005
@@ -2227,17 +2227,19 @@
 
 (defslimefun list-all-systems-in-central-registry ()
   "Returns a list of all systems in ASDF's central registry."
-  (loop for dir in (asdf-central-registry)
-        for defaults = (eval dir)
-        when defaults
-        nconc (mapcar #'file-namestring
-                      (directory
-                       (make-pathname :defaults defaults
-                                      :version :newest
-                                      :type "asd"
-                                      :name :wild
-                                      :case :local)))))
-
+  (delete-duplicates
+    (loop for dir in (asdf-central-registry)
+          for defaults = (eval dir)
+          when defaults
+            nconc (mapcar #'file-namestring
+                            (directory
+                              (make-pathname :defaults defaults
+                                             :version :newest
+                                             :type "asd"
+                                             :name :wild
+                                             :case :local))))
+    :test #'string=))
+  
 (defun file-newer-p (new-file old-file)
   "Returns true if NEW-FILE is newer than OLD-FILE."
   (> (file-write-date new-file) (file-write-date old-file)))