Changeset 4957


Ignore:
Timestamp:
12/04/03 03:18:49 (18 years ago)
Author:
piso
Message:

prin1(): bind *PRINT-ESCAPE* to T.

File:
1 edited

Legend:

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

    r4655 r4957  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: CharacterOutputStream.java,v 1.9 2003-11-05 19:35:55 piso Exp $
     5 * $Id: CharacterOutputStream.java,v 1.10 2003-12-04 03:18:49 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    145145    public void prin1(LispObject obj) throws ConditionThrowable
    146146    {
     147        LispThread thread = LispThread.currentThread();
     148        Environment oldDynEnv = thread.getDynamicEnvironment();
     149        thread.bindSpecial(_PRINT_ESCAPE_, T);
    147150        String s = String.valueOf(obj);
     151        thread.setDynamicEnvironment(oldDynEnv);
    148152        try {
    149153            writer.write(s);
Note: See TracChangeset for help on using the changeset viewer.