Changeset 2284


Ignore:
Timestamp:
06/11/03 01:01:29 (19 years ago)
Author:
piso
Message:

FUNCTION: support autoload.

File:
1 edited

Legend:

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

    r2232 r2284  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.232 2003-06-10 01:12:14 piso Exp $
     5 * $Id: Primitives.java,v 1.233 2003-06-11 01:01:29 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    33373337        new SpecialOperator("function") {
    33383338        public LispObject execute(LispObject args, Environment env)
    3339             throws LispError
     3339            throws Condition
    33403340        {
    33413341            LispObject arg = args.car();
    33423342            if (arg instanceof Symbol) {
    33433343                LispObject functional = env.lookupFunctional(arg);
     3344                if (functional instanceof Autoload) {
     3345                    Autoload autoload = (Autoload) functional;
     3346                    Load._load(autoload.getFileName(), true, false);
     3347                    functional = autoload.getSymbol().getSymbolFunction();
     3348                }
    33443349                if (functional instanceof Function)
    33453350                    return functional;
Note: See TracChangeset for help on using the changeset viewer.