Changeset 639


Ignore:
Timestamp:
May 11, 2011, 1:13:47 PM (7 years ago)
Author:
Sam Hocevar
Message:

lisp: minor coding style fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • abuse/trunk/src/lisp/lisp.h

    r638 r639  
    2626#define TBS 1662                          // atan table granularity
    2727extern 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)
    3030class bFILE;
    3131extern bFILE *current_print_file;
    3232
    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
     33enum
     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
     54typedef uint8_t ltype;
    4255
    4356struct LSpace
Note: See TracChangeset for help on using the changeset viewer.