From 85aa8b3e6716fedd4617dc8d76cd459c8a38cdc5 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Wed, 7 Aug 2019 17:17:55 +0100 Subject: [PATCH] src/*.lisp: Add missing exports. All of these have documentation stubs (at least), but for some reason didn't get exported. In most cases, it's because they're slot accessors for a class, rather than the headline name, but there are a few exceptions. --- doc/SYMBOLS | 62 +++++++++++++++++++++++++++++++++++- src/class-layout-impl.lisp | 4 ++- src/class-layout-proto.lisp | 1 + src/classes.lisp | 12 ++++--- src/method-impl.lisp | 2 +- src/method-proto.lisp | 4 ++- src/module-proto.lisp | 2 +- src/parser/parser-expr-proto.lisp | 3 +- src/parser/scanner-charbuf-impl.lisp | 2 +- src/parser/scanner-proto.lisp | 1 + src/parser/streams-proto.lisp | 3 +- 11 files changed, 83 insertions(+), 13 deletions(-) diff --git a/doc/SYMBOLS b/doc/SYMBOLS index ffa6387..a4bcc69 100644 --- a/doc/SYMBOLS +++ b/doc/SYMBOLS @@ -210,6 +210,8 @@ class-finalize-proto.lisp finalize-sod-class generic class-layout-impl.lisp + effective-slot-initializer-function generic + effective-slot-prepare-function generic sod-class-effective-slot class sod-class-slot class sod-slot-initializer-function generic @@ -256,6 +258,7 @@ class-layout-proto.lisp islots-slots generic islots-subclass generic make-base-offset generic + make-chain-offset generic make-class-pointer generic vtable class vtable-body generic @@ -333,7 +336,9 @@ classes.lisp sod-class-chains generic sod-class-class-initializers generic setf-generic sod-class-direct-superclasses generic + sod-class-effective-methods generic sod-class-ilayout generic + sod-class-initargs generic setf-generic sod-class-initfrags generic setf-generic sod-class-initializer class sod-class-instance-initializers generic setf-generic @@ -349,6 +354,11 @@ classes.lisp sod-class-type generic sod-class-vtables generic sod-initarg class + sod-initarg-class generic + sod-initarg-default generic + sod-initarg-name generic + sod-initarg-slot generic + sod-initarg-type generic sod-initializer class sod-initializer-class generic sod-initializer-slot generic @@ -500,6 +510,7 @@ method-impl.lisp effective-method-after-methods generic effective-method-around-methods generic effective-method-before-methods generic + effective-method-functions generic simple-effective-method class simple-message class sod-method-role generic @@ -541,7 +552,9 @@ method-proto.lisp method-entry-effective-method generic method-entry-function-name generic method-entry-function-type generic + method-entry-role generic method-entry-slot-name generic + method-entry-slot-name-by-role generic primary-method-class generic simple-method-body generic sod-message-applicable-methods generic @@ -596,6 +609,7 @@ module-proto.lisp module-items generic setf-generic module-name generic module-pset generic + module-state generic setf-generic with-module-environment macro with-temporary-module macro @@ -966,6 +980,8 @@ effective-method-class effective-method effective-method-function-name effective-method +effective-method-functions + basic-effective-method effective-method-keywords effective-method effective-method-live-p @@ -980,6 +996,10 @@ effective-slot-direct-slot effective-slot effective-slot-initializer effective-slot +effective-slot-initializer-function + sod-class-effective-slot +effective-slot-prepare-function + sod-class-effective-slot emit-decl sod::basic-codegen t emit-decls @@ -1277,6 +1297,8 @@ kind-c-tagged-type (eql :union) make-base-offset sod-class sod-class +make-chain-offset + sod-class sod-class sod-class make-class-pointer sod-class sod-class sod-class sod-class cl:make-load-form @@ -1319,8 +1341,13 @@ method-entry-function-name effective-method sod-class t method-entry-function-type method-entry +method-entry-role + method-entry method-entry-slot-name method-entry +method-entry-slot-name-by-role + method-entry (eql :valist) t + method-entry (eql cl:nil) t module-dependencies module (setf module-dependencies) @@ -1340,6 +1367,10 @@ module-name module module-pset module +module-state + module +(setf module-state) + t module pprint-c-storage-specifier cl:symbol t alignas-storage-specifier t @@ -1469,8 +1500,14 @@ sod-class-class-initializers t sod-class sod-class-direct-superclasses sod-class +sod-class-effective-methods + sod-class sod-class-ilayout sod-class +sod-class-initargs + sod-class +(setf sod-class-initargs) + t sod-class sod-class-initfrags sod-class (setf sod-class-initfrags) @@ -1511,6 +1548,17 @@ sod-class-vtables sod-class sod-initarg-argument sod-initarg +sod-initarg-class + sod-initarg +sod-initarg-default + sod-initarg + sod-user-initarg +sod-initarg-name + sod-initarg +sod-initarg-slot + sod-slot-initarg +sod-initarg-type + sod-initarg sod-initializer-class sod-initializer sod-initializer-slot @@ -1666,6 +1714,7 @@ parser-expr-proto.lisp expr parser-form lparen function open-parenthesis class + operator-associativity generic operator-left-precedence generic operator-push-action generic operator-right-precedence generic @@ -1737,6 +1786,7 @@ parser-proto.lisp scanner-charbuf-impl.lisp charbuf-scanner class charbuf-scanner-map generic + charbuf-scanner-place class charbuf-scanner-place-p function charbuf-scanner-stream class @@ -1759,6 +1809,7 @@ scanner-proto.lisp scanner-column generic setf-generic scanner-context class scanner-current-char generic + scanner-file-location function scanner-filename generic scanner-interval generic scanner-line generic setf-generic @@ -1780,6 +1831,7 @@ streams-proto.lisp position-aware-output-stream class position-aware-stream class position-aware-stream-column generic setf-generic + position-aware-stream-file generic setf-generic position-aware-stream-line generic setf-generic stream-line-and-column generic stream-pathname generic @@ -1906,6 +1958,7 @@ cl:t token-scanner-context [scanner-context] token-scanner cl:structure-object + charbuf-scanner-place file-location list-scanner string-scanner @@ -2015,7 +2068,7 @@ file-location sod:sod-method sod:sod-slot character-scanner - sod-parser::charbuf-scanner-place + charbuf-scanner-place condition-with-location file-location position-aware-stream @@ -2029,6 +2082,9 @@ make-scanner-stream character-scanner charbuf-scanner string-scanner +operator-associativity + t + simple-binary-operator operator-left-precedence simple-binary-operator simple-postfix-operator @@ -2083,6 +2139,10 @@ position-aware-stream-column position-aware-stream (setf position-aware-stream-column) t position-aware-stream +position-aware-stream-file + position-aware-stream +(setf position-aware-stream-file) + t position-aware-stream position-aware-stream-line position-aware-stream (setf position-aware-stream-line) diff --git a/src/class-layout-impl.lisp b/src/class-layout-impl.lisp index 7ff4667..e93f401 100644 --- a/src/class-layout-impl.lisp +++ b/src/class-layout-impl.lisp @@ -90,7 +90,9 @@ (default-slot (slot 'prepare-function) (get-property pset :prepare-function :func nil))) -(export 'sod-class-effective-slot) +(export '(sod-class-effective-slot + effective-slot-initializer-function + effective-slot-prepare-function)) (defclass sod-class-effective-slot (effective-slot) ((initializer-function :initarg :initializer-function :type (or symbol function) diff --git a/src/class-layout-proto.lisp b/src/class-layout-proto.lisp index c919892..5c755a3 100644 --- a/src/class-layout-proto.lisp +++ b/src/class-layout-proto.lisp @@ -279,6 +279,7 @@ object's metadata; but that would either require a search or we'd have to be able work out the target chain's index in the table.")) +(export 'make-chain-offset) (defgeneric make-chain-offset (class chain-head target-head) (:documentation "Return the offset from CHAIN-HEAD to TARGET-HEAD.")) diff --git a/src/classes.lisp b/src/classes.lisp index 1856b30..678d4a5 100644 --- a/src/classes.lisp +++ b/src/classes.lisp @@ -48,11 +48,12 @@ sod-class-direct-superclasses sod-class-precedence-list sod-class-chain-link sod-class-chain-head sod-class-chain sod-class-chains - sod-class-slots sod-class-initfrags sod-class-tearfrags + sod-class-slots + sod-class-initargs sod-class-initfrags sod-class-tearfrags sod-class-instance-initializers sod-class-class-initializers sod-class-messages sod-class-methods sod-class-state - sod-class-ilayout sod-class-vtables)) + sod-class-ilayout sod-class-effective-methods sod-class-vtables)) (defclass sod-class () ((name :initarg :name :type string :reader sod-class-name) (location :initarg :location :initform (file-location nil) @@ -326,7 +327,8 @@ See `sod-initializer' for more details.")) -(export 'sod-initarg) +(export '(sod-initarg + sod-initarg-class sod-initarg-name sod-initarg-type)) (defclass sod-initarg () ((%class :initarg :class :type sod-class :reader sod-initarg-class) (location :initarg :location :initform (file-location nil) @@ -336,7 +338,7 @@ (:documentation "Describes a keyword argument accepted by the initialization function.")) -(export 'sod-user-initarg) +(export '(sod-user-initarg sod-initarg-default)) (defclass sod-user-initarg (sod-initarg) ((default :initarg :default :type t :reader sod-initarg-default)) (:documentation @@ -349,7 +351,7 @@ (awhen (sod-initarg-default initarg) (format stream " = ~A" it)))) -(export 'sod-slot-initarg) +(export '(sod-slot-initarg sod-initarg-slot)) (defclass sod-slot-initarg (sod-initarg) ((slot :initarg :slot :type sod-slot :reader sod-initarg-slot)) (:documentation diff --git a/src/method-impl.lisp b/src/method-impl.lisp index 7fdceb1..f2d71aa 100644 --- a/src/method-impl.lisp +++ b/src/method-impl.lisp @@ -291,7 +291,7 @@ (export '(basic-effective-method effective-method-around-methods effective-method-before-methods - effective-method-after-methods)) + effective-method-after-methods effective-method-functions)) (defclass basic-effective-method (effective-method) ((around-methods :initarg :around-methods :initform nil :type list :reader effective-method-around-methods) diff --git a/src/method-proto.lisp b/src/method-proto.lisp index 5687802..7163e8c 100644 --- a/src/method-proto.lisp +++ b/src/method-proto.lisp @@ -135,7 +135,8 @@ The list needn't be in any particular order.")) (export '(method-entry method-entry-effective-method - method-entry-chain-head method-entry-chain-tail)) + method-entry-chain-head method-entry-chain-tail + method-entry-role)) (defclass method-entry () ((%method :initarg :method :type effective-method :reader method-entry-effective-method) @@ -263,6 +264,7 @@ The default method indirects through `method-entry-slot-name-by-role'.")) +(export 'method-entry-slot-name-by-role) (defgeneric method-entry-slot-name-by-role (entry role name) (:documentation "Easier implementation for `method-entry-slot-name'.") (:method ((entry method-entry) (role (eql nil)) name) name) diff --git a/src/module-proto.lisp b/src/module-proto.lisp index b45a994..1fbba7c 100644 --- a/src/module-proto.lisp +++ b/src/module-proto.lisp @@ -149,7 +149,7 @@ ;;; Module objects. (export '(module module-name module-pset module-errors - module-items module-dependencies)) + module-items module-dependencies module-state)) (defclass module () ((name :initarg :name :type pathname :reader module-name) (%pset :initarg :pset :initform (make-pset) diff --git a/src/parser/parser-expr-proto.lisp b/src/parser/parser-expr-proto.lisp index b203d2f..326f3e5 100644 --- a/src/parser/parser-expr-proto.lisp +++ b/src/parser/parser-expr-proto.lisp @@ -101,7 +101,8 @@ ;;;-------------------------------------------------------------------------- ;;; Numerical precedence. -(export '(operator-left-precedence operator-right-precedence)) +(export '(operator-left-precedence operator-right-precedence + operator-associativity)) (defgeneric operator-left-precedence (operator) (:documentation "Return the OPERATOR's left-precedence. diff --git a/src/parser/scanner-charbuf-impl.lisp b/src/parser/scanner-charbuf-impl.lisp index 92ba83c..37bdd8c 100644 --- a/src/parser/scanner-charbuf-impl.lisp +++ b/src/parser/scanner-charbuf-impl.lisp @@ -110,7 +110,7 @@ captured places properly when he's finished. In practice, this is usually done using the `peek' parser macro so there isn't a problem.")) -(export 'charbuf-scanner-place-p) +(export '(charbuf-scanner-place charbuf-scanner-place-p)) (defstruct charbuf-scanner-place "A captured place we can return to later. diff --git a/src/parser/scanner-proto.lisp b/src/parser/scanner-proto.lisp index a1ded51..aed4c9f 100644 --- a/src/parser/scanner-proto.lisp +++ b/src/parser/scanner-proto.lisp @@ -157,6 +157,7 @@ (:documentation "Return the SCANNER's current column number.") (:method (scanner) nil)) +(export 'scanner-file-location) (defun scanner-file-location (scanner) "Capture the current location of the SCANNER. diff --git a/src/parser/streams-proto.lisp b/src/parser/streams-proto.lisp index b48a67e..014ed70 100644 --- a/src/parser/streams-proto.lisp +++ b/src/parser/streams-proto.lisp @@ -57,7 +57,8 @@ ;;; Enhanced stream classes. (export '(position-aware-stream - position-aware-stream-line position-aware-stream-column)) + position-aware-stream-file position-aware-stream-line + position-aware-stream-column)) (defclass position-aware-stream (proxy-stream) ((file :initarg :file :initform nil :type (or pathname null) :accessor position-aware-stream-file) -- 2.11.0