44 |
t) |
t) |
45 |
|
|
46 |
(deftest adjustable-array-p.error.3 |
(deftest adjustable-array-p.error.3 |
47 |
(signals-error (adjustable-array-p 10) type-error) |
(signals-type-error x 10 (adjustable-array-p x)) |
48 |
t) |
t) |
49 |
|
|
50 |
(deftest adjustable-array-p.error.4 |
(deftest adjustable-array-p.error.4 |
51 |
(loop for e in *mini-universe* |
(loop for e in *mini-universe* |
52 |
unless (or (typep e 'array) |
unless (or (typep e 'array) |
53 |
(eval `(signals-error (adjustable-array-p ',e) |
(eval `(signals-type-error x ',e (adjustable-array-p x)))) |
|
type-error))) |
|
54 |
collect e) |
collect e) |
55 |
nil) |
nil) |
56 |
|
|