Changeset 4511


Ignore:
Timestamp:
10/23/03 12:54:55 (19 years ago)
Author:
piso
Message:

%READ-FROM-STRING

File:
1 edited

Legend:

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

    r4490 r4511  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.480 2003-10-21 19:10:36 piso Exp $
     5 * $Id: Primitives.java,v 1.481 2003-10-23 12:54:55 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    36093609    // preserve-whitespace => object, position
    36103610    private static final Primitive _READ_FROM_STRING =
    3611         new Primitive("%read-from-string", PACKAGE_SYS, false) {
     3611        new Primitive("%read-from-string", PACKAGE_SYS, false)
     3612    {
    36123613        public LispObject execute(LispObject[] args) throws ConditionThrowable
    36133614        {
     
    36383639            LispObject[] values = new LispObject[2];
    36393640            values[0] = result;
    3640             values[1] = new Fixnum(startIndex + in.getOffset());
     3641            values[1] = new Fixnum(in.getOffset());
    36413642            LispThread.currentThread().setValues(values);
    36423643            return result;
Note: See TracChangeset for help on using the changeset viewer.