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 / mislib.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  1.2 KB  |  42 lines
  1.  
  2. static L1();
  3. static L4();
  4. static object LI5();
  5. #define VC1
  6. static object LI2();
  7. #define VMB2 register object *base=vs_top; object  V8 ,V6 ,V4;
  8. #define VMS2  register object *sup=vs_top+2;vs_top=sup;
  9. #define VMV2 vs_reserve(2);
  10. #define VMR2(VMT2) vs_top=base ; return(VMT2);
  11. static object LI3();
  12. #define VMB3 register object *base=vs_top; object  V14 ,V13;
  13. #define VMS3  register object *sup=vs_top+6;vs_top=sup;
  14. #define VMV3 vs_reserve(6);
  15. #define VMR3(VMT3) vs_top=base ; return(VMT3);
  16. #define VC4 GEN  V31= 0,V31alloc; object  V29 ,V28 ,V26 ,V25;
  17. static object LI5();
  18. #define VMB5 register object *base=vs_top; object  V58 ,V57 ,V56 ,V55 ,V54; object Vcs[7];
  19. #define VMS5  register object *sup=vs_top+5;vs_top=sup;
  20. #define VMV5 vs_reserve(5);
  21. #define VMR5(VMT5) vs_top=base ; return(VMT5);
  22. #define VM5 5
  23. #define VM4 11
  24. #define VM3 6
  25. #define VM2 2
  26. #define VM1 4
  27. static char * VVi[17]={
  28. #define Cdata VV[16]
  29. (char *)(L1),
  30. (char *)(LI2),
  31. (char *)(LI3),
  32. (char *)(L4),
  33. (char *)(LI5)
  34. };
  35. #define VV ((object *)VVi)
  36. static  LnkT15() ;
  37. static  (*Lnk15)() = LnkT15;
  38. static object  LnkTLI14() ;
  39. static object  (*LnkLI14)() = LnkTLI14;
  40. static object  LnkTLI13() ;
  41. static object  (*LnkLI13)() = LnkTLI13;
  42.