48 |
x->s.s_dbind == x) |
x->s.s_dbind == x) |
49 |
return; |
return; |
50 |
goto KWOTE; |
goto KWOTE; |
51 |
} else if (type_of(x) == t_cons || type_of(x) == t_vector) |
} else if (consp(x) || type_of(x) == t_vector) |
52 |
goto KWOTE; |
goto KWOTE; |
53 |
return; |
return; |
54 |
|
|
68 |
x->s.s_dbind == x) |
x->s.s_dbind == x) |
69 |
return; |
return; |
70 |
goto KWOTE; |
goto KWOTE; |
71 |
} else if (type_of(x) == t_cons || type_of(x) == t_vector) |
} else if (consp(x) || type_of(x) == t_vector) |
72 |
goto KWOTE; |
goto KWOTE; |
73 |
return; |
return; |
74 |
|
|
94 |
|
|
95 |
cs_check(x); |
cs_check(x); |
96 |
|
|
97 |
if (type_of(x) != t_cons) { |
if (!consp(x)) { |
98 |
vs_push(x); |
vs_push(x); |
99 |
return(QUOTE); |
return(QUOTE); |
100 |
} |
} |
118 |
stack_cons(); |
stack_cons(); |
119 |
return(LIST); |
return(LIST); |
120 |
} |
} |
121 |
if (type_of(vs_head) == t_cons && |
if (consp(vs_head) && |
122 |
vs_head->c.c_cdr == Cnil) { |
vs_head->c.c_cdr == Cnil) { |
123 |
vs_head = vs_head->c.c_car; |
vs_head = vs_head->c.c_car; |
124 |
kwote_cdr(); |
kwote_cdr(); |
255 |
|
|
256 |
cs_check(x); |
cs_check(x); |
257 |
|
|
258 |
if (type_of(x) != t_cons) { |
if (!consp(x)) { |
259 |
vs_push(x); |
vs_push(x); |
260 |
return(QUOTE); |
return(QUOTE); |
261 |
} |
} |