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
|
/*
(c) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved.
Copying of this file is authorized to users who have executed the true and
proper "License Agreement for Kyoto Common LISP" with SIGLISP.
*/
/*
lex.h
lexical environment
*/
EXTER object *lex_env;
/*
VS
| |
|---------------|
lex_env ------> | lex-var | : lex_env[0]
|---------------|
| lex-fd | : lex_env[1]
|---------------|
| lex-tag | : lex_env[2]
|---------------|
| |
| |
| |
lex-var: (symbol value) ; for local binding
(.... or ....)
(symbol) ; for special binding
lex-fd: (fun-name 'FUNCTION' function)
(.... or ...)
(macro-name 'MACRO' expansion-function)
lex-tag: (tag 'TAG' frame-id)
(.... or ....)
(block-name 'BLOCK' frame-id)
where 'FUN' is the LISP object with pname FUN, etc.
*/
#define lex_copy() if (ihs_top>=ihs_org) ihs_top->ihs_base = vs_top; \
vs_push(lex_env[0]); \
vs_push(lex_env[1]); \
vs_push(lex_env[2]); \
lex_env = vs_top - 3
#define lex_new() if (ihs_top>=ihs_org) ihs_top->ihs_base = vs_top; \
lex_env = vs_top; \
vs_top[0] = vs_top[1] = vs_top[2] = Cnil; \
vs_top += 3
#define lex_var_sch(name) assoc_eq((name),lex_env[0])
#define lex_fd_sch(name) assoc_eq((name),lex_env[1])
|
