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)
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)
(: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
(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