New feature: proper object lifecycle protocol; init and teardown fragments.

[sod] / src / classes.lisp

diff --git a/src/classes.lisp b/src/classes.lisp
index 1a3a925..0c695b2 100644 (file)
--- a/src/classes.lisp
+++ b/src/classes.lisp
@@ -48,7 +48,7 @@
          sod-class-direct-superclasses sod-class-precedence-list
          sod-class-chain-link sod-class-chain-head
          sod-class-chain sod-class-chains
-         sod-class-slots
+         sod-class-slots sod-class-initfrags sod-class-tearfrags
          sod-class-instance-initializers sod-class-class-initializers
          sod-class-messages sod-class-methods
          sod-class-state
@@ -71,6 +71,10 @@
                          :accessor sod-class-instance-initializers)
    (class-initializers :initarg :class-initializers :initform nil
                       :type list :accessor sod-class-class-initializers)
+   (initfrags :initarg :initfrags :initform nil
+             :type list :accessor sod-class-initfrags)
+   (tearfrags :initarg :tearfrags :initform nil
+             :type list :accessor sod-class-tearfrags)
    (messages :initarg :messages :initform nil
             :type list :accessor sod-class-messages)
    (methods :initarg :methods :initform nil