254 |
t) |
t) |
255 |
|
|
256 |
(deftest read-sequence.error.6 |
(deftest read-sequence.error.6 |
257 |
(signals-error |
(check-type-error #'(lambda (x) (read-sequence x (make-string-input-stream "abc"))) |
258 |
(read-sequence 'a (make-string-input-stream "abc")) |
#'sequencep) |
259 |
type-error) |
nil) |
|
t) |
|
260 |
|
|
261 |
(deftest read-sequence.error.7 |
(deftest read-sequence.error.7 |
262 |
(signals-error |
(signals-error |
266 |
|
|
267 |
;;; This test appears to cause Allegro CL to crash |
;;; This test appears to cause Allegro CL to crash |
268 |
(deftest read-sequence.error.8 |
(deftest read-sequence.error.8 |
269 |
(signals-error |
(signals-type-error x -1 |
270 |
(read-sequence (make-string 3) (make-string-input-stream "abc") |
(read-sequence (make-string 3) |
271 |
:start -1) |
(make-string-input-stream "abc") |
272 |
|
:start x)) |
|
type-error) |
|
273 |
t) |
t) |
274 |
|
|
275 |
(deftest read-sequence.error.9 |
(deftest read-sequence.error.9 |
276 |
(signals-error |
(check-type-error #'(lambda (s) |
277 |
(read-sequence (make-string 3) (make-string-input-stream "abc") |
(read-sequence (make-string 3) (make-string-input-stream "abc") |
278 |
:start 'a) |
:start s)) |
279 |
|
(typef 'unsigned-byte)) |
280 |
type-error) |
nil) |
|
t) |
|
281 |
|
|
282 |
(deftest read-sequence.error.10 |
(deftest read-sequence.error.10 |
283 |
(signals-error |
(signals-type-error x -1 |
284 |
(read-sequence (make-string 3) (make-string-input-stream "abc") |
(read-sequence (make-string 3) (make-string-input-stream "abc") |
285 |
:end -1) |
:end x)) |
|
type-error) |
|
286 |
t) |
t) |
287 |
|
|
288 |
(deftest read-sequence.error.11 |
(deftest read-sequence.error.11 |
289 |
(signals-error |
(check-type-error #'(lambda (e) |
290 |
(read-sequence (make-string 3) (make-string-input-stream "abc") |
(read-sequence (make-string 3) (make-string-input-stream "abc") |
291 |
:end 'b) |
:end e)) |
292 |
type-error) |
(typef '(or unsigned-byte null))) |
293 |
t) |
nil) |
|
|
|
|
|
|
|
|
|