#ifndef CLASS_DEFINE struct command_apply { struct command_frame super; struct command *f; }; extern struct ol_class command_apply_class; #endif /* !CLASS_DEFINE */ #ifndef CLASS_DECLARE static void do_command_apply_mark(struct ol_object *o, void (*mark)(struct ol_object *o)) { struct command_apply *i = (struct command_apply *) o; mark((struct ol_object *) i->f); } struct ol_class command_apply_class = { STATIC_HEADER, &command_frame_class, "command_apply", sizeof(struct command_apply), do_command_apply_mark, NULL }; #endif /* !CLASS_DECLARE */ #ifndef CLASS_DEFINE struct collect_state_1 { struct command_simple super; struct collect_info_2 *info; struct ol_object *a; }; extern struct ol_class collect_state_1_class; #endif /* !CLASS_DEFINE */ #ifndef CLASS_DECLARE static void do_collect_state_1_mark(struct ol_object *o, void (*mark)(struct ol_object *o)) { struct collect_state_1 *i = (struct collect_state_1 *) o; mark((struct ol_object *) i->info); mark((struct ol_object *) i->a); } struct ol_class collect_state_1_class = { STATIC_HEADER, &command_simple_class, "collect_state_1", sizeof(struct collect_state_1), do_collect_state_1_mark, NULL }; #endif /* !CLASS_DECLARE */ #ifndef CLASS_DEFINE struct collect_state_2 { struct command_simple super; struct collect_info_3 *info; struct ol_object *a; struct ol_object *b; }; extern struct ol_class collect_state_2_class; #endif /* !CLASS_DEFINE */ #ifndef CLASS_DECLARE static void do_collect_state_2_mark(struct ol_object *o, void (*mark)(struct ol_object *o)) { struct collect_state_2 *i = (struct collect_state_2 *) o; mark((struct ol_object *) i->info); mark((struct ol_object *) i->a); mark((struct ol_object *) i->b); } struct ol_class collect_state_2_class = { STATIC_HEADER, &command_simple_class, "collect_state_2", sizeof(struct collect_state_2), do_collect_state_2_mark, NULL }; #endif /* !CLASS_DECLARE */ #ifndef CLASS_DEFINE struct collect_state_3 { struct command_simple super; struct collect_info_4 *info; struct ol_object *a; struct ol_object *b; struct ol_object *c; }; extern struct ol_class collect_state_3_class; #endif /* !CLASS_DEFINE */ #ifndef CLASS_DECLARE static void do_collect_state_3_mark(struct ol_object *o, void (*mark)(struct ol_object *o)) { struct collect_state_3 *i = (struct collect_state_3 *) o; mark((struct ol_object *) i->info); mark((struct ol_object *) i->a); mark((struct ol_object *) i->b); mark((struct ol_object *) i->c); } struct ol_class collect_state_3_class = { STATIC_HEADER, &command_simple_class, "collect_state_3", sizeof(struct collect_state_3), do_collect_state_3_mark, NULL }; #endif /* !CLASS_DECLARE */ #ifndef CLASS_DEFINE struct parallell_progn { struct command super; struct object_list *body; }; extern struct ol_class parallell_progn_class; #endif /* !CLASS_DEFINE */ #ifndef CLASS_DECLARE static void do_parallell_progn_mark(struct ol_object *o, void (*mark)(struct ol_object *o)) { struct parallell_progn *i = (struct parallell_progn *) o; mark((struct ol_object *) i->body); } struct ol_class parallell_progn_class = { STATIC_HEADER, &command_class, "parallell_progn", sizeof(struct parallell_progn), do_parallell_progn_mark, NULL }; #endif /* !CLASS_DECLARE */