Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Wed Jan 22 02:44:51 2003 UTC | revision 1.2 by pfdietz, Sat Feb 8 06:23:02 2003 UTC | |
---|---|---|
# | Line 132 | Line 132 |
132 | (array-in-bounds-p #(a b c) -1000000000000000000) | (array-in-bounds-p #(a b c) -1000000000000000000) |
133 | nil) | nil) |
134 | ||
135 | ;;; Order of evaluation tests | |
136 | ||
137 | (deftest array-in-bounds-p.24 | |
138 | (let ((x 0) y z) | |
139 | (values | |
140 | (array-in-bounds-p (progn (setf y (incf x)) | |
141 | #()) | |
142 | (progn (setf z (incf x)) | |
143 | 10)) | |
144 | x y z)) | |
145 | nil 2 1 2) | |
146 | ||
147 | ;;; Error tests | ;;; Error tests |
148 | ||
149 | (deftest array-in-bounds-p.error.1 | (deftest array-in-bounds-p.error.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |