Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Wed Jan 22 02:44:51 2003 UTC | revision 1.2 by pfdietz, Sun Feb 16 05:39:55 2003 UTC | |
---|---|---|
# | Line 37 | Line 37 |
37 | (array-dimension a 0)))) | (array-dimension a 0)))) |
38 | 10 20) | 10 20) |
39 | ||
40 | (deftest array-dimension.order.1 | |
41 | (let ((i 0) a b) | |
42 | (values | |
43 | (array-dimension (progn (setf a (incf i)) #(a b c d)) | |
44 | (progn (setf b (incf i)) 0)) | |
45 | i a b)) | |
46 | 4 2 1 2) | |
47 | ||
48 | ;;; Error tests | ;;; Error tests |
49 | ||
50 | (deftest array-dimension.error.1 | (deftest array-dimension.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |