Changeset 8473


Ignore:
Timestamp:
02/05/05 18:41:50 (16 years ago)
Author:
piso
Message:

readList(): honor *READ-SUPPRESS*.

File:
1 edited

Legend:

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

    r8472 r8473  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: Stream.java,v 1.104 2005-02-05 18:39:23 piso Exp $
     5 * $Id: Stream.java,v 1.105 2005-02-05 18:41:50 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    355355                char nextChar = (char) n;
    356356                if (isTokenDelimiter(nextChar)) {
    357                     if (last == null)
    358                         return signal(new ReaderError("Nothing appears before . in list."));
     357                    if (last == null) {
     358                        if (_READ_SUPPRESS_.symbolValue() != NIL)
     359                            return NIL;
     360                        else
     361                            return signal(new ReaderError("Nothing appears before . in list."));
     362                    }
    359363                    LispObject obj = read(true, NIL, true);
    360364                    last.setCdr(obj);
Note: See TracChangeset for help on using the changeset viewer.