From: Chris Hanson Date: Sat, 11 Feb 2017 21:56:03 +0000 (-0800) Subject: Implement digit-value. X-Git-Tag: mit-scheme-pucked-9.2.12~220^2~137 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b5c23c33d0f6b7a8e274e3ae9957c67bdd5e0d5b;p=mit-scheme.git Implement digit-value. --- diff --git a/src/etc/ucd-converter.scm b/src/etc/ucd-converter.scm index a2cd08a94..32c9cf5c4 100644 --- a/src/etc/ucd-converter.scm +++ b/src/etc/ucd-converter.scm @@ -397,6 +397,7 @@ USA. "gc" "lc" "nt" + "nv" "scf" "slc" "suc" @@ -449,6 +450,7 @@ USA. (define (metadata->code-generator metadata) (let ((type-spec (metadata-type-spec metadata))) (cond ((string=? "nt" (metadata-name metadata)) code-generator:nt) + ((string=? "nv" (metadata-name metadata)) code-generator:nv) ((mapped-enum-type? type-spec) code-generator:mapped-enum) ((eq? 'boolean type-spec) code-generator:boolean) ((eq? 'code-point type-spec) code-generator:code-point) @@ -561,6 +563,14 @@ USA. (converter:mapped-enum (prop-metadata "nt")) (lambda (char-expr) char-expr #f) (lambda (sv-expr) sv-expr))) + +(define code-generator:nv + (hashed-code-generator (lambda (value) + (and (string? value) + (not (string=? "NaN" value)))) + (lambda (string) (string->number string 10 #t)) + (lambda (char-expr) char-expr #f) + (lambda (sv-expr) sv-expr))) (define (code-generator:mapped-enum prop-name metadata prop-alist proc-name) (let ((maker (entries-maker)) diff --git a/src/runtime/char.scm b/src/runtime/char.scm index 12d08575a..88f456e72 100644 --- a/src/runtime/char.scm +++ b/src/runtime/char.scm @@ -173,6 +173,10 @@ USA. (guarantee unicode-char? char 'char-upcase-full) (ucd-uc-value char)))) +(define (digit-value char) + (and (char-numeric? char) + (ucd-nv-value char))) + (define-deferred 0-code (char->integer #\0)) ;; Next two codes are offset by 10 to speed up CHAR->DIGIT. (define-deferred upper-a-code (fix:- (char->integer #\A) 10)) diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg index 1388dc1db..eb5d8af92 100644 --- a/src/runtime/runtime.pkg +++ b/src/runtime/runtime.pkg @@ -1380,6 +1380,7 @@ USA. decode-utf32le-char decode-utf8-char digit->char + digit-value encode-utf16be-char! encode-utf16le-char! encode-utf32be-char! @@ -1411,6 +1412,7 @@ USA. "ucd-table-lc" "ucd-table-lower" "ucd-table-nt" + "ucd-table-nv" "ucd-table-scf" "ucd-table-slc" "ucd-table-suc" @@ -1427,6 +1429,8 @@ USA. ucd-cf-value ucd-gc-value ucd-lc-value + ucd-nt-value + ucd-nv-value ucd-scf-value ucd-slc-value ucd-suc-value diff --git a/src/runtime/ucd-table-alpha.scm b/src/runtime/ucd-table-alpha.scm index ef5765a5c..fac5f3729 100644 --- a/src/runtime/ucd-table-alpha.scm +++ b/src/runtime/ucd-table-alpha.scm @@ -30,8 +30,8 @@ USA. (declare (usual-integrations)) -(define (ucd-alpha-value sv) - (scalar-value-in-char-set? sv char-set:alphabetic)) +(define (ucd-alpha-value char) + (char-in-set? char char-set:alphabetic)) (define-deferred char-set:alphabetic (char-set* diff --git a/src/runtime/ucd-table-gc.scm b/src/runtime/ucd-table-gc.scm index 62803f25c..b23349d2a 100644 --- a/src/runtime/ucd-table-gc.scm +++ b/src/runtime/ucd-table-gc.scm @@ -30,11 +30,11 @@ USA. (declare (usual-integrations)) - (define-deferred ucd-gc-value (let ((offsets (bytevector 91 149 155 22 22 22 22 22 22 22 22 22 22 22 158 160 160))) - (named-lambda (ucd-gc-value sv) - ((vector-ref ucd-gc-entries (bytevector-u8-ref offsets (fix:and 31 (fix:lsh sv -16)))) sv ucd-gc-entries)))) + (named-lambda (ucd-gc-value char) + (let ((sv (char->integer char))) + ((vector-ref ucd-gc-entries (bytevector-u8-ref offsets (fix:and 31 (fix:lsh sv -16)))) sv ucd-gc-entries))))) (define (ucd-gc-entry-0 sv table) sv @@ -181,793 +181,661 @@ USA. table 'other:private-use) - (define-deferred ucd-gc-entry-29 (let ((offsets (bytevector 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 2 2 3 2 2 2 4 5 2 6 2 7 2 2 8 8 8 8 8 8 8 8 8 8 2 2 6 6 6 2 2 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 4 2 5 10 11 10 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 4 6 5 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 3 3 3 3 13 2 10 13 14 15 6 16 13 10 13 6 17 17 10 12 2 2 10 17 14 18 17 17 17 2 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 6 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 6 12 12 12 12 12 12 12 12))) (named-lambda (ucd-gc-entry-29 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-30 (let ((offsets (bytevector 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 9 12 9 12 9 12 12 12 9 9 12 9 12 9 9 12 9 9 9 12 12 9 9 9 9 12 9 9 12 9 9 9 12 12 12 9 9 12 9 9 12 9 12 9 12 9 9 12 9 12 12 9 12 9 9 12 9 9 9 12 9 12 9 9 12 12 14 9 12 12 12 14 14 14 14 9 19 12 9 19 12 9 19 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 12 9 19 12 9 12 9 9 9 12 9 12 9 12 9 12))) (named-lambda (ucd-gc-entry-30 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-31 (let ((offsets (bytevector 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 12 12 12 12 12 12 9 9 12 9 9 12 12 9 12 9 9 9 9 12 9 12 9 12 9 12 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 14 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10 10 10 10 20 20 20 20 20 20 20 20 20 20 20 20 10 10 10 10 10 10 10 10 10 10 10 10 10 10 20 20 20 20 20 10 10 10 10 10 10 10 20 10 20 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10))) (named-lambda (ucd-gc-entry-31 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-32 (let ((offsets (bytevector 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 9 12 9 12 20 10 9 12 22 22 20 12 12 12 2 9 22 22 22 22 10 10 9 2 9 9 9 22 9 22 9 9 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 22 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 9 12 12 9 9 9 12 12 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 12 12 12 12 9 12 6 9 12 9 9 12 12 9 9 9))) (named-lambda (ucd-gc-entry-32 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-33 (let ((offsets (bytevector 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 13 21 21 21 21 21 23 23 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 9 12 9 12 9 12 9 12 9 12 9 12 9 12 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12))) (named-lambda (ucd-gc-entry-33 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-34 (let ((offsets (bytevector 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 22 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 22 22 20 2 2 2 2 2 2 22 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 22 2 7 22 22 13 13 3 22 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 7 21 2 21 21 2 21 21 2 21 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 14 14 14 2 2 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-34 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-35 (let ((offsets (bytevector 16 16 16 16 16 16 6 6 6 2 2 3 2 2 13 13 21 21 21 21 21 21 21 21 21 21 21 2 16 22 2 2 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 20 14 14 14 14 14 14 14 14 14 14 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 8 8 8 8 8 8 8 8 8 8 2 2 2 2 14 14 21 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 2 14 21 21 21 21 21 21 21 16 13 21 21 21 21 21 21 20 20 21 21 13 21 21 21 21 14 14 8 8 8 8 8 8 8 8 8 8 14 14 14 13 13 14))) (named-lambda (ucd-gc-entry-35 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-36 (let ((offsets (bytevector 2 2 2 2 2 2 2 2 2 2 2 2 2 2 22 16 14 21 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 21 21 21 21 21 21 21 21 21 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 21 21 21 21 21 21 21 20 20 13 2 2 2 20 22 22 22 22 22))) (named-lambda (ucd-gc-entry-36 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-37 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 21 21 20 21 21 21 21 21 21 21 21 21 20 21 21 21 20 21 21 21 21 21 22 22 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 21 22 22 2 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 21 21 21 21 21 21 21 21 21 21 21 21 21 21 16 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21))) (named-lambda (ucd-gc-entry-37 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-38 (let ((offsets (bytevector 21 21 21 24 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 24 21 14 24 24 24 21 21 21 21 21 21 21 21 24 24 24 24 21 24 24 14 21 21 21 21 21 21 21 14 14 14 14 14 14 14 14 14 14 21 21 2 2 8 8 8 8 8 8 8 8 8 8 2 20 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 24 24 22 14 14 14 14 14 14 14 14 22 22 14 14 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 22 14 22 22 22 14 14 14 14 22 22 21 14 24 24 24 21 21 21 21 22 22 24 24 22 22 24 24 21 14 22 22 22 22 22 22 22 22 24 22 22 22 22 14 14 22 14 14 14 21 21 22 22 8 8 8 8 8 8 8 8 8 8 14 14 3 3 17 17 17 17 17 17 13 3 22 22 22 22))) (named-lambda (ucd-gc-entry-38 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-39 (let ((offsets (bytevector 22 21 21 24 22 14 14 14 14 14 14 22 22 22 22 14 14 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 22 14 14 22 14 14 22 14 14 22 22 21 22 24 24 24 21 21 22 22 22 22 21 21 22 22 21 21 21 22 22 22 21 22 22 22 22 22 22 22 14 14 14 14 22 14 22 22 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 21 21 14 14 14 21 22 22 22 22 22 22 22 22 22 22 22 21 21 24 22 14 14 14 14 14 14 14 14 14 22 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 22 14 14 22 14 14 14 14 14 22 22 21 14 24 24 24 21 21 21 21 21 22 21 21 24 22 24 24 21 22 22 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 21 21 22 22 8 8 8 8 8 8 8 8 8 8 2 3 22 22 22 22 22 22 22 14 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-39 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-40 (let ((offsets (bytevector 22 21 24 24 22 14 14 14 14 14 14 14 14 22 22 14 14 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 22 14 14 22 14 14 14 14 14 22 22 21 14 24 21 24 21 21 21 21 22 22 24 24 22 22 24 24 21 22 22 22 22 22 22 22 22 21 24 22 22 22 22 14 14 22 14 14 14 21 21 22 22 8 8 8 8 8 8 8 8 8 8 13 14 17 17 17 17 17 17 22 22 22 22 22 22 22 22 22 22 21 14 22 14 14 14 14 14 14 22 22 22 14 14 14 22 14 14 14 14 22 22 22 14 14 22 14 22 14 14 22 22 22 14 14 22 22 22 14 14 14 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 24 24 21 24 24 22 22 22 24 24 24 22 24 24 24 21 22 22 14 22 22 22 22 22 22 24 22 22 22 22 22 22 22 22 22 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 17 17 17 13 13 13 13 13 13 3 13 22 22 22 22 22))) (named-lambda (ucd-gc-entry-40 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-41 (let ((offsets (bytevector 21 24 24 24 22 14 14 14 14 14 14 14 14 22 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 14 21 21 21 24 24 24 24 22 21 21 21 22 21 21 21 21 22 22 22 22 22 22 22 21 21 22 14 14 14 22 22 22 22 22 14 14 21 21 22 22 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22 22 22 17 17 17 17 17 17 17 13 14 21 24 24 22 14 14 14 14 14 14 14 14 22 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 22 22 21 14 24 21 24 24 24 24 24 22 21 24 24 22 24 24 21 21 22 22 22 22 22 22 22 24 24 22 22 22 22 22 22 22 14 22 14 14 21 21 22 22 8 8 8 8 8 8 8 8 8 8 22 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-41 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-42 (let ((offsets (bytevector 22 21 24 24 22 14 14 14 14 14 14 14 14 22 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 14 24 24 24 21 21 21 21 22 24 24 24 22 24 24 24 21 14 13 22 22 22 22 14 14 14 24 17 17 17 17 17 17 17 14 14 14 21 21 22 22 8 8 8 8 8 8 8 8 8 8 17 17 17 17 17 17 17 17 17 13 14 14 14 14 14 14 22 22 24 24 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 14 14 22 14 22 22 14 14 14 14 14 14 14 22 22 22 21 22 22 22 22 24 24 24 21 21 21 22 21 22 24 24 24 24 24 24 24 24 22 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 22 22 24 24 2 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-42 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-43 (let ((offsets (bytevector 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 14 14 21 21 21 21 21 21 21 22 22 22 22 3 14 14 14 14 14 14 20 21 21 21 21 21 21 21 21 2 8 8 8 8 8 8 8 8 8 8 2 2 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 22 14 22 22 14 14 22 14 22 22 14 22 22 22 22 22 22 14 14 14 14 22 14 14 14 14 14 14 14 22 14 14 14 22 14 22 14 22 22 14 14 22 14 14 14 14 21 14 14 21 21 21 21 21 21 22 21 21 14 22 22 14 14 14 14 14 22 20 22 21 21 21 21 21 21 22 22 8 8 8 8 8 8 8 8 8 8 22 22 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-43 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-44 (let ((offsets (bytevector 14 13 13 13 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 13 2 13 13 13 21 21 13 13 13 13 13 13 8 8 8 8 8 8 8 8 8 8 17 17 17 17 17 17 17 17 17 17 13 21 13 21 13 21 4 5 4 5 24 24 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 21 21 21 21 21 21 21 21 21 21 21 21 21 21 24 21 21 21 21 21 2 21 21 14 14 14 14 14 21 21 21 21 21 21 21 21 21 21 21 22 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 22 13 13 13 13 13 13 13 13 21 13 13 13 13 13 13 22 13 13 2 2 2 2 2 13 13 13 13 2 2 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-44 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-45 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 24 21 21 21 21 24 21 21 21 21 21 21 24 21 21 24 24 21 21 14 8 8 8 8 8 8 8 8 8 8 2 2 2 2 2 2 14 14 14 14 14 14 24 24 21 21 14 14 14 14 21 21 21 14 24 24 24 14 14 24 24 24 24 24 24 24 14 14 14 21 21 21 21 14 14 14 14 14 14 14 14 14 14 14 14 14 21 24 24 21 21 24 24 24 24 24 24 21 14 24 8 8 8 8 8 8 8 8 8 8 24 24 24 21 13 13 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 22 9 22 22 22 22 22 9 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 2 20 14 14 14))) (named-lambda (ucd-gc-entry-45 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-46 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 22 22 14 14 14 14 14 14 14 22 14 22 14 14 14 14 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 22 22 14 14 14 14 14 14 14 22 14 22 14 14 14 14 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14))) (named-lambda (ucd-gc-entry-46 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-47 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 21 21 21 2 2 2 2 2 2 2 2 2 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 22 22 12 12 12 12 12 12 22 22))) (named-lambda (ucd-gc-entry-47 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-48 (let ((offsets (bytevector 7 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14))) (named-lambda (ucd-gc-entry-48 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-49 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 2 2 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 1 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 4 5 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 2 2 2 25 25 25 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-49 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-50 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 21 21 21 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 21 2 2 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 22 21 21 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 24 21 21 21 21 21 21 21 24 24 24 24 24 24 24 24 21 24 24 21 21 21 21 21 21 21 21 21 21 21 2 2 2 20 2 2 2 3 14 21 22 22 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22 17 17 17 17 17 17 17 17 17 17 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-50 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-51 (let ((offsets (bytevector 2 2 2 2 2 2 7 2 2 2 2 21 21 21 16 22 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 20 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 14 14 14 14 14 21 21 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 14 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-51 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-52 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 21 21 21 24 24 24 24 21 21 24 24 24 22 22 22 22 24 24 21 24 24 24 24 24 24 21 21 21 22 22 22 22 13 22 22 22 2 2 8 8 8 8 8 8 8 8 8 8 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 17 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13))) (named-lambda (ucd-gc-entry-52 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-53 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 24 24 21 22 22 2 2 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 21 24 21 21 21 21 21 21 21 22 21 24 21 24 24 21 21 21 21 21 21 21 21 24 24 24 24 24 24 21 21 21 21 21 21 21 21 21 21 22 22 21 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22 2 2 2 2 2 2 2 20 2 2 2 2 2 2 22 22 21 21 21 21 21 21 21 21 21 21 21 21 21 21 23 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-53 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-54 (let ((offsets (bytevector 21 21 21 21 24 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 24 21 21 21 21 21 24 21 24 24 24 24 24 21 24 24 14 14 14 14 14 14 14 22 22 22 22 8 8 8 8 8 8 8 8 8 8 2 2 2 2 2 2 2 13 13 13 13 13 13 13 13 13 13 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 22 22 22 21 21 24 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 21 21 21 21 24 24 21 21 24 21 21 21 14 14 8 8 8 8 8 8 8 8 8 8 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 24 21 21 24 24 24 21 24 21 21 21 24 24 22 22 22 22 22 22 22 22 2 2 2 2))) (named-lambda (ucd-gc-entry-54 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-55 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 24 24 24 24 24 24 24 21 21 21 21 21 21 21 21 24 24 21 21 22 22 22 2 2 2 2 2 8 8 8 8 8 8 8 8 8 8 22 22 22 14 14 14 8 8 8 8 8 8 8 8 8 8 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 20 20 20 20 20 20 2 2 12 12 12 12 12 12 12 12 12 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 2 2 2 2 2 2 2 2 22 22 22 22 22 22 22 22 21 21 21 2 21 21 21 21 21 21 21 21 21 21 21 21 21 24 21 21 21 21 21 21 21 14 14 14 14 21 14 14 14 14 24 24 21 14 14 22 21 21 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-55 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-56 (let ((offsets (bytevector 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 12 12 12 12 12 12 12 12 12 12 12 12 20 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 22 22 22 22 22 21 21 21 21 21))) (named-lambda (ucd-gc-entry-56 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-57 (let ((offsets (bytevector 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 12 12 12 12 12 12 12 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12))) (named-lambda (ucd-gc-entry-57 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-58 (let ((offsets (bytevector 12 12 12 12 12 12 12 12 9 9 9 9 9 9 9 9 12 12 12 12 12 12 22 22 9 9 9 9 9 9 22 22 12 12 12 12 12 12 12 12 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 9 9 9 9 9 9 9 9 12 12 12 12 12 12 22 22 9 9 9 9 9 9 22 22 12 12 12 12 12 12 12 12 22 9 22 9 22 9 22 9 12 12 12 12 12 12 12 12 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 22 22 12 12 12 12 12 12 12 12 19 19 19 19 19 19 19 19 12 12 12 12 12 12 12 12 19 19 19 19 19 19 19 19 12 12 12 12 12 12 12 12 19 19 19 19 19 19 19 19 12 12 12 12 12 22 12 12 9 9 9 9 19 10 12 10 10 10 12 12 12 22 12 12 9 9 9 9 19 10 10 10 12 12 12 12 22 22 12 12 9 9 9 9 22 10 10 10 12 12 12 12 12 12 12 12 9 9 9 9 9 10 10 10 22 22 12 12 12 22 12 12 9 9 9 9 19 10 10 22))) (named-lambda (ucd-gc-entry-58 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-59 (let ((offsets (bytevector 1 1 1 1 1 1 1 1 1 1 1 16 16 16 16 16 7 7 7 7 7 7 2 2 15 18 4 15 15 18 4 15 2 2 2 2 2 2 2 2 26 27 16 16 16 16 16 1 2 2 2 2 2 2 2 2 2 15 18 2 2 2 2 11 11 2 2 2 6 4 5 2 2 2 2 2 2 2 2 2 2 2 6 2 11 2 2 2 2 2 2 2 2 2 2 1 16 16 16 16 16 22 16 16 16 16 16 16 16 16 16 16 17 20 22 22 17 17 17 17 17 17 6 6 6 4 5 20 17 17 17 17 17 17 17 17 17 17 6 6 6 4 5 22 20 20 20 20 20 20 20 20 20 20 20 20 20 22 22 22 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 21 21 21 21 21 21 21 21 21 21 21 21 21 23 23 23 23 21 23 23 23 21 21 21 21 21 21 21 21 21 21 21 21 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-59 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-60 (let ((offsets (bytevector 13 13 9 13 13 13 13 9 13 13 12 9 9 9 12 12 9 9 9 12 13 9 13 13 6 9 9 9 9 9 13 13 13 13 13 13 9 13 9 13 9 13 9 9 9 9 13 12 9 9 9 9 12 14 14 14 14 12 13 13 12 12 9 9 6 6 6 6 6 9 12 12 12 12 13 6 13 13 12 13 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 9 12 25 25 25 25 17 13 13 22 22 22 22 6 6 6 6 6 13 13 13 13 13 6 6 13 13 13 13 6 13 13 6 13 13 6 13 13 13 13 13 13 13 6 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 6 6 13 13 6 13 6 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 6 6 6 6 6 6 6 6 6 6 6 6))) (named-lambda (ucd-gc-entry-60 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-61 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 4 5 4 5 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 6 6 13 13 13 13 13 13 13 4 5 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 6 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 6 6 6 6 6 6 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22))) (named-lambda (ucd-gc-entry-61 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-62 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17))) (named-lambda (ucd-gc-entry-62 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-63 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 6 13 13 13 13 13 13 13 13 13 6 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 6 6 6 6 6 6 6 6))) (named-lambda (ucd-gc-entry-63 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-64 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 6 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13))) (named-lambda (ucd-gc-entry-64 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-65 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 4 5 4 5 4 5 4 5 4 5 4 5 4 5 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 6 6 6 6 6 4 5 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 4 5 4 5 4 5 4 5 4 5 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6))) (named-lambda (ucd-gc-entry-65 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-66 (let ((offsets (bytevector 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 4 5 4 5 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 4 5 6 6))) (named-lambda (ucd-gc-entry-66 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-67 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 13 13 6 6 6 6 6 6 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 22 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-67 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-68 (let ((offsets (bytevector 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 22 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 22 9 12 9 9 9 12 12 9 12 9 12 9 12 9 9 9 9 12 9 12 12 9 12 12 12 12 12 12 20 20 9 9 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 12 13 13 13 13 13 13 9 12 9 12 21 21 21 9 12 22 22 22 22 22 2 2 2 2 17 2 2))) (named-lambda (ucd-gc-entry-68 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-69 (let ((offsets (bytevector 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 22 12 22 22 22 22 22 12 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 20 2 22 22 22 22 22 22 22 22 22 22 22 22 22 22 21 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 22 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21))) (named-lambda (ucd-gc-entry-69 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-70 (let ((offsets (bytevector 2 2 15 18 15 18 2 2 2 15 18 2 15 18 2 2 2 2 2 2 2 2 2 7 2 2 7 2 15 18 2 2 15 18 4 5 4 5 4 5 4 5 2 2 2 2 2 20 2 2 2 2 2 2 2 2 2 2 7 7 2 2 2 2 7 2 4 2 2 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-70 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-71 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22))) (named-lambda (ucd-gc-entry-71 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-72 (let ((offsets (bytevector 1 2 2 2 13 20 14 25 4 5 4 5 4 5 4 5 4 5 13 13 4 5 4 5 4 5 4 5 7 4 5 5 13 25 25 25 25 25 25 25 25 25 21 21 21 21 24 24 7 20 20 20 20 20 13 13 25 25 25 20 14 2 13 13 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 21 21 10 10 20 20 14 7 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 2 20 20 20 14))) (named-lambda (ucd-gc-entry-72 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-73 (let ((offsets (bytevector 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 13 13 17 17 17 17 13 13 13 13 13 13 13 13 13 13 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14))) (named-lambda (ucd-gc-entry-73 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-74 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 17 17 17 17 17 17 17 17 17 17 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 17 17 17 17 17 17 17 17 13 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 17 17 17 17 17 17 17 17 17 17 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22))) (named-lambda (ucd-gc-entry-74 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-75 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13))) (named-lambda (ucd-gc-entry-75 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-76 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-76 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-77 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 20 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14))) (named-lambda (ucd-gc-entry-77 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-78 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 20 20 20 20 20 20 2 2))) (named-lambda (ucd-gc-entry-78 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-79 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 20 2 2 2 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 8 8 8 8 8 8 8 8 8 8 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 14 21 23 23 23 2 21 21 21 21 21 21 21 21 21 21 2 20 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 20 20 21 21 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 25 25 25 25 25 25 25 25 25 25 21 21 2 2 2 2 2 2 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-79 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-80 (let ((offsets (bytevector 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 20 20 20 20 20 20 20 20 20 10 10 9 12 9 12 9 12 9 12 9 12 9 12 9 12 12 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 20 12 12 12 12 12 12 12 12 9 12 9 12 9 9 12 9 12 9 12 9 12 9 12 20 10 10 9 12 9 12 14 9 12 9 12 12 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 12 9 9 9 9 9 22 9 9 9 9 9 12 9 12 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 20 20 12 14 14 14 14 14))) (named-lambda (ucd-gc-entry-80 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-81 (let ((offsets (bytevector 14 14 21 14 14 14 21 14 14 14 14 21 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 24 21 21 24 13 13 13 13 22 22 22 22 17 17 17 17 17 17 13 13 3 13 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 2 2 2 2 22 22 22 22 22 22 22 22 24 24 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 21 21 22 22 22 22 22 22 22 22 2 2 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 14 14 14 14 14 14 2 2 2 14 2 14 22 22))) (named-lambda (ucd-gc-entry-81 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-82 (let ((offsets (bytevector 8 8 8 8 8 8 8 8 8 8 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 21 21 21 21 21 21 2 2 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 21 21 21 21 21 21 21 21 21 24 24 22 22 22 22 22 22 22 22 22 22 22 2 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 21 21 21 24 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 24 24 21 21 21 21 24 24 21 24 24 24 24 2 2 2 2 2 2 2 2 2 2 2 2 2 22 20 8 8 8 8 8 8 8 8 8 8 22 22 22 22 2 2 14 14 14 14 14 21 20 14 14 14 14 14 14 14 14 14 8 8 8 8 8 8 8 8 8 8 14 14 14 14 14 22))) (named-lambda (ucd-gc-entry-82 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-83 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 21 21 21 21 24 24 21 21 24 24 21 21 22 22 22 22 22 22 22 22 22 14 14 14 21 14 14 14 14 14 14 14 14 21 24 22 22 8 8 8 8 8 8 8 8 8 8 22 22 2 2 2 2 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 20 14 14 14 14 14 14 13 13 13 14 24 21 24 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 14 21 21 21 14 14 21 21 14 14 14 14 14 21 21 14 21 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 20 2 2 14 14 14 14 14 14 14 14 14 14 14 24 21 21 24 24 2 2 14 20 20 24 21 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-83 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-84 (let ((offsets (bytevector 22 14 14 14 14 14 14 22 22 14 14 14 14 14 14 22 22 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 22 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 10 20 20 20 20 12 12 12 12 12 12 22 22 22 22 22 22 22 22 22 22 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 24 21 24 24 21 24 24 2 24 21 22 22 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-84 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-85 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22))) (named-lambda (ucd-gc-entry-85 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-86 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-86 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-87 (let ((offsets (bytevector 12 12 12 12 12 12 12 22 22 22 22 22 22 22 22 22 22 22 22 12 12 12 12 12 22 22 22 22 22 14 21 14 14 14 14 14 14 14 14 14 14 6 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 22 14 22 14 14 22 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14))) (named-lambda (ucd-gc-entry-87 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-88 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 5 4 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 3 13 22 22))) (named-lambda (ucd-gc-entry-88 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-89 (let ((offsets (bytevector 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 2 2 2 2 2 2 2 4 5 2 22 22 22 22 22 22 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 2 7 7 11 11 4 5 4 5 4 5 4 5 4 5 4 5 4 5 4 5 2 2 4 5 2 2 2 2 11 11 11 2 2 2 22 2 2 2 2 7 4 5 4 5 4 5 2 2 2 6 7 6 6 6 22 2 3 2 2 22 22 22 22 14 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 16))) (named-lambda (ucd-gc-entry-89 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-90 (let ((offsets (bytevector 22 2 2 2 3 2 2 2 4 5 2 6 2 7 2 2 8 8 8 8 8 8 8 8 8 8 2 2 6 6 6 2 2 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 4 2 5 10 11 10 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 4 6 5 6 4 5 2 4 5 2 2 14 14 14 14 14 14 14 14 14 14 20 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 20 20 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 14 14 14 14 14 14 22 22 14 14 14 14 14 14 22 22 14 14 14 14 14 14 22 22 14 14 14 22 22 22 3 3 6 10 13 3 3 22 13 6 6 6 6 13 13 22 22 22 22 22 22 22 22 22 22 16 16 16 13 13 22 22))) (named-lambda (ucd-gc-entry-90 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-91 (let ((offsets (bytevector 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 14 46 47 48 14 49 50 51 52 53 54 55 56 57 58 59 60 6 61 62 63 64 65 13 66 6 67 68 69 70 71 72 73 74 13 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 75 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 76 77 14 14 14 78 14 79 80 81 82 83 84 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 85 22 22 22 22 22 22 22 22 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 14 86 87 14 88 89 90))) (named-lambda (ucd-gc-entry-91 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 (fix:lsh sv -8)))) sv table)))) - (define-deferred ucd-gc-entry-92 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22))) (named-lambda (ucd-gc-entry-92 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-93 (let ((offsets (bytevector 2 2 2 22 22 22 22 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 22 22 22 13 13 13 13 13 13 13 13 13 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 17 17 17 17 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 17 17 13 13 13 22 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 21 22 22))) (named-lambda (ucd-gc-entry-93 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-94 (let ((offsets (bytevector 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 21 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 22 22 22 22))) (named-lambda (ucd-gc-entry-94 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-95 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 17 17 17 17 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 25 14 14 14 14 14 14 14 14 25 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 21 21 21 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 2 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 14 14 14 14 14 14 14 14 2 25 25 25 25 25 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-95 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-96 (let ((offsets (bytevector 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 22 22 22 22 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 22 22 22 22))) (named-lambda (ucd-gc-entry-96 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-97 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 2 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-97 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-98 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-98 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-99 (let ((offsets (bytevector 14 14 14 14 14 14 22 22 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 22 22 22 14 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 2 17 17 17 17 17 17 17 17 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 13 13 17 17 17 17 17 17 17 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 17 17 17 17 17 17 17 17 17 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 22 22 22 22 22 17 17 17 17 17))) (named-lambda (ucd-gc-entry-99 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-100 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 17 17 17 17 17 17 22 22 22 2 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 2 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 17 17 14 14 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 22 22 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17))) (named-lambda (ucd-gc-entry-100 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-101 (let ((offsets (bytevector 14 21 21 21 22 21 21 22 22 22 22 22 21 21 21 21 14 14 14 14 22 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 21 21 21 22 22 22 22 21 17 17 17 17 17 17 17 17 22 22 22 22 22 22 22 22 2 2 2 2 2 2 2 2 2 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 17 17 2 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 17 17 17 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 13 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 22 22 22 22 17 17 17 17 17 2 2 2 2 2 2 2 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-101 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-102 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 2 2 2 2 2 2 2 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 17 17 17 17 17 17 17 17 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 17 17 17 17 17 17 17 17 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 2 2 2 2 22 22 22 22 22 22 22 22 22 22 22 22 17 17 17 17 17 17 17 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-102 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-103 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 22 22 22 22 22 22 22 22 22 22 22 22 22 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 22 22 22 22 22 22 22 17 17 17 17 17 17))) (named-lambda (ucd-gc-entry-103 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-104 (let ((offsets (bytevector 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-104 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-105 (let ((offsets (bytevector 24 21 24 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 2 2 2 2 2 2 2 22 22 22 22 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 21 21 21 24 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 24 24 21 21 21 21 24 24 21 21 2 2 16 2 2 2 2 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-105 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-106 (let ((offsets (bytevector 21 21 21 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 21 21 21 24 21 21 21 21 21 21 21 21 22 8 8 8 8 8 8 8 8 8 8 2 2 2 2 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 2 2 14 22 22 22 22 22 22 22 22 22 21 21 24 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 24 24 21 21 21 21 21 21 21 21 21 24 24 14 14 14 14 2 2 2 2 2 21 21 21 2 22 22 8 8 8 8 8 8 8 8 8 8 14 2 14 2 2 2 22 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-106 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-107 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 24 24 21 21 21 24 24 21 24 21 21 2 2 2 2 2 2 21 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 22 14 22 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 2 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 24 24 24 21 21 21 21 21 21 21 21 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-107 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-108 (let ((offsets (bytevector 21 21 24 24 22 14 14 14 14 14 14 14 14 22 22 14 14 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 22 14 14 22 14 14 14 14 14 22 22 21 14 24 24 21 24 24 24 24 22 22 24 24 22 22 24 24 24 22 22 14 22 22 22 22 22 22 24 22 22 22 22 22 14 14 14 14 14 24 24 22 22 21 21 21 21 21 21 21 22 22 22 21 21 21 21 21 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-108 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-109 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 24 24 21 21 21 21 21 21 21 21 24 24 21 21 21 24 21 14 14 14 14 2 2 2 2 2 8 8 8 8 8 8 8 8 8 8 22 2 22 2 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 24 24 21 21 21 21 21 21 24 21 24 24 24 24 21 21 24 21 21 14 14 2 14 22 22 22 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-109 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-110 (let ((offsets (bytevector 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 24 24 21 21 21 21 22 22 24 24 24 24 21 21 24 21 21 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 14 14 14 14 21 21 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-110 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-111 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 24 24 21 21 21 21 21 21 21 21 24 24 21 24 21 21 2 2 2 14 22 22 22 22 22 22 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22 2 2 2 2 2 2 2 2 2 2 2 2 2 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 24 21 24 24 21 21 21 21 21 21 24 21 22 22 22 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-111 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-112 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 21 21 21 24 24 21 21 21 21 24 21 21 21 21 21 22 22 22 22 8 8 8 8 8 8 8 8 8 8 17 17 2 2 2 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-112 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-113 (let ((offsets (bytevector 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 8 8 8 8 8 8 8 8 8 8 17 17 17 17 17 17 17 17 17 22 22 22 22 22 22 22 22 22 22 22 22 14))) (named-lambda (ucd-gc-entry-113 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-114 (let ((offsets (bytevector 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-114 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-115 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 24 21 21 21 21 21 21 21 22 21 21 21 21 21 21 24 21 14 2 2 2 2 2 22 22 22 22 22 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 22 22 22 2 2 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 22 24 21 21 21 21 21 21 21 24 21 21 24 21 21 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-115 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-116 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-116 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-117 (let ((offsets (bytevector 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 25 22 2 2 2 2 2 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14))) (named-lambda (ucd-gc-entry-117 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-118 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-118 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-119 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-119 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-120 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-120 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-121 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 8 8 8 8 8 8 8 8 8 8 22 22 22 22 2 2 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 21 21 21 21 21 2 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-121 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-122 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 21 21 21 21 21 21 21 2 2 2 2 2 13 13 13 13 20 20 20 20 2 13 22 22 22 22 22 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 22 17 17 17 17 17 17 17 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-122 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-123 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 14 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 24 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 21 21 21 21 20 20 20 20 20 20 20 20 20 20 20 20 20 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 20 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-123 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-124 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-124 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-125 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-125 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-126 (let ((offsets (bytevector 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-126 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-127 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 22 22 13 21 21 2 16 16 16 16 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-127 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-128 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-128 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-129 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 24 24 21 21 21 13 13 13 24 24 24 24 24 24 16 16 16 16 16 16 16 16 21 21 21 21 21 21 21 21 13 13 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 21 21 21 21 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-129 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-130 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 21 21 21 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-130 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-131 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-131 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-132 (let ((offsets (bytevector 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 22 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 9 22 9 9 22 22 9 22 22 9 9 22 22 9 9 9 9 22 9 9 9 9 9 9 9 9 12 12 12 12 22 12 22 12 12 12 12 12 12 12 22 12 12 12 12 12 12 12 12 12 12 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12))) (named-lambda (ucd-gc-entry-132 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-133 (let ((offsets (bytevector 12 12 12 12 9 9 22 9 9 9 9 22 22 9 9 9 9 9 9 9 9 22 9 9 9 9 9 9 9 22 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 9 9 22 9 9 9 9 22 9 9 9 9 9 22 9 22 22 22 9 9 9 9 9 9 9 22 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12))) (named-lambda (ucd-gc-entry-133 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-134 (let ((offsets (bytevector 12 12 12 12 12 12 12 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 22 22 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 6 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 6 12 12 12 12 12 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 6 12 12 12 12))) (named-lambda (ucd-gc-entry-134 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-135 (let ((offsets (bytevector 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 6 12 12 12 12 12 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 6 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 6 12 12 12 12 12 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 6 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 6 12 12 12 12 12 12 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 6 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 6 12 12 12 12 12 12 9 12 22 22 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8))) (named-lambda (ucd-gc-entry-135 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-136 (let ((offsets (bytevector 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 13 13 13 13 13 13 13 13 21 13 13 13 13 13 13 13 13 13 13 13 13 13 13 21 13 13 2 2 2 2 2 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 21 21 21 21 21 22 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-136 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-137 (let ((offsets (bytevector 21 21 21 21 21 21 21 22 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 22 22 21 21 21 21 21 21 21 22 21 21 22 21 21 21 21 21 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-137 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-138 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 17 17 17 17 17 17 17 17 17 21 21 21 21 21 21 21 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-138 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-139 (let ((offsets (bytevector 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 12 21 21 21 21 21 21 21 22 22 22 22 22 8 8 8 8 8 8 8 8 8 8 22 22 22 22 2 2 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-139 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-140 (let ((offsets (bytevector 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 14 14 22 14 22 22 14 22 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 22 14 22 14 22 22 22 22 22 22 14 22 22 22 22 14 22 14 22 14 22 14 14 14 22 14 14 22 14 22 22 14 22 14 22 14 22 14 22 14 22 14 14 22 14 22 22 14 14 14 14 22 14 14 14 14 14 14 14 22 14 14 14 14 22 14 14 14 14 22 14 22 14 14 14 14 14 14 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 14 14 14 22 14 14 14 14 14 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 6 6 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-140 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-141 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-141 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-142 (let ((offsets (bytevector 17 17 17 17 17 17 17 17 17 17 17 17 17 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13))) (named-lambda (ucd-gc-entry-142 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-143 (let ((offsets (bytevector 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-143 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-144 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 10 10 10 10 10))) (named-lambda (ucd-gc-entry-144 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-145 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-145 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-146 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-146 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-147 (let ((offsets (bytevector 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-147 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-148 (let ((offsets (bytevector 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 13 22 22 13 13 13 13 13 13 13 13 13 13 13 13 22 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 13 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-148 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-149 (let ((offsets (bytevector 92 93 94 95 96 97 14 98 99 100 101 102 103 22 104 22 105 106 107 108 109 110 111 112 113 22 114 22 115 22 22 22 14 14 14 116 117 118 22 22 22 22 22 22 22 22 22 22 14 14 14 14 119 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 120 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 121 122 22 22 22 123 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 124 14 14 125 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 126 22 22 22 22 22 22 22 22 22 22 22 127 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 128 129 130 131 132 133 134 135 13 13 136 22 22 22 22 22 137 22 22 22 22 22 22 22 138 139 22 22 22 22 140 22 141 142 143 144 13 13 145 146 147 148 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-149 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 (fix:lsh sv -8)))) sv table)))) - (define-deferred ucd-gc-entry-150 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-150 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-151 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14))) (named-lambda (ucd-gc-entry-151 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-152 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14))) (named-lambda (ucd-gc-entry-152 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-153 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-153 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-154 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-154 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-155 (let ((offsets (bytevector 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 150 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 151 152 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 14 153 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 14 14 154 22 22 22 22 22))) (named-lambda (ucd-gc-entry-155 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 (fix:lsh sv -8)))) sv table)))) - (define-deferred ucd-gc-entry-156 (let ((offsets (bytevector 22 16 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-156 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-157 (let ((offsets (bytevector 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-157 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-158 (let ((offsets (bytevector 156 157 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22))) (named-lambda (ucd-gc-entry-158 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 (fix:lsh sv -8)))) sv table)))) - (define-deferred ucd-gc-entry-159 (let ((offsets (bytevector 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 22 22))) (named-lambda (ucd-gc-entry-159 sv table) ((vector-ref table (bytevector-u8-ref offsets (fix:and 255 sv))) sv table)))) - (define-deferred ucd-gc-entry-160 (let ((offsets (bytevector 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 28 159))) (named-lambda (ucd-gc-entry-160 sv table) diff --git a/src/runtime/ucd-table-lower.scm b/src/runtime/ucd-table-lower.scm index f91fe46d6..68d745bff 100644 --- a/src/runtime/ucd-table-lower.scm +++ b/src/runtime/ucd-table-lower.scm @@ -30,8 +30,8 @@ USA. (declare (usual-integrations)) -(define (ucd-lower-value sv) - (scalar-value-in-char-set? sv char-set:lower-case)) +(define (ucd-lower-value char) + (char-in-set? char char-set:lower-case)) (define-deferred char-set:lower-case (char-set* diff --git a/src/runtime/ucd-table-nv.scm b/src/runtime/ucd-table-nv.scm new file mode 100644 index 000000000..38933bfc1 --- /dev/null +++ b/src/runtime/ucd-table-nv.scm @@ -0,0 +1,67 @@ +#| -*-Scheme-*- + +Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, + 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, + 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, + 2017 Massachusetts Institute of Technology + +This file is part of MIT/GNU Scheme. + +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. + +MIT/GNU Scheme is distributed in the hope that it will be useful, but +WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +General Public License for more details. + +You should have received a copy of the GNU General Public License +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. + +|# + +;;;; UCD property: nv + +;;; Generated from Unicode 9.0.0 + +(declare (usual-integrations)) + +(define (ucd-nv-value char) + (hash-table-ref char-map:numeric-value char (lambda () #f))) + +(define-deferred char-map:numeric-value + (let ((table (make-non-pointer-hash-table))) + (for-each + (lambda (p) + (hash-table-set! table (integer->char (car p)) (cdr p))) + '((48 . 0) (49 . 1) (50 . 2) (51 . 3) (52 . 4) (53 . 5) (54 . 6) (55 . 7) (56 . 8) (57 . 9) (178 . 2) (179 . 3) (185 . 1) (188 . 1/4) (189 . 1/2) (190 . 3/4) (1632 . 0) (1633 . 1) (1634 . 2) (1635 . 3) (1636 . 4) (1637 . 5) (1638 . 6) (1639 . 7) (1640 . 8) (1641 . 9) (1776 . 0) (1777 . 1) (1778 . 2) (1779 . 3) (1780 . 4) (1781 . 5) (1782 . 6) (1783 . 7) (1784 . 8) (1785 . 9) (1984 . 0) (1985 . 1) (1986 . 2) (1987 . 3) (1988 . 4) (1989 . 5) (1990 . 6) (1991 . 7) (1992 . 8) (1993 . 9) (2406 . 0) (2407 . 1) (2408 . 2) (2409 . 3) (2410 . 4) (2411 . 5) (2412 . 6) (2413 . 7) (2414 . 8) (2415 . 9) (2534 . 0) (2535 . 1) (2536 . 2) (2537 . 3) (2538 . 4) + (2539 . 5) (2540 . 6) (2541 . 7) (2542 . 8) (2543 . 9) (2548 . 1/16) (2549 . 1/8) (2550 . 3/16) (2551 . 1/4) (2552 . 3/4) (2553 . 16) (2662 . 0) (2663 . 1) (2664 . 2) (2665 . 3) (2666 . 4) (2667 . 5) (2668 . 6) (2669 . 7) (2670 . 8) (2671 . 9) (2790 . 0) (2791 . 1) (2792 . 2) (2793 . 3) (2794 . 4) (2795 . 5) (2796 . 6) (2797 . 7) (2798 . 8) (2799 . 9) (2918 . 0) (2919 . 1) (2920 . 2) (2921 . 3) (2922 . 4) (2923 . 5) (2924 . 6) (2925 . 7) (2926 . 8) (2927 . 9) (2930 . 1/4) (2931 . 1/2) (2932 . 3/4) (2933 . 1/16) (2934 . 1/8) (2935 . 3/16) (3046 . 0) (3047 . 1) (3048 . 2) (3049 . 3) (3050 . 4) (3051 . 5) (3052 . 6) (3053 . 7) (3054 . 8) (3055 . 9) (3056 . 10) (3057 . 100) (3058 . 1000) (3174 . 0) + (3175 . 1) (3176 . 2) (3177 . 3) (3178 . 4) (3179 . 5) (3180 . 6) (3181 . 7) (3182 . 8) (3183 . 9) (3192 . 0) (3193 . 1) (3194 . 2) (3195 . 3) (3196 . 1) (3197 . 2) (3198 . 3) (3302 . 0) (3303 . 1) (3304 . 2) (3305 . 3) (3306 . 4) (3307 . 5) (3308 . 6) (3309 . 7) (3310 . 8) (3311 . 9) (3416 . 1/160) (3417 . 1/40) (3418 . 3/80) (3419 . 1/20) (3420 . 1/10) (3421 . 3/20) (3422 . 1/5) (3430 . 0) (3431 . 1) (3432 . 2) (3433 . 3) (3434 . 4) (3435 . 5) (3436 . 6) (3437 . 7) (3438 . 8) (3439 . 9) (3440 . 10) (3441 . 100) (3442 . 1000) (3443 . 1/4) (3444 . 1/2) (3445 . 3/4) (3446 . 1/16) (3447 . 1/8) (3448 . 3/16) (3558 . 0) (3559 . 1) (3560 . 2) (3561 . 3) (3562 . 4) (3563 . 5) (3564 . 6) (3565 . 7) (3566 . 8) + (3567 . 9) (3664 . 0) (3665 . 1) (3666 . 2) (3667 . 3) (3668 . 4) (3669 . 5) (3670 . 6) (3671 . 7) (3672 . 8) (3673 . 9) (3792 . 0) (3793 . 1) (3794 . 2) (3795 . 3) (3796 . 4) (3797 . 5) (3798 . 6) (3799 . 7) (3800 . 8) (3801 . 9) (3872 . 0) (3873 . 1) (3874 . 2) (3875 . 3) (3876 . 4) (3877 . 5) (3878 . 6) (3879 . 7) (3880 . 8) (3881 . 9) (3882 . 1/2) (3883 . 3/2) (3884 . 5/2) (3885 . 7/2) (3886 . 9/2) (3887 . 11/2) (3888 . 13/2) (3889 . 15/2) (3890 . 17/2) (3891 . -1/2) (4160 . 0) (4161 . 1) (4162 . 2) (4163 . 3) (4164 . 4) (4165 . 5) (4166 . 6) (4167 . 7) (4168 . 8) (4169 . 9) (4240 . 0) (4241 . 1) (4242 . 2) (4243 . 3) (4244 . 4) (4245 . 5) (4246 . 6) (4247 . 7) (4248 . 8) (4249 . 9) + (4969 . 1) (4970 . 2) (4971 . 3) (4972 . 4) (4973 . 5) (4974 . 6) (4975 . 7) (4976 . 8) (4977 . 9) (4978 . 10) (4979 . 20) (4980 . 30) (4981 . 40) (4982 . 50) (4983 . 60) (4984 . 70) (4985 . 80) (4986 . 90) (4987 . 100) (4988 . 10000) (5870 . 17) (5871 . 18) (5872 . 19) (6112 . 0) (6113 . 1) (6114 . 2) (6115 . 3) (6116 . 4) (6117 . 5) (6118 . 6) (6119 . 7) (6120 . 8) (6121 . 9) (6128 . 0) (6129 . 1) (6130 . 2) (6131 . 3) (6132 . 4) (6133 . 5) (6134 . 6) (6135 . 7) (6136 . 8) (6137 . 9) (6160 . 0) (6161 . 1) (6162 . 2) (6163 . 3) (6164 . 4) (6165 . 5) (6166 . 6) (6167 . 7) (6168 . 8) (6169 . 9) (6470 . 0) (6471 . 1) (6472 . 2) (6473 . 3) (6474 . 4) (6475 . 5) (6476 . 6) (6477 . 7) + (6478 . 8) (6479 . 9) (6608 . 0) (6609 . 1) (6610 . 2) (6611 . 3) (6612 . 4) (6613 . 5) (6614 . 6) (6615 . 7) (6616 . 8) (6617 . 9) (6618 . 1) (6784 . 0) (6785 . 1) (6786 . 2) (6787 . 3) (6788 . 4) (6789 . 5) (6790 . 6) (6791 . 7) (6792 . 8) (6793 . 9) (6800 . 0) (6801 . 1) (6802 . 2) (6803 . 3) (6804 . 4) (6805 . 5) (6806 . 6) (6807 . 7) (6808 . 8) (6809 . 9) (6992 . 0) (6993 . 1) (6994 . 2) (6995 . 3) (6996 . 4) (6997 . 5) (6998 . 6) (6999 . 7) (7000 . 8) (7001 . 9) (7088 . 0) (7089 . 1) (7090 . 2) (7091 . 3) (7092 . 4) (7093 . 5) (7094 . 6) (7095 . 7) (7096 . 8) (7097 . 9) (7232 . 0) (7233 . 1) (7234 . 2) (7235 . 3) (7236 . 4) (7237 . 5) (7238 . 6) (7239 . 7) + (7240 . 8) (7241 . 9) (7248 . 0) (7249 . 1) (7250 . 2) (7251 . 3) (7252 . 4) (7253 . 5) (7254 . 6) (7255 . 7) (7256 . 8) (7257 . 9) (8304 . 0) (8308 . 4) (8309 . 5) (8310 . 6) (8311 . 7) (8312 . 8) (8313 . 9) (8320 . 0) (8321 . 1) (8322 . 2) (8323 . 3) (8324 . 4) (8325 . 5) (8326 . 6) (8327 . 7) (8328 . 8) (8329 . 9) (8528 . 1/7) (8529 . 1/9) (8530 . 1/10) (8531 . 1/3) (8532 . 2/3) (8533 . 1/5) (8534 . 2/5) (8535 . 3/5) (8536 . 4/5) (8537 . 1/6) (8538 . 5/6) (8539 . 1/8) (8540 . 3/8) (8541 . 5/8) (8542 . 7/8) (8543 . 1) (8544 . 1) (8545 . 2) (8546 . 3) (8547 . 4) (8548 . 5) (8549 . 6) (8550 . 7) (8551 . 8) (8552 . 9) (8553 . 10) (8554 . 11) (8555 . 12) (8556 . 50) (8557 . 100) (8558 . 500) (8559 . 1000) + (8560 . 1) (8561 . 2) (8562 . 3) (8563 . 4) (8564 . 5) (8565 . 6) (8566 . 7) (8567 . 8) (8568 . 9) (8569 . 10) (8570 . 11) (8571 . 12) (8572 . 50) (8573 . 100) (8574 . 500) (8575 . 1000) (8576 . 1000) (8577 . 5000) (8578 . 10000) (8581 . 6) (8582 . 50) (8583 . 50000) (8584 . 100000) (8585 . 0) (9312 . 1) (9313 . 2) (9314 . 3) (9315 . 4) (9316 . 5) (9317 . 6) (9318 . 7) (9319 . 8) (9320 . 9) (9321 . 10) (9322 . 11) (9323 . 12) (9324 . 13) (9325 . 14) (9326 . 15) (9327 . 16) (9328 . 17) (9329 . 18) (9330 . 19) (9331 . 20) (9332 . 1) (9333 . 2) (9334 . 3) (9335 . 4) (9336 . 5) (9337 . 6) (9338 . 7) (9339 . 8) (9340 . 9) (9341 . 10) (9342 . 11) (9343 . 12) (9344 . 13) (9345 . 14) (9346 . 15) (9347 . 16) (9348 . 17) + (9349 . 18) (9350 . 19) (9351 . 20) (9352 . 1) (9353 . 2) (9354 . 3) (9355 . 4) (9356 . 5) (9357 . 6) (9358 . 7) (9359 . 8) (9360 . 9) (9361 . 10) (9362 . 11) (9363 . 12) (9364 . 13) (9365 . 14) (9366 . 15) (9367 . 16) (9368 . 17) (9369 . 18) (9370 . 19) (9371 . 20) (9450 . 0) (9451 . 11) (9452 . 12) (9453 . 13) (9454 . 14) (9455 . 15) (9456 . 16) (9457 . 17) (9458 . 18) (9459 . 19) (9460 . 20) (9461 . 1) (9462 . 2) (9463 . 3) (9464 . 4) (9465 . 5) (9466 . 6) (9467 . 7) (9468 . 8) (9469 . 9) (9470 . 10) (9471 . 0) (10102 . 1) (10103 . 2) (10104 . 3) (10105 . 4) (10106 . 5) (10107 . 6) (10108 . 7) (10109 . 8) (10110 . 9) (10111 . 10) (10112 . 1) (10113 . 2) (10114 . 3) (10115 . 4) (10116 . 5) (10117 . 6) + (10118 . 7) (10119 . 8) (10120 . 9) (10121 . 10) (10122 . 1) (10123 . 2) (10124 . 3) (10125 . 4) (10126 . 5) (10127 . 6) (10128 . 7) (10129 . 8) (10130 . 9) (10131 . 10) (11517 . 1/2) (12295 . 0) (12321 . 1) (12322 . 2) (12323 . 3) (12324 . 4) (12325 . 5) (12326 . 6) (12327 . 7) (12328 . 8) (12329 . 9) (12344 . 10) (12345 . 20) (12346 . 30) (12690 . 1) (12691 . 2) (12692 . 3) (12693 . 4) (12832 . 1) (12833 . 2) (12834 . 3) (12835 . 4) (12836 . 5) (12837 . 6) (12838 . 7) (12839 . 8) (12840 . 9) (12841 . 10) (12872 . 10) (12873 . 20) (12874 . 30) (12875 . 40) (12876 . 50) (12877 . 60) (12878 . 70) (12879 . 80) (12881 . 21) (12882 . 22) (12883 . 23) (12884 . 24) (12885 . 25) (12886 . 26) (12887 . 27) (12888 . 28) (12889 . 29) (12890 . 30) (12891 . 31) + (12892 . 32) (12893 . 33) (12894 . 34) (12895 . 35) (12928 . 1) (12929 . 2) (12930 . 3) (12931 . 4) (12932 . 5) (12933 . 6) (12934 . 7) (12935 . 8) (12936 . 9) (12937 . 10) (12977 . 36) (12978 . 37) (12979 . 38) (12980 . 39) (12981 . 40) (12982 . 41) (12983 . 42) (12984 . 43) (12985 . 44) (12986 . 45) (12987 . 46) (12988 . 47) (12989 . 48) (12990 . 49) (12991 . 50) (13317 . 5) (13443 . 2) (14378 . 5) (15181 . 7) (19968 . 1) (19971 . 7) (19975 . 10000) (19977 . 3) (20061 . 9) (20108 . 2) (20116 . 5) (20118 . 4) (20159 . 100000000) (20160 . 10) (20191 . 1000) (20200 . 3) (20237 . 5) (20336 . 100) (20740 . 100000000) (20806 . 1000000000000) (20841 . 2) (20843 . 8) (20845 . 6) (21313 . 10) (21315 . 1000) (21316 . 20) (21317 . 30) (21324 . 40) (21441 . 3) (21442 . 3) (21443 . 3) (21444 . 3) + (22235 . 4) (22769 . 1) (22777 . 1) (24186 . 1) (24318 . 9) (24319 . 20) (24332 . 1) (24333 . 2) (24334 . 3) (24336 . 2) (25342 . 10) (25420 . 8) (26578 . 7) (28422 . 7) (29590 . 9) (30334 . 100) (32902 . 4) (33836 . 10000) (36014 . 2) (36019 . 2) (36144 . 2) (38433 . 1000) (38470 . 6) (38476 . 100) (38520 . 6) (38646 . 0) (42528 . 0) (42529 . 1) (42530 . 2) (42531 . 3) (42532 . 4) (42533 . 5) (42534 . 6) (42535 . 7) (42536 . 8) (42537 . 9) (42726 . 1) (42727 . 2) (42728 . 3) (42729 . 4) (42730 . 5) (42731 . 6) (42732 . 7) (42733 . 8) (42734 . 9) (42735 . 0) (43056 . 1/4) (43057 . 1/2) (43058 . 3/4) (43059 . 1/16) (43060 . 1/8) (43061 . 3/16) (43216 . 0) (43217 . 1) (43218 . 2) (43219 . 3) (43220 . 4) (43221 . 5) (43222 . 6) (43223 . 7) (43224 . 8) + (43225 . 9) (43264 . 0) (43265 . 1) (43266 . 2) (43267 . 3) (43268 . 4) (43269 . 5) (43270 . 6) (43271 . 7) (43272 . 8) (43273 . 9) (43472 . 0) (43473 . 1) (43474 . 2) (43475 . 3) (43476 . 4) (43477 . 5) (43478 . 6) (43479 . 7) (43480 . 8) (43481 . 9) (43504 . 0) (43505 . 1) (43506 . 2) (43507 . 3) (43508 . 4) (43509 . 5) (43510 . 6) (43511 . 7) (43512 . 8) (43513 . 9) (43600 . 0) (43601 . 1) (43602 . 2) (43603 . 3) (43604 . 4) (43605 . 5) (43606 . 6) (43607 . 7) (43608 . 8) (43609 . 9) (44016 . 0) (44017 . 1) (44018 . 2) (44019 . 3) (44020 . 4) (44021 . 5) (44022 . 6) (44023 . 7) (44024 . 8) (44025 . 9) (63851 . 3) (63859 . 10) (63864 . 2) (63922 . 0) (63953 . 6) (63955 . 6) (63997 . 10) (65296 . 0) (65297 . 1) (65298 . 2) + (65299 . 3) (65300 . 4) (65301 . 5) (65302 . 6) (65303 . 7) (65304 . 8) (65305 . 9) (65799 . 1) (65800 . 2) (65801 . 3) (65802 . 4) (65803 . 5) (65804 . 6) (65805 . 7) (65806 . 8) (65807 . 9) (65808 . 10) (65809 . 20) (65810 . 30) (65811 . 40) (65812 . 50) (65813 . 60) (65814 . 70) (65815 . 80) (65816 . 90) (65817 . 100) (65818 . 200) (65819 . 300) (65820 . 400) (65821 . 500) (65822 . 600) (65823 . 700) (65824 . 800) (65825 . 900) (65826 . 1000) (65827 . 2000) (65828 . 3000) (65829 . 4000) (65830 . 5000) (65831 . 6000) (65832 . 7000) (65833 . 8000) (65834 . 9000) (65835 . 10000) (65836 . 20000) (65837 . 30000) (65838 . 40000) (65839 . 50000) (65840 . 60000) (65841 . 70000) (65842 . 80000) (65843 . 90000) (65856 . 1/4) (65857 . 1/2) (65858 . 1) (65859 . 5) (65860 . 50) (65861 . 500) (65862 . 5000) (65863 . 50000) (65864 . 5) + (65865 . 10) (65866 . 50) (65867 . 100) (65868 . 500) (65869 . 1000) (65870 . 5000) (65871 . 5) (65872 . 10) (65873 . 50) (65874 . 100) (65875 . 500) (65876 . 1000) (65877 . 10000) (65878 . 50000) (65879 . 10) (65880 . 1) (65881 . 1) (65882 . 1) (65883 . 2) (65884 . 2) (65885 . 2) (65886 . 2) (65887 . 5) (65888 . 10) (65889 . 10) (65890 . 10) (65891 . 10) (65892 . 10) (65893 . 30) (65894 . 50) (65895 . 50) (65896 . 50) (65897 . 50) (65898 . 100) (65899 . 300) (65900 . 500) (65901 . 500) (65902 . 500) (65903 . 500) (65904 . 500) (65905 . 1000) (65906 . 5000) (65907 . 5) (65908 . 50) (65909 . 1/2) (65910 . 1/2) (65911 . 2/3) (65912 . 3/4) (65930 . 0) (65931 . 1/4) (66273 . 1) (66274 . 2) (66275 . 3) (66276 . 4) (66277 . 5) (66278 . 6) (66279 . 7) (66280 . 8) (66281 . 9) (66282 . 10) (66283 . 20) + (66284 . 30) (66285 . 40) (66286 . 50) (66287 . 60) (66288 . 70) (66289 . 80) (66290 . 90) (66291 . 100) (66292 . 200) (66293 . 300) (66294 . 400) (66295 . 500) (66296 . 600) (66297 . 700) (66298 . 800) (66299 . 900) (66336 . 1) (66337 . 5) (66338 . 10) (66339 . 50) (66369 . 90) (66378 . 900) (66513 . 1) (66514 . 2) (66515 . 10) (66516 . 20) (66517 . 100) (66720 . 0) (66721 . 1) (66722 . 2) (66723 . 3) (66724 . 4) (66725 . 5) (66726 . 6) (66727 . 7) (66728 . 8) (66729 . 9) (67672 . 1) (67673 . 2) (67674 . 3) (67675 . 10) (67676 . 20) (67677 . 100) (67678 . 1000) (67679 . 10000) (67705 . 1) (67706 . 2) (67707 . 3) (67708 . 4) (67709 . 5) (67710 . 10) (67711 . 20) (67751 . 1) (67752 . 2) (67753 . 3) (67754 . 4) (67755 . 4) (67756 . 5) (67757 . 10) (67758 . 20) (67759 . 100) + (67835 . 1) (67836 . 5) (67837 . 10) (67838 . 20) (67839 . 100) (67862 . 1) (67863 . 10) (67864 . 20) (67865 . 100) (67866 . 2) (67867 . 3) (68028 . 11/12) (68029 . 1/2) (68032 . 1) (68033 . 2) (68034 . 3) (68035 . 4) (68036 . 5) (68037 . 6) (68038 . 7) (68039 . 8) (68040 . 9) (68041 . 10) (68042 . 20) (68043 . 30) (68044 . 40) (68045 . 50) (68046 . 60) (68047 . 70) (68050 . 100) (68051 . 200) (68052 . 300) (68053 . 400) (68054 . 500) (68055 . 600) (68056 . 700) (68057 . 800) (68058 . 900) (68059 . 1000) (68060 . 2000) (68061 . 3000) (68062 . 4000) (68063 . 5000) (68064 . 6000) (68065 . 7000) (68066 . 8000) (68067 . 9000) (68068 . 10000) (68069 . 20000) (68070 . 30000) (68071 . 40000) (68072 . 50000) (68073 . 60000) (68074 . 70000) (68075 . 80000) (68076 . 90000) (68077 . 100000) (68078 . 200000) (68079 . 300000) (68080 . 400000) (68081 . 500000) + (68082 . 600000) (68083 . 700000) (68084 . 800000) (68085 . 900000) (68086 . 1/12) (68087 . 1/6) (68088 . 1/4) (68089 . 1/3) (68090 . 5/12) (68091 . 1/2) (68092 . 7/12) (68093 . 2/3) (68094 . 3/4) (68095 . 5/6) (68160 . 1) (68161 . 2) (68162 . 3) (68163 . 4) (68164 . 10) (68165 . 20) (68166 . 100) (68167 . 1000) (68221 . 1) (68222 . 50) (68253 . 1) (68254 . 10) (68255 . 20) (68331 . 1) (68332 . 5) (68333 . 10) (68334 . 20) (68335 . 100) (68440 . 1) (68441 . 2) (68442 . 3) (68443 . 4) (68444 . 10) (68445 . 20) (68446 . 100) (68447 . 1000) (68472 . 1) (68473 . 2) (68474 . 3) (68475 . 4) (68476 . 10) (68477 . 20) (68478 . 100) (68479 . 1000) (68521 . 1) (68522 . 2) (68523 . 3) (68524 . 4) (68525 . 10) (68526 . 20) (68527 . 100) (68858 . 1) (68859 . 5) (68860 . 10) (68861 . 50) (68862 . 100) (68863 . 1000) + (69216 . 1) (69217 . 2) (69218 . 3) (69219 . 4) (69220 . 5) (69221 . 6) (69222 . 7) (69223 . 8) (69224 . 9) (69225 . 10) (69226 . 20) (69227 . 30) (69228 . 40) (69229 . 50) (69230 . 60) (69231 . 70) (69232 . 80) (69233 . 90) (69234 . 100) (69235 . 200) (69236 . 300) (69237 . 400) (69238 . 500) (69239 . 600) (69240 . 700) (69241 . 800) (69242 . 900) (69243 . 1/2) (69244 . 1/4) (69245 . 1/3) (69246 . 2/3) (69714 . 1) (69715 . 2) (69716 . 3) (69717 . 4) (69718 . 5) (69719 . 6) (69720 . 7) (69721 . 8) (69722 . 9) (69723 . 10) (69724 . 20) (69725 . 30) (69726 . 40) (69727 . 50) (69728 . 60) (69729 . 70) (69730 . 80) (69731 . 90) (69732 . 100) (69733 . 1000) (69734 . 0) (69735 . 1) (69736 . 2) (69737 . 3) (69738 . 4) (69739 . 5) (69740 . 6) (69741 . 7) (69742 . 8) (69743 . 9) + (69872 . 0) (69873 . 1) (69874 . 2) (69875 . 3) (69876 . 4) (69877 . 5) (69878 . 6) (69879 . 7) (69880 . 8) (69881 . 9) (69942 . 0) (69943 . 1) (69944 . 2) (69945 . 3) (69946 . 4) (69947 . 5) (69948 . 6) (69949 . 7) (69950 . 8) (69951 . 9) (70096 . 0) (70097 . 1) (70098 . 2) (70099 . 3) (70100 . 4) (70101 . 5) (70102 . 6) (70103 . 7) (70104 . 8) (70105 . 9) (70113 . 1) (70114 . 2) (70115 . 3) (70116 . 4) (70117 . 5) (70118 . 6) (70119 . 7) (70120 . 8) (70121 . 9) (70122 . 10) (70123 . 20) (70124 . 30) (70125 . 40) (70126 . 50) (70127 . 60) (70128 . 70) (70129 . 80) (70130 . 90) (70131 . 100) (70132 . 1000) (70384 . 0) (70385 . 1) (70386 . 2) (70387 . 3) (70388 . 4) (70389 . 5) (70390 . 6) (70391 . 7) (70392 . 8) (70393 . 9) (70736 . 0) + (70737 . 1) (70738 . 2) (70739 . 3) (70740 . 4) (70741 . 5) (70742 . 6) (70743 . 7) (70744 . 8) (70745 . 9) (70864 . 0) (70865 . 1) (70866 . 2) (70867 . 3) (70868 . 4) (70869 . 5) (70870 . 6) (70871 . 7) (70872 . 8) (70873 . 9) (71248 . 0) (71249 . 1) (71250 . 2) (71251 . 3) (71252 . 4) (71253 . 5) (71254 . 6) (71255 . 7) (71256 . 8) (71257 . 9) (71360 . 0) (71361 . 1) (71362 . 2) (71363 . 3) (71364 . 4) (71365 . 5) (71366 . 6) (71367 . 7) (71368 . 8) (71369 . 9) (71472 . 0) (71473 . 1) (71474 . 2) (71475 . 3) (71476 . 4) (71477 . 5) (71478 . 6) (71479 . 7) (71480 . 8) (71481 . 9) (71482 . 10) (71483 . 20) (71904 . 0) (71905 . 1) (71906 . 2) (71907 . 3) (71908 . 4) (71909 . 5) (71910 . 6) (71911 . 7) (71912 . 8) (71913 . 9) + (71914 . 10) (71915 . 20) (71916 . 30) (71917 . 40) (71918 . 50) (71919 . 60) (71920 . 70) (71921 . 80) (71922 . 90) (72784 . 0) (72785 . 1) (72786 . 2) (72787 . 3) (72788 . 4) (72789 . 5) (72790 . 6) (72791 . 7) (72792 . 8) (72793 . 9) (72794 . 1) (72795 . 2) (72796 . 3) (72797 . 4) (72798 . 5) (72799 . 6) (72800 . 7) (72801 . 8) (72802 . 9) (72803 . 10) (72804 . 20) (72805 . 30) (72806 . 40) (72807 . 50) (72808 . 60) (72809 . 70) (72810 . 80) (72811 . 90) (72812 . 100) (74752 . 2) (74753 . 3) (74754 . 4) (74755 . 5) (74756 . 6) (74757 . 7) (74758 . 8) (74759 . 9) (74760 . 3) (74761 . 4) (74762 . 5) (74763 . 6) (74764 . 7) (74765 . 8) (74766 . 9) (74767 . 4) (74768 . 5) (74769 . 6) (74770 . 7) (74771 . 8) (74772 . 9) (74773 . 1) (74774 . 2) + (74775 . 3) (74776 . 4) (74777 . 5) (74778 . 6) (74779 . 7) (74780 . 8) (74781 . 9) (74782 . 1) (74783 . 2) (74784 . 3) (74785 . 4) (74786 . 5) (74787 . 2) (74788 . 3) (74789 . 3) (74790 . 4) (74791 . 5) (74792 . 6) (74793 . 7) (74794 . 8) (74795 . 9) (74796 . 1) (74797 . 2) (74798 . 3) (74799 . 3) (74800 . 4) (74801 . 5) (74802 . 216000) (74803 . 432000) (74804 . 1) (74805 . 2) (74806 . 3) (74807 . 3) (74808 . 4) (74809 . 5) (74810 . 3) (74811 . 3) (74812 . 4) (74813 . 4) (74814 . 4) (74815 . 4) (74816 . 6) (74817 . 7) (74818 . 7) (74819 . 7) (74820 . 8) (74821 . 8) (74822 . 9) (74823 . 9) (74824 . 9) (74825 . 9) (74826 . 2) (74827 . 3) (74828 . 4) (74829 . 5) (74830 . 6) (74831 . 1) (74832 . 2) (74833 . 3) (74834 . 4) (74835 . 4) + (74836 . 5) (74837 . 5) (74838 . 2) (74839 . 3) (74840 . 1) (74841 . 2) (74842 . 1/3) (74843 . 2/3) (74844 . 5/6) (74845 . 1/3) (74846 . 2/3) (74847 . 1/8) (74848 . 1/4) (74849 . 1/6) (74850 . 1/4) (74851 . 1/4) (74852 . 1/2) (74853 . 1/3) (74854 . 2/3) (74855 . 40) (74856 . 50) (74857 . 4) (74858 . 5) (74859 . 6) (74860 . 7) (74861 . 8) (74862 . 9) (92768 . 0) (92769 . 1) (92770 . 2) (92771 . 3) (92772 . 4) (92773 . 5) (92774 . 6) (92775 . 7) (92776 . 8) (92777 . 9) (93008 . 0) (93009 . 1) (93010 . 2) (93011 . 3) (93012 . 4) (93013 . 5) (93014 . 6) (93015 . 7) (93016 . 8) (93017 . 9) (93019 . 10) (93020 . 100) (93021 . 10000) (93022 . 1000000) (93023 . 100000000) (93024 . 10000000000) (93025 . 1000000000000) (119648 . 1) (119649 . 2) (119650 . 3) (119651 . 4) (119652 . 5) (119653 . 6) (119654 . 7) + (119655 . 8) (119656 . 9) (119657 . 10) (119658 . 20) (119659 . 30) (119660 . 40) (119661 . 50) (119662 . 60) (119663 . 70) (119664 . 80) (119665 . 90) (120782 . 0) (120783 . 1) (120784 . 2) (120785 . 3) (120786 . 4) (120787 . 5) (120788 . 6) (120789 . 7) (120790 . 8) (120791 . 9) (120792 . 0) (120793 . 1) (120794 . 2) (120795 . 3) (120796 . 4) (120797 . 5) (120798 . 6) (120799 . 7) (120800 . 8) (120801 . 9) (120802 . 0) (120803 . 1) (120804 . 2) (120805 . 3) (120806 . 4) (120807 . 5) (120808 . 6) (120809 . 7) (120810 . 8) (120811 . 9) (120812 . 0) (120813 . 1) (120814 . 2) (120815 . 3) (120816 . 4) (120817 . 5) (120818 . 6) (120819 . 7) (120820 . 8) (120821 . 9) (120822 . 0) (120823 . 1) (120824 . 2) (120825 . 3) (120826 . 4) (120827 . 5) (120828 . 6) (120829 . 7) (120830 . 8) (120831 . 9) + (125127 . 1) (125128 . 2) (125129 . 3) (125130 . 4) (125131 . 5) (125132 . 6) (125133 . 7) (125134 . 8) (125135 . 9) (125264 . 0) (125265 . 1) (125266 . 2) (125267 . 3) (125268 . 4) (125269 . 5) (125270 . 6) (125271 . 7) (125272 . 8) (125273 . 9) (127232 . 0) (127233 . 0) (127234 . 1) (127235 . 2) (127236 . 3) (127237 . 4) (127238 . 5) (127239 . 6) (127240 . 7) (127241 . 8) (127242 . 9) (127243 . 0) (127244 . 0) (131073 . 7) (131172 . 4) (131298 . 4) (131361 . 5) (133418 . 1) (133507 . 30) (133516 . 40) (133532 . 40) (133866 . 6) (133885 . 3) (133913 . 3) (140176 . 2) (141720 . 3) (146203 . 3) (156269 . 4) (194704 . 9))) + table)) diff --git a/src/runtime/ucd-table-upper.scm b/src/runtime/ucd-table-upper.scm index 6bcc5714e..17afbeb46 100644 --- a/src/runtime/ucd-table-upper.scm +++ b/src/runtime/ucd-table-upper.scm @@ -30,8 +30,8 @@ USA. (declare (usual-integrations)) -(define (ucd-upper-value sv) - (scalar-value-in-char-set? sv char-set:upper-case)) +(define (ucd-upper-value char) + (char-in-set? char char-set:upper-case)) (define-deferred char-set:upper-case (char-set* diff --git a/src/runtime/ucd-table-wspace.scm b/src/runtime/ucd-table-wspace.scm index 09dc95fcf..3a586a513 100644 --- a/src/runtime/ucd-table-wspace.scm +++ b/src/runtime/ucd-table-wspace.scm @@ -30,8 +30,8 @@ USA. (declare (usual-integrations)) -(define (ucd-wspace-value sv) - (scalar-value-in-char-set? sv char-set:whitespace)) +(define (ucd-wspace-value char) + (char-in-set? char char-set:whitespace)) (define-deferred char-set:whitespace (char-set* '((9 . 14) 32 133 160 5760 (8192 . 8203) (8232 . 8234) 8239 8287 12288)))