30 |
(declare (ignore os)) |
(declare (ignore os)) |
31 |
(values 'a 'b)) |
(values 'a 'b)) |
32 |
a b) |
a b) |
33 |
|
|
34 |
|
(deftest with-open-stream.6 |
35 |
|
(let ((s (make-string-output-stream))) |
36 |
|
(values |
37 |
|
(with-open-stream (os s)) |
38 |
|
(notnot (typep s 'string-stream)) |
39 |
|
(open-stream-p s))) |
40 |
|
nil t nil) |
41 |
|
|
42 |
|
(deftest with-open-stream.7 |
43 |
|
(let ((s (make-string-input-stream "123"))) |
44 |
|
(values |
45 |
|
(with-open-stream (is s) (read-char s)) |
46 |
|
(notnot (typep s 'string-stream)) |
47 |
|
(open-stream-p s))) |
48 |
|
#\1 t nil) |
49 |
|
|
50 |
|
(deftest with-open-stream.8 |
51 |
|
(let ((s (make-string-output-stream))) |
52 |
|
(values |
53 |
|
(block done |
54 |
|
(with-open-stream (os s) (return-from done nil))) |
55 |
|
(notnot (typep s 'string-stream)) |
56 |
|
(open-stream-p s))) |
57 |
|
nil t nil) |
58 |
|
|
59 |
|
(deftest with-open-stream.9 |
60 |
|
(let ((s (make-string-output-stream))) |
61 |
|
(values |
62 |
|
(catch 'done |
63 |
|
(with-open-stream (os s) (throw 'done nil))) |
64 |
|
(notnot (typep s 'string-stream)) |
65 |
|
(open-stream-p s))) |
66 |
|
nil t nil) |
67 |
|
|
68 |
|
|