From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 26 Mar 2017 09:01:28 +0000 (+0100)
Subject: doc/list-exports.lisp, doc/SYMBOLS: Report on condition classes.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/b8eeeb378980ebf06cd5b57fe0e967c23955cf5f

doc/list-exports.lisp, doc/SYMBOLS: Report on condition classes.

Unfortunately, they don't have a well-defined metaclass, but we can dig
it out anyway.
---

diff --git a/doc/SYMBOLS b/doc/SYMBOLS
index af3584e..0d41e6b 100644
--- a/doc/SYMBOLS
+++ b/doc/SYMBOLS
@@ -629,6 +629,9 @@ pset-proto.lisp
 Classes:
 cl:t
   sb-pcl::slot-object
+    cl:condition
+      cl:serious-condition
+        cl:error
     cl:standard-object
       alignas-storage-specifier
       base-offset
@@ -1717,6 +1720,39 @@ streams-proto.lisp
 Classes:
 cl:t
   sb-pcl::slot-object
+    cl:condition
+      condition-with-location
+        enclosing-condition-with-location [enclosing-condition]
+          enclosing-error-with-location [cl:error]
+          enclosing-warning-with-location [cl:warning]
+        error-with-location [cl:error]
+          simple-error-with-location [cl:simple-error]
+        simple-condition-with-location [cl:simple-condition]
+        warning-with-location [cl:warning]
+          simple-warning-with-location [cl:simple-warning]
+      enclosing-condition
+        enclosing-condition-with-location [condition-with-location]
+          enclosing-error-with-location [cl:error]
+          enclosing-warning-with-location [cl:warning]
+      cl:serious-condition
+        cl:error
+          enclosing-error-with-location [enclosing-condition-with-location]
+          error-with-location [condition-with-location]
+            simple-error-with-location [cl:simple-error]
+          cl:simple-error [cl:simple-condition]
+            simple-error-with-location [error-with-location]
+      cl:simple-condition
+        simple-condition-with-location [condition-with-location]
+        cl:simple-error [cl:error]
+          simple-error-with-location [error-with-location]
+        cl:simple-warning [cl:warning]
+          simple-warning-with-location [warning-with-location]
+      cl:warning
+        enclosing-warning-with-location [enclosing-condition-with-location]
+        cl:simple-warning [cl:simple-condition]
+          simple-warning-with-location [warning-with-location]
+        warning-with-location [condition-with-location]
+          simple-warning-with-location [cl:simple-warning]
     cl:standard-object
       character-parser-context
         character-scanner-context [scanner-context]
@@ -2112,6 +2148,12 @@ optparse.lisp
 Classes:
 cl:t
   sb-pcl::slot-object
+    cl:condition
+      cl:serious-condition
+        cl:error
+          option-parse-error [cl:simple-condition]
+      cl:simple-condition
+        option-parse-error [cl:error]
     cl:structure-object
       option
       option-parser
@@ -2173,6 +2215,10 @@ utilities.lisp
 Classes:
 cl:t
   sb-pcl::slot-object
+    cl:condition
+      cl:serious-condition
+        cl:error
+          inconsistent-merge-error
     cl:standard-object
       sb-mop:metaobject
         sb-mop:specializer
diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index eb87d16..f58fb2b 100755
--- a/doc/list-exports.lisp
+++ b/doc/list-exports.lisp
@@ -205,13 +205,17 @@ (defun pretty-symbol-name (symbol package)
 		  (t (best-package-name pkg)))
 	    (or exportp (null pkg)) (symbol-name symbol))))
 
+(deftype interesting-class ()
+  '(or standard-class
+       structure-class
+       #.(class-name (class-of (find-class 'condition)))))
+
 (defun analyse-classes (package)
   (setf package (find-package package))
   (let ((classes (mapcan (lambda (symbol)
 			   (let ((class (find-class symbol nil)))
 			     (and class
-				  (typep class '(or standard-class
-						 structure-class))
+				  (typep class 'interesting-class)
 				  (list class))))
 			 (list-exported-symbols package)))
 	(subs (make-hash-table)))