EMOD_CL_DEBUG_LOOP("accepting DO clause\n");
dllist_append(iter, (void*)do_clause);
-} |
+} |
with_clause {
dllist_t pro = XDLLIST(lsen->prologue);
Lisp_Object with_clause = *context;
dllist_append(epi, (void*)return_clause);
}
/* | while | until | always | never | thereis
- * if | when | unless | else | end | named
+ * if | when | unless | else | end | named
*/
;
fc->for_subclause = FOR_ARITHMETIC_CLAUSE;
dllist_append(iter, (void*)for_clause);
dllist_append(pro, (void*)for_clause);
-} |
+} |
for_in_clause {
dllist_t pro = XDLLIST(lsen->prologue);
dllist_t iter = XDLLIST(lsen->iteration);
fc->for_subclause = FOR_EQUALS_THEN_CLAUSE;
dllist_append(pro, (void*)for_clause);
dllist_append(iter, (void*)for_clause);
-} |
+} |
for_hash_clause {
dllist_t pro = XDLLIST(lsen->prologue);
dllist_t iter = XDLLIST(lsen->iteration);
};
by:
-BY
+BY
{
Lisp_Object for_clause = *context;
cl_loop_for_clause_t *fc = get_dynacat(for_clause);
};
below:
-BELOW
+BELOW
{
Lisp_Object for_clause = *context;
cl_loop_for_clause_t *fc = get_dynacat(for_clause);
above:
-ABOVE
+ABOVE
{
Lisp_Object for_clause = *context;
cl_loop_for_clause_t *fc = get_dynacat(for_clause);
#undef yyscan_t
#undef yylval
#undef yylloc
-