1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
#ifndef __GNUC__
# define __asm__ asm
#endif
#ifndef HUGE
# define HUGE HUGE_VAL
#endif
/* Arithmetic shift right for compilers that don't sign extend:
*/
#if (-1 >> 1) < 0
# define ASR(n,s) ((n) >>= (s))
#else
# define NBITS(v) ((sizeof v) * 8)
# define HIBIT(v,n) (NBITS(v) - (n))
# define ASR(n,s) ((n) >>= (s),\
((n) & (1 << (HIBIT((n),(s)) - 1)) ?\
((n) |= ~(((unsigned)1 << HIBIT((n),(s))) - 1)) :\
(n)))
#endif
extern Object False2;
#define Nullp(x) (TYPE(x) == T_Null)
#define Truep(x) (!EQ(x,False) && !EQ(x,False2))
#define Car(x) PAIR(x)->car
#define Cdr(x) PAIR(x)->cdr
#define Cons P_Cons
#define Begin P_Begin
#define Assq(x,y) General_Assoc(x,y,0)
#define Print(x) General_Print_Object (x, Curr_Output_Port, 0)
#define Numeric(t) (t == T_Fixnum || t == T_Flonum || t == T_Bignum)
#define Whitespace(c) (c == ' ' || c == '\t' || c == '\014' || c == '\n')
#define Delimiter(c) (c == ';' || c == ')' || c == '(' || c == '"')
/* Align heap addresses */
#ifdef ALIGN_8BYTE
# define ALIGN(ptr) ((ptr) = (char *)(((long)(ptr) + 7) & ~7))
#else
# define ALIGN(ptr) ((ptr) = (char *)(((long)(ptr) + 3) & ~3))
#endif
/* Normalize stack addresses */
#define NORM(addr) ((long)(addr) + delta)
/* Used in special forms: */
extern int Tail_Call;
#define TC_Prolog register _t = Tail_Call
#define TC_Disable Tail_Call = 0
#define TC_Enable Tail_Call = _t
/* Macros to be used by readers registered with Define_Reader().
* They operate on variables c, port, f, and str.
*/
#define Reader_Getc {\
c = str ? String_Getc (port) : getc (f);\
if (c == '\n') PORT(port)->lno++;\
}
#define Reader_Ungetc {\
if (str) String_Ungetc (port,c); else (void)ungetc (c,f);\
if (c == '\n') if (PORT(port)->lno > 1) PORT(port)->lno--;\
}
#define Reader_Tweak_Stream {\
if (!str && (feof (f) || ferror (f))) clearerr (f);\
}
#define Reader_Sharp_Eof {\
Reader_Tweak_Stream;\
Reader_Error (port, "end of file after `#'");\
}
|
