Changeset 639
- Timestamp:
- May 11, 2011, 1:13:47 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
abuse/trunk/src/lisp/lisp.h
r638 r639 26 26 #define TBS 1662 // atan table granularity 27 27 extern uint16_t atan_table[TBS]; 28 #define NILP(x) ( x==NULL)29 #define DEFINEDP(x) ( x!=l_undefined)28 #define NILP(x) ((x)==NULL) 29 #define DEFINEDP(x) ((x)!=l_undefined) 30 30 class bFILE; 31 31 extern bFILE *current_print_file; 32 32 33 34 enum { L_BAD_CELL, // error catching type 35 L_CONS_CELL, L_NUMBER, L_SYMBOL, L_SYS_FUNCTION, L_USER_FUNCTION, 36 L_STRING, L_CHARACTER, L_C_FUNCTION, L_C_BOOL, L_L_FUNCTION, L_POINTER, 37 L_OBJECT_VAR, L_1D_ARRAY, 38 L_FIXED_POINT, L_COLLECTED_OBJECT }; 39 40 typedef uint8_t ltype; // make sure structures aren't packed differently on various compiler 41 // and sure that word, etc are word aligned 33 enum 34 { 35 L_BAD_CELL, // error catching type 36 L_CONS_CELL, 37 L_NUMBER, 38 L_SYMBOL, 39 L_SYS_FUNCTION, 40 L_USER_FUNCTION, 41 L_STRING, 42 L_CHARACTER, 43 L_C_FUNCTION, 44 L_C_BOOL, 45 L_L_FUNCTION, 46 L_POINTER, 47 L_OBJECT_VAR, 48 L_1D_ARRAY, 49 L_FIXED_POINT, 50 L_COLLECTED_OBJECT, 51 }; 52 53 // FIXME: switch this to uint8_t one day? it still breaks stuff 54 typedef uint8_t ltype; 42 55 43 56 struct LSpace
Note: See TracChangeset
for help on using the changeset viewer.