X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2FIdeograph-R008-Lid.el;h=58256a3079b22aa031c3750face12c5c3aff7b5a;hb=fa0c1d2affa53db69099c86c28451046255ce23e;hp=ee0586944f28a005f25be571b0e9c5f253d72841;hpb=dff30b9373dba5d69266e3e1b056e0ee0911c445;p=chise%2Fxemacs-chise.git diff --git a/lisp/utf-2000/Ideograph-R008-Lid.el b/lisp/utf-2000/Ideograph-R008-Lid.el index ee05869..58256a3 100644 --- a/lisp/utf-2000/Ideograph-R008-Lid.el +++ b/lisp/utf-2000/Ideograph-R008-Lid.el @@ -56,8 +56,8 @@ (ideographic-strokes . 1) (total-strokes . 3) (sound@ja/kun "na+i" "horo+b5") - (sound@ja/on/go "mAu") - (sound@ja/on/kan "bAu") + (sound@ja/on/go "mAu" "mu") + (sound@ja/on/kan "bAu" "bu") (=ucs . #x4EA1) ; 亡 (=>jis-x0208 . #x4B34) ; 亡 [43-20] (=>jis-x0213-1 . #x4B34) ; 亡 [43-20] @@ -77,6 +77,53 @@ (=gt-pj-k1 . #x3343) ; &MJ006462; [19-35] (=daikanwa . 00287) ; &I-M-00287; (=shinjigen . 0090) ; &MJ006462; + (<-antonym + ((=ucs@unicode . #x6709) ; &MJ013521; + (=mj . 013521) ; &MJ013521; + (=daikanwa . 14332) ; &I-M-14332; + )) + (<-antonym$_1*sources + daikanwa) + (<-antonym*sources + daikanwa) + (<-formed + ((=ucs@unicode . #x7121) ; &AJ1-03777; + (=adobe-japan1-0 . 03777) ; &AJ1-03777; + )) + (<-formed$_1*sources + jiyun lunyu-jizhu) + (<-interchangeable + ((=ucs@unicode . #x7121) ; &AJ1-03777; + (=adobe-japan1-0 . 03777) ; &AJ1-03777; + (=daikanwa . 19113) ; &I-M-19113; + ) + ((=ucs@ks . #x5FD8) ; &MJ011392; + (=mj . 011392) ; &MJ011392; + (=daikanwa . 10333) ; &I-M-10333; + )) + (<-interchangeable$_1*sources + shuowen-tongxun-dingsheng maoshi-zhu yili-zhu daikanwa) + (<-interchangeable$_2*sources + shuowen-tongxun-dingsheng maoshi-zhu shiwen daikanwa) + (<-interchangeable*sources + shuowen-tongxun-dingsheng maoshi-zhu daikanwa) + (<-same + ((=ucs@unicode . #x7121) ; &AJ1-03777; + (=adobe-japan1-0 . 03777) ; &AJ1-03777; + (=daikanwa . 19113) ; &I-M-19113; + )) + (<-same$_1*sources + jiyun lunyu-jizhu daikanwa) + (<-same*sources + jiyun lunyu-jizhu daikanwa) + (->formed + ((=ucs . #x5166) ; 兦 + (=daikanwa . 01417) ; &I-M-01417; + )) + (->formed$_1*sources + jiyun daikanwa) + (->formed*sources + jiyun daikanwa) (->subsumptive ((=decomposition@cid ((=ucs . #x4EA1) ; 亡 @@ -469,6 +516,21 @@ ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") (=ucs . #x2FF1) ; ⿱ ) + ((=big5-cdp . #x8BAE) ; &CDP-8BAE; + ) + ((=>ucs@component . #x5182) ; &A-compU+5182; + )) + (=>big5-cdp . #x8BEC) ; &A-GT-K02306; + (=>gt-k . 02306) ; &A-GT-K02306; + )) +(define-char + '((ideographic-radical . 8) ; ⼇ + (ideographic-strokes . 2) + (total-strokes . 4) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) ((=ucs . #x4EA0) ; 亠 ) ((=ucs . #x4E86) ; 了 @@ -482,6 +544,53 @@ )) (define-char '((<-denotational + ((=>big5-cdp . #x8BEC) ; &A-GT-K02306; + )) + (ideographic-radical . 8) ; ⼇ + (ideographic-strokes . 2) + (total-strokes . 4) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=big5-cdp . #x8BAE) ; &CDP-8BAE; + ) + ((=ucs . #x5182) ; 冂 + )) + (=gt-k . 02306) ; >-K02306; + (=gt-pj-k1 . #x372E) ; >-K02306; [23-14] + (->subsumptive + ((==gt-k . 02306) ; &g2-GT-K02306; + (==gt-pj-k1 . #x372E) ; &g2-GT-K02306; [23-14] + )) + )) +(define-char + '((<-denotational + ((=>big5-cdp . #x8BEC) ; &A-GT-K02306; + )) + (ideographic-radical . 8) ; ⼇ + (ideographic-strokes . 2) + (total-strokes . 4) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=big5-cdp . #x8BAE) ; &CDP-8BAE; + ) + ((=ucs . #x5196) ; 冖 + )) + (=big5-cdp . #x8BEC) ; &CDP-8BEC; + (=gt-k . 02309) ; &I-GT-K02309; + (=gt-pj-k1 . #x323B) ; &CDP-8BEC; [18-27] + (->subsumptive + ((==big5-cdp . #x8BEC) ; &g2-CDP-8BEC; + ) + ((==gt-k . 02309) ; &g2-GT-K02309; + (==gt-pj-k1 . #x323B) ; &g2-GT-K02309; [18-27] + )) + )) +(define-char + '((<-denotational ((=>ucs@cognate . #x4EA2) ; &A-cgnU+4EA2; )) (ideographic-radical . 8) ; ⼇ @@ -1642,6 +1751,39 @@ )) )) (define-char + '((ideographic-radical . 8) ; ⼇ + (ideographic-strokes . 4) + (total-strokes . 6) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID") + (=ucs . #x2FFB) ; ⿻ + ) + ((=ucs . #x20AD3) ; 𠫓 + ) + ((=>ucs@iwds-1 . #x4EBA) ; &A-IWDSU+4EBA; + (=>iwds-1 . 14623) ; &A-IWDSU+4EBA; + )) + (=ucs . #x2B745) ; 𫝅 + )) +(define-char + '((<-denotational + ((=ucs . #x2B745) ; 𫝅 + )) + (ideographic-radical . 8) ; ⼇ + (ideographic-strokes . 4) + (total-strokes . 6) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID") + (=ucs . #x2FFB) ; ⿻ + ) + ((=ucs@jis . #x20AD3) ; &MJ031960; + (=mj . 031960) ; &MJ031960; + ) + ((=ucs . #x4EBA) ; 人 + )) + (=ucs@JP/hanazono . #x2B745) ; &hanaJU+2B745; + )) +(define-char '((<-denotational ((=>ucs@iwds-1 . #x215D5) ; &A-IWDSU+215D5; )) @@ -2115,6 +2257,16 @@ ) ((=ucs . #x5196) ; 冖 )) + (ideographic-structure@apparent + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO MIDDLE AND BELOW") + (=ucs . #x2FF3) ; ⿳ + ) + ((=ucs . #x4EA0) ; 亠 + ) + ((=ucs . #x53E3) ; 口 + ) + ((=ucs . #x5196) ; 冖 + )) (=big5-cdp . #x8C4D) ; &CDP-8C4D; (=gt-k . 02791) ; &I-GT-K02791; (=gt-pj-k1 . #x324C) ; &CDP-8C4D; [18-44] @@ -2122,16 +2274,7 @@ ((=ucs . #x9AD8) ; 高 )) (->subsumptive - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") - (=ucs . #x2FF1) ; ⿱ - ) - ((=gt-k . 01444) ; >-K01444; - ) - ((==ucs@unicode . #x5196) ; &g2-AJ1-04227; - (==adobe-japan1-0 . 04227) ; &g2-AJ1-04227; - )) - (==big5-cdp . #x8C4D) ; &g2-CDP-8C4D; + ((==big5-cdp . #x8C4D) ; &g2-CDP-8C4D; (==gt-k . 02791) ; &g2-CDP-8C4D; )) )) @@ -2183,50 +2326,52 @@ (=daijiten . 00156) ; &I-DJT-00156; (=shinjigen . 0101) ; &AJ1-01687; (->subsumptive - ((=decomposition@cid - ((=ucs . #x4EAB) ; 享 - ) - ((=ucs . #xE0100) ; 󠄀 - )) - (ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") - (=ucs . #x2FF1) ; ⿱ - ) - ((==gt-k . 01444) ; &g2-GT-K01444; - ) - ((=ucs . #x5B50) ; 子 - )) - (==ucs@unicode . #x4EAB) ; &g2-AJ1-01687; - (==adobe-japan1-0 . 01687) ; &g2-AJ1-01687; - (==gb2312 . #x4F6D) ; &g2-AJ1-01687; [47-77] - (==ks-x1001 . #x7A3D) ; &g2-AJ1-01687; [90-29] - (==jis-x0208 . #x357D) ; &g2-AJ1-01687; [21-93] - (==cns11643-1 . #x4B6A) ; &g2-AJ1-01687; [43-74] - (==jis-x0213-1 . #x357D) ; &g2-AJ1-01687; [21-93] - (==gt . 00396) ; &g2-AJ1-01687; - (==gt-k . 03669) ; &g2-AJ1-01687; - (==daikanwa . 00298) ; &g2-AJ1-01687; - (==daijiten . 00156) ; &g2-AJ1-01687; - (==shinjigen . 0101) ; &g2-AJ1-01687; + ((=>>ucs@unicode . #x4EAB) ; &G-AJ1-01687; + (=>>adobe-japan1-0 . 01687) ; &G-AJ1-01687; + (=>>jis-x0208 . #x357D) ; &G-AJ1-01687; [21-93] + (=>>cns11643-1 . #x4B6A) ; &G-AJ1-01687; [43-74] + (=>>jis-x0213-1 . #x357D) ; &G-AJ1-01687; [21-93] + (=>>gt . 00396) ; &G-AJ1-01687; + (=>>gt-k . 03669) ; &G-AJ1-01687; + (=>>daikanwa . 00298) ; &G-AJ1-01687; (->subsumptive - ((===daikanwa . 00298) ; &R-M-00298; - ) - ((===daijiten . 00156) ; &R-DJT-00156; - ) - ((===jis-x0208 . #x357D) ; &R-J0-357D; [21-93] - (===jis-x0213-1 . #x357D) ; &R-J0-357D; [21-93] - ) - ((===adobe-japan1-0 . 01687) ; &R-AJ1-01687; - ) - ((===gt . 00396) ; &R-GT-00396; - (===gt-k . 03669) ; &R-GT-00396; - ) - ((===ucs@ks . #x4EAB) ; &R-K0-7A3D; - (===ks-x1001 . #x7A3D) ; &R-K0-7A3D; [90-29] - ) - ((===ucs@unicode . #x4EAB) ; &R-UU+4EAB; - ) - ((===cns11643-1 . #x4B6A) ; &R-C1-4B6A; [43-74] + ((=decomposition@cid + ((=ucs . #x4EAB) ; 享 + ) + ((=ucs . #xE0100) ; 󠄀 + )) + (==ucs@unicode . #x4EAB) ; &g2-AJ1-01687; + (==adobe-japan1-0 . 01687) ; &g2-AJ1-01687; + (==gb2312 . #x4F6D) ; &g2-AJ1-01687; [47-77] + (==ks-x1001 . #x7A3D) ; &g2-AJ1-01687; [90-29] + (==jis-x0208 . #x357D) ; &g2-AJ1-01687; [21-93] + (==cns11643-1 . #x4B6A) ; &g2-AJ1-01687; [43-74] + (==jis-x0213-1 . #x357D) ; &g2-AJ1-01687; [21-93] + (==gt . 00396) ; &g2-AJ1-01687; + (==gt-k . 03669) ; &g2-AJ1-01687; + (==daikanwa . 00298) ; &g2-AJ1-01687; + (==daijiten . 00156) ; &g2-AJ1-01687; + (==shinjigen . 0101) ; &g2-AJ1-01687; + (->subsumptive + ((===daikanwa . 00298) ; &R-M-00298; + ) + ((===daijiten . 00156) ; &R-DJT-00156; + ) + ((===jis-x0208 . #x357D) ; &R-J0-357D; [21-93] + (===jis-x0213-1 . #x357D) ; &R-J0-357D; [21-93] + ) + ((===adobe-japan1-0 . 01687) ; &R-AJ1-01687; + ) + ((===gt . 00396) ; &R-GT-00396; + (===gt-k . 03669) ; &R-GT-00396; + ) + ((===ucs@ks . #x4EAB) ; &R-K0-7A3D; + (===ks-x1001 . #x7A3D) ; &R-K0-7A3D; [90-29] + ) + ((===ucs@unicode . #x4EAB) ; &R-UU+4EAB; + ) + ((===cns11643-1 . #x4B6A) ; &R-C1-4B6A; [43-74] + )) )) ) ((=gt-k . 03670) ; >-K03670; @@ -2235,6 +2380,10 @@ ((=ucs@unicode . #x4EAB) ; &AJ1-01687; (=adobe-japan1-0 . 01687) ; &AJ1-01687; )) + (->subsumptive + ((==gt-k . 03670) ; &g2-GT-K03670; + (==gt-pj-k1 . #x3135) ; &g2-GT-K03670; [17-21] + )) )) )) (define-char @@ -3114,7 +3263,6 @@ (ideographic-radical . 8) ; ⼇ (ideographic-strokes . 7) (total-strokes . 9) - (hanyu-dazidian 1 285 4) (ideographic-structure ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") (=ucs . #x2FF1) ; ⿱ @@ -3123,9 +3271,47 @@ ) ((=ucs . #x5C0F) ; 小 )) - (sound@ja/on/go "kyAu") + (ideographic-structure@apparent/rightmost + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=ucs . #x4EA0) ; 亠 + ) + ((=ucs . #x23322) ; 𣌢 + )) + (sound@ja/on/go "kyAu" "geN") + (sound@ja/on/kan "kei" "geN") (=ucs . #x4EB0) ; 亰 - (=adobe-japan1-0 . 04112) ; &I-AJ1-04112; + )) +(define-char + '((<-denotational + ((=ucs . #x4EB0) ; 亰 + )) + (ideographic-radical . 8) ; ⼇ + (ideographic-strokes . 7) + (total-strokes . 9) + (hanyu-dazidian 1 285 4) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=ucs@iso . #x23140) ; >-17371; + (=cns11643-6 . #x247A) ; >-17371; [04-90] + (=daikanwa . 13739) ; &I-M-13739; + ) + ((=ucs . #x5C0F) ; 小 + )) + (ideographic-structure@apparent/rightmost + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") + (=ucs . #x2FF1) ; ⿱ + ) + ((=ucs@jis . #x4EA0) ; &AJ1-04110; + (=adobe-japan1-0 . 04110) ; &AJ1-04110; + ) + ((=ucs@iso . #x23322) ; &CDP-8CED; + )) + (=ucs@unicode . #x4EB0) ; &AJ1-04112; + (=adobe-japan1-0 . 04112) ; &AJ1-04112; (=jis-x0208 . #x5037) ; &I-J90-5037; [48-23] (=cns11643-3 . #x2B25) ; &I-C3-2B25; [11-05] (=jis-x0213-1 . #x5037) ; &I-JX1-5037; [48-23] @@ -3134,7 +3320,29 @@ (=gt-pj-1 . #x5037) ; &I-GT-00402; [48-23] (=daikanwa . 00307) ; &I-M-00307; (=daijiten . 00164) ; &I-DJT-00164; - (=shinjigen . 0103) ; 亰 + (=shinjigen . 0103) ; &AJ1-04112; + (<-interchangeable + ((=ucs . #x4EAC) ; 京 + )) + (<-interchangeable$_1*sources + kangxi) + (<-original + ((=ucs@unicode . #x539F) ; &AJ1-01898; + (=adobe-japan1-0 . 01898) ; &AJ1-01898; + (=daikanwa . 02973) ; &I-M-02973; + )) + (<-original$_1*sources + zhengzitong daikanwa) + (<-original*sources + zhengzitong daikanwa) + (<-same + ((=ucs . #x4EAC) ; 京 + (=daikanwa . 00299) ; &I-M-00299; + )) + (<-same$_1*sources + kangxi daikanwa) + (<-same*sources + kangxi daikanwa) (<-vulgar ((=ucs . #x4EAC) ; 京 (=jis-x0208 . #x357E) ; &I-J90-357E; [21-94] @@ -3148,16 +3356,6 @@ ) ((=ucs . #xE0100) ; 󠄀 )) - (ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") - (=ucs . #x2FF1) ; ⿱ - ) - ((=ucs@iso . #x23140) ; >-17371; - (=cns11643-6 . #x247A) ; >-17371; [04-90] - (=daikanwa . 13739) ; &I-M-13739; - ) - ((=ucs . #x5C0F) ; 小 - )) (==ucs@unicode . #x4EB0) ; &g2-AJ1-04112; (==adobe-japan1-0 . 04112) ; &g2-AJ1-04112; (==jis-x0208 . #x5037) ; &g2-AJ1-04112; [48-23] @@ -4543,11 +4741,51 @@ )) )) (define-char - '((ideographic-radical . 8) ; ⼇ + '((<-denotational + ((=>ucs@iwds-1 . #x21567) ; &A-IWDSU+21567; + )) + (ideographic-radical . 8) ; ⼇ (ideographic-strokes . 9) (total-strokes . 11) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT") + (=ucs . #x2FFA) ; ⿺ + ) + ((=ucs . #x4EA2) ; 亢 + ) + ((=ucs . #x590B) ; 夋 + )) (=ucs . #x20163) ; 𠅣 - (=cns11643-5 . #x3075) ; &I-C5-3075; [16-85] + )) +(define-char + '((<-denotational + ((=ucs . #x20163) ; 𠅣 + )) + (ideographic-radical . 8) ; ⼇ + (ideographic-strokes . 9) + (total-strokes . 11) + (ideographic-structure + ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM LOWER LEFT") + (=ucs . #x2FFA) ; ⿺ + ) + ((=ucs@unicode . #x4EA2) ; &AJ1-04111; + (=adobe-japan1-0 . 04111) ; &AJ1-04111; + ) + ((=ucs@cns . #x590B) ; &C3-2546; + (=cns11643-3 . #x2546) ; &C3-2546; [05-38] + (=daikanwa . 05711) ; &I-M-05711; + )) + (=ucs@iso . #x20163) ; &C5-3075; + (=cns11643-5 . #x3075) ; &C5-3075; [16-85] + (->subsumptive + ((==ucs@iso . #x20163) ; &g2-IU-00020163; + (==cns11643-5 . #x3075) ; &g2-IU-00020163; [16-85] + (->subsumptive + ((===cns11643-5 . #x3075) ; &R-C5-3075; [16-85] + ) + ((===ucs@iso . #x20163) ; &R-U-00020163; + )) + )) )) (define-char '((ideographic-radical . 8) ; ⼇ @@ -4925,49 +5163,54 @@ '((ideographic-radical . 8) ; ⼇ (ideographic-strokes . 10) (total-strokes . 12) + (ideographic-structure + ((=ucs-itaiji-001 . #x2FFB) ; &U-i001+2FFB; + ) + ((=>ucs@iwds-1 . #x4EA2) ; &A-IWDSU+4EA2; + ) + ((=>ucs@iwds-1 . #x73CF) ; &A-IWDSU+73CF; + )) (=ucs . #x2016A) ; 𠅪 + )) +(define-char + '((<-denotational + ((=ucs . #x2016A) ; 𠅪 + )) + (ideographic-radical . 8) ; ⼇ + (ideographic-strokes . 10) + (total-strokes . 12) + (hanyu-dazidian 1 290 9) + (ideographic-structure + ((=ucs-itaiji-001 . #x2FFB) ; &U-i001+2FFB; + ) + ((=ucs@unicode . #x4EA2) ; &AJ1-04111; + (=adobe-japan1-0 . 04111) ; &AJ1-04111; + ) + ((=ucs . #x73A8) ; 玨 + )) + (=ucs@iso . #x2016A) ; &C6-4644; + (=cns11643-6 . #x4644) ; &C6-4644; [38-36] + (=daikanwa . 00324) ; &I-M-00324; + (<-ancient + ((=ucs@unicode . #x8052) ; &AJ1-06215; + (=adobe-japan1-0 . 06215) ; &AJ1-06215; + (=daikanwa . 29062) ; &I-M-29062; + )) + (<-ancient*sources + zihui-bu daikanwa) (->subsumptive - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") - (=ucs . #x2FF1) ; ⿱ - ) - ((=ucs@jis . #x4EA0) ; &AJ1-04110; - (=adobe-japan1-0 . 04110) ; &AJ1-04110; + ((==ucs@iso . #x2016A) ; &g2-M-00324; + (==cns11643-6 . #x4644) ; &g2-M-00324; [38-36] + (==daikanwa . 00324) ; &g2-M-00324; + (->subsumptive + ((===daikanwa . 00324) ; &R-M-00324; ) - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO MIDDLE AND RIGHT") - (=ucs . #x2FF2) ; ⿲ - ) - ((=ucs . #x738B) ; 王 - ) - ((=ucs . #x51E0) ; 几 - ) - ((=ucs . #x738B) ; 王 - )) - )) - (=daikanwa . 00324) ; &M-00324; - ) - ((hanyu-dazidian 1 290 9) - (ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW") - (=ucs . #x2FF1) ; ⿱ + ((===cns11643-6 . #x4644) ; &R-C6-4644; [38-36] ) - ((=ucs . #x4EA0) ; 亠 + ((===ucs@iso . #x2016A) ; &R-U-0002016A; ) - ((ideographic-structure - ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO MIDDLE AND RIGHT") - (=ucs . #x2FF2) ; ⿲ - ) - ((=ucs . #x738B) ; 王 - ) - ((=ucs . #x51E0) ; 几 - ) - ((=ucs . #x738B) ; 王 - )) + ((=hanziku-1 . #xE1D9) ; &HZK01-E1D9; )) - (=ucs@iso . #x2016A) ; &C6-4644; - (=cns11643-6 . #x4644) ; &C6-4644; [38-36] - (=hanziku-1 . #xE1D9) ; &I-HZK01-E1D9; )) )) (define-char