Changeset 10358


Ignore:
Timestamp:
11/04/05 20:49:29 (16 years ago)
Author:
piso
Message:

SYS::%CLEAR-OUTPUT: use signalTypeError().

File:
1 edited

Legend:

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

    r10337 r10358  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Primitives.java,v 1.848 2005-11-04 00:26:18 piso Exp $
     5 * $Id: Primitives.java,v 1.849 2005-11-04 20:49:29 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    38973897        public LispObject execute(LispObject arg) throws ConditionThrowable
    38983898        {
    3899             if (arg == T)
    3900                 return NIL; // *TERMINAL-IO*
    3901             if (arg == NIL)
    3902                 return NIL; // *STANDARD-OUTPUT*
    3903             if (arg instanceof Stream) {
    3904                 Stream stream = (Stream) arg;
    3905                 if (stream instanceof TwoWayStream) {
    3906                     Stream out = ((TwoWayStream)stream).getOutputStream();
    3907                     if (out.isOutputStream())
    3908                         return NIL;
    3909                 }
    3910                 if (stream.isOutputStream())
    3911                     return NIL;
    3912             }
    3913             return signal(new TypeError(arg, "output stream"));
     3899            if (arg == T) // *TERMINAL-IO*
     3900                return NIL;
     3901            if (arg == NIL) // *STANDARD-OUTPUT*
     3902                return NIL;
     3903            if (arg instanceof Stream)
     3904                return NIL;
     3905            return signalTypeError(arg, Symbol.STREAM);
    39143906        }
    39153907    };
Note: See TracChangeset for help on using the changeset viewer.