318 |
#define XTYPE(a) ((enum Lisp_Type) (((EMACS_UINT) (a)) >> VALBITS)) |
#define XTYPE(a) ((enum Lisp_Type) (((EMACS_UINT) (a)) >> VALBITS)) |
319 |
#endif |
#endif |
320 |
|
|
|
#ifndef XSETTYPE |
|
|
#define XSETTYPE(a, b) ((a) = XUINT (a) | ((EMACS_INT)(b) << VALBITS)) |
|
|
#endif |
|
|
|
|
321 |
/* For integers known to be positive, XFASTINT provides fast retrieval |
/* For integers known to be positive, XFASTINT provides fast retrieval |
322 |
and XSETFASTINT provides fast storage. This takes advantage of the |
and XSETFASTINT provides fast storage. This takes advantage of the |
323 |
fact that Lisp_Int is 0. |
fact that Lisp_Int is 0. |