2
;;;; Author: Paul Dietz
3
;;;; Created: Sat Feb 14 20:51:33 2004
4
;;;; Contains: Tests of STREAM-ERROR-STREAM
8
(deftest stream-error-stream.1
9
(with-input-from-string
13
(stream-error (c) (eqlt (stream-error-stream c) s))))
18
(deftest stream-error-stream.error.1
19
(signals-error (stream-error-stream) program-error)
23
(deftest stream-error-stream.error.2
25
(with-input-from-string
29
(stream-error (c) (stream-error-stream c nil))))