Changeset 5062


Ignore:
Timestamp:
12/10/03 21:36:12 (18 years ago)
Author:
asimon
Message:

ARGLIST: Function -> Functional

File:
1 edited

Legend:

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

    r5046 r5062  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: arglist.java,v 1.3 2003-12-10 08:04:17 asimon Exp $
     5 * $Id: arglist.java,v 1.4 2003-12-10 21:36:12 asimon Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2525{
    2626
    27     private static final Primitive1 ARGLIST =
     27    static final Primitive1 ARGLIST =
    2828        new Primitive1("arglist", PACKAGE_EXT, true)
    2929    {
     
    3131        {
    3232            LispThread thread = LispThread.currentThread();
    33             Function function = coerceToFunction(arg);
    34             if (function instanceof Autoload) {
    35                 Autoload autoload = (Autoload) function;
     33            Functional functional = coerceToFunctional(arg);
     34            if (functional instanceof Autoload) {
     35                Autoload autoload = (Autoload) functional;
    3636                autoload.load();
    37                 function = (Function)autoload.getSymbol().getSymbolFunction();
    38       }
    39             LispObject arglist = function.getArglist();
     37                functional = (Functional)autoload.getSymbol().getSymbolFunction();
     38            }
     39            LispObject arglist = functional.getArglist();
    4040            final LispObject value1, value2;
    4141            if (arglist instanceof LispString) {
     
    5353                    thread.setDynamicEnvironment(oldDynEnv);
    5454                }
    55                 function.setArglist(arglist);
     55                functional.setArglist(arglist);
    5656            }
    5757            if (arglist != null) {
     
    6262                value2 = NIL;
    6363            }
     64 
     65
    6466            return thread.setValues(value1, value2);
    6567        }
     
    7375            throws ConditionThrowable
    7476        {
    75             coerceToFunction(first).setArglist(second);
     77            coerceToFunctional(first).setArglist(second);
    7678            return second;
    7779        }
Note: See TracChangeset for help on using the changeset viewer.