Changeset 8354


Ignore:
Timestamp:
01/13/05 12:32:22 (17 years ago)
Author:
piso
Message:

SimpleArray?(int rank, LispObject initialContents)

File:
1 edited

Legend:

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

    r7968 r8354  
    33 *
    44 * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: SimpleArray.java,v 1.12 2004-10-13 00:22:19 piso Exp $
     5 * $Id: SimpleArray.java,v 1.13 2005-01-13 12:32:22 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7272        for (int i = 0; i < rank; i++) {
    7373            dimv[i] = rest.length();
    74             if (rest == NIL)
     74            if (rest == NIL || rest.length() == 0)
    7575                break;
    7676            rest = rest.elt(0);
Note: See TracChangeset for help on using the changeset viewer.