Changeset 4689


Ignore:
Timestamp:
11/10/03 09:40:19 (18 years ago)
Author:
asimon
Message:

simplify JMETHOD

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Java.java

    r4685 r4689  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Java.java,v 1.20 2003-11-09 20:53:48 piso Exp $
     5 * $Id: Java.java,v 1.21 2003-11-10 09:40:19 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    204204            try {
    205205                final Class c = Class.forName(className);
    206                 int argCount = -1;
     206                int argCount = 0;
    207207                if (args.length == 3 && args[2] instanceof Fixnum) {
    208208                    argCount = Fixnum.getValue(args[2]);
     
    217217                }
    218218                // Parameter types not explicitly specified.
    219                 if (argCount < 0)
    220                     argCount = 0;
    221219                Method[] methods = c.getMethods();
    222220                for (int i = 0; i < methods.length; i++) {
    223221                    Method method = methods[i];
    224                     if (method.getName().equals(methodName)) {
    225                         if (argCount >= 0) {
    226                             Class[] parameterTypes = method.getParameterTypes();
    227                             if (parameterTypes.length == argCount)
    228                                 return new JavaObject(method);
    229                         } else
    230                             return new JavaObject(method);
    231                     }
     222                    if (method.getName().equals(methodName)
     223                        && method.getParameterTypes().length == argCount)
     224                        return new JavaObject(method);
    232225                }
    233226                throw new ConditionThrowable(new LispError("no such method"));
Note: See TracChangeset for help on using the changeset viewer.