[Openmcl-devel] Unicode - Yippy!

[Gary Byers]

On Wed, 25 Oct 2006, Ben Hyde wrote:

> Congratulations!  This is very exciting.

It'll be even more exciting (I hope ...) when it works a little better.

>
> Hopefully this problem is because I've never quite grok'd locale.

No, that should have worked.  Something in the guts of PEEK-CHAR
was neglecting to pass a required argument to a function that was
compiled with (SPEED 3) (SAFETY 0), and wackiness ensued.

Will be fixed in CVS in a little while.


>
> 535$ echo '(progn (print :gee) (quit))' | scripts/openmcl -K utf-8 -Q
> -n -b
> > Error: value #<Compiled-function CCL::%IOBLOCK-READ-U8-ENCODED-
> CHAR (Non-Global)  #x80E0F3E> is not of the expected type BASE-CHAR.
> > While executing: CCL::%ADD-CHAR-TO-TOKEN, in process listener(1).
> > Type :POP to abort, :R for a list of available restarts.
> > Type :? for other options.
> Unhandled exception 4 at 0x1000, context->regs at #xf0134ab8
> 536$
>
>
> Everything else below is just to illustrate how my rig is set up,
> DarwinPPC.
>
> 528$ cvs -q up -A
> M scripts/openmcl
> 529$ cvs -q diff
> Index: scripts/openmcl
> ===================================================================
> RCS file: /usr/local/tmpcvs/openmcl-dev/ccl/scripts/openmcl,v
> retrieving revision 1.1.1.1
> diff -r1.1.1.1 openmcl
> 9c9
> <   CCL_DEFAULT_DIRECTORY=/usr/local/src/ccl
> ---
> >   CCL_DEFAULT_DIRECTORY=/Users/bhyde/w/openmcl/ccl
>
>
> 530$ scripts/openmcl -n -e '(progn (print :gee) (quit))'
>
> :GEE
> 531$ scripts/openmcl -K utf-8 -n -e '(progn (print :gee) (quit))'
>
> :GEE
>
>
> Though it doesn't work in Terminal either.
>
> _______________________________________________
> Openmcl-devel mailing list
> Openmcl-devel at clozure.com
> http://clozure.com/mailman/listinfo/openmcl-devel
>
>