From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Aug 2015 09:58:38 +0000 (+0100)
Subject: doc/list-exports.lisp: Strip duplicate exports.
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/8922d11064c215cdd8b6288985cc6d2e573826c2

doc/list-exports.lisp: Strip duplicate exports.

They can happen legitimately because of automatic exporting.
---

diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index ef10b00..0c809ee 100644
--- a/doc/list-exports.lisp
+++ b/doc/list-exports.lisp
@@ -128,14 +128,16 @@
 (defun categorize-symbols (paths package)
   (mapcar (lambda (assoc)
 	    (let ((home (car assoc))
-		  (symbols (sort (mapcan (lambda (sym)
-					   (multiple-value-bind
-					       (symbol foundp)
-					       (find-symbol (symbol-name sym)
-							    package)
-					     (and foundp (list symbol))))
-					 (cdr assoc))
-				 #'string< :key #'symbol-name)))
+		  (symbols (delete-duplicates
+			    (sort (mapcan (lambda (sym)
+					    (multiple-value-bind
+						(symbol foundp)
+						(find-symbol
+						 (symbol-name sym)
+						 package)
+					      (and foundp (list symbol))))
+					  (cdr assoc))
+				  #'string< :key #'symbol-name))))
 	      (cons home (mapcar (lambda (symbol)
 				   (cons symbol (categorize symbol)))
 				 symbols))))