/* -*- LPC -*- */ int valid_compile_to_c() { if (previous_object() == this_object()) return 1; if (previous_object() != find_object("/secure/cmds/creator/compile")) return 0; if (!interactive(previous_object(1))) return 0; if (!sizeof(filter(previous_object(-1),(: lordp($1) :)))) return 0; return 1; } /* valid_compile_to_c() */