Changeset 5171


Ignore:
Timestamp:
12/17/03 03:40:55 (18 years ago)
Author:
piso
Message:

readSharp(): added call to thread.clearValues().

File:
1 edited

Legend:

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

    r5159 r5171  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: CharacterInputStream.java,v 1.59 2003-12-16 02:23:20 piso Exp $
     5 * $Id: CharacterInputStream.java,v 1.60 2003-12-17 03:40:55 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7575                }
    7676            }
    77             return _READ_SUPPRESS_.symbolValueNoThrow() != NIL ? NIL : result;
     77            if (_READ_SUPPRESS_.symbolValueNoThrow() != NIL)
     78                return NIL;
     79            else
     80                return result;
    7881        }
    7982        catch (IOException e) {
     
    343346                LispObject[] values = thread.getValues();
    344347                if (values != null && values.length == 0)
    345                     return null; // Function returned no values.
     348                    result = null;
     349                thread.clearValues();
    346350                return result;
    347351            }
     
    364368                case '.':
    365369                    return eval(read(true, NIL, true), new Environment(),
    366                         LispThread.currentThread());
     370                                LispThread.currentThread());
    367371                case '*':
    368372                    return readBitVector();
Note: See TracChangeset for help on using the changeset viewer.