Changeset 11194


Ignore:
Timestamp:
03/06/07 11:40:49 (15 years ago)
Author:
piso
Message:

writeToString(): correct behavior when *PRINT-READABLY* is non-NIL

File:
1 edited

Legend:

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

    r10882 r11194  
    22 * HashTable.java
    33 *
    4  * Copyright (C) 2002-2006 Peter Graves
    5  * $Id: HashTable.java,v 1.56 2006-01-08 01:15:43 piso Exp $
     4 * Copyright (C) 2002-2007 Peter Graves
     5 * $Id: HashTable.java,v 1.57 2007-03-06 11:40:49 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    1717 * You should have received a copy of the GNU General Public License
    1818 * along with this program; if not, write to the Free Software
    19  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
     19 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
    2020 */
    2121
     
    210210  public String writeToString() throws ConditionThrowable
    211211  {
     212    if (Symbol.PRINT_READABLY.symbolValue(LispThread.currentThread()) != NIL)
     213      {
     214        error(new PrintNotReadable(list2(Keyword.OBJECT, this)));
     215        return null; // Not reached.
     216      }
    212217    FastStringBuffer sb = new FastStringBuffer(getTest().writeToString());
    213     sb.append(" hash table, ");
     218    sb.append(' ');
     219    sb.append(Symbol.HASH_TABLE.writeToString());
     220    sb.append(' ');
    214221    sb.append(count);
    215222    if (count == 1)
Note: See TracChangeset for help on using the changeset viewer.