(U-0002F89F): Add `sound@ja/on'.
(U+5FFF): Use `->subsumptive'.
(U+390B): Likewise.
(U-000225D6): New character.
(M-10410): Add `<-denotational' for U-000225D6; unify H6-D741; add
`<-same' for J0-576C.
(C3-2623): Use U-000225D6 instead of U+5FF9 as the value of
`<-denotational'.
(M-10411): Unify U-000225D7 and C3-257E.
(M-10415): Unify U-000225F0.
(M-10417): Unify U-000225ED and H6-D66A; add `sound@ja/on'.
(M-10418): Unify U-000225EF and H6-D6A6; add `sound@ja/on'.
(M-10420): Map to U-000225F4; integrate H6-D746.
(M-10421): Unify U-000225EB and H6-D666.
(RUI6-E028): New character.
(RUI6-E015): New character.
(G-RUI6-E05F): New character.

update.

(G-RUI6-E033): New character.
(U+9ADD): Use `->subsumptive'.
(U-00029AE7): Add ideographic-structure.

(U+95B3): Use `->subsumptive' to separate representative nodes.
(U+499E): Likewise.
(U+499F): Likewise.
(U+95B4): Likewise.
(U-0002B522): Add ideographic-structure.
(RUI6-E01D): Use `ruimoku=' instead of `bos=' in `sources'.
(U+49A0): Use `->subsumptive' to separate representative nodes.
(U+49A1): Likewise.
(U+95B6): Likewise.
(U+49A2): Likewise.

(M-30757): Add `<-denotational' for U-00026B20; add `sound@ja/on'; add
`<-same' for U+833B; delete `<-unknown' for U-00026B20.
(G-RUI6-E03D): New character.
(RUI6-E03D): New character.
(A-UU+83E7): New abstract character.
(mother of C2-3F48): Use A-UU+83E7 instead of U+83E7 as the mother;
unify G-CU+83E7.
(C2-3F48): Unify CU+83E7.
(UU+83E7): Use A-UU+83E7 instead of U+83E7 as the mother.
(U-0002F99E): Add `<-denotational' for U+83E7.
(G-RUI6-E03E): New character.
(RUI6-E03E): New character.

Reformatted.

(GT-09094): Add `ideographic-structure'.
(U-00021A5C): Add ideographic-structure.
(RUI6-E009): Use `ruimoku=' instead of `bos=' in `sources'.
(U-00021A97): Use `->subsumptive' to separate representative nodes.
(G-RUI6-E03B): New character.

(RUI6-E02E): New character.
(G-RUI6-E03C): New character.
(RUI6-E02A): New character.

update.

(JC3-82C4): Map to U+9093 instead of U+9127.

(G-RUI6-E014): New character.

(G-RUI6-E027): New character.
(U-00028F4D): Use `->denotational' instead of `->subsumptive'.

update.

Don't add `=gt-pj-1' for J90-4043.

(char-db-coded-charset-priority-list): Add `=>>ruimoku-v6'.

(G-RUI6-E037): New character.

(U+9397): Use `->subsumptive'.
(U+9398): Use `->denotational'.
(JSP-652E): Unify S-9506; add `<-formed' for J0-722F.

(U+8FC9): Use `->denotational'.
(RUI6-E039): New character.
(RUI6-E021): New character.

(G-RUI6-E036): New character.
(G-RUI6-E065): New character.
(RUI6-E065): Use `<-subsumptive' for G-RUI6-E065; compact
`ideographic-structure'.

(U-0002458B): Use `->subsumptive' to separate representative nodes.
(U-0002B1C6): New character.

(G-RUI6-E030): New character.

(G-RUI6-E02F): New character.

update.

