home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / clisp / src / archive / clisp.src.lha / src / spvwtabf.d < prev    next >
Text File  |  1996-04-15  |  695b  |  30 lines
  1. # Aus der Speicherverwaltung ausgelagert:
  2. # Tabelle aller SUBRs
  3. # Bruno Haible 13.11.1994
  4.  
  5. #include "lispbibl.c"
  6.  
  7. #undef LISPFUN
  8.  
  9. #if defined(UNIX) || defined(DJUNIX) || defined(EMUNIX) || defined(RISCOS) || defined(WIN32_UNIX) || defined(WIN32_DOS)
  10.   # Ein kleines Shadowing-Problem. Grr...
  11.   #undef read
  12. #endif
  13.  
  14. # Tabelle aller SUBRs:
  15.   global struct subr_tab_ subr_tab_data
  16.     #if defined(INIT_SUBR_TAB)
  17.     = {
  18.         #if NIL_IS_CONSTANT
  19.           #define LISPFUN  LISPFUN_G
  20.         #else
  21.           #define LISPFUN  LISPFUN_F
  22.         #endif
  23.         #include "subr.c"
  24.         #undef LISPFUN
  25.       }
  26.     #endif
  27.     ;
  28.   global uintC subr_tab_data_size = sizeof(subr_tab_data)/sizeof(subr_);
  29.  
  30.