Changeset 4511
- Timestamp:
- 10/23/03 12:54:55 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Primitives.java
r4490 r4511 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Primitives.java,v 1.48 0 2003-10-21 19:10:36piso Exp $5 * $Id: Primitives.java,v 1.481 2003-10-23 12:54:55 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 3609 3609 // preserve-whitespace => object, position 3610 3610 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 { 3612 3613 public LispObject execute(LispObject[] args) throws ConditionThrowable 3613 3614 { … … 3638 3639 LispObject[] values = new LispObject[2]; 3639 3640 values[0] = result; 3640 values[1] = new Fixnum( startIndex +in.getOffset());3641 values[1] = new Fixnum(in.getOffset()); 3641 3642 LispThread.currentThread().setValues(values); 3642 3643 return result;
Note: See TracChangeset
for help on using the changeset viewer.