Changeset 4789


Ignore:
Timestamp:
11/16/03 18:24:12 (18 years ago)
Author:
piso
Message:

ARRAY-DISPLACEMENT: setValues().

File:
1 edited

Legend:

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

    r4264 r4789  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: DisplacedArray.java,v 1.15 2003-10-09 15:21:47 piso Exp $
     5 * $Id: DisplacedArray.java,v 1.16 2003-11-16 18:24:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    172172    // array-displacement array => displaced-to, displaced-index-offset
    173173    private static final Primitive1 ARRAY_DISPLACEMENT =
    174         new Primitive1("array-displacement") {
     174        new Primitive1("array-displacement")
     175    {
    175176        public LispObject execute(LispObject arg) throws ConditionThrowable
    176177        {
    177178            AbstractArray array = checkArray(arg);
    178             LispObject[] values = new LispObject[2];
     179            final LispObject value1, value2;
    179180            if (array instanceof DisplacedArray) {
    180181                DisplacedArray da = (DisplacedArray) array;
    181                 values[0] = da.array;
    182                 values[1] = new Fixnum(da.offset);
     182                value1 = da.array;
     183                value2 = new Fixnum(da.offset);
    183184            } else {
    184                 values[0] = NIL;
    185                 values[1] = Fixnum.ZERO;
     185                value1 = NIL;
     186                value2 = Fixnum.ZERO;
    186187            }
    187             LispThread.currentThread().setValues(values);
    188             return values[0];
     188            return LispThread.currentThread().setValues(value1, value2);
    189189        }
    190190    };
Note: See TracChangeset for help on using the changeset viewer.