Changeset 8651


Ignore:
Timestamp:
02/27/05 20:03:42 (16 years ago)
Author:
piso
Message:

Environment.lookupFunctional() => Environment.lookupFunction()

File:
1 edited

Legend:

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

    r8159 r8651  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: SpecialOperators.java,v 1.32 2004-11-13 15:02:01 piso Exp $
     5 * $Id: SpecialOperators.java,v 1.33 2005-02-27 20:03:42 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    348348                    closure = new Closure(parameters, body, env);
    349349                closure.setLambdaName(list2(Symbol.FLET, name));
    350                 ext.bindFunctional(name, closure);
     350                ext.addFunctionBinding(name, closure);
    351351                defs = defs.cdr();
    352352            }
     
    436436
    437437    // ### function
    438     private static final SpecialOperator FUNCTION = new SpecialOperator("function", "thing")
     438    private static final SpecialOperator FUNCTION =
     439        new SpecialOperator("function", "thing")
    439440    {
    440441        public LispObject execute(LispObject args, Environment env)
     
    443444            final LispObject arg = args.car();
    444445            if (arg instanceof Symbol) {
    445                 LispObject functional = env.lookupFunctional(arg);
     446                LispObject functional = env.lookupFunction(arg);
    446447                if (functional instanceof Autoload) {
    447448                    Autoload autoload = (Autoload) functional;
     
    459460                    return new Closure(arg.cadr(), arg.cddr(), env);
    460461                if (arg.car() == Symbol.SETF) {
    461                     LispObject f = env.lookupFunctional(arg);
     462                    LispObject f = env.lookupFunction(arg);
    462463                    if (f != null)
    463464                        return f;
Note: See TracChangeset for help on using the changeset viewer.