Changeset 8472


Ignore:
Timestamp:
02/05/05 18:39:23 (16 years ago)
Author:
piso
Message:

readArray(), readRadix(): honor *READ-SUPPRESS*.

File:
1 edited

Legend:

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

    r8353 r8472  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: Stream.java,v 1.103 2005-01-13 12:31:34 piso Exp $
     5 * $Id: Stream.java,v 1.104 2005-02-05 18:39:23 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    489489    {
    490490        LispObject obj = read(true, NIL, true);
     491        if (_READ_SUPPRESS_.symbolValue() != NIL)
     492            return NIL;
    491493        switch (rank) {
    492494            case -1:
     
    930932    {
    931933        StringBuffer sb = new StringBuffer();
     934        final LispThread thread = LispThread.currentThread();
    932935        final Readtable rt =
    933             (Readtable) _READTABLE_.symbolValue(LispThread.currentThread());
     936            (Readtable) _READTABLE_.symbolValue(thread);
    934937        boolean escaped = (_readToken(sb, rt) != null);
     938        if (_READ_SUPPRESS_.symbolValue(thread) != NIL)
     939            return NIL;
    935940        if (escaped)
    936941            return signal(new ReaderError("Illegal syntax for number."));
Note: See TracChangeset for help on using the changeset viewer.