(coded-charset-entity-reference-alist): Add setting for
`=>>ruimoku-v6'.

(=>>ruimoku-v6): New coded-charset for XEmacs CHISE.

Add mappings between CJK Ext B and CNS 11643 plain 7.
(U+9093): Add `sound@ja/on'; unify JC3-82C4; add `<-simplified@CN' for
G1-354B.
(U+90F0): Use `->subsumptive'.
(U+90F8): Add `<-simplified@CN' for U+9132.
(RUI6-E074): New character.
(U-0002874D): Use `->subsumptive' to separate representative nodes.
(U+9127): Add `sound@ja/on/kan' and `sound@ja/on/go'; use
`->subsumptive' to separate representative nodes; integrate JC3-68B0.
(U+9128): Use `->denotational'.
(U+9129): Use `->denotational'.
(U+912E): Use `->subsumptive' to separate representative nodes.
(U+48DF): Use `->denotational' to separate representative nodes.
(U-00028790): New character.
(U-00028793): Use `->subsumptive'.
(U+9133): Use `->subsumptive' to separate representative nodes.
(U-000287AB): Likewise.
(U+48E2): Likewise.
(U+9138): Use `->denotational'.
(U+9139): Likewise.
(U-000287A3): New character.
(U-000287B2): New character.
(U+913A): Use `->denotational'.
(U+913B): Use `->subsumptive'.
(U+913E): Use `->denotational' and `->subsumptive'.
(U+9142): Add `<-simplified@CN' for UU+9147.
(U+9147): Use `->subsumptive' to separate representative nodes.
(U+9148): Use `->subsumptive'.
(U-000287E5): New character.
(U+48E3): Use `->subsumptive' to separate representative nodes.
(U+48E4): Likewise.

(RUI6-E068): Fix `ideographic-structure'.

(C6-274C): Add `sound@ja/on'.

(RUI6-E042): New character.

update.

(U+795D): Unify J97-3D4B.
(mother of J0-3D4B): Unify G-UU+795D and G-J0-3D4B.
(U+795E): Unify J97-3F40.
(U+FA19): Unify RUI6-E085.
(mother of J0-3F40): Unify G-UU+795E and G-J0-3F40.

update.

(ZOB-1038): Use U-0002B1C6 as the value of `<-Oracle-Bones'.
(A-ZOB-2258): New abstract character.
(ZOB-2258): Add `<-denotational' for A-ZOB-2258.
(ZOB-{2276 - 2296}): New characters.

(A-J0-722F): New abstract character.
(mother of J0-722F): Unify G-JU+9B32; use A-J0-722F instead of U+9B32
as the mother.
(S-9507): New character.
(mother of C4-4224): Unify G-IU+29C2B.
(mother of C6-5A4E): Unify G-IU+29C2C.
(RUI6-E00A): Use `ruimoku=' instead of `bos=' in `sources'.
(mother of GT-61443): Unify G-GT-61443 and G-M-45675.
(M-45679): Unify S-9504; add `<-formed' for J0-9B32.
(M-45719): Unify S-9508; add `<-vulgar' for J0-722F.

(U-0002931E): New character.

(RUI6-E00C): Use `ruimoku=' instead of `bos=' in `sources'.
(U+698A): Unify A-J0-3A67.
(JX3-3A67): Unify RUI6-E086.
(mother of J90-3A67): Unify G-UU+698A.

(RUI6-E00F): Use `ruimoku=' instead of `bos=' in `sources'.
(RUI6-E007): Use `<-error@ruimoku/2001' instead of
`<-error@abos/2001'.

update.

Don't add `=gt-pj-1' for J90-6E4E and J90-4269.

(RUI6-E00D): Use `ruimoku=' instead of `bos=' in `sources'.

(RUI6-E076): New character.

(RUI6-E073): New character.

(RUI6-E01F): Use `ruimoku=' instead of `bos=' in `sources'.
(RUI6-E065): New character.

(RUI6-E057): New character.

(RUI6-E017): Use `ruimoku=' instead of `bos=' in `sources'.

(RUI6-E019): Use `ruimoku=' instead of `bos=' in `sources'.

(RUI6-E016): Use `ruimoku=' instead of `bos=' in `sources'.

(RUI6-E018): Use `ruimoku=' instead of `bos=' in `sources'.

(RUI6-E01E): Use `ruimoku=' instead of `bos=' in `sources'.

(RUI6-E00B): Use `ruimoku=' instead of `bos=' in `sources'.

(RUI6-E005): Use `ruimoku=' instead of `bos=' in `sources'.

(RUI6-E008): Use `ruimoku=' instead of `bos=' in `sources'.

(U+3694): Use `ruimoku=' instead of `bos=' in `sources'.
(RUI6-E006): Likewise.

(RUI6-E022): Use `ruimoku=' instead of `bos=' in `sources'.

(RUI6-E00E): Use `ruimoku=' instead of `bos=' in `sources'.

Reformatted.

update.

Add mappings between CJK Ext B and CNS 11643 plain 7.
(K0-775C): Integrate JC3-67BB.
(JSP-6154): Unify JC3-67CD.
(JX1-7C58): Unify JC3-67CE.
(K0-7475): Unify JC3-67CF.
(K0-6A40): Unify JC3-67E4.
(U+9069): Unify A-J0-452C.
(mother of K0-6E6A): Unify A-KU+9069, A-GT-52561 and A-M-39076.
(K0-6E6A): Unify KU+9069.
(mother of J0-452C): Unify G-UU+9069 and G-GT-52472.
(U-000285B3): Use `->denotational' instead of `->subsumptive'.
(JSP-6165): Separate M-39117; integrate JC3-67E8.
(K0-7165): Separate M-39118; unify JC3-67E9 and KU+9075.
(K0-6B36): Unify JC3-67EC.
(K0-7C3D): Unify JC3-67EE.
(M-39220): New character.
(U-00028633): New character.

(U-000218EA): Use `->denotational' and `->subsumptive'.

(U-0002041D): Use `->denotational' and `->subsumptive' to separate
representative node.

update.

(U+8457): Unify J97-4378.
(A-JX1-4378): New character.
(J0-4378): Use A-JX1-4378 instead of U+8457 as the value of
`<-denotational'.
(C1-6161): Likewise.
(A-JX1-7B27): New character.
(mother of JX1-7B27): Separate U+FA5F; unify G-M-31410; use A-JX1-7B27
instead of U+8457 as the value of `<-denotational'; separate JX1-7B27.
(JX1-7B27): Unify U+FA5F; use `<-denotational' for A-JX1-7B27 instead
of `->subsumptive' for G-M-31410.
(U+44F4): Use `->denotational' instead of `->subsumptive'.

update.

(char-db-coded-charset-priority-list): Add `=>ucs@ks'.
(insert-char-attributes): Delete special code for `=>ucs@ks'; treat it
as a coded-charset.

Reformatted.

update.

Add mappings between CJK Ext B and CNS 11643 plain 7.
(U-0002841F): Use `->subsumptive'.
(M-38661): Map to U-00028426.
(M-38662): Map to U-00028423.
(M-38663): Map to U-00028425.
(U+8FA9): Add `<-simplified@CN' for G1-3167.
(U+8FAD): Use `->denotational' and `->subsumptive'.
(U+4884): Use `->subsumptive'.
(U+8FAF): Use `->subsumptive'.

update.

(U+8FB4): Use `->subsumptive' to separate representative nodes.
(U-0002844A): Likewise.
(U+4888): Likewise.
(U+4889): Likewise.
(C7-554D): Map to U-0002844B.
(M-38699): Unify U-0002844C.

update.

(Fconcord_genre_ds): Add "#ifdef HAVE_LIBCHISE"..."#endif" for code to
refer Vchise_system_db_directory.

(C3-5B3D): Separate JC3-66C6.

update.

Add mappings between CJK Ext B and CNS 11643 plain 7.
(U+8EB6): Use `->subsumptive' to separate representative nodes.
(U+8EB7): Use `->subsumptive'.
(U+8EB8): Use `->subsumptive' to separate representative nodes.
(U+8EB9): Likewise.
(U+8EBA): Use `->denotational' and `->subsumptive'.
(U+8EBB): Use `->subsumptive' to separate representative nodes.
(U+8EBE): Use `->subsumptive'.
(U+483D): Use `->subsumptive' to separate representative nodes.
(U+483E): Likewise.
(U+8EC5): Use `->subsumptive'.
(U+4840): Use `->subsumptive' to separate representative nodes.
(U+8EC7): Likewise.
(U+4841): Use `->subsumptive'.

update.

Add mappings between CJK Ext B and CNS 11643 plain 7.
(U+8F16): Use `->denotational' to separate representative nodes.
(U+485E): Likewise.
(U+8F1E): Use `->subsumptive'.
(U+8F1F): Use `->subsumptive' to separate representative nodes.
(mother of M-38387): Unify G-IU+2832F.
(U+8F24): Use `->denotational' and `->subsumptive'.
(U+8F25): Use `->subsumptive' to separate representative nodes.
(U+8F26): Likewise.
(U-00028345): Use `->subsumptive'.
(U+8F87): Add `<-simplified@CN'.
(U+8F89): Likewise.
(U+8F2E): Use `->subsumptive' to separate representative nodes.
(U+4862): Use `->denotational' to separate representative nodes.
(U+8F33): Use `->denotational' and `->subsumptive'.
(U+8F36): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(U+8F37): Use `->subsumptive' to separate representative nodes.
(U+8F3A): Add `<-original' for U+8F1C.
(U-00028368): Use `->denotational' and `->subsumptive'.
(U+8F8F): Add `<-simplified@CN'.
(U+8F90): Likewise.
(U+8F44): Use `->denotational' and `->subsumptive'; unify A-J0-336D.
(U+8F95): Add `<-simplified@CN'.
(U+8F96): Likewise.
(U+486D): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(U+486F): Likewise.
(U+8F46): Use `->subsumptive'.
(U+8F47): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(U+4870): Use `->subsumptive' to separate representative nodes.
(U+8F4B): Use `->denotational'.
(U+8F4D): Use `->subsumptive'.
(U+8F53): Use `->subsumptive' to separate representative nodes.
(U+8F54): Use `->subsumptive'.
(U+8F99): Add `<-simplified@CN'.
(U+8F9A): Likewise.
(U+8F55): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(U+4877): Use `->denotational' to separate representative nodes.
(U+4879): Likewise.
(U+487A): Use `->subsumptive' to separate representative nodes.
(U+8F62): Use `->subsumptive'.
(C7-5954): Map to U-000283D9; integrate M-49761.
(U+8F63): Add `<-formed' for J0-6D60.
(U+8F64): Use `->subsumptive'.
(C7-5C7B): Unify U-000283E1 and M-38598.
(U+487E): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(U+8F65): Use `->denotational' and `->subsumptive'.
(M-38622): Map to U-00028400; add `<-same' for U+8F63.
(U-000283FF): New character.
(U-000283F5): Use `->denotational'.
(U+487F): Use `->subsumptive'.
(U-00028403): New character.

update.

Reformatted.

(U-00026195): Integrate C7-4A73 and M-49760; use
`ideographic-{radical|strokes}@ucs' instead of
`ideographic-{radical|strokes}'; add
`ideographic-{radical|strokes}@cns'.

update.

