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 12:59:55 2003 UTC | |
---|---|---|
# | Line 105 | Line 105 |
105 | program-error) | program-error) |
106 | ||
107 | (deftest array-displacement.error.3 | (deftest array-displacement.error.3 |
108 | (loop for e in *mini-universe* | (let (why) |
109 | unless (or (typep e 'array) | (loop for e in *mini-universe* |
110 | (eq 'type-error | unless (or (typep e 'array) |
111 | (classify-error** `(array-displacement ',e)))) | (eq 'type-error |
112 | collect e) | (setq why (classify-error** |
113 | `(array-displacement ',e))))) | |
114 | collect (list e why))) | |
115 | nil) | nil) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |