home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / sloop.h < prev    next >
Encoding:
C/C++ Source or Header  |  1992-02-08  |  14.7 KB  |  502 lines
  1.  
  2. static L1();
  3. static L3();
  4. static L4();
  5. static L5();
  6. static L6();
  7. static L7();
  8. static L8();
  9. static L9();
  10. static L10();
  11. static L11();
  12. static L12();
  13. static object LI23();
  14. static object LI34();
  15. static object LI35();
  16. static object LI36();
  17. static object LI37();
  18. static object LI38();
  19. static object LI40();
  20. static object LI43();
  21. static object LI57();
  22. static L63();
  23. #define VC1 object  V13 ,V12 ,V11 ,V10 ,V9 ,V7;
  24. static object LI2();
  25. #define VMB2 register object *base=vs_top; object  V28 ,V27 ,V26 ,V25 ,V24 ,V23 ,V22 ,V21 ,V20;
  26. #define VMS2  register object *sup=vs_top+1;vs_top=sup;
  27. #define VMV2 vs_reserve(1);
  28. #define VMR2(VMT2) vs_top=base ; return(VMT2);
  29. #define VC3 object  V34 ,V33;
  30. #define VC4
  31. #define VC5
  32. #define VC6
  33. #define VC7
  34. #define VC8
  35. #define VC9
  36. #define VC10
  37. #define VC11
  38. #define VC12
  39. static object LI13();
  40. #define VMB13 register object *base=vs_top; object  V50 ,V49;
  41. #define VMS13  register object *sup=vs_top+4;vs_top=sup;
  42. #define VMV13 vs_reserve(4);
  43. #define VMR13(VMT13) vs_top=base ; return(VMT13);
  44. static object LI14();
  45. #define VMB14 register object *base=vs_top;
  46. #define VMS14  register object *sup=vs_top+4;vs_top=sup;
  47. #define VMV14 vs_reserve(4);
  48. #define VMR14(VMT14) vs_top=base ; return(VMT14);
  49. static object LI15();
  50. #define VMB15 register object *base=vs_top; object  V62;
  51. #define VMS15  register object *sup=vs_top+6;vs_top=sup;
  52. #define VMV15 vs_reserve(6);
  53. #define VMR15(VMT15) vs_top=base ; return(VMT15);
  54. static object LI16();
  55. #define VMB16
  56. #define VMS16
  57. #define VMV16
  58. #define VMR16(VMT16) return(VMT16);
  59. static object LI17();
  60. #define VMB17 register object *base=vs_top;
  61. #define VMS17  register object *sup=vs_top+1;vs_top=sup;
  62. #define VMV17 vs_reserve(1);
  63. #define VMR17(VMT17) vs_top=base ; return(VMT17);
  64. static object LI18();
  65. #define VMB18
  66. #define VMS18
  67. #define VMV18
  68. #define VMR18(VMT18) return(VMT18);
  69. static object LI19();
  70. #define VMB19 register object *base=vs_top;
  71. #define VMS19 vs_top += 1;
  72. #define VMV19 vs_reserve(1);
  73. #define VMR19(VMT19) vs_top=base ; return(VMT19);
  74. static object LI20();
  75. #define VMB20 register object *base=vs_top; object  V98 ,V97 ,V96 ,V95 ,V92 ,V89 ,V88 ,V87 ,V86 ,V85;
  76. #define VMS20  register object *sup=vs_top+23;vs_top=sup;
  77. #define VMV20 vs_reserve(23);
  78. #define VMR20(VMT20) vs_top=base ; return(VMT20);
  79. static object LI21();
  80. #define VMB21 register object *base=vs_top; object  V112 ,V111 ,V110 ,V109 ,V108 ,V107 ,V106 ,V101;
  81. #define VMS21  register object *sup=vs_top+2;vs_top=sup;
  82. #define VMV21 vs_reserve(2);
  83. #define VMR21(VMT21) vs_top=base ; return(VMT21);
  84. static object LI22();
  85. #define VMB22 object  V121 ,V120 ,V119;
  86. #define VMS22
  87. #define VMV22
  88. #define VMR22(VMT22) return(VMT22);
  89. static object LI23();
  90. #define VMB23 register object *base=vs_top; object  V132 ,V130 ,V128 ,V127; object Vcs[2];
  91. #define VMS23  register object *sup=vs_top+2;vs_top=sup;
  92. #define VMV23 vs_reserve(2);
  93. #define VMR23(VMT23) vs_top=base ; return(VMT23);
  94. static object LI24();
  95. #define VMB24 register object *base=vs_top;
  96. #define VMS24  register object *sup=vs_top+1;vs_top=sup;
  97. #define VMV24 vs_reserve(1);
  98. #define VMR24(VMT24) vs_top=base ; return(VMT24);
  99. static object LI25();
  100. #define VMB25 register object *base=vs_top; object  V150;
  101. #define VMS25  register object *sup=vs_top+3;vs_top=sup;
  102. #define VMV25 vs_reserve(3);
  103. #define VMR25(VMT25) vs_top=base ; return(VMT25);
  104. static object LI26();
  105. #define VMB26 register object *base=vs_top; object  V160 ,V159 ,V158;
  106. #define VMS26  register object *sup=vs_top+1;vs_top=sup;
  107. #define VMV26 vs_reserve(1);
  108. #define VMR26(VMT26) vs_top=base ; return(VMT26);
  109. static object LI27();
  110. #define VMB27 object  V173 ,V172 ,V171 ,V170 ,V169 ,V168 ,V167;
  111. #define VMS27
  112. #define VMV27
  113. #define VMR27(VMT27) return(VMT27);
  114. static object LI28();
  115. #define VMB28 register object *base=vs_top; object  V183 ,V182 ,V178;
  116. #define VMS28  register object *sup=vs_top+1;vs_top=sup;
  117. #define VMV28 vs_reserve(1);
  118. #define VMR28(VMT28) vs_top=base ; return(VMT28);
  119. static object LI29();
  120. #define VMB29 register object *base=vs_top; object  V209 ,V208 ,V206 ,V205 ,V204 ,V203 ,V202 ,V201 ,V200 ,V199 ,V195 ,V192 ,V191;
  121. #define VMS29  register object *sup=vs_top+4;vs_top=sup;
  122. #define VMV29 vs_reserve(4);
  123. #define VMR29(VMT29) vs_top=base ; return(VMT29);
  124. static object LI30();
  125. #define VMB30 register object *base=vs_top;
  126. #define VMS30  register object *sup=vs_top+6;vs_top=sup;
  127. #define VMV30 vs_reserve(6);
  128. #define VMR30(VMT30) vs_top=base ; return(VMT30);
  129. static object LI31();
  130. #define VMB31 register object *base=vs_top;
  131. #define VMS31  register object *sup=vs_top+2;vs_top=sup;
  132. #define VMV31 vs_reserve(2);
  133. #define VMR31(VMT31) vs_top=base ; return(VMT31);
  134. static object LI32();
  135. #define VMB32 register object *base=vs_top;
  136. #define VMS32  register object *sup=vs_top+1;vs_top=sup;
  137. #define VMV32 vs_reserve(1);
  138. #define VMR32(VMT32) vs_top=base ; return(VMT32);
  139. static object LI33();
  140. #define VMB33 register object *base=vs_top; object  V247 ,V246 ,V245 ,V244 ,V243 ,V242;
  141. #define VMS33  register object *sup=vs_top+4;vs_top=sup;
  142. #define VMV33 vs_reserve(4);
  143. #define VMR33(VMT33) vs_top=base ; return(VMT33);
  144. static object LI34();
  145. #define VMB34 register object *base=vs_top; object  V274 ,V273 ,V265 ,V260; object Vcs[7];
  146. #define VMS34  register object *sup=vs_top+3;vs_top=sup;
  147. #define VMV34 vs_reserve(3);
  148. #define VMR34(VMT34) vs_top=base ; return(VMT34);
  149. static object LI35();
  150. #define VMB35 register object *base=vs_top; object Vcs[4];
  151. #define VMS35  register object *sup=vs_top+6;vs_top=sup;
  152. #define VMV35 vs_reserve(6);
  153. #define VMR35(VMT35) vs_top=base ; return(VMT35);
  154. static object LI36();
  155. #define VMB36 register object *base=vs_top; object Vcs[2];
  156. #define VMS36 vs_top += 2;
  157. #define VMV36 vs_reserve(2);
  158. #define VMR36(VMT36) vs_top=base ; return(VMT36);
  159. static object LI37();
  160. #define VMB37 object Vcs[5];
  161. #define VMS37
  162. #define VMV37
  163. #define VMR37(VMT37) return(VMT37);
  164. static object LI38();
  165. #define VMB38 register object *base=vs_top; object  V312; object Vcs[2];
  166. #define VMS38  register object *sup=vs_top+1;vs_top=sup;
  167. #define VMV38 vs_reserve(1);
  168. #define VMR38(VMT38) vs_top=base ; return(VMT38);
  169. static object LI39();
  170. #define VMB39 register object *base=vs_top; object  V354 ,V353 ,V352 ,V351 ,V350 ,V349 ,V347 ,V340 ,V339 ,V338 ,V337 ,V336 ,V334 ,V333 ,V332 ,V331 ,V330 ,V329 ,V327 ,V326;
  171. #define VMS39  register object *sup=vs_top+6;vs_top=sup;
  172. #define VMV39 vs_reserve(6);
  173. #define VMR39(VMT39) vs_top=base ; return(VMT39);
  174. static object LI40();
  175. #define VMB40 register object *base=vs_top; object  V373; object Vcs[3];
  176. #define VMS40  register object *sup=vs_top+2;vs_top=sup;
  177. #define VMV40 vs_reserve(2);
  178. #define VMR40(VMT40) vs_top=base ; return(VMT40);
  179. static object LI41();
  180. #define VMB41 register object *base=vs_top; object  V392 ,V389;
  181. #define VMS41  register object *sup=vs_top+3;vs_top=sup;
  182. #define VMV41 vs_reserve(3);
  183. #define VMR41(VMT41) vs_top=base ; return(VMT41);
  184. static object LI42();
  185. #define VMB42 register object *base=vs_top; object  V397;
  186. #define VMS42  register object *sup=vs_top+3;vs_top=sup;
  187. #define VMV42 vs_reserve(3);
  188. #define VMR42(VMT42) vs_top=base ; return(VMT42);
  189. static object LI43();
  190. #define VMB43 register object *base=vs_top; object  V423 ,V422 ,V421 ,V420 ,V419 ,V418 ,V417 ,V416 ,V415 ,V414 ,V413 ,V412 ,V411; object Vcs[7];
  191. #define VMS43  register object *sup=vs_top+7;vs_top=sup;
  192. #define VMV43 vs_reserve(7);
  193. #define VMR43(VMT43) vs_top=base ; return(VMT43);
  194. static object LI44();
  195. #define VMB44 object  V429;
  196. #define VMS44
  197. #define VMV44
  198. #define VMR44(VMT44) return(VMT44);
  199. static object LI45();
  200. #define VMB45 object  V436 ,V435;
  201. #define VMS45
  202. #define VMV45
  203. #define VMR45(VMT45) return(VMT45);
  204. static object LI46();
  205. #define VMB46 object  V443 ,V442;
  206. #define VMS46
  207. #define VMV46
  208. #define VMR46(VMT46) return(VMT46);
  209. static object LI47();
  210. #define VMB47 object  V450 ,V449;
  211. #define VMS47
  212. #define VMV47
  213. #define VMR47(VMT47) return(VMT47);
  214. static object LI48();
  215. #define VMB48 object  V456;
  216. #define VMS48
  217. #define VMV48
  218. #define VMR48(VMT48) return(VMT48);
  219. static object LI49();
  220. #define VMB49
  221. #define VMS49
  222. #define VMV49
  223. #define VMR49(VMT49) return(VMT49);
  224. static object LI50();
  225. #define VMB50 object  V467;
  226. #define VMS50
  227. #define VMV50
  228. #define VMR50(VMT50) return(VMT50);
  229. static object LI51();
  230. #define VMB51 object  V473;
  231. #define VMS51
  232. #define VMV51
  233. #define VMR51(VMT51) return(VMT51);
  234. static object LI52();
  235. #define VMB52 register object *base=vs_top;
  236. #define VMS52  register object *sup=vs_top+16;vs_top=sup;
  237. #define VMV52 vs_reserve(16);
  238. #define VMR52(VMT52) vs_top=base ; return(VMT52);
  239. static object LI53();
  240. #define VMB53 register object *base=vs_top;
  241. #define VMS53  register object *sup=vs_top+0;vs_top=sup;
  242. #define VMV53
  243. #define VMR53(VMT53) return(VMT53);
  244. static object LI54();
  245. #define VMB54 object  V484;
  246. #define VMS54
  247. #define VMV54
  248. #define VMR54(VMT54) return(VMT54);
  249. static object LI55();
  250. #define VMB55
  251. #define VMS55
  252. #define VMV55
  253. #define VMR55(VMT55) return(VMT55);
  254. static object LI56();
  255. #define VMB56
  256. #define VMS56
  257. #define VMV56
  258. #define VMR56(VMT56) return(VMT56);
  259. static object LI57();
  260. #define VMB57 register object *base=vs_top; object  V512 ,V511 ,V501; object Vcs[3];
  261. #define VMS57  register object *sup=vs_top+1;vs_top=sup;
  262. #define VMV57 vs_reserve(1);
  263. #define VMR57(VMT57) vs_top=base ; return(VMT57);
  264. static object LI58();
  265. #define VMB58 object  V520 ,V519;
  266. #define VMS58
  267. #define VMV58
  268. #define VMR58(VMT58) return(VMT58);
  269. static object LI59();
  270. #define VMB59 register object *VOL base=vs_top; object  V596 ,V595 ,V594 ,V593 ,V590 ,V589 ,V588 ,V587 ,V555;
  271. #define VMS59  register object *VOL sup=vs_top+11;vs_top=sup;
  272. #define VMV59 vs_reserve(11);
  273. #define VMR59(VMT59) vs_top=base ; return(VMT59);
  274. static object LI60();
  275. #define VMB60 register object *base=vs_top;
  276. #define VMS60  register object *sup=vs_top+13;vs_top=sup;
  277. #define VMV60 vs_reserve(13);
  278. #define VMR60(VMT60) vs_top=base ; return(VMT60);
  279. static object LI61();
  280. #define VMB61 register object *base=vs_top; object  V623;
  281. #define VMS61  register object *sup=vs_top+1;vs_top=sup;
  282. #define VMV61 vs_reserve(1);
  283. #define VMR61(VMT61) vs_top=base ; return(VMT61);
  284. static object LI62();
  285. #define VMB62 register object *base=vs_top; object  V638 ,V637 ,V634;
  286. #define VMS62  register object *sup=vs_top+1;vs_top=sup;
  287. #define VMV62 vs_reserve(1);
  288. #define VMR62(VMT62) vs_top=base ; return(VMT62);
  289. #define VC63
  290. static object LI64();
  291. #define VMB64 object  V650 ,V649;
  292. #define VMS64
  293. #define VMV64
  294. #define VMR64(VMT64) return(VMT64);
  295. static object LI65();
  296. #define VMB65 register object *base=vs_top; object  V672 ,V671 ,V670 ,V669 ,V668 ,V667 ,V666 ,V665 ,V664 ,V663 ,V662 ,V661 ,V660 ,V659 ,V658 ,V657;
  297. #define VMS65  register object *sup=vs_top+0;vs_top=sup;
  298. #define VMV65
  299. #define VMR65(VMT65) return(VMT65);
  300. #define VM65 0
  301. #define VM64 0
  302. #define VM63 5
  303. #define VM62 1
  304. #define VM61 1
  305. #define VM60 13
  306. #define VM59 11
  307. #define VM58 0
  308. #define VM57 1
  309. #define VM56 0
  310. #define VM55 0
  311. #define VM54 0
  312. #define VM53 0
  313. #define VM52 16
  314. #define VM51 0
  315. #define VM50 0
  316. #define VM49 0
  317. #define VM48 0
  318. #define VM47 0
  319. #define VM46 0
  320. #define VM45 0
  321. #define VM44 0
  322. #define VM43 7
  323. #define VM42 3
  324. #define VM41 3
  325. #define VM40 2
  326. #define VM39 6
  327. #define VM38 1
  328. #define VM37 0
  329. #define VM36 2
  330. #define VM35 6
  331. #define VM34 3
  332. #define VM33 4
  333. #define VM32 1
  334. #define VM31 2
  335. #define VM30 6
  336. #define VM29 4
  337. #define VM28 1
  338. #define VM27 0
  339. #define VM26 1
  340. #define VM25 3
  341. #define VM24 1
  342. #define VM23 2
  343. #define VM22 0
  344. #define VM21 2
  345. #define VM20 23
  346. #define VM19 1
  347. #define VM18 0
  348. #define VM17 1
  349. #define VM16 0
  350. #define VM15 6
  351. #define VM14 4
  352. #define VM13 4
  353. #define VM12 3
  354. #define VM11 6
  355. #define VM10 6
  356. #define VM9 6
  357. #define VM8 6
  358. #define VM7 4
  359. #define VM6 3
  360. #define VM5 3
  361. #define VM4 4
  362. #define VM3 5
  363. #define VM2 1
  364. #define VM1 5
  365. static char * VVi[279]={
  366. #define Cdata VV[278]
  367. (char *)(L1),
  368. (char *)(LI2),
  369. (char *)(L3),
  370. (char *)(L4),
  371. (char *)(L5),
  372. (char *)(L6),
  373. (char *)(L7),
  374. (char *)(L8),
  375. (char *)(L9),
  376. (char *)(L10),
  377. (char *)(L11),
  378. (char *)(L12),
  379. (char *)(LI13),
  380. (char *)(LI14),
  381. (char *)(LI15),
  382. (char *)(LI16),
  383. (char *)(LI17),
  384. (char *)(LI18),
  385. (char *)(LI19),
  386. (char *)(LI20),
  387. (char *)(LI21),
  388. (char *)(LI22),
  389. (char *)(LI23),
  390. (char *)(LI24),
  391. (char *)(LI25),
  392. (char *)(LI26),
  393. (char *)(LI27),
  394. (char *)(LI28),
  395. (char *)(LI29),
  396. (char *)(LI30),
  397. (char *)(LI31),
  398. (char *)(LI32),
  399. (char *)(LI33),
  400. (char *)(LI34),
  401. (char *)(LI35),
  402. (char *)(LI36),
  403. (char *)(LI37),
  404. (char *)(LI38),
  405. (char *)(LI39),
  406. (char *)(LI40),
  407. (char *)(LI41),
  408. (char *)(LI42),
  409. (char *)(LI43),
  410. (char *)(LI44),
  411. (char *)(LI45),
  412. (char *)(LI46),
  413. (char *)(LI47),
  414. (char *)(LI48),
  415. (char *)(LI49),
  416. (char *)(LI50),
  417. (char *)(LI51),
  418. (char *)(LI52),
  419. (char *)(LI53),
  420. (char *)(LI54),
  421. (char *)(LI55),
  422. (char *)(LI56),
  423. (char *)(LI57),
  424. (char *)(LI58),
  425. (char *)(LI59),
  426. (char *)(LI60),
  427. (char *)(LI61),
  428. (char *)(LI62),
  429. (char *)(L63),
  430. (char *)(LI64),
  431. (char *)(LI65)
  432. };
  433. #define VV ((object *)VVi)
  434. static  LnkT277() ;
  435. static  (*Lnk277)() = LnkT277;
  436. static object  LnkTLI276() ;
  437. static object  (*LnkLI276)() = LnkTLI276;
  438. static object  LnkTLI275() ;
  439. static object  (*LnkLI275)() = LnkTLI275;
  440. static object  LnkTLI274() ;
  441. static object  (*LnkLI274)() = LnkTLI274;
  442. static object  LnkTLI273() ;
  443. static object  (*LnkLI273)() = LnkTLI273;
  444. static object  LnkTLI272() ;
  445. static object  (*LnkLI272)() = LnkTLI272;
  446. static  LnkT129() ;
  447. static  (*Lnk129)() = LnkT129;
  448. static object  LnkTLI271() ;
  449. static object  (*LnkLI271)() = LnkTLI271;
  450. static object  LnkTLI270() ;
  451. static object  (*LnkLI270)() = LnkTLI270;
  452. static object  LnkTLI269() ;
  453. static object  (*LnkLI269)() = LnkTLI269;
  454. static object  LnkTLI268() ;
  455. static object  (*LnkLI268)() = LnkTLI268;
  456. static object  LnkTLI267() ;
  457. static object  (*LnkLI267)() = LnkTLI267;
  458. static object  LnkTLI266() ;
  459. static object  (*LnkLI266)() = LnkTLI266;
  460. static object  LnkTLI265() ;
  461. static object  (*LnkLI265)() = LnkTLI265;
  462. static object  LnkTLI264() ;
  463. static object  (*LnkLI264)() = LnkTLI264;
  464. static object  LnkTLI263() ;
  465. static object  (*LnkLI263)() = LnkTLI263;
  466. static object  LnkTLI262() ;
  467. static object  (*LnkLI262)() = LnkTLI262;
  468. static object  LnkTLI261() ;
  469. static object  (*LnkLI261)() = LnkTLI261;
  470. static object  LnkTLI260() ;
  471. static object  (*LnkLI260)() = LnkTLI260;
  472. static object  LnkTLI259() ;
  473. static object  (*LnkLI259)() = LnkTLI259;
  474. static object  LnkTLI258() ;
  475. static object  (*LnkLI258)() = LnkTLI258;
  476. static object  LnkTLI257() ;
  477. static object  (*LnkLI257)() = LnkTLI257;
  478. static object  LnkTLI256() ;
  479. static object  (*LnkLI256)() = LnkTLI256;
  480. static object  LnkTLI255() ;
  481. static object  (*LnkLI255)() = LnkTLI255;
  482. static object  LnkTLI9() ;
  483. static object  (*LnkLI9)() = LnkTLI9;
  484. static object  LnkTLI254() ;
  485. static object  (*LnkLI254)() = LnkTLI254;
  486. static object  LnkTLI13() ;
  487. static object  (*LnkLI13)() = LnkTLI13;
  488. static object  LnkTLI253() ;
  489. static object  (*LnkLI253)() = LnkTLI253;
  490. static object  LnkTLI252() ;
  491. static object  (*LnkLI252)() = LnkTLI252;
  492. static object  LnkTLI251() ;
  493. static object  (*LnkLI251)() = LnkTLI251;
  494. static object  LnkTLI249() ;
  495. static object  (*LnkLI249)() = LnkTLI249;
  496. static object  LnkTLI248() ;
  497. static object  (*LnkLI248)() = LnkTLI248;
  498. static object  LnkTLI247() ;
  499. static object  (*LnkLI247)() = LnkTLI247;
  500. static object  LnkTLI246() ;
  501. static object  (*LnkLI246)() = LnkTLI246;
  502.