[cl-ppcre-devel] Error loading cl-unicode

[Gary King]

Hi Noldus and Edi,

The following patch gets you most of the way there:

Common subdirectories: cl-unicode-0.1.2/build and cl-unicode-0.1.2a/build
Common subdirectories: cl-unicode-0.1.2/doc and cl-unicode-0.1.2a/doc
Only in cl-unicode-0.1.2a: hash-tables.lisp
Only in cl-unicode-0.1.2a: lists.lisp
Only in cl-unicode-0.1.2a: methods.lisp
Common subdirectories: cl-unicode-0.1.2/test and cl-unicode-0.1.2a/test
diff cl-unicode-0.1.2/util.lisp cl-unicode-0.1.2a/util.lisp
186c186
< (define-hangul-constant "NCount" (* +v-count+ +t-count+))
---
> (define-hangul-constant "NCount" (* +V-COUNT+ +T-COUNT+))
195,198c195,198
<   (let* ((s-index (- code-point +s-base+))
<          (l-value (+ +l-base+ (floor s-index +n-count+)))
<          (v-value (+ +v-base+ (floor (mod s-index +n-count+) +t-count+)))
<          (t-value (+ +t-base+ (mod s-index +t-count+))))
---
>   (let* ((s-index (- code-point +S-BASE+))
>          (l-value (+ +L-BASE+ (floor s-index +N-COUNT+)))
>          (v-value (+ +V-BASE+ (floor (mod s-index +N-COUNT+) +T-COUNT+)))
>          (t-value (+ +T-BASE+ (mod s-index +T-COUNT+))))
203c203
<             (and (/= t-value +t-base+)
---
>             (and (/= t-value +T-BASE+)


All tests pass except for 

 279:
   (string= (unicode-name 13327) "CJK UNIFIED IDEOGRAPH-340F") returned NIL

but this would work if the test used string-equal rather than string=

HTH,