Changeset 1001
- Timestamp:
- 11/28/04 12:51:07 (4 years ago)
- 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)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
tags/bknr-sputnik/bknr/src/xml-impex/package.lisp
r694 r1001 9 9 #+cmu 10 10 :pcl 11 #+allegro 12 :aclmop 11 13 :bknr.utils 12 14 :bknr.indices) tags/bknr-sputnik/bknr/src/xml-impex/xml-class.lisp
r708 r1001 187 187 188 188 (defmethod xml-class-finalize ((class xml-class)) 189 (unless (class-finalized-p class) 190 (finalize-inheritance class)) 191 189 192 (let ((slots (class-slots class)) 190 193 (elmdef (xml-class-element class)))
