Changeset 1001

Timestamp:

11/28/04 12:51:07 (4 years ago)

Author:

manuel

Message:

last minute acl fix

Files:

• tags/bknr-sputnik/bknr/src/xml-impex/package.lisp (modified) (1 diff)
• tags/bknr-sputnik/bknr/src/xml-impex/xml-class.lisp (modified) (1 diff)

tags/bknr-sputnik/bknr/src/xml-impex/package.lisp

@@ -9 +9 @@
-        #+cmu
-        :pcl
+        #+allegro
+        :aclmop
-        :bknr.utils
-        :bknr.indices)

tags/bknr-sputnik/bknr/src/xml-impex/xml-class.lisp

@@ -187 +187 @@
-
-(defmethod xml-class-finalize ((class xml-class))
+  (unless (class-finalized-p class)
+    (finalize-inheritance class))
+
-  (let ((slots (class-slots class))
-        (elmdef (xml-class-element class)))