Changeset 5159


Ignore:
Timestamp:
12/16/03 02:23:20 (18 years ago)
Author:
piso
Message:

readSharp()

File:
1 edited

Legend:

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

    r5112 r5159  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: CharacterInputStream.java,v 1.58 2003-12-13 00:02:47 piso Exp $
     5 * $Id: CharacterInputStream.java,v 1.59 2003-12-16 02:23:20 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    318318    {
    319319        try {
    320             int numArg = 0;
     320            int numArg = -1;
    321321            char c;
    322322            while (true) {
     
    327327                if (c < '0' || c > '9')
    328328                    break;
     329                if (numArg < 0)
     330                    numArg = 0;
    329331                numArg = numArg * 10 + c - '0';
    330332            }
     
    337339                                             this,
    338340                                             LispCharacter.getInstance(c),
    339                                              new Fixnum(numArg),
     341                                             (numArg < 0) ? NIL : new Fixnum(numArg),
    340342                                             thread);
    341343                LispObject[] values = thread.getValues();
Note: See TracChangeset for help on using the changeset viewer.