97 |
t) |
t) |
98 |
|
|
99 |
(deftest read-char.error.2 |
(deftest read-char.error.2 |
100 |
(signals-error |
(signals-error-always |
101 |
(with-input-from-string |
(with-input-from-string |
102 |
(s "") |
(s "") |
103 |
(read-char s)) |
(read-char s)) |
104 |
end-of-file) |
end-of-file) |
105 |
t) |
t t) |
106 |
|
|
107 |
(deftest read-char.error.3 |
(deftest read-char.error.3 |
108 |
(signals-error |
(signals-error-always |
109 |
(with-input-from-string |
(with-input-from-string |
110 |
(s "") |
(s "") |
111 |
(read-char s t)) |
(read-char s t)) |
112 |
end-of-file) |
end-of-file) |
113 |
t) |
t t) |
114 |
|
|
115 |
(deftest read-char.error.4 |
(deftest read-char.error.4 |
116 |
(signals-error |
(signals-error-always |
117 |
(with-input-from-string |
(with-input-from-string |
118 |
(s "") |
(s "") |
119 |
(read-char s t t)) |
(read-char s t t)) |
120 |
end-of-file) |
end-of-file) |
121 |
t) |
t t) |