`sod-class'. All of the arguments are then passed to `make-instance';
further behaviour is left to the standard CLOS instance construction
protocol; for example, `sod-class' defines an `:after'-method on
- SHARED-INITIALIZE.
+ `shared-initialize'.
Minimal sanity checking is done during class construction; most of it is
- left for FINALIZE-SOD-CLASS to do (via CHECK-SOD-CLASS).
-
- Unused properties in PSET are diagnosed as errors."
+ left for `finalize-sod-class' to do (via `check-sod-class')."
(with-default-error-location (location)
(let* ((pset (property-set pset))
:superclasses superclasses
:location (file-location location)
:pset pset)))
- (check-unused-properties pset)
class)))
(export 'guess-metaclass)
to `sod-slot') to choose a (CLOS) class to instantiate. The slot is then
constructed by `make-instance' passing the arguments as initargs; further
behaviour is left to the standard CLOS instance construction protocol; for
- example, `sod-slot' defines an `:after'-method on `shared-initialize'.
-
- Unused properties on PSET are diagnosed as errors."))
+ example, `sod-slot' defines an `:after'-method on `shared-initialize'."))
(export 'make-sod-instance-initializer)
(defgeneric make-sod-instance-initializer
construction process. The default method looks up the slot using
`find-instance-slot-by-name', calls `make-sod-initializer-using-slot' to
actually make the initializer object, and adds it to the appropriate list
- in CLASS.
-
- Unused properties on PSET are diagnosed as errors."))
+ in CLASS."))
(export 'make-sod-class-initializer)
(defgeneric make-sod-class-initializer
construction process. The default method looks up the slot using
`find-class-slot-by-name', calls `make-sod-initializer-using-slot' to
actually make the initializer object, and adds it to the appropriate list
- in CLASS.
-
- Unused properties on PSET are diagnosed as errors."))
+ in CLASS."))
(export 'make-sod-initializer-using-slot)
(defgeneric make-sod-initializer-using-slot
then constructed by `make-instance' passing the arguments as initargs;
further behaviour is left to the standard CLOS instance construction
protocol; for example, `sod-message' defines an `:after'-method on
- `shared-initialize'.
-
- Unused properties on PSET are diagnosed as errors."))
+ `shared-initialize'."))
(export 'make-sod-method)
(defgeneric make-sod-method
invokes `make-sod-method-using-message' to make the method object, and
then adds the method to the class's list of methods. This split allows
the message class to intervene in the class selection process, for
- example.
-
- Unused properties on PSET are diagnosed as errors."))
+ example."))
(export 'make-sod-method-using-message)
(defgeneric make-sod-method-using-message