Changeset 4122


Ignore:
Timestamp:
09/29/03 12:58:33 (19 years ago)
Author:
piso
Message:

flushOutput(): support binary output streams.

File:
1 edited

Legend:

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

    r4116 r4122  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.451 2003-09-28 20:14:12 piso Exp $
     5 * $Id: Primitives.java,v 1.452 2003-09-29 12:58:33 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    33683368        throws ConditionThrowable
    33693369    {
    3370         final CharacterOutputStream out;
     3370        final LispOutputStream out;
    33713371        if (args.length == 0)
    33723372            out = checkCharacterOutputStream(_STANDARD_OUTPUT_.symbolValue());
     3373        else if (args[0] instanceof LispOutputStream)
     3374            out = (LispOutputStream) args[0];
     3375        else if (args[0] instanceof TwoWayStream)
     3376            out = ((TwoWayStream)args[0]).getOutputStream();
    33733377        else
    3374             out = outSynonymOf(args[0]);
     3378            throw new ConditionThrowable(new TypeError(args[0], "output stream"));
    33753379        out.flushOutput();
    33763380        return NIL;
Note: See TracChangeset for help on using the changeset viewer.