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

[Edi Weitz]

Gary,

Thanks for the patch.  I'm a bit busy with my new job these days, but
I'll eventually roll this into a new release.

Thanks again,
Edi.

On Fri, Nov 25, 2011 at 5:22 PM, Gary King <gwking at metabang.com> wrote:
> 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,
>
>
>
> _______________________________________________
> cl-ppcre-devel site list
> cl-ppcre-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/cl-ppcre-devel
>
>