X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/c6b4ed992d81518f240509e6ab212d8fe705485a..e4af0384a9d904782ddb865afc90fb8a9703615c:/src/class-make-proto.lisp?ds=sidebyside

diff --git a/src/class-make-proto.lisp b/src/class-make-proto.lisp
index 09b9f98..a978ca3 100644
--- a/src/class-make-proto.lisp
+++ b/src/class-make-proto.lisp
@@ -272,4 +272,16 @@
    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 --------------------------------------------------