Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Thu Jan 23 04:11:59 2003 UTC | revision 1.2 by pfdietz, Tue Jan 28 03:05:19 2003 UTC | |
---|---|---|
# | Line 62 | Line 62 |
62 | for upgraded-type = (upgraded-array-element-type type nil) | for upgraded-type = (upgraded-array-element-type type nil) |
63 | always (empirical-subtypep type upgraded-type)) | always (empirical-subtypep type upgraded-type)) |
64 | t) | t) |
65 | ||
66 | (deftest upgraded-array-element-type.6 | |
67 | (macrolet | |
68 | ((%foo (&environment env) | |
69 | (empirical-subtypep | |
70 | 'bit | |
71 | (upgraded-array-element-type 'bit env)))) | |
72 | (%foo)) | |
73 | t) | |
74 | ||
75 | ||
76 | ;;; Error tests | ;;; Error tests |
77 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |