doc/list-exports.lisp: Ignore generic functions with strange names.

CMUCL introduces functions `(pcl:class-predicate CLASS)' for its own
internal purposes, and it's not interesting to list them.

diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index 5eab34e5c604f8932ea37df1da8d6a66147ba5e3..a61fe9e2495cf645caddcb7584a2bf3acc316ce1 100644 (file)
--- a/doc/list-exports.lisp
+++ b/doc/list-exports.lisp
@@ -281,9 +281,10 @@ (defun order-specializers (la lb)
 (defun analyse-generic-functions (package)
   (setf package (find-package package))
   (flet ((function-name-core (name)
 (defun analyse-generic-functions (package)
   (setf package (find-package package))
   (flet ((function-name-core (name)

-          (etypecase name
-            (symbol name)
-            ((cons (eql setf) t) (cadr name)))))
+          (typecase name
+            (symbol (values name t))
+            ((cons (eql setf) t) (values (cadr name) t))
+            (t (values nil nil)))))

     (let ((methods (make-hash-table))
          (functions (make-hash-table))
          (externs (make-hash-table)))
     (let ((methods (make-hash-table))
          (functions (make-hash-table))
          (externs (make-hash-table)))


@@ -302,10 +303,11 @@ (defun analyse-generic-functions (package)
            (when class
              (dolist
                  (func (specializer-direct-generic-functions class))
            (when class
              (dolist
                  (func (specializer-direct-generic-functions class))

-               (let ((name (function-name-core
-                            (generic-function-name func))))
-                 (when (or (not (eq (symbol-package name) package))
-                           (gethash name externs))
+               (multiple-value-bind (name knownp)
+                   (function-name-core (generic-function-name func))
+                 (when (and knownp
+                            (or (not (eq (symbol-package name) package))
+                                (gethash name externs)))

                    (setf (gethash func functions) t)
                    (dolist (method (specializer-direct-methods class))
                      (setf (gethash method methods) t)))))))))
                    (setf (gethash func functions) t)
                    (dolist (method (specializer-direct-methods class))
                      (setf (gethash method methods) t)))))))))