X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/a535feed31204e82c6443411d16a03958c3ca4d2..58a9509014d2d133b91e96c7956957f82bc000a4:/doc/list-exports.lisp

diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index 9f1382b..abbf94a 100644
--- a/doc/list-exports.lisp
+++ b/doc/list-exports.lisp
@@ -262,6 +262,36 @@
 					  obj))))))
 		       (sb-mop:method-specializers method))))))))))
 
+(defun check-slot-names (package)
+  (setf package (find-package package))
+  (let* ((symbols (list-exported-symbols package))
+	 (classes (mapcan (lambda (symbol)
+			    (when (eq (symbol-package symbol) package)
+			      (let ((class (find-class symbol nil)))
+				(and class (list class)))))
+			  symbols))
+	 (offenders (mapcan
+		     (lambda (class)
+		       (let* ((slot-names
+			       (mapcar #'sb-mop:slot-definition-name
+				       (sb-mop:class-direct-slots class)))
+			      (exported (remove-if-not
+					 (lambda (sym)
+					   (or (and (symbol-package sym)
+						    (not (eq (symbol-package
+							      sym)
+							     package)))
+					       (member sym symbols)))
+					 slot-names)))
+			 (and exported
+			      (list (cons (class-name class)
+					  exported)))))
+			    classes))
+	 (bad-words (remove-duplicates (mapcan (lambda (list)
+						 (copy-list (cdr list)))
+					       offenders))))
+    (values offenders bad-words)))
+
 (defun report-symbols (paths package)
   (setf package (find-package package))
   (format t "~A~%Package `~(~A~)'~2%"
@@ -276,6 +306,17 @@
 		  (pretty-symbol-name sym package)
 		  (cdr def))))
       (terpri)))
+  (multiple-value-bind (alist names) (check-slot-names package)
+    (when names
+      (format t "Leaked slot names: ~{~A~^, ~}~%"
+	      (mapcar (lambda (name) (pretty-symbol-name name package))
+		      names))
+      (dolist (assoc alist)
+	(format t "~2T~A: ~{~A~^, ~}~%"
+		(pretty-symbol-name (car assoc) package)
+		(mapcar (lambda (name) (pretty-symbol-name name package))
+			(cdr assoc))))
+      (terpri)))
   (format t "Classes:~%")
   (analyse-classes package)
   (terpri)