From c2ac3761736fd33f6851c70295e47811810c1492 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Sun, 21 Jun 2009 15:12:25 +0000
Subject: [PATCH] Update all tables to use the data from the Unicode site.

---
 .../external-formats/cp1250.lisp              | 36 +++++++++++-------
 .../external-formats/cp1251.lisp              | 35 +++++++++++-------
 .../external-formats/cp1252.lisp              | 34 ++++++++++-------
 .../external-formats/cp1254.lisp              | 34 ++++++++++-------
 .../external-formats/cp1255.lisp              | 37 ++++++++++++-------
 .../external-formats/cp1256.lisp              | 37 ++++++++++++-------
 .../external-formats/cp1257.lisp              | 34 ++++++++++-------
 .../external-formats/cp1258.lisp              | 34 ++++++++++-------
 8 files changed, 173 insertions(+), 108 deletions(-)

diff --git a/pcl/simple-streams/external-formats/cp1250.lisp b/pcl/simple-streams/external-formats/cp1250.lisp
index d7ab822dd..ed4994225 100644
--- a/pcl/simple-streams/external-formats/cp1250.lisp
+++ b/pcl/simple-streams/external-formats/cp1250.lisp
@@ -4,23 +4,33 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1250.lisp,v 1.2 2009/06/11 16:04:02 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1250.lisp,v 1.3 2009/06/21 15:12:23 rtoy Rel $")
 
 (in-package "STREAM")
 
+;; See
+;; http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1250.TXT
+;; Our table just has entries for 128 and above.  Undefined entries
+;; are given the value U+FFFE
+
+
 (defconstant +ms-cp1250+
-  (make-array 128 :element-type '(unsigned-byte 16)
-     :initial-contents #(8364 65534 8218 65534 8222 8230 8224 8225 65534 8240
-                         352 8249 346 356 381 377 65534 8216 8217 8220 8221
-                         8226 8211 8212 65534 8482 353 8250 347 357 382 378 160
-                         711 728 321 164 260 166 167 168 169 350 171 172 173
-                         174 379 176 177 731 322 180 181 182 183 184 261 351
-                         187 317 733 318 380 340 193 194 258 196 313 262 199
-                         268 201 280 203 282 205 206 270 272 323 327 211 212
-                         336 214 215 344 366 218 368 220 221 354 223 341 225
-                         226 259 228 314 263 231 269 233 281 235 283 237 238
-                         271 273 324 328 243 244 337 246 247 345 367 250 369
-                         252 253 355 729)))
+  (make-array 128
+              :element-type '(unsigned-byte 16)
+              :initial-contents #(8364 65534 8218 65534 8222 8230 8224
+                                  8225 65534 8240 352 8249 346 356 381 377
+                                  65534 8216 8217 8220 8221 8226 8211 8212
+                                  65534 8482 353 8250 347 357 382 378 160
+                                  711 728 321 164 260 166 167 168 169 350
+                                  171 172 173 174 379 176 177 731 322 180
+                                  181 182 183 184 261 351 187 317 733 318
+                                  380 340 193 194 258 196 313 262 199 268
+                                  201 280 203 282 205 206 270 272 323 327
+                                  211 212 336 214 215 344 366 218 368 220
+                                  221 354 223 341 225 226 259 228 314 263
+                                  231 269 233 281 235 283 237 238 271 273
+                                  324 328 243 244 337 246 247 345 367 250
+                                  369 252 253 355 729)))
 
 (define-external-format :cp1250 (:mac-roman)
   ((table +ms-cp1250+)))
diff --git a/pcl/simple-streams/external-formats/cp1251.lisp b/pcl/simple-streams/external-formats/cp1251.lisp
index 7182c181f..df95f2371 100644
--- a/pcl/simple-streams/external-formats/cp1251.lisp
+++ b/pcl/simple-streams/external-formats/cp1251.lisp
@@ -4,24 +4,31 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1251.lisp,v 1.2 2009/06/11 16:04:02 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1251.lisp,v 1.3 2009/06/21 15:12:24 rtoy Rel $")
 
 (in-package "STREAM")
 
