Hi Mario, So sorry to be responding to your mail only now! However, your mail seems to have gotten stuck in the moderation queue. On Sat, Jun 5, 2010 at 2:27 PM, Mario Lang <mlang@delysid.org> wrote:

Hi.

A simple thing, but I spotted it during reading of the code.

Thank you for your submission! It's very much appreciated. Committed as r13015 just a second ago. Thanks again. Bye, Erik.

Index: src/org/armedbear/lisp/JHandler.java =================================================================== --- src/org/armedbear/lisp/JHandler.java        (revision 12738) +++ src/org/armedbear/lisp/JHandler.java        (working copy) @@ -66,21 +66,22 @@     public static void callLisp (String s, Object o, String as[], int ai[])     {         if (table.containsKey(o)) { -            Map<String,Entry> entryTable =  (Map<String,Entry>)table.get(o); +            Map<String,Entry> entryTable = (Map<String,Entry>)table.get(o);             if (entryTable.containsKey(s)) { -                Function f = ((Entry)entryTable.get(s)).getHandler(); -                LispObject data = ((Entry)entryTable.get(s)).getData(); -                Fixnum count = ((Entry)entryTable.get(s)).getCount(); -                Fixnum[] lispAi = new Fixnum[ai.length]; +                final Entry entry = entryTable.get(s); +                final Function f = entry.getHandler(); +                final LispObject data = entry.getData(); +                final Fixnum count = entry.getCount(); +                final Fixnum[] lispAi = new Fixnum[ai.length];                 for (int i = 0; i < ai.length; i++) {                     lispAi[i] = Fixnum.getInstance(ai[i]);                 } -                LispObject lispAiVector = new SimpleVector(lispAi); -                SimpleString[] lispAs = new SimpleString[as.length]; +                final LispObject lispAiVector = new SimpleVector(lispAi); +                final SimpleString[] lispAs = new SimpleString[as.length];                 for (int i = 0; i < as.length; i++) {                     lispAs[i] = new SimpleString(as[i]);                 } -                LispObject lispAsVector = new SimpleVector(lispAs); +                final LispObject lispAsVector = new SimpleVector(lispAs);                 LispObject[] args = new LispObject[] //FIXME: count -> seq_num                 { data, new JavaObject(o), lispAiVector, lispAsVector, internKeyword(s), count };                 f.execute(args);

-- CYa,  ⡍⠁⠗⠊⠕

_______________________________________________ armedbear-devel mailing list armedbear-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel