[isidorus-cvs] r169 - trunk/src/model

[Lukas Giessmann]

Author: lgiessmann
Date: Thu Dec 10 09:53:34 2009
New Revision: 169

Log:
improved the handling of reifiable-constructs in the data model

Modified:
   trunk/src/model/datamodel.lisp

Modified: trunk/src/model/datamodel.lisp
==============================================================================
--- trunk/src/model/datamodel.lisp	(original)
+++ trunk/src/model/datamodel.lisp	Thu Dec 10 09:53:34 2009
@@ -634,7 +634,8 @@
     (declare (ItemIdentifierC id))
     (setf (identified-construct id) instance))
   (when reifier
-    (setf (reifier instance) reifier))
+    (add-reifier instance reifier))
+    ;(setf (reifier instance) reifier))
   instance)
 
 (defmethod delete-construct :before ((construct ReifiableConstructC))
@@ -642,7 +643,6 @@
     (delete-construct id))
   (when (reifier construct)
     (remove-reifier construct)))
-    ;(slot-makunbound (reifier construct) 'reified)))
 
 (defgeneric item-identifiers-p (constr)
   (:documentation "Test for the existence of item identifiers")