From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Aug 2015 09:58:38 +0000 (+0100)
Subject: src/: More exports, found while documenting things.
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/11e41ddf86b4ee793f44fc0e39cb4c1869335b14

src/: More exports, found while documenting things.
---

diff --git a/src/class-finalize-impl.lisp b/src/class-finalize-impl.lisp
index 9c34bd7..b0e31ce 100644
--- a/src/class-finalize-impl.lisp
+++ b/src/class-finalize-impl.lisp
@@ -100,6 +100,7 @@
 
 ;;; Linearization functions.
 
+(export 'clos-cpl)
 (defun clos-cpl (class)
   "Compute the class precedence list of CLASS using CLOS linearization rules.
 
@@ -122,6 +123,7 @@
 			 (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 @@
 		       (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 @@
 			 (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 @@
       (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 @@
       (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 c7de255..eb2b9e3 100644
--- a/src/class-finalize-proto.lisp
+++ b/src/class-finalize-proto.lisp
@@ -28,10 +28,12 @@
 ;;;--------------------------------------------------------------------------
 ;;; 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 @@
    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 @@
    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 7a2d9cc..fb684b7 100644
--- a/src/class-layout-impl.lisp
+++ b/src/class-layout-impl.lisp
@@ -50,7 +50,8 @@
 ;;;--------------------------------------------------------------------------
 ;;; 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 e374924..e9a889d 100644
--- a/src/method-aggregate.lisp
+++ b/src/method-aggregate.lisp
@@ -28,7 +28,7 @@
 ;;;--------------------------------------------------------------------------
 ;;; 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 6c9b28d..b9543fd 100644
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -95,7 +95,7 @@
 ;;;--------------------------------------------------------------------------
 ;;; 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 @@
 ;;;--------------------------------------------------------------------------
 ;;; 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)