From: Christophe Rhodes <csr21@cantab.net>
Date: Thu, 18 Apr 2013 19:14:21 +0000 (+0100)
Subject: add a comment about one-basing the character tables
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0a3a8a64c33bcda722cac7544dcd188f213927d1;p=sbcl.git

add a comment about one-basing the character tables
---

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))