Changeset 4510

Timestamp:

10/23/03 12:53:59 (18 years ago)

Author:

piso

Message:

Constructor: set offset = start to begin with.

File:

• trunk/j/src/org/armedbear/lisp/StringInputStream.java (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/StringInputStream.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: StringInputStream.java,v 1.3 2003-09-28 14:16:05 piso Exp $
+ * $Id: StringInputStream.java,v 1.4 2003-10-23 12:53:59 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -43 +43 @@
         this.start = start;
         this.end = end;
+        offset = start;
     }
 
@@ -72 +73 @@
     // ### make-string-input-stream
     // make-string-input-stream string &optional start end => string-stream
-    private static final Primitive MAKE_STRING_OUTPUT_STREAM =
-        new Primitive("make-string-input-stream") {
+    private static final Primitive MAKE_STRING_INPUT_STREAM =
+        new Primitive("make-string-input-stream")
+    {
         public LispObject execute(LispObject arg) throws ConditionThrowable
         {