Changeset 3774


Ignore:
Timestamp:
09/14/03 17:04:25 (19 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r3748 r3774  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: make_array.java,v 1.2 2003-09-14 11:45:45 piso Exp $
     5 * $Id: make_array.java,v 1.3 2003-09-14 17:04:25 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    100100                v.fill(initialElement);
    101101            } else if (initialContents != NIL) {
    102                 final int type = initialContents.getType();
    103                 if ((type & TYPE_LIST) != 0) {
     102                if (initialContents.listp()) {
    104103                    LispObject list = initialContents;
    105104                    for (int i = 0; i < size; i++) {
     
    107106                        list = list.cdr();
    108107                    }
    109                 } else if ((type & TYPE_VECTOR) != 0) {
     108                } else if (initialContents.vectorp()) {
    110109                    for (int i = 0; i < size; i++)
    111110                        v.set(i, initialContents.elt(i));
Note: See TracChangeset for help on using the changeset viewer.