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