Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Tue Jan 7 03:35:40 2003 UTC | revision 1.5 by pfdietz, Thu Jan 9 13:51:00 2003 UTC | |
---|---|---|
# | Line 218 | Line 218 |
218 | #2a((x x x) (x x x))) | #2a((x x x) (x x x))) |
219 | ||
220 | (deftest make-array.16 | (deftest make-array.16 |
221 | (make-array-with-checks '(0 0)) | (equalpt (make-array-with-checks '(0 0)) |
222 | #2a()) | (read-from-string "#2a()")) |
223 | t) | |
224 | ||
225 | (deftest make-array.17 | (deftest make-array.17 |
226 | (make-array-with-checks '(2 3) :initial-contents '((a b c) (d e f))) | (make-array-with-checks '(2 3) :initial-contents '((a b c) (d e f))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |