projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.33.2: Fix bug 489698 (reading #p"\\\\" on windows).
[sbcl.git]
/
src
/
code
/
external-formats
/
enc-jpn-tbl.lisp
diff --git
a/src/code/external-formats/enc-jpn-tbl.lisp
b/src/code/external-formats/enc-jpn-tbl.lisp
index
04e3ee4
..
cc0d0a7
100644
(file)
--- a/
src/code/external-formats/enc-jpn-tbl.lisp
+++ b/
src/code/external-formats/enc-jpn-tbl.lisp
@@
-1,6
+1,6
@@
(in-package "SB!IMPL")
(define-multibyte-mapper *ucs-to-eucjp-table*
(in-package "SB!IMPL")
(define-multibyte-mapper *ucs-to-eucjp-table*
- '((#xa1 #x8fa2c2)
+ ((#xa1 #x8fa2c2)
(#xa2 #xa1f1)
(#xa3 #xa1f2)
(#xa4 #x8fa2f0)
(#xa2 #xa1f1)
(#xa3 #xa1f2)
(#xa4 #x8fa2f0)
@@
-13012,7
+13012,7
@@
(#xffe3 #xa1b1)
(#xffe5 #xa1ef)))
(define-multibyte-mapper *eucjp-to-ucs-table*
(#xffe3 #xa1b1)
(#xffe5 #xa1ef)))
(define-multibyte-mapper *eucjp-to-ucs-table*
- '((#x8ea1 #xff61)
+ ((#x8ea1 #xff61)
(#x8ea2 #xff62)
(#x8ea3 #xff63)
(#x8ea4 #xff64)
(#x8ea2 #xff62)
(#x8ea3 #xff63)
(#x8ea4 #xff64)
@@
-26022,7
+26022,7
@@
(#x8fede2 #x9fa3)
(#x8fede3 #x9fa5)))
(define-multibyte-mapper *ucs-to-sjis-table*
(#x8fede2 #x9fa3)
(#x8fede3 #x9fa5)))
(define-multibyte-mapper *ucs-to-sjis-table*
- '((#xa2 #x8191)
+ ((#xa2 #x8191)
(#xa3 #x8192)
(#xa5 #x5c)
(#xa7 #x8198)
(#xa3 #x8192)
(#xa5 #x5c)
(#xa7 #x8198)
@@
-35304,7
+35304,7
@@
(#xffe4 #xfa55)
(#xffe5 #x818f)))
(define-multibyte-mapper *sjis-to-ucs-table*
(#xffe4 #xfa55)
(#xffe5 #x818f)))
(define-multibyte-mapper *sjis-to-ucs-table*
- '((#xa1 #xff61)
+ ((#xa1 #xff61)
(#xa2 #xff62)
(#xa3 #xff63)
(#xa4 #xff64)
(#xa2 #xff62)
(#xa3 #xff63)
(#xa4 #xff64)