(U+73D0): Unify S1-4932, S2-4930 and H12-ECE6; add `<-simplified@misc'
for U+743A; add `<-vulgar' for U+743A.
(U+3ED1): Integrate M-21033.
(U+3ED2): Integrate M-21034.
(U+3ED3): Integrate M-21035.
(U-0002497C): Integrate M-21036.
(U-0002497D): Integrate M-21037.
(U-0002497E): Integrate M-21038.
(U-0002497F): Integrate M-21039.
(U+7417): Use `->subsumptive' to separate representative nodes.
(U-00024992): Unify M-21044.
(U+3ED5): Unify M-21046.
(U-00024980): Integrate M-21048.
(U+741B): Use `->denotational'.
(U-00024983): Integrate M-21051.
(U+741D): Use `->subsumptive'.
(U+3ED6): Integrate M-21054.
(U+741F): Use `->subsumptive' to separate representative nodes.
(U-00024981): Unify M-21063.
(U+3ED7): Integrate M-21076.
(U+7437): Use `->subsumptive' to separate representative nodes.
(U-000249AE): Unify M-21085.
(U-000249A0): Integrate M-21086.
(U-000249A4): New character.
(U-00024991): Unify M-21089.
(U-000249A8): Unify M-21090.
(U+7447): Use `->denotational' to integrate A-CU+2F92E.
(A-CU+2F92E): New character to integrate U+2F92E.
(U+3EDB): New character.
(U+7448): Use `->subsumptive' to separate representative nodes.

update.

Add mappings between CJK Ext B and CNS 11643 plain 7.
(U+8DD8): Use `->denotational'.
(M-37474): Use `<-denotational' for U+8DD8; unify S-8061; add
`<-formed' for J0-6D2A.
(U+8E17): Use `->subsumptive' to separate representative nodes.
(U+8E18): Likewise.
(U-0002807F): Likewise.
(U+4805): Likewise.
(U+8E19): Use `->subsumptive'.
(U+8E29): Use `->denotational' and `->subsumptive'.
(U+8E30): Likewise.
(U+8E31): Use `->subsumptive' to separate representative nodes.
(U+8E33): Likewise.
(U+8E34): Likewise.
(U+8E3A): Likewise.
(U+8E3B): Use `->denotational' to separate representative nodes.
(U+4813): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(M-37729): Separate C7-3422; add `<-vulgar' for J0-6C7D.
(U+8E45): Use `->denotational' and `->subsumptive'.
(U+4816): Use `->subsumptive' to separate representative nodes.
(C7-3422): Unify U-000280D2; add `<-unknown' for M-37729.
(U+481B): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(U+8E4B): Use `->denotational'.
(U-000280DF): Use `->subsumptive'.
(U+8E4C): Use `->subsumptive'.
(U+8E4F): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(U-000280E5): Use `->subsumptive'.
(U+481C): Use `->denotational' and `->subsumptive'.
(U+8E51): Use `->subsumptive' to separate representative nodes.
(U+8E52): Add `<-simplified@CN' for G1-7567.
(U+8E56): Use `->subsumptive' to separate representative nodes.
(U+481F): Likewise.
(U+4821): Likewise.
(U+8E5C): Likewise.
(U+4822): Use `->denotational' to separate representative nodes.
(U+8E62): Use `->subsumptive' to separate representative nodes.
(U+8E63): Use `->subsumptive'.
(U-0002814B): Use `->subsumptive' to separate representative nodes.
(U-00028154): Use `->denotational' and `->subsumptive'.
(U+8E6D): Use `->denotational'.
(U+8E6F): Use `->subsumptive' to separate representative nodes.
(U+8E71): Likewise.
(U+8E72): Use `->denotational' and `->subsumptive'.
(U+8E73): Use `->subsumptive' to separate representative nodes.
(U+8E75): Likewise.
(U+8E76): Likewise.
(U+8E77): Use `->denotational' and `->subsumptive'.
(U+8E78): Use `->subsumptive'.
(U+8E79): Use `->denotational'.
(U+8E86): Use `->subsumptive' to separate representative nodes.
(U+4828): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(U+8E88): Use `->subsumptive'.
(C7-504C): Map to U-00029548; integrate M-49890.
(C7-5541): Unify U-000281AE and M-37947.
(U+482B): Use `->denotational' to separate representative nodes.
(U+8E8B): Use `->subsumptive'.
(U+8E8F): Add `<-simplified@CN' for G1-756F.
(mother of J90-6D36): Unify G-JU+8E91.
(J90-6D36): Unify J90U+8E91, J2000U+8E91 and J2004U+8E91 instead of
JU+8E91.
(mother of C1-7B77): Unify G-UU+8E91.
(U+8E97): Delete `morohashi-daikanwa'; add `<-unknown' for U+8E9B; use
`->subsumptive' to separate representative nodes.
(U+8E98): Use `->subsumptive'.
(U-000281D7): Use `->subsumptive' to separate representative nodes.
(U+4830): Use `->denotational' and `->subsumptive'.
(U+8EA2): Likewise.
(U+8EA4): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(U+8EA5): Use `->denotational'.
(U+8EAA): Use `->denotational' and `->subsumptive'.
(U-00028209): New character.

Add mappings between CJK Ext B and CNS 11643 plain 7.
(U-00027F16): Use `->subsumptive' to separate representative nodes.
(U-00027F19): Likewise.
(U+8DA2): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(U+8DA3): Use `->subsumptive'.
(U+8DA4): Use `->subsumptive' to separate representative nodes.
(U+47B8): Likewise.
(U+47BC): Likewise.
(U+8DA6): Use `->denotational' to separate representative nodes.
(U+47BD): Use `->subsumptive' to separate representative nodes.
(U+47BE): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(U+47BF): Use `->subsumptive'; integrate M-37255.
(U-00027F50): Use `->subsumptive'.
(U+47C1): Use `->subsumptive' to separate representative nodes.
(U+47C6): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(U-00027F82): Use `->subsumptive' to separate representative nodes.
(U+8DAE): Use `->subsumptive'.
(U-00027F95): Use `->subsumptive'.
(C7-5043): Unify U-00027F93 and M-37328.
(U+8DAF): Use `->denotational' and `->subsumptive'.
(U+8DB1): Add `<-simplified@CN' for U+8DB2.

Reformatted.

update.

Add mappings between CJK Ext B and CNS 11643 plain 7.
(U-00027DA0): Use `->subsumptive' to separate representative nodes.
(U-00027DB5): Use `->denotational'.
(mother of C4-5D69): Unify G-UU+8CFF.
(U+8D06): Use `->subsumptive' to separate representative nodes.
(U+8D17): Add `<-original' for J0-3466.
(mother of C2-6F53): Unify G-CU+8D19.
(C2-6F53): Unify CU+8D19.
(U+8D1B): Use `->denotational' to integrate A-CU+2F9D6.
(A-CU+2F9D6): New abstract character to integrate M-36985 and
U-0002F9D6.

