Changeset 5907


Ignore:
Timestamp:
02/23/04 15:55:26 (17 years ago)
Author:
piso
Message:

Work in progress.

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r5895 r5907  
    33 *
    44 * Copyright (C) 2004 Peter Graves
    5  * $Id: AbstractString.java,v 1.1 2004-02-23 14:22:21 piso Exp $
     5 * $Id: AbstractString.java,v 1.2 2004-02-23 15:55:26 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    5757    }
    5858
    59     public abstract void fill(char c);
     59    public abstract void fill(char c) throws ConditionThrowable;
    6060
    6161    public abstract char getChar(int index) throws ConditionThrowable;
  • trunk/j/src/org/armedbear/lisp/ComplexString.java

    r5904 r5907  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: ComplexString.java,v 1.1 2004-02-23 15:10:21 piso Exp $
     5 * $Id: ComplexString.java,v 1.2 2004-02-23 15:55:14 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4646    }
    4747
    48     public LispObject typep(LispObject type) throws ConditionThrowable
    49     {
    50         if (type instanceof Symbol) {
    51             if (type == Symbol.STRING)
    52                 return T;
    53             if (type == Symbol.BASE_STRING)
    54                 return T;
    55         }
    56         if (type == BuiltInClass.STRING)
    57             return T;
    58         return super.typep(type);
    59     }
    60 
    6148    public boolean equal(LispObject obj) throws ConditionThrowable
    6249    {
     
    11299    }
    113100
    114     public void fill(char c)
     101    public void fill(char c) throws ConditionThrowable
    115102    {
    116103        for (int i = length(); i-- > 0;)
    117             chars[i] = c;
     104            setChar(i, c);
    118105    }
    119106
Note: See TracChangeset for help on using the changeset viewer.