Static instance support.

[sod] / src / class-make-proto.lisp

diff --git a/src/class-make-proto.lisp b/src/class-make-proto.lisp
index 09b9f98e6fae7ad4e3d13f02b673d04bc3a42a4d..a978ca34a44b5440a263f7d3cdeee912d6f27ded 100644 (file)
--- a/src/class-make-proto.lisp
+++ b/src/class-make-proto.lisp
@@ -272,4 +272,16 @@ (defgeneric check-method-type (method message type)
    This is separated out of `shared-initialize', where it's called, so that
    it can be overridden conveniently by subclasses."))
 
+;;;--------------------------------------------------------------------------
+;;; Static instances.
+
+(export 'make-static-instance)
+(defgeneric make-static-instance (class name initializers pset location &key)
+  (:documentation
+   "Construct a new static instance of the given CLASS.
+
+   This is the main constructor functoin for static instances.  This is a
+   generic function so that the CLASS can construct static instances in a
+   special way."))
+
 ;;;----- That's all, folks --------------------------------------------------