the direct superclasses of CLASS, or to signal an error if that failed."))
(export 'make-sod-class)
-(defun make-sod-class (name superclasses pset &optional location)
+(defun make-sod-class (name superclasses pset &key location)
"Construct and return a new SOD class with the given NAME and SUPERCLASSES.
This is the main constructor function for classes. The protocol works as
;;; Slots and slot initializers.
(export 'make-sod-slot)
-(defgeneric make-sod-slot (class name type pset &optional location)
+(defgeneric make-sod-slot (class name type pset &key location)
(:documentation
"Construct, add, and attach a new slot with given NAME and TYPE, to CLASS.
(export 'make-sod-instance-initializer)
(defgeneric make-sod-instance-initializer
- (class nick name value pset &optional location)
+ (class nick name value pset &key location)
(:documentation
"Construct and attach an instance slot initializer, to CLASS.
(export 'make-sod-class-initializer)
(defgeneric make-sod-class-initializer
- (class nick name value pset &optional location)
+ (class nick name value pset &key location)
(:documentation
"Construct and attach a class slot initializer, to CLASS.
(export 'make-sod-user-initarg)
(defgeneric make-sod-user-initarg
- (class name type pset &optional default location)
+ (class name type pset &key default location)
(:documentation
"Attach a user-defined initialization keyword argument to the CLASS.
(export 'make-sod-slot-initarg)
(defgeneric make-sod-slot-initarg
- (class name nick slot-name pset &optional location)
+ (class name nick slot-name pset &key location)
(:documentation
"Attach an initialization keyword argument to a slot by name.
(export 'make-sod-slot-initarg-using-slot)
(defgeneric make-sod-slot-initarg-using-slot
- (class name slot pset &optional location)
+ (class name slot pset &key location)
(:documentation
"Attach an initialization keyword argument to a SLOT.
(:documentation "Returns an `argument' object for the initarg."))
(export 'make-sod-class-initfrag)
-(defgeneric make-sod-class-initfrag (class frag pset &optional location)
+(defgeneric make-sod-class-initfrag (class frag pset &key location)
(:documentation
"Attach an initialization fragment FRAG to the CLASS.
list."))
(export 'make-sod-class-tearfrag)
-(defgeneric make-sod-class-tearfrag (class frag pset &optional location)
+(defgeneric make-sod-class-tearfrag (class frag pset &key location)
(:documentation
"Attach a teardown fragment FRAG to the CLASS.
;;; Messages and methods.
(export 'make-sod-message)
-(defgeneric make-sod-message (class name type pset &optional location)
+(defgeneric make-sod-message (class name type pset &key location)
(:documentation
"Construct and attach a new message with given NAME and TYPE, to CLASS.
(export 'make-sod-method)
(defgeneric make-sod-method
- (class nick name type body pset &optional location)
+ (class nick name type body pset &key location)
(:documentation
"Construct and attach a new method to CLASS.