Changeset 4511

Timestamp:

10/23/03 12:54:55 (18 years ago)

Author:

piso

Message:

%READ-FROM-STRING

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.480 2003-10-21 19:10:36 piso Exp $
+ * $Id: Primitives.java,v 1.481 2003-10-23 12:54:55 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -3609 +3609 @@
     // preserve-whitespace => object, position
     private static final Primitive _READ_FROM_STRING =
-        new Primitive("%read-from-string", PACKAGE_SYS, false) {
+        new Primitive("%read-from-string", PACKAGE_SYS, false)
+    {
         public LispObject execute(LispObject[] args) throws ConditionThrowable
         {
@@ -3638 +3639 @@
             LispObject[] values = new LispObject[2];
             values[0] = result;
-            values[1] = new Fixnum(startIndex + in.getOffset());
+            values[1] = new Fixnum(in.getOffset());
             LispThread.currentThread().setValues(values);
             return result;