Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Wed Jan 22 02:44:51 2003 UTC | revision 1.2 by pfdietz, Wed Jan 22 04:26:22 2003 UTC | |
---|---|---|
# | Line 49 | Line 49 |
49 | (classify-error (array-dimensions #(a b c) nil)) | (classify-error (array-dimensions #(a b c) nil)) |
50 | program-error) | program-error) |
51 | ||
52 | (deftest array-dimension.error.3 | (deftest array-dimensions.error.3 |
53 | (loop for e in *mini-universe* | (loop for e in *mini-universe* |
54 | unless (or (typep e 'array) | unless (or (typep e 'array) |
55 | (eq 'type-error | (eq 'type-error |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |