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.

diff --git a/doc/SYMBOLS b/doc/SYMBOLS
index ffa6387..a4bcc69 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)