Changeset 11002


Ignore:
Timestamp:
03/06/06 20:30:52 (15 years ago)
Author:
piso
Message:

readDispatchChar(): honor *READ-SUPPRESS*.

File:
1 edited

Legend:

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

    r10971 r11002  
    33 *
    44 * Copyright (C) 2003-2006 Peter Graves
    5  * $Id: Stream.java,v 1.148 2006-01-20 15:23:46 piso Exp $
     5 * $Id: Stream.java,v 1.149 2006-03-06 20:30:52 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    636636        return result;
    637637      }
     638    if (Symbol.READ_SUPPRESS.symbolValue(thread) != NIL)
     639      return null;
    638640    return signal(new ReaderError("No dispatch function defined for #\\" + c,
    639641                                  this));
Note: See TracChangeset for help on using the changeset viewer.