src/: More exports, found while documenting things.

diff --git a/src/class-finalize-impl.lisp b/src/class-finalize-impl.lisp
index 9c34bd7c46767d71fc07989e6429198605012dce..b0e31ce1c8eabbdac55c5a16b0b9b9a43ca7a6fb 100644 (file)
--- a/src/class-finalize-impl.lisp
+++ b/src/class-finalize-impl.lisp
@@ -100,6 +100,7 @@ (defun c3-tiebreaker (candidates cpls)
 
 ;;; Linearization functions.
 
+(export 'clos-cpl)
 (defun clos-cpl (class)
   "Compute the class precedence list of CLASS using CLOS linearization rules.
 
@@ -122,6 +123,7 @@ (defun clos-cpl (class)
                         (superclasses class))
                 :pick #'clos-tiebreaker)))
 
+(export 'dylan-cpl)
 (defun dylan-cpl (class)
   "Compute the class precedence list of CLASS using Dylan linearization
    rules.
@@ -145,6 +147,7 @@ (defun dylan-cpl (class)
                       (mapcar #'sod-class-precedence-list direct-supers))
                 :pick #'clos-tiebreaker)))
 
+(export 'c3-cpl)
 (defun c3-cpl (class)
   "Compute the class precedence list of CLASS using C3 linearization rules.
 
@@ -164,6 +167,7 @@ (defun c3-cpl (class)
                         (declare (ignore so-far))
                         (c3-tiebreaker candidates cpls)))))
 
+(export 'flavors-cpl)
 (defun flavors-cpl (class)
   "Compute the class precedence list of CLASS using Flavors linearization
    rules.
@@ -186,6 +190,7 @@ (defun flavors-cpl (class)
       (walk class)
       (nreverse done))))
 
+(export 'python-cpl)
 (defun python-cpl (class)
   "Compute the class precedence list of CLASS using the documented Python 2.2
    linearization rules.
@@ -205,6 +210,7 @@ (defun python-cpl (class)
       (walk class)
       (delete-duplicates (nreverse done)))))
 
+(export 'l*loops-cpl)
 (defun l*loops-cpl (class)
   "Compute the class precedence list of CLASS using L*LOOPS linearization
    rules.

diff --git a/src/class-finalize-proto.lisp b/src/class-finalize-proto.lisp
index c7de25561efe27b8a794504699f4a2818bef6e8d..eb2b9e355b6c8351f356d842925af02071c7efd0 100644 (file)
--- a/src/class-finalize-proto.lisp
+++ b/src/class-finalize-proto.lisp
@@ -28,10 +28,12 @@ (cl:in-package #:sod)
 ;;;--------------------------------------------------------------------------
 ;;; Protocol definition.
 
+(export 'compute-cpl)
 (defgeneric compute-cpl (class)
   (:documentation
    "Returns the class precedence list for CLASS."))
 
+(export 'compute-chains)
 (defgeneric compute-chains (class)
   (:documentation
    "Compute the layout chains for CLASS.
@@ -50,6 +52,7 @@ (defgeneric compute-chains (class)
    If the chains are ill-formed (i.e., not distinct) then an error is
    signalled."))
 
+(export 'check-sod-class)
 (defgeneric check-sod-class (class)
   (:documentation
    "Check the CLASS for validity.
@@ -73,6 +76,7 @@ (defgeneric check-sod-class (class)
    Returns true if all is well; false (and signals errors) if anything was
    wrong."))
 
+(export 'finalize-sod-class)
 (defgeneric finalize-sod-class (class)
   (:documentation
    "Computes all of the gory details about a class.

diff --git a/src/class-layout-impl.lisp b/src/class-layout-impl.lisp
index 7a2d9ccb0b07a76aae1a6b8bc3c93d6d4bdd60f3..fb684b74abec93a4e7dd765544008e08b5c22357 100644 (file)
--- a/src/class-layout-impl.lisp
+++ b/src/class-layout-impl.lisp
@@ -50,7 +50,8 @@ (defmethod compute-effective-slot ((class sod-class) (slot sod-slot))
 ;;;--------------------------------------------------------------------------
 ;;; Special-purpose slot objects.
 
-(export 'sod-class-slot)
+(export '(sod-class-slot
+         sod-slot-initializer-function sod-slot-prepare-function))
 (defclass sod-class-slot (sod-slot)
   ((initializer-function :initarg :initializer-function
                         :type (or symbol function)

diff --git a/src/method-aggregate.lisp b/src/method-aggregate.lisp
index e374924e12ce9de6937ab61e862ad2333e134d4f..e9a889d1f3e72d0ceb28d47f384ed5069e5a332c 100644 (file)
--- a/src/method-aggregate.lisp
+++ b/src/method-aggregate.lisp
@@ -28,7 +28,7 @@ (cl:in-package #:sod)
 ;;;--------------------------------------------------------------------------
 ;;; Classes and protocol.
 
-(export 'aggregating-message)
+(export '(aggregating-message message-combination))
 (defclass aggregating-message (simple-message)
   ((combination :initarg :combination :type keyword
                :reader message-combination)

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 6c9b28dad2a86648a2bc26cb8d59609a37b4bf87..b9543fdeaf200c827c9f0c2cfe1436be931df412 100644 (file)
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -95,7 +95,7 @@ (defmethod primary-method-class ((message simple-message))
 ;;;--------------------------------------------------------------------------
 ;;; Direct method classes.
 
-(export 'basic-direct-method)
+(export '(basic-direct-method sod-method-role))
 (defclass basic-direct-method (sod-method)
   ((role :initarg :role :type symbol :reader sod-method-role)
    (function-type :type c-function-type :reader sod-method-function-type))
@@ -205,7 +205,9 @@ (define-on-demand-slot delegating-direct-method function-type (method)
 ;;;--------------------------------------------------------------------------
 ;;; Effective method classes.
 
-(export 'basic-effective-method)
+(export '(basic-effective-method
+         effective-method-around-methods effective-method-before-methods
+         effective-method-after-methods))
 (defclass basic-effective-method (effective-method)
   ((around-methods :initarg :around-methods :initform nil
                   :type list :reader effective-method-around-methods)