X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fexternal-formats%2Fenc-cn-tbl.lisp;h=603c3b24a3ef0f7a67d16115d66c408b19eecced;hb=2c5a710f4da100f8aa9c7262fa76395f73ee4307;hp=53f9cef9ca020c59db556a24d24f6ded3c7c736d;hpb=b8a674ddb8346a360be6c2ea7df2bfd0434cb65c;p=sbcl.git diff --git a/src/code/external-formats/enc-cn-tbl.lisp b/src/code/external-formats/enc-cn-tbl.lisp index 53f9cef..603c3b2 100644 --- a/src/code/external-formats/enc-cn-tbl.lisp +++ b/src/code/external-formats/enc-cn-tbl.lisp @@ -12,7 +12,7 @@ (in-package "SB!IMPL") (define-multibyte-mapper *gbk-to-ucs-table* - '( ;; begin, insert GBK2UCS.TXT here (emacs: C-x i GBK2UCS.TXT) + ( ;; begin, insert GBK2UCS.TXT here (emacs: C-x i GBK2UCS.TXT) (#x8140 #x4E02) (#x8141 #x4E04) (#x8142 #x4E05) @@ -21807,7 +21807,7 @@ )) ;; end of *gbk-to-ucs-table* (define-multibyte-mapper *ucs-to-gbk-table* - '( ;; begin, insert UCS2GBK.TXT here (emacs: C-x i UCS2GBK.TXT) + ( ;; begin, insert UCS2GBK.TXT here (emacs: C-x i UCS2GBK.TXT) (#x00A4 #xA1E8) (#x00A7 #xA1EC) (#x00A8 #xA1A7)