Changeset 9225


Ignore:
Timestamp:
05/21/05 15:53:31 (16 years ago)
Author:
piso
Message:

GenericFunction? => StandardGenericFunction?

Location:
trunk/j/src/org/armedbear/lisp
Files:
5 edited

Legend:

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

    r9201 r9225  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Lisp.java,v 1.356 2005-05-19 14:52:57 piso Exp $
     5 * $Id: Lisp.java,v 1.357 2005-05-21 15:50:18 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    12361236        if (obj instanceof Function)
    12371237            return obj;
    1238         if (obj instanceof GenericFunction)
     1238        if (obj instanceof StandardGenericFunction)
    12391239            return obj;
    12401240        if (obj instanceof Symbol) {
  • trunk/j/src/org/armedbear/lisp/Primitives.java

    r9200 r9225  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Primitives.java,v 1.791 2005-05-19 14:51:16 piso Exp $
     5 * $Id: Primitives.java,v 1.792 2005-05-21 15:51:33 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    420420        public LispObject execute(LispObject arg) throws ConditionThrowable
    421421        {
    422             return (arg instanceof Function || arg instanceof GenericFunction) ? T : NIL;
     422            return (arg instanceof Function || arg instanceof StandardGenericFunction) ? T : NIL;
    423423        }
    424424    };
     
    23032303                value2 = T;
    23042304                value3 = ((Function)arg).getLambdaName();
    2305             } else if (arg instanceof GenericFunction) {
     2305            } else if (arg instanceof StandardGenericFunction) {
    23062306                value1 = NIL;
    23072307                value2 = T;
    2308                 value3 = ((GenericFunction)arg).getGenericFunctionName();
     2308                value3 = ((StandardGenericFunction)arg).getGenericFunctionName();
    23092309            } else
    23102310                return signal(new TypeError(arg, Symbol.FUNCTION));
     
    40694069                return ((Operator)arg).getLambdaName();
    40704070            }
    4071             if (arg instanceof GenericFunction) {
    4072                 return ((GenericFunction)arg).getGenericFunctionName();
     4071            if (arg instanceof StandardGenericFunction) {
     4072                return ((StandardGenericFunction)arg).getGenericFunctionName();
    40734073            }
    40744074            return signal(new TypeError(arg, Symbol.FUNCTION));
     
    40874087                return second;
    40884088            }
    4089             if (first instanceof GenericFunction) {
    4090                 ((GenericFunction)first).setGenericFunctionName(second);
     4089            if (first instanceof StandardGenericFunction) {
     4090                ((StandardGenericFunction)first).setGenericFunctionName(second);
    40914091                return second;
    40924092            }
     
    44024402                if (key instanceof Symbol)
    44034403                    key = key.getSymbolFunction();
    4404                 if (!(key instanceof Function || key instanceof GenericFunction))
     4404                if (!(key instanceof Function || key instanceof StandardGenericFunction))
    44054405                    signal(new UndefinedFunction(third));
    44064406            }
     
    44144414                if (test instanceof Symbol)
    44154415                    test = test.getSymbolFunction();
    4416                 if (!(test instanceof Function || test instanceof GenericFunction))
     4416                if (!(test instanceof Function || test instanceof StandardGenericFunction))
    44174417                    signal(new UndefinedFunction(fourth));
    44184418            } else if (testNot != NIL) {
    44194419                if (testNot instanceof Symbol)
    44204420                    testNot = testNot.getSymbolFunction();
    4421                 if (!(testNot instanceof Function || testNot instanceof GenericFunction))
     4421                if (!(testNot instanceof Function || testNot instanceof StandardGenericFunction))
    44224422                    signal(new UndefinedFunction(fifth));
    44234423            }
  • trunk/j/src/org/armedbear/lisp/SpecialOperators.java

    r9162 r9225  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: SpecialOperators.java,v 1.41 2005-05-13 12:45:11 piso Exp $
     5 * $Id: SpecialOperators.java,v 1.42 2005-05-21 15:52:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    457457            final LispObject arg = args.car();
    458458            if (arg instanceof Symbol) {
    459                 LispObject functional = env.lookupFunction(arg);
    460                 if (functional instanceof Autoload) {
    461                     Autoload autoload = (Autoload) functional;
     459                LispObject operator = env.lookupFunction(arg);
     460                if (operator instanceof Autoload) {
     461                    Autoload autoload = (Autoload) operator;
    462462                    autoload.load();
    463                     functional = autoload.getSymbol().getSymbolFunction();
    464                 }
    465                 if (functional instanceof Function)
    466                     return functional;
    467                 if (functional instanceof GenericFunction)
    468                     return functional;
     463                    operator = autoload.getSymbol().getSymbolFunction();
     464                }
     465                if (operator instanceof Function)
     466                    return operator;
     467                if (operator instanceof StandardGenericFunction)
     468                    return operator;
    469469                return signal(new UndefinedFunction(arg));
    470470            }
     
    506506                }
    507507                args = args.cdr();
    508 //                 Binding binding = null;
    509508                if (symbol.isSpecialVariable() || env.isDeclaredSpecial(symbol)) {
    510 //                     binding = thread.getSpecialBinding(symbol);
    511509                    SpecialBinding binding = thread.getSpecialBinding(symbol);
    512510                    if (binding != null) {
     
    556554                    }
    557555                }
    558 //                 if (binding != null) {
    559 //                     if (binding.value instanceof SymbolMacro) {
    560 //                         LispObject expansion =
    561 //                             ((SymbolMacro)binding.value).getExpansion();
    562 //                         LispObject form = list3(Symbol.SETF, expansion, args.car());
    563 //                         value = eval(form, env, thread);
    564 //                     } else {
    565 //                         value = eval(args.car(), env, thread);
    566 //                         binding.value = value;
    567 //                     }
    568 //                 } else {
    569 //                     if (symbol.getSymbolValue() instanceof SymbolMacro) {
    570 //                         LispObject expansion =
    571 //                             ((SymbolMacro)symbol.getSymbolValue()).getExpansion();
    572 //                         LispObject form = list3(Symbol.SETF, expansion, args.car());
    573 //                         value = eval(form, env, thread);
    574 //                     } else {
    575 //                         value = eval(args.car(), env, thread);
    576 //                         symbol.setSymbolValue(value);
    577 //                     }
    578 //                 }
    579556                args = args.cdr();
    580557            }
  • trunk/j/src/org/armedbear/lisp/StandardMethod.java

    r9207 r9225  
    33 *
    44 * Copyright (C) 2005 Peter Graves
    5  * $Id: StandardMethod.java,v 1.1 2005-05-20 18:24:48 piso Exp $
     5 * $Id: StandardMethod.java,v 1.2 2005-05-21 15:53:31 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    139139        LispObject genericFunction =
    140140            slots[StandardMethodClass.SLOT_INDEX_GENERIC_FUNCTION];
    141         if (genericFunction instanceof GenericFunction) {
     141        if (genericFunction instanceof StandardGenericFunction) {
    142142            LispObject name =
    143                 ((GenericFunction)genericFunction).getGenericFunctionName();
     143                ((StandardGenericFunction)genericFunction).getGenericFunctionName();
    144144            if (name != null) {
    145145                StringBuffer sb = new StringBuffer();
  • trunk/j/src/org/armedbear/lisp/StandardObjectFunctions.java

    r9212 r9225  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: StandardObjectFunctions.java,v 1.7 2005-05-20 18:32:00 piso Exp $
     5 * $Id: StandardObjectFunctions.java,v 1.8 2005-05-21 15:52:55 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4141                Symbol symbol = cls.getSymbol();
    4242                if (symbol == Symbol.STANDARD_GENERIC_FUNCTION)
    43                     return new GenericFunction(cls, length);
     43                    return new StandardGenericFunction();
    4444                if (symbol == Symbol.STANDARD_METHOD)
    4545                    return new StandardMethod();
Note: See TracChangeset for help on using the changeset viewer.