Changeset 10997


Ignore:
Timestamp:
02/20/06 19:16:24 (15 years ago)
Author:
piso
Message:

CHAR=

File:
1 edited

Legend:

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

    r10138 r10997  
    22 * CharacterFunctions.java
    33 *
    4  * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: CharacterFunctions.java,v 1.14 2005-10-17 18:07:54 piso Exp $
     4 * Copyright (C) 2003-2006 Peter Graves
     5 * $Id: CharacterFunctions.java,v 1.15 2006-02-20 19:16:24 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5757            final int length = array.length;
    5858            final char c0 = LispCharacter.getValue(array[0]);
    59             for (int i = 0; i < length; i++) {
     59            for (int i = 1; i < length; i++) {
    6060                if (c0 != LispCharacter.getValue(array[i]))
    6161                    return NIL;
Note: See TracChangeset for help on using the changeset viewer.