Quoting [EMAIL PROTECTED]:
Hi,
> > Noticed this today when compiling X from CVS and fixed it as best as
> I
> > could.
> > Hope you like it and if not let me learn how to fix it better by
> telling
> > me.
Thanks, I applyed your patch as is :-) It will go in my next commit. I
am reworking some of the internals of the interpreter to support a slightly
simplified model of Common Lisp packages (should have the same semantics,
but not all features), to allow local variables and functions.
I also simplified the gc function and fixed a very bad bug, if you call
(gc) explicitly, it will trash some objects, and soon or later coredump, but
if the gc function is called automatically there are no problems.
> > Diff attached.
> >
> > Thanks in advance.
>
> Ooops, I should have sent it as plain-text but my webmailer mime'd it.
> Here it goes.
>
> Index: format.c
> ===================================================================
> RCS file: /cvs/xc/programs/xedit/lisp/format.c,v
> retrieving revision 1.16
> diff -u -r1.16 format.c
> --- format.c 2002/02/10 02:50:06 1.16
> +++ format.c 2002/02/10 18:49:47
> @@ -285,6 +285,7 @@
> int test;
> char *ptr;
> FmtArg *argument;
> + unsigned int tmpcmd = 0;
>
> /* initialize */
> test = objects == NULL || code == NULL || num_objects == NULL;
> @@ -415,8 +416,10 @@
> if (!test)
> *code = NOERROR;
> arguments->command = *ptr++;
> - if (islower(arguments->command))
> - arguments->command = toupper(arguments->command);
> + if (islower(arguments->command)) {
> + tmpcmd = toupper(arguments->command);
> + arguments->command = tmpcmd;
> + }
> ++arguments->offset;
>
> return (ptr);
>
> --
> GMX - Die Kommunikationsplattform im Internet.
> http://www.gmx.net
>
> _______________________________________________
> Xpert mailing list
> [EMAIL PROTECTED]
> http://XFree86.Org/mailman/listinfo/xpert
Paulo
_______________________________________________
Xpert mailing list
[EMAIL PROTECTED]
http://XFree86.Org/mailman/listinfo/xpert
