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 --------------------------------------------------