X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2FIdeograph-R086-Fire.el;h=90766ed08987c1a679ec00c708052de83f9d81a9;hb=33219abbc72ed3a65019d4edb6d4f09f8b812626;hp=6053de57c2a40caf4b0e80656813e77a9eb75f87;hpb=20b7359e855d77b931d6d5b6fa055388c9163520;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/utf-2000/Ideograph-R086-Fire.el b/lisp/utf-2000/Ideograph-R086-Fire.el
index 6053de5..90766ed 100644
--- a/lisp/utf-2000/Ideograph-R086-Fire.el
+++ b/lisp/utf-2000/Ideograph-R086-Fire.el
@@ -605,7 +605,7 @@
     (=gt-k		. 01443)	; &GT-K01443;
     (=gt-pj-k1		. #x322A)	; &GT-K01443; [18-10]
     (<-simplified@misc
-     ((=big5-cdp	  . #x8BE3)	; &CDP-8BE3;
+     ((=ucs		  . #x241FE)	; 𤇾
       ))
     ))
 (define-char
@@ -641,11 +641,24 @@
     (=cns11643-3	. #x2662)	; &I-C3-2662; [06-66]
     (=jis-x0213-1	. #x7744)	; &I-JX1-7744; [87-36]
     (=daikanwa		. 18868)	; &I-M-18868;
+    (=shinjigen		.  9007)	; &JX1-7744;
+    (<-vulgar
+     ((=ucs@unicode	  . #x9748)	; &GT-57085;
+      (=jis-x0208	  . #x704D)	; &GT-57085; [80-45]
+      (=ks-x1001	  . #x5644)	; &I-K0-5644; [54-36]
+      (=cns11643-1	  . #x7C71)	; &I-C1-7C71; [92-81]
+      (=jis-x0213-1	  . #x704D)	; &I-JX1-704D; [80-45]
+      (=daikanwa	  . 42532)	; &I-M-42532;
+      (=shinjigen	  .  9006)	; &GT-57085;
+      ))
+    (<-vulgar*sources
+     shinjigen)
     (->subsumptive
      ((==ucs@jis	  . #x7075)	; &g2-JSP-4946;
       (==jis-x0212	  . #x4946)	; &g2-JSP-4946; [41-38]
       (==jis-x0213-1	  . #x7744)	; &g2-JSP-4946; [87-36]
       (==daikanwa	  . 18868)	; &g2-JSP-4946;
+      (==shinjigen	  .  9007)	; &g2-JSP-4946;
       (->subsumptive
        ((===daikanwa	    . 18868)	; &R-M-18868;
 	)
@@ -3338,6 +3351,7 @@
       (=cns11643-1	  . #x7635)	; &I-C1-7635; [86-21]
       (=jis-x0213-1	  . #x735A)	; &I-JX1-735A; [83-58]
       (=gb12345		  . #x3563)	; &GT-65623; [21-67]
+      (=daikanwa	  . 48083)	; &I-M-48083;
       ))
     (<-simplified@JP/Jouyou
      ((=ucs@unicode	  . #x9EDE)	; &GT-65623;
@@ -3345,6 +3359,7 @@
       (=ks-x1001	  . #x6F47)	; &I-K0-6F47; [79-39]
       (=cns11643-1	  . #x7635)	; &I-C1-7635; [86-21]
       (=jis-x0213-1	  . #x735A)	; &I-JX1-735A; [83-58]
+      (=daikanwa	  . 48083)	; &I-M-48083;
       ))
     ))
 (define-char
@@ -3402,6 +3417,11 @@
     (=gt-pj-1		. #x3059)	; &I-GT-24243; [16-57]
     (=daikanwa/+p	. 18981)	; 為
     (=shinjigen		.  4702)	; 為
+    (<-formed
+     ((=ucs		  . #x7232)	; 爲
+      ))
+    (<-formed*sources
+     hng)
     (<-simplified@JP/Jouyou
      ((=ucs@jis		  . #x7232)	; &GT-25270;
       (=jis-x0208	  . #x602A)	; &GT-25270; [64-10]
@@ -3433,6 +3453,8 @@
        ((===ucs@unicode	    . #x70BA)	; &R-UU+70BA;
 	))
       )
+     ((===hng-khm	  . 04260)	; &HNG011-04260;
+      )
      ((===hng-khi	  . 04810)	; &HNG010-04810;
       ))
     ))
@@ -4443,6 +4465,34 @@
   '((ideographic-radical . 86)	; ⽕
     (ideographic-strokes . 6)
     (total-strokes	 . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x708F)	; 炏
+      )
+     ((=ucs		  . #x5196)	; 冖
+      ))
+    (=ucs		. #x241FE)	; 𤇾
+    (=jis-x0213-2	. #x6F64)	; &I-JX2-6F64; [79-68]
+    (=big5-cdp		. #x8BE3)	; &I-CDP-8BE3;
+    (->subsumptive
+     ((==ucs@iso	  . #x241FE)	; &g2-JX2-6F64;
+      (==jis-x0213-2	  . #x6F64)	; &g2-JX2-6F64; [79-68]
+      (==big5-cdp	  . #x8BE3)	; &g2-JX2-6F64;
+      (->subsumptive
+       ((===jis-x0213-2	    . #x6F64)	; &R-JX2-6F64; [79-68]
+	)
+       ((===big5-cdp	    . #x8BE3)	; &R-CDP-8BE3;
+	)
+       ((===ucs@iso	    . #x241FE)	; &R-U-000241FE;
+	))
+      ))
+    ))
+(define-char
+  '((ideographic-radical . 86)	; ⽕
+    (ideographic-strokes . 6)
+    (total-strokes	 . 10)
     (=ucs		. #x24213)	; 𤈓
     ))
 (define-char
@@ -4480,12 +4530,6 @@
     ))
 (define-char
   '((ideographic-radical . 86)	; ⽕
-    (ideographic-strokes . 6)
-    (total-strokes	 . 10)
-    (=big5-cdp		. #x8BE3)	; &CDP-8BE3;
-    ))
-(define-char
-  '((ideographic-radical . 86)	; ⽕
     (ideographic-strokes . 7)
     (total-strokes	 . 11)
     (hanyu-dazidian	3 2205 1)
@@ -6955,8 +6999,8 @@
 	)
        ((=gt-k		    . 00405)	; &GT-K00405;
 	)
-       ((==ucs@unicode	    . #x80B2)	; &g2-HD-JA-3069;
-	(==jis-x0208	    . #x3069)	; &g2-HD-JA-3069; [16-73]
+       ((==ucs@unicode	    . #x80B2)	; &g2-AJ1-01197;
+	(==adobe-japan1-0   . 01197)	; &g2-AJ1-01197;
 	))
       (==ucs@unicode	  . #x7134)	; &g2-M-19146;
       (==daikanwa	  . 19146)	; &g2-M-19146;
@@ -7051,6 +7095,8 @@
        ((===ucs@unicode	    . #x7136)	; &R-UU+7136;
 	))
       )
+     ((===hng-khm	  . 04230)	; &HNG011-04230;
+      )
      ((==ucs@cns	  . #x7136)	; &g2-CU+7136;
       (==cns11643-1	  . #x6053)	; &g2-CU+7136; [64-51]
       )
@@ -7109,7 +7155,7 @@
 	)
        ((==ucs@cns	    . #x660D)	; &g2-JSP-4179;
 	(==ucs@jis	    . #x660D)	; &g2-JSP-4179;
-	(==daikanwa	    . 13804)	; &g2-JSP-4179;
+	(==jis-x0212	    . #x4179)	; &g2-JSP-4179; [33-89]
 	)
        ((==ucs@unicode	    . #x706B)	; &g2-GT-24152;
 	(==jis-x0208	    . #x3250)	; &g2-GT-24152; [18-48]
@@ -7137,7 +7183,7 @@
 	)
        ((==ucs@cns	    . #x660D)	; &g2-JSP-4179;
 	(==ucs@jis	    . #x660D)	; &g2-JSP-4179;
-	(==daikanwa	    . 13804)	; &g2-JSP-4179;
+	(==jis-x0212	    . #x4179)	; &g2-JSP-4179; [33-89]
 	)
        ((==ucs@cns	    . #x706B)	; &g2-CU+706B;
 	(==cns11643-1	    . #x4556)	; &g2-CU+706B; [37-54]
@@ -7671,9 +7717,9 @@
 	)
        ((=gt-k		    . 00405)	; &GT-K00405;
 	)
-       ((==ucs@jis	    . #x6BB5)	; &g2-GT-21312;
-	(==ucs@ks	    . #x6BB5)	; &g2-GT-21312;
-	(==jis-x0208	    . #x434A)	; &g2-GT-21312; [35-42]
+       ((==ucs@jis	    . #x6BB5)	; &g2-AJ1-02952;
+	(==ucs@ks	    . #x6BB5)	; &g2-AJ1-02952;
+	(==adobe-japan1-0   . 02952)	; &g2-AJ1-02952;
 	))
       (==ucs@jis/1990	  . #x7145)	; &g2-JSP-4973;
       (==jis-x0212	  . #x4973)	; &g2-JSP-4973; [41-83]
@@ -8218,8 +8264,8 @@
        ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
 	(=ucs		    . #x2FF1)	; ⿱
 	)
-       ((==ucs@unicode	    . #x8005)	; &g2-J90-3C54;
-	(==jis-x0208	    . #x3C54)	; &g2-J90-3C54; [28-52]
+       ((==ucs@unicode	    . #x8005)	; &g2-GT-37308;
+	(==jis-x0208	    . #x3C54)	; &g2-GT-37308; [28-52]
 	)
        ((==ucs@unicode	    . #x706B)	; &g2-GT-24152;
 	(==jis-x0208	    . #x3250)	; &g2-GT-24152; [18-48]
@@ -9311,7 +9357,17 @@
       )
      ((=ucs		  . #x706C)	; 灬
       ))
-    (===hng-khi		. 04770)	; &HNG010-04770;
+    (=ucs-itaiji-004	. #x7167)	; &U-i004+7167;
+    (<-formed
+     ((=ucs		  . #x7167)	; 照
+      ))
+    (<-formed*sources
+     hng)
+    (->subsumptive
+     ((===hng-khm	  . 04250)	; &HNG011-04250;
+      )
+     ((===hng-khi	  . 04770)	; &HNG010-04770;
+      ))
     ))
 (define-char
   '((ideographic-radical . 86)	; ⽕
@@ -9356,6 +9412,32 @@
     (=gt-k		. 10264)	; &I-GT-K10264;
     (=gt-pj-1		. #x4851)	; &I-GT-24647; [40-49]
     (=daikanwa		. 19229)	; &I-M-19229;
+    (->subsumptive
+     ((==ucs@unicode	  . #x7169)	; &g2-GT-24647;
+      (==ks-x1001	  . #x5B61)	; &g2-GT-24647; [59-65]
+      (==jis-x0208	  . #x4851)	; &g2-GT-24647; [40-49]
+      (==jis-x0213-1	  . #x4851)	; &g2-GT-24647; [40-49]
+      (==gb12345	  . #x3733)	; &g2-GT-24647; [23-19]
+      (==gt		  . 24647)	; &g2-GT-24647;
+      (==gt-k		  . 10264)	; &g2-GT-24647;
+      (==daikanwa	  . 19229)	; &g2-GT-24647;
+      (->subsumptive
+       ((===daikanwa	    . 19229)	; &R-M-19229;
+	)
+       ((===jis-x0208	    . #x4851)	; &R-J0-4851; [40-49]
+	(===jis-x0213-1	    . #x4851)	; &R-J0-4851; [40-49]
+	)
+       ((===gt		    . 24647)	; &R-GT-24647;
+	(===gt-k	    . 10264)	; &R-GT-24647;
+	)
+       ((===ucs@ks	    . #x7169)	; &R-K0-5B61;
+	(===ks-x1001	    . #x5B61)	; &R-K0-5B61; [59-65]
+	)
+       ((===ucs@unicode	    . #x7169)	; &R-UU+7169;
+	))
+      )
+     ((===hng-khm	  . 04220)	; &HNG011-04220;
+      ))
     ))
 (define-char
   '((=>ucs		. #x7169)	; 煩
@@ -11759,11 +11841,9 @@
       )
      ((=ucs		  . #x706B)	; 火
       )
-     ((=ucs@jis/2004	  . #x9022)	; &HD-FT-3152;
-      (=ucs@ks		  . #x9022)	; &HD-FT-3152;
-      (=ks-x1001	  . #x5C71)	; &HD-FT-3152; [60-81]
-      (=jis-x0213-1@2004  . #x3029)	; &I-JX3-3029; [16-09]
-      (=daikanwa	  . 38901)	; &I-M-38901;
+     ((=ucs@jis/2004	  . #x9022)	; &AJ1-08266;
+      (=ucs@ks		  . #x9022)	; &AJ1-08266;
+      (=adobe-japan1-0	  . 08266)	; &AJ1-08266;
       ))
     (=ucs@jis		. #x71A2)	; &JX2-6F7C;
     (=ucs@ks		. #x71A2)	; &JX2-6F7C;
@@ -11840,11 +11920,9 @@
       )
      ((=ucs		  . #x706B)	; 火
       )
-     ((=ucs@unicode	  . #x9022)	; &GT-52042;
-      (=jis-x0208@1978/-4pr . #x3029)	; &GT-52042; [16-09]
-      (=gb2312		  . #x376A)	; &I-G0-376A; [23-74]
-      (=jis-x0208@1983	  . #x3029)	; &I-J83-3029; [16-09]
-      (=jis-x0213-1@2000  . #x3029)	; &I-JX1-3029; [16-09]
+     ((=ucs@unicode	  . #x9022)	; &AJ1-13408;
+      (=adobe-japan1-0	  . 01133)	; &AJ1-13408;
+      (=adobe-japan1-4	  . 13408)	; &I-AJ1-13408;
       ))
     (=ucs@unicode	. #x71A2)	; &UU+71A2;
     (=ucs@JP/hanazono	. nil)
@@ -11855,11 +11933,7 @@
 	)
        ((=gt-k		    . 00405)	; &GT-K00405;
 	)
-       ((=ucs@unicode	    . #x9022)	; &GT-52042;
-	(=jis-x0208@1978/-4pr . #x3029)	; &GT-52042; [16-09]
-	(=gb2312	    . #x376A)	; &I-G0-376A; [23-74]
-	(=jis-x0208@1983    . #x3029)	; &I-J83-3029; [16-09]
-	(=jis-x0213-1@2000  . #x3029)	; &I-JX1-3029; [16-09]
+       ((==ucs@unicode	    . #x9022)	; &g2-UU+9022;
 	))
       (==ucs@unicode	  . #x71A2)	; &g2-UU+71A2;
       (==ucs@JP/hanazono  . nil)
@@ -13910,31 +13984,29 @@
     (=gt		. 25006)	; &I-GT-25006;
     (=gt-pj-1		. #x4E55)	; &I-GT-25006; [46-53]
     (=daikanwa		. 19417)	; &I-M-19417;
-    (<-formed@jiyun
-     ((=ucs@unicode	  . #x7CA6)	; &CDP-8CB9;
-      (=iso-ir165	  . #x2F7B)	; &CDP-8CB9; [15-91]
-      (=daikanwa	  . 26939)	; &I-M-26939;
+    (<-formed
+     ((=ucs		  . #x7CA6)	; 粦
       ))
-    (<-formed@jiyun*sources
+    (<-formed*sources
      jiyun)
-    (<-same@jiyun
-     ((=ucs@unicode	  . #x7CA6)	; &CDP-8CB9;
-      (=iso-ir165	  . #x2F7B)	; &CDP-8CB9; [15-91]
+    (<-same
+     ((=ucs		  . #x7CA6)	; 粦
       (=daikanwa	  . 26939)	; &I-M-26939;
-      ))
-    (<-same@jiyun*sources
-     jiyun daikanwa)
-    (<-same@zhengzitong
+      )
      ((=ucs@unicode	  . #x3DE0)	; &M-19267;
       (=daikanwa	  . 19267)	; &M-19267;
       ))
-    (<-same@zhengzitong*sources
+    (<-same$_1*sources
+     jiyun daikanwa)
+    (<-same$_2*sources
      zhengzitong daikanwa)
-    (<-vulgar@zhengzitong
+    (<-same*sources
+     daikanwa)
+    (<-vulgar
      ((=ucs@unicode	  . #x3DE0)	; &M-19267;
       (=daikanwa	  . 19267)	; &M-19267;
       ))
-    (<-vulgar@zhengzitong*sources
+    (<-vulgar*sources
      zhengzitong)
     (->subsumptive
      ((ideographic-strokes . 12)
@@ -14988,9 +15060,10 @@
     (ideographic-radical . 86)	; ⽕
     (ideographic-strokes . 13)
     (total-strokes	 . 17)
-    (=ucs@jis		. #x71DF)	; &GT-24957;
-    (=ucs@ks		. #x71DF)	; &GT-24957;
-    (=jis-x0208		. #x535B)	; &GT-24957; [51-59]
+    (=ucs@jis		. #x71DF)	; &AJ1-04430;
+    (=ucs@ks		. #x71DF)	; &AJ1-04430;
+    (=adobe-japan1-0	. 04430)	; &AJ1-04430;
+    (=jis-x0208		. #x535B)	; &I-J90-535B; [51-59]
     (=ks-x1001		. #x673D)	; &I-K0-673D; [71-29]
     (=cns11643-1	. #x7432)	; &I-C1-7432; [84-18]
     (=jis-x0213-1	. #x535B)	; &I-JX1-535B; [51-59]
@@ -14998,24 +15071,27 @@
     (=gt		. 24957)	; &I-GT-24957;
     (=gt-pj-1		. #x535B)	; &I-GT-24957; [51-59]
     (=daikanwa		. 19457)	; &I-M-19457;
-    (=shinjigen@1ed	.  1135)	; &GT-24957;
-    (=shinjigen@rev	.  1137)	; &GT-24957;
-    (->subsumptive
-     ((==ucs@jis	  . #x71DF)	; &g2-GT-24957;
-      (==ucs@ks		  . #x71DF)	; &g2-GT-24957;
-      (==ks-x1001	  . #x673D)	; &g2-GT-24957; [71-29]
-      (==jis-x0208	  . #x535B)	; &g2-GT-24957; [51-59]
-      (==jis-x0213-1	  . #x535B)	; &g2-GT-24957; [51-59]
-      (==gt		  . 24957)	; &g2-GT-24957;
-      (==daikanwa	  . 19457)	; &g2-GT-24957;
-      (==shinjigen@1ed	  .  1135)	; &g2-GT-24957;
-      (==shinjigen@rev	  .  1137)	; &g2-GT-24957;
+    (=shinjigen@1ed	.  1135)	; &AJ1-04430;
+    (=shinjigen@rev	.  1137)	; &AJ1-04430;
+    (->subsumptive
+     ((==ucs@jis	  . #x71DF)	; &g2-AJ1-04430;
+      (==ucs@ks		  . #x71DF)	; &g2-AJ1-04430;
+      (==adobe-japan1-0	  . 04430)	; &g2-AJ1-04430;
+      (==ks-x1001	  . #x673D)	; &g2-AJ1-04430; [71-29]
+      (==jis-x0208	  . #x535B)	; &g2-AJ1-04430; [51-59]
+      (==jis-x0213-1	  . #x535B)	; &g2-AJ1-04430; [51-59]
+      (==gt		  . 24957)	; &g2-AJ1-04430;
+      (==daikanwa	  . 19457)	; &g2-AJ1-04430;
+      (==shinjigen@1ed	  .  1135)	; &g2-AJ1-04430;
+      (==shinjigen@rev	  .  1137)	; &g2-AJ1-04430;
       (->subsumptive
        ((===daikanwa	    . 19457)	; &R-M-19457;
 	)
        ((===jis-x0208	    . #x535B)	; &R-J0-535B; [51-59]
 	(===jis-x0213-1	    . #x535B)	; &R-J0-535B; [51-59]
 	)
+       ((===adobe-japan1-0  . 04430)	; &R-AJ1-04430;
+	)
        ((===gt		    . 24957)	; &R-GT-24957;
 	)
        ((===ucs@ks	    . #x71DF)	; &R-K0-673D;
@@ -15040,6 +15116,8 @@
      ((==ucs@unicode	  . #x71DF)	; &g2-UU+71DF;
       (==ucs@JP/hanazono  . nil)
       (==gb12345	  . #x532A)	; &g2-UU+71DF; [51-10]
+      )
+     ((===hng-khm	  . 00870)	; &HNG011-00870;
       ))
     ))
 (define-char
@@ -16127,14 +16205,24 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
       (=ucs		  . #x2FF0)	; â¿°
       )
-     ((=gt-k		  . 00405)	; &GT-K00405;
+     ((=ucs		  . #x706B)	; 火
       )
-     ((=ucs@unicode	  . #x84EC)	; &GT-41746;
-      (=gb2312		  . #x456E)	; &GT-41746; [37-78]
-      (=jis-x0208@1983	  . #x4B29)	; &I-J83-4B29; [43-09]
-      (=jis-x0213-1@2000  . #x4B29)	; &I-JX1-4B29; [43-09]
+     ((=ucs@unicode	  . #x84EC)	; &AJ1-03671;
+      (=adobe-japan1-0	  . 03671)	; &AJ1-03671;
       ))
     (=ucs@iso		. #x2446B)	; &U-0002446B;
+    (->subsumptive
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+	(=ucs		    . #x2FF0)	; â¿°
+	)
+       ((=gt-k		    . 00405)	; &GT-K00405;
+	)
+       ((==ucs@unicode	    . #x84EC)	; &g2-AJ1-03671;
+	(==adobe-japan1-0   . 03671)	; &g2-AJ1-03671;
+	))
+      (==ucs@iso	  . #x2446B)	; &g2-IU-0002446B;
+      ))
     ))
 (define-char
   '((ideographic-radical . 86)	; ⽕
@@ -16384,25 +16472,30 @@
     (total-strokes	 . 18)
     (hanyu-dazidian	3 2243 8)
     (=ucs		. #x2442B)	; 𤐫
+    (=cns11643-7	. #x4053)	; &I-C7-4053; [32-51]
+    (=daikanwa		. 19514)	; &I-M-19514;
+    (=shinjigen		.  5552)	; 𤐫
+    (<-original
+     ((=ucs@unicode	  . #x7968)	; &AJ1-03502;
+      (=adobe-japan1-0	  . 03502)	; &AJ1-03502;
+      (=jis-x0208	  . #x493C)	; &I-J90-493C; [41-28]
+      (=shinjigen	  .  5551)	; &AJ1-03502;
+      ))
+    (<-original*sources
+     shinjigen)
     (->subsumptive
-     ((=daikanwa	  . 19514)	; &M-19514;
-      )
-     ((=shinjigen	  .  5552)	; &HZK06-D052;
-      (=hanziku-6	  . #xD052)	; &HZK06-D052;
-      (<-original
-       ((=ucs@unicode	    . #x7968)	; &GT-31700;
-	(=jis-x0208	    . #x493C)	; &GT-31700; [41-28]
-	(=gb2312	    . #x4631)	; &I-G0-4631; [38-17]
-	(=ks-x1001	    . #x7879)	; &I-K0-7879; [88-89]
-	(=jis-x0213-1	    . #x493C)	; &I-JX1-493C; [41-28]
-	(=shinjigen	    .  5551)	; &GT-31700;
+     ((==daikanwa	  . 19514)	; &g2-M-19514;
+      (==shinjigen	  .  5552)	; &g2-M-19514;
+      (->subsumptive
+       ((===daikanwa	    . 19514)	; &R-M-19514;
+	)
+       ((=hanziku-6	    . #xD052)	; &HZK06-D052;
 	))
-      (<-original*sources
-       shinjigen)
       )
-     ((=cns11643-7	  . #x4053)	; &C7-4053; [32-51]
+     ((==ucs@cns	  . #x2442B)	; &g2-CU+2442B;
+      (==cns11643-7	  . #x4053)	; &g2-CU+2442B; [32-51]
       )
-     ((=ucs@iso		  . #x2442B)	; &U-0002442B;
+     ((==ucs@iso	  . #x2442B)	; &g2-IU-0002442B;
       ))
     ))
 (define-char