+;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1251.TXT
+
 (defconstant +ms-cp1251+
-  (make-array 128 :element-type '(unsigned-byte 16)
-     :initial-contents #(1026 1027 8218 1107 8222 8230 8224 8225 8364 8240 1033
-                         8249 1034 1036 1035 1039 1106 8216 8217 8220 8221 8226
-                         8211 8212 65534 8482 1113 8250 1114 1116 1115 1119 160
-                         1038 1118 1032 164 1168 166 167 1025 169 1028 171 172
-                         173 174 1031 176 177 1030 1110 1169 181 182 183 1105
-                         8470 1108 187 1112 1029 1109 1111 1040 1041 1042 1043
-                         1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054
-                         1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065
-                         1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076
-                         1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087
-                         1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098
-                         1099 1100 1101 1102 1103)))
+  (make-array 128
+              :element-type '(unsigned-byte 16)
+              :initial-contents #(1026 1027 8218 1107 8222 8230 8224 8225
+                                  8364 8240 1033 8249 1034 1036 1035 1039
+                                  1106 8216 8217 8220 8221 8226 8211 8212
+                                  65534 8482 1113 8250 1114 1116 1115 1119
+                                  160 1038 1118 1032 164 1168 166 167 1025
+                                  169 1028 171 172 173 174 1031 176 177
+                                  1030 1110 1169 181 182 183 1105 8470
+                                  1108 187 1112 1029 1109 1111 1040 1041
+                                  1042 1043 1044 1045 1046 1047 1048 1049
+                                  1050 1051 1052 1053 1054 1055 1056 1057
+                                  1058 1059 1060 1061 1062 1063 1064 1065
+                                  1066 1067 1068 1069 1070 1071 1072 1073
+                                  1074 1075 1076 1077 1078 1079 1080 1081
+                                  1082 1083 1084 1085 1086 1087 1088 1089
+                                  1090 1091 1092 1093 1094 1095 1096 1097
+                                  1098 1099 1100 1101 1102 1103)))
 
 (define-external-format :cp1251 (:mac-roman)
   ((table +ms-cp1251+)))
diff --git a/pcl/simple-streams/external-formats/cp1252.lisp b/pcl/simple-streams/external-formats/cp1252.lisp
index a604de0cd..74909167e 100644
--- a/pcl/simple-streams/external-formats/cp1252.lisp
+++ b/pcl/simple-streams/external-formats/cp1252.lisp
@@ -1,26 +1,32 @@
-;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: STREAM -*-
+XB*CVS*;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: STREAM -*-
 ;;;
 ;;; **********************************************************************
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1252.lisp,v 1.2 2009/06/11 16:04:02 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1252.lisp,v 1.3 2009/06/21 15:12:24 rtoy Exp $")
 
 (in-package "STREAM")
 
+;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1252.TXT
+
 (defconstant +ms-cp1252+
-  (make-array 128 :element-type '(unsigned-byte 16)
-     :initial-contents #(8364 65534 8218 402 8222 8230 8224 8225 710 8240 352
-                         8249 338 65534 381 65534 65534 8216 8217 8220 8221
-                         8226 8211 8212 732 8482 353 8250 339 65534 382 376 160
-                         161 162 163 164 165 166 167 168 169 170 171 172 173
-                         174 175 176 177 178 179 180 181 182 183 184 185 186
-                         187 188 189 190 191 192 193 194 195 196 197 198 199
-                         200 201 202 203 204 205 206 207 208 209 210 211 212
-                         213 214 215 216 217 218 219 220 221 222 223 224 225
-                         226 227 228 229 230 231 232 233 234 235 236 237 238
-                         239 240 241 242 243 244 245 246 247 248 249 250 251
-                         252 253 254 255)))
+  (make-array 128
+              :element-type '(unsigned-byte 16)
+              :initial-contents #(8364 65534 8218 402 8222 8230 8224 8225
+                                  710 8240 352 8249 338 65534 381 65534
+                                  65534 8216 8217 8220 8221 8226 8211 8212
+                                  732 8482 353 8250 339 65534 382 376 160
+                                  161 162 163 164 165 166 167 168 169 170
+                                  171 172 173 174 175 176 177 178 179 180
+                                  181 182 183 184 185 186 187 188 189 190
+                                  191 192 193 194 195 196 197 198 199 200
+                                  201 202 203 204 205 206 207 208 209 210
+                                  211 212 213 214 215 216 217 218 219 220
+                                  221 222 223 224 225 226 227 228 229 230
+                                  231 232 233 234 235 236 237 238 239 240
+                                  241 242 243 244 245 246 247 248 249 250
+                                  251 252 253 254 255)))
 
 (define-external-format :cp1252 (:mac-roman)
   ((table +ms-cp1252+)))
diff --git a/pcl/simple-streams/external-formats/cp1254.lisp b/pcl/simple-streams/external-formats/cp1254.lisp
index 18ae5a97a..680856304 100644
--- a/pcl/simple-streams/external-formats/cp1254.lisp
+++ b/pcl/simple-streams/external-formats/cp1254.lisp
@@ -4,23 +4,31 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1254.lisp,v 1.2 2009/06/11 16:04:02 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1254.lisp,v 1.3 2009/06/21 15:12:24 rtoy Rel $")
 
 (in-package "STREAM")
 
+;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1254.TXT
+;;
+;; For undefined characters we use U+FFFE
+
 (defconstant +ms-cp1254+
-  (make-array 128 :element-type '(unsigned-byte 16)
-     :initial-contents #(8364 65534 8218 402 8222 8230 8224 8225 710 8240 352
-                         8249 338 65534 65534 65534 65534 8216 8217 8220 8221
-                         8226 8211 8212 732 8482 353 8250 339 65534 65534 376
-                         160 161 162 163 164 165 166 167 168 169 170 171 172
-                         173 174 175 176 177 178 179 180 181 182 183 184 185
-                         186 187 188 189 190 191 192 193 194 195 196 197 198
-                         199 200 201 202 203 204 205 206 207 286 209 210 211
-                         212 213 214 215 216 217 218 219 220 304 350 223 224
-                         225 226 227 228 229 230 231 232 233 234 235 236 237
-                         238 239 287 241 242 243 244 245 246 247 248 249 250
-                         251 252 305 351 255)))
+  (make-array 128
+              :element-type '(unsigned-byte 16)
+              :initial-contents #(8364 65534 8218 402 8222 8230 8224 8225
+                                  710 8240 352 8249 338 65534 65534 65534
+                                  65534 8216 8217 8220 8221 8226 8211 8212
+                                  732 8482 353 8250 339 65534 65534 376
+                                  160 161 162 163 164 165 166 167 168 169
+                                  170 171 172 173 174 175 176 177 178 179
+                                  180 181 182 183 184 185 186 187 188 189
+                                  190 191 192 193 194 195 196 197 198 199
+                                  200 201 202 203 204 205 206 207 286 209
+                                  210 211 212 213 214 215 216 217 218 219
+                                  220 304 350 223 224 225 226 227 228 229
+                                  230 231 232 233 234 235 236 237 238 239
+                                  287 241 242 243 244 245 246 247 248 249
+                                  250 251 252 305 351 255)))
 
 (define-external-format :cp1254 (:mac-roman)
   ((table +ms-cp1254+)))
diff --git a/pcl/simple-streams/external-formats/cp1255.lisp b/pcl/simple-streams/external-formats/cp1255.lisp
index 5926b6ec7..bf5a03c34 100644
--- a/pcl/simple-streams/external-formats/cp1255.lisp
+++ b/pcl/simple-streams/external-formats/cp1255.lisp
@@ -4,24 +4,33 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1255.lisp,v 1.2 2009/06/11 16:04:02 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1255.lisp,v 1.3 2009/06/21 15:12:24 rtoy Rel $")
 
 (in-package "STREAM")
 
+;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1255.TXT
+;;
+;; For undefined characters we use U+FFFE
+
 (defconstant +ms-cp1255+
-  (make-array 128 :element-type '(unsigned-byte 16)
-     :initial-contents #(8364 65534 8218 402 8222 8230 8224 8225 710 8240 65534
-                         8249 65534 65534 65534 65534 65534 8216 8217 8220 8221
-                         8226 8211 8212 732 8482 65534 8250 65534 65534 65534
-                         65534 160 161 162 163 8362 165 166 167 168 169 215 171
-                         172 173 174 175 176 177 178 179 180 181 182 183 184
-                         185 247 187 188 189 190 191 1456 1457 1458 1459 1460
-                         1461 1462 1463 1464 1465 65534 1467 1468 1469 1470
-                         1471 1472 1473 1474 1475 1520 1521 1522 1523 1524
-                         65534 65534 65534 65534 65534 65534 65534 1488 1489
-                         1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500
-                         1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511
-                         1512 1513 1514 65534 65534 8206 8207 65534)))
+  (make-array 128
+              :element-type '(unsigned-byte 16)
+              :initial-contents #(8364 65534 8218 402 8222 8230 8224 8225
+                                  710 8240 65534 8249 65534 65534 65534
+                                  65534 65534 8216 8217 8220 8221 8226
+                                  8211 8212 732 8482 65534 8250 65534
+                                  65534 65534 65534 160 161 162 163 8362
+                                  165 166 167 168 169 215 171 172 173 174
+                                  175 176 177 178 179 180 181 182 183 184
+                                  185 247 187 188 189 190 191 1456 1457
+                                  1458 1459 1460 1461 1462 1463 1464 1465
+                                  65534 1467 1468 1469 1470 1471 1472 1473
+                                  1474 1475 1520 1521 1522 1523 1524 65534
+                                  65534 65534 65534 65534 65534 65534 1488
+                                  1489 1490 1491 1492 1493 1494 1495 1496
+                                  1497 1498 1499 1500 1501 1502 1503 1504
+                                  1505 1506 1507 1508 1509 1510 1511 1512
+                                  1513 1514 65534 65534 8206 8207 65534)))
 
 (define-external-format :cp1255 (:mac-roman)
   ((table +ms-cp1255+)))
