Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Fri Jan 24 13:55:10 2003 UTC | revision 1.4 by pfdietz, Sat Jan 25 00:44:06 2003 UTC | |
---|---|---|
# | Line 93 | Line 93 |
93 | ||
94 | (deftest vector.type.23 | (deftest vector.type.23 |
95 | (notnot-mv (typep #(a b c) '(vector t *))) | (notnot-mv (typep #(a b c) '(vector t *))) |
96 | nil) | t) |
97 | ||
98 | (deftest vector.type.23a | (deftest vector.type.23a |
99 | (notnot-mv (typep "abcde" '(vector * 5))) | (notnot-mv (typep "abcde" '(vector * 5))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |