doc/list-exports.lisp: Categorize `setf'-functions as generic or plain.

[sod] / doc / list-exports.lisp

diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp
index c86156b..f4117df 100755 (executable)
--- a/doc/list-exports.lisp
+++ b/doc/list-exports.lisp
@@ -162,9 +162,10 @@
                   :generic)
                  (t :function))
            things)
-      (when (or ;;(not (boring-setf-expansion-p symbol))
-               (ignore-errors (fdefinition (list 'setf symbol))))
-       (push :setf things)))
+      (etypecase (ignore-errors (fdefinition (list 'setf symbol)))
+       (generic-function (push :setf-generic things))
+       (function (push :setf-function things))
+       (null)))
     (when (find-class symbol nil)
       (push :class things))
     (when (or (specialized-on-p #'sod:expand-c-type-spec 0 symbol)