Changeset 8350


Ignore:
Timestamp:
01/13/05 11:29:16 (17 years ago)
Author:
piso
Message:

SHARP-STAR: honor *READ-SUPPRESS*.

File:
1 edited

Legend:

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

    r8343 r8350  
    22 * LispReader.java
    33 *
    4  * Copyright (C) 2004 Peter Graves
    5  * $Id: LispReader.java,v 1.30 2005-01-11 18:12:13 piso Exp $
     4 * Copyright (C) 2004-2005 Peter Graves
     5 * $Id: LispReader.java,v 1.31 2005-01-13 11:29:16 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    192192                }
    193193            }
     194            if (_READ_SUPPRESS_.symbolValue() != NIL)
     195                return NIL;
    194196            if (n >= 0) {
    195197                // n was supplied.
Note: See TracChangeset for help on using the changeset viewer.