mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-30 12:21:02 -08:00
Define CHAR_BIT as number of bits in a character.
This commit is contained in:
parent
fabc59520f
commit
eadd74cbba
4 changed files with 16 additions and 0 deletions
|
|
@ -16,6 +16,10 @@
|
|||
|
||||
#include "ecls.h"
|
||||
|
||||
#ifndef CHAR_BIT
|
||||
#define CHAR_BIT (sizeof(char)*8)
|
||||
#endif
|
||||
|
||||
static void displace (cl_object from, cl_object to, cl_object offset);
|
||||
static void check_displaced (cl_object dlist, cl_object orig, cl_index newdim);
|
||||
extern enum aelttype get_aelttype (cl_object x);
|
||||
|
|
|
|||
|
|
@ -17,6 +17,10 @@
|
|||
#include "ecls.h"
|
||||
#include "ecls-inl.h"
|
||||
|
||||
#ifndef CHAR_BIT
|
||||
#define CHAR_BIT (sizeof(char)*8)
|
||||
#endif
|
||||
|
||||
cl_object @'&optional';
|
||||
cl_object @'&rest';
|
||||
cl_object @'&key';
|
||||
|
|
|
|||
|
|
@ -19,6 +19,10 @@
|
|||
#include "ecls-inl.h"
|
||||
#include <ctype.h>
|
||||
|
||||
#ifndef CHAR_BIT
|
||||
#define CHAR_BIT (sizeof(char)*8)
|
||||
#endif
|
||||
|
||||
/******************************* EXPORTS ******************************/
|
||||
|
||||
cl_object standard_readtable;
|
||||
|
|
|
|||
|
|
@ -17,6 +17,10 @@
|
|||
#include "ecls.h"
|
||||
#include "ecls-inl.h"
|
||||
|
||||
#ifndef CHAR_BIT
|
||||
#define CHAR_BIT (sizeof(char)*8)
|
||||
#endif
|
||||
|
||||
#undef endp
|
||||
|
||||
#define endp(obje) (endp_temp = (obje), CONSP(endp_temp) ? \
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue