Changeset 8294


Ignore:
Timestamp:
12/26/04 18:01:51 (17 years ago)
Author:
piso
Message:

FUNCALL

File:
1 edited

Legend:

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

    r8279 r8294  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Primitives.java,v 1.724 2004-12-21 18:05:20 piso Exp $
     5 * $Id: Primitives.java,v 1.725 2004-12-26 18:01:51 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    23052305        public LispObject execute(LispObject[] args) throws ConditionThrowable
    23062306        {
    2307             final int length = args.length - 1; // Number of arguments.
    2308             LispObject[] newArgs = new LispObject[length];
    2309             System.arraycopy(args, 1, newArgs, 0, length);
    2310             return LispThread.currentThread().execute(args[0], newArgs);
     2307            if (args.length == 5) {
     2308                return LispThread.currentThread().execute(args[0], args[1],
     2309                                                          args[2], args[3],
     2310                                                          args[4]);
     2311            } else {
     2312                final int length = args.length - 1; // Number of arguments.
     2313                LispObject[] newArgs = new LispObject[length];
     2314                System.arraycopy(args, 1, newArgs, 0, length);
     2315                return LispThread.currentThread().execute(args[0], newArgs);
     2316            }
    23112317        }
    23122318    };
Note: See TracChangeset for help on using the changeset viewer.