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 / defmacro.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  2.8 KB  |  97 lines
  1.  
  2. static L1();
  3. static L11();
  4. static L12();
  5. #define VC1 object  V5;
  6. static object LI2();
  7. #define VMB2 register object *base=vs_top; object  V29 ,V28 ,V27 ,V24 ,V23 ,V22 ,V21;
  8. #define VMS2  register object *sup=vs_top+5;vs_top=sup;
  9. #define VMV2 vs_reserve(5);
  10. #define VMR2(VMT2) vs_top=base ; return(VMT2);
  11. static object LI3();
  12. #define VMB3 register object *base=vs_top; object  V82 ,V81 ,V80 ,V78 ,V77 ,V76 ,V75 ,V70 ,V69 ,V68 ,V56 ,V55 ,V54 ,V50 ,V49 ,V48;
  13. #define VMS3  register object *sup=vs_top+2;vs_top=sup;
  14. #define VMV3 vs_reserve(2);
  15. #define VMR3(VMT3) vs_top=base ; return(VMT3);
  16. static object LI4();
  17. #define VMB4 register object *base=vs_top; object  V91 ,V88;
  18. #define VMS4  register object *sup=vs_top+0;vs_top=sup;
  19. #define VMV4
  20. #define VMR4(VMT4) return(VMT4);
  21. static object LI5();
  22. #define VMB5 register object *base=vs_top;
  23. #define VMS5  register object *sup=vs_top+2;vs_top=sup;
  24. #define VMV5 vs_reserve(2);
  25. #define VMR5(VMT5) vs_top=base ; return(VMT5);
  26. static object LI6();
  27. #define VMB6 register object *base=vs_top;
  28. #define VMS6  register object *sup=vs_top+2;vs_top=sup;
  29. #define VMV6 vs_reserve(2);
  30. #define VMR6(VMT6) vs_top=base ; return(VMT6);
  31. static object LI7();
  32. #define VMB7 register object *base=vs_top;
  33. #define VMS7  register object *sup=vs_top+2;vs_top=sup;
  34. #define VMV7 vs_reserve(2);
  35. #define VMR7(VMT7) vs_top=base ; return(VMT7);
  36. static object LI8();
  37. #define VMB8 register object *base=vs_top;
  38. #define VMS8  register object *sup=vs_top+1;vs_top=sup;
  39. #define VMV8 vs_reserve(1);
  40. #define VMR8(VMT8) vs_top=base ; return(VMT8);
  41. static object LI9();
  42. #define VMB9 register object *base=vs_top;
  43. #define VMS9  register object *sup=vs_top+1;vs_top=sup;
  44. #define VMV9 vs_reserve(1);
  45. #define VMR9(VMT9) vs_top=base ; return(VMT9);
  46. static object LI10();
  47. #define VMB10 register object *base=vs_top;
  48. #define VMS10  register object *sup=vs_top+2;vs_top=sup;
  49. #define VMV10 vs_reserve(2);
  50. #define VMR10(VMT10) vs_top=base ; return(VMT10);
  51. #define VC11
  52. #define VC12
  53. #define VM12 3
  54. #define VM11 5
  55. #define VM10 2
  56. #define VM9 1
  57. #define VM8 1
  58. #define VM7 2
  59. #define VM6 2
  60. #define VM5 2
  61. #define VM4 0
  62. #define VM3 2
  63. #define VM2 5
  64. #define VM1 3
  65. static char * VVi[62]={
  66. #define Cdata VV[61]
  67. (char *)(L1),
  68. (char *)(LI2),
  69. (char *)(LI3),
  70. (char *)(LI4),
  71. (char *)(LI5),
  72. (char *)(LI6),
  73. (char *)(LI7),
  74. (char *)(LI8),
  75. (char *)(LI9),
  76. (char *)(LI10),
  77. (char *)(L11),
  78. (char *)(L12)
  79. };
  80. #define VV ((object *)VVi)
  81. static  LnkT60() ;
  82. static  (*Lnk60)() = LnkT60;
  83. static object  LnkTLI59() ;
  84. static object  (*LnkLI59)() = LnkTLI59;
  85. static object  LnkTLI58() ;
  86. static object  (*LnkLI58)() = LnkTLI58;
  87. static object  LnkTLI57() ;
  88. static object  (*LnkLI57)() = LnkTLI57;
  89. static object  LnkTLI56() ;
  90. static object  (*LnkLI56)() = LnkTLI56;
  91. static object  LnkTLI55() ;
  92. static object  (*LnkLI55)() = LnkTLI55;
  93. static  LnkT54() ;
  94. static  (*Lnk54)() = LnkT54;
  95. static  LnkT53() ;
  96. static  (*Lnk53)() = LnkT53;
  97.