Changeset 9082


Ignore:
Timestamp:
05/06/05 23:39:33 (16 years ago)
Author:
piso
Message:

MAKE-BROADCAST-STREAM: type checking.

File:
1 edited

Legend:

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

    r8233 r9082  
    22 * BroadcastStream.java
    33 *
    4  * Copyright (C) 2004 Peter Graves
    5  * $Id: BroadcastStream.java,v 1.11 2004-12-07 19:27:37 piso Exp $
     4 * Copyright (C) 2004-2005 Peter Graves
     5 * $Id: BroadcastStream.java,v 1.12 2005-05-06 23:39:33 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    205205                        streams[i] = (Stream) args[i];
    206206                        continue;
    207                     }
    208                 }
    209                 signal(new TypeError(String.valueOf(args[i]) +
    210                                      " is not an output stream."));
     207                    } else
     208                        return signal(new TypeError(args[i], list2(Symbol.SATISFIES,
     209                                                                   Symbol.OUTPUT_STREAM_P)));
     210                } else
     211                    return signal(new TypeError(args[i], Symbol.STREAM));
    211212            }
    212213            // All is well.
Note: See TracChangeset for help on using the changeset viewer.