update.

(JSP-6D5A): Unify JC3-70A6.
(U+4DAE): New character.

Add mappings between CJK Ext B and CNS 11643 plain 7.
(M-37012): Unify U-00027E68.
(M-37013): Unify U-00027E69.
(U+8D6D): Use `->denotational'.
(U+8D6F): Use `->subsumptive'.
(M-37028): Map to U-00027E7A.
(U-00027E7E): New character.
(U-00027E85): New character.

Add mappings between CJK Ext B and CNS 11643 plain 7.
(U+8C7C): Use `->subsumptive'.
(U+475E): Use `->denotational' and `->subsumptive' to separate
representative nodes.
(U-00027CEB): Use `->subsumptive' and `->subsumptive'.
(U+4761): Use `->subsumptive'.
(mother of C2-635C): Unify G-CU+8C98.
(C2-635C): Unify CU+8C98.
(U-00027D07): Use `->denotational'.
(r1M-36626): Delete r2M-36626; add `morohashi-daikanwa@rev2' for
M-36628'; map to U-00027D06.
(U+4763): Use `->subsumptive'.
(U+4765): Use `->subsumptive' to separate representative nodes.
(U+4766): Use `->denotational' and `->subsumptive'.
(mother of JX2-792A): Unify G-JU+8C9B and G-CU+8C9B.
(C3-614D): Unify CU+8C9B.

(mother of M-30041): Unify G-IU+268BD.
(U-000268BC): Integrate M-49740 and C7-553A; use
`ideographic-radical@ucs' instead of `ideographic-radical'; add
`ideographic-strokes@ucs' and `ideographic-{radical|strokes}@cns'.

Reformatted.

update.

(coded-charset-entity-reference-alist): Add setting for
`=daikanwa@rev1'.

update.

(Fconcord_object_put): Use `member' instead of `memq'.
(Fconcord_object_adjoin): New function.
(Fconcord_object_adjoinX): New function.
(syms_of_concord): Defsubred `Fconcord_object_adjoin' and
`Fconcord_object_adjoinX'.

update.

- Include "elconcord.h".
- Move EXFUNs for `Fconcord_decode_object', `Fconcord_object_put' and
  `Fconcord_object_get' to elconcord.h.
(Lisp_CONCORD_DS): Moved to elconcord.h.
(struct Lisp_CONCORD_DS): Ditto.
(XCONCORD_DS): Ditto.
(XSET_CONCORD_DS): Ditto.
(CONCORD_DS_P): Ditto.
(CHECK_CONCORD_DS): Ditto.
(CONCHECK_CONCORD_DS): Ditto.
(Lisp_CONCORD_Object): Ditto.
(struct Lisp_CONCORD_Object): Ditto.
(XCONCORD_OBJECT): Ditto.
(XSET_CONCORD_OBJECT): Ditto.
(CONCORD_OBJECT_P): Ditto.
(CHECK_CONCORD_OBJECT): Ditto.
(CONCHECK_CONCORD_OBJECT): Ditto.
(CONCORD_OBJECT_GENRE): Ditto.
(CONCORD_OBJECT_ID): Ditto.
(XCONCORD_OBJECT_ID): Ditto.
(XCONCORD_OBJECT_GENRE): Ditto.
(concord_object_equal): New function.
(LRECORD_IMPLEMENTATION of "concord_object"): Use
`concord_object_equal'.

New file.