From 0a3a8a64c33bcda722cac7544dcd188f213927d1 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Thu, 18 Apr 2013 20:14:21 +0100 Subject: [PATCH] add a comment about one-basing the character tables --- tools-for-build/ucd.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/tools-for-build/ucd.lisp b/tools-for-build/ucd.lisp index ddc49b0..935460b 100644 --- a/tools-for-build/ucd.lisp +++ b/tools-for-build/ucd.lisp @@ -426,6 +426,13 @@ (loop for page across array do (loop for entry across page do (write-4-byte + ;; KLUDGE: while tests indicate that this works + ;; by accident, actually this causes lookups on + ;; characters undefined by Unicode (e.g. U+2FB00) + ;; to zoom off into unrelated bits of + ;; **CHARACTER-DATABASE** (see UCD-VALUE-[01] in + ;; src/code/target-char.lisp). It would be good + ;; to make this work deliberately. (dpb (if entry (aref *misc-mapping* (ucd-misc entry)) #x7ff) (byte 11 21) (if entry (ucd-transform entry) 0)) -- 1.7.10.4