Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Jan 25 17:59:57 2003 UTC | revision 1.3 by pfdietz, Sun Jan 26 14:28:55 2003 UTC | |
---|---|---|
# | Line 31 | Line 31 |
31 | (notnot-mv (typep #*010101 'array)) | (notnot-mv (typep #*010101 'array)) |
32 | t) | t) |
33 | ||
34 | (deftest array.1.7 | |
35 | (typep nil 'array) | |
36 | nil) | |
37 | ||
38 | (deftest array.1.8 | |
39 | (typep 'x 'array) | |
40 | nil) | |
41 | ||
42 | (deftest array.1.9 | |
43 | (typep '(a b c) 'array) | |
44 | nil) | |
45 | ||
46 | (deftest array.1.10 | |
47 | (typep 10.0 'array) | |
48 | nil) | |
49 | ||
50 | (deftest array.1.11 | |
51 | (typep #'(lambda (x) (cons x nil)) 'array) | |
52 | nil) | |
53 | ||
54 | (deftest array.1.12 | |
55 | (typep 1 'array) | |
56 | nil) | |
57 | ||
58 | (deftest array.1.13 | |
59 | (typep (1+ most-positive-fixnum) 'array) | |
60 | nil) | |
61 | ||
62 | ||
63 | ;;; Tests of (array *) | ;;; Tests of (array *) |
64 | ||
65 | (deftest array.2.1 | (deftest array.2.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |