24 |
a)) |
a)) |
25 |
5 6 #(1 2 3 4 5 6)) |
5 6 #(1 2 3 4 5 6)) |
26 |
|
|
27 |
|
;;; Error tests |
28 |
|
|
29 |
|
(deftest fill-pointer.error.1 |
30 |
|
(classify-error (fill-pointer)) |
31 |
|
program-error) |
32 |
|
|
33 |
|
(deftest fill-pointer.error.2 |
34 |
|
(classify-error (fill-pointer (make-array '(10) :fill-pointer 4) |
35 |
|
nil)) |
36 |
|
program-error) |
37 |
|
|
38 |
|
(deftest fill-pointer.error.3 |
39 |
|
(classify-error (fill-pointer (make-array '(10) :fill-pointer nil))) |
40 |
|
type-error) |
41 |
|
|
42 |
|
(deftest fill-pointer.error.4 |
43 |
|
(classify-error (fill-pointer #0aNIL)) |
44 |
|
type-error) |
45 |
|
|
46 |
|
(deftest fill-pointer.error.5 |
47 |
|
(classify-error (fill-pointer #2a((a b c)(d e f)))) |
48 |
|
type-error) |
49 |
|
|
50 |
|
(deftest fill-pointer.error.6 |
51 |
|
(let (why) |
52 |
|
(loop for e in *mini-universe* |
53 |
|
when (and (or (not (typep e 'vector)) |
54 |
|
(not (array-has-fill-pointer-p e))) |
55 |
|
(not (eql (setq why (classify-error** `(fill-pointer ',e))) |
56 |
|
'type-error))) |
57 |
|
collect (list e why))) |
58 |
|
nil) |