Changeset 3734


Ignore:
Timestamp:
09/13/03 23:41:37 (19 years ago)
Author:
piso
Message:

%MAKE-ARRAY

File:
1 edited

Legend:

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

    r3726 r3734  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.385 2003-09-13 17:22:29 piso Exp $
     5 * $Id: Primitives.java,v 1.386 2003-09-13 23:41:37 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    18701870                if (initialContents != NIL)
    18711871                    throw new LispError(":INITIAL-CONTENTS must not be specified with :DISPLACED-TO");
    1872                 return new DisplacedArray(array, offset);
     1872                int[] dimv = new int[rank];
     1873                for (int i = 0; i < rank; i++) {
     1874                    LispObject dim = dimensions.car();
     1875                    dimv[i] = Fixnum.getValue(dim);
     1876                    dimensions = dimensions.cdr();
     1877                }
     1878                return new DisplacedArray(dimv, array, offset);
    18731879            }
    18741880            if (rank == 1) {
Note: See TracChangeset for help on using the changeset viewer.