Changeset 9047


Ignore:
Timestamp:
Apr 8, 2008, 2:58:16 AM (11 years ago)
Author:
gz
Message:

report a TYPE-ERROR when make-broadcast-stream is given a non-output-stream

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-streams.lisp

    r8761 r9047  
    41944194  (dolist (s streams (make-instance 'broadcast-stream :streams streams))
    41954195    (unless (output-stream-p s)
    4196       (error "~s is not an output stream." s))))
     4196      (report-bad-arg s '(satisfies output-stream-p)))))
    41974197
    41984198
Note: See TracChangeset for help on using the changeset viewer.