Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Wed Jan 29 02:11:54 2003 UTC | revision 1.4 by pfdietz, Sun Feb 16 05:39:55 2003 UTC | |
---|---|---|
# | Line 27 | Line 27 |
27 | (array-total-size #2a((1 2 3)(4 5 6)(7 8 9)(a b c))) | (array-total-size #2a((1 2 3)(4 5 6)(7 8 9)(a b c))) |
28 | 12) | 12) |
29 | ||
30 | (deftest array-total-size.order.1 | |
31 | (let ((i 0) a) | |
32 | (values | |
33 | (array-total-size (progn (setf a (incf i)) #(a b c d))) | |
34 | i a)) | |
35 | 4 1 1) | |
36 | ||
37 | ;;; Error tests | ;;; Error tests |
38 | ||
39 | (deftest array-total-size.error.1 | (deftest array-total-size.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |