/* -[Sat May 7 20:46:54 1983 by jkf]- * sigtab.h $Locker: $ * table of lispvals needed by C * * $Header: sigtab.h 1.4 83/06/09 01:15:47 sklower Exp $ * * (c) copyright 1982, Regents of the University of California */ /* * lispvals in use by the program should be in this table. * Otherwise they may get garbage-collected. */ #define SIGNIF 139 extern lispval lispsys[SIGNIF]; #define tatom (lispsys[1]) #define lambda (lispsys[2]) #define nlambda (lispsys[3]) #define perda (lispsys[4]) #define lpara (lispsys[5]) #define rpara (lispsys[6]) #define lbkta (lispsys[7]) #define rbkta (lispsys[8]) #define Eofa (lispsys[9]) #define snqta (lispsys[10]) #define exclpa (lispsys[11]) #define quota (lispsys[12]) #define xatom (lispsys[13]) #define cara (lispsys[14]) #define cdra (lispsys[15]) #define gcafter (lispsys[16]) #define noptop (lispsys[17]) #define gcthresh (lispsys[18]) #define int_name (lispsys[19]) #define str_name (lispsys[20]) #define atom_name (lispsys[21]) #define doub_name (lispsys[22]) #define dtpr_name (lispsys[23]) #define int_items (lispsys[24]) #define int_pages (lispsys[25]) #define str_items (lispsys[26]) #define str_pages (lispsys[27]) #define dtpr_items (lispsys[28]) #define dtpr_pages (lispsys[29]) #define doub_items (lispsys[30]) #define doub_pages (lispsys[31]) #define atom_items (lispsys[32]) #define atom_pages (lispsys[33]) #define gccall1 (lispsys[34]) #define gccall2 (lispsys[35]) #define sysa (lispsys[36]) #define plima (lispsys[37]) #define macro (lispsys[38]) #define startup (lispsys[39]) #define rcomms (lispsys[40]) #define commta (lispsys[41]) #define plimit (lispsys[44]) #define array_items (lispsys[45]) #define array_pages (lispsys[46]) #define array_name (lispsys[47]) #define sdot_items (lispsys[48]) #define sdot_pages (lispsys[49]) #define sdot_name (lispsys[50]) #define val_items (lispsys[51]) #define val_pages (lispsys[52]) #define val_name (lispsys[53]) #define splice (lispsys[54]) #define rdrsdot (lispsys[55]) #define funct_items (lispsys[56]) #define funct_pages (lispsys[57]) #define funct_name (lispsys[58]) #define nstack (lispsys[59]) #define rdrint (lispsys[63]) #define nilplist (lispsys[64]) #define badst (lispsys[65]) #define gccheck (lispsys[66]) #define gcport (lispsys[67]) #define gcdis (lispsys[68]) #define gcload (lispsys[69]) #define loading (lispsys[70]) #define noautot (lispsys[71]) #define lcode (lispsys[72]) #define ccode (lispsys[73]) #define odform (lispsys[74]) #define bcdst (lispsys[75]) #define listst (lispsys[76]) #define macrost (lispsys[77]) #define protst (lispsys[78]) #define argst (lispsys[79]) #define arrayst (lispsys[80]) #define proga (lispsys[81]) #define progma (lispsys[82]) #define bstack (lispsys[83]) #define lexpr_atom (lispsys[84]) #define lexpr (lispsys[85]) #define ibase (lispsys[86]) #define Vpiport (lispsys[87]) #define Vpoport (lispsys[88]) #define Veval (lispsys[89]) #define Vererr (lispsys[90]) #define Vertpl (lispsys[91]) #define Verall (lispsys[92]) #define Vermisc (lispsys[93]) #define Vlerall (lispsys[94]) #define stlist (lispsys[95]) #define Vreadtable (lispsys[96]) #define strtab (lispsys[97]) #define Verbrk (lispsys[98]) #define Vnogbar (lispsys[99]) #define rdrsdot2 (lispsys[100]) #define Veruwpt (lispsys[101]) #define hunkfree (lispsys[102]) #define port_name (lispsys[103]) #define reseta (lispsys[104]) #define rsetatom (lispsys[105]) #define bptr_atom (lispsys[106]) #define evalhatom (lispsys[107]) #define funhatom (lispsys[108]) #define Vptport (lispsys[109]) #define Vcntlw (lispsys[110]) #define Verrset (lispsys[111]) #define Verundef (lispsys[112]) #define Vsubrou (lispsys[113]) #define Vprinlevel (lispsys[114]) #define Vprinlength (lispsys[115]) #define Vfloatformat (lispsys[116]) #define Vldprt (lispsys[117]) #define Verdepth (lispsys[118]) #define mrtabspace (lispsys[119]) #define pnameprot (lispsys[120]) #define other_name (lispsys[121]) #define Vevalframe (lispsys[122]) #define Vpurcopylits (lispsys[123]) #define vect_name (lispsys[124]) #define vecti_name (lispsys[125]) #define vect_items (lispsys[126]) #define vecti_items (lispsys[127]) #define vect_pages (lispsys[128]) #define vecti_pages (lispsys[129]) #define Vdisplacemacros (lispsys[130]) #define other_pages (lispsys[131]) #define other_items (lispsys[132]) #define fclosure (lispsys[133]) #define Vgcprint (lispsys[134]) #define clos_marker (lispsys[135]) #define Vpbv (lispsys[136]) #define atom_buffer (lispsys[137]) #define Vlibdir (lispsys[138]) /* various status switches */ extern lispval stattab[16] ; #define Schainp (stattab[0]) #define Sautor (stattab[1]) #define Strans (stattab[2]) #define evalhsw (stattab[3])