diff --git a/pcl/simple-streams/external-formats/cp1256.lisp b/pcl/simple-streams/external-formats/cp1256.lisp
index f3fbc8d4a..72b78d633 100644
--- a/pcl/simple-streams/external-formats/cp1256.lisp
+++ b/pcl/simple-streams/external-formats/cp1256.lisp
@@ -4,24 +4,33 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1256.lisp,v 1.2 2009/06/11 16:04:02 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1256.lisp,v 1.3 2009/06/21 15:12:25 rtoy Rel $")
 
 (in-package "STREAM")
 
+;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1256.TXT
+;;
+;; For undefined characters we use U+FFFE
+
 (defconstant +ms-cp1256+
-  (make-array 128 :element-type '(unsigned-byte 16)
-     :initial-contents #(8364 1662 8218 402 8222 8230 8224 8225 710 8240 1657
-                         8249 338 1670 1688 1672 1711 8216 8217 8220 8221 8226
-                         8211 8212 1705 8482 1681 8250 339 8204 8205 1722 160
-                         1548 162 163 164 165 166 167 168 169 1726 171 172 173
-                         174 175 176 177 178 179 180 181 182 183 184 185 1563
-                         187 188 189 190 1567 1729 1569 1570 1571 1572 1573
-                         1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584
-                         1585 1586 1587 1588 1589 1590 215 1591 1592 1593 1594
-                         1600 1601 1602 1603 224 1604 226 1605 1606 1607 1608
-                         231 232 233 234 235 1609 1610 238 239 1611 1612 1613
-                         1614 244 1615 1616 247 1617 249 1618 251 252 8206 8207
-                         1746)))
+  (make-array 128
+              :element-type '(unsigned-byte 16)
+              :initial-contents #(8364 1662 8218 402 8222 8230 8224 8225
+                                  710 8240 1657 8249 338 1670 1688 1672
+                                  1711 8216 8217 8220 8221 8226 8211 8212
+                                  1705 8482 1681 8250 339 8204 8205 1722
+                                  160 1548 162 163 164 165 166 167 168 169
+                                  1726 171 172 173 174 175 176 177 178 179
+                                  180 181 182 183 184 185 1563 187 188 189
+                                  190 1567 1729 1569 1570 1571 1572 1573
+                                  1574 1575 1576 1577 1578 1579 1580 1581
+                                  1582 1583 1584 1585 1586 1587 1588 1589
+                                  1590 215 1591 1592 1593 1594 1600 1601
+                                  1602 1603 224 1604 226 1605 1606 1607
+                                  1608 231 232 233 234 235 1609 1610 238
+                                  239 1611 1612 1613 1614 244 1615 1616
+                                  247 1617 249 1618 251 252 8206 8207
+                                  1746)))
 
 (define-external-format :cp1256 (:mac-roman)
   ((table +ms-cp1256+)))
diff --git a/pcl/simple-streams/external-formats/cp1257.lisp b/pcl/simple-streams/external-formats/cp1257.lisp
index 884d3ce0c..c09983ebe 100644
--- a/pcl/simple-streams/external-formats/cp1257.lisp
+++ b/pcl/simple-streams/external-formats/cp1257.lisp
@@ -4,23 +4,31 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1257.lisp,v 1.2 2009/06/11 16:04:02 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1257.lisp,v 1.3 2009/06/21 15:12:25 rtoy Rel $")
 
 (in-package "STREAM")
 
+;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1257.TXT
+;;
+;; For undefined characters we use U+FFFE
+
 (defconstant +ms-cp1257+
-  (make-array 128 :element-type '(unsigned-byte 16)
-     :initial-contents #(8364 65534 8218 65534 8222 8230 8224 8225 65534 8240
-                         65534 8249 65534 168 711 184 65534 8216 8217 8220 8221
-                         8226 8211 8212 65534 8482 65534 8250 65534 175 731
-                         65534 160 65534 162 163 164 65534 166 167 216 169 342
-                         171 172 173 174 198 176 177 178 179 180 181 182 183
-                         248 185 343 187 188 189 190 230 260 302 256 262 196
-                         197 280 274 268 201 377 278 290 310 298 315 352 323
-                         325 211 332 213 214 215 370 321 346 362 220 379 381
-                         223 261 303 257 263 228 229 281 275 269 233 378 279
-                         291 311 299 316 353 324 326 243 333 245 246 247 371
-                         322 347 363 252 380 382 729)))
+  (make-array 128
+              :element-type '(unsigned-byte 16)
+              :initial-contents #(8364 65534 8218 65534 8222 8230 8224
+                                  8225 65534 8240 65534 8249 65534 168 711
+                                  184 65534 8216 8217 8220 8221 8226 8211
+                                  8212 65534 8482 65534 8250 65534 175 731
+                                  65534 160 65534 162 163 164 65534 166
+                                  167 216 169 342 171 172 173 174 198 176
+                                  177 178 179 180 181 182 183 248 185 343
+                                  187 188 189 190 230 260 302 256 262 196
+                                  197 280 274 268 201 377 278 290 310 298
+                                  315 352 323 325 211 332 213 214 215 370
+                                  321 346 362 220 379 381 223 261 303 257
+                                  263 228 229 281 275 269 233 378 279 291
+                                  311 299 316 353 324 326 243 333 245 246
+                                  247 371 322 347 363 252 380 382 729)))
 
 (define-external-format :cp1257 (:mac-roman)
   ((table +ms-cp1257+)))
diff --git a/pcl/simple-streams/external-formats/cp1258.lisp b/pcl/simple-streams/external-formats/cp1258.lisp
index 3aec38ed5..fc6404858 100644
--- a/pcl/simple-streams/external-formats/cp1258.lisp
+++ b/pcl/simple-streams/external-formats/cp1258.lisp
@@ -4,23 +4,31 @@
 ;;; This code was written by Paul Foley and has been placed in the public
 ;;; domain.
 ;;;
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1258.lisp,v 1.2 2009/06/11 16:04:02 rtoy Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/cp1258.lisp,v 1.3 2009/06/21 15:12:25 rtoy Rel $")
 
 (in-package "STREAM")
 
+;; See http://unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP1258.TXT
+;;
+;; For undefined characters we use U+FFFE
+
 (defconstant +ms-cp1258+
-  (make-array 128 :element-type '(unsigned-byte 16)
-     :initial-contents #(8364 65534 8218 402 8222 8230 8224 8225 710 8240 65534
-                         8249 338 65534 65534 65534 65534 8216 8217 8220 8221
-                         8226 8211 8212 732 8482 65534 8250 339 65534 65534 376
-                         160 161 162 163 164 165 166 167 168 169 170 171 172
-                         173 174 175 176 177 178 179 180 181 182 183 184 185
-                         186 187 188 189 190 191 192 193 194 258 196 197 198
-                         199 200 201 202 203 768 205 206 207 272 209 777 211
-                         212 416 214 215 216 217 218 219 220 431 771 223 224
-                         225 226 259 228 229 230 231 232 233 234 235 769 237
-                         238 239 273 241 803 243 244 417 246 247 248 249 250
-                         251 252 432 8363 255)))
+  (make-array 128
+              :element-type '(unsigned-byte 16)
+              :initial-contents #(8364 65534 8218 402 8222 8230 8224 8225
+                                  710 8240 65534 8249 338 65534 65534
+                                  65534 65534 8216 8217 8220 8221 8226
+                                  8211 8212 732 8482 65534 8250 339 65534
+                                  65534 376 160 161 162 163 164 165 166
+                                  167 168 169 170 171 172 173 174 175 176
+                                  177 178 179 180 181 182 183 184 185 186
+                                  187 188 189 190 191 192 193 194 258 196
+                                  197 198 199 200 201 202 203 768 205 206
+                                  207 272 209 777 211 212 416 214 215 216
+                                  217 218 219 220 431 771 223 224 225 226
+                                  259 228 229 230 231 232 233 234 235 769
+                                  237 238 239 273 241 803 243 244 417 246
+                                  247 248 249 250 251 252 432 8363 255)))
 
 (define-external-format :cp1258 (:mac-roman)
   ((table +ms-cp1258+)))
-- 
GitLab