run-program: proper handling of :if-input-does-not-exist NIL.

[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*
-    '((#xa1 #x8fa2c2)
+     ((#xa1 #x8fa2c2)
       (#xa2 #xa1f1)
       (#xa3 #xa1f2)
       (#xa4 #x8fa2f0)
@@ -13012,7 +13012,7 @@
       (#xffe3 #xa1b1)
       (#xffe5 #xa1ef)))
 (define-multibyte-mapper *eucjp-to-ucs-table*
-    '((#x8ea1 #xff61)
+     ((#x8ea1 #xff61)
       (#x8ea2 #xff62)
       (#x8ea3 #xff63)
       (#x8ea4 #xff64)
@@ -26022,7 +26022,7 @@
       (#x8fede2 #x9fa3)
       (#x8fede3 #x9fa5)))
 (define-multibyte-mapper *ucs-to-sjis-table*
-    '((#xa2 #x8191)
+     ((#xa2 #x8191)
       (#xa3 #x8192)
       (#xa5 #x5c)
       (#xa7 #x8198)
@@ -35304,7 +35304,7 @@
       (#xffe4 #xfa55)
       (#xffe5 #x818f)))
 (define-multibyte-mapper *sjis-to-ucs-table*
-    '((#xa1 #xff61)
+     ((#xa1 #xff61)
       (#xa2 #xff62)
       (#xa3 #xff63)
       (#xa4 #xff64)