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