diff --git a/bench/char-alphabetic-p.scm b/bench/char-alphabetic-p.scm new file mode 100644 index 00000000..a99893d1 --- /dev/null +++ b/bench/char-alphabetic-p.scm @@ -0,0 +1,67 @@ +;; char-alphabetic? 性能测试 + +(import (scheme base) + (scheme char) + (liii timeit) +) + +(define iterations 100000) + +(define (bench-ascii-letter) + (timeit (lambda () (char-alphabetic? #\a)) '() iterations) +) + +(define (bench-ascii-digit) + (timeit (lambda () (char-alphabetic? #\5)) '() iterations) +) + +(define (bench-ascii-space) + (timeit (lambda () (char-alphabetic? #\space)) '() iterations) +) + +(define (bench-unicode-cjk) + (timeit (lambda () (char-alphabetic? #\x4E2D)) '() iterations) +) + +(define (bench-unicode-symbol) + (timeit (lambda () (char-alphabetic? #\x2600)) '() iterations) +) + +(define (bench-beyond-max) + (timeit (lambda () (char-alphabetic? #\x40000)) '() iterations) +) + +(display "=== char-alphabetic? 性能测试 ===\n") +(display "迭代次数: ") +(display iterations) +(display "\n\n") + +(display "ASCII 字母 (#\\a) -> 命中:\n") +(display " ") +(display (bench-ascii-letter)) +(display " 秒\n\n") + +(display "ASCII 数字 (#\\5) -> 未命中:\n") +(display " ") +(display (bench-ascii-digit)) +(display " 秒\n\n") + +(display "ASCII 空格 -> 未命中:\n") +(display " ") +(display (bench-ascii-space)) +(display " 秒\n\n") + +(display "Unicode CJK (#\\x4E2D) -> 命中:\n") +(display " ") +(display (bench-unicode-cjk)) +(display " 秒\n\n") + +(display "Unicode 符号 (#\\x2600) -> 未命中:\n") +(display " ") +(display (bench-unicode-symbol)) +(display " 秒\n\n") + +(display "超出上届 (#\\x40000) -> 快速拒绝:\n") +(display " ") +(display (bench-beyond-max)) +(display " 秒\n") diff --git a/bench/char-downcase.scm b/bench/char-downcase.scm new file mode 100644 index 00000000..455bee9c --- /dev/null +++ b/bench/char-downcase.scm @@ -0,0 +1,67 @@ +;; char-downcase 性能测试 + +(import (scheme base) + (scheme char) + (liii timeit) +) + +(define iterations 100000) + +(define (bench-ascii-upper) + (timeit (lambda () (char-downcase #\A)) '() iterations) +) + +(define (bench-ascii-lower) + (timeit (lambda () (char-downcase #\a)) '() iterations) +) + +(define (bench-ascii-digit) + (timeit (lambda () (char-downcase #\5)) '() iterations) +) + +(define (bench-ascii-space) + (timeit (lambda () (char-downcase #\space)) '() iterations) +) + +(define (bench-unicode-upper) + (timeit (lambda () (char-downcase #\x391)) '() iterations) +) + +(define (bench-unicode-lower) + (timeit (lambda () (char-downcase #\x3B1)) '() iterations) +) + +(display "=== char-downcase 性能测试 ===\n") +(display "迭代次数: ") +(display iterations) +(display "\n\n") + +(display "ASCII 大写 (#\\A) -> 命中前部分支:\n") +(display " ") +(display (bench-ascii-upper)) +(display " 秒\n\n") + +(display "ASCII 小写 (#\\a) -> 未命中:\n") +(display " ") +(display (bench-ascii-lower)) +(display " 秒\n\n") + +(display "ASCII 数字 (#\\5) -> 未命中:\n") +(display " ") +(display (bench-ascii-digit)) +(display " 秒\n\n") + +(display "ASCII 空格 -> 未命中:\n") +(display " ") +(display (bench-ascii-space)) +(display " 秒\n\n") + +(display "Unicode 大写 (#\\x391) -> 命中中后部分支:\n") +(display " ") +(display (bench-unicode-upper)) +(display " 秒\n\n") + +(display "Unicode 小写 (#\\x3B1) -> 未命中:\n") +(display " ") +(display (bench-unicode-lower)) +(display " 秒\n") diff --git a/bench/char-foldcase.scm b/bench/char-foldcase.scm new file mode 100644 index 00000000..5a38656b --- /dev/null +++ b/bench/char-foldcase.scm @@ -0,0 +1,67 @@ +;; char-foldcase 性能测试 + +(import (scheme base) + (scheme char) + (liii timeit) +) + +(define iterations 100000) + +(define (bench-ascii-upper) + (timeit (lambda () (char-foldcase #\A)) '() iterations) +) + +(define (bench-ascii-lower) + (timeit (lambda () (char-foldcase #\a)) '() iterations) +) + +(define (bench-ascii-digit) + (timeit (lambda () (char-foldcase #\5)) '() iterations) +) + +(define (bench-ascii-space) + (timeit (lambda () (char-foldcase #\space)) '() iterations) +) + +(define (bench-special-383) + (timeit (lambda () (char-foldcase #\x17F)) '() iterations) +) + +(define (bench-special-304) + (timeit (lambda () (char-foldcase #\x130)) '() iterations) +) + +(display "=== char-foldcase 性能测试 ===\n") +(display "迭代次数: ") +(display iterations) +(display "\n\n") + +(display "ASCII 大写 (#\\A) -> 回退 char-downcase, 命中前部分支:\n") +(display " ") +(display (bench-ascii-upper)) +(display " 秒\n\n") + +(display "ASCII 小写 (#\\a) -> 回退 char-downcase, 未命中:\n") +(display " ") +(display (bench-ascii-lower)) +(display " 秒\n\n") + +(display "ASCII 数字 (#\\5) -> 回退 char-downcase, 未命中:\n") +(display " ") +(display (bench-ascii-digit)) +(display " 秒\n\n") + +(display "ASCII 空格 -> 回退 char-downcase, 未命中:\n") +(display " ") +(display (bench-ascii-space)) +(display " 秒\n\n") + +(display "特殊码点 #\\x17F -> 命中 foldcase 自身分支:\n") +(display " ") +(display (bench-special-383)) +(display " 秒\n\n") + +(display "特殊码点 #\\x130 -> 命中 foldcase 自身分支:\n") +(display " ") +(display (bench-special-304)) +(display " 秒\n") diff --git a/bench/char-upcase.scm b/bench/char-upcase.scm new file mode 100644 index 00000000..22918018 --- /dev/null +++ b/bench/char-upcase.scm @@ -0,0 +1,67 @@ +;; char-upcase 性能测试 + +(import (scheme base) + (scheme char) + (liii timeit) +) + +(define iterations 100000) + +(define (bench-ascii-lower) + (timeit (lambda () (char-upcase #\a)) '() iterations) +) + +(define (bench-ascii-upper) + (timeit (lambda () (char-upcase #\A)) '() iterations) +) + +(define (bench-ascii-digit) + (timeit (lambda () (char-upcase #\5)) '() iterations) +) + +(define (bench-ascii-space) + (timeit (lambda () (char-upcase #\space)) '() iterations) +) + +(define (bench-unicode-lower) + (timeit (lambda () (char-upcase #\x3B1)) '() iterations) +) + +(define (bench-unicode-upper) + (timeit (lambda () (char-upcase #\x391)) '() iterations) +) + +(display "=== char-upcase 性能测试 ===\n") +(display "迭代次数: ") +(display iterations) +(display "\n\n") + +(display "ASCII 小写 (#\\a) -> 命中前部分支:\n") +(display " ") +(display (bench-ascii-lower)) +(display " 秒\n\n") + +(display "ASCII 大写 (#\\A) -> 未命中:\n") +(display " ") +(display (bench-ascii-upper)) +(display " 秒\n\n") + +(display "ASCII 数字 (#\\5) -> 未命中:\n") +(display " ") +(display (bench-ascii-digit)) +(display " 秒\n\n") + +(display "ASCII 空格 -> 未命中:\n") +(display " ") +(display (bench-ascii-space)) +(display " 秒\n\n") + +(display "Unicode 小写 (#\\x3B1) -> 命中中后部分支:\n") +(display " ") +(display (bench-unicode-lower)) +(display " 秒\n\n") + +(display "Unicode 大写 (#\\x391) -> 未命中:\n") +(display " ") +(display (bench-unicode-upper)) +(display " 秒\n") diff --git a/bench/char-whitespace-p.scm b/bench/char-whitespace-p.scm new file mode 100644 index 00000000..342aa6a0 --- /dev/null +++ b/bench/char-whitespace-p.scm @@ -0,0 +1,67 @@ +;; char-whitespace? 性能测试 + +(import (scheme base) + (scheme char) + (liii timeit) +) + +(define iterations 100000) + +(define (bench-space) + (timeit (lambda () (char-whitespace? #\space)) '() iterations) +) + +(define (bench-tab) + (timeit (lambda () (char-whitespace? #\tab)) '() iterations) +) + +(define (bench-letter) + (timeit (lambda () (char-whitespace? #\a)) '() iterations) +) + +(define (bench-digit) + (timeit (lambda () (char-whitespace? #\5)) '() iterations) +) + +(define (bench-nbsp) + (timeit (lambda () (char-whitespace? #\xA0)) '() iterations) +) + +(define (bench-ideographic-space) + (timeit (lambda () (char-whitespace? #\x3000)) '() iterations) +) + +(display "=== char-whitespace? 性能测试 ===\n") +(display "迭代次数: ") +(display iterations) +(display "\n\n") + +(display "ASCII 空格 -> 命中:\n") +(display " ") +(display (bench-space)) +(display " 秒\n\n") + +(display "ASCII tab -> 命中:\n") +(display " ") +(display (bench-tab)) +(display " 秒\n\n") + +(display "ASCII 字母 (#\\a) -> 未命中:\n") +(display " ") +(display (bench-letter)) +(display " 秒\n\n") + +(display "ASCII 数字 (#\\5) -> 未命中:\n") +(display " ") +(display (bench-digit)) +(display " 秒\n\n") + +(display "Unicode nbsp (#\\xA0) -> 命中:\n") +(display " ") +(display (bench-nbsp)) +(display " 秒\n\n") + +(display "Unicode 全角空格 (#\\x3000) -> 命中:\n") +(display " ") +(display (bench-ideographic-space)) +(display " 秒\n") diff --git a/compat/char-alphabetic-p.scm b/compat/char-alphabetic-p.scm index d23a4925..37427c35 100644 --- a/compat/char-alphabetic-p.scm +++ b/compat/char-alphabetic-p.scm @@ -1,3 +1,5 @@ +(import (scheme char)) + (letrec ((loop (lambda (i end acc count) @@ -22,10 +24,10 @@ (if (< cp #x1000) (if (< cp #x100) (if (< cp #x10) - (display (string-append "000" (number->string cp 16))) - (display (string-append "00" (number->string cp 16)))) - (display (string-append "0" (number->string cp 16)))) - (display (number->string cp 16))) + (display (string-append "000" (string-upcase (number->string cp 16)))) + (display (string-append "00" (string-upcase (number->string cp 16))))) + (display (string-append "0" (string-upcase (number->string cp 16))))) + (display (string-upcase (number->string cp 16)))) (display ",") (display (integer->char cp)) (newline)) diff --git a/devel/0032.md b/devel/0032.md index c220a825..fd05f102 100644 --- a/devel/0032.md +++ b/devel/0032.md @@ -1,10 +1,13 @@ -# [0032] 将 char-numeric?、char-upper-case?、char-lower-case? 改为 s7 hash-table 实现 +# [0032] 改进字符分类和大小写转换函数的性能 ## 任务相关的代码文件 - goldfish/scheme/char.scm - bench/char-numeric-p.scm - bench/char-upper-case-p.scm - bench/char-lower-case-p.scm +- bench/char-upcase.scm +- bench/char-downcase.scm +- bench/char-foldcase.scm ## 如何测试 ``` @@ -15,6 +18,9 @@ bin/gf tests/scheme/char/char-lower-case-p-test.scm bin/gf bench/char-numeric-p.scm bin/gf bench/char-upper-case-p.scm bin/gf bench/char-lower-case-p.scm +bin/gf bench/char-upcase.scm +bin/gf bench/char-downcase.scm +bin/gf bench/char-foldcase.scm ``` ## 2026/05/05 为 hash-table 初始化添加 defined? 保护 @@ -59,3 +65,45 @@ bin/gf bench/char-lower-case-p.scm | char-upper-case? #\a | ~0.09 秒 | 0.0043 秒 | 0.0038 秒 | | char-lower-case? #\a | ~0.09 秒 | 0.0040 秒 | 0.0036 秒 | | char-lower-case? #\A | ~0.09 秒 | 0.0039 秒 | 0.0037 秒 | + +## 2026/05/05 将 char-upcase、char-downcase、char-foldcase 改为 hash-table 实现 + +### What +将 `char-upcase`、`char-downcase`、`char-foldcase` 从基于 `cond` 的分支判断改为基于 s7 hash-table 的查询实现，并添加性能测试。 + +1. 在 `goldfish/scheme/char.scm` 中构建 `*char-upcase-ht*`、`*char-downcase-ht*`、`*char-foldcase-ht*` + - 独立码点用 `s7-hash-table-set!` 逐个填入目标码点 + - 连续区间用 `do` 循环批量填充映射关系 + - 三个初始化块均用 `unless (defined? '...)` 包裹，避免重复加载 +2. `char-upcase` 和 `char-downcase` 改为 `(hash-table-ref *ht* cp)` 查询，未命中返回原字符 +3. `char-foldcase` 先查 `*char-foldcase-ht*`，未命中时回退到 `char-downcase` +4. 添加 `bench/char-upcase.scm`、`bench/char-downcase.scm`、`bench/char-foldcase.scm` 性能测试文件 +5. 通过 `tools/gen_char_ht.py` 脚本从原 `cond` 代码自动生成 hash-table 初始化代码 + +### Why +原实现基于 `cond` 的区间和等值判断，`char-upcase` 和 `char-downcase` 各有 500+ 个分支。对于**不匹配任何分支的字符**（如数字、空格、已处于目标大小写的字母），需要遍历所有分支才能到达 `else char`，导致严重性能退化。 + +基准测试（10 万次迭代）显示： + +| 函数 | 场景 | 旧实现 | 新实现 | 提升倍数 | +|------|------|--------|--------|----------| +| char-upcase | #\a（命中前部分支） | 0.015 秒 | 0.008 秒 | 2 倍 | +| char-upcase | #\A（未命中） | 0.277 秒 | 0.007 秒 | **40 倍** | +| char-upcase | #\5（未命中） | 0.270 秒 | 0.008 秒 | **34 倍** | +| char-upcase | #\space（未命中） | 0.276 秒 | 0.005 秒 | **55 倍** | +| char-downcase | #\A（命中前部分支） | 0.006 秒 | 0.006 秒 | 持平 | +| char-downcase | #\a（未命中） | 0.271 秒 | 0.006 秒 | **45 倍** | +| char-foldcase | #\x17F（命中自身分支） | 0.006 秒 | 0.006 秒 | 持平 | +| char-foldcase | #\5（回退 downcase，未命中） | 0.275 秒 | 0.010 秒 | **28 倍** | + +优化后所有场景的性能趋于一致（约 0.005-0.008 秒），彻底消除了 cond 遍历瓶颈。 + +### How +采用与 `char-numeric?` 相同的 s7 hash-table 方案。hash-table 的命中/未命中查询均为 O(1)，消除了 cond 遍历的性能瓶颈。 + +关键细节： +- `char-upcase` 和 `char-downcase` 的映射是双向的，但各自需要独立的 hash-table（因为并非所有映射都是简单的 +/-1 或 +/-32） +- `char-foldcase` 的 Unicode 特殊规则（如 #\x130 映射为自身、Cherokee 字母保持不变）不能直接用 `char-downcase` 表达，需独立建表 +- 初始化代码量较大（约 400+ 个独立码点 + 几十个区间，共 1400+ 行），但模块加载时一次性执行，之后所有查询均为 O(1) +- 通过 Python 脚本 `tools/gen_char_ht.py` 自动从原 `cond` 代码解析并生成 hash-table 初始化代码，避免手动转换的错误 +- 保持 `unless (defined? '...)` 保护，避免 REPL 重复导入时重复执行大量 `hash-table-set!` diff --git a/goldfish/scheme/char.scm b/goldfish/scheme/char.scm index f45e30e4..45a3d52c 100644 --- a/goldfish/scheme/char.scm +++ b/goldfish/scheme/char.scm @@ -71,698 +71,9 @@ (error 'type-error "char-upcase: parameter must be character") ) ;unless (let ((cp (char->integer char))) - (cond ((<= 97 cp 122) (integer->char (+ cp -32))) - ((= cp 181) (integer->char (+ cp 743))) - ((<= 224 cp 246) (integer->char (+ cp -32))) - ((<= 248 cp 254) (integer->char (+ cp -32))) - ((= cp 255) (integer->char (+ cp 121))) - ((= cp 257) (integer->char (+ cp -1))) - ((= cp 259) (integer->char (+ cp -1))) - ((= cp 261) (integer->char (+ cp -1))) - ((= cp 263) (integer->char (+ cp -1))) - ((= cp 265) (integer->char (+ cp -1))) - ((= cp 267) (integer->char (+ cp -1))) - ((= cp 269) (integer->char (+ cp -1))) - ((= cp 271) (integer->char (+ cp -1))) - ((= cp 273) (integer->char (+ cp -1))) - ((= cp 275) (integer->char (+ cp -1))) - ((= cp 277) (integer->char (+ cp -1))) - ((= cp 279) (integer->char (+ cp -1))) - ((= cp 281) (integer->char (+ cp -1))) - ((= cp 283) (integer->char (+ cp -1))) - ((= cp 285) (integer->char (+ cp -1))) - ((= cp 287) (integer->char (+ cp -1))) - ((= cp 289) (integer->char (+ cp -1))) - ((= cp 291) (integer->char (+ cp -1))) - ((= cp 293) (integer->char (+ cp -1))) - ((= cp 295) (integer->char (+ cp -1))) - ((= cp 297) (integer->char (+ cp -1))) - ((= cp 299) (integer->char (+ cp -1))) - ((= cp 301) (integer->char (+ cp -1))) - ((= cp 303) (integer->char (+ cp -1))) - ((= cp 305) (integer->char (+ cp -232))) - ((= cp 307) (integer->char (+ cp -1))) - ((= cp 309) (integer->char (+ cp -1))) - ((= cp 311) (integer->char (+ cp -1))) - ((= cp 314) (integer->char (+ cp -1))) - ((= cp 316) (integer->char (+ cp -1))) - ((= cp 318) (integer->char (+ cp -1))) - ((= cp 320) (integer->char (+ cp -1))) - ((= cp 322) (integer->char (+ cp -1))) - ((= cp 324) (integer->char (+ cp -1))) - ((= cp 326) (integer->char (+ cp -1))) - ((= cp 328) (integer->char (+ cp -1))) - ((= cp 331) (integer->char (+ cp -1))) - ((= cp 333) (integer->char (+ cp -1))) - ((= cp 335) (integer->char (+ cp -1))) - ((= cp 337) (integer->char (+ cp -1))) - ((= cp 339) (integer->char (+ cp -1))) - ((= cp 341) (integer->char (+ cp -1))) - ((= cp 343) (integer->char (+ cp -1))) - ((= cp 345) (integer->char (+ cp -1))) - ((= cp 347) (integer->char (+ cp -1))) - ((= cp 349) (integer->char (+ cp -1))) - ((= cp 351) (integer->char (+ cp -1))) - ((= cp 353) (integer->char (+ cp -1))) - ((= cp 355) (integer->char (+ cp -1))) - ((= cp 357) (integer->char (+ cp -1))) - ((= cp 359) (integer->char (+ cp -1))) - ((= cp 361) (integer->char (+ cp -1))) - ((= cp 363) (integer->char (+ cp -1))) - ((= cp 365) (integer->char (+ cp -1))) - ((= cp 367) (integer->char (+ cp -1))) - ((= cp 369) (integer->char (+ cp -1))) - ((= cp 371) (integer->char (+ cp -1))) - ((= cp 373) (integer->char (+ cp -1))) - ((= cp 375) (integer->char (+ cp -1))) - ((= cp 378) (integer->char (+ cp -1))) - ((= cp 380) (integer->char (+ cp -1))) - ((= cp 382) (integer->char (+ cp -1))) - ((= cp 383) (integer->char (+ cp -300))) - ((= cp 384) (integer->char (+ cp 195))) - ((= cp 387) (integer->char (+ cp -1))) - ((= cp 389) (integer->char (+ cp -1))) - ((= cp 392) (integer->char (+ cp -1))) - ((= cp 396) (integer->char (+ cp -1))) - ((= cp 402) (integer->char (+ cp -1))) - ((= cp 405) (integer->char (+ cp 97))) - ((= cp 409) (integer->char (+ cp -1))) - ((= cp 410) (integer->char (+ cp 163))) - ((= cp 411) (integer->char (+ cp 42561))) - ((= cp 414) (integer->char (+ cp 130))) - ((= cp 417) (integer->char (+ cp -1))) - ((= cp 419) (integer->char (+ cp -1))) - ((= cp 421) (integer->char (+ cp -1))) - ((= cp 424) (integer->char (+ cp -1))) - ((= cp 429) (integer->char (+ cp -1))) - ((= cp 432) (integer->char (+ cp -1))) - ((= cp 436) (integer->char (+ cp -1))) - ((= cp 438) (integer->char (+ cp -1))) - ((= cp 441) (integer->char (+ cp -1))) - ((= cp 445) (integer->char (+ cp -1))) - ((= cp 447) (integer->char (+ cp 56))) - ((= cp 453) (integer->char (+ cp -1))) - ((= cp 454) (integer->char (+ cp -2))) - ((= cp 456) (integer->char (+ cp -1))) - ((= cp 457) (integer->char (+ cp -2))) - ((= cp 459) (integer->char (+ cp -1))) - ((= cp 460) (integer->char (+ cp -2))) - ((= cp 462) (integer->char (+ cp -1))) - ((= cp 464) (integer->char (+ cp -1))) - ((= cp 466) (integer->char (+ cp -1))) - ((= cp 468) (integer->char (+ cp -1))) - ((= cp 470) (integer->char (+ cp -1))) - ((= cp 472) (integer->char (+ cp -1))) - ((= cp 474) (integer->char (+ cp -1))) - ((= cp 476) (integer->char (+ cp -1))) - ((= cp 477) (integer->char (+ cp -79))) - ((= cp 479) (integer->char (+ cp -1))) - ((= cp 481) (integer->char (+ cp -1))) - ((= cp 483) (integer->char (+ cp -1))) - ((= cp 485) (integer->char (+ cp -1))) - ((= cp 487) (integer->char (+ cp -1))) - ((= cp 489) (integer->char (+ cp -1))) - ((= cp 491) (integer->char (+ cp -1))) - ((= cp 493) (integer->char (+ cp -1))) - ((= cp 495) (integer->char (+ cp -1))) - ((= cp 498) (integer->char (+ cp -1))) - ((= cp 499) (integer->char (+ cp -2))) - ((= cp 501) (integer->char (+ cp -1))) - ((= cp 505) (integer->char (+ cp -1))) - ((= cp 507) (integer->char (+ cp -1))) - ((= cp 509) (integer->char (+ cp -1))) - ((= cp 511) (integer->char (+ cp -1))) - ((= cp 513) (integer->char (+ cp -1))) - ((= cp 515) (integer->char (+ cp -1))) - ((= cp 517) (integer->char (+ cp -1))) - ((= cp 519) (integer->char (+ cp -1))) - ((= cp 521) (integer->char (+ cp -1))) - ((= cp 523) (integer->char (+ cp -1))) - ((= cp 525) (integer->char (+ cp -1))) - ((= cp 527) (integer->char (+ cp -1))) - ((= cp 529) (integer->char (+ cp -1))) - ((= cp 531) (integer->char (+ cp -1))) - ((= cp 533) (integer->char (+ cp -1))) - ((= cp 535) (integer->char (+ cp -1))) - ((= cp 537) (integer->char (+ cp -1))) - ((= cp 539) (integer->char (+ cp -1))) - ((= cp 541) (integer->char (+ cp -1))) - ((= cp 543) (integer->char (+ cp -1))) - ((= cp 547) (integer->char (+ cp -1))) - ((= cp 549) (integer->char (+ cp -1))) - ((= cp 551) (integer->char (+ cp -1))) - ((= cp 553) (integer->char (+ cp -1))) - ((= cp 555) (integer->char (+ cp -1))) - ((= cp 557) (integer->char (+ cp -1))) - ((= cp 559) (integer->char (+ cp -1))) - ((= cp 561) (integer->char (+ cp -1))) - ((= cp 563) (integer->char (+ cp -1))) - ((= cp 572) (integer->char (+ cp -1))) - ((<= 575 cp 576) (integer->char (+ cp 10815))) - ((= cp 578) (integer->char (+ cp -1))) - ((= cp 583) (integer->char (+ cp -1))) - ((= cp 585) (integer->char (+ cp -1))) - ((= cp 587) (integer->char (+ cp -1))) - ((= cp 589) (integer->char (+ cp -1))) - ((= cp 591) (integer->char (+ cp -1))) - ((= cp 592) (integer->char (+ cp 10783))) - ((= cp 593) (integer->char (+ cp 10780))) - ((= cp 594) (integer->char (+ cp 10782))) - ((= cp 595) (integer->char (+ cp -210))) - ((= cp 596) (integer->char (+ cp -206))) - ((<= 598 cp 599) (integer->char (+ cp -205))) - ((= cp 601) (integer->char (+ cp -202))) - ((= cp 603) (integer->char (+ cp -203))) - ((= cp 604) (integer->char (+ cp 42319))) - ((= cp 608) (integer->char (+ cp -205))) - ((= cp 609) (integer->char (+ cp 42315))) - ((= cp 611) (integer->char (+ cp -207))) - ((= cp 612) (integer->char (+ cp 42343))) - ((= cp 613) (integer->char (+ cp 42280))) - ((= cp 614) (integer->char (+ cp 42308))) - ((= cp 616) (integer->char (+ cp -209))) - ((= cp 617) (integer->char (+ cp -211))) - ((= cp 618) (integer->char (+ cp 42308))) - ((= cp 619) (integer->char (+ cp 10743))) - ((= cp 620) (integer->char (+ cp 42305))) - ((= cp 623) (integer->char (+ cp -211))) - ((= cp 625) (integer->char (+ cp 10749))) - ((= cp 626) (integer->char (+ cp -213))) - ((= cp 629) (integer->char (+ cp -214))) - ((= cp 637) (integer->char (+ cp 10727))) - ((= cp 640) (integer->char (+ cp -218))) - ((= cp 642) (integer->char (+ cp 42307))) - ((= cp 643) (integer->char (+ cp -218))) - ((= cp 647) (integer->char (+ cp 42282))) - ((= cp 648) (integer->char (+ cp -218))) - ((= cp 649) (integer->char (+ cp -69))) - ((<= 650 cp 651) (integer->char (+ cp -217))) - ((= cp 652) (integer->char (+ cp -71))) - ((= cp 658) (integer->char (+ cp -219))) - ((= cp 669) (integer->char (+ cp 42261))) - ((= cp 670) (integer->char (+ cp 42258))) - ((= cp 837) (integer->char (+ cp 84))) - ((= cp 881) (integer->char (+ cp -1))) - ((= cp 883) (integer->char (+ cp -1))) - ((= cp 887) (integer->char (+ cp -1))) - ((<= 891 cp 893) (integer->char (+ cp 130))) - ((= cp 940) (integer->char (+ cp -38))) - ((<= 941 cp 943) (integer->char (+ cp -37))) - ((<= 945 cp 961) (integer->char (+ cp -32))) - ((= cp 962) (integer->char (+ cp -31))) - ((<= 963 cp 971) (integer->char (+ cp -32))) - ((= cp 972) (integer->char (+ cp -64))) - ((<= 973 cp 974) (integer->char (+ cp -63))) - ((= cp 976) (integer->char (+ cp -62))) - ((= cp 977) (integer->char (+ cp -57))) - ((= cp 981) (integer->char (+ cp -47))) - ((= cp 982) (integer->char (+ cp -54))) - ((= cp 983) (integer->char (+ cp -8))) - ((= cp 985) (integer->char (+ cp -1))) - ((= cp 987) (integer->char (+ cp -1))) - ((= cp 989) (integer->char (+ cp -1))) - ((= cp 991) (integer->char (+ cp -1))) - ((= cp 993) (integer->char (+ cp -1))) - ((= cp 995) (integer->char (+ cp -1))) - ((= cp 997) (integer->char (+ cp -1))) - ((= cp 999) (integer->char (+ cp -1))) - ((= cp 1001) (integer->char (+ cp -1))) - ((= cp 1003) (integer->char (+ cp -1))) - ((= cp 1005) (integer->char (+ cp -1))) - ((= cp 1007) (integer->char (+ cp -1))) - ((= cp 1008) (integer->char (+ cp -86))) - ((= cp 1009) (integer->char (+ cp -80))) - ((= cp 1010) (integer->char (+ cp 7))) - ((= cp 1011) (integer->char (+ cp -116))) - ((= cp 1013) (integer->char (+ cp -96))) - ((= cp 1016) (integer->char (+ cp -1))) - ((= cp 1019) (integer->char (+ cp -1))) - ((<= 1072 cp 1103) (integer->char (+ cp -32))) - ((<= 1104 cp 1119) (integer->char (+ cp -80))) - ((= cp 1121) (integer->char (+ cp -1))) - ((= cp 1123) (integer->char (+ cp -1))) - ((= cp 1125) (integer->char (+ cp -1))) - ((= cp 1127) (integer->char (+ cp -1))) - ((= cp 1129) (integer->char (+ cp -1))) - ((= cp 1131) (integer->char (+ cp -1))) - ((= cp 1133) (integer->char (+ cp -1))) - ((= cp 1135) (integer->char (+ cp -1))) - ((= cp 1137) (integer->char (+ cp -1))) - ((= cp 1139) (integer->char (+ cp -1))) - ((= cp 1141) (integer->char (+ cp -1))) - ((= cp 1143) (integer->char (+ cp -1))) - ((= cp 1145) (integer->char (+ cp -1))) - ((= cp 1147) (integer->char (+ cp -1))) - ((= cp 1149) (integer->char (+ cp -1))) - ((= cp 1151) (integer->char (+ cp -1))) - ((= cp 1153) (integer->char (+ cp -1))) - ((= cp 1163) (integer->char (+ cp -1))) - ((= cp 1165) (integer->char (+ cp -1))) - ((= cp 1167) (integer->char (+ cp -1))) - ((= cp 1169) (integer->char (+ cp -1))) - ((= cp 1171) (integer->char (+ cp -1))) - ((= cp 1173) (integer->char (+ cp -1))) - ((= cp 1175) (integer->char (+ cp -1))) - ((= cp 1177) (integer->char (+ cp -1))) - ((= cp 1179) (integer->char (+ cp -1))) - ((= cp 1181) (integer->char (+ cp -1))) - ((= cp 1183) (integer->char (+ cp -1))) - ((= cp 1185) (integer->char (+ cp -1))) - ((= cp 1187) (integer->char (+ cp -1))) - ((= cp 1189) (integer->char (+ cp -1))) - ((= cp 1191) (integer->char (+ cp -1))) - ((= cp 1193) (integer->char (+ cp -1))) - ((= cp 1195) (integer->char (+ cp -1))) - ((= cp 1197) (integer->char (+ cp -1))) - ((= cp 1199) (integer->char (+ cp -1))) - ((= cp 1201) (integer->char (+ cp -1))) - ((= cp 1203) (integer->char (+ cp -1))) - ((= cp 1205) (integer->char (+ cp -1))) - ((= cp 1207) (integer->char (+ cp -1))) - ((= cp 1209) (integer->char (+ cp -1))) - ((= cp 1211) (integer->char (+ cp -1))) - ((= cp 1213) (integer->char (+ cp -1))) - ((= cp 1215) (integer->char (+ cp -1))) - ((= cp 1218) (integer->char (+ cp -1))) - ((= cp 1220) (integer->char (+ cp -1))) - ((= cp 1222) (integer->char (+ cp -1))) - ((= cp 1224) (integer->char (+ cp -1))) - ((= cp 1226) (integer->char (+ cp -1))) - ((= cp 1228) (integer->char (+ cp -1))) - ((= cp 1230) (integer->char (+ cp -1))) - ((= cp 1231) (integer->char (+ cp -15))) - ((= cp 1233) (integer->char (+ cp -1))) - ((= cp 1235) (integer->char (+ cp -1))) - ((= cp 1237) (integer->char (+ cp -1))) - ((= cp 1239) (integer->char (+ cp -1))) - ((= cp 1241) (integer->char (+ cp -1))) - ((= cp 1243) (integer->char (+ cp -1))) - ((= cp 1245) (integer->char (+ cp -1))) - ((= cp 1247) (integer->char (+ cp -1))) - ((= cp 1249) (integer->char (+ cp -1))) - ((= cp 1251) (integer->char (+ cp -1))) - ((= cp 1253) (integer->char (+ cp -1))) - ((= cp 1255) (integer->char (+ cp -1))) - ((= cp 1257) (integer->char (+ cp -1))) - ((= cp 1259) (integer->char (+ cp -1))) - ((= cp 1261) (integer->char (+ cp -1))) - ((= cp 1263) (integer->char (+ cp -1))) - ((= cp 1265) (integer->char (+ cp -1))) - ((= cp 1267) (integer->char (+ cp -1))) - ((= cp 1269) (integer->char (+ cp -1))) - ((= cp 1271) (integer->char (+ cp -1))) - ((= cp 1273) (integer->char (+ cp -1))) - ((= cp 1275) (integer->char (+ cp -1))) - ((= cp 1277) (integer->char (+ cp -1))) - ((= cp 1279) (integer->char (+ cp -1))) - ((= cp 1281) (integer->char (+ cp -1))) - ((= cp 1283) (integer->char (+ cp -1))) - ((= cp 1285) (integer->char (+ cp -1))) - ((= cp 1287) (integer->char (+ cp -1))) - ((= cp 1289) (integer->char (+ cp -1))) - ((= cp 1291) (integer->char (+ cp -1))) - ((= cp 1293) (integer->char (+ cp -1))) - ((= cp 1295) (integer->char (+ cp -1))) - ((= cp 1297) (integer->char (+ cp -1))) - ((= cp 1299) (integer->char (+ cp -1))) - ((= cp 1301) (integer->char (+ cp -1))) - ((= cp 1303) (integer->char (+ cp -1))) - ((= cp 1305) (integer->char (+ cp -1))) - ((= cp 1307) (integer->char (+ cp -1))) - ((= cp 1309) (integer->char (+ cp -1))) - ((= cp 1311) (integer->char (+ cp -1))) - ((= cp 1313) (integer->char (+ cp -1))) - ((= cp 1315) (integer->char (+ cp -1))) - ((= cp 1317) (integer->char (+ cp -1))) - ((= cp 1319) (integer->char (+ cp -1))) - ((= cp 1321) (integer->char (+ cp -1))) - ((= cp 1323) (integer->char (+ cp -1))) - ((= cp 1325) (integer->char (+ cp -1))) - ((= cp 1327) (integer->char (+ cp -1))) - ((<= 1377 cp 1414) (integer->char (+ cp -48))) - ((<= 4304 cp 4346) (integer->char (+ cp 3008))) - ((<= 4349 cp 4351) (integer->char (+ cp 3008))) - ((<= 5112 cp 5117) (integer->char (+ cp -8))) - ((= cp 7296) (integer->char (+ cp -6254))) - ((= cp 7297) (integer->char (+ cp -6253))) - ((= cp 7298) (integer->char (+ cp -6244))) - ((<= 7299 cp 7300) (integer->char (+ cp -6242))) - ((= cp 7301) (integer->char (+ cp -6243))) - ((= cp 7302) (integer->char (+ cp -6236))) - ((= cp 7303) (integer->char (+ cp -6181))) - ((= cp 7304) (integer->char (+ cp 35266))) - ((= cp 7306) (integer->char (+ cp -1))) - ((= cp 7545) (integer->char (+ cp 35332))) - ((= cp 7549) (integer->char (+ cp 3814))) - ((= cp 7566) (integer->char (+ cp 35384))) - ((= cp 7681) (integer->char (+ cp -1))) - ((= cp 7683) (integer->char (+ cp -1))) - ((= cp 7685) (integer->char (+ cp -1))) - ((= cp 7687) (integer->char (+ cp -1))) - ((= cp 7689) (integer->char (+ cp -1))) - ((= cp 7691) (integer->char (+ cp -1))) - ((= cp 7693) (integer->char (+ cp -1))) - ((= cp 7695) (integer->char (+ cp -1))) - ((= cp 7697) (integer->char (+ cp -1))) - ((= cp 7699) (integer->char (+ cp -1))) - ((= cp 7701) (integer->char (+ cp -1))) - ((= cp 7703) (integer->char (+ cp -1))) - ((= cp 7705) (integer->char (+ cp -1))) - ((= cp 7707) (integer->char (+ cp -1))) - ((= cp 7709) (integer->char (+ cp -1))) - ((= cp 7711) (integer->char (+ cp -1))) - ((= cp 7713) (integer->char (+ cp -1))) - ((= cp 7715) (integer->char (+ cp -1))) - ((= cp 7717) (integer->char (+ cp -1))) - ((= cp 7719) (integer->char (+ cp -1))) - ((= cp 7721) (integer->char (+ cp -1))) - ((= cp 7723) (integer->char (+ cp -1))) - ((= cp 7725) (integer->char (+ cp -1))) - ((= cp 7727) (integer->char (+ cp -1))) - ((= cp 7729) (integer->char (+ cp -1))) - ((= cp 7731) (integer->char (+ cp -1))) - ((= cp 7733) (integer->char (+ cp -1))) - ((= cp 7735) (integer->char (+ cp -1))) - ((= cp 7737) (integer->char (+ cp -1))) - ((= cp 7739) (integer->char (+ cp -1))) - ((= cp 7741) (integer->char (+ cp -1))) - ((= cp 7743) (integer->char (+ cp -1))) - ((= cp 7745) (integer->char (+ cp -1))) - ((= cp 7747) (integer->char (+ cp -1))) - ((= cp 7749) (integer->char (+ cp -1))) - ((= cp 7751) (integer->char (+ cp -1))) - ((= cp 7753) (integer->char (+ cp -1))) - ((= cp 7755) (integer->char (+ cp -1))) - ((= cp 7757) (integer->char (+ cp -1))) - ((= cp 7759) (integer->char (+ cp -1))) - ((= cp 7761) (integer->char (+ cp -1))) - ((= cp 7763) (integer->char (+ cp -1))) - ((= cp 7765) (integer->char (+ cp -1))) - ((= cp 7767) (integer->char (+ cp -1))) - ((= cp 7769) (integer->char (+ cp -1))) - ((= cp 7771) (integer->char (+ cp -1))) - ((= cp 7773) (integer->char (+ cp -1))) - ((= cp 7775) (integer->char (+ cp -1))) - ((= cp 7777) (integer->char (+ cp -1))) - ((= cp 7779) (integer->char (+ cp -1))) - ((= cp 7781) (integer->char (+ cp -1))) - ((= cp 7783) (integer->char (+ cp -1))) - ((= cp 7785) (integer->char (+ cp -1))) - ((= cp 7787) (integer->char (+ cp -1))) - ((= cp 7789) (integer->char (+ cp -1))) - ((= cp 7791) (integer->char (+ cp -1))) - ((= cp 7793) (integer->char (+ cp -1))) - ((= cp 7795) (integer->char (+ cp -1))) - ((= cp 7797) (integer->char (+ cp -1))) - ((= cp 7799) (integer->char (+ cp -1))) - ((= cp 7801) (integer->char (+ cp -1))) - ((= cp 7803) (integer->char (+ cp -1))) - ((= cp 7805) (integer->char (+ cp -1))) - ((= cp 7807) (integer->char (+ cp -1))) - ((= cp 7809) (integer->char (+ cp -1))) - ((= cp 7811) (integer->char (+ cp -1))) - ((= cp 7813) (integer->char (+ cp -1))) - ((= cp 7815) (integer->char (+ cp -1))) - ((= cp 7817) (integer->char (+ cp -1))) - ((= cp 7819) (integer->char (+ cp -1))) - ((= cp 7821) (integer->char (+ cp -1))) - ((= cp 7823) (integer->char (+ cp -1))) - ((= cp 7825) (integer->char (+ cp -1))) - ((= cp 7827) (integer->char (+ cp -1))) - ((= cp 7829) (integer->char (+ cp -1))) - ((= cp 7835) (integer->char (+ cp -59))) - ((= cp 7841) (integer->char (+ cp -1))) - ((= cp 7843) (integer->char (+ cp -1))) - ((= cp 7845) (integer->char (+ cp -1))) - ((= cp 7847) (integer->char (+ cp -1))) - ((= cp 7849) (integer->char (+ cp -1))) - ((= cp 7851) (integer->char (+ cp -1))) - ((= cp 7853) (integer->char (+ cp -1))) - ((= cp 7855) (integer->char (+ cp -1))) - ((= cp 7857) (integer->char (+ cp -1))) - ((= cp 7859) (integer->char (+ cp -1))) - ((= cp 7861) (integer->char (+ cp -1))) - ((= cp 7863) (integer->char (+ cp -1))) - ((= cp 7865) (integer->char (+ cp -1))) - ((= cp 7867) (integer->char (+ cp -1))) - ((= cp 7869) (integer->char (+ cp -1))) - ((= cp 7871) (integer->char (+ cp -1))) - ((= cp 7873) (integer->char (+ cp -1))) - ((= cp 7875) (integer->char (+ cp -1))) - ((= cp 7877) (integer->char (+ cp -1))) - ((= cp 7879) (integer->char (+ cp -1))) - ((= cp 7881) (integer->char (+ cp -1))) - ((= cp 7883) (integer->char (+ cp -1))) - ((= cp 7885) (integer->char (+ cp -1))) - ((= cp 7887) (integer->char (+ cp -1))) - ((= cp 7889) (integer->char (+ cp -1))) - ((= cp 7891) (integer->char (+ cp -1))) - ((= cp 7893) (integer->char (+ cp -1))) - ((= cp 7895) (integer->char (+ cp -1))) - ((= cp 7897) (integer->char (+ cp -1))) - ((= cp 7899) (integer->char (+ cp -1))) - ((= cp 7901) (integer->char (+ cp -1))) - ((= cp 7903) (integer->char (+ cp -1))) - ((= cp 7905) (integer->char (+ cp -1))) - ((= cp 7907) (integer->char (+ cp -1))) - ((= cp 7909) (integer->char (+ cp -1))) - ((= cp 7911) (integer->char (+ cp -1))) - ((= cp 7913) (integer->char (+ cp -1))) - ((= cp 7915) (integer->char (+ cp -1))) - ((= cp 7917) (integer->char (+ cp -1))) - ((= cp 7919) (integer->char (+ cp -1))) - ((= cp 7921) (integer->char (+ cp -1))) - ((= cp 7923) (integer->char (+ cp -1))) - ((= cp 7925) (integer->char (+ cp -1))) - ((= cp 7927) (integer->char (+ cp -1))) - ((= cp 7929) (integer->char (+ cp -1))) - ((= cp 7931) (integer->char (+ cp -1))) - ((= cp 7933) (integer->char (+ cp -1))) - ((= cp 7935) (integer->char (+ cp -1))) - ((<= 7936 cp 7943) (integer->char (+ cp 8))) - ((<= 7952 cp 7957) (integer->char (+ cp 8))) - ((<= 7968 cp 7975) (integer->char (+ cp 8))) - ((<= 7984 cp 7991) (integer->char (+ cp 8))) - ((<= 8000 cp 8005) (integer->char (+ cp 8))) - ((= cp 8017) (integer->char (+ cp 8))) - ((= cp 8019) (integer->char (+ cp 8))) - ((= cp 8021) (integer->char (+ cp 8))) - ((= cp 8023) (integer->char (+ cp 8))) - ((<= 8032 cp 8039) (integer->char (+ cp 8))) - ((<= 8048 cp 8049) (integer->char (+ cp 74))) - ((<= 8050 cp 8053) (integer->char (+ cp 86))) - ((<= 8054 cp 8055) (integer->char (+ cp 100))) - ((<= 8056 cp 8057) (integer->char (+ cp 128))) - ((<= 8058 cp 8059) (integer->char (+ cp 112))) - ((<= 8060 cp 8061) (integer->char (+ cp 126))) - ((<= 8064 cp 8071) (integer->char (+ cp 8))) - ((<= 8080 cp 8087) (integer->char (+ cp 8))) - ((<= 8096 cp 8103) (integer->char (+ cp 8))) - ((<= 8112 cp 8113) (integer->char (+ cp 8))) - ((= cp 8115) (integer->char (+ cp 9))) - ((= cp 8126) (integer->char (+ cp -7205))) - ((= cp 8131) (integer->char (+ cp 9))) - ((<= 8144 cp 8145) (integer->char (+ cp 8))) - ((<= 8160 cp 8161) (integer->char (+ cp 8))) - ((= cp 8165) (integer->char (+ cp 7))) - ((= cp 8179) (integer->char (+ cp 9))) - ((= cp 8526) (integer->char (+ cp -28))) - ((<= 8560 cp 8575) (integer->char (+ cp -16))) - ((= cp 8580) (integer->char (+ cp -1))) - ((<= 9424 cp 9449) (integer->char (+ cp -26))) - ((<= 11312 cp 11359) (integer->char (+ cp -48))) - ((= cp 11361) (integer->char (+ cp -1))) - ((= cp 11365) (integer->char (+ cp -10795))) - ((= cp 11366) (integer->char (+ cp -10792))) - ((= cp 11368) (integer->char (+ cp -1))) - ((= cp 11370) (integer->char (+ cp -1))) - ((= cp 11372) (integer->char (+ cp -1))) - ((= cp 11379) (integer->char (+ cp -1))) - ((= cp 11382) (integer->char (+ cp -1))) - ((= cp 11393) (integer->char (+ cp -1))) - ((= cp 11395) (integer->char (+ cp -1))) - ((= cp 11397) (integer->char (+ cp -1))) - ((= cp 11399) (integer->char (+ cp -1))) - ((= cp 11401) (integer->char (+ cp -1))) - ((= cp 11403) (integer->char (+ cp -1))) - ((= cp 11405) (integer->char (+ cp -1))) - ((= cp 11407) (integer->char (+ cp -1))) - ((= cp 11409) (integer->char (+ cp -1))) - ((= cp 11411) (integer->char (+ cp -1))) - ((= cp 11413) (integer->char (+ cp -1))) - ((= cp 11415) (integer->char (+ cp -1))) - ((= cp 11417) (integer->char (+ cp -1))) - ((= cp 11419) (integer->char (+ cp -1))) - ((= cp 11421) (integer->char (+ cp -1))) - ((= cp 11423) (integer->char (+ cp -1))) - ((= cp 11425) (integer->char (+ cp -1))) - ((= cp 11427) (integer->char (+ cp -1))) - ((= cp 11429) (integer->char (+ cp -1))) - ((= cp 11431) (integer->char (+ cp -1))) - ((= cp 11433) (integer->char (+ cp -1))) - ((= cp 11435) (integer->char (+ cp -1))) - ((= cp 11437) (integer->char (+ cp -1))) - ((= cp 11439) (integer->char (+ cp -1))) - ((= cp 11441) (integer->char (+ cp -1))) - ((= cp 11443) (integer->char (+ cp -1))) - ((= cp 11445) (integer->char (+ cp -1))) - ((= cp 11447) (integer->char (+ cp -1))) - ((= cp 11449) (integer->char (+ cp -1))) - ((= cp 11451) (integer->char (+ cp -1))) - ((= cp 11453) (integer->char (+ cp -1))) - ((= cp 11455) (integer->char (+ cp -1))) - ((= cp 11457) (integer->char (+ cp -1))) - ((= cp 11459) (integer->char (+ cp -1))) - ((= cp 11461) (integer->char (+ cp -1))) - ((= cp 11463) (integer->char (+ cp -1))) - ((= cp 11465) (integer->char (+ cp -1))) - ((= cp 11467) (integer->char (+ cp -1))) - ((= cp 11469) (integer->char (+ cp -1))) - ((= cp 11471) (integer->char (+ cp -1))) - ((= cp 11473) (integer->char (+ cp -1))) - ((= cp 11475) (integer->char (+ cp -1))) - ((= cp 11477) (integer->char (+ cp -1))) - ((= cp 11479) (integer->char (+ cp -1))) - ((= cp 11481) (integer->char (+ cp -1))) - ((= cp 11483) (integer->char (+ cp -1))) - ((= cp 11485) (integer->char (+ cp -1))) - ((= cp 11487) (integer->char (+ cp -1))) - ((= cp 11489) (integer->char (+ cp -1))) - ((= cp 11491) (integer->char (+ cp -1))) - ((= cp 11500) (integer->char (+ cp -1))) - ((= cp 11502) (integer->char (+ cp -1))) - ((= cp 11507) (integer->char (+ cp -1))) - ((<= 11520 cp 11557) (integer->char (+ cp -7264))) - ((= cp 11559) (integer->char (+ cp -7264))) - ((= cp 11565) (integer->char (+ cp -7264))) - ((= cp 42561) (integer->char (+ cp -1))) - ((= cp 42563) (integer->char (+ cp -1))) - ((= cp 42565) (integer->char (+ cp -1))) - ((= cp 42567) (integer->char (+ cp -1))) - ((= cp 42569) (integer->char (+ cp -1))) - ((= cp 42571) (integer->char (+ cp -1))) - ((= cp 42573) (integer->char (+ cp -1))) - ((= cp 42575) (integer->char (+ cp -1))) - ((= cp 42577) (integer->char (+ cp -1))) - ((= cp 42579) (integer->char (+ cp -1))) - ((= cp 42581) (integer->char (+ cp -1))) - ((= cp 42583) (integer->char (+ cp -1))) - ((= cp 42585) (integer->char (+ cp -1))) - ((= cp 42587) (integer->char (+ cp -1))) - ((= cp 42589) (integer->char (+ cp -1))) - ((= cp 42591) (integer->char (+ cp -1))) - ((= cp 42593) (integer->char (+ cp -1))) - ((= cp 42595) (integer->char (+ cp -1))) - ((= cp 42597) (integer->char (+ cp -1))) - ((= cp 42599) (integer->char (+ cp -1))) - ((= cp 42601) (integer->char (+ cp -1))) - ((= cp 42603) (integer->char (+ cp -1))) - ((= cp 42605) (integer->char (+ cp -1))) - ((= cp 42625) (integer->char (+ cp -1))) - ((= cp 42627) (integer->char (+ cp -1))) - ((= cp 42629) (integer->char (+ cp -1))) - ((= cp 42631) (integer->char (+ cp -1))) - ((= cp 42633) (integer->char (+ cp -1))) - ((= cp 42635) (integer->char (+ cp -1))) - ((= cp 42637) (integer->char (+ cp -1))) - ((= cp 42639) (integer->char (+ cp -1))) - ((= cp 42641) (integer->char (+ cp -1))) - ((= cp 42643) (integer->char (+ cp -1))) - ((= cp 42645) (integer->char (+ cp -1))) - ((= cp 42647) (integer->char (+ cp -1))) - ((= cp 42649) (integer->char (+ cp -1))) - ((= cp 42651) (integer->char (+ cp -1))) - ((= cp 42787) (integer->char (+ cp -1))) - ((= cp 42789) (integer->char (+ cp -1))) - ((= cp 42791) (integer->char (+ cp -1))) - ((= cp 42793) (integer->char (+ cp -1))) - ((= cp 42795) (integer->char (+ cp -1))) - ((= cp 42797) (integer->char (+ cp -1))) - ((= cp 42799) (integer->char (+ cp -1))) - ((= cp 42803) (integer->char (+ cp -1))) - ((= cp 42805) (integer->char (+ cp -1))) - ((= cp 42807) (integer->char (+ cp -1))) - ((= cp 42809) (integer->char (+ cp -1))) - ((= cp 42811) (integer->char (+ cp -1))) - ((= cp 42813) (integer->char (+ cp -1))) - ((= cp 42815) (integer->char (+ cp -1))) - ((= cp 42817) (integer->char (+ cp -1))) - ((= cp 42819) (integer->char (+ cp -1))) - ((= cp 42821) (integer->char (+ cp -1))) - ((= cp 42823) (integer->char (+ cp -1))) - ((= cp 42825) (integer->char (+ cp -1))) - ((= cp 42827) (integer->char (+ cp -1))) - ((= cp 42829) (integer->char (+ cp -1))) - ((= cp 42831) (integer->char (+ cp -1))) - ((= cp 42833) (integer->char (+ cp -1))) - ((= cp 42835) (integer->char (+ cp -1))) - ((= cp 42837) (integer->char (+ cp -1))) - ((= cp 42839) (integer->char (+ cp -1))) - ((= cp 42841) (integer->char (+ cp -1))) - ((= cp 42843) (integer->char (+ cp -1))) - ((= cp 42845) (integer->char (+ cp -1))) - ((= cp 42847) (integer->char (+ cp -1))) - ((= cp 42849) (integer->char (+ cp -1))) - ((= cp 42851) (integer->char (+ cp -1))) - ((= cp 42853) (integer->char (+ cp -1))) - ((= cp 42855) (integer->char (+ cp -1))) - ((= cp 42857) (integer->char (+ cp -1))) - ((= cp 42859) (integer->char (+ cp -1))) - ((= cp 42861) (integer->char (+ cp -1))) - ((= cp 42863) (integer->char (+ cp -1))) - ((= cp 42874) (integer->char (+ cp -1))) - ((= cp 42876) (integer->char (+ cp -1))) - ((= cp 42879) (integer->char (+ cp -1))) - ((= cp 42881) (integer->char (+ cp -1))) - ((= cp 42883) (integer->char (+ cp -1))) - ((= cp 42885) (integer->char (+ cp -1))) - ((= cp 42887) (integer->char (+ cp -1))) - ((= cp 42892) (integer->char (+ cp -1))) - ((= cp 42897) (integer->char (+ cp -1))) - ((= cp 42899) (integer->char (+ cp -1))) - ((= cp 42900) (integer->char (+ cp 48))) - ((= cp 42903) (integer->char (+ cp -1))) - ((= cp 42905) (integer->char (+ cp -1))) - ((= cp 42907) (integer->char (+ cp -1))) - ((= cp 42909) (integer->char (+ cp -1))) - ((= cp 42911) (integer->char (+ cp -1))) - ((= cp 42913) (integer->char (+ cp -1))) - ((= cp 42915) (integer->char (+ cp -1))) - ((= cp 42917) (integer->char (+ cp -1))) - ((= cp 42919) (integer->char (+ cp -1))) - ((= cp 42921) (integer->char (+ cp -1))) - ((= cp 42933) (integer->char (+ cp -1))) - ((= cp 42935) (integer->char (+ cp -1))) - ((= cp 42937) (integer->char (+ cp -1))) - ((= cp 42939) (integer->char (+ cp -1))) - ((= cp 42941) (integer->char (+ cp -1))) - ((= cp 42943) (integer->char (+ cp -1))) - ((= cp 42945) (integer->char (+ cp -1))) - ((= cp 42947) (integer->char (+ cp -1))) - ((= cp 42952) (integer->char (+ cp -1))) - ((= cp 42954) (integer->char (+ cp -1))) - ((= cp 42957) (integer->char (+ cp -1))) - ((= cp 42961) (integer->char (+ cp -1))) - ((= cp 42967) (integer->char (+ cp -1))) - ((= cp 42969) (integer->char (+ cp -1))) - ((= cp 42971) (integer->char (+ cp -1))) - ((= cp 42998) (integer->char (+ cp -1))) - ((= cp 43859) (integer->char (+ cp -928))) - ((<= 43888 cp 43967) (integer->char (+ cp -38864))) - ((<= 65345 cp 65370) (integer->char (+ cp -32))) - ((<= 66600 cp 66639) (integer->char (+ cp -40))) - ((<= 66776 cp 66811) (integer->char (+ cp -40))) - ((<= 66967 cp 66977) (integer->char (+ cp -39))) - ((<= 66979 cp 66993) (integer->char (+ cp -39))) - ((<= 66995 cp 67001) (integer->char (+ cp -39))) - ((<= 67003 cp 67004) (integer->char (+ cp -39))) - ((<= 68800 cp 68850) (integer->char (+ cp -64))) - ((<= 68976 cp 68997) (integer->char (+ cp -32))) - ((<= 71872 cp 71903) (integer->char (+ cp -32))) - ((<= 93792 cp 93823) (integer->char (+ cp -32))) - ((<= 125218 cp 125251) (integer->char (+ cp -34))) - (else char) - ) ;cond + (let ((result (hash-table-ref *char-upcase-ht* cp))) + (if result (integer->char result) char) + ) ;let ) ;let ) ;define @@ -771,682 +82,9 @@ (error 'type-error "char-downcase: parameter must be character") ) ;unless (let ((cp (char->integer char))) - (cond ((<= 65 cp 90) (integer->char (+ cp 32))) - ((<= 192 cp 214) (integer->char (+ cp 32))) - ((<= 216 cp 222) (integer->char (+ cp 32))) - ((= cp 256) (integer->char (+ cp 1))) - ((= cp 258) (integer->char (+ cp 1))) - ((= cp 260) (integer->char (+ cp 1))) - ((= cp 262) (integer->char (+ cp 1))) - ((= cp 264) (integer->char (+ cp 1))) - ((= cp 266) (integer->char (+ cp 1))) - ((= cp 268) (integer->char (+ cp 1))) - ((= cp 270) (integer->char (+ cp 1))) - ((= cp 272) (integer->char (+ cp 1))) - ((= cp 274) (integer->char (+ cp 1))) - ((= cp 276) (integer->char (+ cp 1))) - ((= cp 278) (integer->char (+ cp 1))) - ((= cp 280) (integer->char (+ cp 1))) - ((= cp 282) (integer->char (+ cp 1))) - ((= cp 284) (integer->char (+ cp 1))) - ((= cp 286) (integer->char (+ cp 1))) - ((= cp 288) (integer->char (+ cp 1))) - ((= cp 290) (integer->char (+ cp 1))) - ((= cp 292) (integer->char (+ cp 1))) - ((= cp 294) (integer->char (+ cp 1))) - ((= cp 296) (integer->char (+ cp 1))) - ((= cp 298) (integer->char (+ cp 1))) - ((= cp 300) (integer->char (+ cp 1))) - ((= cp 302) (integer->char (+ cp 1))) - ((= cp 304) (integer->char (+ cp -199))) - ((= cp 306) (integer->char (+ cp 1))) - ((= cp 308) (integer->char (+ cp 1))) - ((= cp 310) (integer->char (+ cp 1))) - ((= cp 313) (integer->char (+ cp 1))) - ((= cp 315) (integer->char (+ cp 1))) - ((= cp 317) (integer->char (+ cp 1))) - ((= cp 319) (integer->char (+ cp 1))) - ((= cp 321) (integer->char (+ cp 1))) - ((= cp 323) (integer->char (+ cp 1))) - ((= cp 325) (integer->char (+ cp 1))) - ((= cp 327) (integer->char (+ cp 1))) - ((= cp 330) (integer->char (+ cp 1))) - ((= cp 332) (integer->char (+ cp 1))) - ((= cp 334) (integer->char (+ cp 1))) - ((= cp 336) (integer->char (+ cp 1))) - ((= cp 338) (integer->char (+ cp 1))) - ((= cp 340) (integer->char (+ cp 1))) - ((= cp 342) (integer->char (+ cp 1))) - ((= cp 344) (integer->char (+ cp 1))) - ((= cp 346) (integer->char (+ cp 1))) - ((= cp 348) (integer->char (+ cp 1))) - ((= cp 350) (integer->char (+ cp 1))) - ((= cp 352) (integer->char (+ cp 1))) - ((= cp 354) (integer->char (+ cp 1))) - ((= cp 356) (integer->char (+ cp 1))) - ((= cp 358) (integer->char (+ cp 1))) - ((= cp 360) (integer->char (+ cp 1))) - ((= cp 362) (integer->char (+ cp 1))) - ((= cp 364) (integer->char (+ cp 1))) - ((= cp 366) (integer->char (+ cp 1))) - ((= cp 368) (integer->char (+ cp 1))) - ((= cp 370) (integer->char (+ cp 1))) - ((= cp 372) (integer->char (+ cp 1))) - ((= cp 374) (integer->char (+ cp 1))) - ((= cp 376) (integer->char (+ cp -121))) - ((= cp 377) (integer->char (+ cp 1))) - ((= cp 379) (integer->char (+ cp 1))) - ((= cp 381) (integer->char (+ cp 1))) - ((= cp 385) (integer->char (+ cp 210))) - ((= cp 386) (integer->char (+ cp 1))) - ((= cp 388) (integer->char (+ cp 1))) - ((= cp 390) (integer->char (+ cp 206))) - ((= cp 391) (integer->char (+ cp 1))) - ((<= 393 cp 394) (integer->char (+ cp 205))) - ((= cp 395) (integer->char (+ cp 1))) - ((= cp 398) (integer->char (+ cp 79))) - ((= cp 399) (integer->char (+ cp 202))) - ((= cp 400) (integer->char (+ cp 203))) - ((= cp 401) (integer->char (+ cp 1))) - ((= cp 403) (integer->char (+ cp 205))) - ((= cp 404) (integer->char (+ cp 207))) - ((= cp 406) (integer->char (+ cp 211))) - ((= cp 407) (integer->char (+ cp 209))) - ((= cp 408) (integer->char (+ cp 1))) - ((= cp 412) (integer->char (+ cp 211))) - ((= cp 413) (integer->char (+ cp 213))) - ((= cp 415) (integer->char (+ cp 214))) - ((= cp 416) (integer->char (+ cp 1))) - ((= cp 418) (integer->char (+ cp 1))) - ((= cp 420) (integer->char (+ cp 1))) - ((= cp 422) (integer->char (+ cp 218))) - ((= cp 423) (integer->char (+ cp 1))) - ((= cp 425) (integer->char (+ cp 218))) - ((= cp 428) (integer->char (+ cp 1))) - ((= cp 430) (integer->char (+ cp 218))) - ((= cp 431) (integer->char (+ cp 1))) - ((<= 433 cp 434) (integer->char (+ cp 217))) - ((= cp 435) (integer->char (+ cp 1))) - ((= cp 437) (integer->char (+ cp 1))) - ((= cp 439) (integer->char (+ cp 219))) - ((= cp 440) (integer->char (+ cp 1))) - ((= cp 444) (integer->char (+ cp 1))) - ((= cp 452) (integer->char (+ cp 2))) - ((= cp 453) (integer->char (+ cp 1))) - ((= cp 455) (integer->char (+ cp 2))) - ((= cp 456) (integer->char (+ cp 1))) - ((= cp 458) (integer->char (+ cp 2))) - ((= cp 459) (integer->char (+ cp 1))) - ((= cp 461) (integer->char (+ cp 1))) - ((= cp 463) (integer->char (+ cp 1))) - ((= cp 465) (integer->char (+ cp 1))) - ((= cp 467) (integer->char (+ cp 1))) - ((= cp 469) (integer->char (+ cp 1))) - ((= cp 471) (integer->char (+ cp 1))) - ((= cp 473) (integer->char (+ cp 1))) - ((= cp 475) (integer->char (+ cp 1))) - ((= cp 478) (integer->char (+ cp 1))) - ((= cp 480) (integer->char (+ cp 1))) - ((= cp 482) (integer->char (+ cp 1))) - ((= cp 484) (integer->char (+ cp 1))) - ((= cp 486) (integer->char (+ cp 1))) - ((= cp 488) (integer->char (+ cp 1))) - ((= cp 490) (integer->char (+ cp 1))) - ((= cp 492) (integer->char (+ cp 1))) - ((= cp 494) (integer->char (+ cp 1))) - ((= cp 497) (integer->char (+ cp 2))) - ((= cp 498) (integer->char (+ cp 1))) - ((= cp 500) (integer->char (+ cp 1))) - ((= cp 502) (integer->char (+ cp -97))) - ((= cp 503) (integer->char (+ cp -56))) - ((= cp 504) (integer->char (+ cp 1))) - ((= cp 506) (integer->char (+ cp 1))) - ((= cp 508) (integer->char (+ cp 1))) - ((= cp 510) (integer->char (+ cp 1))) - ((= cp 512) (integer->char (+ cp 1))) - ((= cp 514) (integer->char (+ cp 1))) - ((= cp 516) (integer->char (+ cp 1))) - ((= cp 518) (integer->char (+ cp 1))) - ((= cp 520) (integer->char (+ cp 1))) - ((= cp 522) (integer->char (+ cp 1))) - ((= cp 524) (integer->char (+ cp 1))) - ((= cp 526) (integer->char (+ cp 1))) - ((= cp 528) (integer->char (+ cp 1))) - ((= cp 530) (integer->char (+ cp 1))) - ((= cp 532) (integer->char (+ cp 1))) - ((= cp 534) (integer->char (+ cp 1))) - ((= cp 536) (integer->char (+ cp 1))) - ((= cp 538) (integer->char (+ cp 1))) - ((= cp 540) (integer->char (+ cp 1))) - ((= cp 542) (integer->char (+ cp 1))) - ((= cp 544) (integer->char (+ cp -130))) - ((= cp 546) (integer->char (+ cp 1))) - ((= cp 548) (integer->char (+ cp 1))) - ((= cp 550) (integer->char (+ cp 1))) - ((= cp 552) (integer->char (+ cp 1))) - ((= cp 554) (integer->char (+ cp 1))) - ((= cp 556) (integer->char (+ cp 1))) - ((= cp 558) (integer->char (+ cp 1))) - ((= cp 560) (integer->char (+ cp 1))) - ((= cp 562) (integer->char (+ cp 1))) - ((= cp 570) (integer->char (+ cp 10795))) - ((= cp 571) (integer->char (+ cp 1))) - ((= cp 573) (integer->char (+ cp -163))) - ((= cp 574) (integer->char (+ cp 10792))) - ((= cp 577) (integer->char (+ cp 1))) - ((= cp 579) (integer->char (+ cp -195))) - ((= cp 580) (integer->char (+ cp 69))) - ((= cp 581) (integer->char (+ cp 71))) - ((= cp 582) (integer->char (+ cp 1))) - ((= cp 584) (integer->char (+ cp 1))) - ((= cp 586) (integer->char (+ cp 1))) - ((= cp 588) (integer->char (+ cp 1))) - ((= cp 590) (integer->char (+ cp 1))) - ((= cp 880) (integer->char (+ cp 1))) - ((= cp 882) (integer->char (+ cp 1))) - ((= cp 886) (integer->char (+ cp 1))) - ((= cp 895) (integer->char (+ cp 116))) - ((= cp 902) (integer->char (+ cp 38))) - ((<= 904 cp 906) (integer->char (+ cp 37))) - ((= cp 908) (integer->char (+ cp 64))) - ((<= 910 cp 911) (integer->char (+ cp 63))) - ((<= 913 cp 929) (integer->char (+ cp 32))) - ((<= 931 cp 939) (integer->char (+ cp 32))) - ((= cp 975) (integer->char (+ cp 8))) - ((= cp 984) (integer->char (+ cp 1))) - ((= cp 986) (integer->char (+ cp 1))) - ((= cp 988) (integer->char (+ cp 1))) - ((= cp 990) (integer->char (+ cp 1))) - ((= cp 992) (integer->char (+ cp 1))) - ((= cp 994) (integer->char (+ cp 1))) - ((= cp 996) (integer->char (+ cp 1))) - ((= cp 998) (integer->char (+ cp 1))) - ((= cp 1000) (integer->char (+ cp 1))) - ((= cp 1002) (integer->char (+ cp 1))) - ((= cp 1004) (integer->char (+ cp 1))) - ((= cp 1006) (integer->char (+ cp 1))) - ((= cp 1012) (integer->char (+ cp -60))) - ((= cp 1015) (integer->char (+ cp 1))) - ((= cp 1017) (integer->char (+ cp -7))) - ((= cp 1018) (integer->char (+ cp 1))) - ((<= 1021 cp 1023) (integer->char (+ cp -130))) - ((<= 1024 cp 1039) (integer->char (+ cp 80))) - ((<= 1040 cp 1071) (integer->char (+ cp 32))) - ((= cp 1120) (integer->char (+ cp 1))) - ((= cp 1122) (integer->char (+ cp 1))) - ((= cp 1124) (integer->char (+ cp 1))) - ((= cp 1126) (integer->char (+ cp 1))) - ((= cp 1128) (integer->char (+ cp 1))) - ((= cp 1130) (integer->char (+ cp 1))) - ((= cp 1132) (integer->char (+ cp 1))) - ((= cp 1134) (integer->char (+ cp 1))) - ((= cp 1136) (integer->char (+ cp 1))) - ((= cp 1138) (integer->char (+ cp 1))) - ((= cp 1140) (integer->char (+ cp 1))) - ((= cp 1142) (integer->char (+ cp 1))) - ((= cp 1144) (integer->char (+ cp 1))) - ((= cp 1146) (integer->char (+ cp 1))) - ((= cp 1148) (integer->char (+ cp 1))) - ((= cp 1150) (integer->char (+ cp 1))) - ((= cp 1152) (integer->char (+ cp 1))) - ((= cp 1162) (integer->char (+ cp 1))) - ((= cp 1164) (integer->char (+ cp 1))) - ((= cp 1166) (integer->char (+ cp 1))) - ((= cp 1168) (integer->char (+ cp 1))) - ((= cp 1170) (integer->char (+ cp 1))) - ((= cp 1172) (integer->char (+ cp 1))) - ((= cp 1174) (integer->char (+ cp 1))) - ((= cp 1176) (integer->char (+ cp 1))) - ((= cp 1178) (integer->char (+ cp 1))) - ((= cp 1180) (integer->char (+ cp 1))) - ((= cp 1182) (integer->char (+ cp 1))) - ((= cp 1184) (integer->char (+ cp 1))) - ((= cp 1186) (integer->char (+ cp 1))) - ((= cp 1188) (integer->char (+ cp 1))) - ((= cp 1190) (integer->char (+ cp 1))) - ((= cp 1192) (integer->char (+ cp 1))) - ((= cp 1194) (integer->char (+ cp 1))) - ((= cp 1196) (integer->char (+ cp 1))) - ((= cp 1198) (integer->char (+ cp 1))) - ((= cp 1200) (integer->char (+ cp 1))) - ((= cp 1202) (integer->char (+ cp 1))) - ((= cp 1204) (integer->char (+ cp 1))) - ((= cp 1206) (integer->char (+ cp 1))) - ((= cp 1208) (integer->char (+ cp 1))) - ((= cp 1210) (integer->char (+ cp 1))) - ((= cp 1212) (integer->char (+ cp 1))) - ((= cp 1214) (integer->char (+ cp 1))) - ((= cp 1216) (integer->char (+ cp 15))) - ((= cp 1217) (integer->char (+ cp 1))) - ((= cp 1219) (integer->char (+ cp 1))) - ((= cp 1221) (integer->char (+ cp 1))) - ((= cp 1223) (integer->char (+ cp 1))) - ((= cp 1225) (integer->char (+ cp 1))) - ((= cp 1227) (integer->char (+ cp 1))) - ((= cp 1229) (integer->char (+ cp 1))) - ((= cp 1232) (integer->char (+ cp 1))) - ((= cp 1234) (integer->char (+ cp 1))) - ((= cp 1236) (integer->char (+ cp 1))) - ((= cp 1238) (integer->char (+ cp 1))) - ((= cp 1240) (integer->char (+ cp 1))) - ((= cp 1242) (integer->char (+ cp 1))) - ((= cp 1244) (integer->char (+ cp 1))) - ((= cp 1246) (integer->char (+ cp 1))) - ((= cp 1248) (integer->char (+ cp 1))) - ((= cp 1250) (integer->char (+ cp 1))) - ((= cp 1252) (integer->char (+ cp 1))) - ((= cp 1254) (integer->char (+ cp 1))) - ((= cp 1256) (integer->char (+ cp 1))) - ((= cp 1258) (integer->char (+ cp 1))) - ((= cp 1260) (integer->char (+ cp 1))) - ((= cp 1262) (integer->char (+ cp 1))) - ((= cp 1264) (integer->char (+ cp 1))) - ((= cp 1266) (integer->char (+ cp 1))) - ((= cp 1268) (integer->char (+ cp 1))) - ((= cp 1270) (integer->char (+ cp 1))) - ((= cp 1272) (integer->char (+ cp 1))) - ((= cp 1274) (integer->char (+ cp 1))) - ((= cp 1276) (integer->char (+ cp 1))) - ((= cp 1278) (integer->char (+ cp 1))) - ((= cp 1280) (integer->char (+ cp 1))) - ((= cp 1282) (integer->char (+ cp 1))) - ((= cp 1284) (integer->char (+ cp 1))) - ((= cp 1286) (integer->char (+ cp 1))) - ((= cp 1288) (integer->char (+ cp 1))) - ((= cp 1290) (integer->char (+ cp 1))) - ((= cp 1292) (integer->char (+ cp 1))) - ((= cp 1294) (integer->char (+ cp 1))) - ((= cp 1296) (integer->char (+ cp 1))) - ((= cp 1298) (integer->char (+ cp 1))) - ((= cp 1300) (integer->char (+ cp 1))) - ((= cp 1302) (integer->char (+ cp 1))) - ((= cp 1304) (integer->char (+ cp 1))) - ((= cp 1306) (integer->char (+ cp 1))) - ((= cp 1308) (integer->char (+ cp 1))) - ((= cp 1310) (integer->char (+ cp 1))) - ((= cp 1312) (integer->char (+ cp 1))) - ((= cp 1314) (integer->char (+ cp 1))) - ((= cp 1316) (integer->char (+ cp 1))) - ((= cp 1318) (integer->char (+ cp 1))) - ((= cp 1320) (integer->char (+ cp 1))) - ((= cp 1322) (integer->char (+ cp 1))) - ((= cp 1324) (integer->char (+ cp 1))) - ((= cp 1326) (integer->char (+ cp 1))) - ((<= 1329 cp 1366) (integer->char (+ cp 48))) - ((<= 4256 cp 4293) (integer->char (+ cp 7264))) - ((= cp 4295) (integer->char (+ cp 7264))) - ((= cp 4301) (integer->char (+ cp 7264))) - ((<= 5024 cp 5103) (integer->char (+ cp 38864))) - ((<= 5104 cp 5109) (integer->char (+ cp 8))) - ((= cp 7305) (integer->char (+ cp 1))) - ((<= 7312 cp 7354) (integer->char (+ cp -3008))) - ((<= 7357 cp 7359) (integer->char (+ cp -3008))) - ((= cp 7680) (integer->char (+ cp 1))) - ((= cp 7682) (integer->char (+ cp 1))) - ((= cp 7684) (integer->char (+ cp 1))) - ((= cp 7686) (integer->char (+ cp 1))) - ((= cp 7688) (integer->char (+ cp 1))) - ((= cp 7690) (integer->char (+ cp 1))) - ((= cp 7692) (integer->char (+ cp 1))) - ((= cp 7694) (integer->char (+ cp 1))) - ((= cp 7696) (integer->char (+ cp 1))) - ((= cp 7698) (integer->char (+ cp 1))) - ((= cp 7700) (integer->char (+ cp 1))) - ((= cp 7702) (integer->char (+ cp 1))) - ((= cp 7704) (integer->char (+ cp 1))) - ((= cp 7706) (integer->char (+ cp 1))) - ((= cp 7708) (integer->char (+ cp 1))) - ((= cp 7710) (integer->char (+ cp 1))) - ((= cp 7712) (integer->char (+ cp 1))) - ((= cp 7714) (integer->char (+ cp 1))) - ((= cp 7716) (integer->char (+ cp 1))) - ((= cp 7718) (integer->char (+ cp 1))) - ((= cp 7720) (integer->char (+ cp 1))) - ((= cp 7722) (integer->char (+ cp 1))) - ((= cp 7724) (integer->char (+ cp 1))) - ((= cp 7726) (integer->char (+ cp 1))) - ((= cp 7728) (integer->char (+ cp 1))) - ((= cp 7730) (integer->char (+ cp 1))) - ((= cp 7732) (integer->char (+ cp 1))) - ((= cp 7734) (integer->char (+ cp 1))) - ((= cp 7736) (integer->char (+ cp 1))) - ((= cp 7738) (integer->char (+ cp 1))) - ((= cp 7740) (integer->char (+ cp 1))) - ((= cp 7742) (integer->char (+ cp 1))) - ((= cp 7744) (integer->char (+ cp 1))) - ((= cp 7746) (integer->char (+ cp 1))) - ((= cp 7748) (integer->char (+ cp 1))) - ((= cp 7750) (integer->char (+ cp 1))) - ((= cp 7752) (integer->char (+ cp 1))) - ((= cp 7754) (integer->char (+ cp 1))) - ((= cp 7756) (integer->char (+ cp 1))) - ((= cp 7758) (integer->char (+ cp 1))) - ((= cp 7760) (integer->char (+ cp 1))) - ((= cp 7762) (integer->char (+ cp 1))) - ((= cp 7764) (integer->char (+ cp 1))) - ((= cp 7766) (integer->char (+ cp 1))) - ((= cp 7768) (integer->char (+ cp 1))) - ((= cp 7770) (integer->char (+ cp 1))) - ((= cp 7772) (integer->char (+ cp 1))) - ((= cp 7774) (integer->char (+ cp 1))) - ((= cp 7776) (integer->char (+ cp 1))) - ((= cp 7778) (integer->char (+ cp 1))) - ((= cp 7780) (integer->char (+ cp 1))) - ((= cp 7782) (integer->char (+ cp 1))) - ((= cp 7784) (integer->char (+ cp 1))) - ((= cp 7786) (integer->char (+ cp 1))) - ((= cp 7788) (integer->char (+ cp 1))) - ((= cp 7790) (integer->char (+ cp 1))) - ((= cp 7792) (integer->char (+ cp 1))) - ((= cp 7794) (integer->char (+ cp 1))) - ((= cp 7796) (integer->char (+ cp 1))) - ((= cp 7798) (integer->char (+ cp 1))) - ((= cp 7800) (integer->char (+ cp 1))) - ((= cp 7802) (integer->char (+ cp 1))) - ((= cp 7804) (integer->char (+ cp 1))) - ((= cp 7806) (integer->char (+ cp 1))) - ((= cp 7808) (integer->char (+ cp 1))) - ((= cp 7810) (integer->char (+ cp 1))) - ((= cp 7812) (integer->char (+ cp 1))) - ((= cp 7814) (integer->char (+ cp 1))) - ((= cp 7816) (integer->char (+ cp 1))) - ((= cp 7818) (integer->char (+ cp 1))) - ((= cp 7820) (integer->char (+ cp 1))) - ((= cp 7822) (integer->char (+ cp 1))) - ((= cp 7824) (integer->char (+ cp 1))) - ((= cp 7826) (integer->char (+ cp 1))) - ((= cp 7828) (integer->char (+ cp 1))) - ((= cp 7838) (integer->char (+ cp -7615))) - ((= cp 7840) (integer->char (+ cp 1))) - ((= cp 7842) (integer->char (+ cp 1))) - ((= cp 7844) (integer->char (+ cp 1))) - ((= cp 7846) (integer->char (+ cp 1))) - ((= cp 7848) (integer->char (+ cp 1))) - ((= cp 7850) (integer->char (+ cp 1))) - ((= cp 7852) (integer->char (+ cp 1))) - ((= cp 7854) (integer->char (+ cp 1))) - ((= cp 7856) (integer->char (+ cp 1))) - ((= cp 7858) (integer->char (+ cp 1))) - ((= cp 7860) (integer->char (+ cp 1))) - ((= cp 7862) (integer->char (+ cp 1))) - ((= cp 7864) (integer->char (+ cp 1))) - ((= cp 7866) (integer->char (+ cp 1))) - ((= cp 7868) (integer->char (+ cp 1))) - ((= cp 7870) (integer->char (+ cp 1))) - ((= cp 7872) (integer->char (+ cp 1))) - ((= cp 7874) (integer->char (+ cp 1))) - ((= cp 7876) (integer->char (+ cp 1))) - ((= cp 7878) (integer->char (+ cp 1))) - ((= cp 7880) (integer->char (+ cp 1))) - ((= cp 7882) (integer->char (+ cp 1))) - ((= cp 7884) (integer->char (+ cp 1))) - ((= cp 7886) (integer->char (+ cp 1))) - ((= cp 7888) (integer->char (+ cp 1))) - ((= cp 7890) (integer->char (+ cp 1))) - ((= cp 7892) (integer->char (+ cp 1))) - ((= cp 7894) (integer->char (+ cp 1))) - ((= cp 7896) (integer->char (+ cp 1))) - ((= cp 7898) (integer->char (+ cp 1))) - ((= cp 7900) (integer->char (+ cp 1))) - ((= cp 7902) (integer->char (+ cp 1))) - ((= cp 7904) (integer->char (+ cp 1))) - ((= cp 7906) (integer->char (+ cp 1))) - ((= cp 7908) (integer->char (+ cp 1))) - ((= cp 7910) (integer->char (+ cp 1))) - ((= cp 7912) (integer->char (+ cp 1))) - ((= cp 7914) (integer->char (+ cp 1))) - ((= cp 7916) (integer->char (+ cp 1))) - ((= cp 7918) (integer->char (+ cp 1))) - ((= cp 7920) (integer->char (+ cp 1))) - ((= cp 7922) (integer->char (+ cp 1))) - ((= cp 7924) (integer->char (+ cp 1))) - ((= cp 7926) (integer->char (+ cp 1))) - ((= cp 7928) (integer->char (+ cp 1))) - ((= cp 7930) (integer->char (+ cp 1))) - ((= cp 7932) (integer->char (+ cp 1))) - ((= cp 7934) (integer->char (+ cp 1))) - ((<= 7944 cp 7951) (integer->char (+ cp -8))) - ((<= 7960 cp 7965) (integer->char (+ cp -8))) - ((<= 7976 cp 7983) (integer->char (+ cp -8))) - ((<= 7992 cp 7999) (integer->char (+ cp -8))) - ((<= 8008 cp 8013) (integer->char (+ cp -8))) - ((= cp 8025) (integer->char (+ cp -8))) - ((= cp 8027) (integer->char (+ cp -8))) - ((= cp 8029) (integer->char (+ cp -8))) - ((= cp 8031) (integer->char (+ cp -8))) - ((<= 8040 cp 8047) (integer->char (+ cp -8))) - ((<= 8072 cp 8079) (integer->char (+ cp -8))) - ((<= 8088 cp 8095) (integer->char (+ cp -8))) - ((<= 8104 cp 8111) (integer->char (+ cp -8))) - ((<= 8120 cp 8121) (integer->char (+ cp -8))) - ((<= 8122 cp 8123) (integer->char (+ cp -74))) - ((= cp 8124) (integer->char (+ cp -9))) - ((<= 8136 cp 8139) (integer->char (+ cp -86))) - ((= cp 8140) (integer->char (+ cp -9))) - ((<= 8152 cp 8153) (integer->char (+ cp -8))) - ((<= 8154 cp 8155) (integer->char (+ cp -100))) - ((<= 8168 cp 8169) (integer->char (+ cp -8))) - ((<= 8170 cp 8171) (integer->char (+ cp -112))) - ((= cp 8172) (integer->char (+ cp -7))) - ((<= 8184 cp 8185) (integer->char (+ cp -128))) - ((<= 8186 cp 8187) (integer->char (+ cp -126))) - ((= cp 8188) (integer->char (+ cp -9))) - ((= cp 8486) (integer->char (+ cp -7517))) - ((= cp 8490) (integer->char (+ cp -8383))) - ((= cp 8491) (integer->char (+ cp -8262))) - ((= cp 8498) (integer->char (+ cp 28))) - ((<= 8544 cp 8559) (integer->char (+ cp 16))) - ((= cp 8579) (integer->char (+ cp 1))) - ((<= 9398 cp 9423) (integer->char (+ cp 26))) - ((<= 11264 cp 11311) (integer->char (+ cp 48))) - ((= cp 11360) (integer->char (+ cp 1))) - ((= cp 11362) (integer->char (+ cp -10743))) - ((= cp 11363) (integer->char (+ cp -3814))) - ((= cp 11364) (integer->char (+ cp -10727))) - ((= cp 11367) (integer->char (+ cp 1))) - ((= cp 11369) (integer->char (+ cp 1))) - ((= cp 11371) (integer->char (+ cp 1))) - ((= cp 11373) (integer->char (+ cp -10780))) - ((= cp 11374) (integer->char (+ cp -10749))) - ((= cp 11375) (integer->char (+ cp -10783))) - ((= cp 11376) (integer->char (+ cp -10782))) - ((= cp 11378) (integer->char (+ cp 1))) - ((= cp 11381) (integer->char (+ cp 1))) - ((<= 11390 cp 11391) (integer->char (+ cp -10815))) - ((= cp 11392) (integer->char (+ cp 1))) - ((= cp 11394) (integer->char (+ cp 1))) - ((= cp 11396) (integer->char (+ cp 1))) - ((= cp 11398) (integer->char (+ cp 1))) - ((= cp 11400) (integer->char (+ cp 1))) - ((= cp 11402) (integer->char (+ cp 1))) - ((= cp 11404) (integer->char (+ cp 1))) - ((= cp 11406) (integer->char (+ cp 1))) - ((= cp 11408) (integer->char (+ cp 1))) - ((= cp 11410) (integer->char (+ cp 1))) - ((= cp 11412) (integer->char (+ cp 1))) - ((= cp 11414) (integer->char (+ cp 1))) - ((= cp 11416) (integer->char (+ cp 1))) - ((= cp 11418) (integer->char (+ cp 1))) - ((= cp 11420) (integer->char (+ cp 1))) - ((= cp 11422) (integer->char (+ cp 1))) - ((= cp 11424) (integer->char (+ cp 1))) - ((= cp 11426) (integer->char (+ cp 1))) - ((= cp 11428) (integer->char (+ cp 1))) - ((= cp 11430) (integer->char (+ cp 1))) - ((= cp 11432) (integer->char (+ cp 1))) - ((= cp 11434) (integer->char (+ cp 1))) - ((= cp 11436) (integer->char (+ cp 1))) - ((= cp 11438) (integer->char (+ cp 1))) - ((= cp 11440) (integer->char (+ cp 1))) - ((= cp 11442) (integer->char (+ cp 1))) - ((= cp 11444) (integer->char (+ cp 1))) - ((= cp 11446) (integer->char (+ cp 1))) - ((= cp 11448) (integer->char (+ cp 1))) - ((= cp 11450) (integer->char (+ cp 1))) - ((= cp 11452) (integer->char (+ cp 1))) - ((= cp 11454) (integer->char (+ cp 1))) - ((= cp 11456) (integer->char (+ cp 1))) - ((= cp 11458) (integer->char (+ cp 1))) - ((= cp 11460) (integer->char (+ cp 1))) - ((= cp 11462) (integer->char (+ cp 1))) - ((= cp 11464) (integer->char (+ cp 1))) - ((= cp 11466) (integer->char (+ cp 1))) - ((= cp 11468) (integer->char (+ cp 1))) - ((= cp 11470) (integer->char (+ cp 1))) - ((= cp 11472) (integer->char (+ cp 1))) - ((= cp 11474) (integer->char (+ cp 1))) - ((= cp 11476) (integer->char (+ cp 1))) - ((= cp 11478) (integer->char (+ cp 1))) - ((= cp 11480) (integer->char (+ cp 1))) - ((= cp 11482) (integer->char (+ cp 1))) - ((= cp 11484) (integer->char (+ cp 1))) - ((= cp 11486) (integer->char (+ cp 1))) - ((= cp 11488) (integer->char (+ cp 1))) - ((= cp 11490) (integer->char (+ cp 1))) - ((= cp 11499) (integer->char (+ cp 1))) - ((= cp 11501) (integer->char (+ cp 1))) - ((= cp 11506) (integer->char (+ cp 1))) - ((= cp 42560) (integer->char (+ cp 1))) - ((= cp 42562) (integer->char (+ cp 1))) - ((= cp 42564) (integer->char (+ cp 1))) - ((= cp 42566) (integer->char (+ cp 1))) - ((= cp 42568) (integer->char (+ cp 1))) - ((= cp 42570) (integer->char (+ cp 1))) - ((= cp 42572) (integer->char (+ cp 1))) - ((= cp 42574) (integer->char (+ cp 1))) - ((= cp 42576) (integer->char (+ cp 1))) - ((= cp 42578) (integer->char (+ cp 1))) - ((= cp 42580) (integer->char (+ cp 1))) - ((= cp 42582) (integer->char (+ cp 1))) - ((= cp 42584) (integer->char (+ cp 1))) - ((= cp 42586) (integer->char (+ cp 1))) - ((= cp 42588) (integer->char (+ cp 1))) - ((= cp 42590) (integer->char (+ cp 1))) - ((= cp 42592) (integer->char (+ cp 1))) - ((= cp 42594) (integer->char (+ cp 1))) - ((= cp 42596) (integer->char (+ cp 1))) - ((= cp 42598) (integer->char (+ cp 1))) - ((= cp 42600) (integer->char (+ cp 1))) - ((= cp 42602) (integer->char (+ cp 1))) - ((= cp 42604) (integer->char (+ cp 1))) - ((= cp 42624) (integer->char (+ cp 1))) - ((= cp 42626) (integer->char (+ cp 1))) - ((= cp 42628) (integer->char (+ cp 1))) - ((= cp 42630) (integer->char (+ cp 1))) - ((= cp 42632) (integer->char (+ cp 1))) - ((= cp 42634) (integer->char (+ cp 1))) - ((= cp 42636) (integer->char (+ cp 1))) - ((= cp 42638) (integer->char (+ cp 1))) - ((= cp 42640) (integer->char (+ cp 1))) - ((= cp 42642) (integer->char (+ cp 1))) - ((= cp 42644) (integer->char (+ cp 1))) - ((= cp 42646) (integer->char (+ cp 1))) - ((= cp 42648) (integer->char (+ cp 1))) - ((= cp 42650) (integer->char (+ cp 1))) - ((= cp 42786) (integer->char (+ cp 1))) - ((= cp 42788) (integer->char (+ cp 1))) - ((= cp 42790) (integer->char (+ cp 1))) - ((= cp 42792) (integer->char (+ cp 1))) - ((= cp 42794) (integer->char (+ cp 1))) - ((= cp 42796) (integer->char (+ cp 1))) - ((= cp 42798) (integer->char (+ cp 1))) - ((= cp 42802) (integer->char (+ cp 1))) - ((= cp 42804) (integer->char (+ cp 1))) - ((= cp 42806) (integer->char (+ cp 1))) - ((= cp 42808) (integer->char (+ cp 1))) - ((= cp 42810) (integer->char (+ cp 1))) - ((= cp 42812) (integer->char (+ cp 1))) - ((= cp 42814) (integer->char (+ cp 1))) - ((= cp 42816) (integer->char (+ cp 1))) - ((= cp 42818) (integer->char (+ cp 1))) - ((= cp 42820) (integer->char (+ cp 1))) - ((= cp 42822) (integer->char (+ cp 1))) - ((= cp 42824) (integer->char (+ cp 1))) - ((= cp 42826) (integer->char (+ cp 1))) - ((= cp 42828) (integer->char (+ cp 1))) - ((= cp 42830) (integer->char (+ cp 1))) - ((= cp 42832) (integer->char (+ cp 1))) - ((= cp 42834) (integer->char (+ cp 1))) - ((= cp 42836) (integer->char (+ cp 1))) - ((= cp 42838) (integer->char (+ cp 1))) - ((= cp 42840) (integer->char (+ cp 1))) - ((= cp 42842) (integer->char (+ cp 1))) - ((= cp 42844) (integer->char (+ cp 1))) - ((= cp 42846) (integer->char (+ cp 1))) - ((= cp 42848) (integer->char (+ cp 1))) - ((= cp 42850) (integer->char (+ cp 1))) - ((= cp 42852) (integer->char (+ cp 1))) - ((= cp 42854) (integer->char (+ cp 1))) - ((= cp 42856) (integer->char (+ cp 1))) - ((= cp 42858) (integer->char (+ cp 1))) - ((= cp 42860) (integer->char (+ cp 1))) - ((= cp 42862) (integer->char (+ cp 1))) - ((= cp 42873) (integer->char (+ cp 1))) - ((= cp 42875) (integer->char (+ cp 1))) - ((= cp 42877) (integer->char (+ cp -35332))) - ((= cp 42878) (integer->char (+ cp 1))) - ((= cp 42880) (integer->char (+ cp 1))) - ((= cp 42882) (integer->char (+ cp 1))) - ((= cp 42884) (integer->char (+ cp 1))) - ((= cp 42886) (integer->char (+ cp 1))) - ((= cp 42891) (integer->char (+ cp 1))) - ((= cp 42893) (integer->char (+ cp -42280))) - ((= cp 42896) (integer->char (+ cp 1))) - ((= cp 42898) (integer->char (+ cp 1))) - ((= cp 42902) (integer->char (+ cp 1))) - ((= cp 42904) (integer->char (+ cp 1))) - ((= cp 42906) (integer->char (+ cp 1))) - ((= cp 42908) (integer->char (+ cp 1))) - ((= cp 42910) (integer->char (+ cp 1))) - ((= cp 42912) (integer->char (+ cp 1))) - ((= cp 42914) (integer->char (+ cp 1))) - ((= cp 42916) (integer->char (+ cp 1))) - ((= cp 42918) (integer->char (+ cp 1))) - ((= cp 42920) (integer->char (+ cp 1))) - ((= cp 42922) (integer->char (+ cp -42308))) - ((= cp 42923) (integer->char (+ cp -42319))) - ((= cp 42924) (integer->char (+ cp -42315))) - ((= cp 42925) (integer->char (+ cp -42305))) - ((= cp 42926) (integer->char (+ cp -42308))) - ((= cp 42928) (integer->char (+ cp -42258))) - ((= cp 42929) (integer->char (+ cp -42282))) - ((= cp 42930) (integer->char (+ cp -42261))) - ((= cp 42931) (integer->char (+ cp 928))) - ((= cp 42932) (integer->char (+ cp 1))) - ((= cp 42934) (integer->char (+ cp 1))) - ((= cp 42936) (integer->char (+ cp 1))) - ((= cp 42938) (integer->char (+ cp 1))) - ((= cp 42940) (integer->char (+ cp 1))) - ((= cp 42942) (integer->char (+ cp 1))) - ((= cp 42944) (integer->char (+ cp 1))) - ((= cp 42946) (integer->char (+ cp 1))) - ((= cp 42948) (integer->char (+ cp -48))) - ((= cp 42949) (integer->char (+ cp -42307))) - ((= cp 42950) (integer->char (+ cp -35384))) - ((= cp 42951) (integer->char (+ cp 1))) - ((= cp 42953) (integer->char (+ cp 1))) - ((= cp 42955) (integer->char (+ cp -42343))) - ((= cp 42956) (integer->char (+ cp 1))) - ((= cp 42960) (integer->char (+ cp 1))) - ((= cp 42966) (integer->char (+ cp 1))) - ((= cp 42968) (integer->char (+ cp 1))) - ((= cp 42970) (integer->char (+ cp 1))) - ((= cp 42972) (integer->char (+ cp -42561))) - ((= cp 42997) (integer->char (+ cp 1))) - ((<= 65313 cp 65338) (integer->char (+ cp 32))) - ((<= 66560 cp 66599) (integer->char (+ cp 40))) - ((<= 66736 cp 66771) (integer->char (+ cp 40))) - ((<= 66928 cp 66938) (integer->char (+ cp 39))) - ((<= 66940 cp 66954) (integer->char (+ cp 39))) - ((<= 66956 cp 66962) (integer->char (+ cp 39))) - ((<= 66964 cp 66965) (integer->char (+ cp 39))) - ((<= 68736 cp 68786) (integer->char (+ cp 64))) - ((<= 68944 cp 68965) (integer->char (+ cp 32))) - ((<= 71840 cp 71871) (integer->char (+ cp 32))) - ((<= 93760 cp 93791) (integer->char (+ cp 32))) - ((<= 125184 cp 125217) (integer->char (+ cp 34))) - (else char) - ) ;cond + (let ((result (hash-table-ref *char-downcase-ht* cp))) + (if result (integer->char result) char) + ) ;let ) ;let ) ;define @@ -1455,40 +93,1744 @@ (error 'type-error "char-foldcase: parameter must be character") ) ;unless (let ((cp (char->integer char))) - (cond ((= cp 181) (integer->char 956)) - ((= cp 304) (integer->char 304)) - ((= cp 383) (integer->char 115)) - ((= cp 837) (integer->char 953)) - ((= cp 962) (integer->char 963)) - ((= cp 976) (integer->char 946)) - ((= cp 977) (integer->char 952)) - ((= cp 981) (integer->char 966)) - ((= cp 982) (integer->char 960)) - ((= cp 1008) (integer->char 954)) - ((= cp 1009) (integer->char 961)) - ((= cp 1013) (integer->char 949)) - ((<= 5024 cp 5109) (integer->char cp)) - ((<= 5112 cp 5117) (integer->char (- cp 8))) - ((= cp 7296) (integer->char 1074)) - ((= cp 7297) (integer->char 1076)) - ((= cp 7298) (integer->char 1086)) - ((= cp 7299) (integer->char 1089)) - ((= cp 7300) (integer->char 1090)) - ((= cp 7301) (integer->char 1090)) - ((= cp 7302) (integer->char 1098)) - ((= cp 7303) (integer->char 1123)) - ((= cp 7304) (integer->char 42571)) - ((= cp 7835) (integer->char 7777)) - ((= cp 8126) (integer->char 953)) - ((= cp 8147) (integer->char 912)) - ((= cp 8163) (integer->char 944)) - ((<= 43888 cp 43967) (integer->char (- cp 38864))) - ((= cp 64261) (integer->char 64262)) - (else (char-downcase char)) - ) ;cond + (let ((result (hash-table-ref *char-foldcase-ht* cp))) + (if result (integer->char result) (char-downcase char)) + ) ;let ) ;let ) ;define + (unless (defined? '*char-upcase-ht*) + (define *char-upcase-ht* (s7-make-hash-table)) + ;; char-upcase hash-table initialization + (do ((i 97 (+ i 1))) + ((> i 122)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -32)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 181 (+ 181 743)) + (do ((i 224 (+ i 1))) + ((> i 246)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -32)) + ) ;do + (do ((i 248 (+ i 1))) + ((> i 254)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -32)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 255 (+ 255 121)) + (s7-hash-table-set! *char-upcase-ht* 257 (+ 257 -1)) + (s7-hash-table-set! *char-upcase-ht* 259 (+ 259 -1)) + (s7-hash-table-set! *char-upcase-ht* 261 (+ 261 -1)) + (s7-hash-table-set! *char-upcase-ht* 263 (+ 263 -1)) + (s7-hash-table-set! *char-upcase-ht* 265 (+ 265 -1)) + (s7-hash-table-set! *char-upcase-ht* 267 (+ 267 -1)) + (s7-hash-table-set! *char-upcase-ht* 269 (+ 269 -1)) + (s7-hash-table-set! *char-upcase-ht* 271 (+ 271 -1)) + (s7-hash-table-set! *char-upcase-ht* 273 (+ 273 -1)) + (s7-hash-table-set! *char-upcase-ht* 275 (+ 275 -1)) + (s7-hash-table-set! *char-upcase-ht* 277 (+ 277 -1)) + (s7-hash-table-set! *char-upcase-ht* 279 (+ 279 -1)) + (s7-hash-table-set! *char-upcase-ht* 281 (+ 281 -1)) + (s7-hash-table-set! *char-upcase-ht* 283 (+ 283 -1)) + (s7-hash-table-set! *char-upcase-ht* 285 (+ 285 -1)) + (s7-hash-table-set! *char-upcase-ht* 287 (+ 287 -1)) + (s7-hash-table-set! *char-upcase-ht* 289 (+ 289 -1)) + (s7-hash-table-set! *char-upcase-ht* 291 (+ 291 -1)) + (s7-hash-table-set! *char-upcase-ht* 293 (+ 293 -1)) + (s7-hash-table-set! *char-upcase-ht* 295 (+ 295 -1)) + (s7-hash-table-set! *char-upcase-ht* 297 (+ 297 -1)) + (s7-hash-table-set! *char-upcase-ht* 299 (+ 299 -1)) + (s7-hash-table-set! *char-upcase-ht* 301 (+ 301 -1)) + (s7-hash-table-set! *char-upcase-ht* 303 (+ 303 -1)) + (s7-hash-table-set! *char-upcase-ht* 305 (+ 305 -232)) + (s7-hash-table-set! *char-upcase-ht* 307 (+ 307 -1)) + (s7-hash-table-set! *char-upcase-ht* 309 (+ 309 -1)) + (s7-hash-table-set! *char-upcase-ht* 311 (+ 311 -1)) + (s7-hash-table-set! *char-upcase-ht* 314 (+ 314 -1)) + (s7-hash-table-set! *char-upcase-ht* 316 (+ 316 -1)) + (s7-hash-table-set! *char-upcase-ht* 318 (+ 318 -1)) + (s7-hash-table-set! *char-upcase-ht* 320 (+ 320 -1)) + (s7-hash-table-set! *char-upcase-ht* 322 (+ 322 -1)) + (s7-hash-table-set! *char-upcase-ht* 324 (+ 324 -1)) + (s7-hash-table-set! *char-upcase-ht* 326 (+ 326 -1)) + (s7-hash-table-set! *char-upcase-ht* 328 (+ 328 -1)) + (s7-hash-table-set! *char-upcase-ht* 331 (+ 331 -1)) + (s7-hash-table-set! *char-upcase-ht* 333 (+ 333 -1)) + (s7-hash-table-set! *char-upcase-ht* 335 (+ 335 -1)) + (s7-hash-table-set! *char-upcase-ht* 337 (+ 337 -1)) + (s7-hash-table-set! *char-upcase-ht* 339 (+ 339 -1)) + (s7-hash-table-set! *char-upcase-ht* 341 (+ 341 -1)) + (s7-hash-table-set! *char-upcase-ht* 343 (+ 343 -1)) + (s7-hash-table-set! *char-upcase-ht* 345 (+ 345 -1)) + (s7-hash-table-set! *char-upcase-ht* 347 (+ 347 -1)) + (s7-hash-table-set! *char-upcase-ht* 349 (+ 349 -1)) + (s7-hash-table-set! *char-upcase-ht* 351 (+ 351 -1)) + (s7-hash-table-set! *char-upcase-ht* 353 (+ 353 -1)) + (s7-hash-table-set! *char-upcase-ht* 355 (+ 355 -1)) + (s7-hash-table-set! *char-upcase-ht* 357 (+ 357 -1)) + (s7-hash-table-set! *char-upcase-ht* 359 (+ 359 -1)) + (s7-hash-table-set! *char-upcase-ht* 361 (+ 361 -1)) + (s7-hash-table-set! *char-upcase-ht* 363 (+ 363 -1)) + (s7-hash-table-set! *char-upcase-ht* 365 (+ 365 -1)) + (s7-hash-table-set! *char-upcase-ht* 367 (+ 367 -1)) + (s7-hash-table-set! *char-upcase-ht* 369 (+ 369 -1)) + (s7-hash-table-set! *char-upcase-ht* 371 (+ 371 -1)) + (s7-hash-table-set! *char-upcase-ht* 373 (+ 373 -1)) + (s7-hash-table-set! *char-upcase-ht* 375 (+ 375 -1)) + (s7-hash-table-set! *char-upcase-ht* 378 (+ 378 -1)) + (s7-hash-table-set! *char-upcase-ht* 380 (+ 380 -1)) + (s7-hash-table-set! *char-upcase-ht* 382 (+ 382 -1)) + (s7-hash-table-set! *char-upcase-ht* 383 (+ 383 -300)) + (s7-hash-table-set! *char-upcase-ht* 384 (+ 384 195)) + (s7-hash-table-set! *char-upcase-ht* 387 (+ 387 -1)) + (s7-hash-table-set! *char-upcase-ht* 389 (+ 389 -1)) + (s7-hash-table-set! *char-upcase-ht* 392 (+ 392 -1)) + (s7-hash-table-set! *char-upcase-ht* 396 (+ 396 -1)) + (s7-hash-table-set! *char-upcase-ht* 402 (+ 402 -1)) + (s7-hash-table-set! *char-upcase-ht* 405 (+ 405 97)) + (s7-hash-table-set! *char-upcase-ht* 409 (+ 409 -1)) + (s7-hash-table-set! *char-upcase-ht* 410 (+ 410 163)) + (s7-hash-table-set! *char-upcase-ht* 411 (+ 411 42561)) + (s7-hash-table-set! *char-upcase-ht* 414 (+ 414 130)) + (s7-hash-table-set! *char-upcase-ht* 417 (+ 417 -1)) + (s7-hash-table-set! *char-upcase-ht* 419 (+ 419 -1)) + (s7-hash-table-set! *char-upcase-ht* 421 (+ 421 -1)) + (s7-hash-table-set! *char-upcase-ht* 424 (+ 424 -1)) + (s7-hash-table-set! *char-upcase-ht* 429 (+ 429 -1)) + (s7-hash-table-set! *char-upcase-ht* 432 (+ 432 -1)) + (s7-hash-table-set! *char-upcase-ht* 436 (+ 436 -1)) + (s7-hash-table-set! *char-upcase-ht* 438 (+ 438 -1)) + (s7-hash-table-set! *char-upcase-ht* 441 (+ 441 -1)) + (s7-hash-table-set! *char-upcase-ht* 445 (+ 445 -1)) + (s7-hash-table-set! *char-upcase-ht* 447 (+ 447 56)) + (s7-hash-table-set! *char-upcase-ht* 453 (+ 453 -1)) + (s7-hash-table-set! *char-upcase-ht* 454 (+ 454 -2)) + (s7-hash-table-set! *char-upcase-ht* 456 (+ 456 -1)) + (s7-hash-table-set! *char-upcase-ht* 457 (+ 457 -2)) + (s7-hash-table-set! *char-upcase-ht* 459 (+ 459 -1)) + (s7-hash-table-set! *char-upcase-ht* 460 (+ 460 -2)) + (s7-hash-table-set! *char-upcase-ht* 462 (+ 462 -1)) + (s7-hash-table-set! *char-upcase-ht* 464 (+ 464 -1)) + (s7-hash-table-set! *char-upcase-ht* 466 (+ 466 -1)) + (s7-hash-table-set! *char-upcase-ht* 468 (+ 468 -1)) + (s7-hash-table-set! *char-upcase-ht* 470 (+ 470 -1)) + (s7-hash-table-set! *char-upcase-ht* 472 (+ 472 -1)) + (s7-hash-table-set! *char-upcase-ht* 474 (+ 474 -1)) + (s7-hash-table-set! *char-upcase-ht* 476 (+ 476 -1)) + (s7-hash-table-set! *char-upcase-ht* 477 (+ 477 -79)) + (s7-hash-table-set! *char-upcase-ht* 479 (+ 479 -1)) + (s7-hash-table-set! *char-upcase-ht* 481 (+ 481 -1)) + (s7-hash-table-set! *char-upcase-ht* 483 (+ 483 -1)) + (s7-hash-table-set! *char-upcase-ht* 485 (+ 485 -1)) + (s7-hash-table-set! *char-upcase-ht* 487 (+ 487 -1)) + (s7-hash-table-set! *char-upcase-ht* 489 (+ 489 -1)) + (s7-hash-table-set! *char-upcase-ht* 491 (+ 491 -1)) + (s7-hash-table-set! *char-upcase-ht* 493 (+ 493 -1)) + (s7-hash-table-set! *char-upcase-ht* 495 (+ 495 -1)) + (s7-hash-table-set! *char-upcase-ht* 498 (+ 498 -1)) + (s7-hash-table-set! *char-upcase-ht* 499 (+ 499 -2)) + (s7-hash-table-set! *char-upcase-ht* 501 (+ 501 -1)) + (s7-hash-table-set! *char-upcase-ht* 505 (+ 505 -1)) + (s7-hash-table-set! *char-upcase-ht* 507 (+ 507 -1)) + (s7-hash-table-set! *char-upcase-ht* 509 (+ 509 -1)) + (s7-hash-table-set! *char-upcase-ht* 511 (+ 511 -1)) + (s7-hash-table-set! *char-upcase-ht* 513 (+ 513 -1)) + (s7-hash-table-set! *char-upcase-ht* 515 (+ 515 -1)) + (s7-hash-table-set! *char-upcase-ht* 517 (+ 517 -1)) + (s7-hash-table-set! *char-upcase-ht* 519 (+ 519 -1)) + (s7-hash-table-set! *char-upcase-ht* 521 (+ 521 -1)) + (s7-hash-table-set! *char-upcase-ht* 523 (+ 523 -1)) + (s7-hash-table-set! *char-upcase-ht* 525 (+ 525 -1)) + (s7-hash-table-set! *char-upcase-ht* 527 (+ 527 -1)) + (s7-hash-table-set! *char-upcase-ht* 529 (+ 529 -1)) + (s7-hash-table-set! *char-upcase-ht* 531 (+ 531 -1)) + (s7-hash-table-set! *char-upcase-ht* 533 (+ 533 -1)) + (s7-hash-table-set! *char-upcase-ht* 535 (+ 535 -1)) + (s7-hash-table-set! *char-upcase-ht* 537 (+ 537 -1)) + (s7-hash-table-set! *char-upcase-ht* 539 (+ 539 -1)) + (s7-hash-table-set! *char-upcase-ht* 541 (+ 541 -1)) + (s7-hash-table-set! *char-upcase-ht* 543 (+ 543 -1)) + (s7-hash-table-set! *char-upcase-ht* 547 (+ 547 -1)) + (s7-hash-table-set! *char-upcase-ht* 549 (+ 549 -1)) + (s7-hash-table-set! *char-upcase-ht* 551 (+ 551 -1)) + (s7-hash-table-set! *char-upcase-ht* 553 (+ 553 -1)) + (s7-hash-table-set! *char-upcase-ht* 555 (+ 555 -1)) + (s7-hash-table-set! *char-upcase-ht* 557 (+ 557 -1)) + (s7-hash-table-set! *char-upcase-ht* 559 (+ 559 -1)) + (s7-hash-table-set! *char-upcase-ht* 561 (+ 561 -1)) + (s7-hash-table-set! *char-upcase-ht* 563 (+ 563 -1)) + (s7-hash-table-set! *char-upcase-ht* 572 (+ 572 -1)) + (do ((i 575 (+ i 1))) + ((> i 576)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 10815)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 578 (+ 578 -1)) + (s7-hash-table-set! *char-upcase-ht* 583 (+ 583 -1)) + (s7-hash-table-set! *char-upcase-ht* 585 (+ 585 -1)) + (s7-hash-table-set! *char-upcase-ht* 587 (+ 587 -1)) + (s7-hash-table-set! *char-upcase-ht* 589 (+ 589 -1)) + (s7-hash-table-set! *char-upcase-ht* 591 (+ 591 -1)) + (s7-hash-table-set! *char-upcase-ht* 592 (+ 592 10783)) + (s7-hash-table-set! *char-upcase-ht* 593 (+ 593 10780)) + (s7-hash-table-set! *char-upcase-ht* 594 (+ 594 10782)) + (s7-hash-table-set! *char-upcase-ht* 595 (+ 595 -210)) + (s7-hash-table-set! *char-upcase-ht* 596 (+ 596 -206)) + (do ((i 598 (+ i 1))) + ((> i 599)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -205)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 601 (+ 601 -202)) + (s7-hash-table-set! *char-upcase-ht* 603 (+ 603 -203)) + (s7-hash-table-set! *char-upcase-ht* 604 (+ 604 42319)) + (s7-hash-table-set! *char-upcase-ht* 608 (+ 608 -205)) + (s7-hash-table-set! *char-upcase-ht* 609 (+ 609 42315)) + (s7-hash-table-set! *char-upcase-ht* 611 (+ 611 -207)) + (s7-hash-table-set! *char-upcase-ht* 612 (+ 612 42343)) + (s7-hash-table-set! *char-upcase-ht* 613 (+ 613 42280)) + (s7-hash-table-set! *char-upcase-ht* 614 (+ 614 42308)) + (s7-hash-table-set! *char-upcase-ht* 616 (+ 616 -209)) + (s7-hash-table-set! *char-upcase-ht* 617 (+ 617 -211)) + (s7-hash-table-set! *char-upcase-ht* 618 (+ 618 42308)) + (s7-hash-table-set! *char-upcase-ht* 619 (+ 619 10743)) + (s7-hash-table-set! *char-upcase-ht* 620 (+ 620 42305)) + (s7-hash-table-set! *char-upcase-ht* 623 (+ 623 -211)) + (s7-hash-table-set! *char-upcase-ht* 625 (+ 625 10749)) + (s7-hash-table-set! *char-upcase-ht* 626 (+ 626 -213)) + (s7-hash-table-set! *char-upcase-ht* 629 (+ 629 -214)) + (s7-hash-table-set! *char-upcase-ht* 637 (+ 637 10727)) + (s7-hash-table-set! *char-upcase-ht* 640 (+ 640 -218)) + (s7-hash-table-set! *char-upcase-ht* 642 (+ 642 42307)) + (s7-hash-table-set! *char-upcase-ht* 643 (+ 643 -218)) + (s7-hash-table-set! *char-upcase-ht* 647 (+ 647 42282)) + (s7-hash-table-set! *char-upcase-ht* 648 (+ 648 -218)) + (s7-hash-table-set! *char-upcase-ht* 649 (+ 649 -69)) + (do ((i 650 (+ i 1))) + ((> i 651)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -217)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 652 (+ 652 -71)) + (s7-hash-table-set! *char-upcase-ht* 658 (+ 658 -219)) + (s7-hash-table-set! *char-upcase-ht* 669 (+ 669 42261)) + (s7-hash-table-set! *char-upcase-ht* 670 (+ 670 42258)) + (s7-hash-table-set! *char-upcase-ht* 837 (+ 837 84)) + (s7-hash-table-set! *char-upcase-ht* 881 (+ 881 -1)) + (s7-hash-table-set! *char-upcase-ht* 883 (+ 883 -1)) + (s7-hash-table-set! *char-upcase-ht* 887 (+ 887 -1)) + (do ((i 891 (+ i 1))) + ((> i 893)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 130)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 940 (+ 940 -38)) + (do ((i 941 (+ i 1))) + ((> i 943)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -37)) + ) ;do + (do ((i 945 (+ i 1))) + ((> i 961)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -32)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 962 (+ 962 -31)) + (do ((i 963 (+ i 1))) + ((> i 971)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -32)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 972 (+ 972 -64)) + (do ((i 973 (+ i 1))) + ((> i 974)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -63)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 976 (+ 976 -62)) + (s7-hash-table-set! *char-upcase-ht* 977 (+ 977 -57)) + (s7-hash-table-set! *char-upcase-ht* 981 (+ 981 -47)) + (s7-hash-table-set! *char-upcase-ht* 982 (+ 982 -54)) + (s7-hash-table-set! *char-upcase-ht* 983 (+ 983 -8)) + (s7-hash-table-set! *char-upcase-ht* 985 (+ 985 -1)) + (s7-hash-table-set! *char-upcase-ht* 987 (+ 987 -1)) + (s7-hash-table-set! *char-upcase-ht* 989 (+ 989 -1)) + (s7-hash-table-set! *char-upcase-ht* 991 (+ 991 -1)) + (s7-hash-table-set! *char-upcase-ht* 993 (+ 993 -1)) + (s7-hash-table-set! *char-upcase-ht* 995 (+ 995 -1)) + (s7-hash-table-set! *char-upcase-ht* 997 (+ 997 -1)) + (s7-hash-table-set! *char-upcase-ht* 999 (+ 999 -1)) + (s7-hash-table-set! *char-upcase-ht* 1001 (+ 1001 -1)) + (s7-hash-table-set! *char-upcase-ht* 1003 (+ 1003 -1)) + (s7-hash-table-set! *char-upcase-ht* 1005 (+ 1005 -1)) + (s7-hash-table-set! *char-upcase-ht* 1007 (+ 1007 -1)) + (s7-hash-table-set! *char-upcase-ht* 1008 (+ 1008 -86)) + (s7-hash-table-set! *char-upcase-ht* 1009 (+ 1009 -80)) + (s7-hash-table-set! *char-upcase-ht* 1010 (+ 1010 7)) + (s7-hash-table-set! *char-upcase-ht* 1011 (+ 1011 -116)) + (s7-hash-table-set! *char-upcase-ht* 1013 (+ 1013 -96)) + (s7-hash-table-set! *char-upcase-ht* 1016 (+ 1016 -1)) + (s7-hash-table-set! *char-upcase-ht* 1019 (+ 1019 -1)) + (do ((i 1072 (+ i 1))) + ((> i 1103)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -32)) + ) ;do + (do ((i 1104 (+ i 1))) + ((> i 1119)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -80)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 1121 (+ 1121 -1)) + (s7-hash-table-set! *char-upcase-ht* 1123 (+ 1123 -1)) + (s7-hash-table-set! *char-upcase-ht* 1125 (+ 1125 -1)) + (s7-hash-table-set! *char-upcase-ht* 1127 (+ 1127 -1)) + (s7-hash-table-set! *char-upcase-ht* 1129 (+ 1129 -1)) + (s7-hash-table-set! *char-upcase-ht* 1131 (+ 1131 -1)) + (s7-hash-table-set! *char-upcase-ht* 1133 (+ 1133 -1)) + (s7-hash-table-set! *char-upcase-ht* 1135 (+ 1135 -1)) + (s7-hash-table-set! *char-upcase-ht* 1137 (+ 1137 -1)) + (s7-hash-table-set! *char-upcase-ht* 1139 (+ 1139 -1)) + (s7-hash-table-set! *char-upcase-ht* 1141 (+ 1141 -1)) + (s7-hash-table-set! *char-upcase-ht* 1143 (+ 1143 -1)) + (s7-hash-table-set! *char-upcase-ht* 1145 (+ 1145 -1)) + (s7-hash-table-set! *char-upcase-ht* 1147 (+ 1147 -1)) + (s7-hash-table-set! *char-upcase-ht* 1149 (+ 1149 -1)) + (s7-hash-table-set! *char-upcase-ht* 1151 (+ 1151 -1)) + (s7-hash-table-set! *char-upcase-ht* 1153 (+ 1153 -1)) + (s7-hash-table-set! *char-upcase-ht* 1163 (+ 1163 -1)) + (s7-hash-table-set! *char-upcase-ht* 1165 (+ 1165 -1)) + (s7-hash-table-set! *char-upcase-ht* 1167 (+ 1167 -1)) + (s7-hash-table-set! *char-upcase-ht* 1169 (+ 1169 -1)) + (s7-hash-table-set! *char-upcase-ht* 1171 (+ 1171 -1)) + (s7-hash-table-set! *char-upcase-ht* 1173 (+ 1173 -1)) + (s7-hash-table-set! *char-upcase-ht* 1175 (+ 1175 -1)) + (s7-hash-table-set! *char-upcase-ht* 1177 (+ 1177 -1)) + (s7-hash-table-set! *char-upcase-ht* 1179 (+ 1179 -1)) + (s7-hash-table-set! *char-upcase-ht* 1181 (+ 1181 -1)) + (s7-hash-table-set! *char-upcase-ht* 1183 (+ 1183 -1)) + (s7-hash-table-set! *char-upcase-ht* 1185 (+ 1185 -1)) + (s7-hash-table-set! *char-upcase-ht* 1187 (+ 1187 -1)) + (s7-hash-table-set! *char-upcase-ht* 1189 (+ 1189 -1)) + (s7-hash-table-set! *char-upcase-ht* 1191 (+ 1191 -1)) + (s7-hash-table-set! *char-upcase-ht* 1193 (+ 1193 -1)) + (s7-hash-table-set! *char-upcase-ht* 1195 (+ 1195 -1)) + (s7-hash-table-set! *char-upcase-ht* 1197 (+ 1197 -1)) + (s7-hash-table-set! *char-upcase-ht* 1199 (+ 1199 -1)) + (s7-hash-table-set! *char-upcase-ht* 1201 (+ 1201 -1)) + (s7-hash-table-set! *char-upcase-ht* 1203 (+ 1203 -1)) + (s7-hash-table-set! *char-upcase-ht* 1205 (+ 1205 -1)) + (s7-hash-table-set! *char-upcase-ht* 1207 (+ 1207 -1)) + (s7-hash-table-set! *char-upcase-ht* 1209 (+ 1209 -1)) + (s7-hash-table-set! *char-upcase-ht* 1211 (+ 1211 -1)) + (s7-hash-table-set! *char-upcase-ht* 1213 (+ 1213 -1)) + (s7-hash-table-set! *char-upcase-ht* 1215 (+ 1215 -1)) + (s7-hash-table-set! *char-upcase-ht* 1218 (+ 1218 -1)) + (s7-hash-table-set! *char-upcase-ht* 1220 (+ 1220 -1)) + (s7-hash-table-set! *char-upcase-ht* 1222 (+ 1222 -1)) + (s7-hash-table-set! *char-upcase-ht* 1224 (+ 1224 -1)) + (s7-hash-table-set! *char-upcase-ht* 1226 (+ 1226 -1)) + (s7-hash-table-set! *char-upcase-ht* 1228 (+ 1228 -1)) + (s7-hash-table-set! *char-upcase-ht* 1230 (+ 1230 -1)) + (s7-hash-table-set! *char-upcase-ht* 1231 (+ 1231 -15)) + (s7-hash-table-set! *char-upcase-ht* 1233 (+ 1233 -1)) + (s7-hash-table-set! *char-upcase-ht* 1235 (+ 1235 -1)) + (s7-hash-table-set! *char-upcase-ht* 1237 (+ 1237 -1)) + (s7-hash-table-set! *char-upcase-ht* 1239 (+ 1239 -1)) + (s7-hash-table-set! *char-upcase-ht* 1241 (+ 1241 -1)) + (s7-hash-table-set! *char-upcase-ht* 1243 (+ 1243 -1)) + (s7-hash-table-set! *char-upcase-ht* 1245 (+ 1245 -1)) + (s7-hash-table-set! *char-upcase-ht* 1247 (+ 1247 -1)) + (s7-hash-table-set! *char-upcase-ht* 1249 (+ 1249 -1)) + (s7-hash-table-set! *char-upcase-ht* 1251 (+ 1251 -1)) + (s7-hash-table-set! *char-upcase-ht* 1253 (+ 1253 -1)) + (s7-hash-table-set! *char-upcase-ht* 1255 (+ 1255 -1)) + (s7-hash-table-set! *char-upcase-ht* 1257 (+ 1257 -1)) + (s7-hash-table-set! *char-upcase-ht* 1259 (+ 1259 -1)) + (s7-hash-table-set! *char-upcase-ht* 1261 (+ 1261 -1)) + (s7-hash-table-set! *char-upcase-ht* 1263 (+ 1263 -1)) + (s7-hash-table-set! *char-upcase-ht* 1265 (+ 1265 -1)) + (s7-hash-table-set! *char-upcase-ht* 1267 (+ 1267 -1)) + (s7-hash-table-set! *char-upcase-ht* 1269 (+ 1269 -1)) + (s7-hash-table-set! *char-upcase-ht* 1271 (+ 1271 -1)) + (s7-hash-table-set! *char-upcase-ht* 1273 (+ 1273 -1)) + (s7-hash-table-set! *char-upcase-ht* 1275 (+ 1275 -1)) + (s7-hash-table-set! *char-upcase-ht* 1277 (+ 1277 -1)) + (s7-hash-table-set! *char-upcase-ht* 1279 (+ 1279 -1)) + (s7-hash-table-set! *char-upcase-ht* 1281 (+ 1281 -1)) + (s7-hash-table-set! *char-upcase-ht* 1283 (+ 1283 -1)) + (s7-hash-table-set! *char-upcase-ht* 1285 (+ 1285 -1)) + (s7-hash-table-set! *char-upcase-ht* 1287 (+ 1287 -1)) + (s7-hash-table-set! *char-upcase-ht* 1289 (+ 1289 -1)) + (s7-hash-table-set! *char-upcase-ht* 1291 (+ 1291 -1)) + (s7-hash-table-set! *char-upcase-ht* 1293 (+ 1293 -1)) + (s7-hash-table-set! *char-upcase-ht* 1295 (+ 1295 -1)) + (s7-hash-table-set! *char-upcase-ht* 1297 (+ 1297 -1)) + (s7-hash-table-set! *char-upcase-ht* 1299 (+ 1299 -1)) + (s7-hash-table-set! *char-upcase-ht* 1301 (+ 1301 -1)) + (s7-hash-table-set! *char-upcase-ht* 1303 (+ 1303 -1)) + (s7-hash-table-set! *char-upcase-ht* 1305 (+ 1305 -1)) + (s7-hash-table-set! *char-upcase-ht* 1307 (+ 1307 -1)) + (s7-hash-table-set! *char-upcase-ht* 1309 (+ 1309 -1)) + (s7-hash-table-set! *char-upcase-ht* 1311 (+ 1311 -1)) + (s7-hash-table-set! *char-upcase-ht* 1313 (+ 1313 -1)) + (s7-hash-table-set! *char-upcase-ht* 1315 (+ 1315 -1)) + (s7-hash-table-set! *char-upcase-ht* 1317 (+ 1317 -1)) + (s7-hash-table-set! *char-upcase-ht* 1319 (+ 1319 -1)) + (s7-hash-table-set! *char-upcase-ht* 1321 (+ 1321 -1)) + (s7-hash-table-set! *char-upcase-ht* 1323 (+ 1323 -1)) + (s7-hash-table-set! *char-upcase-ht* 1325 (+ 1325 -1)) + (s7-hash-table-set! *char-upcase-ht* 1327 (+ 1327 -1)) + (do ((i 1377 (+ i 1))) + ((> i 1414)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -48)) + ) ;do + (do ((i 4304 (+ i 1))) + ((> i 4346)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 3008)) + ) ;do + (do ((i 4349 (+ i 1))) + ((> i 4351)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 3008)) + ) ;do + (do ((i 5112 (+ i 1))) + ((> i 5117)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -8)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 7296 (+ 7296 -6254)) + (s7-hash-table-set! *char-upcase-ht* 7297 (+ 7297 -6253)) + (s7-hash-table-set! *char-upcase-ht* 7298 (+ 7298 -6244)) + (do ((i 7299 (+ i 1))) + ((> i 7300)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -6242)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 7301 (+ 7301 -6243)) + (s7-hash-table-set! *char-upcase-ht* 7302 (+ 7302 -6236)) + (s7-hash-table-set! *char-upcase-ht* 7303 (+ 7303 -6181)) + (s7-hash-table-set! *char-upcase-ht* 7304 (+ 7304 35266)) + (s7-hash-table-set! *char-upcase-ht* 7306 (+ 7306 -1)) + (s7-hash-table-set! *char-upcase-ht* 7545 (+ 7545 35332)) + (s7-hash-table-set! *char-upcase-ht* 7549 (+ 7549 3814)) + (s7-hash-table-set! *char-upcase-ht* 7566 (+ 7566 35384)) + (s7-hash-table-set! *char-upcase-ht* 7681 (+ 7681 -1)) + (s7-hash-table-set! *char-upcase-ht* 7683 (+ 7683 -1)) + (s7-hash-table-set! *char-upcase-ht* 7685 (+ 7685 -1)) + (s7-hash-table-set! *char-upcase-ht* 7687 (+ 7687 -1)) + (s7-hash-table-set! *char-upcase-ht* 7689 (+ 7689 -1)) + (s7-hash-table-set! *char-upcase-ht* 7691 (+ 7691 -1)) + (s7-hash-table-set! *char-upcase-ht* 7693 (+ 7693 -1)) + (s7-hash-table-set! *char-upcase-ht* 7695 (+ 7695 -1)) + (s7-hash-table-set! *char-upcase-ht* 7697 (+ 7697 -1)) + (s7-hash-table-set! *char-upcase-ht* 7699 (+ 7699 -1)) + (s7-hash-table-set! *char-upcase-ht* 7701 (+ 7701 -1)) + (s7-hash-table-set! *char-upcase-ht* 7703 (+ 7703 -1)) + (s7-hash-table-set! *char-upcase-ht* 7705 (+ 7705 -1)) + (s7-hash-table-set! *char-upcase-ht* 7707 (+ 7707 -1)) + (s7-hash-table-set! *char-upcase-ht* 7709 (+ 7709 -1)) + (s7-hash-table-set! *char-upcase-ht* 7711 (+ 7711 -1)) + (s7-hash-table-set! *char-upcase-ht* 7713 (+ 7713 -1)) + (s7-hash-table-set! *char-upcase-ht* 7715 (+ 7715 -1)) + (s7-hash-table-set! *char-upcase-ht* 7717 (+ 7717 -1)) + (s7-hash-table-set! *char-upcase-ht* 7719 (+ 7719 -1)) + (s7-hash-table-set! *char-upcase-ht* 7721 (+ 7721 -1)) + (s7-hash-table-set! *char-upcase-ht* 7723 (+ 7723 -1)) + (s7-hash-table-set! *char-upcase-ht* 7725 (+ 7725 -1)) + (s7-hash-table-set! *char-upcase-ht* 7727 (+ 7727 -1)) + (s7-hash-table-set! *char-upcase-ht* 7729 (+ 7729 -1)) + (s7-hash-table-set! *char-upcase-ht* 7731 (+ 7731 -1)) + (s7-hash-table-set! *char-upcase-ht* 7733 (+ 7733 -1)) + (s7-hash-table-set! *char-upcase-ht* 7735 (+ 7735 -1)) + (s7-hash-table-set! *char-upcase-ht* 7737 (+ 7737 -1)) + (s7-hash-table-set! *char-upcase-ht* 7739 (+ 7739 -1)) + (s7-hash-table-set! *char-upcase-ht* 7741 (+ 7741 -1)) + (s7-hash-table-set! *char-upcase-ht* 7743 (+ 7743 -1)) + (s7-hash-table-set! *char-upcase-ht* 7745 (+ 7745 -1)) + (s7-hash-table-set! *char-upcase-ht* 7747 (+ 7747 -1)) + (s7-hash-table-set! *char-upcase-ht* 7749 (+ 7749 -1)) + (s7-hash-table-set! *char-upcase-ht* 7751 (+ 7751 -1)) + (s7-hash-table-set! *char-upcase-ht* 7753 (+ 7753 -1)) + (s7-hash-table-set! *char-upcase-ht* 7755 (+ 7755 -1)) + (s7-hash-table-set! *char-upcase-ht* 7757 (+ 7757 -1)) + (s7-hash-table-set! *char-upcase-ht* 7759 (+ 7759 -1)) + (s7-hash-table-set! *char-upcase-ht* 7761 (+ 7761 -1)) + (s7-hash-table-set! *char-upcase-ht* 7763 (+ 7763 -1)) + (s7-hash-table-set! *char-upcase-ht* 7765 (+ 7765 -1)) + (s7-hash-table-set! *char-upcase-ht* 7767 (+ 7767 -1)) + (s7-hash-table-set! *char-upcase-ht* 7769 (+ 7769 -1)) + (s7-hash-table-set! *char-upcase-ht* 7771 (+ 7771 -1)) + (s7-hash-table-set! *char-upcase-ht* 7773 (+ 7773 -1)) + (s7-hash-table-set! *char-upcase-ht* 7775 (+ 7775 -1)) + (s7-hash-table-set! *char-upcase-ht* 7777 (+ 7777 -1)) + (s7-hash-table-set! *char-upcase-ht* 7779 (+ 7779 -1)) + (s7-hash-table-set! *char-upcase-ht* 7781 (+ 7781 -1)) + (s7-hash-table-set! *char-upcase-ht* 7783 (+ 7783 -1)) + (s7-hash-table-set! *char-upcase-ht* 7785 (+ 7785 -1)) + (s7-hash-table-set! *char-upcase-ht* 7787 (+ 7787 -1)) + (s7-hash-table-set! *char-upcase-ht* 7789 (+ 7789 -1)) + (s7-hash-table-set! *char-upcase-ht* 7791 (+ 7791 -1)) + (s7-hash-table-set! *char-upcase-ht* 7793 (+ 7793 -1)) + (s7-hash-table-set! *char-upcase-ht* 7795 (+ 7795 -1)) + (s7-hash-table-set! *char-upcase-ht* 7797 (+ 7797 -1)) + (s7-hash-table-set! *char-upcase-ht* 7799 (+ 7799 -1)) + (s7-hash-table-set! *char-upcase-ht* 7801 (+ 7801 -1)) + (s7-hash-table-set! *char-upcase-ht* 7803 (+ 7803 -1)) + (s7-hash-table-set! *char-upcase-ht* 7805 (+ 7805 -1)) + (s7-hash-table-set! *char-upcase-ht* 7807 (+ 7807 -1)) + (s7-hash-table-set! *char-upcase-ht* 7809 (+ 7809 -1)) + (s7-hash-table-set! *char-upcase-ht* 7811 (+ 7811 -1)) + (s7-hash-table-set! *char-upcase-ht* 7813 (+ 7813 -1)) + (s7-hash-table-set! *char-upcase-ht* 7815 (+ 7815 -1)) + (s7-hash-table-set! *char-upcase-ht* 7817 (+ 7817 -1)) + (s7-hash-table-set! *char-upcase-ht* 7819 (+ 7819 -1)) + (s7-hash-table-set! *char-upcase-ht* 7821 (+ 7821 -1)) + (s7-hash-table-set! *char-upcase-ht* 7823 (+ 7823 -1)) + (s7-hash-table-set! *char-upcase-ht* 7825 (+ 7825 -1)) + (s7-hash-table-set! *char-upcase-ht* 7827 (+ 7827 -1)) + (s7-hash-table-set! *char-upcase-ht* 7829 (+ 7829 -1)) + (s7-hash-table-set! *char-upcase-ht* 7835 (+ 7835 -59)) + (s7-hash-table-set! *char-upcase-ht* 7841 (+ 7841 -1)) + (s7-hash-table-set! *char-upcase-ht* 7843 (+ 7843 -1)) + (s7-hash-table-set! *char-upcase-ht* 7845 (+ 7845 -1)) + (s7-hash-table-set! *char-upcase-ht* 7847 (+ 7847 -1)) + (s7-hash-table-set! *char-upcase-ht* 7849 (+ 7849 -1)) + (s7-hash-table-set! *char-upcase-ht* 7851 (+ 7851 -1)) + (s7-hash-table-set! *char-upcase-ht* 7853 (+ 7853 -1)) + (s7-hash-table-set! *char-upcase-ht* 7855 (+ 7855 -1)) + (s7-hash-table-set! *char-upcase-ht* 7857 (+ 7857 -1)) + (s7-hash-table-set! *char-upcase-ht* 7859 (+ 7859 -1)) + (s7-hash-table-set! *char-upcase-ht* 7861 (+ 7861 -1)) + (s7-hash-table-set! *char-upcase-ht* 7863 (+ 7863 -1)) + (s7-hash-table-set! *char-upcase-ht* 7865 (+ 7865 -1)) + (s7-hash-table-set! *char-upcase-ht* 7867 (+ 7867 -1)) + (s7-hash-table-set! *char-upcase-ht* 7869 (+ 7869 -1)) + (s7-hash-table-set! *char-upcase-ht* 7871 (+ 7871 -1)) + (s7-hash-table-set! *char-upcase-ht* 7873 (+ 7873 -1)) + (s7-hash-table-set! *char-upcase-ht* 7875 (+ 7875 -1)) + (s7-hash-table-set! *char-upcase-ht* 7877 (+ 7877 -1)) + (s7-hash-table-set! *char-upcase-ht* 7879 (+ 7879 -1)) + (s7-hash-table-set! *char-upcase-ht* 7881 (+ 7881 -1)) + (s7-hash-table-set! *char-upcase-ht* 7883 (+ 7883 -1)) + (s7-hash-table-set! *char-upcase-ht* 7885 (+ 7885 -1)) + (s7-hash-table-set! *char-upcase-ht* 7887 (+ 7887 -1)) + (s7-hash-table-set! *char-upcase-ht* 7889 (+ 7889 -1)) + (s7-hash-table-set! *char-upcase-ht* 7891 (+ 7891 -1)) + (s7-hash-table-set! *char-upcase-ht* 7893 (+ 7893 -1)) + (s7-hash-table-set! *char-upcase-ht* 7895 (+ 7895 -1)) + (s7-hash-table-set! *char-upcase-ht* 7897 (+ 7897 -1)) + (s7-hash-table-set! *char-upcase-ht* 7899 (+ 7899 -1)) + (s7-hash-table-set! *char-upcase-ht* 7901 (+ 7901 -1)) + (s7-hash-table-set! *char-upcase-ht* 7903 (+ 7903 -1)) + (s7-hash-table-set! *char-upcase-ht* 7905 (+ 7905 -1)) + (s7-hash-table-set! *char-upcase-ht* 7907 (+ 7907 -1)) + (s7-hash-table-set! *char-upcase-ht* 7909 (+ 7909 -1)) + (s7-hash-table-set! *char-upcase-ht* 7911 (+ 7911 -1)) + (s7-hash-table-set! *char-upcase-ht* 7913 (+ 7913 -1)) + (s7-hash-table-set! *char-upcase-ht* 7915 (+ 7915 -1)) + (s7-hash-table-set! *char-upcase-ht* 7917 (+ 7917 -1)) + (s7-hash-table-set! *char-upcase-ht* 7919 (+ 7919 -1)) + (s7-hash-table-set! *char-upcase-ht* 7921 (+ 7921 -1)) + (s7-hash-table-set! *char-upcase-ht* 7923 (+ 7923 -1)) + (s7-hash-table-set! *char-upcase-ht* 7925 (+ 7925 -1)) + (s7-hash-table-set! *char-upcase-ht* 7927 (+ 7927 -1)) + (s7-hash-table-set! *char-upcase-ht* 7929 (+ 7929 -1)) + (s7-hash-table-set! *char-upcase-ht* 7931 (+ 7931 -1)) + (s7-hash-table-set! *char-upcase-ht* 7933 (+ 7933 -1)) + (s7-hash-table-set! *char-upcase-ht* 7935 (+ 7935 -1)) + (do ((i 7936 (+ i 1))) + ((> i 7943)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 8)) + ) ;do + (do ((i 7952 (+ i 1))) + ((> i 7957)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 8)) + ) ;do + (do ((i 7968 (+ i 1))) + ((> i 7975)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 8)) + ) ;do + (do ((i 7984 (+ i 1))) + ((> i 7991)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 8)) + ) ;do + (do ((i 8000 (+ i 1))) + ((> i 8005)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 8)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 8017 (+ 8017 8)) + (s7-hash-table-set! *char-upcase-ht* 8019 (+ 8019 8)) + (s7-hash-table-set! *char-upcase-ht* 8021 (+ 8021 8)) + (s7-hash-table-set! *char-upcase-ht* 8023 (+ 8023 8)) + (do ((i 8032 (+ i 1))) + ((> i 8039)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 8)) + ) ;do + (do ((i 8048 (+ i 1))) + ((> i 8049)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 74)) + ) ;do + (do ((i 8050 (+ i 1))) + ((> i 8053)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 86)) + ) ;do + (do ((i 8054 (+ i 1))) + ((> i 8055)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 100)) + ) ;do + (do ((i 8056 (+ i 1))) + ((> i 8057)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 128)) + ) ;do + (do ((i 8058 (+ i 1))) + ((> i 8059)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 112)) + ) ;do + (do ((i 8060 (+ i 1))) + ((> i 8061)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 126)) + ) ;do + (do ((i 8064 (+ i 1))) + ((> i 8071)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 8)) + ) ;do + (do ((i 8080 (+ i 1))) + ((> i 8087)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 8)) + ) ;do + (do ((i 8096 (+ i 1))) + ((> i 8103)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 8)) + ) ;do + (do ((i 8112 (+ i 1))) + ((> i 8113)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 8)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 8115 (+ 8115 9)) + (s7-hash-table-set! *char-upcase-ht* 8126 (+ 8126 -7205)) + (s7-hash-table-set! *char-upcase-ht* 8131 (+ 8131 9)) + (do ((i 8144 (+ i 1))) + ((> i 8145)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 8)) + ) ;do + (do ((i 8160 (+ i 1))) + ((> i 8161)) + (s7-hash-table-set! *char-upcase-ht* i (+ i 8)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 8165 (+ 8165 7)) + (s7-hash-table-set! *char-upcase-ht* 8179 (+ 8179 9)) + (s7-hash-table-set! *char-upcase-ht* 8526 (+ 8526 -28)) + (do ((i 8560 (+ i 1))) + ((> i 8575)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -16)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 8580 (+ 8580 -1)) + (do ((i 9424 (+ i 1))) + ((> i 9449)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -26)) + ) ;do + (do ((i 11312 (+ i 1))) + ((> i 11359)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -48)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 11361 (+ 11361 -1)) + (s7-hash-table-set! *char-upcase-ht* 11365 (+ 11365 -10795)) + (s7-hash-table-set! *char-upcase-ht* 11366 (+ 11366 -10792)) + (s7-hash-table-set! *char-upcase-ht* 11368 (+ 11368 -1)) + (s7-hash-table-set! *char-upcase-ht* 11370 (+ 11370 -1)) + (s7-hash-table-set! *char-upcase-ht* 11372 (+ 11372 -1)) + (s7-hash-table-set! *char-upcase-ht* 11379 (+ 11379 -1)) + (s7-hash-table-set! *char-upcase-ht* 11382 (+ 11382 -1)) + (s7-hash-table-set! *char-upcase-ht* 11393 (+ 11393 -1)) + (s7-hash-table-set! *char-upcase-ht* 11395 (+ 11395 -1)) + (s7-hash-table-set! *char-upcase-ht* 11397 (+ 11397 -1)) + (s7-hash-table-set! *char-upcase-ht* 11399 (+ 11399 -1)) + (s7-hash-table-set! *char-upcase-ht* 11401 (+ 11401 -1)) + (s7-hash-table-set! *char-upcase-ht* 11403 (+ 11403 -1)) + (s7-hash-table-set! *char-upcase-ht* 11405 (+ 11405 -1)) + (s7-hash-table-set! *char-upcase-ht* 11407 (+ 11407 -1)) + (s7-hash-table-set! *char-upcase-ht* 11409 (+ 11409 -1)) + (s7-hash-table-set! *char-upcase-ht* 11411 (+ 11411 -1)) + (s7-hash-table-set! *char-upcase-ht* 11413 (+ 11413 -1)) + (s7-hash-table-set! *char-upcase-ht* 11415 (+ 11415 -1)) + (s7-hash-table-set! *char-upcase-ht* 11417 (+ 11417 -1)) + (s7-hash-table-set! *char-upcase-ht* 11419 (+ 11419 -1)) + (s7-hash-table-set! *char-upcase-ht* 11421 (+ 11421 -1)) + (s7-hash-table-set! *char-upcase-ht* 11423 (+ 11423 -1)) + (s7-hash-table-set! *char-upcase-ht* 11425 (+ 11425 -1)) + (s7-hash-table-set! *char-upcase-ht* 11427 (+ 11427 -1)) + (s7-hash-table-set! *char-upcase-ht* 11429 (+ 11429 -1)) + (s7-hash-table-set! *char-upcase-ht* 11431 (+ 11431 -1)) + (s7-hash-table-set! *char-upcase-ht* 11433 (+ 11433 -1)) + (s7-hash-table-set! *char-upcase-ht* 11435 (+ 11435 -1)) + (s7-hash-table-set! *char-upcase-ht* 11437 (+ 11437 -1)) + (s7-hash-table-set! *char-upcase-ht* 11439 (+ 11439 -1)) + (s7-hash-table-set! *char-upcase-ht* 11441 (+ 11441 -1)) + (s7-hash-table-set! *char-upcase-ht* 11443 (+ 11443 -1)) + (s7-hash-table-set! *char-upcase-ht* 11445 (+ 11445 -1)) + (s7-hash-table-set! *char-upcase-ht* 11447 (+ 11447 -1)) + (s7-hash-table-set! *char-upcase-ht* 11449 (+ 11449 -1)) + (s7-hash-table-set! *char-upcase-ht* 11451 (+ 11451 -1)) + (s7-hash-table-set! *char-upcase-ht* 11453 (+ 11453 -1)) + (s7-hash-table-set! *char-upcase-ht* 11455 (+ 11455 -1)) + (s7-hash-table-set! *char-upcase-ht* 11457 (+ 11457 -1)) + (s7-hash-table-set! *char-upcase-ht* 11459 (+ 11459 -1)) + (s7-hash-table-set! *char-upcase-ht* 11461 (+ 11461 -1)) + (s7-hash-table-set! *char-upcase-ht* 11463 (+ 11463 -1)) + (s7-hash-table-set! *char-upcase-ht* 11465 (+ 11465 -1)) + (s7-hash-table-set! *char-upcase-ht* 11467 (+ 11467 -1)) + (s7-hash-table-set! *char-upcase-ht* 11469 (+ 11469 -1)) + (s7-hash-table-set! *char-upcase-ht* 11471 (+ 11471 -1)) + (s7-hash-table-set! *char-upcase-ht* 11473 (+ 11473 -1)) + (s7-hash-table-set! *char-upcase-ht* 11475 (+ 11475 -1)) + (s7-hash-table-set! *char-upcase-ht* 11477 (+ 11477 -1)) + (s7-hash-table-set! *char-upcase-ht* 11479 (+ 11479 -1)) + (s7-hash-table-set! *char-upcase-ht* 11481 (+ 11481 -1)) + (s7-hash-table-set! *char-upcase-ht* 11483 (+ 11483 -1)) + (s7-hash-table-set! *char-upcase-ht* 11485 (+ 11485 -1)) + (s7-hash-table-set! *char-upcase-ht* 11487 (+ 11487 -1)) + (s7-hash-table-set! *char-upcase-ht* 11489 (+ 11489 -1)) + (s7-hash-table-set! *char-upcase-ht* 11491 (+ 11491 -1)) + (s7-hash-table-set! *char-upcase-ht* 11500 (+ 11500 -1)) + (s7-hash-table-set! *char-upcase-ht* 11502 (+ 11502 -1)) + (s7-hash-table-set! *char-upcase-ht* 11507 (+ 11507 -1)) + (do ((i 11520 (+ i 1))) + ((> i 11557)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -7264)) + ) ;do + (s7-hash-table-set! *char-upcase-ht* 11559 (+ 11559 -7264)) + (s7-hash-table-set! *char-upcase-ht* 11565 (+ 11565 -7264)) + (s7-hash-table-set! *char-upcase-ht* 42561 (+ 42561 -1)) + (s7-hash-table-set! *char-upcase-ht* 42563 (+ 42563 -1)) + (s7-hash-table-set! *char-upcase-ht* 42565 (+ 42565 -1)) + (s7-hash-table-set! *char-upcase-ht* 42567 (+ 42567 -1)) + (s7-hash-table-set! *char-upcase-ht* 42569 (+ 42569 -1)) + (s7-hash-table-set! *char-upcase-ht* 42571 (+ 42571 -1)) + (s7-hash-table-set! *char-upcase-ht* 42573 (+ 42573 -1)) + (s7-hash-table-set! *char-upcase-ht* 42575 (+ 42575 -1)) + (s7-hash-table-set! *char-upcase-ht* 42577 (+ 42577 -1)) + (s7-hash-table-set! *char-upcase-ht* 42579 (+ 42579 -1)) + (s7-hash-table-set! *char-upcase-ht* 42581 (+ 42581 -1)) + (s7-hash-table-set! *char-upcase-ht* 42583 (+ 42583 -1)) + (s7-hash-table-set! *char-upcase-ht* 42585 (+ 42585 -1)) + (s7-hash-table-set! *char-upcase-ht* 42587 (+ 42587 -1)) + (s7-hash-table-set! *char-upcase-ht* 42589 (+ 42589 -1)) + (s7-hash-table-set! *char-upcase-ht* 42591 (+ 42591 -1)) + (s7-hash-table-set! *char-upcase-ht* 42593 (+ 42593 -1)) + (s7-hash-table-set! *char-upcase-ht* 42595 (+ 42595 -1)) + (s7-hash-table-set! *char-upcase-ht* 42597 (+ 42597 -1)) + (s7-hash-table-set! *char-upcase-ht* 42599 (+ 42599 -1)) + (s7-hash-table-set! *char-upcase-ht* 42601 (+ 42601 -1)) + (s7-hash-table-set! *char-upcase-ht* 42603 (+ 42603 -1)) + (s7-hash-table-set! *char-upcase-ht* 42605 (+ 42605 -1)) + (s7-hash-table-set! *char-upcase-ht* 42625 (+ 42625 -1)) + (s7-hash-table-set! *char-upcase-ht* 42627 (+ 42627 -1)) + (s7-hash-table-set! *char-upcase-ht* 42629 (+ 42629 -1)) + (s7-hash-table-set! *char-upcase-ht* 42631 (+ 42631 -1)) + (s7-hash-table-set! *char-upcase-ht* 42633 (+ 42633 -1)) + (s7-hash-table-set! *char-upcase-ht* 42635 (+ 42635 -1)) + (s7-hash-table-set! *char-upcase-ht* 42637 (+ 42637 -1)) + (s7-hash-table-set! *char-upcase-ht* 42639 (+ 42639 -1)) + (s7-hash-table-set! *char-upcase-ht* 42641 (+ 42641 -1)) + (s7-hash-table-set! *char-upcase-ht* 42643 (+ 42643 -1)) + (s7-hash-table-set! *char-upcase-ht* 42645 (+ 42645 -1)) + (s7-hash-table-set! *char-upcase-ht* 42647 (+ 42647 -1)) + (s7-hash-table-set! *char-upcase-ht* 42649 (+ 42649 -1)) + (s7-hash-table-set! *char-upcase-ht* 42651 (+ 42651 -1)) + (s7-hash-table-set! *char-upcase-ht* 42787 (+ 42787 -1)) + (s7-hash-table-set! *char-upcase-ht* 42789 (+ 42789 -1)) + (s7-hash-table-set! *char-upcase-ht* 42791 (+ 42791 -1)) + (s7-hash-table-set! *char-upcase-ht* 42793 (+ 42793 -1)) + (s7-hash-table-set! *char-upcase-ht* 42795 (+ 42795 -1)) + (s7-hash-table-set! *char-upcase-ht* 42797 (+ 42797 -1)) + (s7-hash-table-set! *char-upcase-ht* 42799 (+ 42799 -1)) + (s7-hash-table-set! *char-upcase-ht* 42803 (+ 42803 -1)) + (s7-hash-table-set! *char-upcase-ht* 42805 (+ 42805 -1)) + (s7-hash-table-set! *char-upcase-ht* 42807 (+ 42807 -1)) + (s7-hash-table-set! *char-upcase-ht* 42809 (+ 42809 -1)) + (s7-hash-table-set! *char-upcase-ht* 42811 (+ 42811 -1)) + (s7-hash-table-set! *char-upcase-ht* 42813 (+ 42813 -1)) + (s7-hash-table-set! *char-upcase-ht* 42815 (+ 42815 -1)) + (s7-hash-table-set! *char-upcase-ht* 42817 (+ 42817 -1)) + (s7-hash-table-set! *char-upcase-ht* 42819 (+ 42819 -1)) + (s7-hash-table-set! *char-upcase-ht* 42821 (+ 42821 -1)) + (s7-hash-table-set! *char-upcase-ht* 42823 (+ 42823 -1)) + (s7-hash-table-set! *char-upcase-ht* 42825 (+ 42825 -1)) + (s7-hash-table-set! *char-upcase-ht* 42827 (+ 42827 -1)) + (s7-hash-table-set! *char-upcase-ht* 42829 (+ 42829 -1)) + (s7-hash-table-set! *char-upcase-ht* 42831 (+ 42831 -1)) + (s7-hash-table-set! *char-upcase-ht* 42833 (+ 42833 -1)) + (s7-hash-table-set! *char-upcase-ht* 42835 (+ 42835 -1)) + (s7-hash-table-set! *char-upcase-ht* 42837 (+ 42837 -1)) + (s7-hash-table-set! *char-upcase-ht* 42839 (+ 42839 -1)) + (s7-hash-table-set! *char-upcase-ht* 42841 (+ 42841 -1)) + (s7-hash-table-set! *char-upcase-ht* 42843 (+ 42843 -1)) + (s7-hash-table-set! *char-upcase-ht* 42845 (+ 42845 -1)) + (s7-hash-table-set! *char-upcase-ht* 42847 (+ 42847 -1)) + (s7-hash-table-set! *char-upcase-ht* 42849 (+ 42849 -1)) + (s7-hash-table-set! *char-upcase-ht* 42851 (+ 42851 -1)) + (s7-hash-table-set! *char-upcase-ht* 42853 (+ 42853 -1)) + (s7-hash-table-set! *char-upcase-ht* 42855 (+ 42855 -1)) + (s7-hash-table-set! *char-upcase-ht* 42857 (+ 42857 -1)) + (s7-hash-table-set! *char-upcase-ht* 42859 (+ 42859 -1)) + (s7-hash-table-set! *char-upcase-ht* 42861 (+ 42861 -1)) + (s7-hash-table-set! *char-upcase-ht* 42863 (+ 42863 -1)) + (s7-hash-table-set! *char-upcase-ht* 42874 (+ 42874 -1)) + (s7-hash-table-set! *char-upcase-ht* 42876 (+ 42876 -1)) + (s7-hash-table-set! *char-upcase-ht* 42879 (+ 42879 -1)) + (s7-hash-table-set! *char-upcase-ht* 42881 (+ 42881 -1)) + (s7-hash-table-set! *char-upcase-ht* 42883 (+ 42883 -1)) + (s7-hash-table-set! *char-upcase-ht* 42885 (+ 42885 -1)) + (s7-hash-table-set! *char-upcase-ht* 42887 (+ 42887 -1)) + (s7-hash-table-set! *char-upcase-ht* 42892 (+ 42892 -1)) + (s7-hash-table-set! *char-upcase-ht* 42897 (+ 42897 -1)) + (s7-hash-table-set! *char-upcase-ht* 42899 (+ 42899 -1)) + (s7-hash-table-set! *char-upcase-ht* 42900 (+ 42900 48)) + (s7-hash-table-set! *char-upcase-ht* 42903 (+ 42903 -1)) + (s7-hash-table-set! *char-upcase-ht* 42905 (+ 42905 -1)) + (s7-hash-table-set! *char-upcase-ht* 42907 (+ 42907 -1)) + (s7-hash-table-set! *char-upcase-ht* 42909 (+ 42909 -1)) + (s7-hash-table-set! *char-upcase-ht* 42911 (+ 42911 -1)) + (s7-hash-table-set! *char-upcase-ht* 42913 (+ 42913 -1)) + (s7-hash-table-set! *char-upcase-ht* 42915 (+ 42915 -1)) + (s7-hash-table-set! *char-upcase-ht* 42917 (+ 42917 -1)) + (s7-hash-table-set! *char-upcase-ht* 42919 (+ 42919 -1)) + (s7-hash-table-set! *char-upcase-ht* 42921 (+ 42921 -1)) + (s7-hash-table-set! *char-upcase-ht* 42933 (+ 42933 -1)) + (s7-hash-table-set! *char-upcase-ht* 42935 (+ 42935 -1)) + (s7-hash-table-set! *char-upcase-ht* 42937 (+ 42937 -1)) + (s7-hash-table-set! *char-upcase-ht* 42939 (+ 42939 -1)) + (s7-hash-table-set! *char-upcase-ht* 42941 (+ 42941 -1)) + (s7-hash-table-set! *char-upcase-ht* 42943 (+ 42943 -1)) + (s7-hash-table-set! *char-upcase-ht* 42945 (+ 42945 -1)) + (s7-hash-table-set! *char-upcase-ht* 42947 (+ 42947 -1)) + (s7-hash-table-set! *char-upcase-ht* 42952 (+ 42952 -1)) + (s7-hash-table-set! *char-upcase-ht* 42954 (+ 42954 -1)) + (s7-hash-table-set! *char-upcase-ht* 42957 (+ 42957 -1)) + (s7-hash-table-set! *char-upcase-ht* 42961 (+ 42961 -1)) + (s7-hash-table-set! *char-upcase-ht* 42967 (+ 42967 -1)) + (s7-hash-table-set! *char-upcase-ht* 42969 (+ 42969 -1)) + (s7-hash-table-set! *char-upcase-ht* 42971 (+ 42971 -1)) + (s7-hash-table-set! *char-upcase-ht* 42998 (+ 42998 -1)) + (s7-hash-table-set! *char-upcase-ht* 43859 (+ 43859 -928)) + (do ((i 43888 (+ i 1))) + ((> i 43967)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -38864)) + ) ;do + (do ((i 65345 (+ i 1))) + ((> i 65370)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -32)) + ) ;do + (do ((i 66600 (+ i 1))) + ((> i 66639)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -40)) + ) ;do + (do ((i 66776 (+ i 1))) + ((> i 66811)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -40)) + ) ;do + (do ((i 66967 (+ i 1))) + ((> i 66977)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -39)) + ) ;do + (do ((i 66979 (+ i 1))) + ((> i 66993)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -39)) + ) ;do + (do ((i 66995 (+ i 1))) + ((> i 67001)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -39)) + ) ;do + (do ((i 67003 (+ i 1))) + ((> i 67004)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -39)) + ) ;do + (do ((i 68800 (+ i 1))) + ((> i 68850)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -64)) + ) ;do + (do ((i 68976 (+ i 1))) + ((> i 68997)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -32)) + ) ;do + (do ((i 71872 (+ i 1))) + ((> i 71903)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -32)) + ) ;do + (do ((i 93792 (+ i 1))) + ((> i 93823)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -32)) + ) ;do + (do ((i 125218 (+ i 1))) + ((> i 125251)) + (s7-hash-table-set! *char-upcase-ht* i (+ i -34)) + ) ;do + ) ;unless + + (unless (defined? '*char-downcase-ht*) + (define *char-downcase-ht* (s7-make-hash-table)) + ;; char-downcase hash-table initialization + (do ((i 65 (+ i 1))) + ((> i 90)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 32)) + ) ;do + (do ((i 192 (+ i 1))) + ((> i 214)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 32)) + ) ;do + (do ((i 216 (+ i 1))) + ((> i 222)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 32)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 256 (+ 256 1)) + (s7-hash-table-set! *char-downcase-ht* 258 (+ 258 1)) + (s7-hash-table-set! *char-downcase-ht* 260 (+ 260 1)) + (s7-hash-table-set! *char-downcase-ht* 262 (+ 262 1)) + (s7-hash-table-set! *char-downcase-ht* 264 (+ 264 1)) + (s7-hash-table-set! *char-downcase-ht* 266 (+ 266 1)) + (s7-hash-table-set! *char-downcase-ht* 268 (+ 268 1)) + (s7-hash-table-set! *char-downcase-ht* 270 (+ 270 1)) + (s7-hash-table-set! *char-downcase-ht* 272 (+ 272 1)) + (s7-hash-table-set! *char-downcase-ht* 274 (+ 274 1)) + (s7-hash-table-set! *char-downcase-ht* 276 (+ 276 1)) + (s7-hash-table-set! *char-downcase-ht* 278 (+ 278 1)) + (s7-hash-table-set! *char-downcase-ht* 280 (+ 280 1)) + (s7-hash-table-set! *char-downcase-ht* 282 (+ 282 1)) + (s7-hash-table-set! *char-downcase-ht* 284 (+ 284 1)) + (s7-hash-table-set! *char-downcase-ht* 286 (+ 286 1)) + (s7-hash-table-set! *char-downcase-ht* 288 (+ 288 1)) + (s7-hash-table-set! *char-downcase-ht* 290 (+ 290 1)) + (s7-hash-table-set! *char-downcase-ht* 292 (+ 292 1)) + (s7-hash-table-set! *char-downcase-ht* 294 (+ 294 1)) + (s7-hash-table-set! *char-downcase-ht* 296 (+ 296 1)) + (s7-hash-table-set! *char-downcase-ht* 298 (+ 298 1)) + (s7-hash-table-set! *char-downcase-ht* 300 (+ 300 1)) + (s7-hash-table-set! *char-downcase-ht* 302 (+ 302 1)) + (s7-hash-table-set! *char-downcase-ht* 304 (+ 304 -199)) + (s7-hash-table-set! *char-downcase-ht* 306 (+ 306 1)) + (s7-hash-table-set! *char-downcase-ht* 308 (+ 308 1)) + (s7-hash-table-set! *char-downcase-ht* 310 (+ 310 1)) + (s7-hash-table-set! *char-downcase-ht* 313 (+ 313 1)) + (s7-hash-table-set! *char-downcase-ht* 315 (+ 315 1)) + (s7-hash-table-set! *char-downcase-ht* 317 (+ 317 1)) + (s7-hash-table-set! *char-downcase-ht* 319 (+ 319 1)) + (s7-hash-table-set! *char-downcase-ht* 321 (+ 321 1)) + (s7-hash-table-set! *char-downcase-ht* 323 (+ 323 1)) + (s7-hash-table-set! *char-downcase-ht* 325 (+ 325 1)) + (s7-hash-table-set! *char-downcase-ht* 327 (+ 327 1)) + (s7-hash-table-set! *char-downcase-ht* 330 (+ 330 1)) + (s7-hash-table-set! *char-downcase-ht* 332 (+ 332 1)) + (s7-hash-table-set! *char-downcase-ht* 334 (+ 334 1)) + (s7-hash-table-set! *char-downcase-ht* 336 (+ 336 1)) + (s7-hash-table-set! *char-downcase-ht* 338 (+ 338 1)) + (s7-hash-table-set! *char-downcase-ht* 340 (+ 340 1)) + (s7-hash-table-set! *char-downcase-ht* 342 (+ 342 1)) + (s7-hash-table-set! *char-downcase-ht* 344 (+ 344 1)) + (s7-hash-table-set! *char-downcase-ht* 346 (+ 346 1)) + (s7-hash-table-set! *char-downcase-ht* 348 (+ 348 1)) + (s7-hash-table-set! *char-downcase-ht* 350 (+ 350 1)) + (s7-hash-table-set! *char-downcase-ht* 352 (+ 352 1)) + (s7-hash-table-set! *char-downcase-ht* 354 (+ 354 1)) + (s7-hash-table-set! *char-downcase-ht* 356 (+ 356 1)) + (s7-hash-table-set! *char-downcase-ht* 358 (+ 358 1)) + (s7-hash-table-set! *char-downcase-ht* 360 (+ 360 1)) + (s7-hash-table-set! *char-downcase-ht* 362 (+ 362 1)) + (s7-hash-table-set! *char-downcase-ht* 364 (+ 364 1)) + (s7-hash-table-set! *char-downcase-ht* 366 (+ 366 1)) + (s7-hash-table-set! *char-downcase-ht* 368 (+ 368 1)) + (s7-hash-table-set! *char-downcase-ht* 370 (+ 370 1)) + (s7-hash-table-set! *char-downcase-ht* 372 (+ 372 1)) + (s7-hash-table-set! *char-downcase-ht* 374 (+ 374 1)) + (s7-hash-table-set! *char-downcase-ht* 376 (+ 376 -121)) + (s7-hash-table-set! *char-downcase-ht* 377 (+ 377 1)) + (s7-hash-table-set! *char-downcase-ht* 379 (+ 379 1)) + (s7-hash-table-set! *char-downcase-ht* 381 (+ 381 1)) + (s7-hash-table-set! *char-downcase-ht* 385 (+ 385 210)) + (s7-hash-table-set! *char-downcase-ht* 386 (+ 386 1)) + (s7-hash-table-set! *char-downcase-ht* 388 (+ 388 1)) + (s7-hash-table-set! *char-downcase-ht* 390 (+ 390 206)) + (s7-hash-table-set! *char-downcase-ht* 391 (+ 391 1)) + (do ((i 393 (+ i 1))) + ((> i 394)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 205)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 395 (+ 395 1)) + (s7-hash-table-set! *char-downcase-ht* 398 (+ 398 79)) + (s7-hash-table-set! *char-downcase-ht* 399 (+ 399 202)) + (s7-hash-table-set! *char-downcase-ht* 400 (+ 400 203)) + (s7-hash-table-set! *char-downcase-ht* 401 (+ 401 1)) + (s7-hash-table-set! *char-downcase-ht* 403 (+ 403 205)) + (s7-hash-table-set! *char-downcase-ht* 404 (+ 404 207)) + (s7-hash-table-set! *char-downcase-ht* 406 (+ 406 211)) + (s7-hash-table-set! *char-downcase-ht* 407 (+ 407 209)) + (s7-hash-table-set! *char-downcase-ht* 408 (+ 408 1)) + (s7-hash-table-set! *char-downcase-ht* 412 (+ 412 211)) + (s7-hash-table-set! *char-downcase-ht* 413 (+ 413 213)) + (s7-hash-table-set! *char-downcase-ht* 415 (+ 415 214)) + (s7-hash-table-set! *char-downcase-ht* 416 (+ 416 1)) + (s7-hash-table-set! *char-downcase-ht* 418 (+ 418 1)) + (s7-hash-table-set! *char-downcase-ht* 420 (+ 420 1)) + (s7-hash-table-set! *char-downcase-ht* 422 (+ 422 218)) + (s7-hash-table-set! *char-downcase-ht* 423 (+ 423 1)) + (s7-hash-table-set! *char-downcase-ht* 425 (+ 425 218)) + (s7-hash-table-set! *char-downcase-ht* 428 (+ 428 1)) + (s7-hash-table-set! *char-downcase-ht* 430 (+ 430 218)) + (s7-hash-table-set! *char-downcase-ht* 431 (+ 431 1)) + (do ((i 433 (+ i 1))) + ((> i 434)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 217)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 435 (+ 435 1)) + (s7-hash-table-set! *char-downcase-ht* 437 (+ 437 1)) + (s7-hash-table-set! *char-downcase-ht* 439 (+ 439 219)) + (s7-hash-table-set! *char-downcase-ht* 440 (+ 440 1)) + (s7-hash-table-set! *char-downcase-ht* 444 (+ 444 1)) + (s7-hash-table-set! *char-downcase-ht* 452 (+ 452 2)) + (s7-hash-table-set! *char-downcase-ht* 453 (+ 453 1)) + (s7-hash-table-set! *char-downcase-ht* 455 (+ 455 2)) + (s7-hash-table-set! *char-downcase-ht* 456 (+ 456 1)) + (s7-hash-table-set! *char-downcase-ht* 458 (+ 458 2)) + (s7-hash-table-set! *char-downcase-ht* 459 (+ 459 1)) + (s7-hash-table-set! *char-downcase-ht* 461 (+ 461 1)) + (s7-hash-table-set! *char-downcase-ht* 463 (+ 463 1)) + (s7-hash-table-set! *char-downcase-ht* 465 (+ 465 1)) + (s7-hash-table-set! *char-downcase-ht* 467 (+ 467 1)) + (s7-hash-table-set! *char-downcase-ht* 469 (+ 469 1)) + (s7-hash-table-set! *char-downcase-ht* 471 (+ 471 1)) + (s7-hash-table-set! *char-downcase-ht* 473 (+ 473 1)) + (s7-hash-table-set! *char-downcase-ht* 475 (+ 475 1)) + (s7-hash-table-set! *char-downcase-ht* 478 (+ 478 1)) + (s7-hash-table-set! *char-downcase-ht* 480 (+ 480 1)) + (s7-hash-table-set! *char-downcase-ht* 482 (+ 482 1)) + (s7-hash-table-set! *char-downcase-ht* 484 (+ 484 1)) + (s7-hash-table-set! *char-downcase-ht* 486 (+ 486 1)) + (s7-hash-table-set! *char-downcase-ht* 488 (+ 488 1)) + (s7-hash-table-set! *char-downcase-ht* 490 (+ 490 1)) + (s7-hash-table-set! *char-downcase-ht* 492 (+ 492 1)) + (s7-hash-table-set! *char-downcase-ht* 494 (+ 494 1)) + (s7-hash-table-set! *char-downcase-ht* 497 (+ 497 2)) + (s7-hash-table-set! *char-downcase-ht* 498 (+ 498 1)) + (s7-hash-table-set! *char-downcase-ht* 500 (+ 500 1)) + (s7-hash-table-set! *char-downcase-ht* 502 (+ 502 -97)) + (s7-hash-table-set! *char-downcase-ht* 503 (+ 503 -56)) + (s7-hash-table-set! *char-downcase-ht* 504 (+ 504 1)) + (s7-hash-table-set! *char-downcase-ht* 506 (+ 506 1)) + (s7-hash-table-set! *char-downcase-ht* 508 (+ 508 1)) + (s7-hash-table-set! *char-downcase-ht* 510 (+ 510 1)) + (s7-hash-table-set! *char-downcase-ht* 512 (+ 512 1)) + (s7-hash-table-set! *char-downcase-ht* 514 (+ 514 1)) + (s7-hash-table-set! *char-downcase-ht* 516 (+ 516 1)) + (s7-hash-table-set! *char-downcase-ht* 518 (+ 518 1)) + (s7-hash-table-set! *char-downcase-ht* 520 (+ 520 1)) + (s7-hash-table-set! *char-downcase-ht* 522 (+ 522 1)) + (s7-hash-table-set! *char-downcase-ht* 524 (+ 524 1)) + (s7-hash-table-set! *char-downcase-ht* 526 (+ 526 1)) + (s7-hash-table-set! *char-downcase-ht* 528 (+ 528 1)) + (s7-hash-table-set! *char-downcase-ht* 530 (+ 530 1)) + (s7-hash-table-set! *char-downcase-ht* 532 (+ 532 1)) + (s7-hash-table-set! *char-downcase-ht* 534 (+ 534 1)) + (s7-hash-table-set! *char-downcase-ht* 536 (+ 536 1)) + (s7-hash-table-set! *char-downcase-ht* 538 (+ 538 1)) + (s7-hash-table-set! *char-downcase-ht* 540 (+ 540 1)) + (s7-hash-table-set! *char-downcase-ht* 542 (+ 542 1)) + (s7-hash-table-set! *char-downcase-ht* 544 (+ 544 -130)) + (s7-hash-table-set! *char-downcase-ht* 546 (+ 546 1)) + (s7-hash-table-set! *char-downcase-ht* 548 (+ 548 1)) + (s7-hash-table-set! *char-downcase-ht* 550 (+ 550 1)) + (s7-hash-table-set! *char-downcase-ht* 552 (+ 552 1)) + (s7-hash-table-set! *char-downcase-ht* 554 (+ 554 1)) + (s7-hash-table-set! *char-downcase-ht* 556 (+ 556 1)) + (s7-hash-table-set! *char-downcase-ht* 558 (+ 558 1)) + (s7-hash-table-set! *char-downcase-ht* 560 (+ 560 1)) + (s7-hash-table-set! *char-downcase-ht* 562 (+ 562 1)) + (s7-hash-table-set! *char-downcase-ht* 570 (+ 570 10795)) + (s7-hash-table-set! *char-downcase-ht* 571 (+ 571 1)) + (s7-hash-table-set! *char-downcase-ht* 573 (+ 573 -163)) + (s7-hash-table-set! *char-downcase-ht* 574 (+ 574 10792)) + (s7-hash-table-set! *char-downcase-ht* 577 (+ 577 1)) + (s7-hash-table-set! *char-downcase-ht* 579 (+ 579 -195)) + (s7-hash-table-set! *char-downcase-ht* 580 (+ 580 69)) + (s7-hash-table-set! *char-downcase-ht* 581 (+ 581 71)) + (s7-hash-table-set! *char-downcase-ht* 582 (+ 582 1)) + (s7-hash-table-set! *char-downcase-ht* 584 (+ 584 1)) + (s7-hash-table-set! *char-downcase-ht* 586 (+ 586 1)) + (s7-hash-table-set! *char-downcase-ht* 588 (+ 588 1)) + (s7-hash-table-set! *char-downcase-ht* 590 (+ 590 1)) + (s7-hash-table-set! *char-downcase-ht* 880 (+ 880 1)) + (s7-hash-table-set! *char-downcase-ht* 882 (+ 882 1)) + (s7-hash-table-set! *char-downcase-ht* 886 (+ 886 1)) + (s7-hash-table-set! *char-downcase-ht* 895 (+ 895 116)) + (s7-hash-table-set! *char-downcase-ht* 902 (+ 902 38)) + (do ((i 904 (+ i 1))) + ((> i 906)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 37)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 908 (+ 908 64)) + (do ((i 910 (+ i 1))) + ((> i 911)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 63)) + ) ;do + (do ((i 913 (+ i 1))) + ((> i 929)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 32)) + ) ;do + (do ((i 931 (+ i 1))) + ((> i 939)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 32)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 975 (+ 975 8)) + (s7-hash-table-set! *char-downcase-ht* 984 (+ 984 1)) + (s7-hash-table-set! *char-downcase-ht* 986 (+ 986 1)) + (s7-hash-table-set! *char-downcase-ht* 988 (+ 988 1)) + (s7-hash-table-set! *char-downcase-ht* 990 (+ 990 1)) + (s7-hash-table-set! *char-downcase-ht* 992 (+ 992 1)) + (s7-hash-table-set! *char-downcase-ht* 994 (+ 994 1)) + (s7-hash-table-set! *char-downcase-ht* 996 (+ 996 1)) + (s7-hash-table-set! *char-downcase-ht* 998 (+ 998 1)) + (s7-hash-table-set! *char-downcase-ht* 1000 (+ 1000 1)) + (s7-hash-table-set! *char-downcase-ht* 1002 (+ 1002 1)) + (s7-hash-table-set! *char-downcase-ht* 1004 (+ 1004 1)) + (s7-hash-table-set! *char-downcase-ht* 1006 (+ 1006 1)) + (s7-hash-table-set! *char-downcase-ht* 1012 (+ 1012 -60)) + (s7-hash-table-set! *char-downcase-ht* 1015 (+ 1015 1)) + (s7-hash-table-set! *char-downcase-ht* 1017 (+ 1017 -7)) + (s7-hash-table-set! *char-downcase-ht* 1018 (+ 1018 1)) + (do ((i 1021 (+ i 1))) + ((> i 1023)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -130)) + ) ;do + (do ((i 1024 (+ i 1))) + ((> i 1039)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 80)) + ) ;do + (do ((i 1040 (+ i 1))) + ((> i 1071)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 32)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 1120 (+ 1120 1)) + (s7-hash-table-set! *char-downcase-ht* 1122 (+ 1122 1)) + (s7-hash-table-set! *char-downcase-ht* 1124 (+ 1124 1)) + (s7-hash-table-set! *char-downcase-ht* 1126 (+ 1126 1)) + (s7-hash-table-set! *char-downcase-ht* 1128 (+ 1128 1)) + (s7-hash-table-set! *char-downcase-ht* 1130 (+ 1130 1)) + (s7-hash-table-set! *char-downcase-ht* 1132 (+ 1132 1)) + (s7-hash-table-set! *char-downcase-ht* 1134 (+ 1134 1)) + (s7-hash-table-set! *char-downcase-ht* 1136 (+ 1136 1)) + (s7-hash-table-set! *char-downcase-ht* 1138 (+ 1138 1)) + (s7-hash-table-set! *char-downcase-ht* 1140 (+ 1140 1)) + (s7-hash-table-set! *char-downcase-ht* 1142 (+ 1142 1)) + (s7-hash-table-set! *char-downcase-ht* 1144 (+ 1144 1)) + (s7-hash-table-set! *char-downcase-ht* 1146 (+ 1146 1)) + (s7-hash-table-set! *char-downcase-ht* 1148 (+ 1148 1)) + (s7-hash-table-set! *char-downcase-ht* 1150 (+ 1150 1)) + (s7-hash-table-set! *char-downcase-ht* 1152 (+ 1152 1)) + (s7-hash-table-set! *char-downcase-ht* 1162 (+ 1162 1)) + (s7-hash-table-set! *char-downcase-ht* 1164 (+ 1164 1)) + (s7-hash-table-set! *char-downcase-ht* 1166 (+ 1166 1)) + (s7-hash-table-set! *char-downcase-ht* 1168 (+ 1168 1)) + (s7-hash-table-set! *char-downcase-ht* 1170 (+ 1170 1)) + (s7-hash-table-set! *char-downcase-ht* 1172 (+ 1172 1)) + (s7-hash-table-set! *char-downcase-ht* 1174 (+ 1174 1)) + (s7-hash-table-set! *char-downcase-ht* 1176 (+ 1176 1)) + (s7-hash-table-set! *char-downcase-ht* 1178 (+ 1178 1)) + (s7-hash-table-set! *char-downcase-ht* 1180 (+ 1180 1)) + (s7-hash-table-set! *char-downcase-ht* 1182 (+ 1182 1)) + (s7-hash-table-set! *char-downcase-ht* 1184 (+ 1184 1)) + (s7-hash-table-set! *char-downcase-ht* 1186 (+ 1186 1)) + (s7-hash-table-set! *char-downcase-ht* 1188 (+ 1188 1)) + (s7-hash-table-set! *char-downcase-ht* 1190 (+ 1190 1)) + (s7-hash-table-set! *char-downcase-ht* 1192 (+ 1192 1)) + (s7-hash-table-set! *char-downcase-ht* 1194 (+ 1194 1)) + (s7-hash-table-set! *char-downcase-ht* 1196 (+ 1196 1)) + (s7-hash-table-set! *char-downcase-ht* 1198 (+ 1198 1)) + (s7-hash-table-set! *char-downcase-ht* 1200 (+ 1200 1)) + (s7-hash-table-set! *char-downcase-ht* 1202 (+ 1202 1)) + (s7-hash-table-set! *char-downcase-ht* 1204 (+ 1204 1)) + (s7-hash-table-set! *char-downcase-ht* 1206 (+ 1206 1)) + (s7-hash-table-set! *char-downcase-ht* 1208 (+ 1208 1)) + (s7-hash-table-set! *char-downcase-ht* 1210 (+ 1210 1)) + (s7-hash-table-set! *char-downcase-ht* 1212 (+ 1212 1)) + (s7-hash-table-set! *char-downcase-ht* 1214 (+ 1214 1)) + (s7-hash-table-set! *char-downcase-ht* 1216 (+ 1216 15)) + (s7-hash-table-set! *char-downcase-ht* 1217 (+ 1217 1)) + (s7-hash-table-set! *char-downcase-ht* 1219 (+ 1219 1)) + (s7-hash-table-set! *char-downcase-ht* 1221 (+ 1221 1)) + (s7-hash-table-set! *char-downcase-ht* 1223 (+ 1223 1)) + (s7-hash-table-set! *char-downcase-ht* 1225 (+ 1225 1)) + (s7-hash-table-set! *char-downcase-ht* 1227 (+ 1227 1)) + (s7-hash-table-set! *char-downcase-ht* 1229 (+ 1229 1)) + (s7-hash-table-set! *char-downcase-ht* 1232 (+ 1232 1)) + (s7-hash-table-set! *char-downcase-ht* 1234 (+ 1234 1)) + (s7-hash-table-set! *char-downcase-ht* 1236 (+ 1236 1)) + (s7-hash-table-set! *char-downcase-ht* 1238 (+ 1238 1)) + (s7-hash-table-set! *char-downcase-ht* 1240 (+ 1240 1)) + (s7-hash-table-set! *char-downcase-ht* 1242 (+ 1242 1)) + (s7-hash-table-set! *char-downcase-ht* 1244 (+ 1244 1)) + (s7-hash-table-set! *char-downcase-ht* 1246 (+ 1246 1)) + (s7-hash-table-set! *char-downcase-ht* 1248 (+ 1248 1)) + (s7-hash-table-set! *char-downcase-ht* 1250 (+ 1250 1)) + (s7-hash-table-set! *char-downcase-ht* 1252 (+ 1252 1)) + (s7-hash-table-set! *char-downcase-ht* 1254 (+ 1254 1)) + (s7-hash-table-set! *char-downcase-ht* 1256 (+ 1256 1)) + (s7-hash-table-set! *char-downcase-ht* 1258 (+ 1258 1)) + (s7-hash-table-set! *char-downcase-ht* 1260 (+ 1260 1)) + (s7-hash-table-set! *char-downcase-ht* 1262 (+ 1262 1)) + (s7-hash-table-set! *char-downcase-ht* 1264 (+ 1264 1)) + (s7-hash-table-set! *char-downcase-ht* 1266 (+ 1266 1)) + (s7-hash-table-set! *char-downcase-ht* 1268 (+ 1268 1)) + (s7-hash-table-set! *char-downcase-ht* 1270 (+ 1270 1)) + (s7-hash-table-set! *char-downcase-ht* 1272 (+ 1272 1)) + (s7-hash-table-set! *char-downcase-ht* 1274 (+ 1274 1)) + (s7-hash-table-set! *char-downcase-ht* 1276 (+ 1276 1)) + (s7-hash-table-set! *char-downcase-ht* 1278 (+ 1278 1)) + (s7-hash-table-set! *char-downcase-ht* 1280 (+ 1280 1)) + (s7-hash-table-set! *char-downcase-ht* 1282 (+ 1282 1)) + (s7-hash-table-set! *char-downcase-ht* 1284 (+ 1284 1)) + (s7-hash-table-set! *char-downcase-ht* 1286 (+ 1286 1)) + (s7-hash-table-set! *char-downcase-ht* 1288 (+ 1288 1)) + (s7-hash-table-set! *char-downcase-ht* 1290 (+ 1290 1)) + (s7-hash-table-set! *char-downcase-ht* 1292 (+ 1292 1)) + (s7-hash-table-set! *char-downcase-ht* 1294 (+ 1294 1)) + (s7-hash-table-set! *char-downcase-ht* 1296 (+ 1296 1)) + (s7-hash-table-set! *char-downcase-ht* 1298 (+ 1298 1)) + (s7-hash-table-set! *char-downcase-ht* 1300 (+ 1300 1)) + (s7-hash-table-set! *char-downcase-ht* 1302 (+ 1302 1)) + (s7-hash-table-set! *char-downcase-ht* 1304 (+ 1304 1)) + (s7-hash-table-set! *char-downcase-ht* 1306 (+ 1306 1)) + (s7-hash-table-set! *char-downcase-ht* 1308 (+ 1308 1)) + (s7-hash-table-set! *char-downcase-ht* 1310 (+ 1310 1)) + (s7-hash-table-set! *char-downcase-ht* 1312 (+ 1312 1)) + (s7-hash-table-set! *char-downcase-ht* 1314 (+ 1314 1)) + (s7-hash-table-set! *char-downcase-ht* 1316 (+ 1316 1)) + (s7-hash-table-set! *char-downcase-ht* 1318 (+ 1318 1)) + (s7-hash-table-set! *char-downcase-ht* 1320 (+ 1320 1)) + (s7-hash-table-set! *char-downcase-ht* 1322 (+ 1322 1)) + (s7-hash-table-set! *char-downcase-ht* 1324 (+ 1324 1)) + (s7-hash-table-set! *char-downcase-ht* 1326 (+ 1326 1)) + (do ((i 1329 (+ i 1))) + ((> i 1366)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 48)) + ) ;do + (do ((i 4256 (+ i 1))) + ((> i 4293)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 7264)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 4295 (+ 4295 7264)) + (s7-hash-table-set! *char-downcase-ht* 4301 (+ 4301 7264)) + (do ((i 5024 (+ i 1))) + ((> i 5103)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 38864)) + ) ;do + (do ((i 5104 (+ i 1))) + ((> i 5109)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 8)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 7305 (+ 7305 1)) + (do ((i 7312 (+ i 1))) + ((> i 7354)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -3008)) + ) ;do + (do ((i 7357 (+ i 1))) + ((> i 7359)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -3008)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 7680 (+ 7680 1)) + (s7-hash-table-set! *char-downcase-ht* 7682 (+ 7682 1)) + (s7-hash-table-set! *char-downcase-ht* 7684 (+ 7684 1)) + (s7-hash-table-set! *char-downcase-ht* 7686 (+ 7686 1)) + (s7-hash-table-set! *char-downcase-ht* 7688 (+ 7688 1)) + (s7-hash-table-set! *char-downcase-ht* 7690 (+ 7690 1)) + (s7-hash-table-set! *char-downcase-ht* 7692 (+ 7692 1)) + (s7-hash-table-set! *char-downcase-ht* 7694 (+ 7694 1)) + (s7-hash-table-set! *char-downcase-ht* 7696 (+ 7696 1)) + (s7-hash-table-set! *char-downcase-ht* 7698 (+ 7698 1)) + (s7-hash-table-set! *char-downcase-ht* 7700 (+ 7700 1)) + (s7-hash-table-set! *char-downcase-ht* 7702 (+ 7702 1)) + (s7-hash-table-set! *char-downcase-ht* 7704 (+ 7704 1)) + (s7-hash-table-set! *char-downcase-ht* 7706 (+ 7706 1)) + (s7-hash-table-set! *char-downcase-ht* 7708 (+ 7708 1)) + (s7-hash-table-set! *char-downcase-ht* 7710 (+ 7710 1)) + (s7-hash-table-set! *char-downcase-ht* 7712 (+ 7712 1)) + (s7-hash-table-set! *char-downcase-ht* 7714 (+ 7714 1)) + (s7-hash-table-set! *char-downcase-ht* 7716 (+ 7716 1)) + (s7-hash-table-set! *char-downcase-ht* 7718 (+ 7718 1)) + (s7-hash-table-set! *char-downcase-ht* 7720 (+ 7720 1)) + (s7-hash-table-set! *char-downcase-ht* 7722 (+ 7722 1)) + (s7-hash-table-set! *char-downcase-ht* 7724 (+ 7724 1)) + (s7-hash-table-set! *char-downcase-ht* 7726 (+ 7726 1)) + (s7-hash-table-set! *char-downcase-ht* 7728 (+ 7728 1)) + (s7-hash-table-set! *char-downcase-ht* 7730 (+ 7730 1)) + (s7-hash-table-set! *char-downcase-ht* 7732 (+ 7732 1)) + (s7-hash-table-set! *char-downcase-ht* 7734 (+ 7734 1)) + (s7-hash-table-set! *char-downcase-ht* 7736 (+ 7736 1)) + (s7-hash-table-set! *char-downcase-ht* 7738 (+ 7738 1)) + (s7-hash-table-set! *char-downcase-ht* 7740 (+ 7740 1)) + (s7-hash-table-set! *char-downcase-ht* 7742 (+ 7742 1)) + (s7-hash-table-set! *char-downcase-ht* 7744 (+ 7744 1)) + (s7-hash-table-set! *char-downcase-ht* 7746 (+ 7746 1)) + (s7-hash-table-set! *char-downcase-ht* 7748 (+ 7748 1)) + (s7-hash-table-set! *char-downcase-ht* 7750 (+ 7750 1)) + (s7-hash-table-set! *char-downcase-ht* 7752 (+ 7752 1)) + (s7-hash-table-set! *char-downcase-ht* 7754 (+ 7754 1)) + (s7-hash-table-set! *char-downcase-ht* 7756 (+ 7756 1)) + (s7-hash-table-set! *char-downcase-ht* 7758 (+ 7758 1)) + (s7-hash-table-set! *char-downcase-ht* 7760 (+ 7760 1)) + (s7-hash-table-set! *char-downcase-ht* 7762 (+ 7762 1)) + (s7-hash-table-set! *char-downcase-ht* 7764 (+ 7764 1)) + (s7-hash-table-set! *char-downcase-ht* 7766 (+ 7766 1)) + (s7-hash-table-set! *char-downcase-ht* 7768 (+ 7768 1)) + (s7-hash-table-set! *char-downcase-ht* 7770 (+ 7770 1)) + (s7-hash-table-set! *char-downcase-ht* 7772 (+ 7772 1)) + (s7-hash-table-set! *char-downcase-ht* 7774 (+ 7774 1)) + (s7-hash-table-set! *char-downcase-ht* 7776 (+ 7776 1)) + (s7-hash-table-set! *char-downcase-ht* 7778 (+ 7778 1)) + (s7-hash-table-set! *char-downcase-ht* 7780 (+ 7780 1)) + (s7-hash-table-set! *char-downcase-ht* 7782 (+ 7782 1)) + (s7-hash-table-set! *char-downcase-ht* 7784 (+ 7784 1)) + (s7-hash-table-set! *char-downcase-ht* 7786 (+ 7786 1)) + (s7-hash-table-set! *char-downcase-ht* 7788 (+ 7788 1)) + (s7-hash-table-set! *char-downcase-ht* 7790 (+ 7790 1)) + (s7-hash-table-set! *char-downcase-ht* 7792 (+ 7792 1)) + (s7-hash-table-set! *char-downcase-ht* 7794 (+ 7794 1)) + (s7-hash-table-set! *char-downcase-ht* 7796 (+ 7796 1)) + (s7-hash-table-set! *char-downcase-ht* 7798 (+ 7798 1)) + (s7-hash-table-set! *char-downcase-ht* 7800 (+ 7800 1)) + (s7-hash-table-set! *char-downcase-ht* 7802 (+ 7802 1)) + (s7-hash-table-set! *char-downcase-ht* 7804 (+ 7804 1)) + (s7-hash-table-set! *char-downcase-ht* 7806 (+ 7806 1)) + (s7-hash-table-set! *char-downcase-ht* 7808 (+ 7808 1)) + (s7-hash-table-set! *char-downcase-ht* 7810 (+ 7810 1)) + (s7-hash-table-set! *char-downcase-ht* 7812 (+ 7812 1)) + (s7-hash-table-set! *char-downcase-ht* 7814 (+ 7814 1)) + (s7-hash-table-set! *char-downcase-ht* 7816 (+ 7816 1)) + (s7-hash-table-set! *char-downcase-ht* 7818 (+ 7818 1)) + (s7-hash-table-set! *char-downcase-ht* 7820 (+ 7820 1)) + (s7-hash-table-set! *char-downcase-ht* 7822 (+ 7822 1)) + (s7-hash-table-set! *char-downcase-ht* 7824 (+ 7824 1)) + (s7-hash-table-set! *char-downcase-ht* 7826 (+ 7826 1)) + (s7-hash-table-set! *char-downcase-ht* 7828 (+ 7828 1)) + (s7-hash-table-set! *char-downcase-ht* 7838 (+ 7838 -7615)) + (s7-hash-table-set! *char-downcase-ht* 7840 (+ 7840 1)) + (s7-hash-table-set! *char-downcase-ht* 7842 (+ 7842 1)) + (s7-hash-table-set! *char-downcase-ht* 7844 (+ 7844 1)) + (s7-hash-table-set! *char-downcase-ht* 7846 (+ 7846 1)) + (s7-hash-table-set! *char-downcase-ht* 7848 (+ 7848 1)) + (s7-hash-table-set! *char-downcase-ht* 7850 (+ 7850 1)) + (s7-hash-table-set! *char-downcase-ht* 7852 (+ 7852 1)) + (s7-hash-table-set! *char-downcase-ht* 7854 (+ 7854 1)) + (s7-hash-table-set! *char-downcase-ht* 7856 (+ 7856 1)) + (s7-hash-table-set! *char-downcase-ht* 7858 (+ 7858 1)) + (s7-hash-table-set! *char-downcase-ht* 7860 (+ 7860 1)) + (s7-hash-table-set! *char-downcase-ht* 7862 (+ 7862 1)) + (s7-hash-table-set! *char-downcase-ht* 7864 (+ 7864 1)) + (s7-hash-table-set! *char-downcase-ht* 7866 (+ 7866 1)) + (s7-hash-table-set! *char-downcase-ht* 7868 (+ 7868 1)) + (s7-hash-table-set! *char-downcase-ht* 7870 (+ 7870 1)) + (s7-hash-table-set! *char-downcase-ht* 7872 (+ 7872 1)) + (s7-hash-table-set! *char-downcase-ht* 7874 (+ 7874 1)) + (s7-hash-table-set! *char-downcase-ht* 7876 (+ 7876 1)) + (s7-hash-table-set! *char-downcase-ht* 7878 (+ 7878 1)) + (s7-hash-table-set! *char-downcase-ht* 7880 (+ 7880 1)) + (s7-hash-table-set! *char-downcase-ht* 7882 (+ 7882 1)) + (s7-hash-table-set! *char-downcase-ht* 7884 (+ 7884 1)) + (s7-hash-table-set! *char-downcase-ht* 7886 (+ 7886 1)) + (s7-hash-table-set! *char-downcase-ht* 7888 (+ 7888 1)) + (s7-hash-table-set! *char-downcase-ht* 7890 (+ 7890 1)) + (s7-hash-table-set! *char-downcase-ht* 7892 (+ 7892 1)) + (s7-hash-table-set! *char-downcase-ht* 7894 (+ 7894 1)) + (s7-hash-table-set! *char-downcase-ht* 7896 (+ 7896 1)) + (s7-hash-table-set! *char-downcase-ht* 7898 (+ 7898 1)) + (s7-hash-table-set! *char-downcase-ht* 7900 (+ 7900 1)) + (s7-hash-table-set! *char-downcase-ht* 7902 (+ 7902 1)) + (s7-hash-table-set! *char-downcase-ht* 7904 (+ 7904 1)) + (s7-hash-table-set! *char-downcase-ht* 7906 (+ 7906 1)) + (s7-hash-table-set! *char-downcase-ht* 7908 (+ 7908 1)) + (s7-hash-table-set! *char-downcase-ht* 7910 (+ 7910 1)) + (s7-hash-table-set! *char-downcase-ht* 7912 (+ 7912 1)) + (s7-hash-table-set! *char-downcase-ht* 7914 (+ 7914 1)) + (s7-hash-table-set! *char-downcase-ht* 7916 (+ 7916 1)) + (s7-hash-table-set! *char-downcase-ht* 7918 (+ 7918 1)) + (s7-hash-table-set! *char-downcase-ht* 7920 (+ 7920 1)) + (s7-hash-table-set! *char-downcase-ht* 7922 (+ 7922 1)) + (s7-hash-table-set! *char-downcase-ht* 7924 (+ 7924 1)) + (s7-hash-table-set! *char-downcase-ht* 7926 (+ 7926 1)) + (s7-hash-table-set! *char-downcase-ht* 7928 (+ 7928 1)) + (s7-hash-table-set! *char-downcase-ht* 7930 (+ 7930 1)) + (s7-hash-table-set! *char-downcase-ht* 7932 (+ 7932 1)) + (s7-hash-table-set! *char-downcase-ht* 7934 (+ 7934 1)) + (do ((i 7944 (+ i 1))) + ((> i 7951)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -8)) + ) ;do + (do ((i 7960 (+ i 1))) + ((> i 7965)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -8)) + ) ;do + (do ((i 7976 (+ i 1))) + ((> i 7983)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -8)) + ) ;do + (do ((i 7992 (+ i 1))) + ((> i 7999)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -8)) + ) ;do + (do ((i 8008 (+ i 1))) + ((> i 8013)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -8)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 8025 (+ 8025 -8)) + (s7-hash-table-set! *char-downcase-ht* 8027 (+ 8027 -8)) + (s7-hash-table-set! *char-downcase-ht* 8029 (+ 8029 -8)) + (s7-hash-table-set! *char-downcase-ht* 8031 (+ 8031 -8)) + (do ((i 8040 (+ i 1))) + ((> i 8047)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -8)) + ) ;do + (do ((i 8072 (+ i 1))) + ((> i 8079)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -8)) + ) ;do + (do ((i 8088 (+ i 1))) + ((> i 8095)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -8)) + ) ;do + (do ((i 8104 (+ i 1))) + ((> i 8111)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -8)) + ) ;do + (do ((i 8120 (+ i 1))) + ((> i 8121)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -8)) + ) ;do + (do ((i 8122 (+ i 1))) + ((> i 8123)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -74)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 8124 (+ 8124 -9)) + (do ((i 8136 (+ i 1))) + ((> i 8139)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -86)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 8140 (+ 8140 -9)) + (do ((i 8152 (+ i 1))) + ((> i 8153)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -8)) + ) ;do + (do ((i 8154 (+ i 1))) + ((> i 8155)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -100)) + ) ;do + (do ((i 8168 (+ i 1))) + ((> i 8169)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -8)) + ) ;do + (do ((i 8170 (+ i 1))) + ((> i 8171)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -112)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 8172 (+ 8172 -7)) + (do ((i 8184 (+ i 1))) + ((> i 8185)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -128)) + ) ;do + (do ((i 8186 (+ i 1))) + ((> i 8187)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -126)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 8188 (+ 8188 -9)) + (s7-hash-table-set! *char-downcase-ht* 8486 (+ 8486 -7517)) + (s7-hash-table-set! *char-downcase-ht* 8490 (+ 8490 -8383)) + (s7-hash-table-set! *char-downcase-ht* 8491 (+ 8491 -8262)) + (s7-hash-table-set! *char-downcase-ht* 8498 (+ 8498 28)) + (do ((i 8544 (+ i 1))) + ((> i 8559)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 16)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 8579 (+ 8579 1)) + (do ((i 9398 (+ i 1))) + ((> i 9423)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 26)) + ) ;do + (do ((i 11264 (+ i 1))) + ((> i 11311)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 48)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 11360 (+ 11360 1)) + (s7-hash-table-set! *char-downcase-ht* 11362 (+ 11362 -10743)) + (s7-hash-table-set! *char-downcase-ht* 11363 (+ 11363 -3814)) + (s7-hash-table-set! *char-downcase-ht* 11364 (+ 11364 -10727)) + (s7-hash-table-set! *char-downcase-ht* 11367 (+ 11367 1)) + (s7-hash-table-set! *char-downcase-ht* 11369 (+ 11369 1)) + (s7-hash-table-set! *char-downcase-ht* 11371 (+ 11371 1)) + (s7-hash-table-set! *char-downcase-ht* 11373 (+ 11373 -10780)) + (s7-hash-table-set! *char-downcase-ht* 11374 (+ 11374 -10749)) + (s7-hash-table-set! *char-downcase-ht* 11375 (+ 11375 -10783)) + (s7-hash-table-set! *char-downcase-ht* 11376 (+ 11376 -10782)) + (s7-hash-table-set! *char-downcase-ht* 11378 (+ 11378 1)) + (s7-hash-table-set! *char-downcase-ht* 11381 (+ 11381 1)) + (do ((i 11390 (+ i 1))) + ((> i 11391)) + (s7-hash-table-set! *char-downcase-ht* i (+ i -10815)) + ) ;do + (s7-hash-table-set! *char-downcase-ht* 11392 (+ 11392 1)) + (s7-hash-table-set! *char-downcase-ht* 11394 (+ 11394 1)) + (s7-hash-table-set! *char-downcase-ht* 11396 (+ 11396 1)) + (s7-hash-table-set! *char-downcase-ht* 11398 (+ 11398 1)) + (s7-hash-table-set! *char-downcase-ht* 11400 (+ 11400 1)) + (s7-hash-table-set! *char-downcase-ht* 11402 (+ 11402 1)) + (s7-hash-table-set! *char-downcase-ht* 11404 (+ 11404 1)) + (s7-hash-table-set! *char-downcase-ht* 11406 (+ 11406 1)) + (s7-hash-table-set! *char-downcase-ht* 11408 (+ 11408 1)) + (s7-hash-table-set! *char-downcase-ht* 11410 (+ 11410 1)) + (s7-hash-table-set! *char-downcase-ht* 11412 (+ 11412 1)) + (s7-hash-table-set! *char-downcase-ht* 11414 (+ 11414 1)) + (s7-hash-table-set! *char-downcase-ht* 11416 (+ 11416 1)) + (s7-hash-table-set! *char-downcase-ht* 11418 (+ 11418 1)) + (s7-hash-table-set! *char-downcase-ht* 11420 (+ 11420 1)) + (s7-hash-table-set! *char-downcase-ht* 11422 (+ 11422 1)) + (s7-hash-table-set! *char-downcase-ht* 11424 (+ 11424 1)) + (s7-hash-table-set! *char-downcase-ht* 11426 (+ 11426 1)) + (s7-hash-table-set! *char-downcase-ht* 11428 (+ 11428 1)) + (s7-hash-table-set! *char-downcase-ht* 11430 (+ 11430 1)) + (s7-hash-table-set! *char-downcase-ht* 11432 (+ 11432 1)) + (s7-hash-table-set! *char-downcase-ht* 11434 (+ 11434 1)) + (s7-hash-table-set! *char-downcase-ht* 11436 (+ 11436 1)) + (s7-hash-table-set! *char-downcase-ht* 11438 (+ 11438 1)) + (s7-hash-table-set! *char-downcase-ht* 11440 (+ 11440 1)) + (s7-hash-table-set! *char-downcase-ht* 11442 (+ 11442 1)) + (s7-hash-table-set! *char-downcase-ht* 11444 (+ 11444 1)) + (s7-hash-table-set! *char-downcase-ht* 11446 (+ 11446 1)) + (s7-hash-table-set! *char-downcase-ht* 11448 (+ 11448 1)) + (s7-hash-table-set! *char-downcase-ht* 11450 (+ 11450 1)) + (s7-hash-table-set! *char-downcase-ht* 11452 (+ 11452 1)) + (s7-hash-table-set! *char-downcase-ht* 11454 (+ 11454 1)) + (s7-hash-table-set! *char-downcase-ht* 11456 (+ 11456 1)) + (s7-hash-table-set! *char-downcase-ht* 11458 (+ 11458 1)) + (s7-hash-table-set! *char-downcase-ht* 11460 (+ 11460 1)) + (s7-hash-table-set! *char-downcase-ht* 11462 (+ 11462 1)) + (s7-hash-table-set! *char-downcase-ht* 11464 (+ 11464 1)) + (s7-hash-table-set! *char-downcase-ht* 11466 (+ 11466 1)) + (s7-hash-table-set! *char-downcase-ht* 11468 (+ 11468 1)) + (s7-hash-table-set! *char-downcase-ht* 11470 (+ 11470 1)) + (s7-hash-table-set! *char-downcase-ht* 11472 (+ 11472 1)) + (s7-hash-table-set! *char-downcase-ht* 11474 (+ 11474 1)) + (s7-hash-table-set! *char-downcase-ht* 11476 (+ 11476 1)) + (s7-hash-table-set! *char-downcase-ht* 11478 (+ 11478 1)) + (s7-hash-table-set! *char-downcase-ht* 11480 (+ 11480 1)) + (s7-hash-table-set! *char-downcase-ht* 11482 (+ 11482 1)) + (s7-hash-table-set! *char-downcase-ht* 11484 (+ 11484 1)) + (s7-hash-table-set! *char-downcase-ht* 11486 (+ 11486 1)) + (s7-hash-table-set! *char-downcase-ht* 11488 (+ 11488 1)) + (s7-hash-table-set! *char-downcase-ht* 11490 (+ 11490 1)) + (s7-hash-table-set! *char-downcase-ht* 11499 (+ 11499 1)) + (s7-hash-table-set! *char-downcase-ht* 11501 (+ 11501 1)) + (s7-hash-table-set! *char-downcase-ht* 11506 (+ 11506 1)) + (s7-hash-table-set! *char-downcase-ht* 42560 (+ 42560 1)) + (s7-hash-table-set! *char-downcase-ht* 42562 (+ 42562 1)) + (s7-hash-table-set! *char-downcase-ht* 42564 (+ 42564 1)) + (s7-hash-table-set! *char-downcase-ht* 42566 (+ 42566 1)) + (s7-hash-table-set! *char-downcase-ht* 42568 (+ 42568 1)) + (s7-hash-table-set! *char-downcase-ht* 42570 (+ 42570 1)) + (s7-hash-table-set! *char-downcase-ht* 42572 (+ 42572 1)) + (s7-hash-table-set! *char-downcase-ht* 42574 (+ 42574 1)) + (s7-hash-table-set! *char-downcase-ht* 42576 (+ 42576 1)) + (s7-hash-table-set! *char-downcase-ht* 42578 (+ 42578 1)) + (s7-hash-table-set! *char-downcase-ht* 42580 (+ 42580 1)) + (s7-hash-table-set! *char-downcase-ht* 42582 (+ 42582 1)) + (s7-hash-table-set! *char-downcase-ht* 42584 (+ 42584 1)) + (s7-hash-table-set! *char-downcase-ht* 42586 (+ 42586 1)) + (s7-hash-table-set! *char-downcase-ht* 42588 (+ 42588 1)) + (s7-hash-table-set! *char-downcase-ht* 42590 (+ 42590 1)) + (s7-hash-table-set! *char-downcase-ht* 42592 (+ 42592 1)) + (s7-hash-table-set! *char-downcase-ht* 42594 (+ 42594 1)) + (s7-hash-table-set! *char-downcase-ht* 42596 (+ 42596 1)) + (s7-hash-table-set! *char-downcase-ht* 42598 (+ 42598 1)) + (s7-hash-table-set! *char-downcase-ht* 42600 (+ 42600 1)) + (s7-hash-table-set! *char-downcase-ht* 42602 (+ 42602 1)) + (s7-hash-table-set! *char-downcase-ht* 42604 (+ 42604 1)) + (s7-hash-table-set! *char-downcase-ht* 42624 (+ 42624 1)) + (s7-hash-table-set! *char-downcase-ht* 42626 (+ 42626 1)) + (s7-hash-table-set! *char-downcase-ht* 42628 (+ 42628 1)) + (s7-hash-table-set! *char-downcase-ht* 42630 (+ 42630 1)) + (s7-hash-table-set! *char-downcase-ht* 42632 (+ 42632 1)) + (s7-hash-table-set! *char-downcase-ht* 42634 (+ 42634 1)) + (s7-hash-table-set! *char-downcase-ht* 42636 (+ 42636 1)) + (s7-hash-table-set! *char-downcase-ht* 42638 (+ 42638 1)) + (s7-hash-table-set! *char-downcase-ht* 42640 (+ 42640 1)) + (s7-hash-table-set! *char-downcase-ht* 42642 (+ 42642 1)) + (s7-hash-table-set! *char-downcase-ht* 42644 (+ 42644 1)) + (s7-hash-table-set! *char-downcase-ht* 42646 (+ 42646 1)) + (s7-hash-table-set! *char-downcase-ht* 42648 (+ 42648 1)) + (s7-hash-table-set! *char-downcase-ht* 42650 (+ 42650 1)) + (s7-hash-table-set! *char-downcase-ht* 42786 (+ 42786 1)) + (s7-hash-table-set! *char-downcase-ht* 42788 (+ 42788 1)) + (s7-hash-table-set! *char-downcase-ht* 42790 (+ 42790 1)) + (s7-hash-table-set! *char-downcase-ht* 42792 (+ 42792 1)) + (s7-hash-table-set! *char-downcase-ht* 42794 (+ 42794 1)) + (s7-hash-table-set! *char-downcase-ht* 42796 (+ 42796 1)) + (s7-hash-table-set! *char-downcase-ht* 42798 (+ 42798 1)) + (s7-hash-table-set! *char-downcase-ht* 42802 (+ 42802 1)) + (s7-hash-table-set! *char-downcase-ht* 42804 (+ 42804 1)) + (s7-hash-table-set! *char-downcase-ht* 42806 (+ 42806 1)) + (s7-hash-table-set! *char-downcase-ht* 42808 (+ 42808 1)) + (s7-hash-table-set! *char-downcase-ht* 42810 (+ 42810 1)) + (s7-hash-table-set! *char-downcase-ht* 42812 (+ 42812 1)) + (s7-hash-table-set! *char-downcase-ht* 42814 (+ 42814 1)) + (s7-hash-table-set! *char-downcase-ht* 42816 (+ 42816 1)) + (s7-hash-table-set! *char-downcase-ht* 42818 (+ 42818 1)) + (s7-hash-table-set! *char-downcase-ht* 42820 (+ 42820 1)) + (s7-hash-table-set! *char-downcase-ht* 42822 (+ 42822 1)) + (s7-hash-table-set! *char-downcase-ht* 42824 (+ 42824 1)) + (s7-hash-table-set! *char-downcase-ht* 42826 (+ 42826 1)) + (s7-hash-table-set! *char-downcase-ht* 42828 (+ 42828 1)) + (s7-hash-table-set! *char-downcase-ht* 42830 (+ 42830 1)) + (s7-hash-table-set! *char-downcase-ht* 42832 (+ 42832 1)) + (s7-hash-table-set! *char-downcase-ht* 42834 (+ 42834 1)) + (s7-hash-table-set! *char-downcase-ht* 42836 (+ 42836 1)) + (s7-hash-table-set! *char-downcase-ht* 42838 (+ 42838 1)) + (s7-hash-table-set! *char-downcase-ht* 42840 (+ 42840 1)) + (s7-hash-table-set! *char-downcase-ht* 42842 (+ 42842 1)) + (s7-hash-table-set! *char-downcase-ht* 42844 (+ 42844 1)) + (s7-hash-table-set! *char-downcase-ht* 42846 (+ 42846 1)) + (s7-hash-table-set! *char-downcase-ht* 42848 (+ 42848 1)) + (s7-hash-table-set! *char-downcase-ht* 42850 (+ 42850 1)) + (s7-hash-table-set! *char-downcase-ht* 42852 (+ 42852 1)) + (s7-hash-table-set! *char-downcase-ht* 42854 (+ 42854 1)) + (s7-hash-table-set! *char-downcase-ht* 42856 (+ 42856 1)) + (s7-hash-table-set! *char-downcase-ht* 42858 (+ 42858 1)) + (s7-hash-table-set! *char-downcase-ht* 42860 (+ 42860 1)) + (s7-hash-table-set! *char-downcase-ht* 42862 (+ 42862 1)) + (s7-hash-table-set! *char-downcase-ht* 42873 (+ 42873 1)) + (s7-hash-table-set! *char-downcase-ht* 42875 (+ 42875 1)) + (s7-hash-table-set! *char-downcase-ht* 42877 (+ 42877 -35332)) + (s7-hash-table-set! *char-downcase-ht* 42878 (+ 42878 1)) + (s7-hash-table-set! *char-downcase-ht* 42880 (+ 42880 1)) + (s7-hash-table-set! *char-downcase-ht* 42882 (+ 42882 1)) + (s7-hash-table-set! *char-downcase-ht* 42884 (+ 42884 1)) + (s7-hash-table-set! *char-downcase-ht* 42886 (+ 42886 1)) + (s7-hash-table-set! *char-downcase-ht* 42891 (+ 42891 1)) + (s7-hash-table-set! *char-downcase-ht* 42893 (+ 42893 -42280)) + (s7-hash-table-set! *char-downcase-ht* 42896 (+ 42896 1)) + (s7-hash-table-set! *char-downcase-ht* 42898 (+ 42898 1)) + (s7-hash-table-set! *char-downcase-ht* 42902 (+ 42902 1)) + (s7-hash-table-set! *char-downcase-ht* 42904 (+ 42904 1)) + (s7-hash-table-set! *char-downcase-ht* 42906 (+ 42906 1)) + (s7-hash-table-set! *char-downcase-ht* 42908 (+ 42908 1)) + (s7-hash-table-set! *char-downcase-ht* 42910 (+ 42910 1)) + (s7-hash-table-set! *char-downcase-ht* 42912 (+ 42912 1)) + (s7-hash-table-set! *char-downcase-ht* 42914 (+ 42914 1)) + (s7-hash-table-set! *char-downcase-ht* 42916 (+ 42916 1)) + (s7-hash-table-set! *char-downcase-ht* 42918 (+ 42918 1)) + (s7-hash-table-set! *char-downcase-ht* 42920 (+ 42920 1)) + (s7-hash-table-set! *char-downcase-ht* 42922 (+ 42922 -42308)) + (s7-hash-table-set! *char-downcase-ht* 42923 (+ 42923 -42319)) + (s7-hash-table-set! *char-downcase-ht* 42924 (+ 42924 -42315)) + (s7-hash-table-set! *char-downcase-ht* 42925 (+ 42925 -42305)) + (s7-hash-table-set! *char-downcase-ht* 42926 (+ 42926 -42308)) + (s7-hash-table-set! *char-downcase-ht* 42928 (+ 42928 -42258)) + (s7-hash-table-set! *char-downcase-ht* 42929 (+ 42929 -42282)) + (s7-hash-table-set! *char-downcase-ht* 42930 (+ 42930 -42261)) + (s7-hash-table-set! *char-downcase-ht* 42931 (+ 42931 928)) + (s7-hash-table-set! *char-downcase-ht* 42932 (+ 42932 1)) + (s7-hash-table-set! *char-downcase-ht* 42934 (+ 42934 1)) + (s7-hash-table-set! *char-downcase-ht* 42936 (+ 42936 1)) + (s7-hash-table-set! *char-downcase-ht* 42938 (+ 42938 1)) + (s7-hash-table-set! *char-downcase-ht* 42940 (+ 42940 1)) + (s7-hash-table-set! *char-downcase-ht* 42942 (+ 42942 1)) + (s7-hash-table-set! *char-downcase-ht* 42944 (+ 42944 1)) + (s7-hash-table-set! *char-downcase-ht* 42946 (+ 42946 1)) + (s7-hash-table-set! *char-downcase-ht* 42948 (+ 42948 -48)) + (s7-hash-table-set! *char-downcase-ht* 42949 (+ 42949 -42307)) + (s7-hash-table-set! *char-downcase-ht* 42950 (+ 42950 -35384)) + (s7-hash-table-set! *char-downcase-ht* 42951 (+ 42951 1)) + (s7-hash-table-set! *char-downcase-ht* 42953 (+ 42953 1)) + (s7-hash-table-set! *char-downcase-ht* 42955 (+ 42955 -42343)) + (s7-hash-table-set! *char-downcase-ht* 42956 (+ 42956 1)) + (s7-hash-table-set! *char-downcase-ht* 42960 (+ 42960 1)) + (s7-hash-table-set! *char-downcase-ht* 42966 (+ 42966 1)) + (s7-hash-table-set! *char-downcase-ht* 42968 (+ 42968 1)) + (s7-hash-table-set! *char-downcase-ht* 42970 (+ 42970 1)) + (s7-hash-table-set! *char-downcase-ht* 42972 (+ 42972 -42561)) + (s7-hash-table-set! *char-downcase-ht* 42997 (+ 42997 1)) + (do ((i 65313 (+ i 1))) + ((> i 65338)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 32)) + ) ;do + (do ((i 66560 (+ i 1))) + ((> i 66599)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 40)) + ) ;do + (do ((i 66736 (+ i 1))) + ((> i 66771)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 40)) + ) ;do + (do ((i 66928 (+ i 1))) + ((> i 66938)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 39)) + ) ;do + (do ((i 66940 (+ i 1))) + ((> i 66954)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 39)) + ) ;do + (do ((i 66956 (+ i 1))) + ((> i 66962)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 39)) + ) ;do + (do ((i 66964 (+ i 1))) + ((> i 66965)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 39)) + ) ;do + (do ((i 68736 (+ i 1))) + ((> i 68786)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 64)) + ) ;do + (do ((i 68944 (+ i 1))) + ((> i 68965)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 32)) + ) ;do + (do ((i 71840 (+ i 1))) + ((> i 71871)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 32)) + ) ;do + (do ((i 93760 (+ i 1))) + ((> i 93791)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 32)) + ) ;do + (do ((i 125184 (+ i 1))) + ((> i 125217)) + (s7-hash-table-set! *char-downcase-ht* i (+ i 34)) + ) ;do + ) ;unless + + (unless (defined? '*char-foldcase-ht*) + (define *char-foldcase-ht* (s7-make-hash-table)) + ;; char-foldcase hash-table initialization + (s7-hash-table-set! *char-foldcase-ht* 181 956) + (s7-hash-table-set! *char-foldcase-ht* 304 304) + (s7-hash-table-set! *char-foldcase-ht* 383 115) + (s7-hash-table-set! *char-foldcase-ht* 837 953) + (s7-hash-table-set! *char-foldcase-ht* 962 963) + (s7-hash-table-set! *char-foldcase-ht* 976 946) + (s7-hash-table-set! *char-foldcase-ht* 977 952) + (s7-hash-table-set! *char-foldcase-ht* 981 966) + (s7-hash-table-set! *char-foldcase-ht* 982 960) + (s7-hash-table-set! *char-foldcase-ht* 1008 954) + (s7-hash-table-set! *char-foldcase-ht* 1009 961) + (s7-hash-table-set! *char-foldcase-ht* 1013 949) + (do ((i 5024 (+ i 1))) + ((> i 5109)) + (s7-hash-table-set! *char-foldcase-ht* i i) + ) ;do + (do ((i 5112 (+ i 1))) + ((> i 5117)) + (s7-hash-table-set! *char-foldcase-ht* i (+ i -8)) + ) ;do + (s7-hash-table-set! *char-foldcase-ht* 7296 1074) + (s7-hash-table-set! *char-foldcase-ht* 7297 1076) + (s7-hash-table-set! *char-foldcase-ht* 7298 1086) + (s7-hash-table-set! *char-foldcase-ht* 7299 1089) + (s7-hash-table-set! *char-foldcase-ht* 7300 1090) + (s7-hash-table-set! *char-foldcase-ht* 7301 1090) + (s7-hash-table-set! *char-foldcase-ht* 7302 1098) + (s7-hash-table-set! *char-foldcase-ht* 7303 1123) + (s7-hash-table-set! *char-foldcase-ht* 7304 42571) + (s7-hash-table-set! *char-foldcase-ht* 7835 7777) + (s7-hash-table-set! *char-foldcase-ht* 8126 953) + (s7-hash-table-set! *char-foldcase-ht* 8147 912) + (s7-hash-table-set! *char-foldcase-ht* 8163 944) + (do ((i 43888 (+ i 1))) + ((> i 43967)) + (s7-hash-table-set! *char-foldcase-ht* i (+ i -38864)) + ) ;do + (s7-hash-table-set! *char-foldcase-ht* 64261 64262) + ) ;unless + (define (char-ht-set-range! ht start end) (do ((i start (+ i 1))) ((> i end)) @@ -1659,792 +2001,2254 @@ (hash-table-ref *char-numeric-ht* (char->integer char)) ) ;define - (define (char-alphabetic? char) - (unless (char? char) - (error 'type-error "char-alphabetic?: parameter must be character") - ) ;unless - (let ((cp (char->integer char))) - (cond ((<= 65 cp 90) #t) - ((<= 97 cp 122) #t) - ((= cp 170) #t) - ((= cp 181) #t) - ((= cp 186) #t) - ((<= 192 cp 214) #t) - ((<= 216 cp 246) #t) - ((<= 248 cp 705) #t) - ((<= 710 cp 721) #t) - ((<= 736 cp 740) #t) - ((= cp 748) #t) - ((= cp 750) #t) - ((= cp 837) #t) - ((<= 867 cp 884) #t) - ((<= 886 cp 887) #t) - ((<= 890 cp 893) #t) - ((= cp 895) #t) - ((= cp 902) #t) - ((<= 904 cp 906) #t) - ((= cp 908) #t) - ((<= 910 cp 929) #t) - ((<= 931 cp 1013) #t) - ((<= 1015 cp 1153) #t) - ((<= 1162 cp 1327) #t) - ((<= 1329 cp 1366) #t) - ((= cp 1369) #t) - ((<= 1376 cp 1416) #t) - ((<= 1456 cp 1469) #t) - ((= cp 1471) #t) - ((<= 1473 cp 1474) #t) - ((<= 1476 cp 1477) #t) - ((= cp 1479) #t) - ((<= 1488 cp 1514) #t) - ((<= 1519 cp 1522) #t) - ((<= 1552 cp 1562) #t) - ((<= 1568 cp 1623) #t) - ((<= 1625 cp 1631) #t) - ((<= 1646 cp 1747) #t) - ((<= 1749 cp 1756) #t) - ((<= 1761 cp 1768) #t) - ((<= 1773 cp 1775) #t) - ((<= 1786 cp 1788) #t) - ((= cp 1791) #t) - ((<= 1808 cp 1855) #t) - ((<= 1869 cp 1969) #t) - ((<= 1994 cp 2026) #t) - ((<= 2036 cp 2037) #t) - ((= cp 2042) #t) - ((<= 2048 cp 2071) #t) - ((<= 2074 cp 2092) #t) - ((<= 2112 cp 2136) #t) - ((<= 2144 cp 2154) #t) - ((<= 2160 cp 2183) #t) - ((<= 2185 cp 2190) #t) - ((= cp 2199) #t) - ((<= 2208 cp 2249) #t) - ((<= 2260 cp 2271) #t) - ((<= 2275 cp 2281) #t) - ((<= 2288 cp 2363) #t) - ((<= 2365 cp 2380) #t) - ((<= 2382 cp 2384) #t) - ((<= 2389 cp 2403) #t) - ((<= 2417 cp 2435) #t) - ((<= 2437 cp 2444) #t) - ((<= 2447 cp 2448) #t) - ((<= 2451 cp 2472) #t) - ((<= 2474 cp 2480) #t) - ((= cp 2482) #t) - ((<= 2486 cp 2489) #t) - ((<= 2493 cp 2500) #t) - ((<= 2503 cp 2504) #t) - ((<= 2507 cp 2508) #t) - ((= cp 2510) #t) - ((= cp 2519) #t) - ((<= 2524 cp 2525) #t) - ((<= 2527 cp 2531) #t) - ((<= 2544 cp 2545) #t) - ((= cp 2556) #t) - ((<= 2561 cp 2563) #t) - ((<= 2565 cp 2570) #t) - ((<= 2575 cp 2576) #t) - ((<= 2579 cp 2600) #t) - ((<= 2602 cp 2608) #t) - ((<= 2610 cp 2611) #t) - ((<= 2613 cp 2614) #t) - ((<= 2616 cp 2617) #t) - ((<= 2622 cp 2626) #t) - ((<= 2631 cp 2632) #t) - ((<= 2635 cp 2636) #t) - ((= cp 2641) #t) - ((<= 2649 cp 2652) #t) - ((= cp 2654) #t) - ((<= 2672 cp 2677) #t) - ((<= 2689 cp 2691) #t) - ((<= 2693 cp 2701) #t) - ((<= 2703 cp 2705) #t) - ((<= 2707 cp 2728) #t) - ((<= 2730 cp 2736) #t) - ((<= 2738 cp 2739) #t) - ((<= 2741 cp 2745) #t) - ((<= 2749 cp 2757) #t) - ((<= 2759 cp 2761) #t) - ((<= 2763 cp 2764) #t) - ((= cp 2768) #t) - ((<= 2784 cp 2787) #t) - ((<= 2809 cp 2812) #t) - ((<= 2817 cp 2819) #t) - ((<= 2821 cp 2828) #t) - ((<= 2831 cp 2832) #t) - ((<= 2835 cp 2856) #t) - ((<= 2858 cp 2864) #t) - ((<= 2866 cp 2867) #t) - ((<= 2869 cp 2873) #t) - ((<= 2877 cp 2884) #t) - ((<= 2887 cp 2888) #t) - ((<= 2891 cp 2892) #t) - ((<= 2902 cp 2903) #t) - ((<= 2908 cp 2909) #t) - ((<= 2911 cp 2915) #t) - ((= cp 2929) #t) - ((<= 2946 cp 2947) #t) - ((<= 2949 cp 2954) #t) - ((<= 2958 cp 2960) #t) - ((<= 2962 cp 2965) #t) - ((<= 2969 cp 2970) #t) - ((= cp 2972) #t) - ((<= 2974 cp 2975) #t) - ((<= 2979 cp 2980) #t) - ((<= 2984 cp 2986) #t) - ((<= 2990 cp 3001) #t) - ((<= 3006 cp 3010) #t) - ((<= 3014 cp 3016) #t) - ((<= 3018 cp 3020) #t) - ((= cp 3024) #t) - ((= cp 3031) #t) - ((<= 3072 cp 3084) #t) - ((<= 3086 cp 3088) #t) - ((<= 3090 cp 3112) #t) - ((<= 3114 cp 3129) #t) - ((<= 3133 cp 3140) #t) - ((<= 3142 cp 3144) #t) - ((<= 3146 cp 3148) #t) - ((<= 3157 cp 3158) #t) - ((<= 3160 cp 3162) #t) - ((= cp 3165) #t) - ((<= 3168 cp 3171) #t) - ((<= 3200 cp 3203) #t) - ((<= 3205 cp 3212) #t) - ((<= 3214 cp 3216) #t) - ((<= 3218 cp 3240) #t) - ((<= 3242 cp 3251) #t) - ((<= 3253 cp 3257) #t) - ((<= 3261 cp 3268) #t) - ((<= 3270 cp 3272) #t) - ((<= 3274 cp 3276) #t) - ((<= 3285 cp 3286) #t) - ((<= 3293 cp 3294) #t) - ((<= 3296 cp 3299) #t) - ((<= 3313 cp 3315) #t) - ((<= 3328 cp 3340) #t) - ((<= 3342 cp 3344) #t) - ((<= 3346 cp 3386) #t) - ((<= 3389 cp 3396) #t) - ((<= 3398 cp 3400) #t) - ((<= 3402 cp 3404) #t) - ((= cp 3406) #t) - ((<= 3412 cp 3415) #t) - ((<= 3423 cp 3427) #t) - ((<= 3450 cp 3455) #t) - ((<= 3457 cp 3459) #t) - ((<= 3461 cp 3478) #t) - ((<= 3482 cp 3505) #t) - ((<= 3507 cp 3515) #t) - ((= cp 3517) #t) - ((<= 3520 cp 3526) #t) - ((<= 3535 cp 3540) #t) - ((= cp 3542) #t) - ((<= 3544 cp 3551) #t) - ((<= 3570 cp 3571) #t) - ((<= 3585 cp 3642) #t) - ((<= 3648 cp 3654) #t) - ((= cp 3661) #t) - ((<= 3713 cp 3714) #t) - ((= cp 3716) #t) - ((<= 3718 cp 3722) #t) - ((<= 3724 cp 3747) #t) - ((= cp 3749) #t) - ((<= 3751 cp 3769) #t) - ((<= 3771 cp 3773) #t) - ((<= 3776 cp 3780) #t) - ((= cp 3782) #t) - ((= cp 3789) #t) - ((<= 3804 cp 3807) #t) - ((= cp 3840) #t) - ((<= 3904 cp 3911) #t) - ((<= 3913 cp 3948) #t) - ((<= 3953 cp 3971) #t) - ((<= 3976 cp 3991) #t) - ((<= 3993 cp 4028) #t) - ((<= 4096 cp 4150) #t) - ((= cp 4152) #t) - ((<= 4155 cp 4159) #t) - ((<= 4176 cp 4239) #t) - ((<= 4250 cp 4253) #t) - ((<= 4256 cp 4293) #t) - ((= cp 4295) #t) - ((= cp 4301) #t) - ((<= 4304 cp 4346) #t) - ((<= 4348 cp 4680) #t) - ((<= 4682 cp 4685) #t) - ((<= 4688 cp 4694) #t) - ((= cp 4696) #t) - ((<= 4698 cp 4701) #t) - ((<= 4704 cp 4744) #t) - ((<= 4746 cp 4749) #t) - ((<= 4752 cp 4784) #t) - ((<= 4786 cp 4789) #t) - ((<= 4792 cp 4798) #t) - ((= cp 4800) #t) - ((<= 4802 cp 4805) #t) - ((<= 4808 cp 4822) #t) - ((<= 4824 cp 4880) #t) - ((<= 4882 cp 4885) #t) - ((<= 4888 cp 4954) #t) - ((<= 4992 cp 5007) #t) - ((<= 5024 cp 5109) #t) - ((<= 5112 cp 5117) #t) - ((<= 5121 cp 5740) #t) - ((<= 5743 cp 5759) #t) - ((<= 5761 cp 5786) #t) - ((<= 5792 cp 5866) #t) - ((<= 5870 cp 5880) #t) - ((<= 5888 cp 5907) #t) - ((<= 5919 cp 5939) #t) - ((<= 5952 cp 5971) #t) - ((<= 5984 cp 5996) #t) - ((<= 5998 cp 6000) #t) - ((<= 6002 cp 6003) #t) - ((<= 6016 cp 6067) #t) - ((<= 6070 cp 6088) #t) - ((= cp 6103) #t) - ((= cp 6108) #t) - ((<= 6176 cp 6264) #t) - ((<= 6272 cp 6314) #t) - ((<= 6320 cp 6389) #t) - ((<= 6400 cp 6430) #t) - ((<= 6432 cp 6443) #t) - ((<= 6448 cp 6456) #t) - ((<= 6480 cp 6509) #t) - ((<= 6512 cp 6516) #t) - ((<= 6528 cp 6571) #t) - ((<= 6576 cp 6601) #t) - ((<= 6656 cp 6683) #t) - ((<= 6688 cp 6750) #t) - ((<= 6753 cp 6772) #t) - ((= cp 6823) #t) - ((<= 6847 cp 6848) #t) - ((<= 6860 cp 6862) #t) - ((<= 6912 cp 6963) #t) - ((<= 6965 cp 6979) #t) - ((<= 6981 cp 6988) #t) - ((<= 7040 cp 7081) #t) - ((<= 7084 cp 7087) #t) - ((<= 7098 cp 7141) #t) - ((<= 7143 cp 7153) #t) - ((<= 7168 cp 7222) #t) - ((<= 7245 cp 7247) #t) - ((<= 7258 cp 7293) #t) - ((<= 7296 cp 7306) #t) - ((<= 7312 cp 7354) #t) - ((<= 7357 cp 7359) #t) - ((<= 7401 cp 7404) #t) - ((<= 7406 cp 7411) #t) - ((<= 7413 cp 7414) #t) - ((= cp 7418) #t) - ((<= 7424 cp 7615) #t) - ((<= 7635 cp 7668) #t) - ((<= 7680 cp 7957) #t) - ((<= 7960 cp 7965) #t) - ((<= 7968 cp 8005) #t) - ((<= 8008 cp 8013) #t) - ((<= 8016 cp 8023) #t) - ((= cp 8025) #t) - ((= cp 8027) #t) - ((= cp 8029) #t) - ((<= 8031 cp 8061) #t) - ((<= 8064 cp 8116) #t) - ((<= 8118 cp 8124) #t) - ((= cp 8126) #t) - ((<= 8130 cp 8132) #t) - ((<= 8134 cp 8140) #t) - ((<= 8144 cp 8147) #t) - ((<= 8150 cp 8155) #t) - ((<= 8160 cp 8172) #t) - ((<= 8178 cp 8180) #t) - ((<= 8182 cp 8188) #t) - ((= cp 8305) #t) - ((= cp 8319) #t) - ((<= 8336 cp 8348) #t) - ((= cp 8450) #t) - ((= cp 8455) #t) - ((<= 8458 cp 8467) #t) - ((= cp 8469) #t) - ((<= 8473 cp 8477) #t) - ((= cp 8484) #t) - ((= cp 8486) #t) - ((= cp 8488) #t) - ((<= 8490 cp 8493) #t) - ((<= 8495 cp 8505) #t) - ((<= 8508 cp 8511) #t) - ((<= 8517 cp 8521) #t) - ((= cp 8526) #t) - ((<= 8544 cp 8584) #t) - ((<= 9398 cp 9449) #t) - ((<= 11264 cp 11492) #t) - ((<= 11499 cp 11502) #t) - ((<= 11506 cp 11507) #t) - ((<= 11520 cp 11557) #t) - ((= cp 11559) #t) - ((= cp 11565) #t) - ((<= 11568 cp 11623) #t) - ((= cp 11631) #t) - ((<= 11648 cp 11670) #t) - ((<= 11680 cp 11686) #t) - ((<= 11688 cp 11694) #t) - ((<= 11696 cp 11702) #t) - ((<= 11704 cp 11710) #t) - ((<= 11712 cp 11718) #t) - ((<= 11720 cp 11726) #t) - ((<= 11728 cp 11734) #t) - ((<= 11736 cp 11742) #t) - ((<= 11744 cp 11775) #t) - ((= cp 11823) #t) - ((<= 12293 cp 12295) #t) - ((<= 12321 cp 12329) #t) - ((<= 12337 cp 12341) #t) - ((<= 12344 cp 12348) #t) - ((<= 12353 cp 12438) #t) - ((<= 12445 cp 12447) #t) - ((<= 12449 cp 12538) #t) - ((<= 12540 cp 12543) #t) - ((<= 12549 cp 12591) #t) - ((<= 12593 cp 12686) #t) - ((<= 12704 cp 12735) #t) - ((<= 12784 cp 12799) #t) - ((<= 13312 cp 19903) #t) - ((<= 19968 cp 42124) #t) - ((<= 42192 cp 42237) #t) - ((<= 42240 cp 42508) #t) - ((<= 42512 cp 42527) #t) - ((<= 42538 cp 42539) #t) - ((<= 42560 cp 42606) #t) - ((<= 42612 cp 42619) #t) - ((<= 42623 cp 42735) #t) - ((<= 42775 cp 42783) #t) - ((<= 42786 cp 42888) #t) - ((<= 42891 cp 42957) #t) - ((<= 42960 cp 42961) #t) - ((= cp 42963) #t) - ((<= 42965 cp 42972) #t) - ((<= 42994 cp 43013) #t) - ((<= 43015 cp 43047) #t) - ((<= 43072 cp 43123) #t) - ((<= 43136 cp 43203) #t) - ((= cp 43205) #t) - ((<= 43250 cp 43255) #t) - ((= cp 43259) #t) - ((<= 43261 cp 43263) #t) - ((<= 43274 cp 43306) #t) - ((<= 43312 cp 43346) #t) - ((<= 43360 cp 43388) #t) - ((<= 43392 cp 43442) #t) - ((<= 43444 cp 43455) #t) - ((= cp 43471) #t) - ((<= 43488 cp 43503) #t) - ((<= 43514 cp 43518) #t) - ((<= 43520 cp 43574) #t) - ((<= 43584 cp 43597) #t) - ((<= 43616 cp 43638) #t) - ((<= 43642 cp 43710) #t) - ((= cp 43712) #t) - ((= cp 43714) #t) - ((<= 43739 cp 43741) #t) - ((<= 43744 cp 43759) #t) - ((<= 43762 cp 43765) #t) - ((<= 43777 cp 43782) #t) - ((<= 43785 cp 43790) #t) - ((<= 43793 cp 43798) #t) - ((<= 43808 cp 43814) #t) - ((<= 43816 cp 43822) #t) - ((<= 43824 cp 43866) #t) - ((<= 43868 cp 43881) #t) - ((<= 43888 cp 44010) #t) - ((<= 44032 cp 55203) #t) - ((<= 55216 cp 55238) #t) - ((<= 55243 cp 55291) #t) - ((<= 63744 cp 64109) #t) - ((<= 64112 cp 64217) #t) - ((<= 64256 cp 64262) #t) - ((<= 64275 cp 64279) #t) - ((<= 64285 cp 64296) #t) - ((<= 64298 cp 64310) #t) - ((<= 64312 cp 64316) #t) - ((= cp 64318) #t) - ((<= 64320 cp 64321) #t) - ((<= 64323 cp 64324) #t) - ((<= 64326 cp 64433) #t) - ((<= 64467 cp 64829) #t) - ((<= 64848 cp 64911) #t) - ((<= 64914 cp 64967) #t) - ((<= 65008 cp 65019) #t) - ((<= 65136 cp 65140) #t) - ((<= 65142 cp 65276) #t) - ((<= 65313 cp 65338) #t) - ((<= 65345 cp 65370) #t) - ((<= 65382 cp 65470) #t) - ((<= 65474 cp 65479) #t) - ((<= 65482 cp 65487) #t) - ((<= 65490 cp 65495) #t) - ((<= 65498 cp 65500) #t) - ((<= 65536 cp 65547) #t) - ((<= 65549 cp 65574) #t) - ((<= 65576 cp 65594) #t) - ((<= 65596 cp 65597) #t) - ((<= 65599 cp 65613) #t) - ((<= 65616 cp 65629) #t) - ((<= 65664 cp 65786) #t) - ((<= 65856 cp 65908) #t) - ((<= 66176 cp 66204) #t) - ((<= 66208 cp 66256) #t) - ((<= 66304 cp 66335) #t) - ((<= 66349 cp 66378) #t) - ((<= 66384 cp 66426) #t) - ((<= 66432 cp 66461) #t) - ((<= 66464 cp 66499) #t) - ((<= 66504 cp 66511) #t) - ((<= 66513 cp 66517) #t) - ((<= 66560 cp 66717) #t) - ((<= 66736 cp 66771) #t) - ((<= 66776 cp 66811) #t) - ((<= 66816 cp 66855) #t) - ((<= 66864 cp 66915) #t) - ((<= 66928 cp 66938) #t) - ((<= 66940 cp 66954) #t) - ((<= 66956 cp 66962) #t) - ((<= 66964 cp 66965) #t) - ((<= 66967 cp 66977) #t) - ((<= 66979 cp 66993) #t) - ((<= 66995 cp 67001) #t) - ((<= 67003 cp 67004) #t) - ((<= 67008 cp 67059) #t) - ((<= 67072 cp 67382) #t) - ((<= 67392 cp 67413) #t) - ((<= 67424 cp 67431) #t) - ((<= 67456 cp 67461) #t) - ((<= 67463 cp 67504) #t) - ((<= 67506 cp 67514) #t) - ((<= 67584 cp 67589) #t) - ((= cp 67592) #t) - ((<= 67594 cp 67637) #t) - ((<= 67639 cp 67640) #t) - ((= cp 67644) #t) - ((<= 67647 cp 67669) #t) - ((<= 67680 cp 67702) #t) - ((<= 67712 cp 67742) #t) - ((<= 67808 cp 67826) #t) - ((<= 67828 cp 67829) #t) - ((<= 67840 cp 67861) #t) - ((<= 67872 cp 67897) #t) - ((<= 67968 cp 68023) #t) - ((<= 68030 cp 68031) #t) - ((<= 68096 cp 68099) #t) - ((<= 68101 cp 68102) #t) - ((<= 68108 cp 68115) #t) - ((<= 68117 cp 68119) #t) - ((<= 68121 cp 68149) #t) - ((<= 68192 cp 68220) #t) - ((<= 68224 cp 68252) #t) - ((<= 68288 cp 68295) #t) - ((<= 68297 cp 68324) #t) - ((<= 68352 cp 68405) #t) - ((<= 68416 cp 68437) #t) - ((<= 68448 cp 68466) #t) - ((<= 68480 cp 68497) #t) - ((<= 68608 cp 68680) #t) - ((<= 68736 cp 68786) #t) - ((<= 68800 cp 68850) #t) - ((<= 68864 cp 68903) #t) - ((<= 68938 cp 68965) #t) - ((= cp 68969) #t) - ((<= 68975 cp 68997) #t) - ((<= 69248 cp 69289) #t) - ((<= 69291 cp 69292) #t) - ((<= 69296 cp 69297) #t) - ((<= 69314 cp 69316) #t) - ((= cp 69372) #t) - ((<= 69376 cp 69404) #t) - ((= cp 69415) #t) - ((<= 69424 cp 69445) #t) - ((<= 69488 cp 69505) #t) - ((<= 69552 cp 69572) #t) - ((<= 69600 cp 69622) #t) - ((<= 69632 cp 69701) #t) - ((<= 69745 cp 69749) #t) - ((<= 69760 cp 69816) #t) - ((= cp 69826) #t) - ((<= 69840 cp 69864) #t) - ((<= 69888 cp 69938) #t) - ((<= 69956 cp 69959) #t) - ((<= 69968 cp 70002) #t) - ((= cp 70006) #t) - ((<= 70016 cp 70079) #t) - ((<= 70081 cp 70084) #t) - ((<= 70094 cp 70095) #t) - ((= cp 70106) #t) - ((= cp 70108) #t) - ((<= 70144 cp 70161) #t) - ((<= 70163 cp 70196) #t) - ((= cp 70199) #t) - ((<= 70206 cp 70209) #t) - ((<= 70272 cp 70278) #t) - ((= cp 70280) #t) - ((<= 70282 cp 70285) #t) - ((<= 70287 cp 70301) #t) - ((<= 70303 cp 70312) #t) - ((<= 70320 cp 70376) #t) - ((<= 70400 cp 70403) #t) - ((<= 70405 cp 70412) #t) - ((<= 70415 cp 70416) #t) - ((<= 70419 cp 70440) #t) - ((<= 70442 cp 70448) #t) - ((<= 70450 cp 70451) #t) - ((<= 70453 cp 70457) #t) - ((<= 70461 cp 70468) #t) - ((<= 70471 cp 70472) #t) - ((<= 70475 cp 70476) #t) - ((= cp 70480) #t) - ((= cp 70487) #t) - ((<= 70493 cp 70499) #t) - ((<= 70528 cp 70537) #t) - ((= cp 70539) #t) - ((= cp 70542) #t) - ((<= 70544 cp 70581) #t) - ((<= 70583 cp 70592) #t) - ((= cp 70594) #t) - ((= cp 70597) #t) - ((<= 70599 cp 70602) #t) - ((<= 70604 cp 70605) #t) - ((= cp 70609) #t) - ((= cp 70611) #t) - ((<= 70656 cp 70721) #t) - ((<= 70723 cp 70725) #t) - ((<= 70727 cp 70730) #t) - ((<= 70751 cp 70753) #t) - ((<= 70784 cp 70849) #t) - ((<= 70852 cp 70853) #t) - ((= cp 70855) #t) - ((<= 71040 cp 71093) #t) - ((<= 71096 cp 71102) #t) - ((<= 71128 cp 71133) #t) - ((<= 71168 cp 71230) #t) - ((= cp 71232) #t) - ((= cp 71236) #t) - ((<= 71296 cp 71349) #t) - ((= cp 71352) #t) - ((<= 71424 cp 71450) #t) - ((<= 71453 cp 71466) #t) - ((<= 71488 cp 71494) #t) - ((<= 71680 cp 71736) #t) - ((<= 71840 cp 71903) #t) - ((<= 71935 cp 71942) #t) - ((= cp 71945) #t) - ((<= 71948 cp 71955) #t) - ((<= 71957 cp 71958) #t) - ((<= 71960 cp 71989) #t) - ((<= 71991 cp 71992) #t) - ((<= 71995 cp 71996) #t) - ((<= 71999 cp 72002) #t) - ((<= 72096 cp 72103) #t) - ((<= 72106 cp 72151) #t) - ((<= 72154 cp 72159) #t) - ((= cp 72161) #t) - ((<= 72163 cp 72164) #t) - ((<= 72192 cp 72242) #t) - ((<= 72245 cp 72254) #t) - ((<= 72272 cp 72343) #t) - ((= cp 72349) #t) - ((<= 72368 cp 72440) #t) - ((<= 72640 cp 72672) #t) - ((<= 72704 cp 72712) #t) - ((<= 72714 cp 72758) #t) - ((<= 72760 cp 72766) #t) - ((= cp 72768) #t) - ((<= 72818 cp 72847) #t) - ((<= 72850 cp 72871) #t) - ((<= 72873 cp 72886) #t) - ((<= 72960 cp 72966) #t) - ((<= 72968 cp 72969) #t) - ((<= 72971 cp 73014) #t) - ((= cp 73018) #t) - ((<= 73020 cp 73021) #t) - ((<= 73023 cp 73025) #t) - ((= cp 73027) #t) - ((<= 73030 cp 73031) #t) - ((<= 73056 cp 73061) #t) - ((<= 73063 cp 73064) #t) - ((<= 73066 cp 73102) #t) - ((<= 73104 cp 73105) #t) - ((<= 73107 cp 73110) #t) - ((= cp 73112) #t) - ((<= 73440 cp 73462) #t) - ((<= 73472 cp 73488) #t) - ((<= 73490 cp 73530) #t) - ((<= 73534 cp 73536) #t) - ((= cp 73648) #t) - ((<= 73728 cp 74649) #t) - ((<= 74752 cp 74862) #t) - ((<= 74880 cp 75075) #t) - ((<= 77712 cp 77808) #t) - ((<= 77824 cp 78895) #t) - ((<= 78913 cp 78918) #t) - ((<= 78944 cp 82938) #t) - ((<= 82944 cp 83526) #t) - ((<= 90368 cp 90414) #t) - ((<= 92160 cp 92728) #t) - ((<= 92736 cp 92766) #t) - ((<= 92784 cp 92862) #t) - ((<= 92880 cp 92909) #t) - ((<= 92928 cp 92975) #t) - ((<= 92992 cp 92995) #t) - ((<= 93027 cp 93047) #t) - ((<= 93053 cp 93071) #t) - ((<= 93504 cp 93548) #t) - ((<= 93760 cp 93823) #t) - ((<= 93952 cp 94026) #t) - ((<= 94031 cp 94087) #t) - ((<= 94095 cp 94111) #t) - ((<= 94176 cp 94177) #t) - ((= cp 94179) #t) - ((<= 94192 cp 94193) #t) - ((<= 94208 cp 100343) #t) - ((<= 100352 cp 101589) #t) - ((<= 101631 cp 101640) #t) - ((<= 110576 cp 110579) #t) - ((<= 110581 cp 110587) #t) - ((<= 110589 cp 110590) #t) - ((<= 110592 cp 110882) #t) - ((= cp 110898) #t) - ((<= 110928 cp 110930) #t) - ((= cp 110933) #t) - ((<= 110948 cp 110951) #t) - ((<= 110960 cp 111355) #t) - ((<= 113664 cp 113770) #t) - ((<= 113776 cp 113788) #t) - ((<= 113792 cp 113800) #t) - ((<= 113808 cp 113817) #t) - ((= cp 113822) #t) - ((<= 119808 cp 119892) #t) - ((<= 119894 cp 119964) #t) - ((<= 119966 cp 119967) #t) - ((= cp 119970) #t) - ((<= 119973 cp 119974) #t) - ((<= 119977 cp 119980) #t) - ((<= 119982 cp 119993) #t) - ((= cp 119995) #t) - ((<= 119997 cp 120003) #t) - ((<= 120005 cp 120069) #t) - ((<= 120071 cp 120074) #t) - ((<= 120077 cp 120084) #t) - ((<= 120086 cp 120092) #t) - ((<= 120094 cp 120121) #t) - ((<= 120123 cp 120126) #t) - ((<= 120128 cp 120132) #t) - ((= cp 120134) #t) - ((<= 120138 cp 120144) #t) - ((<= 120146 cp 120485) #t) - ((<= 120488 cp 120512) #t) - ((<= 120514 cp 120538) #t) - ((<= 120540 cp 120570) #t) - ((<= 120572 cp 120596) #t) - ((<= 120598 cp 120628) #t) - ((<= 120630 cp 120654) #t) - ((<= 120656 cp 120686) #t) - ((<= 120688 cp 120712) #t) - ((<= 120714 cp 120744) #t) - ((<= 120746 cp 120770) #t) - ((<= 120772 cp 120779) #t) - ((<= 122624 cp 122654) #t) - ((<= 122661 cp 122666) #t) - ((<= 122880 cp 122886) #t) - ((<= 122888 cp 122904) #t) - ((<= 122907 cp 122913) #t) - ((<= 122915 cp 122916) #t) - ((<= 122918 cp 122922) #t) - ((<= 122928 cp 122989) #t) - ((= cp 123023) #t) - ((<= 123136 cp 123180) #t) - ((<= 123191 cp 123197) #t) - ((= cp 123214) #t) - ((<= 123536 cp 123565) #t) - ((<= 123584 cp 123627) #t) - ((<= 124112 cp 124139) #t) - ((<= 124368 cp 124397) #t) - ((= cp 124400) #t) - ((<= 124896 cp 124902) #t) - ((<= 124904 cp 124907) #t) - ((<= 124909 cp 124910) #t) - ((<= 124912 cp 124926) #t) - ((<= 124928 cp 125124) #t) - ((<= 125184 cp 125251) #t) - ((= cp 125255) #t) - ((= cp 125259) #t) - ((<= 126464 cp 126467) #t) - ((<= 126469 cp 126495) #t) - ((<= 126497 cp 126498) #t) - ((= cp 126500) #t) - ((= cp 126503) #t) - ((<= 126505 cp 126514) #t) - ((<= 126516 cp 126519) #t) - ((= cp 126521) #t) - ((= cp 126523) #t) - ((= cp 126530) #t) - ((= cp 126535) #t) - ((= cp 126537) #t) - ((= cp 126539) #t) - ((<= 126541 cp 126543) #t) - ((<= 126545 cp 126546) #t) - ((= cp 126548) #t) - ((= cp 126551) #t) - ((= cp 126553) #t) - ((= cp 126555) #t) - ((= cp 126557) #t) - ((= cp 126559) #t) - ((<= 126561 cp 126562) #t) - ((= cp 126564) #t) - ((<= 126567 cp 126570) #t) - ((<= 126572 cp 126578) #t) - ((<= 126580 cp 126583) #t) - ((<= 126585 cp 126588) #t) - ((= cp 126590) #t) - ((<= 126592 cp 126601) #t) - ((<= 126603 cp 126619) #t) - ((<= 126625 cp 126627) #t) - ((<= 126629 cp 126633) #t) - ((<= 126635 cp 126651) #t) - ((<= 127280 cp 127305) #t) - ((<= 127312 cp 127337) #t) - ((<= 127344 cp 127369) #t) - ((<= 131072 cp 173791) #t) - ((<= 173824 cp 177977) #t) - ((<= 177984 cp 178205) #t) - ((<= 178208 cp 183969) #t) - ((<= 183984 cp 191456) #t) - ((<= 191472 cp 192093) #t) - ((<= 194560 cp 195101) #t) - ((<= 196608 cp 201546) #t) - ((<= 201552 cp 205743) #t) - (else #f) - ) ;cond - ) ;let - ) ;define - - (define (char-whitespace? char) - (unless (char? char) - (error 'type-error "char-whitespace?: parameter must be character") - ) ;unless - (let ((cp (char->integer char))) - (cond ((<= 9 cp 13) #t) - ((= cp 32) #t) - ((= cp 133) #t) - ((= cp 160) #t) - ((= cp 5760) #t) - ((<= 8192 cp 8202) #t) - ((<= 8232 cp 8233) #t) - ((= cp 8239) #t) - ((= cp 8287) #t) - ((= cp 12288) #t) - (else #f) - ) ;cond - ) ;let - ) ;define + ;; char-alphabetic? false hash-table initialization + (unless (defined? '*char-non-alphabetic-ht*) + (define *char-non-alphabetic-ht* (s7-make-hash-table)) + (do ((i 0 (+ i 1))) + ((> i 64)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 91 (+ i 1))) + ((> i 96)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 123 (+ i 1))) + ((> i 169)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 171 (+ i 1))) + ((> i 180)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 182 (+ i 1))) + ((> i 185)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 187 (+ i 1))) + ((> i 191)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 215 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 247 #t) + (do ((i 706 (+ i 1))) + ((> i 709)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 722 (+ i 1))) + ((> i 735)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 741 (+ i 1))) + ((> i 747)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 749 #t) + (do ((i 751 (+ i 1))) + ((> i 836)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 838 (+ i 1))) + ((> i 866)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 885 #t) + (do ((i 888 (+ i 1))) + ((> i 889)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 894 #t) + (do ((i 896 (+ i 1))) + ((> i 901)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 903 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 907 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 909 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 930 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 1014 #t) + (do ((i 1154 (+ i 1))) + ((> i 1161)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 1328 #t) + (do ((i 1367 (+ i 1))) + ((> i 1368)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 1370 (+ i 1))) + ((> i 1375)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 1417 (+ i 1))) + ((> i 1455)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 1470 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 1472 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 1475 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 1478 #t) + (do ((i 1480 (+ i 1))) + ((> i 1487)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 1515 (+ i 1))) + ((> i 1518)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 1523 (+ i 1))) + ((> i 1551)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 1563 (+ i 1))) + ((> i 1567)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 1624 #t) + (do ((i 1632 (+ i 1))) + ((> i 1645)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 1748 #t) + (do ((i 1757 (+ i 1))) + ((> i 1760)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 1769 (+ i 1))) + ((> i 1772)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 1776 (+ i 1))) + ((> i 1785)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 1789 (+ i 1))) + ((> i 1790)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 1792 (+ i 1))) + ((> i 1807)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 1856 (+ i 1))) + ((> i 1868)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 1970 (+ i 1))) + ((> i 1993)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2027 (+ i 1))) + ((> i 2035)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2038 (+ i 1))) + ((> i 2041)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2043 (+ i 1))) + ((> i 2047)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2072 (+ i 1))) + ((> i 2073)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2093 (+ i 1))) + ((> i 2111)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2137 (+ i 1))) + ((> i 2143)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2155 (+ i 1))) + ((> i 2159)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2184 #t) + (do ((i 2191 (+ i 1))) + ((> i 2198)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2200 (+ i 1))) + ((> i 2207)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2250 (+ i 1))) + ((> i 2259)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2272 (+ i 1))) + ((> i 2274)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2282 (+ i 1))) + ((> i 2287)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2364 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2381 #t) + (do ((i 2385 (+ i 1))) + ((> i 2388)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2404 (+ i 1))) + ((> i 2416)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2436 #t) + (do ((i 2445 (+ i 1))) + ((> i 2446)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2449 (+ i 1))) + ((> i 2450)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2473 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2481 #t) + (do ((i 2483 (+ i 1))) + ((> i 2485)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2490 (+ i 1))) + ((> i 2492)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2501 (+ i 1))) + ((> i 2502)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2505 (+ i 1))) + ((> i 2506)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2509 #t) + (do ((i 2511 (+ i 1))) + ((> i 2518)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2520 (+ i 1))) + ((> i 2523)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2526 #t) + (do ((i 2532 (+ i 1))) + ((> i 2543)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2546 (+ i 1))) + ((> i 2555)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2557 (+ i 1))) + ((> i 2560)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2564 #t) + (do ((i 2571 (+ i 1))) + ((> i 2574)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2577 (+ i 1))) + ((> i 2578)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2601 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2609 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2612 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2615 #t) + (do ((i 2618 (+ i 1))) + ((> i 2621)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2627 (+ i 1))) + ((> i 2630)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2633 (+ i 1))) + ((> i 2634)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2637 (+ i 1))) + ((> i 2640)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2642 (+ i 1))) + ((> i 2648)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2653 #t) + (do ((i 2655 (+ i 1))) + ((> i 2671)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2678 (+ i 1))) + ((> i 2688)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2692 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2702 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2706 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2729 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2737 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2740 #t) + (do ((i 2746 (+ i 1))) + ((> i 2748)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2758 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2762 #t) + (do ((i 2765 (+ i 1))) + ((> i 2767)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2769 (+ i 1))) + ((> i 2783)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2788 (+ i 1))) + ((> i 2808)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2813 (+ i 1))) + ((> i 2816)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2820 #t) + (do ((i 2829 (+ i 1))) + ((> i 2830)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2833 (+ i 1))) + ((> i 2834)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2857 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2865 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2868 #t) + (do ((i 2874 (+ i 1))) + ((> i 2876)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2885 (+ i 1))) + ((> i 2886)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2889 (+ i 1))) + ((> i 2890)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2893 (+ i 1))) + ((> i 2901)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2904 (+ i 1))) + ((> i 2907)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2910 #t) + (do ((i 2916 (+ i 1))) + ((> i 2928)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2930 (+ i 1))) + ((> i 2945)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2948 #t) + (do ((i 2955 (+ i 1))) + ((> i 2957)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2961 #t) + (do ((i 2966 (+ i 1))) + ((> i 2968)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 2971 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 2973 #t) + (do ((i 2976 (+ i 1))) + ((> i 2978)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2981 (+ i 1))) + ((> i 2983)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 2987 (+ i 1))) + ((> i 2989)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3002 (+ i 1))) + ((> i 3005)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3011 (+ i 1))) + ((> i 3013)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3017 #t) + (do ((i 3021 (+ i 1))) + ((> i 3023)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3025 (+ i 1))) + ((> i 3030)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3032 (+ i 1))) + ((> i 3071)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3085 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3089 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3113 #t) + (do ((i 3130 (+ i 1))) + ((> i 3132)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3141 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3145 #t) + (do ((i 3149 (+ i 1))) + ((> i 3156)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3159 #t) + (do ((i 3163 (+ i 1))) + ((> i 3164)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3166 (+ i 1))) + ((> i 3167)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3172 (+ i 1))) + ((> i 3199)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3204 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3213 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3217 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3241 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3252 #t) + (do ((i 3258 (+ i 1))) + ((> i 3260)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3269 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3273 #t) + (do ((i 3277 (+ i 1))) + ((> i 3284)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3287 (+ i 1))) + ((> i 3292)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3295 #t) + (do ((i 3300 (+ i 1))) + ((> i 3312)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3316 (+ i 1))) + ((> i 3327)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3341 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3345 #t) + (do ((i 3387 (+ i 1))) + ((> i 3388)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3397 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3401 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3405 #t) + (do ((i 3407 (+ i 1))) + ((> i 3411)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3416 (+ i 1))) + ((> i 3422)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3428 (+ i 1))) + ((> i 3449)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3456 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3460 #t) + (do ((i 3479 (+ i 1))) + ((> i 3481)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3506 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3516 #t) + (do ((i 3518 (+ i 1))) + ((> i 3519)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3527 (+ i 1))) + ((> i 3534)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3541 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3543 #t) + (do ((i 3552 (+ i 1))) + ((> i 3569)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3572 (+ i 1))) + ((> i 3584)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3643 (+ i 1))) + ((> i 3647)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3655 (+ i 1))) + ((> i 3660)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3662 (+ i 1))) + ((> i 3712)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3715 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3717 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3723 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3748 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3750 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 3770 #t) + (do ((i 3774 (+ i 1))) + ((> i 3775)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3781 #t) + (do ((i 3783 (+ i 1))) + ((> i 3788)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3790 (+ i 1))) + ((> i 3803)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3808 (+ i 1))) + ((> i 3839)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3841 (+ i 1))) + ((> i 3903)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3912 #t) + (do ((i 3949 (+ i 1))) + ((> i 3952)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 3972 (+ i 1))) + ((> i 3975)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 3992 #t) + (do ((i 4029 (+ i 1))) + ((> i 4095)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 4151 #t) + (do ((i 4153 (+ i 1))) + ((> i 4154)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 4160 (+ i 1))) + ((> i 4175)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 4240 (+ i 1))) + ((> i 4249)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 4254 (+ i 1))) + ((> i 4255)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 4294 #t) + (do ((i 4296 (+ i 1))) + ((> i 4300)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 4302 (+ i 1))) + ((> i 4303)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 4347 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 4681 #t) + (do ((i 4686 (+ i 1))) + ((> i 4687)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 4695 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 4697 #t) + (do ((i 4702 (+ i 1))) + ((> i 4703)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 4745 #t) + (do ((i 4750 (+ i 1))) + ((> i 4751)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 4785 #t) + (do ((i 4790 (+ i 1))) + ((> i 4791)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 4799 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 4801 #t) + (do ((i 4806 (+ i 1))) + ((> i 4807)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 4823 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 4881 #t) + (do ((i 4886 (+ i 1))) + ((> i 4887)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 4955 (+ i 1))) + ((> i 4991)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 5008 (+ i 1))) + ((> i 5023)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 5110 (+ i 1))) + ((> i 5111)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 5118 (+ i 1))) + ((> i 5120)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 5741 (+ i 1))) + ((> i 5742)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 5760 #t) + (do ((i 5787 (+ i 1))) + ((> i 5791)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 5867 (+ i 1))) + ((> i 5869)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 5881 (+ i 1))) + ((> i 5887)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 5908 (+ i 1))) + ((> i 5918)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 5940 (+ i 1))) + ((> i 5951)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 5972 (+ i 1))) + ((> i 5983)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 5997 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 6001 #t) + (do ((i 6004 (+ i 1))) + ((> i 6015)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6068 (+ i 1))) + ((> i 6069)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6089 (+ i 1))) + ((> i 6102)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6104 (+ i 1))) + ((> i 6107)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6109 (+ i 1))) + ((> i 6175)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6265 (+ i 1))) + ((> i 6271)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6315 (+ i 1))) + ((> i 6319)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6390 (+ i 1))) + ((> i 6399)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 6431 #t) + (do ((i 6444 (+ i 1))) + ((> i 6447)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6457 (+ i 1))) + ((> i 6479)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6510 (+ i 1))) + ((> i 6511)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6517 (+ i 1))) + ((> i 6527)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6572 (+ i 1))) + ((> i 6575)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6602 (+ i 1))) + ((> i 6655)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6684 (+ i 1))) + ((> i 6687)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6751 (+ i 1))) + ((> i 6752)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6773 (+ i 1))) + ((> i 6822)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6824 (+ i 1))) + ((> i 6846)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6849 (+ i 1))) + ((> i 6859)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 6863 (+ i 1))) + ((> i 6911)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 6964 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 6980 #t) + (do ((i 6989 (+ i 1))) + ((> i 7039)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 7082 (+ i 1))) + ((> i 7083)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 7088 (+ i 1))) + ((> i 7097)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 7142 #t) + (do ((i 7154 (+ i 1))) + ((> i 7167)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 7223 (+ i 1))) + ((> i 7244)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 7248 (+ i 1))) + ((> i 7257)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 7294 (+ i 1))) + ((> i 7295)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 7307 (+ i 1))) + ((> i 7311)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 7355 (+ i 1))) + ((> i 7356)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 7360 (+ i 1))) + ((> i 7400)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 7405 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 7412 #t) + (do ((i 7415 (+ i 1))) + ((> i 7417)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 7419 (+ i 1))) + ((> i 7423)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 7616 (+ i 1))) + ((> i 7634)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 7669 (+ i 1))) + ((> i 7679)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 7958 (+ i 1))) + ((> i 7959)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 7966 (+ i 1))) + ((> i 7967)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8006 (+ i 1))) + ((> i 8007)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8014 (+ i 1))) + ((> i 8015)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 8024 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 8026 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 8028 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 8030 #t) + (do ((i 8062 (+ i 1))) + ((> i 8063)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 8117 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 8125 #t) + (do ((i 8127 (+ i 1))) + ((> i 8129)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 8133 #t) + (do ((i 8141 (+ i 1))) + ((> i 8143)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8148 (+ i 1))) + ((> i 8149)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8156 (+ i 1))) + ((> i 8159)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8173 (+ i 1))) + ((> i 8177)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 8181 #t) + (do ((i 8189 (+ i 1))) + ((> i 8304)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8306 (+ i 1))) + ((> i 8318)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8320 (+ i 1))) + ((> i 8335)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8349 (+ i 1))) + ((> i 8449)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8451 (+ i 1))) + ((> i 8454)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8456 (+ i 1))) + ((> i 8457)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 8468 #t) + (do ((i 8470 (+ i 1))) + ((> i 8472)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8478 (+ i 1))) + ((> i 8483)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 8485 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 8487 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 8489 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 8494 #t) + (do ((i 8506 (+ i 1))) + ((> i 8507)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8512 (+ i 1))) + ((> i 8516)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8522 (+ i 1))) + ((> i 8525)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8527 (+ i 1))) + ((> i 8543)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 8585 (+ i 1))) + ((> i 9397)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 9450 (+ i 1))) + ((> i 11263)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 11493 (+ i 1))) + ((> i 11498)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 11503 (+ i 1))) + ((> i 11505)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 11508 (+ i 1))) + ((> i 11519)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 11558 #t) + (do ((i 11560 (+ i 1))) + ((> i 11564)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 11566 (+ i 1))) + ((> i 11567)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 11624 (+ i 1))) + ((> i 11630)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 11632 (+ i 1))) + ((> i 11647)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 11671 (+ i 1))) + ((> i 11679)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 11687 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 11695 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 11703 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 11711 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 11719 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 11727 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 11735 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 11743 #t) + (do ((i 11776 (+ i 1))) + ((> i 11822)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 11824 (+ i 1))) + ((> i 12292)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 12296 (+ i 1))) + ((> i 12320)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 12330 (+ i 1))) + ((> i 12336)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 12342 (+ i 1))) + ((> i 12343)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 12349 (+ i 1))) + ((> i 12352)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 12439 (+ i 1))) + ((> i 12444)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 12448 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 12539 #t) + (do ((i 12544 (+ i 1))) + ((> i 12548)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 12592 #t) + (do ((i 12687 (+ i 1))) + ((> i 12703)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 12736 (+ i 1))) + ((> i 12783)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 12800 (+ i 1))) + ((> i 13311)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 19904 (+ i 1))) + ((> i 19967)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 42125 (+ i 1))) + ((> i 42191)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 42238 (+ i 1))) + ((> i 42239)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 42509 (+ i 1))) + ((> i 42511)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 42528 (+ i 1))) + ((> i 42537)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 42540 (+ i 1))) + ((> i 42559)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 42607 (+ i 1))) + ((> i 42611)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 42620 (+ i 1))) + ((> i 42622)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 42736 (+ i 1))) + ((> i 42774)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 42784 (+ i 1))) + ((> i 42785)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 42889 (+ i 1))) + ((> i 42890)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 42958 (+ i 1))) + ((> i 42959)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 42962 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 42964 #t) + (do ((i 42973 (+ i 1))) + ((> i 42993)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 43014 #t) + (do ((i 43048 (+ i 1))) + ((> i 43071)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43124 (+ i 1))) + ((> i 43135)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 43204 #t) + (do ((i 43206 (+ i 1))) + ((> i 43249)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43256 (+ i 1))) + ((> i 43258)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 43260 #t) + (do ((i 43264 (+ i 1))) + ((> i 43273)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43307 (+ i 1))) + ((> i 43311)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43347 (+ i 1))) + ((> i 43359)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43389 (+ i 1))) + ((> i 43391)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 43443 #t) + (do ((i 43456 (+ i 1))) + ((> i 43470)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43472 (+ i 1))) + ((> i 43487)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43504 (+ i 1))) + ((> i 43513)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 43519 #t) + (do ((i 43575 (+ i 1))) + ((> i 43583)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43598 (+ i 1))) + ((> i 43615)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43639 (+ i 1))) + ((> i 43641)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 43711 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 43713 #t) + (do ((i 43715 (+ i 1))) + ((> i 43738)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43742 (+ i 1))) + ((> i 43743)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43760 (+ i 1))) + ((> i 43761)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43766 (+ i 1))) + ((> i 43776)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43783 (+ i 1))) + ((> i 43784)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43791 (+ i 1))) + ((> i 43792)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 43799 (+ i 1))) + ((> i 43807)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 43815 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 43823 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 43867 #t) + (do ((i 43882 (+ i 1))) + ((> i 43887)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 44011 (+ i 1))) + ((> i 44031)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 55204 (+ i 1))) + ((> i 55215)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 55239 (+ i 1))) + ((> i 55242)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 55292 (+ i 1))) + ((> i 63743)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 64110 (+ i 1))) + ((> i 64111)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 64218 (+ i 1))) + ((> i 64255)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 64263 (+ i 1))) + ((> i 64274)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 64280 (+ i 1))) + ((> i 64284)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 64297 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 64311 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 64317 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 64319 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 64322 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 64325 #t) + (do ((i 64434 (+ i 1))) + ((> i 64466)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 64830 (+ i 1))) + ((> i 64847)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 64912 (+ i 1))) + ((> i 64913)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 64968 (+ i 1))) + ((> i 65007)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 65020 (+ i 1))) + ((> i 65135)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 65141 #t) + (do ((i 65277 (+ i 1))) + ((> i 65312)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 65339 (+ i 1))) + ((> i 65344)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 65371 (+ i 1))) + ((> i 65381)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 65471 (+ i 1))) + ((> i 65473)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 65480 (+ i 1))) + ((> i 65481)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 65488 (+ i 1))) + ((> i 65489)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 65496 (+ i 1))) + ((> i 65497)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 65501 (+ i 1))) + ((> i 65535)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 65548 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 65575 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 65595 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 65598 #t) + (do ((i 65614 (+ i 1))) + ((> i 65615)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 65630 (+ i 1))) + ((> i 65663)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 65787 (+ i 1))) + ((> i 65855)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 65909 (+ i 1))) + ((> i 66175)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 66205 (+ i 1))) + ((> i 66207)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 66257 (+ i 1))) + ((> i 66303)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 66336 (+ i 1))) + ((> i 66348)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 66379 (+ i 1))) + ((> i 66383)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 66427 (+ i 1))) + ((> i 66431)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 66462 (+ i 1))) + ((> i 66463)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 66500 (+ i 1))) + ((> i 66503)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 66512 #t) + (do ((i 66518 (+ i 1))) + ((> i 66559)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 66718 (+ i 1))) + ((> i 66735)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 66772 (+ i 1))) + ((> i 66775)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 66812 (+ i 1))) + ((> i 66815)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 66856 (+ i 1))) + ((> i 66863)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 66916 (+ i 1))) + ((> i 66927)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 66939 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 66955 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 66963 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 66966 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 66978 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 66994 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 67002 #t) + (do ((i 67005 (+ i 1))) + ((> i 67007)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 67060 (+ i 1))) + ((> i 67071)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 67383 (+ i 1))) + ((> i 67391)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 67414 (+ i 1))) + ((> i 67423)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 67432 (+ i 1))) + ((> i 67455)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 67462 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 67505 #t) + (do ((i 67515 (+ i 1))) + ((> i 67583)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 67590 (+ i 1))) + ((> i 67591)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 67593 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 67638 #t) + (do ((i 67641 (+ i 1))) + ((> i 67643)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 67645 (+ i 1))) + ((> i 67646)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 67670 (+ i 1))) + ((> i 67679)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 67703 (+ i 1))) + ((> i 67711)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 67743 (+ i 1))) + ((> i 67807)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 67827 #t) + (do ((i 67830 (+ i 1))) + ((> i 67839)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 67862 (+ i 1))) + ((> i 67871)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 67898 (+ i 1))) + ((> i 67967)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68024 (+ i 1))) + ((> i 68029)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68032 (+ i 1))) + ((> i 68095)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 68100 #t) + (do ((i 68103 (+ i 1))) + ((> i 68107)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 68116 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 68120 #t) + (do ((i 68150 (+ i 1))) + ((> i 68191)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68221 (+ i 1))) + ((> i 68223)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68253 (+ i 1))) + ((> i 68287)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 68296 #t) + (do ((i 68325 (+ i 1))) + ((> i 68351)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68406 (+ i 1))) + ((> i 68415)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68438 (+ i 1))) + ((> i 68447)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68467 (+ i 1))) + ((> i 68479)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68498 (+ i 1))) + ((> i 68607)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68681 (+ i 1))) + ((> i 68735)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68787 (+ i 1))) + ((> i 68799)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68851 (+ i 1))) + ((> i 68863)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68904 (+ i 1))) + ((> i 68937)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68966 (+ i 1))) + ((> i 68968)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68970 (+ i 1))) + ((> i 68974)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 68998 (+ i 1))) + ((> i 69247)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 69290 #t) + (do ((i 69293 (+ i 1))) + ((> i 69295)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69298 (+ i 1))) + ((> i 69313)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69317 (+ i 1))) + ((> i 69371)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69373 (+ i 1))) + ((> i 69375)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69405 (+ i 1))) + ((> i 69414)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69416 (+ i 1))) + ((> i 69423)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69446 (+ i 1))) + ((> i 69487)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69506 (+ i 1))) + ((> i 69551)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69573 (+ i 1))) + ((> i 69599)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69623 (+ i 1))) + ((> i 69631)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69702 (+ i 1))) + ((> i 69744)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69750 (+ i 1))) + ((> i 69759)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69817 (+ i 1))) + ((> i 69825)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69827 (+ i 1))) + ((> i 69839)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69865 (+ i 1))) + ((> i 69887)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69939 (+ i 1))) + ((> i 69955)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 69960 (+ i 1))) + ((> i 69967)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70003 (+ i 1))) + ((> i 70005)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70007 (+ i 1))) + ((> i 70015)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 70080 #t) + (do ((i 70085 (+ i 1))) + ((> i 70093)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70096 (+ i 1))) + ((> i 70105)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 70107 #t) + (do ((i 70109 (+ i 1))) + ((> i 70143)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 70162 #t) + (do ((i 70197 (+ i 1))) + ((> i 70198)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70200 (+ i 1))) + ((> i 70205)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70210 (+ i 1))) + ((> i 70271)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 70279 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 70281 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 70286 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 70302 #t) + (do ((i 70313 (+ i 1))) + ((> i 70319)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70377 (+ i 1))) + ((> i 70399)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 70404 #t) + (do ((i 70413 (+ i 1))) + ((> i 70414)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70417 (+ i 1))) + ((> i 70418)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 70441 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 70449 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 70452 #t) + (do ((i 70458 (+ i 1))) + ((> i 70460)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70469 (+ i 1))) + ((> i 70470)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70473 (+ i 1))) + ((> i 70474)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70477 (+ i 1))) + ((> i 70479)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70481 (+ i 1))) + ((> i 70486)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70488 (+ i 1))) + ((> i 70492)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70500 (+ i 1))) + ((> i 70527)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 70538 #t) + (do ((i 70540 (+ i 1))) + ((> i 70541)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 70543 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 70582 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 70593 #t) + (do ((i 70595 (+ i 1))) + ((> i 70596)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 70598 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 70603 #t) + (do ((i 70606 (+ i 1))) + ((> i 70608)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 70610 #t) + (do ((i 70612 (+ i 1))) + ((> i 70655)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 70722 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 70726 #t) + (do ((i 70731 (+ i 1))) + ((> i 70750)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70754 (+ i 1))) + ((> i 70783)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 70850 (+ i 1))) + ((> i 70851)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 70854 #t) + (do ((i 70856 (+ i 1))) + ((> i 71039)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71094 (+ i 1))) + ((> i 71095)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71103 (+ i 1))) + ((> i 71127)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71134 (+ i 1))) + ((> i 71167)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 71231 #t) + (do ((i 71233 (+ i 1))) + ((> i 71235)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71237 (+ i 1))) + ((> i 71295)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71350 (+ i 1))) + ((> i 71351)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71353 (+ i 1))) + ((> i 71423)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71451 (+ i 1))) + ((> i 71452)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71467 (+ i 1))) + ((> i 71487)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71495 (+ i 1))) + ((> i 71679)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71737 (+ i 1))) + ((> i 71839)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71904 (+ i 1))) + ((> i 71934)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71943 (+ i 1))) + ((> i 71944)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71946 (+ i 1))) + ((> i 71947)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 71956 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 71959 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 71990 #t) + (do ((i 71993 (+ i 1))) + ((> i 71994)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 71997 (+ i 1))) + ((> i 71998)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 72003 (+ i 1))) + ((> i 72095)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 72104 (+ i 1))) + ((> i 72105)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 72152 (+ i 1))) + ((> i 72153)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 72160 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 72162 #t) + (do ((i 72165 (+ i 1))) + ((> i 72191)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 72243 (+ i 1))) + ((> i 72244)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 72255 (+ i 1))) + ((> i 72271)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 72344 (+ i 1))) + ((> i 72348)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 72350 (+ i 1))) + ((> i 72367)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 72441 (+ i 1))) + ((> i 72639)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 72673 (+ i 1))) + ((> i 72703)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 72713 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 72759 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 72767 #t) + (do ((i 72769 (+ i 1))) + ((> i 72817)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 72848 (+ i 1))) + ((> i 72849)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 72872 #t) + (do ((i 72887 (+ i 1))) + ((> i 72959)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 72967 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 72970 #t) + (do ((i 73015 (+ i 1))) + ((> i 73017)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 73019 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 73022 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 73026 #t) + (do ((i 73028 (+ i 1))) + ((> i 73029)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 73032 (+ i 1))) + ((> i 73055)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 73062 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 73065 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 73103 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 73106 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 73111 #t) + (do ((i 73113 (+ i 1))) + ((> i 73439)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 73463 (+ i 1))) + ((> i 73471)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 73489 #t) + (do ((i 73531 (+ i 1))) + ((> i 73533)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 73537 (+ i 1))) + ((> i 73647)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 73649 (+ i 1))) + ((> i 73727)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 74650 (+ i 1))) + ((> i 74751)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 74863 (+ i 1))) + ((> i 74879)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 75076 (+ i 1))) + ((> i 77711)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 77809 (+ i 1))) + ((> i 77823)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 78896 (+ i 1))) + ((> i 78912)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 78919 (+ i 1))) + ((> i 78943)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 82939 (+ i 1))) + ((> i 82943)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 83527 (+ i 1))) + ((> i 90367)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 90415 (+ i 1))) + ((> i 92159)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 92729 (+ i 1))) + ((> i 92735)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 92767 (+ i 1))) + ((> i 92783)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 92863 (+ i 1))) + ((> i 92879)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 92910 (+ i 1))) + ((> i 92927)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 92976 (+ i 1))) + ((> i 92991)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 92996 (+ i 1))) + ((> i 93026)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 93048 (+ i 1))) + ((> i 93052)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 93072 (+ i 1))) + ((> i 93503)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 93549 (+ i 1))) + ((> i 93759)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 93824 (+ i 1))) + ((> i 93951)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 94027 (+ i 1))) + ((> i 94030)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 94088 (+ i 1))) + ((> i 94094)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 94112 (+ i 1))) + ((> i 94175)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 94178 #t) + (do ((i 94180 (+ i 1))) + ((> i 94191)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 94194 (+ i 1))) + ((> i 94207)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 100344 (+ i 1))) + ((> i 100351)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 101590 (+ i 1))) + ((> i 101630)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 101641 (+ i 1))) + ((> i 110575)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 110580 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 110588 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 110591 #t) + (do ((i 110883 (+ i 1))) + ((> i 110897)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 110899 (+ i 1))) + ((> i 110927)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 110931 (+ i 1))) + ((> i 110932)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 110934 (+ i 1))) + ((> i 110947)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 110952 (+ i 1))) + ((> i 110959)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 111356 (+ i 1))) + ((> i 113663)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 113771 (+ i 1))) + ((> i 113775)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 113789 (+ i 1))) + ((> i 113791)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 113801 (+ i 1))) + ((> i 113807)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 113818 (+ i 1))) + ((> i 113821)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 113823 (+ i 1))) + ((> i 119807)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 119893 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 119965 #t) + (do ((i 119968 (+ i 1))) + ((> i 119969)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 119971 (+ i 1))) + ((> i 119972)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 119975 (+ i 1))) + ((> i 119976)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 119981 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 119994 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 119996 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120004 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120070 #t) + (do ((i 120075 (+ i 1))) + ((> i 120076)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 120085 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120093 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120122 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120127 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120133 #t) + (do ((i 120135 (+ i 1))) + ((> i 120137)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 120145 #t) + (do ((i 120486 (+ i 1))) + ((> i 120487)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 120513 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120539 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120571 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120597 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120629 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120655 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120687 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120713 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120745 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 120771 #t) + (do ((i 120780 (+ i 1))) + ((> i 122623)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 122655 (+ i 1))) + ((> i 122660)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 122667 (+ i 1))) + ((> i 122879)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 122887 #t) + (do ((i 122905 (+ i 1))) + ((> i 122906)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 122914 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 122917 #t) + (do ((i 122923 (+ i 1))) + ((> i 122927)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 122990 (+ i 1))) + ((> i 123022)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 123024 (+ i 1))) + ((> i 123135)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 123181 (+ i 1))) + ((> i 123190)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 123198 (+ i 1))) + ((> i 123213)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 123215 (+ i 1))) + ((> i 123535)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 123566 (+ i 1))) + ((> i 123583)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 123628 (+ i 1))) + ((> i 124111)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 124140 (+ i 1))) + ((> i 124367)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 124398 (+ i 1))) + ((> i 124399)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 124401 (+ i 1))) + ((> i 124895)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 124903 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 124908 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 124911 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 124927 #t) + (do ((i 125125 (+ i 1))) + ((> i 125183)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 125252 (+ i 1))) + ((> i 125254)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 125256 (+ i 1))) + ((> i 125258)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 125260 (+ i 1))) + ((> i 126463)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 126468 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126496 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126499 #t) + (do ((i 126501 (+ i 1))) + ((> i 126502)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 126504 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126515 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126520 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126522 #t) + (do ((i 126524 (+ i 1))) + ((> i 126529)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 126531 (+ i 1))) + ((> i 126534)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 126536 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126538 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126540 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126544 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126547 #t) + (do ((i 126549 (+ i 1))) + ((> i 126550)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 126552 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126554 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126556 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126558 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126560 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126563 #t) + (do ((i 126565 (+ i 1))) + ((> i 126566)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 126571 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126579 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126584 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126589 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126591 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126602 #t) + (do ((i 126620 (+ i 1))) + ((> i 126624)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (s7-hash-table-set! *char-non-alphabetic-ht* 126628 #t) + (s7-hash-table-set! *char-non-alphabetic-ht* 126634 #t) + (do ((i 126652 (+ i 1))) + ((> i 127279)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 127306 (+ i 1))) + ((> i 127311)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 127338 (+ i 1))) + ((> i 127343)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 127370 (+ i 1))) + ((> i 131071)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 173792 (+ i 1))) + ((> i 173823)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 177978 (+ i 1))) + ((> i 177983)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 178206 (+ i 1))) + ((> i 178207)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 183970 (+ i 1))) + ((> i 183983)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 191457 (+ i 1))) + ((> i 191471)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 192094 (+ i 1))) + ((> i 194559)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 195102 (+ i 1))) + ((> i 196607)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + (do ((i 201547 (+ i 1))) + ((> i 201551)) + (s7-hash-table-set! *char-non-alphabetic-ht* i #t) + ) ;do + ) ;unless + + (define (char-alphabetic? char) + (unless (char? char) + (error 'type-error "char-alphabetic?: parameter must be character") + ) ;unless + (let ((cp (char->integer char))) + (cond ((> cp 205743) #f) + ((hash-table-ref *char-non-alphabetic-ht* cp) #f) + (else #t) + ) ;cond + ) ;let + ) ;define + (define (char-whitespace? char) + (unless (char? char) + (error 'type-error "char-whitespace?: parameter must be character") + ) ;unless + (hash-table-ref *char-whitespace-ht* (char->integer char)) + ) ;define + + (unless (defined? '*char-whitespace-ht*) + (define *char-whitespace-ht* (s7-make-hash-table)) + (char-ht-set-range! *char-whitespace-ht* 9 13) + (s7-hash-table-set! *char-whitespace-ht* 32 #t) + (s7-hash-table-set! *char-whitespace-ht* 133 #t) + (s7-hash-table-set! *char-whitespace-ht* 160 #t) + (s7-hash-table-set! *char-whitespace-ht* 5760 #t) + (char-ht-set-range! *char-whitespace-ht* 8192 8202) + (char-ht-set-range! *char-whitespace-ht* 8232 8233) + (s7-hash-table-set! *char-whitespace-ht* 8239 #t) + (s7-hash-table-set! *char-whitespace-ht* 8287 #t) + (s7-hash-table-set! *char-whitespace-ht* 12288 #t) + ) ;unless (unless (defined? '*char-upper-ht*) (define *char-upper-ht* (s7-make-hash-table))