Changeset 8494


Ignore:
Timestamp:
02/06/05 18:48:04 (17 years ago)
Author:
piso
Message:

READ-STRING: ignore the character argument and stop when we see an unescaped #\".

File:
1 edited

Legend:

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

    r8482 r8494  
    33 *
    44 * Copyright (C) 2004-2005 Peter Graves
    5  * $Id: LispReader.java,v 1.34 2005-02-06 01:37:14 piso Exp $
     5 * $Id: LispReader.java,v 1.35 2005-02-06 18:48:04 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4747                                "stream character")
    4848    {
    49         public LispObject execute(Stream stream, char terminator)
     49        public LispObject execute(Stream stream, char ignored)
    5050            throws ConditionThrowable
    5151        {
     
    8888                }
    8989                char c = (char) n;
    90                 if (c == terminator)
     90                if (c == '"')
    9191                    break;
    9292                // Default.
Note: See TracChangeset for help on using the changeset viewer.