Author: lgiessmann Date: Tue Dec 22 12:43:32 2009 New Revision: 173 Log: committed a working version before changing the datamodel Modified: trunk/src/model/datamodel.lisp trunk/src/xml/xtm/importer_xtm2.0.lisp Modified: trunk/src/model/datamodel.lisp ============================================================================== --- trunk/src/model/datamodel.lisp (original) +++ trunk/src/model/datamodel.lisp Tue Dec 22 12:43:32 2009 @@ -444,7 +444,7 @@ ;;;;;;;;;;;;;; ;; -;; PointerrC +;; PointerC (elephant:defpclass PointerC (TopicMapConstructC) ((uri :accessor uri Modified: trunk/src/xml/xtm/importer_xtm2.0.lisp ============================================================================== --- trunk/src/xml/xtm/importer_xtm2.0.lisp (original) +++ trunk/src/xml/xtm/importer_xtm2.0.lisp Tue Dec 22 12:43:32 2009 @@ -257,9 +257,8 @@ (make-identifiers 'PersistentIdC topic-elem "subjectIdentifier" start-revision)) (subjectlocators (make-identifiers 'SubjectLocatorC topic-elem "subjectLocator" start-revision))) - - - (make-construct 'TopicC :start-revision start-revision + (make-construct 'TopicC + :start-revision start-revision :item-identifiers itemidentifiers :locators subjectlocators :psis subjectidentifiers