Resolve unicode1-name name clash.

edicl · Mar 27, 2018 · 911767a · 911767a
1 parent 4997705
commit 911767a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/build/char-info.lisp b/build/char-info.lisp
@@ -59,7 +59,7 @@ property symbol.")
 - a property symbol")
    (unicode1-name :initarg :unicode1-name
                   :initform nil
-                  :reader unicode1-name
+                  :reader unicode1-name*
                   :type (or string null)
                   :documentation "The Unicode 1.0 name of the
 character - a string.")

diff --git a/build/read.lisp b/build/read.lisp
@@ -286,7 +286,7 @@ source code files for CL-UNICODE."
   (clrhash *code-points-to-unicode1-names*)
   (loop for char-info across *char-database*
         for name = (and char-info (name char-info))
-        for unicode1-name = (and char-info (unicode1-name char-info))
+        for unicode1-name = (and char-info (unicode1-name* char-info))
         for code-point = (and char-info (code-point char-info))
         when name
         do (setf (gethash code-point *code-points-to-names*) name