Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Fri Jan 24 02:12:45 2003 UTC | revision 1.4 by pfdietz, Wed Jan 29 02:11:54 2003 UTC | |
---|---|---|
# | Line 113 | Line 113 |
113 | `(array-displacement ',e))))) | `(array-displacement ',e))))) |
114 | collect (list e why))) | collect (list e why))) |
115 | nil) | nil) |
116 | ||
117 | (deftest array-displacement.error.4 | |
118 | (classify-error (array-displacement nil)) | |
119 | type-error) | |
120 | ||
121 | (deftest array-displacement.error.5 | |
122 | (classify-error (let ((x nil)) (array-displacement x))) | |
123 | type-error) | |
124 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |