Changeset 8373


Ignore:
Timestamp:
01/19/05 15:58:22 (17 years ago)
Author:
piso
Message:

fastProcessArgs(LispObject[] args, int extra) => fastProcessArgs(LispObject[] args)

File:
1 edited

Legend:

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

    r8263 r8373  
    22 * Closure.java
    33 *
    4  * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Closure.java,v 1.89 2004-12-17 20:43:48 piso Exp $
     4 * Copyright (C) 2002-2005 Peter Graves
     5 * $Id: Closure.java,v 1.90 2005-01-19 15:58:22 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    592592    {
    593593        if (optionalParameters == null && keywordParameters == null) {
    594             return fastProcessArgs(args, extra);
     594            Debug.assertTrue(extra == 0);
     595            return fastProcessArgs(args);
    595596        }
    596597        final int argsLength = args.length;
     
    798799                    LispObject keyword = args[argsUsed];
    799800                    if (keyword == Keyword.ALLOW_OTHER_KEYS) {
    800                         // Section 3.4.1.4: "Note that if &key is present, a
    801                         // keyword argument of :allow-other-keys is always
     801                        // Section 3.4.1.4: "Note that if &KEY is present, a
     802                        // keyword argument of :ALLOW-OTHER-KEYS is always
    802803                        // permitted---regardless of whether the associated
    803804                        // value is true or false."
     
    816817
    817818    // No optional or keyword parameters.
    818     protected final LispObject[] fastProcessArgs(LispObject[] args, int extra)
     819    protected final LispObject[] fastProcessArgs(LispObject[] args)
    819820        throws ConditionThrowable
    820821    {
     
    824825            if (argsLength != arity)
    825826                signal(new WrongNumberOfArgumentsException(this));
    826             if (extra == 0)
    827                 return args;
    828         }
    829         // Not fixed arity, or extra != 0.
     827            return args;
     828        }
     829        // Not fixed arity.
    830830        if (argsLength < minArgs)
    831831            signal(new WrongNumberOfArgumentsException(this));
    832         final LispObject[] array = new LispObject[variables.length + extra];
     832        final LispObject[] array = new LispObject[variables.length];
    833833        int index = 0;
    834834        // Required parameters.
Note: See TracChangeset for help on using the changeset viewer.