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