Parent Directory | Revision Log | Patch
revision 1.6 by pfdietz, Sun Jan 26 14:28:55 2003 UTC | revision 1.7 by pfdietz, Sat Feb 15 05:11:12 2003 UTC | |
---|---|---|
# | Line 323 | Line 323 |
323 | (notnot-mv (typep (vector 1 2 3) '(simple-vector *))) | (notnot-mv (typep (vector 1 2 3) '(simple-vector *))) |
324 | t) | t) |
325 | ||
326 | (deftest vector.order.1 | |
327 | (let ((i 0) a b c) | |
328 | (values | |
329 | (vector (setf a (incf i)) (setf b (incf i)) (setf c (incf i))) | |
330 | i a b c)) | |
331 | #(1 2 3) 3 1 2 3) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |