Changeset 4615


Ignore:
Timestamp:
11/02/03 19:57:53 (18 years ago)
Author:
piso
Message:

classOf()

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

Legend:

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

    r4510 r4615  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: StringInputStream.java,v 1.4 2003-10-23 12:53:59 piso Exp $
     5 * $Id: StringInputStream.java,v 1.5 2003-11-02 19:57:53 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4444        this.end = end;
    4545        offset = start;
     46    }
     47
     48    public LispClass classOf()
     49    {
     50        return BuiltInClass.STRING_STREAM;
    4651    }
    4752
  • trunk/j/src/org/armedbear/lisp/StringOutputStream.java

    r3884 r4615  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: StringOutputStream.java,v 1.4 2003-09-19 11:50:19 piso Exp $
     5 * $Id: StringOutputStream.java,v 1.5 2003-11-02 19:57:40 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3232        super();
    3333        setWriter(stringWriter = new StringWriter());
     34    }
     35
     36    public LispClass classOf()
     37    {
     38        return BuiltInClass.STRING_STREAM;
    3439    }
    3540
Note: See TracChangeset for help on using the changeset viewer.