X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/57b365324f35a6237602ab840c23f4f06c8c317c..66c609241dd2783c53e6bdbf2dc80c528feaeef7:/src/classes.lisp

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 @@ (export '(sod-class sod-class-name sod-class-nickname
 	  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 @@ (defclass sod-instance-initializer (sod-initializer)
 
    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 @@ (defclass sod-initarg ()
   (: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 @@ (defmethod print-object ((initarg sod-user-initarg) stream)
     (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