30 |
|
|
31 |
|
|
32 |
object |
object |
33 |
assoc_eq(key, alist) |
assoc_eq(object key, object alist) |
|
object key, alist; |
|
34 |
{ |
{ |
35 |
object endp_temp; |
object endp_temp; |
36 |
|
|
42 |
return(Cnil); |
return(Cnil); |
43 |
} |
} |
44 |
|
|
45 |
lex_fun_bind(name, fun) |
void |
46 |
object name, fun; |
lex_fun_bind(object name, object fun) |
47 |
{ |
{ |
48 |
object *top = vs_top; |
object *top = vs_top; |
49 |
|
|
54 |
vs_top = top; |
vs_top = top; |
55 |
} |
} |
56 |
|
|
57 |
lex_macro_bind(name, exp_fun) |
void |
58 |
object name, exp_fun; |
lex_macro_bind(object name, object exp_fun) |
59 |
{ |
{ |
60 |
object *top = vs_top; |
object *top = vs_top; |
61 |
vs_push(make_cons(exp_fun, Cnil)); |
vs_push(make_cons(exp_fun, Cnil)); |
65 |
vs_top = top; |
vs_top = top; |
66 |
} |
} |
67 |
|
|
68 |
lex_tag_bind(tag, id) |
void |
69 |
object tag, id; |
lex_tag_bind(object tag, object id) |
70 |
{ |
{ |
71 |
object *top = vs_top; |
object *top = vs_top; |
72 |
|
|
77 |
vs_top = top; |
vs_top = top; |
78 |
} |
} |
79 |
|
|
80 |
lex_block_bind(name, id) |
void |
81 |
object name, id; |
lex_block_bind(object name, object id) |
82 |
{ |
{ |
83 |
object *top = vs_top; |
object *top = vs_top; |
84 |
|
|
90 |
} |
} |
91 |
|
|
92 |
object |
object |
93 |
lex_tag_sch(tag) |
lex_tag_sch(object tag) |
|
object tag; |
|
94 |
{ |
{ |
95 |
object endp_temp; |
object endp_temp; |
96 |
|
|
104 |
return(Cnil); |
return(Cnil); |
105 |
} |
} |
106 |
|
|
107 |
object lex_block_sch(name) |
object lex_block_sch(object name) |
|
object name; |
|
108 |
{ |
{ |
109 |
object endp_temp; |
object endp_temp; |
110 |
|
|
118 |
return(Cnil); |
return(Cnil); |
119 |
} |
} |
120 |
|
|
121 |
init_lex() |
void |
122 |
|
init_lex(void) |
123 |
{ |
{ |
124 |
sLfunction = make_ordinary("FUNCTION"); |
sLfunction = make_ordinary("FUNCTION"); |
125 |
enter_mark_origin(&sLfunction); |
enter_mark_origin(&sLfunction); |