[isidorus-cvs] r173 - in trunk/src: model xml/xtm

[Lukas Giessmann]

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