Changeset 5144


Ignore:
Timestamp:
12/15/03 14:22:53 (17 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r5140 r5144  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: arglist.java,v 1.6 2003-12-15 09:28:37 asimon Exp $
     5 * $Id: arglist.java,v 1.7 2003-12-15 14:22:53 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3232        if (obj instanceof Symbol) {
    3333            LispObject fun = obj.getSymbolFunction();
    34       if (fun instanceof Autoload) {
     34            if (fun instanceof Autoload) {
    3535                Autoload autoload = (Autoload) fun;
    3636                autoload.load();
    3737                fun = (Functional)autoload.getSymbol().getSymbolFunction();
    38       }
     38            }
    3939            if (fun instanceof Functional) {
    4040                Functional func = (Functional) fun;
    41                 if (func.getArglist() != null) return  func;
    42                 LispObject other = get(checkSymbol(obj), Symbol.MACROEXPAND_MACRO, NIL);
    43                 if (other != null)
     41                if (func.getArglist() != null)
     42                    return func;
     43                LispObject other =
     44                    get(checkSymbol(obj), Symbol.MACROEXPAND_MACRO, NIL);
     45                if (other != null)
    4446                    return getFunctional(other);
    4547                else
    4648                    return null;
    47       }
     49            }
    4850        } else if (obj instanceof Cons && obj.car() == Symbol.LAMBDA)
    4951            return new Closure(obj.cadr(), obj.cddr(), new Environment());
    50   return null;
     52        return null;
    5153    }
    5254
    53     static final Primitive1 ARGLIST =
     55    private static final Primitive1 ARGLIST =
    5456        new Primitive1("arglist", PACKAGE_EXT, true)
    5557    {
     
    5860            LispThread thread = LispThread.currentThread();
    5961            Functional functional = getFunctional(arg);
    60       LispObject arglist = null;
    61       if (functional != null)
     62            LispObject arglist = null;
     63            if (functional != null)
    6264                arglist = functional.getArglist();
    6365            final LispObject value1, value2;
Note: See TracChangeset for help on using the changeset viewer.