115 |
t) |
t) |
116 |
|
|
117 |
(deftest read-byte.error.4 |
(deftest read-byte.error.4 |
118 |
(progn |
(signals-error-always |
119 |
(let ((s (open "foo.txt" |
(progn |
|
:direction :output |
|
|
:if-exists :supersede |
|
|
:element-type '(unsigned-byte 8)))) |
|
|
(close s)) |
|
|
(signals-error |
|
120 |
(let ((s (open "foo.txt" |
(let ((s (open "foo.txt" |
121 |
:direction :input |
:direction :output |
122 |
:element-type '(unsigned-byte 8)))) |
:if-exists :supersede |
123 |
|
:element-type '(unsigned-byte 8)))) |
124 |
|
(close s)) |
125 |
|
(let ((s (open "foo.txt" |
126 |
|
:direction :input |
127 |
|
:element-type '(unsigned-byte 8)))) |
128 |
(unwind-protect |
(unwind-protect |
129 |
(read-byte s t) |
(read-byte s t) |
130 |
(close s))) |
(close s)))) |
131 |
end-of-file)) |
end-of-file) |
132 |
t) |
t t) |
133 |
|
|
134 |
(deftest read-byte.error.5 |
(deftest read-byte.error.5 |
135 |
(loop for x in *mini-universe* |
(loop for x in *mini-universe* |