Changeset 5020


Ignore:
Timestamp:
12/08/03 04:50:30 (17 years ago)
Author:
piso
Message:

extends Module => extends Lisp

File:
1 edited

Legend:

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

    r4939 r5020  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Java.java,v 1.26 2003-12-02 14:20:38 dmcnaught Exp $
     5 * $Id: Java.java,v 1.27 2003-12-08 04:50:30 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2828import java.lang.reflect.Modifier;
    2929
    30 public final class Java extends Module
     30public final class Java extends Lisp
    3131{
    3232    // ### jclass
     
    167167                if (args.length == 2 && args[1] instanceof Fixnum) {
    168168                    argCount = Fixnum.getValue(args[1]);
    169                 } else { 
     169                } else {
    170170                    Class[] parameterTypes = new Class[args.length-1];
    171171                    for (int i = 1; i < args.length; i++) {
     
    212212                if (args.length == 3 && args[2] instanceof Fixnum) {
    213213                    argCount = Fixnum.getValue(args[2]);
    214                 } else { 
     214                } else {
    215215                    Class[] parameterTypes = new Class[args.length-2];
    216216                    for (int i = 2; i < args.length; i++) {
     
    224224                for (int i = 0; i < methods.length; i++) {
    225225                    Method method = methods[i];
    226                     if (method.getName().equals(methodName) 
     226                    if (method.getName().equals(methodName)
    227227                        && method.getParameterTypes().length == argCount)
    228228                        return new JavaObject(method);
     
    370370        }
    371371    };
    372    
     372
    373373    private static final Primitive1 JAVA_OBJECT_P = new Primitive1("java-object-p", PACKAGE_JAVA)
    374374    {
     
    381381        }
    382382    };
    383        
     383
    384384    // Supports Java primitive types too.
    385385    private static Class forClassRef(LispObject classRef) throws ClassNotFoundException, ConditionThrowable
     
    405405            // Not a primitive Java type.
    406406            return Class.forName(className);
    407         } else 
     407        } else
    408408            try {
    409409                return (Class)JavaObject.getObject(classRef);
Note: See TracChangeset for help on using the changeset viewer.