From e9f884f9722eb676b3a9a6f5ffeab4e61fe4d872 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Tue, 6 Aug 2019 01:51:24 +0100 Subject: [PATCH] doc/list-exports.lisp: Categorize `setf'-functions as generic or plain. --- doc/SYMBOLS | 74 +++++++++++++++++++++++++-------------------------- doc/list-exports.lisp | 7 ++--- 2 files changed, 41 insertions(+), 40 deletions(-) diff --git a/doc/SYMBOLS b/doc/SYMBOLS index 5de9929..7b801b2 100644 --- a/doc/SYMBOLS +++ b/doc/SYMBOLS @@ -7,7 +7,7 @@ builtin.lisp c-types-class-impl.lisp c-class-type class - c-type-class generic setf + c-type-class generic setf-generic cl:class class c-type find-class-type function find-sod-class function @@ -61,7 +61,7 @@ c-types-impl.lisp c-type-void variable c-type-wchar-t variable c-union-type class - cl:char function setf c-type parser + cl:char function setf-function c-type parser commentify-argument-names function commentify-function-type function const-string c-type @@ -106,7 +106,7 @@ c-types-impl.lisp ptr c-type ptrdiff-t c-type reify-variable-argument-tail function - cl:schar function setf c-type + cl:schar function setf-function c-type short c-type short-int c-type signed c-type @@ -331,21 +331,21 @@ classes.lisp sod-class-chain-head generic sod-class-chain-link generic sod-class-chains generic - sod-class-class-initializers generic setf + sod-class-class-initializers generic setf-generic sod-class-direct-superclasses generic sod-class-ilayout generic - sod-class-initfrags generic setf + sod-class-initfrags generic setf-generic sod-class-initializer class - sod-class-instance-initializers generic setf - sod-class-messages generic setf + sod-class-instance-initializers generic setf-generic + sod-class-messages generic setf-generic sod-class-metaclass generic - sod-class-methods generic setf + sod-class-methods generic setf-generic sod-class-name generic sod-class-nickname generic sod-class-precedence-list generic - sod-class-slots generic setf + sod-class-slots generic setf-generic sod-class-state generic - sod-class-tearfrags generic setf + sod-class-tearfrags generic setf-generic sod-class-type generic sod-class-vtables generic sod-initarg class @@ -386,7 +386,7 @@ codegen-proto.lisp call-inst class codegen-add-function generic codegen-build-function function - codegen-functions generic setf + codegen-functions generic setf-generic codegen-pop generic codegen-pop-block generic codegen-pop-function generic @@ -452,7 +452,7 @@ codegen-proto.lisp temporary-name class temporary-var generic update-inst class - var-in-use-p generic setf + var-in-use-p generic setf-generic var-inst class while-inst class with-temporary-var macro @@ -590,10 +590,10 @@ module-proto.lisp define-module-var macro finalize-module generic module class - module-dependencies generic setf + module-dependencies generic setf-generic module-errors generic module-import generic - module-items generic setf + module-items generic setf-generic module-name generic module-pset generic with-module-environment macro @@ -608,9 +608,9 @@ output-proto.lisp make-sequencer-item function sequence-output macro sequencer class - sequencer-constraints generic setf + sequencer-constraints generic setf-generic sequencer-item class - sequencer-item-functions function setf + sequencer-item-functions function setf-function sequencer-item-name function sequencer-item-p function sequencer-table generic @@ -631,7 +631,7 @@ pset-proto.lisp make-pset function p-key function p-name function - p-seenp function setf + p-seenp function setf-function p-type function p-value function property class @@ -1689,7 +1689,7 @@ parser-proto.lisp ? parser cl:and macro parser call-pluggable-parser function - cl:char function setf c-type parser + cl:char function setf-function c-type parser character-parser-context class combine-parser-failures function commit parser @@ -1756,12 +1756,12 @@ scanner-proto.lisp parser-scanner generic scanner-at-eof-p generic scanner-capture-place generic - scanner-column generic setf + scanner-column generic setf-generic scanner-context class scanner-current-char generic scanner-filename generic scanner-interval generic - scanner-line generic setf + scanner-line generic setf-generic scanner-release-place generic scanner-restore-place generic scanner-step generic @@ -1779,8 +1779,8 @@ streams-proto.lisp position-aware-input-stream class position-aware-output-stream class position-aware-stream class - position-aware-stream-column generic setf - position-aware-stream-line generic setf + position-aware-stream-column generic setf-generic + position-aware-stream-line generic setf-generic stream-line-and-column generic stream-pathname generic @@ -2229,19 +2229,19 @@ optparse.lisp make-option function make-option-parser function moan function - op-long-only-p function setf - op-negated-numeric-p function setf - op-negated-p function setf - op-non-option function setf - op-numeric-p function setf - op-options function setf - opt-arg-name function setf - opt-arg-optional-p function setf - opt-documentation function setf - opt-long-name function setf - opt-negated-tag function setf - opt-short-name function setf - opt-tag function setf + op-long-only-p function setf-function + op-negated-numeric-p function setf-function + op-negated-p function setf-function + op-non-option function setf-function + op-numeric-p function setf-function + op-options function setf-function + opt-arg-name function setf-function + opt-arg-optional-p function setf-function + opt-documentation function setf-function + opt-long-name function setf-function + opt-negated-tag function setf-function + opt-short-name function setf-function + opt-tag function setf-function option class option-parse-error function class option-parse-next function @@ -2312,7 +2312,7 @@ utilities.lisp sb-mop:eql-specializer-object generic find-duplicates function frob-identifier function - sb-mop:generic-function-methods generic setf + sb-mop:generic-function-methods generic setf-generic inconsistent-merge-error class info function information class @@ -2339,7 +2339,7 @@ utilities.lisp partial-order-minima function print-ugly-stuff function promiscuous-cerror function - ref function setf + ref function setf-function simple-control-error class simple-information class symbolicate function diff --git a/doc/list-exports.lisp b/doc/list-exports.lisp index c86156b..f4117df 100755 --- 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) -- 2.11.0