Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Wed Jan 22 04:26:22 2003 UTC | revision 1.3 by pfdietz, Wed Jan 22 12:59:55 2003 UTC | |
---|---|---|
# | Line 50 | Line 50 |
50 | program-error) | program-error) |
51 | ||
52 | (deftest array-dimensions.error.3 | (deftest array-dimensions.error.3 |
53 | (loop for e in *mini-universe* | (let (why) |
54 | unless (or (typep e 'array) | (loop for e in *mini-universe* |
55 | (eq 'type-error | unless (or (typep e 'array) |
56 | (classify-error** `(array-dimensions ',e)))) | (eq 'type-error |
57 | collect e) | (setq why (classify-error** |
58 | `(array-dimensions ',e))))) | |
59 | collect (list e why))) | |
60 | nil) | nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |