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