1%
2% Testing the #if conditional compilation scheme
3
4off echo;
5lisp;
6print "A1: should appear"$
7
8#if t
9print "A2: should appear"$
10#endif
11
12#if nil
13print "A3: should not appear"$
14#endif
15
16#if t
17print "A4: should appear"$
18#else
19print "A5: should not appear"$
20#endif
21
22#if nil
23print "A6: should not appear"$
24#else
25print "A7: should appear"$
26#endif
27
28#if t
29print "A8: should appear"$
30#elif t
31print "A9: should not appear"$
32#else
33print "A10: should not appear"$
34#endif
35
36#if nil
37print "A11: should not appear"$
38#elif t
39print "A12: should appear"$
40#else
41print "A13: should not appear"$
42#endif
43
44#if t
45print "A14: should appear"$
46#elif nil
47print "A15: should not appear"$
48#else
49print "A16: should not appear"$
50#endif
51
52#if nil
53print "A17: should not appear"$
54#elif nil
55print "A18: should not appear"$
56#else
57print "A19: should appear"$
58#endif
59
60#if t
61#if t
62#if t
63print "A20: should appear"$
64#endif
65#endif
66#endif
67
68#if nil
69#else
70#if t
71#if t
72print "A21: should appear"$
73#endif
74#endif
75#endif
76
77#if t
78#if nil
79#else
80#if t
81print "A22: should appear"$
82#endif
83#endif
84#endif
85
86#if nil
87#else
88#if nil
89#else
90#if t
91print "A23: should appear"$
92#endif
93#endif
94#endif
95
96#if t
97#if t
98#if nil
99#else
100print "A24: should appear"$
101#endif
102#endif
103#endif
104
105#if nil
106#else
107#if t
108#if nil
109#else
110print "A25: should appear"$
111#endif
112#endif
113#endif
114
115#if t
116#if nil
117#else
118#if nil
119#else
120print "A26: should appear"$
121#endif
122#endif
123#endif
124
125#if nil
126#else
127#if nil
128#else
129#if nil
130#else
131print "A27: should appear"$
132#endif
133#endif
134#endif
135
136end;
137