(sb-mop:class-slots (find-class 'd:ItemIdentifierC))
(sb-mop:class-finalized-p (find-class 'd:ItemIdentifierC))
(sb-mop:finalize-inheritance (find-class 'd:ItemIdentifierC))