diff options
32 files changed, 12762 insertions, 12598 deletions
diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT index a3d60df5b15..6e8b4027c99 100644 --- a/gcc/ChangeLog.MELT +++ b/gcc/ChangeLog.MELT @@ -1,6 +1,41 @@ 2012-10-18 Basile Starynkevitch <basile@starynkevitch.net> + {{Regenerate}} + * melt/generated/meltrunsup.h: Regenerate. + * melt/generated/meltrunsup-inc.c: Regenerate. + * melt/generated/warmelt-base+02.c: Regenerate. + * melt/generated/warmelt-base+03.c: Regenerate. + * melt/generated/warmelt-base.c: Regenerate. + * melt/generated/warmelt-base+meltdesc.c: Regenerate. + * melt/generated/warmelt-base+melttime.h: Regenerate. + * melt/generated/warmelt-debug+meltdesc.c: Regenerate. + * melt/generated/warmelt-debug+melttime.h: Regenerate. + * melt/generated/warmelt-first+meltdesc.c: Regenerate. + * melt/generated/warmelt-first+melttime.h: Regenerate. + * melt/generated/warmelt-genobj+04.c: Regenerate. + * melt/generated/warmelt-genobj+meltdesc.c: Regenerate. + * melt/generated/warmelt-genobj+melttime.h: Regenerate. + * melt/generated/warmelt-macro+01.c: Regenerate. + * melt/generated/warmelt-macro+02.c: Regenerate. + * melt/generated/warmelt-macro+03.c: Regenerate. + * melt/generated/warmelt-macro+04.c: Regenerate. + * melt/generated/warmelt-macro+05.c: Regenerate. + * melt/generated/warmelt-macro.c: Regenerate. + * melt/generated/warmelt-macro+meltdesc.c: Regenerate. + * melt/generated/warmelt-macro+melttime.h: Regenerate. + * melt/generated/warmelt-modes+meltdesc.c: Regenerate. + * melt/generated/warmelt-modes+melttime.h: Regenerate. + * melt/generated/warmelt-normal+meltdesc.c: Regenerate. + * melt/generated/warmelt-normal+melttime.h: Regenerate. + * melt/generated/warmelt-normatch+meltdesc.c: Regenerate. + * melt/generated/warmelt-normatch+melttime.h: Regenerate. + * melt/generated/warmelt-outobj+04.c: Regenerate. + * melt/generated/warmelt-outobj+meltdesc.c: Regenerate. + * melt/generated/warmelt-outobj+melttime.h: Regenerate. + +2012-10-18 Basile Starynkevitch <basile@starynkevitch.net> + * melt/warmelt-macro.melt (expand_cmatchexpr): Correct detection of arity mismatch. Signal an error in that case, not a warning. diff --git a/gcc/melt/generated/meltrunsup-inc.c b/gcc/melt/generated/meltrunsup-inc.c index 587ba98c4f1..3509b06b958 100644 --- a/gcc/melt/generated/meltrunsup-inc.c +++ b/gcc/melt/generated/meltrunsup-inc.c @@ -2813,5 +2813,5 @@ end: #undef compv -/*** End of code file meltbuild-sources/generated/meltrunsup-inc.c generated on 2012 Oct 10 - * by GCC MELT 4.8.0 20121010 (experimental) [melt-branch revision 192289] MELT_0.9.7-rc4 . ***/ +/*** End of code file meltbuild-sources/generated/meltrunsup-inc.c generated on 2012 Oct 18 + * by GCC MELT 4.8.0 20121018 (experimental) [melt-branch revision 192558] MELT_0.9.7-post . ***/ diff --git a/gcc/melt/generated/meltrunsup.h b/gcc/melt/generated/meltrunsup.h index 24a68a0a985..8c68b1eb30c 100644 --- a/gcc/melt/generated/meltrunsup.h +++ b/gcc/melt/generated/meltrunsup.h @@ -2336,5 +2336,5 @@ melt_auxput_maptrees (melt_ptr_t map_p, melt_ptr_t val_p) /** end of code generated by generate_runtypesupport_predef_fields **/ -/*** End of declaration file meltbuild-sources/generated/meltrunsup.h generated on 2012 Oct 10 - * by GCC MELT 4.8.0 20121010 (experimental) [melt-branch revision 192289] MELT_0.9.7-rc4 . ***/ +/*** End of declaration file meltbuild-sources/generated/meltrunsup.h generated on 2012 Oct 18 + * by GCC MELT 4.8.0 20121018 (experimental) [melt-branch revision 192558] MELT_0.9.7-post . ***/ diff --git a/gcc/melt/generated/warmelt-base+02.c b/gcc/melt/generated/warmelt-base+02.c index 892b6e85b76..5b21c8da108 100644 --- a/gcc/melt/generated/warmelt-base+02.c +++ b/gcc/melt/generated/warmelt-base+02.c @@ -5579,13 +5579,13 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2248:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2249:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2248:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2249:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5593,7 +5593,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2249:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2250:/ quasiblock"); /*^cond */ @@ -5622,12 +5622,12 @@ lab_endgetargs:; /*_.LASTLIST__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2251:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2252:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2251:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2252:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5639,17 +5639,17 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2253:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2254:/ compute"); /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-base.melt:2254:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2255:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2254:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2255:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -5695,7 +5695,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2258:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2259:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -5736,12 +5736,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2252:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2253:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2251:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2252:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -5753,14 +5753,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2262:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2263:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2249:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2250:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -5770,7 +5770,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2248:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2249:/ cond.else"); /*^block */ /*anyblock */ @@ -5778,7 +5778,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2265:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2266:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_ipa_passes_start_hook_last")); } @@ -5898,11 +5898,11 @@ meltrout_46_warmelt_base_MELT_ALL_IPA_PASSES_END_RUNNER (meltclosure_ptr_t goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:2281:/ block"); + MELT_LOCATION ("warmelt-base.melt:2282:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2282:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2283:/ quasiblock"); /*^cond */ @@ -5932,7 +5932,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2283:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2284:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -5979,7 +5979,7 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:2291:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2292:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6003,7 +6003,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2288:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2289:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -6027,14 +6027,14 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.LASTPAIR__V10*/ meltfptr[9]); - MELT_LOCATION ("warmelt-base.melt:2297:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2298:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2297:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2298:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6063,7 +6063,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2294:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2295:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -6085,7 +6085,7 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:2302:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2303:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6109,7 +6109,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2299:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2300:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -6120,7 +6120,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:2282:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2283:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -6225,7 +6225,7 @@ meltrout_47_warmelt_base_REGISTER_ALL_IPA_PASSES_END_HOOK_FIRST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2305:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2306:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -6235,13 +6235,13 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2309:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2310:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2309:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2310:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6249,7 +6249,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2310:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2311:/ quasiblock"); /*^cond */ @@ -6278,12 +6278,12 @@ lab_endgetargs:; /*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2312:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2313:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2312:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2313:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6295,18 +6295,18 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2314:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2315:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-base.melt:2315:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2316:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2315:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2316:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6352,7 +6352,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2319:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2320:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -6393,12 +6393,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2313:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2314:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2312:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2313:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -6410,14 +6410,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2323:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2324:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2310:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2311:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -6427,7 +6427,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2309:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2310:/ cond.else"); /*^block */ /*anyblock */ @@ -6435,7 +6435,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2326:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2327:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_ipa_passes_end_hook_first")); } @@ -6447,7 +6447,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2305:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2306:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -6545,7 +6545,7 @@ meltrout_48_warmelt_base_REGISTER_ALL_IPA_PASSES_END_HOOK_LAST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2330:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2331:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -6555,13 +6555,13 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2334:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2335:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2334:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2335:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6569,7 +6569,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2335:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2336:/ quasiblock"); /*^cond */ @@ -6598,12 +6598,12 @@ lab_endgetargs:; /*_.LASTLIST__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2337:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2338:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2337:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2338:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6615,17 +6615,17 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2339:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2340:/ compute"); /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-base.melt:2340:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2341:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2340:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2341:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6671,7 +6671,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2344:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2345:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -6712,12 +6712,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2338:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2339:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2337:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2338:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -6729,14 +6729,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2348:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2349:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2335:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2336:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -6746,7 +6746,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2334:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2335:/ cond.else"); /*^block */ /*anyblock */ @@ -6754,7 +6754,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2351:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2352:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_all_ipa_passes_end_hook_last")); } @@ -6766,7 +6766,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2330:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2331:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -6866,11 +6866,11 @@ meltrout_49_warmelt_base_MELT_EARLY_GIMPLE_PASSES_START_RUNNER goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:2370:/ block"); + MELT_LOCATION ("warmelt-base.melt:2371:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2371:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2372:/ quasiblock"); /*^cond */ @@ -6900,7 +6900,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2372:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2373:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6947,7 +6947,7 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:2380:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2381:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6971,7 +6971,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2377:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2378:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -6995,14 +6995,14 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.LASTPAIR__V10*/ meltfptr[9]); - MELT_LOCATION ("warmelt-base.melt:2386:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2387:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2386:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2387:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7031,7 +7031,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2383:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2384:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -7053,7 +7053,7 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:2391:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2392:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7077,7 +7077,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2388:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2389:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -7088,7 +7088,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:2371:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2372:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -7194,7 +7194,7 @@ meltrout_50_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_FIRST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2394:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2395:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -7204,13 +7204,13 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2398:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2400:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2398:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2400:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7218,7 +7218,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2399:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2401:/ quasiblock"); /*^cond */ @@ -7247,12 +7247,12 @@ lab_endgetargs:; /*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2401:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2403:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2401:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2403:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -7264,18 +7264,18 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2403:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2405:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-base.melt:2404:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2406:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2404:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2406:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7321,7 +7321,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2408:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2410:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -7362,12 +7362,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2402:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2404:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2401:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2403:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -7379,14 +7379,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2412:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2414:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2399:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2401:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -7396,7 +7396,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2398:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2400:/ cond.else"); /*^block */ /*anyblock */ @@ -7404,7 +7404,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2415:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2417:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_early_gimple_passes_start_hook_\ first")); @@ -7417,7 +7417,7 @@ first")); ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2394:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2395:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -7517,7 +7517,7 @@ meltrout_51_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_LAST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2419:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2421:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -7527,13 +7527,13 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2423:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2426:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2423:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2426:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7541,7 +7541,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2424:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2427:/ quasiblock"); /*^cond */ @@ -7570,12 +7570,12 @@ lab_endgetargs:; /*_.LASTLIST__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2426:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2429:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2426:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2429:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -7587,17 +7587,17 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2428:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2431:/ compute"); /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-base.melt:2429:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2432:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2429:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2432:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7643,7 +7643,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2433:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2436:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -7684,12 +7684,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2427:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2430:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2426:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2429:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -7701,14 +7701,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2437:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2440:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2424:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2427:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -7718,7 +7718,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2423:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2426:/ cond.else"); /*^block */ /*anyblock */ @@ -7726,7 +7726,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2440:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2443:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_early_gimple_passes_start_hook_last")); } @@ -7738,7 +7738,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2419:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2421:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -7839,11 +7839,11 @@ meltrout_52_warmelt_base_MELT_EARLY_GIMPLE_PASSES_END_RUNNER goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:2456:/ block"); + MELT_LOCATION ("warmelt-base.melt:2459:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2457:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2460:/ quasiblock"); /*^cond */ @@ -7873,7 +7873,7 @@ lab_endgetargs:; /*_.FIRSTLIST__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2458:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2461:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7920,7 +7920,7 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.FIRSTPAIR__V6*/ meltfptr[5]); - MELT_LOCATION ("warmelt-base.melt:2466:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2469:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7944,7 +7944,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2463:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2466:/ clear"); /*clear *//*_.FIRSTPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.FIRSTPROC__V7*/ meltfptr[6] = 0; @@ -7968,14 +7968,14 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.LASTPAIR__V10*/ meltfptr[9]); - MELT_LOCATION ("warmelt-base.melt:2472:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2475:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPROC__V11*/ meltfptr[10])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2472:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2475:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -8004,7 +8004,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2469:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2472:/ clear"); /*clear *//*_.LASTPAIR__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.LASTPROC__V11*/ meltfptr[10] = 0; @@ -8026,7 +8026,7 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.REVLASTPAIR__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-base.melt:2477:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2480:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8050,7 +8050,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:2474:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2477:/ clear"); /*clear *//*_.REVLASTPAIR__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.REVLASTPROC__V13*/ meltfptr[12] = 0; @@ -8061,7 +8061,7 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:2457:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2460:/ clear"); /*clear *//*_.FIRSTLIST__V2*/ meltfptr[1] = 0; /*^clear */ /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; @@ -8167,7 +8167,7 @@ meltrout_53_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_FIRST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2480:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2483:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -8177,13 +8177,13 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2484:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2488:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2484:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2488:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -8191,7 +8191,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2485:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2489:/ quasiblock"); /*^cond */ @@ -8220,12 +8220,12 @@ lab_endgetargs:; /*_.FIRSTLIST__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2487:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2491:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L2*/ meltfnum[1] = (( /*_.FIRSTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2487:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2491:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8237,18 +8237,18 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2489:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2493:/ compute"); /*_.FIRSTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-base.melt:2490:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2494:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2490:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2494:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8294,7 +8294,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2494:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2498:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -8335,12 +8335,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2488:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2492:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2487:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2491:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -8352,14 +8352,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2498:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2502:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FIRSTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2485:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2489:/ clear"); /*clear *//*_.FIRSTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -8369,7 +8369,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2484:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2488:/ cond.else"); /*^block */ /*anyblock */ @@ -8377,7 +8377,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2501:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2505:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_early_gimple_passes_end_hook_first")); } @@ -8389,7 +8389,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2480:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2483:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -8489,7 +8489,7 @@ meltrout_54_warmelt_base_REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_LAST /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2505:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2509:/ getarg"); /*_.FUN__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -8499,13 +8499,13 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2509:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2514:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-base.melt:2509:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2514:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -8513,7 +8513,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:2510:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2515:/ quasiblock"); /*^cond */ @@ -8542,12 +8542,12 @@ lab_endgetargs:; /*_.LASTLIST__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2512:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2517:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L2*/ meltfnum[1] = (( /*_.LASTLIST__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-base.melt:2512:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2517:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -8559,17 +8559,17 @@ lab_endgetargs:; (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2514:/ compute"); + MELT_LOCATION ("warmelt-base.melt:2519:/ compute"); /*_.LASTLIST__V3*/ meltfptr[2] = /*_.SETQ___V5*/ meltfptr[4] = /*_.MAKE_LIST__V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-base.melt:2515:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2520:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAKE_LIST__V6*/ meltfptr[5] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[2]))));; - MELT_LOCATION ("warmelt-base.melt:2515:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2520:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8615,7 +8615,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2519:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2524:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -8656,12 +8656,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-base.melt:2513:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2518:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2512:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2517:/ clear"); /*clear *//*_.MAKE_LIST__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.SETQ___V5*/ meltfptr[4] = 0; @@ -8673,14 +8673,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2523:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2528:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.LASTLIST__V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.FUN__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2510:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2515:/ clear"); /*clear *//*_.LASTLIST__V3*/ meltfptr[2] = 0; /*^clear */ /*clear *//*_#NULL__L2*/ meltfnum[1] = 0; @@ -8690,7 +8690,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2509:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2514:/ cond.else"); /*^block */ /*anyblock */ @@ -8698,7 +8698,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:2526:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2531:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("Bad function (non closure) passed to register_early_gimple_passes_end_hook_last")); } @@ -8710,7 +8710,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2505:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2509:/ clear"); /*clear *//*_#IS_CLOSURE__L1*/ meltfnum[0] = 0; } @@ -8809,7 +8809,7 @@ meltrout_55_warmelt_base_SET_REFERENCE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2574:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2579:/ getarg"); /*_.R__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -8828,7 +8828,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2577:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2582:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -8969,7 +8969,7 @@ meltrout_56_warmelt_base_INSTALL_VALUE_DESCRIPTOR (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:2586:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:2591:/ getarg"); /*_.VD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -8981,7 +8981,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-base.melt:2587:/ cppif.then"); + MELT_LOCATION ("warmelt-base.melt:2592:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8993,7 +8993,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.VD__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_VALUE_DESCRIPTOR */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-base.melt:2587:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2592:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9001,7 +9001,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:2587:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:2592:/ cond.else"); /*^block */ /*anyblock */ @@ -9015,7 +9015,7 @@ lab_endgetargs:; melt_assert_failed (("check vd"), ("warmelt-base.melt") ? ("warmelt-base.melt") : __FILE__, - (2587) ? (2587) : __LINE__, __FUNCTION__); + (2592) ? (2592) : __LINE__, __FUNCTION__); ; } ; @@ -9029,7 +9029,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:2587:/ clear"); + MELT_LOCATION ("warmelt-base.melt:2592:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -9040,7 +9040,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-base.melt:2588:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2593:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -9069,13 +9069,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-base.melt:2588:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2593:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.REFERENCED_VALUE__V5*/ meltfptr[3]), (melt_ptr_t) ( /*_.VD__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-base.melt:2586:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:2591:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ diff --git a/gcc/melt/generated/warmelt-base+03.c b/gcc/melt/generated/warmelt-base+03.c index f48228ee036..8248de17b20 100644 --- a/gcc/melt/generated/warmelt-base+03.c +++ b/gcc/melt/generated/warmelt-base+03.c @@ -1260,11 +1260,11 @@ meltrout_57_warmelt_base_RETRIEVE_VALUE_DESCRIPTOR_LIST (meltclosure_ptr_t goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-base.melt:2591:/ block"); + MELT_LOCATION ("warmelt-base.melt:2596:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:2592:/ cond"); + MELT_LOCATION ("warmelt-base.melt:2597:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -1291,13 +1291,13 @@ lab_endgetargs:; /*_.REFERENCED_VALUE__V2*/ meltfptr[1] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:2591:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:2596:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.REFERENCED_VALUE__V2*/ meltfptr[1];; { - MELT_LOCATION ("warmelt-base.melt:2591:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:2596:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -1414,7 +1414,7 @@ meltrout_58_warmelt_base_LIST_REMOVE_LAST_ELEMENT (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-base.melt:3586:/ getarg"); + MELT_LOCATION ("warmelt-base.melt:3591:/ getarg"); /*_.LIS__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -1424,7 +1424,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-base.melt:3590:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:3595:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L1*/ meltfnum[0] = @@ -1433,7 +1433,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L2*/ meltfnum[1] = (!( /*_#IS_LIST__L1*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-base.melt:3590:/ cond"); + MELT_LOCATION ("warmelt-base.melt:3595:/ cond"); /*cond */ if ( /*_#NOT__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -1441,7 +1441,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:3591:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:3596:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -1450,7 +1450,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-base.melt:3591:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:3596:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -1466,7 +1466,7 @@ lab_endgetargs:; /*_.IF___V3*/ meltfptr[2] = /*_.RETURN___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:3590:/ clear"); + MELT_LOCATION ("warmelt-base.melt:3595:/ clear"); /*clear *//*_.RETURN___V4*/ meltfptr[3] = 0; } ; @@ -1477,14 +1477,14 @@ lab_endgetargs:; /*_.IF___V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:3592:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:3597:/ quasiblock"); /*_.LASTPAIR__V5*/ meltfptr[3] = (melt_list_last ((melt_ptr_t) ( /*_.LIS__V2*/ meltfptr[1])));; /*^compute */ /*_.PREVPAIR__V6*/ meltfptr[5] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-base.melt:3595:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:3600:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -1509,7 +1509,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.LASTPAIR__V5*/ meltfptr[3])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-base.melt:3595:/ cond"); + MELT_LOCATION ("warmelt-base.melt:3600:/ cond"); /*cond */ if ( /*_#IS_PAIR__L3*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -1517,7 +1517,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:3595:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:3600:/ cond.else"); /*^block */ /*anyblock */ @@ -1531,7 +1531,7 @@ lab_endgetargs:; melt_assert_failed (("check lastpair"), ("warmelt-base.melt") ? ("warmelt-base.melt") : __FILE__, - (3595) ? (3595) : __LINE__, + (3600) ? (3600) : __LINE__, __FUNCTION__); ; } @@ -1546,7 +1546,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[7] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:3595:/ clear"); + MELT_LOCATION ("warmelt-base.melt:3600:/ clear"); /*clear *//*_#IS_PAIR__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -1561,7 +1561,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.IFCPP___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:3595:/ clear"); + MELT_LOCATION ("warmelt-base.melt:3600:/ clear"); /*clear *//*_.IFCPP___V8*/ meltfptr[7] = 0; } ; @@ -1588,7 +1588,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-base.melt:3599:/ cppif.then"); + MELT_LOCATION ("warmelt-base.melt:3604:/ cppif.then"); /*^block */ /*anyblock */ { @@ -1600,7 +1600,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V10*/ meltfptr[8])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-base.melt:3599:/ cond"); + MELT_LOCATION ("warmelt-base.melt:3604:/ cond"); /*cond */ if ( /*_#IS_PAIR__L4*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -1608,7 +1608,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:3599:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:3604:/ cond.else"); /*^block */ /*anyblock */ @@ -1622,7 +1622,7 @@ lab_endgetargs:; melt_assert_failed (("check curpair"), ("warmelt-base.melt") ? ("warmelt-base.melt") : __FILE__, - (3599) ? (3599) : __LINE__, + (3604) ? (3604) : __LINE__, __FUNCTION__); ; } @@ -1637,7 +1637,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:3599:/ clear"); + MELT_LOCATION ("warmelt-base.melt:3604:/ clear"); /*clear *//*_#IS_PAIR__L4*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -1648,13 +1648,13 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-base.melt:3600:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:3605:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L5*/ meltfnum[2] = (( /*_.CURPAIR__V10*/ meltfptr[8]) == ( /*_.LASTPAIR__V5*/ meltfptr[3]));; - MELT_LOCATION ("warmelt-base.melt:3600:/ cond"); + MELT_LOCATION ("warmelt-base.melt:3605:/ cond"); /*cond */ if ( /*_#__L5*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -1662,17 +1662,17 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-base.melt:3601:/ compute"); + MELT_LOCATION ("warmelt-base.melt:3606:/ compute"); /*_.CURPAIR__V10*/ meltfptr[8] = /*_.SETQ___V15*/ meltfptr[14] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-base.melt:3602:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:3607:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L6*/ meltfnum[5] = (melt_magic_discr ((melt_ptr_t) ( /*_.PREVPAIR__V6*/ meltfptr[5])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-base.melt:3602:/ cond"); + MELT_LOCATION ("warmelt-base.melt:3607:/ cond"); /*cond */ if ( /*_#IS_PAIR__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -1682,7 +1682,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:3604:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:3609:/ locexp"); /* list_remove_last_element UPDATEPAIR_CHK__1 */ ((struct meltpair_st *) /*_.PREVPAIR__V6*/ meltfptr[5])->tl = NULL; @@ -1700,7 +1700,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-base.melt:3602:/ cond.else"); + MELT_LOCATION ("warmelt-base.melt:3607:/ cond.else"); /*^block */ /*anyblock */ @@ -1708,7 +1708,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-base.melt:3611:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:3616:/ locexp"); /* list_remove_last_element EMPTYLIST_CHK__1 */ ((struct meltlist_st *) /*_.LIS__V2*/ meltfptr[1])-> first = NULL; @@ -1723,7 +1723,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-base.melt:3616:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:3621:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -1733,7 +1733,7 @@ lab_endgetargs:; /*_.CURELEM__V11*/ meltfptr[7];; { - MELT_LOCATION ("warmelt-base.melt:3616:/ locexp"); + MELT_LOCATION ("warmelt-base.melt:3621:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -1746,7 +1746,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-base.melt:3600:/ quasiblock"); + MELT_LOCATION ("warmelt-base.melt:3605:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[16] = @@ -1755,7 +1755,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.PROGN___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-base.melt:3600:/ clear"); + MELT_LOCATION ("warmelt-base.melt:3605:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_#IS_PAIR__L6*/ meltfnum[5] = 0; @@ -1772,7 +1772,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-base.melt:3617:/ compute"); + MELT_LOCATION ("warmelt-base.melt:3622:/ compute"); /*_.PREVPAIR__V6*/ meltfptr[5] = /*_.SETQ___V18*/ meltfptr[14] = /*_.CURPAIR__V10*/ meltfptr[8];; } /* end foreach_in_list meltcit1__EACHLIST */ @@ -1782,7 +1782,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-base.melt:3596:/ clear"); + MELT_LOCATION ("warmelt-base.melt:3601:/ clear"); /*clear *//*_.CURPAIR__V10*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.CURELEM__V11*/ meltfptr[7] = 0; @@ -1797,13 +1797,13 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-base.melt:3592:/ clear"); + MELT_LOCATION ("warmelt-base.melt:3597:/ clear"); /*clear *//*_.LASTPAIR__V5*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.PREVPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; - MELT_LOCATION ("warmelt-base.melt:3586:/ checksignal"); + MELT_LOCATION ("warmelt-base.melt:3591:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ diff --git a/gcc/melt/generated/warmelt-base+meltdesc.c b/gcc/melt/generated/warmelt-base+meltdesc.c index f16635298f2..1261aa764ae 100644 --- a/gcc/melt/generated/warmelt-base+meltdesc.c +++ b/gcc/melt/generated/warmelt-base+meltdesc.c @@ -19,8 +19,8 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revision 192289] MELT_0\ -.9.7-rc4" +const char melt_genversionstr[]="4.8.0 20121018 (experimental) [melt-branch revision 192558] MELT_0\ +.9.7-post" #ifdef __cplusplus " (in C++)" @@ -29,35 +29,35 @@ const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.7-rc4 [melt-branch_revision_192289]"; +const char melt_versionmeltstr[]="0.9.7-post [melt-branch_revision_192555]"; /* source name & real path of the module */ /*MELTMODULENAME meltbuild-sources/warmelt-base */ const char melt_modulename[]="warmelt-base"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt\ --modules/0.9.7-rc4/warmelt-base"; +-modules/0.9.7-post/warmelt-base"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="f66a30d9bc2c10de00b1532482ad91ed"; +const char melt_prepromd5meltrun[]="fbc0deb09a63b777e215f0636e7b4e16"; /* hexmd5checksum of primary C file */ -const char melt_primaryhexmd5[]="399bc74d2483e19d980c9e0987100197"; +const char melt_primaryhexmd5[]="f684b50ca3419656bc5f7a0be251abdb"; /* hexmd5checksum of secondary C files */ const char* const melt_secondaryhexmd5tab[]={ /*nosecfile*/ (const char*)0, - /*sechexmd5checksum meltbuild-sources/warmelt-base+01.c #1 */ "5a9d874e76ef21543a2309d88a98f826", - /*sechexmd5checksum meltbuild-sources/warmelt-base+02.c #2 */ "3e80c515b775cb19b424116070ee1ed2", - /*sechexmd5checksum meltbuild-sources/warmelt-base+03.c #3 */ "9a93e9a551dc45e54ac8a4afca861774", + /*sechexmd5checksum meltbuild-sources/warmelt-base+01.c #1 */ "9abddd098aab44fe79a0e9cdb97366e2", + /*sechexmd5checksum meltbuild-sources/warmelt-base+02.c #2 */ "468a8a444957d9002cdd82df828f4c85", + /*sechexmd5checksum meltbuild-sources/warmelt-base+03.c #3 */ "13ec67e76874838582187575c9c86415", (const char*)0 }; /* last index of secondary files */ const int melt_lastsecfileindex=3; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="42dca142e3af5c56c97000535eb98582" ; +const char melt_cumulated_hexmd5[]="c9757ee6a91f281a41454c90a6df3d9d" ; /* include the timestamp file */ -#define meltmod_warmelt_base_mds__42dca142e3af5c56c97000535eb98582 1 +#define meltmod_warmelt_base_mds__c9757ee6a91f281a41454c90a6df3d9d 1 #include "warmelt-base+melttime.h" diff --git a/gcc/melt/generated/warmelt-base+melttime.h b/gcc/melt/generated/warmelt-base+melttime.h index 87e0c3ce4fa..826173b8e43 100644 --- a/gcc/melt/generated/warmelt-base+melttime.h +++ b/gcc/melt/generated/warmelt-base+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-base+melttime.h is included from warmelt-base+meltdesc.c only. */ -#if meltmod_warmelt_base_mds__42dca142e3af5c56c97000535eb98582 +#if meltmod_warmelt_base_mds__c9757ee6a91f281a41454c90a6df3d9d /* MELT generation timestamp for meltbuild-sources/warmelt-base */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Wed Oct 10 13:49:39 2012 CEST"; -const long long melt_gen_timenum=1349869779; +const char melt_gen_timestamp[]="Thu Oct 18 16:21:05 2012 CEST"; +const long long melt_gen_timenum=1350570065; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1349869779; } /* end extern C timestamp */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_base_mds__42dca142e3af5c56c97000535eb98582 */ + #else /* ! meltmod_warmelt_base_mds__c9757ee6a91f281a41454c90a6df3d9d */ #error invalid timestamp file for meltbuild-sources/warmelt-base - #endif /* meltmod_warmelt_base_mds__42dca142e3af5c56c97000535eb98582 */ + #endif /* meltmod_warmelt_base_mds__c9757ee6a91f281a41454c90a6df3d9d */ diff --git a/gcc/melt/generated/warmelt-base.c b/gcc/melt/generated/warmelt-base.c index 899b1c9347c..59600cf9f32 100644 --- a/gcc/melt/generated/warmelt-base.c +++ b/gcc/melt/generated/warmelt-base.c @@ -43788,7 +43788,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2573__ALL_IPA_PASSES_E.val[32] = (char) 0; cdat->dstr_2573__ALL_IPA_PASSES_E.slen = 32; - MELT_LOCATION ("warmelt-base.melt:2274:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:2275:/ iniobj"); /*iniobj dobj_2574__ALL_IPA_PASSES_END_DELAYED_QUEUE*/ /*_.VALDATA___V2600*/ meltfptr[2599] = @@ -43828,7 +43828,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->drout_2576__MELT_ALL_IPA_PASSES_END_RUNNER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_2576__MELT_ALL_IPA_PASSES_END_RUNNER.routdescr, - "MELT_ALL_IPA_PASSES_END_RUNNER @warmelt-base.melt:2281", + "MELT_ALL_IPA_PASSES_END_RUNNER @warmelt-base.melt:2282", MELT_ROUTDESCR_LEN - 1); cdat->drout_2576__MELT_ALL_IPA_PASSES_END_RUNNER.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -43848,7 +43848,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->drout_2578__REGISTER_ALL_IPA_PASSES_END_HOOK_FIRST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_2578__REGISTER_ALL_IPA_PASSES_END_HOOK_FIRST.routdescr, - "REGISTER_ALL_IPA_PASSES_END_HOOK_FIRST @warmelt-base.melt:2305", + "REGISTER_ALL_IPA_PASSES_END_HOOK_FIRST @warmelt-base.melt:2306", MELT_ROUTDESCR_LEN - 1); cdat->drout_2578__REGISTER_ALL_IPA_PASSES_END_HOOK_FIRST.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -43868,7 +43868,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->drout_2580__REGISTER_ALL_IPA_PASSES_END_HOOK_LAST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_2580__REGISTER_ALL_IPA_PASSES_END_HOOK_LAST.routdescr, - "REGISTER_ALL_IPA_PASSES_END_HOOK_LAST @warmelt-base.melt:2330", + "REGISTER_ALL_IPA_PASSES_END_HOOK_LAST @warmelt-base.melt:2331", MELT_ROUTDESCR_LEN - 1); cdat->drout_2580__REGISTER_ALL_IPA_PASSES_END_HOOK_LAST.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -43917,7 +43917,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2583__EARLY_GIMPLE_PAS.val[39] = (char) 0; cdat->dstr_2583__EARLY_GIMPLE_PAS.slen = 39; - MELT_LOCATION ("warmelt-base.melt:2363:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:2364:/ iniobj"); /*iniobj dobj_2584__EARLY_GIMPLE_PASSES_START_DELAYED_QUEUE*/ /*_.VALDATA___V2610*/ meltfptr[2609] = @@ -43958,7 +43958,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->drout_2586__MELT_EARLY_GIMPLE_PASSES_START_RUNNER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_2586__MELT_EARLY_GIMPLE_PASSES_START_RUNNER.routdescr, - "MELT_EARLY_GIMPLE_PASSES_START_RUNNER @warmelt-base.melt:2370", + "MELT_EARLY_GIMPLE_PASSES_START_RUNNER @warmelt-base.melt:2371", MELT_ROUTDESCR_LEN - 1); cdat->drout_2586__MELT_EARLY_GIMPLE_PASSES_START_RUNNER.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -43980,7 +43980,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_2588__REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_FIRST. routdescr, - "REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_FIRST @warmelt-base.melt:2394", + "REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_FIRST @warmelt-base.melt:2395", MELT_ROUTDESCR_LEN - 1); cdat->drout_2588__REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_FIRST.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -44003,7 +44003,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_2590__REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_LAST. routdescr, - "REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_LAST @warmelt-base.melt:2419", + "REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_LAST @warmelt-base.melt:2421", MELT_ROUTDESCR_LEN - 1); cdat->drout_2590__REGISTER_EARLY_GIMPLE_PASSES_START_HOOK_LAST.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -44052,7 +44052,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2593__EARLY_GIMPLE_PAS.val[37] = (char) 0; cdat->dstr_2593__EARLY_GIMPLE_PAS.slen = 37; - MELT_LOCATION ("warmelt-base.melt:2449:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:2452:/ iniobj"); /*iniobj dobj_2594__EARLY_GIMPLE_PASSES_END_DELAYED_QUEUE*/ /*_.VALDATA___V2620*/ meltfptr[2619] = @@ -44093,7 +44093,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->drout_2596__MELT_EARLY_GIMPLE_PASSES_END_RUNNER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_2596__MELT_EARLY_GIMPLE_PASSES_END_RUNNER.routdescr, - "MELT_EARLY_GIMPLE_PASSES_END_RUNNER @warmelt-base.melt:2456", + "MELT_EARLY_GIMPLE_PASSES_END_RUNNER @warmelt-base.melt:2459", MELT_ROUTDESCR_LEN - 1); cdat->drout_2596__MELT_EARLY_GIMPLE_PASSES_END_RUNNER.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -44115,7 +44115,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_2598__REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_FIRST. routdescr, - "REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_FIRST @warmelt-base.melt:2480", + "REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_FIRST @warmelt-base.melt:2483", MELT_ROUTDESCR_LEN - 1); cdat->drout_2598__REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_FIRST.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -44138,7 +44138,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_2600__REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_LAST. routdescr, - "REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_LAST @warmelt-base.melt:2505", + "REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_LAST @warmelt-base.melt:2509", MELT_ROUTDESCR_LEN - 1); cdat->drout_2600__REGISTER_EARLY_GIMPLE_PASSES_END_HOOK_LAST.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -44187,7 +44187,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2603__CLASS_VALUE_DESC.val[22] = (char) 0; cdat->dstr_2603__CLASS_VALUE_DESC.slen = 22; - MELT_LOCATION ("warmelt-base.melt:2534:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:2539:/ iniobj"); /*iniobj dobj_2604__CLASS_VALUE_DESCRIPTOR*/ /*_.VALDATA___V2630*/ meltfptr[2629] = @@ -44889,7 +44889,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2645__CLASS_VARISIZED_.val[32] = (char) 0; cdat->dstr_2645__CLASS_VARISIZED_.slen = 32; - MELT_LOCATION ("warmelt-base.melt:2562:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:2567:/ iniobj"); /*iniobj dobj_2646__CLASS_VARISIZED_VALUE_DESCRIPTOR*/ /*_.VALDATA___V2672*/ meltfptr[2671] = @@ -44943,7 +44943,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->drout_2650__SET_REFERENCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_2650__SET_REFERENCE.routdescr, - "SET_REFERENCE @warmelt-base.melt:2574", MELT_ROUTDESCR_LEN - 1); + "SET_REFERENCE @warmelt-base.melt:2579", MELT_ROUTDESCR_LEN - 1); cdat->drout_2650__SET_REFERENCE.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_2650__SET_REFERENCE, meltrout_55_warmelt_base_SET_REFERENCE); @@ -44989,7 +44989,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2653__VALUE_DESCRIPTOR.val[31] = (char) 0; cdat->dstr_2653__VALUE_DESCRIPTOR.slen = 31; - MELT_LOCATION ("warmelt-base.melt:2581:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:2586:/ iniobj"); /*iniobj dobj_2654__VALUE_DESCRIPTOR_LIST_REFERENCE*/ /*_.VALDATA___V2680*/ meltfptr[2679] = @@ -45016,7 +45016,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->drout_2655__INSTALL_VALUE_DESCRIPTOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_2655__INSTALL_VALUE_DESCRIPTOR.routdescr, - "INSTALL_VALUE_DESCRIPTOR @warmelt-base.melt:2586", + "INSTALL_VALUE_DESCRIPTOR @warmelt-base.melt:2591", MELT_ROUTDESCR_LEN - 1); cdat->drout_2655__INSTALL_VALUE_DESCRIPTOR.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_2655__INSTALL_VALUE_DESCRIPTOR, @@ -45035,7 +45035,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->drout_2657__RETRIEVE_VALUE_DESCRIPTOR_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_2657__RETRIEVE_VALUE_DESCRIPTOR_LIST.routdescr, - "RETRIEVE_VALUE_DESCRIPTOR_LIST @warmelt-base.melt:2591", + "RETRIEVE_VALUE_DESCRIPTOR_LIST @warmelt-base.melt:2596", MELT_ROUTDESCR_LEN - 1); cdat->drout_2657__RETRIEVE_VALUE_DESCRIPTOR_LIST.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -45083,7 +45083,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2660__VALDESC_OBJECT.val[14] = (char) 0; cdat->dstr_2660__VALDESC_OBJECT.slen = 14; - MELT_LOCATION ("warmelt-base.melt:2596:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:2601:/ iniobj"); /*iniobj dobj_2661__VALDESC_OBJECT*/ /*_.VALDATA___V2688*/ meltfptr[2687] = @@ -45369,7 +45369,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2672__VALDESC_MAPOBJEC.val[18] = (char) 0; cdat->dstr_2672__VALDESC_MAPOBJEC.slen = 18; - MELT_LOCATION ("warmelt-base.melt:2710:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:2715:/ iniobj"); /*iniobj dobj_2673__VALDESC_MAPOBJECTS*/ /*_.VALDATA___V2700*/ meltfptr[2699] = @@ -45655,7 +45655,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2684__VALDESC_MAPSTRIN.val[18] = (char) 0; cdat->dstr_2684__VALDESC_MAPSTRIN.slen = 18; - MELT_LOCATION ("warmelt-base.melt:2815:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:2820:/ iniobj"); /*iniobj dobj_2685__VALDESC_MAPSTRINGS*/ /*_.VALDATA___V2712*/ meltfptr[2711] = @@ -45916,7 +45916,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2695__VALDESC_DECAY.val[13] = (char) 0; cdat->dstr_2695__VALDESC_DECAY.slen = 13; - MELT_LOCATION ("warmelt-base.melt:2915:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:2920:/ iniobj"); /*iniobj dobj_2696__VALDESC_DECAY*/ /*_.VALDATA___V2723*/ meltfptr[2722] = @@ -46109,7 +46109,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2708__VALDESC_MULTIPLE.val[16] = (char) 0; cdat->dstr_2708__VALDESC_MULTIPLE.slen = 16; - MELT_LOCATION ("warmelt-base.melt:2943:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:2948:/ iniobj"); /*iniobj dobj_2709__VALDESC_MULTIPLE*/ /*_.VALDATA___V2736*/ meltfptr[2735] = @@ -46326,7 +46326,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2720__VALDESC_CLOSURE.val[15] = (char) 0; cdat->dstr_2720__VALDESC_CLOSURE.slen = 15; - MELT_LOCATION ("warmelt-base.melt:3000:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3005:/ iniobj"); /*iniobj dobj_2721__VALDESC_CLOSURE*/ /*_.VALDATA___V2748*/ meltfptr[2747] = @@ -46549,7 +46549,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2732__VALDESC_ROUTINE.val[15] = (char) 0; cdat->dstr_2732__VALDESC_ROUTINE.slen = 15; - MELT_LOCATION ("warmelt-base.melt:3059:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3064:/ iniobj"); /*iniobj dobj_2733__VALDESC_ROUTINE*/ /*_.VALDATA___V2760*/ meltfptr[2759] = @@ -46751,7 +46751,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2743__VALDESC_BUCKETLO.val[19] = (char) 0; cdat->dstr_2743__VALDESC_BUCKETLO.slen = 19; - MELT_LOCATION ("warmelt-base.melt:3126:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3131:/ iniobj"); /*iniobj dobj_2744__VALDESC_BUCKETLONGS*/ /*_.VALDATA___V2771*/ meltfptr[2770] = @@ -47007,7 +47007,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2755__VALDESC_STRING.val[14] = (char) 0; cdat->dstr_2755__VALDESC_STRING.slen = 14; - MELT_LOCATION ("warmelt-base.melt:3215:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3220:/ iniobj"); /*iniobj dobj_2756__VALDESC_STRING*/ /*_.VALDATA___V2783*/ meltfptr[2782] = @@ -47192,7 +47192,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2766__VALDESC_STRBUF.val[14] = (char) 0; cdat->dstr_2766__VALDESC_STRBUF.slen = 14; - MELT_LOCATION ("warmelt-base.melt:3258:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3263:/ iniobj"); /*iniobj dobj_2767__VALDESC_STRBUF*/ /*_.VALDATA___V2794*/ meltfptr[2793] = @@ -47390,7 +47390,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2776__VALDESC_PAIR.val[12] = (char) 0; cdat->dstr_2776__VALDESC_PAIR.slen = 12; - MELT_LOCATION ("warmelt-base.melt:3315:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3320:/ iniobj"); /*iniobj dobj_2777__VALDESC_PAIR*/ /*_.VALDATA___V2804*/ meltfptr[2803] = @@ -47570,7 +47570,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2788__VALDESC_LIST.val[12] = (char) 0; cdat->dstr_2788__VALDESC_LIST.slen = 12; - MELT_LOCATION ("warmelt-base.melt:3348:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3353:/ iniobj"); /*iniobj dobj_2789__VALDESC_LIST*/ /*_.VALDATA___V2816*/ meltfptr[2815] = @@ -47777,7 +47777,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2800__VALDESC_INT.val[11] = (char) 0; cdat->dstr_2800__VALDESC_INT.slen = 11; - MELT_LOCATION ("warmelt-base.melt:3399:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3404:/ iniobj"); /*iniobj dobj_2801__VALDESC_INT*/ /*_.VALDATA___V2828*/ meltfptr[2827] = @@ -47935,7 +47935,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2810__VALDESC_MIXINT.val[14] = (char) 0; cdat->dstr_2810__VALDESC_MIXINT.slen = 14; - MELT_LOCATION ("warmelt-base.melt:3429:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3434:/ iniobj"); /*iniobj dobj_2811__VALDESC_MIXINT*/ /*_.VALDATA___V2838*/ meltfptr[2837] = @@ -48091,7 +48091,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2820__VALDESC_MIXLOC.val[14] = (char) 0; cdat->dstr_2820__VALDESC_MIXLOC.slen = 14; - MELT_LOCATION ("warmelt-base.melt:3457:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3462:/ iniobj"); /*iniobj dobj_2821__VALDESC_MIXLOC*/ /*_.VALDATA___V2848*/ meltfptr[2847] = @@ -48247,7 +48247,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2830__VALDESC_MIXBIGIN.val[17] = (char) 0; cdat->dstr_2830__VALDESC_MIXBIGIN.slen = 17; - MELT_LOCATION ("warmelt-base.melt:3486:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3491:/ iniobj"); /*iniobj dobj_2831__VALDESC_MIXBIGINT*/ /*_.VALDATA___V2858*/ meltfptr[2857] = @@ -48423,7 +48423,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2840__VALDESC_REAL.val[12] = (char) 0; cdat->dstr_2840__VALDESC_REAL.slen = 12; - MELT_LOCATION ("warmelt-base.melt:3525:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3530:/ iniobj"); /*iniobj dobj_2841__VALDESC_REAL*/ /*_.VALDATA___V2868*/ meltfptr[2867] = @@ -48563,7 +48563,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2849__VALDESC_SPECIAL_.val[20] = (char) 0; cdat->dstr_2849__VALDESC_SPECIAL_.slen = 20; - MELT_LOCATION ("warmelt-base.melt:3549:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3554:/ iniobj"); /*iniobj dobj_2850__VALDESC_SPECIAL_DATA*/ /*_.VALDATA___V2877*/ meltfptr[2876] = @@ -48717,7 +48717,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->drout_2859__LIST_REMOVE_LAST_ELEMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_2859__LIST_REMOVE_LAST_ELEMENT.routdescr, - "LIST_REMOVE_LAST_ELEMENT @warmelt-base.melt:3586", + "LIST_REMOVE_LAST_ELEMENT @warmelt-base.melt:3591", MELT_ROUTDESCR_LEN - 1); cdat->drout_2859__LIST_REMOVE_LAST_ELEMENT.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_2859__LIST_REMOVE_LAST_ELEMENT, @@ -48764,7 +48764,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2862__VARIADIC_INDEX.val[14] = (char) 0; cdat->dstr_2862__VARIADIC_INDEX.slen = 14; - MELT_LOCATION ("warmelt-base.melt:3623:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3628:/ iniobj"); /*iniobj dobj_2863__VARIADIC_INDEX*/ /*_.VALDATA___V2890*/ meltfptr[2889] = @@ -48857,7 +48857,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2869__VARIADIC_LENGTH.val[15] = (char) 0; cdat->dstr_2869__VARIADIC_LENGTH.slen = 15; - MELT_LOCATION ("warmelt-base.melt:3637:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3642:/ iniobj"); /*iniobj dobj_2870__VARIADIC_LENGTH*/ /*_.VALDATA___V2897*/ meltfptr[2896] = @@ -48950,7 +48950,7 @@ tr_t) ", sizeof (cdat->dstr_2108__memset_loc.val) - cdat->dstr_2876__VARIADIC_SKIP.val[13] = (char) 0; cdat->dstr_2876__VARIADIC_SKIP.slen = 13; - MELT_LOCATION ("warmelt-base.melt:3652:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3657:/ iniobj"); /*iniobj dobj_2877__VARIADIC_SKIP*/ /*_.VALDATA___V2904*/ meltfptr[2903] = @@ -49122,7 +49122,7 @@ ic_length) \n melt_variadic_index = melt_variadic_length;\ cdat->dstr_2888__VARIADIC_TYPE_CO.val[18] = (char) 0; cdat->dstr_2888__VARIADIC_TYPE_CO.slen = 18; - MELT_LOCATION ("warmelt-base.melt:3672:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3677:/ iniobj"); /*iniobj dobj_2889__VARIADIC_TYPE_CODE*/ /*_.VALDATA___V2916*/ meltfptr[2915] = @@ -49284,7 +49284,7 @@ ic_length) \n melt_variadic_index = melt_variadic_length;\ cdat->dstr_2900__VARIADIC_CTYPE.val[14] = (char) 0; cdat->dstr_2900__VARIADIC_CTYPE.slen = 14; - MELT_LOCATION ("warmelt-base.melt:3688:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3693:/ iniobj"); /*iniobj dobj_2901__VARIADIC_CTYPE*/ /*_.VALDATA___V2928*/ meltfptr[2927] = @@ -49434,7 +49434,7 @@ ic_length) \n melt_variadic_index = melt_variadic_length;\ cdat->dstr_2911__POLL_ALL_INPUTS.val[15] = (char) 0; cdat->dstr_2911__POLL_ALL_INPUTS.slen = 15; - MELT_LOCATION ("warmelt-base.melt:3704:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3709:/ iniobj"); /*iniobj dobj_2912__POLL_ALL_INPUTS*/ /*_.VALDATA___V2939*/ meltfptr[2938] = @@ -49589,7 +49589,7 @@ TA_INCHANNEL_DATA), \n \ cdat->dstr_2922__INCREMENT.val[9] = (char) 0; cdat->dstr_2922__INCREMENT.slen = 9; - MELT_LOCATION ("warmelt-base.melt:3709:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3714:/ iniobj"); /*iniobj dobj_2923__INCREMENT*/ /*_.VALDATA___V2950*/ meltfptr[2949] = @@ -49805,7 +49805,7 @@ TA_INCHANNEL_DATA), \n \ cdat->dstr_2937__MELT_ARGUMENT.val[13] = (char) 0; cdat->dstr_2937__MELT_ARGUMENT.slen = 13; - MELT_LOCATION ("warmelt-base.melt:3716:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3721:/ iniobj"); /*iniobj dobj_2938__MELT_ARGUMENT*/ /*_.VALDATA___V2965*/ meltfptr[2964] = @@ -49930,7 +49930,7 @@ TA_INCHANNEL_DATA), \n \ cdat->dstr_2946__MELT_ERROR_COUNT.val[18] = (char) 0; cdat->dstr_2946__MELT_ERROR_COUNT.slen = 18; - MELT_LOCATION ("warmelt-base.melt:3720:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3725:/ iniobj"); /*iniobj dobj_2947__MELT_ERROR_COUNTER*/ /*_.VALDATA___V2974*/ meltfptr[2973] = @@ -49989,7 +49989,7 @@ TA_INCHANNEL_DATA), \n \ cdat->dstr_2951__MELT_ERROR_COUNT.val[18] = (char) 0; cdat->dstr_2951__MELT_ERROR_COUNT.slen = 18; - MELT_LOCATION ("warmelt-base.melt:3725:/ iniobj"); + MELT_LOCATION ("warmelt-base.melt:3730:/ iniobj"); /*iniobj dobj_2952__BLOCK_SIGNALS*/ /*_.VALDATA___V2979*/ meltfptr[2978] = @@ -122773,7 +122773,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2598*/ meltfptr[2597], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2274:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2275:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122791,7 +122791,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2601*/ meltfptr[2600]); - MELT_LOCATION ("warmelt-base.melt:2274:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2275:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122809,7 +122809,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct obj_vartab[2] = (melt_ptr_t) ( ( /*nil */ NULL)); - MELT_LOCATION ("warmelt-base.melt:2274:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2275:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -122827,18 +122827,18 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct obj_vartab[3] = (melt_ptr_t) ( ( /*nil */ NULL)); - MELT_LOCATION ("warmelt-base.melt:2274:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2275:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2600*/ meltfptr[2599]); - MELT_LOCATION ("warmelt-base.melt:2274:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2275:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2600*/ meltfptr[2599], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2281:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2282:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -122850,7 +122850,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2602*/ meltfptr[2601])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V2560*/ meltfptr[2559]); - MELT_LOCATION ("warmelt-base.melt:2281:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2282:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -122865,7 +122865,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2602*/ meltfptr[2601])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_DELAYED_QUEUE__V25*/ meltfptr[24]); - MELT_LOCATION ("warmelt-base.melt:2281:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2282:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -122880,7 +122880,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2602*/ meltfptr[2601])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-base.melt:2281:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2282:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V2602*/ meltfptr[2601]); @@ -122900,7 +122900,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V2603*/ meltfptr[2602]); - MELT_LOCATION ("warmelt-base.melt:2305:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2306:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -122912,7 +122912,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2604*/ meltfptr[2603])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V2560*/ meltfptr[2559]); - MELT_LOCATION ("warmelt-base.melt:2305:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2306:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -122927,7 +122927,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2604*/ meltfptr[2603])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_DELAYED_QUEUE__V25*/ meltfptr[24]); - MELT_LOCATION ("warmelt-base.melt:2305:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2306:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -122942,7 +122942,7 @@ meltmod__warmelt_base__initialmeltchunk_44 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2604*/ meltfptr[2603])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-base.melt:2305:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2306:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -122971,7 +122971,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-base.melt:2305:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2306:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -122983,7 +122983,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2604*/ meltfptr[2603])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V2603*/ meltfptr[2602]); - MELT_LOCATION ("warmelt-base.melt:2305:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2306:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -122998,7 +122998,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2604*/ meltfptr[2603])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-base.melt:2305:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2306:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V2604*/ meltfptr[2603]); @@ -123018,7 +123018,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V2605*/ meltfptr[2604]); - MELT_LOCATION ("warmelt-base.melt:2330:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2331:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -123030,7 +123030,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2606*/ meltfptr[2605])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V2560*/ meltfptr[2559]); - MELT_LOCATION ("warmelt-base.melt:2330:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2331:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123045,7 +123045,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2606*/ meltfptr[2605])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_DELAYED_QUEUE__V25*/ meltfptr[24]); - MELT_LOCATION ("warmelt-base.melt:2330:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2331:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123060,7 +123060,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2606*/ meltfptr[2605])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-base.melt:2330:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2331:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123075,7 +123075,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2606*/ meltfptr[2605])->tabval[3] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V21*/ meltfptr[20]); - MELT_LOCATION ("warmelt-base.melt:2330:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2331:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -123087,7 +123087,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2606*/ meltfptr[2605])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V2603*/ meltfptr[2602]); - MELT_LOCATION ("warmelt-base.melt:2330:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2331:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123102,7 +123102,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2606*/ meltfptr[2605])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-base.melt:2330:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2331:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V2606*/ meltfptr[2605]); @@ -123145,7 +123145,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2608*/ meltfptr[2607], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2363:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2364:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123163,7 +123163,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2611*/ meltfptr[2610]); - MELT_LOCATION ("warmelt-base.melt:2363:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2364:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123181,7 +123181,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[2] = (melt_ptr_t) ( ( /*nil */ NULL)); - MELT_LOCATION ("warmelt-base.melt:2363:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2364:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123199,18 +123199,18 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[3] = (melt_ptr_t) ( ( /*nil */ NULL)); - MELT_LOCATION ("warmelt-base.melt:2363:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2364:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2610*/ meltfptr[2609]); - MELT_LOCATION ("warmelt-base.melt:2363:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2364:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2610*/ meltfptr[2609], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2370:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2371:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -123222,7 +123222,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2612*/ meltfptr[2611])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V2560*/ meltfptr[2559]); - MELT_LOCATION ("warmelt-base.melt:2370:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2371:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123237,7 +123237,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2612*/ meltfptr[2611])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_DELAYED_QUEUE__V25*/ meltfptr[24]); - MELT_LOCATION ("warmelt-base.melt:2370:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2371:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123252,7 +123252,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2612*/ meltfptr[2611])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-base.melt:2370:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2371:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V2612*/ meltfptr[2611]); @@ -123272,7 +123272,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V2613*/ meltfptr[2612]); - MELT_LOCATION ("warmelt-base.melt:2394:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2395:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -123284,7 +123284,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2614*/ meltfptr[2613])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V2560*/ meltfptr[2559]); - MELT_LOCATION ("warmelt-base.melt:2394:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2395:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123299,7 +123299,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2614*/ meltfptr[2613])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_DELAYED_QUEUE__V25*/ meltfptr[24]); - MELT_LOCATION ("warmelt-base.melt:2394:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2395:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123314,7 +123314,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2614*/ meltfptr[2613])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-base.melt:2394:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2395:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123329,7 +123329,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2614*/ meltfptr[2613])->tabval[3] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V21*/ meltfptr[20]); - MELT_LOCATION ("warmelt-base.melt:2394:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2395:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -123341,7 +123341,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2614*/ meltfptr[2613])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V2613*/ meltfptr[2612]); - MELT_LOCATION ("warmelt-base.melt:2394:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2395:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123356,7 +123356,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2614*/ meltfptr[2613])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-base.melt:2394:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2395:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V2614*/ meltfptr[2613]); @@ -123376,7 +123376,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V2615*/ meltfptr[2614]); - MELT_LOCATION ("warmelt-base.melt:2419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2421:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -123388,7 +123388,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2616*/ meltfptr[2615])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V2560*/ meltfptr[2559]); - MELT_LOCATION ("warmelt-base.melt:2419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2421:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123403,7 +123403,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2616*/ meltfptr[2615])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_DELAYED_QUEUE__V25*/ meltfptr[24]); - MELT_LOCATION ("warmelt-base.melt:2419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2421:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123418,7 +123418,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2616*/ meltfptr[2615])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-base.melt:2419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2421:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123433,7 +123433,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2616*/ meltfptr[2615])->tabval[3] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V21*/ meltfptr[20]); - MELT_LOCATION ("warmelt-base.melt:2419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2421:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -123445,7 +123445,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2616*/ meltfptr[2615])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V2613*/ meltfptr[2612]); - MELT_LOCATION ("warmelt-base.melt:2419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2421:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123460,7 +123460,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2616*/ meltfptr[2615])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-base.melt:2419:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2421:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V2616*/ meltfptr[2615]); @@ -123503,7 +123503,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2618*/ meltfptr[2617], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2449:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2452:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123521,7 +123521,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2621*/ meltfptr[2620]); - MELT_LOCATION ("warmelt-base.melt:2449:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2452:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123539,7 +123539,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[2] = (melt_ptr_t) ( ( /*nil */ NULL)); - MELT_LOCATION ("warmelt-base.melt:2449:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2452:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123557,18 +123557,18 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[3] = (melt_ptr_t) ( ( /*nil */ NULL)); - MELT_LOCATION ("warmelt-base.melt:2449:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2452:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2620*/ meltfptr[2619]); - MELT_LOCATION ("warmelt-base.melt:2449:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2452:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2620*/ meltfptr[2619], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2456:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2459:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -123580,7 +123580,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2622*/ meltfptr[2621])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V2560*/ meltfptr[2559]); - MELT_LOCATION ("warmelt-base.melt:2456:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2459:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123595,7 +123595,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2622*/ meltfptr[2621])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_DELAYED_QUEUE__V25*/ meltfptr[24]); - MELT_LOCATION ("warmelt-base.melt:2456:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2459:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123610,7 +123610,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2622*/ meltfptr[2621])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-base.melt:2456:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2459:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V2622*/ meltfptr[2621]); @@ -123630,7 +123630,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V2623*/ meltfptr[2622]); - MELT_LOCATION ("warmelt-base.melt:2480:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2483:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -123642,7 +123642,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2624*/ meltfptr[2623])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V2560*/ meltfptr[2559]); - MELT_LOCATION ("warmelt-base.melt:2480:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2483:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123657,7 +123657,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2624*/ meltfptr[2623])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_DELAYED_QUEUE__V25*/ meltfptr[24]); - MELT_LOCATION ("warmelt-base.melt:2480:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2483:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123672,7 +123672,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2624*/ meltfptr[2623])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-base.melt:2480:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2483:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123687,7 +123687,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2624*/ meltfptr[2623])->tabval[3] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V21*/ meltfptr[20]); - MELT_LOCATION ("warmelt-base.melt:2480:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2483:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -123699,7 +123699,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2624*/ meltfptr[2623])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V2623*/ meltfptr[2622]); - MELT_LOCATION ("warmelt-base.melt:2480:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2483:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123714,7 +123714,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2624*/ meltfptr[2623])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-base.melt:2480:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2483:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V2624*/ meltfptr[2623]); @@ -123734,7 +123734,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V2625*/ meltfptr[2624]); - MELT_LOCATION ("warmelt-base.melt:2505:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2509:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -123746,7 +123746,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2626*/ meltfptr[2625])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V2560*/ meltfptr[2559]); - MELT_LOCATION ("warmelt-base.melt:2505:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2509:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123761,7 +123761,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2626*/ meltfptr[2625])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_DELAYED_QUEUE__V25*/ meltfptr[24]); - MELT_LOCATION ("warmelt-base.melt:2505:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2509:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123776,7 +123776,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2626*/ meltfptr[2625])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-base.melt:2505:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2509:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123791,7 +123791,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2626*/ meltfptr[2625])->tabval[3] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V21*/ meltfptr[20]); - MELT_LOCATION ("warmelt-base.melt:2505:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2509:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -123803,7 +123803,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2626*/ meltfptr[2625])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V2623*/ meltfptr[2622]); - MELT_LOCATION ("warmelt-base.melt:2505:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2509:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -123818,7 +123818,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2626*/ meltfptr[2625])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-base.melt:2505:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2509:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V2626*/ meltfptr[2625]); @@ -123861,7 +123861,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2628*/ meltfptr[2627], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123879,7 +123879,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2631*/ meltfptr[2630]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123950,7 +123950,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2632*/ meltfptr[2631]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123968,7 +123968,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V2632*/ meltfptr[2631]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -123986,7 +123986,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2634*/ meltfptr[2633]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124004,18 +124004,18 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V2630*/ meltfptr[2629]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2633*/ meltfptr[2632]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2633*/ meltfptr[2632], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124033,7 +124033,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2636*/ meltfptr[2635]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124051,18 +124051,18 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V2630*/ meltfptr[2629]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2635*/ meltfptr[2634]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2635*/ meltfptr[2634], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124080,7 +124080,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2638*/ meltfptr[2637]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124098,18 +124098,18 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V2630*/ meltfptr[2629]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2637*/ meltfptr[2636]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2637*/ meltfptr[2636], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124127,7 +124127,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2640*/ meltfptr[2639]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124145,18 +124145,18 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V2630*/ meltfptr[2629]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2639*/ meltfptr[2638]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2639*/ meltfptr[2638], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124174,7 +124174,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2642*/ meltfptr[2641]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124192,18 +124192,18 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V2630*/ meltfptr[2629]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2641*/ meltfptr[2640]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2641*/ meltfptr[2640], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124221,7 +124221,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2644*/ meltfptr[2643]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124239,18 +124239,18 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V2630*/ meltfptr[2629]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2643*/ meltfptr[2642]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2643*/ meltfptr[2642], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124268,7 +124268,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2646*/ meltfptr[2645]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124286,18 +124286,18 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V2630*/ meltfptr[2629]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2645*/ meltfptr[2644]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2645*/ meltfptr[2644], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124315,7 +124315,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2648*/ meltfptr[2647]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124333,18 +124333,18 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V2630*/ meltfptr[2629]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2647*/ meltfptr[2646]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2647*/ meltfptr[2646], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124362,7 +124362,7 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2650*/ meltfptr[2649]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124380,12 +124380,12 @@ meltmod__warmelt_base__initialmeltchunk_45 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V2630*/ meltfptr[2629]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2649*/ meltfptr[2648]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2649*/ meltfptr[2648], @@ -124570,7 +124570,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2651*/ meltfptr[2650]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124588,12 +124588,12 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V2651*/ meltfptr[2650]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2630*/ meltfptr[2629]); - MELT_LOCATION ("warmelt-base.melt:2534:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2539:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2630*/ meltfptr[2629], @@ -124829,7 +124829,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2670*/ meltfptr[2669], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2562:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2567:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124847,7 +124847,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2673*/ meltfptr[2672]); - MELT_LOCATION ("warmelt-base.melt:2562:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2567:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -124932,7 +124932,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2674*/ meltfptr[2673]); - MELT_LOCATION ("warmelt-base.melt:2562:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2567:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125115,7 +125115,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2675*/ meltfptr[2674]); - MELT_LOCATION ("warmelt-base.melt:2562:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2567:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125133,18 +125133,18 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V2675*/ meltfptr[2674]); - MELT_LOCATION ("warmelt-base.melt:2562:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2567:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2672*/ meltfptr[2671]); - MELT_LOCATION ("warmelt-base.melt:2562:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2567:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2672*/ meltfptr[2671], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2574:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2579:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -125158,7 +125158,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2676*/ meltfptr[2675])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-base.melt:2574:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2579:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V2676*/ meltfptr[2675]); @@ -125204,7 +125204,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct /*_.MAKE_LIST__V2681*/ meltfptr[2680] = (meltgc_new_list ((meltobject_ptr_t) ( /*_.DISCR_LIST__V26*/ meltfptr[25]))); - MELT_LOCATION ("warmelt-base.melt:2581:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2586:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125222,18 +125222,18 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[0] = (melt_ptr_t) ( /*_.MAKE_LIST__V2681*/ meltfptr[2680]); - MELT_LOCATION ("warmelt-base.melt:2581:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2586:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2680*/ meltfptr[2679]); - MELT_LOCATION ("warmelt-base.melt:2581:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2586:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2680*/ meltfptr[2679], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2586:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2591:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -125245,7 +125245,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2682*/ meltfptr[2681])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V2630*/ meltfptr[2629]); - MELT_LOCATION ("warmelt-base.melt:2586:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2591:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -125257,7 +125257,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2682*/ meltfptr[2681])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V2680*/ meltfptr[2679]); - MELT_LOCATION ("warmelt-base.melt:2586:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2591:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -125272,7 +125272,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2682*/ meltfptr[2681])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-base.melt:2586:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2591:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V2682*/ meltfptr[2681]); @@ -125292,7 +125292,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V2683*/ meltfptr[2682]); - MELT_LOCATION ("warmelt-base.melt:2591:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -125304,7 +125304,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2684*/ meltfptr[2683])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V2680*/ meltfptr[2679]); - MELT_LOCATION ("warmelt-base.melt:2591:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -125319,7 +125319,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct ((meltroutine_ptr_t) /*_.VALROUT___V2684*/ meltfptr[2683])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-base.melt:2591:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V2684*/ meltfptr[2683]); @@ -125362,7 +125362,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2686*/ meltfptr[2685], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2601:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125380,7 +125380,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2689*/ meltfptr[2688]); - MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2601:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125398,7 +125398,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2690*/ meltfptr[2689]); - MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2601:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125416,7 +125416,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2691*/ meltfptr[2690]); - MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2601:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125434,7 +125434,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2692*/ meltfptr[2691]); - MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2601:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125452,7 +125452,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2693*/ meltfptr[2692]); - MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2601:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125470,7 +125470,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2694*/ meltfptr[2693]); - MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2601:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125488,7 +125488,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2695*/ meltfptr[2694]); - MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2601:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125506,7 +125506,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2696*/ meltfptr[2695]); - MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2601:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125524,12 +125524,12 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALSTR___V2697*/ meltfptr[2696]); - MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2601:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2688*/ meltfptr[2687]); - MELT_LOCATION ("warmelt-base.melt:2596:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2601:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2688*/ meltfptr[2687], @@ -125558,7 +125558,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2698*/ meltfptr[2697], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2715:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125576,7 +125576,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2701*/ meltfptr[2700]); - MELT_LOCATION ("warmelt-base.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2715:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125594,7 +125594,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2702*/ meltfptr[2701]); - MELT_LOCATION ("warmelt-base.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2715:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125612,7 +125612,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2703*/ meltfptr[2702]); - MELT_LOCATION ("warmelt-base.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2715:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125630,7 +125630,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2704*/ meltfptr[2703]); - MELT_LOCATION ("warmelt-base.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2715:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125648,7 +125648,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2705*/ meltfptr[2704]); - MELT_LOCATION ("warmelt-base.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2715:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125666,7 +125666,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2706*/ meltfptr[2705]); - MELT_LOCATION ("warmelt-base.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2715:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125684,7 +125684,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2707*/ meltfptr[2706]); - MELT_LOCATION ("warmelt-base.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2715:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125702,7 +125702,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2708*/ meltfptr[2707]); - MELT_LOCATION ("warmelt-base.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2715:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125720,12 +125720,12 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALSTR___V2709*/ meltfptr[2708]); - MELT_LOCATION ("warmelt-base.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2715:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2700*/ meltfptr[2699]); - MELT_LOCATION ("warmelt-base.melt:2710:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2715:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2700*/ meltfptr[2699], @@ -125754,7 +125754,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2710*/ meltfptr[2709], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2815:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2820:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125772,7 +125772,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2713*/ meltfptr[2712]); - MELT_LOCATION ("warmelt-base.melt:2815:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2820:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125790,7 +125790,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2714*/ meltfptr[2713]); - MELT_LOCATION ("warmelt-base.melt:2815:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2820:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125808,7 +125808,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2715*/ meltfptr[2714]); - MELT_LOCATION ("warmelt-base.melt:2815:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2820:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125826,7 +125826,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2716*/ meltfptr[2715]); - MELT_LOCATION ("warmelt-base.melt:2815:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2820:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125844,7 +125844,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2717*/ meltfptr[2716]); - MELT_LOCATION ("warmelt-base.melt:2815:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2820:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125862,7 +125862,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2718*/ meltfptr[2717]); - MELT_LOCATION ("warmelt-base.melt:2815:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2820:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125880,7 +125880,7 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2719*/ meltfptr[2718]); - MELT_LOCATION ("warmelt-base.melt:2815:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2820:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125898,12 +125898,12 @@ meltmod__warmelt_base__initialmeltchunk_46 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALSTR___V2720*/ meltfptr[2719]); - MELT_LOCATION ("warmelt-base.melt:2815:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2820:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2712*/ meltfptr[2711]); - MELT_LOCATION ("warmelt-base.melt:2815:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2820:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2712*/ meltfptr[2711], @@ -125946,7 +125946,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2721*/ meltfptr[2720], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2915:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2920:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125964,7 +125964,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2724*/ meltfptr[2723]); - MELT_LOCATION ("warmelt-base.melt:2915:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2920:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -125982,7 +125982,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2725*/ meltfptr[2724]); - MELT_LOCATION ("warmelt-base.melt:2915:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2920:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126000,7 +126000,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2726*/ meltfptr[2725]); - MELT_LOCATION ("warmelt-base.melt:2915:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2920:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126018,7 +126018,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2727*/ meltfptr[2726]); - MELT_LOCATION ("warmelt-base.melt:2915:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2920:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126036,7 +126036,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2728*/ meltfptr[2727]); - MELT_LOCATION ("warmelt-base.melt:2915:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2920:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126054,7 +126054,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2729*/ meltfptr[2728]); - MELT_LOCATION ("warmelt-base.melt:2915:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2920:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126072,7 +126072,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2730*/ meltfptr[2729]); - MELT_LOCATION ("warmelt-base.melt:2915:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2920:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126113,7 +126113,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2732*/ meltfptr[2731], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2915:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2920:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126131,12 +126131,12 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALDATA___V2732*/ meltfptr[2731]); - MELT_LOCATION ("warmelt-base.melt:2915:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2920:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2723*/ meltfptr[2722]); - MELT_LOCATION ("warmelt-base.melt:2915:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2920:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2723*/ meltfptr[2722], @@ -126165,7 +126165,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2734*/ meltfptr[2733], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:2943:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2948:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126183,7 +126183,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2737*/ meltfptr[2736]); - MELT_LOCATION ("warmelt-base.melt:2943:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2948:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126201,7 +126201,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2738*/ meltfptr[2737]); - MELT_LOCATION ("warmelt-base.melt:2943:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2948:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126219,7 +126219,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2739*/ meltfptr[2738]); - MELT_LOCATION ("warmelt-base.melt:2943:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2948:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126237,7 +126237,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2740*/ meltfptr[2739]); - MELT_LOCATION ("warmelt-base.melt:2943:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2948:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126255,7 +126255,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2741*/ meltfptr[2740]); - MELT_LOCATION ("warmelt-base.melt:2943:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2948:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126273,7 +126273,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2742*/ meltfptr[2741]); - MELT_LOCATION ("warmelt-base.melt:2943:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2948:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126291,7 +126291,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2743*/ meltfptr[2742]); - MELT_LOCATION ("warmelt-base.melt:2943:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2948:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126309,7 +126309,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2744*/ meltfptr[2743]); - MELT_LOCATION ("warmelt-base.melt:2943:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2948:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126327,12 +126327,12 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALSTR___V2745*/ meltfptr[2744]); - MELT_LOCATION ("warmelt-base.melt:2943:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2948:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2736*/ meltfptr[2735]); - MELT_LOCATION ("warmelt-base.melt:2943:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2948:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2736*/ meltfptr[2735], @@ -126361,7 +126361,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2746*/ meltfptr[2745], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3000:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3005:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126379,7 +126379,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2749*/ meltfptr[2748]); - MELT_LOCATION ("warmelt-base.melt:3000:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3005:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126397,7 +126397,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2750*/ meltfptr[2749]); - MELT_LOCATION ("warmelt-base.melt:3000:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3005:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126415,7 +126415,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2751*/ meltfptr[2750]); - MELT_LOCATION ("warmelt-base.melt:3000:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3005:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126433,7 +126433,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2752*/ meltfptr[2751]); - MELT_LOCATION ("warmelt-base.melt:3000:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3005:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126451,7 +126451,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2753*/ meltfptr[2752]); - MELT_LOCATION ("warmelt-base.melt:3000:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3005:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126469,7 +126469,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2754*/ meltfptr[2753]); - MELT_LOCATION ("warmelt-base.melt:3000:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3005:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126487,7 +126487,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2755*/ meltfptr[2754]); - MELT_LOCATION ("warmelt-base.melt:3000:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3005:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126505,7 +126505,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2756*/ meltfptr[2755]); - MELT_LOCATION ("warmelt-base.melt:3000:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3005:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126523,12 +126523,12 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALSTR___V2757*/ meltfptr[2756]); - MELT_LOCATION ("warmelt-base.melt:3000:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3005:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2748*/ meltfptr[2747]); - MELT_LOCATION ("warmelt-base.melt:3000:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3005:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2748*/ meltfptr[2747], @@ -126557,7 +126557,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2758*/ meltfptr[2757], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3059:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3064:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126575,7 +126575,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2761*/ meltfptr[2760]); - MELT_LOCATION ("warmelt-base.melt:3059:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3064:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126593,7 +126593,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2762*/ meltfptr[2761]); - MELT_LOCATION ("warmelt-base.melt:3059:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3064:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126611,7 +126611,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2763*/ meltfptr[2762]); - MELT_LOCATION ("warmelt-base.melt:3059:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3064:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126629,7 +126629,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2764*/ meltfptr[2763]); - MELT_LOCATION ("warmelt-base.melt:3059:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3064:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126647,7 +126647,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2765*/ meltfptr[2764]); - MELT_LOCATION ("warmelt-base.melt:3059:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3064:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126665,7 +126665,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2766*/ meltfptr[2765]); - MELT_LOCATION ("warmelt-base.melt:3059:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3064:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126683,7 +126683,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2767*/ meltfptr[2766]); - MELT_LOCATION ("warmelt-base.melt:3059:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3064:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126701,12 +126701,12 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2768*/ meltfptr[2767]); - MELT_LOCATION ("warmelt-base.melt:3059:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3064:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2760*/ meltfptr[2759]); - MELT_LOCATION ("warmelt-base.melt:3059:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3064:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2760*/ meltfptr[2759], @@ -126735,7 +126735,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2769*/ meltfptr[2768], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3126:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3131:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126753,7 +126753,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2772*/ meltfptr[2771]); - MELT_LOCATION ("warmelt-base.melt:3126:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3131:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126771,7 +126771,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2773*/ meltfptr[2772]); - MELT_LOCATION ("warmelt-base.melt:3126:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3131:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126789,7 +126789,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2774*/ meltfptr[2773]); - MELT_LOCATION ("warmelt-base.melt:3126:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3131:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126807,7 +126807,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2775*/ meltfptr[2774]); - MELT_LOCATION ("warmelt-base.melt:3126:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3131:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126825,7 +126825,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2776*/ meltfptr[2775]); - MELT_LOCATION ("warmelt-base.melt:3126:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3131:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126843,7 +126843,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2777*/ meltfptr[2776]); - MELT_LOCATION ("warmelt-base.melt:3126:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3131:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126861,7 +126861,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2778*/ meltfptr[2777]); - MELT_LOCATION ("warmelt-base.melt:3126:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3131:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126879,7 +126879,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2779*/ meltfptr[2778]); - MELT_LOCATION ("warmelt-base.melt:3126:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3131:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126897,12 +126897,12 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALSTR___V2780*/ meltfptr[2779]); - MELT_LOCATION ("warmelt-base.melt:3126:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3131:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2771*/ meltfptr[2770]); - MELT_LOCATION ("warmelt-base.melt:3126:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3131:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2771*/ meltfptr[2770], @@ -126931,7 +126931,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2781*/ meltfptr[2780], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3215:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126949,7 +126949,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2784*/ meltfptr[2783]); - MELT_LOCATION ("warmelt-base.melt:3215:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126967,7 +126967,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2785*/ meltfptr[2784]); - MELT_LOCATION ("warmelt-base.melt:3215:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -126985,7 +126985,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2786*/ meltfptr[2785]); - MELT_LOCATION ("warmelt-base.melt:3215:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127003,7 +127003,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2787*/ meltfptr[2786]); - MELT_LOCATION ("warmelt-base.melt:3215:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127021,7 +127021,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2788*/ meltfptr[2787]); - MELT_LOCATION ("warmelt-base.melt:3215:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127039,7 +127039,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2789*/ meltfptr[2788]); - MELT_LOCATION ("warmelt-base.melt:3215:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127057,7 +127057,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2790*/ meltfptr[2789]); - MELT_LOCATION ("warmelt-base.melt:3215:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127075,12 +127075,12 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALSTR___V2791*/ meltfptr[2790]); - MELT_LOCATION ("warmelt-base.melt:3215:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2783*/ meltfptr[2782]); - MELT_LOCATION ("warmelt-base.melt:3215:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3220:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2783*/ meltfptr[2782], @@ -127109,7 +127109,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2792*/ meltfptr[2791], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3258:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3263:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127127,7 +127127,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2795*/ meltfptr[2794]); - MELT_LOCATION ("warmelt-base.melt:3258:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3263:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127145,7 +127145,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2796*/ meltfptr[2795]); - MELT_LOCATION ("warmelt-base.melt:3258:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3263:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127163,7 +127163,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2797*/ meltfptr[2796]); - MELT_LOCATION ("warmelt-base.melt:3258:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3263:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127181,7 +127181,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2798*/ meltfptr[2797]); - MELT_LOCATION ("warmelt-base.melt:3258:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3263:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127199,7 +127199,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2799*/ meltfptr[2798]); - MELT_LOCATION ("warmelt-base.melt:3258:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3263:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127217,7 +127217,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2800*/ meltfptr[2799]); - MELT_LOCATION ("warmelt-base.melt:3258:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3263:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127235,12 +127235,12 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALSTR___V2801*/ meltfptr[2800]); - MELT_LOCATION ("warmelt-base.melt:3258:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3263:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2794*/ meltfptr[2793]); - MELT_LOCATION ("warmelt-base.melt:3258:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3263:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2794*/ meltfptr[2793], @@ -127269,7 +127269,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2802*/ meltfptr[2801], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3315:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3320:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127287,7 +127287,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2805*/ meltfptr[2804]); - MELT_LOCATION ("warmelt-base.melt:3315:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3320:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127305,7 +127305,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2806*/ meltfptr[2805]); - MELT_LOCATION ("warmelt-base.melt:3315:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3320:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127323,7 +127323,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2807*/ meltfptr[2806]); - MELT_LOCATION ("warmelt-base.melt:3315:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3320:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127341,7 +127341,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2808*/ meltfptr[2807]); - MELT_LOCATION ("warmelt-base.melt:3315:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3320:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127359,7 +127359,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2809*/ meltfptr[2808]); - MELT_LOCATION ("warmelt-base.melt:3315:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3320:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127377,7 +127377,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2810*/ meltfptr[2809]); - MELT_LOCATION ("warmelt-base.melt:3315:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3320:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127395,7 +127395,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2811*/ meltfptr[2810]); - MELT_LOCATION ("warmelt-base.melt:3315:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3320:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127413,7 +127413,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2812*/ meltfptr[2811]); - MELT_LOCATION ("warmelt-base.melt:3315:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3320:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127431,7 +127431,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2813*/ meltfptr[2812]); - MELT_LOCATION ("warmelt-base.melt:3315:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3320:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127449,12 +127449,12 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALDATA___V2732*/ meltfptr[2731]); - MELT_LOCATION ("warmelt-base.melt:3315:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3320:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2804*/ meltfptr[2803]); - MELT_LOCATION ("warmelt-base.melt:3315:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3320:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2804*/ meltfptr[2803], @@ -127483,7 +127483,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2814*/ meltfptr[2813], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3348:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3353:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127501,7 +127501,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2817*/ meltfptr[2816]); - MELT_LOCATION ("warmelt-base.melt:3348:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3353:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127519,7 +127519,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2818*/ meltfptr[2817]); - MELT_LOCATION ("warmelt-base.melt:3348:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3353:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127537,7 +127537,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2819*/ meltfptr[2818]); - MELT_LOCATION ("warmelt-base.melt:3348:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3353:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127555,7 +127555,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2820*/ meltfptr[2819]); - MELT_LOCATION ("warmelt-base.melt:3348:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3353:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127573,7 +127573,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2821*/ meltfptr[2820]); - MELT_LOCATION ("warmelt-base.melt:3348:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3353:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127591,7 +127591,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2822*/ meltfptr[2821]); - MELT_LOCATION ("warmelt-base.melt:3348:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3353:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127609,7 +127609,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2823*/ meltfptr[2822]); - MELT_LOCATION ("warmelt-base.melt:3348:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3353:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127627,7 +127627,7 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2824*/ meltfptr[2823]); - MELT_LOCATION ("warmelt-base.melt:3348:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3353:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127645,12 +127645,12 @@ meltmod__warmelt_base__initialmeltchunk_47 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALSTR___V2825*/ meltfptr[2824]); - MELT_LOCATION ("warmelt-base.melt:3348:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3353:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2816*/ meltfptr[2815]); - MELT_LOCATION ("warmelt-base.melt:3348:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3353:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2816*/ meltfptr[2815], @@ -127693,7 +127693,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-base.melt:3399:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3404:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127711,7 +127711,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2829*/ meltfptr[2828]); - MELT_LOCATION ("warmelt-base.melt:3399:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3404:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127729,7 +127729,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2830*/ meltfptr[2829]); - MELT_LOCATION ("warmelt-base.melt:3399:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3404:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127747,7 +127747,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2831*/ meltfptr[2830]); - MELT_LOCATION ("warmelt-base.melt:3399:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3404:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127765,7 +127765,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2832*/ meltfptr[2831]); - MELT_LOCATION ("warmelt-base.melt:3399:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3404:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127783,7 +127783,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2833*/ meltfptr[2832]); - MELT_LOCATION ("warmelt-base.melt:3399:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3404:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127801,7 +127801,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[7] = (melt_ptr_t) ( /*_.VALSTR___V2834*/ meltfptr[2833]); - MELT_LOCATION ("warmelt-base.melt:3399:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3404:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127819,7 +127819,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2835*/ meltfptr[2834]); - MELT_LOCATION ("warmelt-base.melt:3399:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3404:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127837,12 +127837,12 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALDATA___V2732*/ meltfptr[2731]); - MELT_LOCATION ("warmelt-base.melt:3399:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3404:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2828*/ meltfptr[2827]); - MELT_LOCATION ("warmelt-base.melt:3399:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3404:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2828*/ meltfptr[2827], @@ -127871,7 +127871,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2836*/ meltfptr[2835], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3429:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3434:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127889,7 +127889,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2839*/ meltfptr[2838]); - MELT_LOCATION ("warmelt-base.melt:3429:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3434:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127907,7 +127907,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2840*/ meltfptr[2839]); - MELT_LOCATION ("warmelt-base.melt:3429:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3434:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127925,7 +127925,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2841*/ meltfptr[2840]); - MELT_LOCATION ("warmelt-base.melt:3429:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3434:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127943,7 +127943,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2842*/ meltfptr[2841]); - MELT_LOCATION ("warmelt-base.melt:3429:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3434:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127961,7 +127961,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2843*/ meltfptr[2842]); - MELT_LOCATION ("warmelt-base.melt:3429:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3434:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127979,7 +127979,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2844*/ meltfptr[2843]); - MELT_LOCATION ("warmelt-base.melt:3429:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3434:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -127997,7 +127997,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2845*/ meltfptr[2844]); - MELT_LOCATION ("warmelt-base.melt:3429:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3434:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128015,12 +128015,12 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALDATA___V2732*/ meltfptr[2731]); - MELT_LOCATION ("warmelt-base.melt:3429:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3434:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2838*/ meltfptr[2837]); - MELT_LOCATION ("warmelt-base.melt:3429:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3434:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2838*/ meltfptr[2837], @@ -128049,7 +128049,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2846*/ meltfptr[2845], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3457:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3462:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128067,7 +128067,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2849*/ meltfptr[2848]); - MELT_LOCATION ("warmelt-base.melt:3457:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3462:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128085,7 +128085,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2850*/ meltfptr[2849]); - MELT_LOCATION ("warmelt-base.melt:3457:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3462:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128103,7 +128103,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2851*/ meltfptr[2850]); - MELT_LOCATION ("warmelt-base.melt:3457:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3462:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128121,7 +128121,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2852*/ meltfptr[2851]); - MELT_LOCATION ("warmelt-base.melt:3457:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3462:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128139,7 +128139,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2853*/ meltfptr[2852]); - MELT_LOCATION ("warmelt-base.melt:3457:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3462:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128157,7 +128157,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2854*/ meltfptr[2853]); - MELT_LOCATION ("warmelt-base.melt:3457:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3462:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128175,7 +128175,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2855*/ meltfptr[2854]); - MELT_LOCATION ("warmelt-base.melt:3457:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3462:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128193,12 +128193,12 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALDATA___V2732*/ meltfptr[2731]); - MELT_LOCATION ("warmelt-base.melt:3457:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3462:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2848*/ meltfptr[2847]); - MELT_LOCATION ("warmelt-base.melt:3457:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3462:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2848*/ meltfptr[2847], @@ -128227,7 +128227,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2856*/ meltfptr[2855], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3491:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128245,7 +128245,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2859*/ meltfptr[2858]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3491:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128263,7 +128263,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2860*/ meltfptr[2859]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3491:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128281,7 +128281,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2861*/ meltfptr[2860]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3491:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128299,7 +128299,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2862*/ meltfptr[2861]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3491:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128317,7 +128317,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2863*/ meltfptr[2862]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3491:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128335,7 +128335,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2864*/ meltfptr[2863]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3491:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128353,12 +128353,12 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2865*/ meltfptr[2864]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3491:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2858*/ meltfptr[2857]); - MELT_LOCATION ("warmelt-base.melt:3486:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3491:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2858*/ meltfptr[2857], @@ -128387,7 +128387,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2866*/ meltfptr[2865], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3525:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3530:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128405,7 +128405,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2869*/ meltfptr[2868]); - MELT_LOCATION ("warmelt-base.melt:3525:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3530:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128423,7 +128423,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2870*/ meltfptr[2869]); - MELT_LOCATION ("warmelt-base.melt:3525:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3530:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128441,7 +128441,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2871*/ meltfptr[2870]); - MELT_LOCATION ("warmelt-base.melt:3525:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3530:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128459,7 +128459,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2872*/ meltfptr[2871]); - MELT_LOCATION ("warmelt-base.melt:3525:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3530:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128477,7 +128477,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2873*/ meltfptr[2872]); - MELT_LOCATION ("warmelt-base.melt:3525:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3530:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128495,7 +128495,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2874*/ meltfptr[2873]); - MELT_LOCATION ("warmelt-base.melt:3525:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3530:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128513,12 +128513,12 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[10] = (melt_ptr_t) ( /*_.VALDATA___V2732*/ meltfptr[2731]); - MELT_LOCATION ("warmelt-base.melt:3525:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3530:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2868*/ meltfptr[2867]); - MELT_LOCATION ("warmelt-base.melt:3525:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3530:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2868*/ meltfptr[2867], @@ -128547,7 +128547,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2875*/ meltfptr[2874], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3549:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3554:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128565,7 +128565,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2878*/ meltfptr[2877]); - MELT_LOCATION ("warmelt-base.melt:3549:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3554:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128583,7 +128583,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V2879*/ meltfptr[2878]); - MELT_LOCATION ("warmelt-base.melt:3549:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3554:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128601,7 +128601,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[3] = (melt_ptr_t) ( /*_.VALSTR___V2880*/ meltfptr[2879]); - MELT_LOCATION ("warmelt-base.melt:3549:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3554:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128619,7 +128619,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALSTR___V2881*/ meltfptr[2880]); - MELT_LOCATION ("warmelt-base.melt:3549:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3554:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128637,7 +128637,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[5] = (melt_ptr_t) ( /*_.VALSTR___V2882*/ meltfptr[2881]); - MELT_LOCATION ("warmelt-base.melt:3549:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3554:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128655,7 +128655,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALSTR___V2883*/ meltfptr[2882]); - MELT_LOCATION ("warmelt-base.melt:3549:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3554:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128673,7 +128673,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[8] = (melt_ptr_t) ( /*_.VALSTR___V2884*/ meltfptr[2883]); - MELT_LOCATION ("warmelt-base.melt:3549:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3554:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128691,12 +128691,12 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[9] = (melt_ptr_t) ( /*_.VALSTR___V2885*/ meltfptr[2884]); - MELT_LOCATION ("warmelt-base.melt:3549:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3554:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2877*/ meltfptr[2876]); - MELT_LOCATION ("warmelt-base.melt:3549:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3554:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2877*/ meltfptr[2876], @@ -128740,7 +128740,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2888*/ meltfptr[2887], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3623:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3628:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128761,7 +128761,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2892*/ meltfptr[2891]); - MELT_LOCATION ("warmelt-base.melt:3623:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3628:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128779,7 +128779,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V2892*/ meltfptr[2891]); - MELT_LOCATION ("warmelt-base.melt:3623:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3628:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128815,7 +128815,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2894*/ meltfptr[2893]); - MELT_LOCATION ("warmelt-base.melt:3623:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3628:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128833,12 +128833,12 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V2894*/ meltfptr[2893]); - MELT_LOCATION ("warmelt-base.melt:3623:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3628:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2890*/ meltfptr[2889]); - MELT_LOCATION ("warmelt-base.melt:3623:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3628:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2890*/ meltfptr[2889], @@ -128867,7 +128867,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2895*/ meltfptr[2894], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3637:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3642:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128888,7 +128888,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2899*/ meltfptr[2898]); - MELT_LOCATION ("warmelt-base.melt:3637:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3642:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128906,7 +128906,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V2899*/ meltfptr[2898]); - MELT_LOCATION ("warmelt-base.melt:3637:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3642:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128942,7 +128942,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2901*/ meltfptr[2900]); - MELT_LOCATION ("warmelt-base.melt:3637:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3642:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -128960,12 +128960,12 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V2901*/ meltfptr[2900]); - MELT_LOCATION ("warmelt-base.melt:3637:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3642:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2897*/ meltfptr[2896]); - MELT_LOCATION ("warmelt-base.melt:3637:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3642:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2897*/ meltfptr[2896], @@ -128994,7 +128994,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2902*/ meltfptr[2901], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3652:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3657:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129035,7 +129035,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2907*/ meltfptr[2906], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3652:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3657:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129053,7 +129053,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V2907*/ meltfptr[2906]); - MELT_LOCATION ("warmelt-base.melt:3652:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3657:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129072,12 +129072,12 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-base.melt:3652:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3657:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2906*/ meltfptr[2905]); - MELT_LOCATION ("warmelt-base.melt:3652:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3657:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2906*/ meltfptr[2905], @@ -129100,7 +129100,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2909*/ meltfptr[2908]); - MELT_LOCATION ("warmelt-base.melt:3652:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3657:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129118,7 +129118,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V2909*/ meltfptr[2908]); - MELT_LOCATION ("warmelt-base.melt:3652:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3657:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129210,7 +129210,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2913*/ meltfptr[2912]); - MELT_LOCATION ("warmelt-base.melt:3652:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3657:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129228,12 +129228,12 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V2913*/ meltfptr[2912]); - MELT_LOCATION ("warmelt-base.melt:3652:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3657:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2904*/ meltfptr[2903]); - MELT_LOCATION ("warmelt-base.melt:3652:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3657:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2904*/ meltfptr[2903], @@ -129262,7 +129262,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2914*/ meltfptr[2913], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3677:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129280,7 +129280,7 @@ meltmod__warmelt_base__initialmeltchunk_48 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2917*/ meltfptr[2916]); - MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3677:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129312,7 +129312,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3677:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129331,12 +129331,12 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3677:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2918*/ meltfptr[2917]); - MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3677:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2918*/ meltfptr[2917], @@ -129359,7 +129359,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2919*/ meltfptr[2918]); - MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3677:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129377,7 +129377,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V2919*/ meltfptr[2918]); - MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3677:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129525,7 +129525,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2925*/ meltfptr[2924]); - MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3677:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129543,12 +129543,12 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V2925*/ meltfptr[2924]); - MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3677:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2916*/ meltfptr[2915]); - MELT_LOCATION ("warmelt-base.melt:3672:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3677:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2916*/ meltfptr[2915], @@ -129577,7 +129577,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2926*/ meltfptr[2925], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3688:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3693:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129595,7 +129595,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2929*/ meltfptr[2928]); - MELT_LOCATION ("warmelt-base.melt:3688:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3693:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129613,7 +129613,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V2907*/ meltfptr[2906]); - MELT_LOCATION ("warmelt-base.melt:3688:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3693:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129632,12 +129632,12 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-base.melt:3688:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3693:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2930*/ meltfptr[2929]); - MELT_LOCATION ("warmelt-base.melt:3688:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3693:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2930*/ meltfptr[2929], @@ -129660,7 +129660,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2931*/ meltfptr[2930]); - MELT_LOCATION ("warmelt-base.melt:3688:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3693:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129678,7 +129678,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V2931*/ meltfptr[2930]); - MELT_LOCATION ("warmelt-base.melt:3688:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3693:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129798,7 +129798,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2936*/ meltfptr[2935]); - MELT_LOCATION ("warmelt-base.melt:3688:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3693:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129816,12 +129816,12 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V2936*/ meltfptr[2935]); - MELT_LOCATION ("warmelt-base.melt:3688:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3693:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2928*/ meltfptr[2927]); - MELT_LOCATION ("warmelt-base.melt:3688:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3693:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2928*/ meltfptr[2927], @@ -129850,7 +129850,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2937*/ meltfptr[2936], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3704:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129891,7 +129891,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2942*/ meltfptr[2941], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3704:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129909,7 +129909,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V2942*/ meltfptr[2941]); - MELT_LOCATION ("warmelt-base.melt:3704:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129928,12 +129928,12 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-base.melt:3704:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2941*/ meltfptr[2940]); - MELT_LOCATION ("warmelt-base.melt:3704:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2941*/ meltfptr[2940], @@ -129956,7 +129956,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2944*/ meltfptr[2943]); - MELT_LOCATION ("warmelt-base.melt:3704:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -129974,7 +129974,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V2944*/ meltfptr[2943]); - MELT_LOCATION ("warmelt-base.melt:3704:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130038,7 +130038,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2947*/ meltfptr[2946]); - MELT_LOCATION ("warmelt-base.melt:3704:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130056,12 +130056,12 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V2947*/ meltfptr[2946]); - MELT_LOCATION ("warmelt-base.melt:3704:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2939*/ meltfptr[2938]); - MELT_LOCATION ("warmelt-base.melt:3704:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2939*/ meltfptr[2938], @@ -130090,7 +130090,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2948*/ meltfptr[2947], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130131,7 +130131,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2953*/ meltfptr[2952], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130149,7 +130149,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V2953*/ meltfptr[2952]); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130168,12 +130168,12 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2952*/ meltfptr[2951]); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2952*/ meltfptr[2951], @@ -130202,7 +130202,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2956*/ meltfptr[2955], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130220,7 +130220,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V2956*/ meltfptr[2955]); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130239,12 +130239,12 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2955*/ meltfptr[2954]); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2955*/ meltfptr[2954], @@ -130281,7 +130281,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2958*/ meltfptr[2957]); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130299,7 +130299,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V2958*/ meltfptr[2957]); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130391,7 +130391,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2962*/ meltfptr[2961]); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130409,12 +130409,12 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V2962*/ meltfptr[2961]); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2950*/ meltfptr[2949]); - MELT_LOCATION ("warmelt-base.melt:3709:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3714:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2950*/ meltfptr[2949], @@ -130443,7 +130443,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2963*/ meltfptr[2962], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3716:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3721:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130461,7 +130461,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V2966*/ meltfptr[2965]); - MELT_LOCATION ("warmelt-base.melt:3716:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3721:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130479,7 +130479,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V2061*/ meltfptr[2060]); - MELT_LOCATION ("warmelt-base.melt:3716:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3721:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130498,12 +130498,12 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct ((melt_ptr_t) (MELT_PREDEF (CTYPE_CSTRING)))); - MELT_LOCATION ("warmelt-base.melt:3716:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3721:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2967*/ meltfptr[2966]); - MELT_LOCATION ("warmelt-base.melt:3716:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3721:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2967*/ meltfptr[2966], @@ -130526,7 +130526,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2968*/ meltfptr[2967]); - MELT_LOCATION ("warmelt-base.melt:3716:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3721:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130544,7 +130544,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V2968*/ meltfptr[2967]); - MELT_LOCATION ("warmelt-base.melt:3716:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3721:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130608,7 +130608,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2971*/ meltfptr[2970]); - MELT_LOCATION ("warmelt-base.melt:3716:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3721:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130626,12 +130626,12 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V2971*/ meltfptr[2970]); - MELT_LOCATION ("warmelt-base.melt:3716:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3721:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2965*/ meltfptr[2964]); - MELT_LOCATION ("warmelt-base.melt:3716:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3721:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2965*/ meltfptr[2964], @@ -130660,7 +130660,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2972*/ meltfptr[2971], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3720:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130681,7 +130681,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2976*/ meltfptr[2975]); - MELT_LOCATION ("warmelt-base.melt:3720:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130699,7 +130699,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V2976*/ meltfptr[2975]); - MELT_LOCATION ("warmelt-base.melt:3720:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130735,7 +130735,7 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2978*/ meltfptr[2977]); - MELT_LOCATION ("warmelt-base.melt:3720:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130753,12 +130753,12 @@ meltmod__warmelt_base__initialmeltchunk_49 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V2978*/ meltfptr[2977]); - MELT_LOCATION ("warmelt-base.melt:3720:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2974*/ meltfptr[2973]); - MELT_LOCATION ("warmelt-base.melt:3720:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2974*/ meltfptr[2973], @@ -130778,7 +130778,7 @@ meltmod__warmelt_base__initialmeltchunk_50 (struct #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3730:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130799,7 +130799,7 @@ meltmod__warmelt_base__initialmeltchunk_50 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2981*/ meltfptr[2980]); - MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3730:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130840,7 +130840,7 @@ meltmod__warmelt_base__initialmeltchunk_50 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V2982*/ meltfptr[2981], "new static instance"); - MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3730:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130861,7 +130861,7 @@ meltmod__warmelt_base__initialmeltchunk_50 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2984*/ meltfptr[2983]); - MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3730:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -130980,7 +130980,7 @@ meltmod__warmelt_base__initialmeltchunk_50 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2989*/ meltfptr[2988]); - MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3730:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -131071,7 +131071,7 @@ meltmod__warmelt_base__initialmeltchunk_50 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V2993*/ meltfptr[2992]); - MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3730:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -131089,12 +131089,12 @@ meltmod__warmelt_base__initialmeltchunk_50 (struct obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V2993*/ meltfptr[2992]); - MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3730:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V2979*/ meltfptr[2978]); - MELT_LOCATION ("warmelt-base.melt:3725:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3730:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V2979*/ meltfptr[2978], @@ -132700,7 +132700,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_METHOD__V3112*/ meltfptr[3103] = 0; } - MELT_LOCATION ("warmelt-base.melt:2569:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2574:/ initchunk"); /*^block */ /*anyblock */ { @@ -132930,7 +132930,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.VALUEXPORTER___V3113*/ meltfptr[3101] = 0; } - MELT_LOCATION ("warmelt-base.melt:2706:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2711:/ initchunk"); /*^block */ /*anyblock */ { @@ -132955,7 +132955,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3114*/ meltfptr[3102] = 0; } - MELT_LOCATION ("warmelt-base.melt:2812:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2817:/ initchunk"); /*^block */ /*anyblock */ { @@ -132980,7 +132980,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3115*/ meltfptr[3103] = 0; } - MELT_LOCATION ("warmelt-base.melt:2911:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2916:/ initchunk"); /*^block */ /*anyblock */ { @@ -133005,7 +133005,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3116*/ meltfptr[3101] = 0; } - MELT_LOCATION ("warmelt-base.melt:2939:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:2944:/ initchunk"); /*^block */ /*anyblock */ { @@ -133030,7 +133030,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3117*/ meltfptr[3102] = 0; } - MELT_LOCATION ("warmelt-base.melt:2997:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3002:/ initchunk"); /*^block */ /*anyblock */ { @@ -133055,7 +133055,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3118*/ meltfptr[3103] = 0; } - MELT_LOCATION ("warmelt-base.melt:3056:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3061:/ initchunk"); /*^block */ /*anyblock */ { @@ -133080,7 +133080,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3119*/ meltfptr[3101] = 0; } - MELT_LOCATION ("warmelt-base.melt:3121:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3126:/ initchunk"); /*^block */ /*anyblock */ { @@ -133105,7 +133105,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3120*/ meltfptr[3102] = 0; } - MELT_LOCATION ("warmelt-base.melt:3211:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3216:/ initchunk"); /*^block */ /*anyblock */ { @@ -133130,7 +133130,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3121*/ meltfptr[3103] = 0; } - MELT_LOCATION ("warmelt-base.melt:3255:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3260:/ initchunk"); /*^block */ /*anyblock */ { @@ -133155,7 +133155,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3122*/ meltfptr[3101] = 0; } - MELT_LOCATION ("warmelt-base.melt:3311:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3316:/ initchunk"); /*^block */ /*anyblock */ { @@ -133180,7 +133180,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3123*/ meltfptr[3102] = 0; } - MELT_LOCATION ("warmelt-base.melt:3344:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3349:/ initchunk"); /*^block */ /*anyblock */ { @@ -133205,7 +133205,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3124*/ meltfptr[3103] = 0; } - MELT_LOCATION ("warmelt-base.melt:3396:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3401:/ initchunk"); /*^block */ /*anyblock */ { @@ -133230,7 +133230,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3125*/ meltfptr[3101] = 0; } - MELT_LOCATION ("warmelt-base.melt:3426:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3431:/ initchunk"); /*^block */ /*anyblock */ { @@ -133255,7 +133255,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3126*/ meltfptr[3102] = 0; } - MELT_LOCATION ("warmelt-base.melt:3454:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3459:/ initchunk"); /*^block */ /*anyblock */ { @@ -133280,7 +133280,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3127*/ meltfptr[3103] = 0; } - MELT_LOCATION ("warmelt-base.melt:3483:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3488:/ initchunk"); /*^block */ /*anyblock */ { @@ -133305,7 +133305,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3128*/ meltfptr[3101] = 0; } - MELT_LOCATION ("warmelt-base.melt:3522:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3527:/ initchunk"); /*^block */ /*anyblock */ { @@ -133330,7 +133330,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3129*/ meltfptr[3102] = 0; } - MELT_LOCATION ("warmelt-base.melt:3546:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3551:/ initchunk"); /*^block */ /*anyblock */ { @@ -133355,7 +133355,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3130*/ meltfptr[3103] = 0; } - MELT_LOCATION ("warmelt-base.melt:3581:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3586:/ initchunk"); /*^block */ /*anyblock */ { @@ -133380,7 +133380,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.INSTALL_VALUE_DESCRIPTOR__V3131*/ meltfptr[3101] = 0; } - MELT_LOCATION ("warmelt-base.melt:3742:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:3747:/ initchunk"); /*^block */ /*anyblock */ { @@ -138512,7 +138512,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.VALUEXPORTER___V3132*/ meltfptr[3102] = 0; } - MELT_LOCATION ("warmelt-base.melt:4022:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:4027:/ initchunk"); /*^block */ /*anyblock */ { @@ -138552,7 +138552,7 @@ meltmod__warmelt_base__initialmeltchunk_51 (struct /*clear *//*_.VALUEXPORTER___V3133*/ meltfptr[3103] = 0; } - MELT_LOCATION ("warmelt-base.melt:4024:/ initchunk"); + MELT_LOCATION ("warmelt-base.melt:4029:/ initchunk"); /*^block */ /*anyblock */ { diff --git a/gcc/melt/generated/warmelt-debug+meltdesc.c b/gcc/melt/generated/warmelt-debug+meltdesc.c index 81518307049..73ab3ab1545 100644 --- a/gcc/melt/generated/warmelt-debug+meltdesc.c +++ b/gcc/melt/generated/warmelt-debug+meltdesc.c @@ -19,8 +19,8 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revision 192289] MELT_0\ -.9.7-rc4" +const char melt_genversionstr[]="4.8.0 20121018 (experimental) [melt-branch revision 192558] MELT_0\ +.9.7-post" #ifdef __cplusplus " (in C++)" @@ -29,16 +29,16 @@ const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.7-rc4 [melt-branch_revision_192289]"; +const char melt_versionmeltstr[]="0.9.7-post [melt-branch_revision_192555]"; /* source name & real path of the module */ /*MELTMODULENAME meltbuild-sources/warmelt-debug */ const char melt_modulename[]="warmelt-debug"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt\ --modules/0.9.7-rc4/warmelt-debug"; +-modules/0.9.7-post/warmelt-debug"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="f66a30d9bc2c10de00b1532482ad91ed"; +const char melt_prepromd5meltrun[]="fbc0deb09a63b777e215f0636e7b4e16"; /* hexmd5checksum of primary C file */ const char melt_primaryhexmd5[]="eb9ab8f7cc4d878c542004a60414d95e"; diff --git a/gcc/melt/generated/warmelt-debug+melttime.h b/gcc/melt/generated/warmelt-debug+melttime.h index 9a3331b6938..0bce225e6d7 100644 --- a/gcc/melt/generated/warmelt-debug+melttime.h +++ b/gcc/melt/generated/warmelt-debug+melttime.h @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Wed Oct 10 13:49:39 2012 CEST"; -const long long melt_gen_timenum=1349869779; +const char melt_gen_timestamp[]="Thu Oct 18 16:21:05 2012 CEST"; +const long long melt_gen_timenum=1350570065; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus diff --git a/gcc/melt/generated/warmelt-first+meltdesc.c b/gcc/melt/generated/warmelt-first+meltdesc.c index 5476f26010d..c9a4ce3a2a6 100644 --- a/gcc/melt/generated/warmelt-first+meltdesc.c +++ b/gcc/melt/generated/warmelt-first+meltdesc.c @@ -19,8 +19,8 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revision 192289] MELT_0\ -.9.7-rc4" +const char melt_genversionstr[]="4.8.0 20121018 (experimental) [melt-branch revision 192558] MELT_0\ +.9.7-post" #ifdef __cplusplus " (in C++)" @@ -29,16 +29,16 @@ const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.7-rc4 [melt-branch_revision_192289]"; +const char melt_versionmeltstr[]="0.9.7-post [melt-branch_revision_192555]"; /* source name & real path of the module */ /*MELTMODULENAME meltbuild-sources/warmelt-first */ const char melt_modulename[]="warmelt-first"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt\ --modules/0.9.7-rc4/warmelt-first"; +-modules/0.9.7-post/warmelt-first"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="f66a30d9bc2c10de00b1532482ad91ed"; +const char melt_prepromd5meltrun[]="fbc0deb09a63b777e215f0636e7b4e16"; /* hexmd5checksum of primary C file */ const char melt_primaryhexmd5[]="167bd9220401eae3d35d391a7f27035f"; diff --git a/gcc/melt/generated/warmelt-first+melttime.h b/gcc/melt/generated/warmelt-first+melttime.h index f6fe7b8aaf2..0b34eae134a 100644 --- a/gcc/melt/generated/warmelt-first+melttime.h +++ b/gcc/melt/generated/warmelt-first+melttime.h @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Wed Oct 10 13:49:38 2012 CEST"; -const long long melt_gen_timenum=1349869778; +const char melt_gen_timestamp[]="Thu Oct 18 16:21:04 2012 CEST"; +const long long melt_gen_timenum=1350570064; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus diff --git a/gcc/melt/generated/warmelt-genobj+04.c b/gcc/melt/generated/warmelt-genobj+04.c index a5e91e8e868..1bc413dc87c 100644 --- a/gcc/melt/generated/warmelt-genobj+04.c +++ b/gcc/melt/generated/warmelt-genobj+04.c @@ -13928,7 +13928,8 @@ lab_endgetargs:; \n\t\t\t\t\t#if MELT_HAVE_DEBUG\n\t\t\t\t\tif (meltxresdescr_ && meltxresdesc\ r_[0] && meltxrestab_) melt_warn_for_no_expected_secondary_results\ ()\t;\n\t\t\t\t\t/* we warned when secondary results are expected but\ - not returned. */\n\t\t\t\t\t#endif /*MELT_HAVE_DEBUG*/\n\t\t\t\t\t"; + not returned. */\n\t\t\t\t\t#endif /*MELT_HAVE\ +_DEBUG*/\n\t\t\t\t\t"; /*_.OCHECKNORES__V48*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t) (( /*!MAKE_OBJLOCATEDEXP */ meltfrout-> diff --git a/gcc/melt/generated/warmelt-genobj+meltdesc.c b/gcc/melt/generated/warmelt-genobj+meltdesc.c index f8ca3eea3ad..28857f8f06e 100644 --- a/gcc/melt/generated/warmelt-genobj+meltdesc.c +++ b/gcc/melt/generated/warmelt-genobj+meltdesc.c @@ -19,8 +19,8 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revision 192289] MELT_0\ -.9.7-rc4" +const char melt_genversionstr[]="4.8.0 20121018 (experimental) [melt-branch revision 192558] MELT_0\ +.9.7-post" #ifdef __cplusplus " (in C++)" @@ -29,16 +29,16 @@ const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.7-rc4 [melt-branch_revision_192289]"; +const char melt_versionmeltstr[]="0.9.7-post [melt-branch_revision_192555]"; /* source name & real path of the module */ /*MELTMODULENAME meltbuild-sources/warmelt-genobj */ const char melt_modulename[]="warmelt-genobj"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt\ --modules/0.9.7-rc4/warmelt-genobj"; +-modules/0.9.7-post/warmelt-genobj"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="f66a30d9bc2c10de00b1532482ad91ed"; +const char melt_prepromd5meltrun[]="fbc0deb09a63b777e215f0636e7b4e16"; /* hexmd5checksum of primary C file */ const char melt_primaryhexmd5[]="c4b6bc48ec19d85c8a5b2f2695a6d526"; @@ -48,7 +48,7 @@ const char* const melt_secondaryhexmd5tab[]={ /*sechexmd5checksum meltbuild-sources/warmelt-genobj+01.c #1 */ "7859a0d504d1a856c03fc6e011386469", /*sechexmd5checksum meltbuild-sources/warmelt-genobj+02.c #2 */ "f38797448c6f3c066595b7a8d00240ed", /*sechexmd5checksum meltbuild-sources/warmelt-genobj+03.c #3 */ "7e2fe9caa2edba93ca022547a3a3f4ee", - /*sechexmd5checksum meltbuild-sources/warmelt-genobj+04.c #4 */ "a1ea49b3548115ea459d9aaeff96177e", + /*sechexmd5checksum meltbuild-sources/warmelt-genobj+04.c #4 */ "8ef67dd2aa13f4147725996fe734866b", /*sechexmd5checksum meltbuild-sources/warmelt-genobj+05.c #5 */ "f2bc17c18ef4acd370e5aafe2aae81ce", /*sechexmd5checksum meltbuild-sources/warmelt-genobj+06.c #6 */ "6573ffd71aec9f6836f8e78c0c6d3caf", (const char*)0 }; @@ -57,10 +57,10 @@ const char* const melt_secondaryhexmd5tab[]={ const int melt_lastsecfileindex=6; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="1840ba92f8a65557e514aa5198344586" ; +const char melt_cumulated_hexmd5[]="d5e04ab838f69c0d24aa4b0d30d9ae85" ; /* include the timestamp file */ -#define meltmod_warmelt_genobj_mds__1840ba92f8a65557e514aa5198344586 1 +#define meltmod_warmelt_genobj_mds__d5e04ab838f69c0d24aa4b0d30d9ae85 1 #include "warmelt-genobj+melttime.h" diff --git a/gcc/melt/generated/warmelt-genobj+melttime.h b/gcc/melt/generated/warmelt-genobj+melttime.h index 5beb96666e9..19be3d0d3b8 100644 --- a/gcc/melt/generated/warmelt-genobj+melttime.h +++ b/gcc/melt/generated/warmelt-genobj+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-genobj+melttime.h is included from warmelt-genobj+meltdesc.c only. */ -#if meltmod_warmelt_genobj_mds__1840ba92f8a65557e514aa5198344586 +#if meltmod_warmelt_genobj_mds__d5e04ab838f69c0d24aa4b0d30d9ae85 /* MELT generation timestamp for meltbuild-sources/warmelt-genobj */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Wed Oct 10 13:49:45 2012 CEST"; -const long long melt_gen_timenum=1349869785; +const char melt_gen_timestamp[]="Thu Oct 18 16:21:10 2012 CEST"; +const long long melt_gen_timenum=1350570070; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1349869785; } /* end extern C timestamp */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_genobj_mds__1840ba92f8a65557e514aa5198344586 */ + #else /* ! meltmod_warmelt_genobj_mds__d5e04ab838f69c0d24aa4b0d30d9ae85 */ #error invalid timestamp file for meltbuild-sources/warmelt-genobj - #endif /* meltmod_warmelt_genobj_mds__1840ba92f8a65557e514aa5198344586 */ + #endif /* meltmod_warmelt_genobj_mds__d5e04ab838f69c0d24aa4b0d30d9ae85 */ diff --git a/gcc/melt/generated/warmelt-macro+01.c b/gcc/melt/generated/warmelt-macro+01.c index 4dbd5af85fb..aae22397747 100644 --- a/gcc/melt/generated/warmelt-macro+01.c +++ b/gcc/melt/generated/warmelt-macro+01.c @@ -7886,8 +7886,8 @@ meltrout_13_warmelt_macro_EXPAND_CMATCHEXPR (meltclosure_ptr_t meltclosp_, struct melt_callframe_st *mcfr_prev; #undef MELTFRAM_NBVARPTR #undef MELTFRAM_NBVARNUM -#define MELTFRAM_NBVARPTR 51 - melt_ptr_t mcfr_varptr[51]; +#define MELTFRAM_NBVARPTR 52 + melt_ptr_t mcfr_varptr[52]; #define MELTFRAM_NBVARNUM 17 long mcfr_varnum[17]; /*others*/ @@ -7910,14 +7910,14 @@ meltrout_13_warmelt_macro_EXPAND_CMATCHEXPR (meltclosure_ptr_t meltclosp_, (void) meltxresdescr_; (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); - for (ix = 0; ix < 51; ix++) + for (ix = 0; ix < 52; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit plain routine meltrout_13_warmelt_macro_EXPAND_CMATCHEXPR nbval 51*/ - meltfram__.mcfr_nbvar = 51 /*nbval */ ; +/* declstructinit plain routine meltrout_13_warmelt_macro_EXPAND_CMATCHEXPR nbval 52*/ + meltfram__.mcfr_nbvar = 52 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; @@ -8439,160 +8439,232 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:1204:/ getslot"); - { - melt_ptr_t slot = NULL, obj = NULL; - obj = (melt_ptr_t) ( /*_.CMAT__V2*/ meltfptr[1]) /*=obj*/ ; - melt_object_get_field (slot, obj, 2, "AMATCH_IN"); - /*_.CMATIN__V29*/ meltfptr[28] = slot; - }; - ; - MELT_LOCATION ("warmelt-macro.melt:1205:/ getslot"); - { - melt_ptr_t slot = NULL, obj = NULL; - obj = (melt_ptr_t) ( /*_.CMAT__V2*/ meltfptr[1]) /*=obj*/ ; - melt_object_get_field (slot, obj, 8, "CMATCH_EXPOPER"); - /*_.CMATEXP__V30*/ meltfptr[29] = slot; - }; + MELT_LOCATION ("warmelt-macro.melt:1204:/ cond"); + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.CMAT__V2*/ meltfptr[1]), + (melt_ptr_t) (( /*!CLASS_ANY_MATCHER */ meltfrout->tabval[5]))) + ) /*then */ + { + /*^cond.then */ + /*^getslot */ + { + melt_ptr_t slot = NULL, obj = NULL; + obj = (melt_ptr_t) ( /*_.CMAT__V2*/ meltfptr[1]) /*=obj*/ ; + melt_object_get_field (slot, obj, 2, "AMATCH_IN"); + /*_.CMATIN__V29*/ meltfptr[28] = slot; + }; + ; + } + else + { /*^cond.else */ + + /*_.CMATIN__V29*/ meltfptr[28] = NULL;; + } ; - MELT_LOCATION ("warmelt-macro.melt:1207:/ checksignal"); - MELT_CHECK_SIGNAL (); + MELT_LOCATION ("warmelt-macro.melt:1205:/ cond"); + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.CMAT__V2*/ meltfptr[1]), + (melt_ptr_t) (( /*!CLASS_ANY_MATCHER */ meltfrout->tabval[5]))) + ) /*then */ + { + /*^cond.then */ + /*^getslot */ + { + melt_ptr_t slot = NULL, obj = NULL; + obj = (melt_ptr_t) ( /*_.CMAT__V2*/ meltfptr[1]) /*=obj*/ ; + melt_object_get_field (slot, obj, 4, "AMATCH_OUT"); + /*_.CMATOUT__V30*/ meltfptr[29] = slot; + }; + ; + } + else + { /*^cond.else */ + + /*_.CMATOUT__V30*/ meltfptr[29] = NULL;; + } ; - /*_#MULTIPLE_LENGTH__L8*/ meltfnum[0] = - (melt_multiple_length - ((melt_ptr_t) ( /*_.XARGTUP__V28*/ meltfptr[27])));; - /*^compute */ - /*_#MULTIPLE_LENGTH__L9*/ meltfnum[1] = - (melt_multiple_length - ((melt_ptr_t) ( /*_.CMATIN__V29*/ meltfptr[28])));; - /*^compute */ - /*_#I__L10*/ meltfnum[9] = - (( /*_#MULTIPLE_LENGTH__L8*/ meltfnum[0]) != - ( /*_#MULTIPLE_LENGTH__L9*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-macro.melt:1207:/ cond"); - /*cond */ if ( /*_#I__L10*/ meltfnum[9]) /*then */ + MELT_LOCATION ("warmelt-macro.melt:1206:/ cond"); + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.CMAT__V2*/ meltfptr[1]), + (melt_ptr_t) (( /*!CLASS_CMATCHER */ + meltfrout->tabval[3]))) + ) /*then */ { /*^cond.then */ - /*^block */ - /*anyblock */ + /*^getslot */ { + melt_ptr_t slot = NULL, obj = NULL; + obj = (melt_ptr_t) ( /*_.CMAT__V2*/ meltfptr[1]) /*=obj*/ ; + melt_object_get_field (slot, obj, 8, "CMATCH_EXPOPER"); + /*_.CMATEXP__V31*/ meltfptr[30] = slot; + }; + ; + } + else + { /*^cond.else */ + /*_.CMATEXP__V31*/ meltfptr[30] = NULL;; + } + ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1210:/ cppif.then"); - /*^block */ - /*anyblock */ - { + MELT_LOCATION ("warmelt-macro.melt:1208:/ cppif.then"); + /*^block */ + /*anyblock */ + { - { - /*^locexp */ - /*melt_increment_dbgcounter */ + { + /*^locexp */ + /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG - melt_dbgcounter++; + melt_dbgcounter++; #endif - ; - } - ; - /*^checksignal */ - MELT_CHECK_SIGNAL (); - ; - /*_#MELT_NEED_DBG__L11*/ meltfnum[10] = - /*MELT_NEED_DBG */ + ; + } + ; + /*^checksignal */ + MELT_CHECK_SIGNAL (); + ; + /*_#MELT_NEED_DBG__L8*/ meltfnum[0] = + /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG - ( /*melt_need_dbg */ melt_need_debug ((int) 0)) + ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else - 0 /* no melt_need_dbg */ + 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ - ;; - MELT_LOCATION ("warmelt-macro.melt:1210:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ - { - /*^cond.then */ - /*^block */ - /*anyblock */ - { + ;; + MELT_LOCATION ("warmelt-macro.melt:1208:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { - /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = + /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[1] = #ifdef meltcallcount - meltcallcount /* the_meltcallcount */ + meltcallcount /* the_meltcallcount */ #else - 0L + 0L #endif /* meltcallcount the_meltcallcount */ - ;; - MELT_LOCATION ("warmelt-macro.melt:1210:/ checksignal"); - MELT_CHECK_SIGNAL (); - ; - /*^apply */ - /*apply */ - { - union meltparam_un argtab[5]; - memset (&argtab, 0, sizeof (argtab)); - /*^apply.arg */ - argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11]; - /*^apply.arg */ - argtab[1].meltbp_cstring = "warmelt-macro.melt"; - /*^apply.arg */ - argtab[2].meltbp_long = 1210; - /*^apply.arg */ - argtab[3].meltbp_cstring = - "expand_cmatchexpr bad xargtup"; - /*^apply.arg */ - argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.XARGTUP__V28*/ meltfptr[27]; - /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = - melt_apply ((meltclosure_ptr_t) - (( /*!MELT_DEBUG_FUN */ meltfrout-> - tabval[0])), - (melt_ptr_t) (( /*nil */ NULL)), - (MELTBPARSTR_LONG MELTBPARSTR_CSTRING - MELTBPARSTR_LONG MELTBPARSTR_CSTRING - MELTBPARSTR_PTR ""), argtab, "", - (union meltparam_un *) 0); - } - ; - /*_.IF___V32*/ meltfptr[31] = - /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; - /*epilog */ - - MELT_LOCATION ("warmelt-macro.melt:1210:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; - /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0; - } - ; - } - else - { /*^cond.else */ - - /*_.IF___V32*/ meltfptr[31] = NULL;; - } + ;; + MELT_LOCATION ("warmelt-macro.melt:1208:/ checksignal"); + MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:1210:/ quasiblock"); - - - /*_.PROGN___V34*/ meltfptr[32] = /*_.IF___V32*/ meltfptr[31];; - /*^compute */ - /*_.IFCPP___V31*/ meltfptr[30] = /*_.PROGN___V34*/ meltfptr[32];; + /*^apply */ + /*apply */ + { + union meltparam_un argtab[11]; + memset (&argtab, 0, sizeof (argtab)); + /*^apply.arg */ + argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[1]; + /*^apply.arg */ + argtab[1].meltbp_cstring = "warmelt-macro.melt"; + /*^apply.arg */ + argtab[2].meltbp_long = 1208; + /*^apply.arg */ + argtab[3].meltbp_cstring = "expand_cmatchexpr xargtup="; + /*^apply.arg */ + argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.XARGTUP__V28*/ meltfptr[27]; + /*^apply.arg */ + argtab[5].meltbp_cstring = "\n cmatin="; + /*^apply.arg */ + argtab[6].meltbp_aptr = + (melt_ptr_t *) & /*_.CMATIN__V29*/ meltfptr[28]; + /*^apply.arg */ + argtab[7].meltbp_cstring = "\n cmatout="; + /*^apply.arg */ + argtab[8].meltbp_aptr = + (melt_ptr_t *) & /*_.CMATOUT__V30*/ meltfptr[29]; + /*^apply.arg */ + argtab[9].meltbp_cstring = "\n cmat="; + /*^apply.arg */ + argtab[10].meltbp_aptr = + (melt_ptr_t *) & /*_.CMAT__V2*/ meltfptr[1]; + /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = + melt_apply ((meltclosure_ptr_t) + (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), + (melt_ptr_t) (( /*nil */ NULL)), + (MELTBPARSTR_LONG MELTBPARSTR_CSTRING + MELTBPARSTR_LONG MELTBPARSTR_CSTRING + MELTBPARSTR_PTR MELTBPARSTR_CSTRING + MELTBPARSTR_PTR MELTBPARSTR_CSTRING + MELTBPARSTR_PTR MELTBPARSTR_CSTRING + MELTBPARSTR_PTR ""), argtab, "", + (union meltparam_un *) 0); + } + ; + /*_.IF___V33*/ meltfptr[32] = + /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1210:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; - /*^clear */ - /*clear *//*_.IF___V32*/ meltfptr[31] = 0; + MELT_LOCATION ("warmelt-macro.melt:1208:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_.PROGN___V34*/ meltfptr[32] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0; } + ; + } + else + { /*^cond.else */ + + /*_.IF___V33*/ meltfptr[32] = NULL;; + } + ; + MELT_LOCATION ("warmelt-macro.melt:1208:/ quasiblock"); + + + /*_.PROGN___V35*/ meltfptr[33] = /*_.IF___V33*/ meltfptr[32];; + /*^compute */ + /*_.IFCPP___V32*/ meltfptr[31] = /*_.PROGN___V35*/ meltfptr[33];; + /*epilog */ + + MELT_LOCATION ("warmelt-macro.melt:1208:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[0] = 0; + /*^clear */ + /*clear *//*_.IF___V33*/ meltfptr[32] = 0; + /*^clear */ + /*clear *//*_.PROGN___V35*/ meltfptr[33] = 0; + } #else /*MELT_HAVE_DEBUG */ - /*^cppif.else */ - /*_.IFCPP___V31*/ meltfptr[30] = ( /*nil */ NULL); + /*^cppif.else */ + /*_.IFCPP___V32*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ - ; + ; + MELT_LOCATION ("warmelt-macro.melt:1211:/ checksignal"); + MELT_CHECK_SIGNAL (); + ; + /*_#MULTIPLE_LENGTH__L10*/ meltfnum[1] = + (melt_multiple_length + ((melt_ptr_t) ( /*_.XARGTUP__V28*/ meltfptr[27])));; + /*^compute */ + /*_#MULTIPLE_LENGTH__L11*/ meltfnum[0] = + (melt_multiple_length + ((melt_ptr_t) ( /*_.CMATOUT__V30*/ meltfptr[29])));; + /*^compute */ + /*_#I__L12*/ meltfnum[11] = + (( /*_#MULTIPLE_LENGTH__L10*/ meltfnum[1]) != + ( /*_#MULTIPLE_LENGTH__L11*/ meltfnum[0]));; + MELT_LOCATION ("warmelt-macro.melt:1211:/ cond"); + /*cond */ if ( /*_#I__L12*/ meltfnum[11]) /*then */ + { + /*^cond.then */ + /*^block */ + /*anyblock */ + { + #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1211:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1214:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8610,7 +8682,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L13*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L13*/ meltfnum[12] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -8618,159 +8690,186 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1211:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then */ + MELT_LOCATION ("warmelt-macro.melt:1214:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[10] = + /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1211:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1214:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { - union meltparam_un argtab[5]; + union meltparam_un argtab[9]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = - /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[10]; + /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1211; + argtab[2].meltbp_long = 1214; /*^apply.arg */ - argtab[3].meltbp_cstring = "expand_cmatchexpr bad cmatin"; + argtab[3].meltbp_cstring = + "expand_cmatchexpr bad xargtup="; /*^apply.arg */ argtab[4].meltbp_aptr = + (melt_ptr_t *) & /*_.XARGTUP__V28*/ meltfptr[27]; + /*^apply.arg */ + argtab[5].meltbp_cstring = "\n bad cmatin="; + /*^apply.arg */ + argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.CMATIN__V29*/ meltfptr[28]; - /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = + /*^apply.arg */ + argtab[7].meltbp_cstring = "\n bad cmatout="; + /*^apply.arg */ + argtab[8].meltbp_aptr = + (melt_ptr_t *) & /*_.CMATOUT__V30*/ meltfptr[29]; + /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout-> tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING + MELTBPARSTR_PTR MELTBPARSTR_CSTRING + MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; - /*_.IF___V36*/ meltfptr[32] = - /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; + /*_.IF___V37*/ meltfptr[33] = + /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1211:/ clear"); - /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[10] = 0; + MELT_LOCATION ("warmelt-macro.melt:1214:/ clear"); + /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0; } ; } else { /*^cond.else */ - /*_.IF___V36*/ meltfptr[32] = NULL;; + /*_.IF___V37*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1211:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1214:/ quasiblock"); - /*_.PROGN___V38*/ meltfptr[36] = /*_.IF___V36*/ meltfptr[32];; + /*_.PROGN___V39*/ meltfptr[37] = /*_.IF___V37*/ meltfptr[33];; /*^compute */ - /*_.IFCPP___V35*/ meltfptr[31] = /*_.PROGN___V38*/ meltfptr[36];; + /*_.IFCPP___V36*/ meltfptr[32] = /*_.PROGN___V39*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1211:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[11] = 0; + MELT_LOCATION ("warmelt-macro.melt:1214:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[12] = 0; /*^clear */ - /*clear *//*_.IF___V36*/ meltfptr[32] = 0; + /*clear *//*_.IF___V37*/ meltfptr[33] = 0; /*^clear */ - /*clear *//*_.PROGN___V38*/ meltfptr[36] = 0; + /*clear *//*_.PROGN___V39*/ meltfptr[37] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V35*/ meltfptr[31] = ( /*nil */ NULL); + /*_.IFCPP___V36*/ meltfptr[32] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1214:/ getslot"); - { - melt_ptr_t slot = NULL, obj = NULL; - obj = (melt_ptr_t) ( /*_.CMAT__V2*/ meltfptr[1]) /*=obj*/ ; - melt_object_get_field (slot, obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V39*/ meltfptr[32] = slot; - }; + MELT_LOCATION ("warmelt-macro.melt:1219:/ cond"); + /*cond */ if ( + /*ifisa */ + melt_is_instance_of ((melt_ptr_t) + ( /*_.CMAT__V2*/ meltfptr[1]), + (melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout->tabval[6]))) + ) /*then */ + { + /*^cond.then */ + /*^getslot */ + { + melt_ptr_t slot = NULL, obj = NULL; + obj = (melt_ptr_t) ( /*_.CMAT__V2*/ meltfptr[1]) /*=obj*/ ; + melt_object_get_field (slot, obj, 1, "NAMED_NAME"); + /*_.NAMED_NAME__V40*/ meltfptr[33] = slot; + }; + ; + } + else + { /*^cond.else */ + + /*_.NAMED_NAME__V40*/ meltfptr[33] = NULL;; + } ; { - MELT_LOCATION ("warmelt-macro.melt:1212:/ locexp"); - melt_warning_str (0, (melt_ptr_t) ( /*_.SLOC__V23*/ meltfptr[22]), - ("bad argument number for cmatcher expression"), - (melt_ptr_t) ( /*_.NAMED_NAME__V39*/ - meltfptr[32])); + MELT_LOCATION ("warmelt-macro.melt:1217:/ locexp"); + melt_error_str ((melt_ptr_t) ( /*_.SLOC__V23*/ meltfptr[22]), + ("bad argument number for cmatcher expression"), + (melt_ptr_t) ( /*_.NAMED_NAME__V40*/ + meltfptr[33])); } ; - MELT_LOCATION ("warmelt-macro.melt:1209:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1213:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1207:/ clear"); - /*clear *//*_.IFCPP___V31*/ meltfptr[30] = 0; - /*^clear */ - /*clear *//*_.IFCPP___V35*/ meltfptr[31] = 0; + MELT_LOCATION ("warmelt-macro.melt:1211:/ clear"); + /*clear *//*_.IFCPP___V36*/ meltfptr[32] = 0; /*^clear */ - /*clear *//*_.NAMED_NAME__V39*/ meltfptr[32] = 0; + /*clear *//*_.NAMED_NAME__V40*/ meltfptr[33] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:1215:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1220:/ checksignal"); MELT_CHECK_SIGNAL (); ; - /*_#NULL__L15*/ meltfnum[10] = - (( /*_.CMATEXP__V30*/ meltfptr[29]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:1215:/ cond"); - /*cond */ if ( /*_#NULL__L15*/ meltfnum[10]) /*then */ + /*_#NULL__L15*/ meltfnum[13] = + (( /*_.CMATEXP__V31*/ meltfptr[30]) == NULL);; + MELT_LOCATION ("warmelt-macro.melt:1220:/ cond"); + /*cond */ if ( /*_#NULL__L15*/ meltfnum[13]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1219:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1224:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CMAT__V2*/ meltfptr[1]) /*=obj*/ ; melt_object_get_field (slot, obj, 1, "NAMED_NAME"); - /*_.NAMED_NAME__V41*/ meltfptr[30] = slot; + /*_.NAMED_NAME__V42*/ meltfptr[32] = slot; }; ; { - MELT_LOCATION ("warmelt-macro.melt:1217:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1222:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.SLOC__V23*/ meltfptr[22]), ("cmatcher used without operation expansion"), - (melt_ptr_t) ( /*_.NAMED_NAME__V41*/ - meltfptr[30])); + (melt_ptr_t) ( /*_.NAMED_NAME__V42*/ + meltfptr[32])); } ; - MELT_LOCATION ("warmelt-macro.melt:1220:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1225:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:1220:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1225:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8783,33 +8882,33 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:1216:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1221:/ quasiblock"); - /*_.PROGN___V43*/ meltfptr[32] = /*_.RETURN___V42*/ meltfptr[31];; + /*_.PROGN___V44*/ meltfptr[43] = /*_.RETURN___V43*/ meltfptr[33];; /*^compute */ - /*_.IF___V40*/ meltfptr[36] = /*_.PROGN___V43*/ meltfptr[32];; + /*_.IF___V41*/ meltfptr[37] = /*_.PROGN___V44*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1215:/ clear"); - /*clear *//*_.NAMED_NAME__V41*/ meltfptr[30] = 0; + MELT_LOCATION ("warmelt-macro.melt:1220:/ clear"); + /*clear *//*_.NAMED_NAME__V42*/ meltfptr[32] = 0; /*^clear */ - /*clear *//*_.RETURN___V42*/ meltfptr[31] = 0; + /*clear *//*_.RETURN___V43*/ meltfptr[33] = 0; /*^clear */ - /*clear *//*_.PROGN___V43*/ meltfptr[32] = 0; + /*clear *//*_.PROGN___V44*/ meltfptr[43] = 0; } ; } else { /*^cond.else */ - /*_.IF___V40*/ meltfptr[36] = NULL;; + /*_.IF___V41*/ meltfptr[37] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1222:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1227:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:1223:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1228:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -8821,9 +8920,9 @@ lab_endgetargs:; melt_ptr_t newobj = 0; melt_raw_object_create (newobj, (melt_ptr_t) (( /*!CLASS_SOURCE_CMATCHEXPR */ - meltfrout->tabval[5])), (4), + meltfrout->tabval[7])), (4), "CLASS_SOURCE_CMATCHEXPR"); - /*_.INST__V46*/ meltfptr[32] = + /*_.INST__V47*/ meltfptr[43] = newobj; }; ; @@ -8831,38 +8930,38 @@ lab_endgetargs:; /*putslot */ melt_assertmsg ("putslot checkobj @LOCA_LOCATION", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V46*/ meltfptr[32])) == + ( /*_.INST__V47*/ meltfptr[43])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V46*/ meltfptr[32]), (1), + melt_putfield_object (( /*_.INST__V47*/ meltfptr[43]), (1), ( /*_.SLOC__V23*/ meltfptr[22]), "LOCA_LOCATION"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @SCMATX_CMATCHER", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V46*/ meltfptr[32])) == + ( /*_.INST__V47*/ meltfptr[43])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V46*/ meltfptr[32]), (3), + melt_putfield_object (( /*_.INST__V47*/ meltfptr[43]), (3), ( /*_.CMAT__V2*/ meltfptr[1]), "SCMATX_CMATCHER"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @SARGOP_ARGS", melt_magic_discr ((melt_ptr_t) - ( /*_.INST__V46*/ meltfptr[32])) == + ( /*_.INST__V47*/ meltfptr[43])) == MELTOBMAG_OBJECT); - melt_putfield_object (( /*_.INST__V46*/ meltfptr[32]), (2), + melt_putfield_object (( /*_.INST__V47*/ meltfptr[43]), (2), ( /*_.XARGTUP__V28*/ meltfptr[27]), "SARGOP_ARGS"); ; /*^touchobj */ - melt_dbgtrace_written_object ( /*_.INST__V46*/ meltfptr[32], + melt_dbgtrace_written_object ( /*_.INST__V47*/ meltfptr[43], "newly made instance"); ; - /*_.RES__V45*/ meltfptr[31] = /*_.INST__V46*/ meltfptr[32];; + /*_.RES__V46*/ meltfptr[33] = /*_.INST__V47*/ meltfptr[43];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1228:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1233:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8880,7 +8979,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - /*_#MELT_NEED_DBG__L16*/ meltfnum[11] = + /*_#MELT_NEED_DBG__L16*/ meltfnum[12] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) @@ -8888,8 +8987,8 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1228:/ cond"); - /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[11]) /*then */ + MELT_LOCATION ("warmelt-macro.melt:1233:/ cond"); + /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[12]) /*then */ { /*^cond.then */ /*^block */ @@ -8903,7 +9002,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1228:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1233:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8917,13 +9016,13 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1228; + argtab[2].meltbp_long = 1233; /*^apply.arg */ argtab[3].meltbp_cstring = "expand_cmatchexpr res"; /*^apply.arg */ argtab[4].meltbp_aptr = - (melt_ptr_t *) & /*_.RES__V45*/ meltfptr[31]; - /*_.MELT_DEBUG_FUN__V49*/ meltfptr[48] = + (melt_ptr_t *) & /*_.RES__V46*/ meltfptr[33]; + /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), @@ -8933,54 +9032,54 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - /*_.IF___V48*/ meltfptr[47] = - /*_.MELT_DEBUG_FUN__V49*/ meltfptr[48];; + /*_.IF___V49*/ meltfptr[48] = + /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1228:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1233:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0; /*^clear */ - /*clear *//*_.MELT_DEBUG_FUN__V49*/ meltfptr[48] = 0; + /*clear *//*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = 0; } ; } else { /*^cond.else */ - /*_.IF___V48*/ meltfptr[47] = NULL;; + /*_.IF___V49*/ meltfptr[48] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1228:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1233:/ quasiblock"); - /*_.PROGN___V50*/ meltfptr[48] = /*_.IF___V48*/ meltfptr[47];; + /*_.PROGN___V51*/ meltfptr[49] = /*_.IF___V49*/ meltfptr[48];; /*^compute */ - /*_.IFCPP___V47*/ meltfptr[46] = /*_.PROGN___V50*/ meltfptr[48];; + /*_.IFCPP___V48*/ meltfptr[47] = /*_.PROGN___V51*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1228:/ clear"); - /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[11] = 0; + MELT_LOCATION ("warmelt-macro.melt:1233:/ clear"); + /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[12] = 0; /*^clear */ - /*clear *//*_.IF___V48*/ meltfptr[47] = 0; + /*clear *//*_.IF___V49*/ meltfptr[48] = 0; /*^clear */ - /*clear *//*_.PROGN___V50*/ meltfptr[48] = 0; + /*clear *//*_.PROGN___V51*/ meltfptr[49] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ - /*_.IFCPP___V47*/ meltfptr[46] = ( /*nil */ NULL); + /*_.IFCPP___V48*/ meltfptr[47] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1229:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1234:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ - /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V45*/ meltfptr[31];; + /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V46*/ meltfptr[33];; { - MELT_LOCATION ("warmelt-macro.melt:1229:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1234:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8993,15 +9092,15 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - /*_.LET___V44*/ meltfptr[30] = /*_.RETURN___V51*/ meltfptr[47];; + /*_.LET___V45*/ meltfptr[32] = /*_.RETURN___V52*/ meltfptr[48];; - MELT_LOCATION ("warmelt-macro.melt:1222:/ clear"); - /*clear *//*_.RES__V45*/ meltfptr[31] = 0; + MELT_LOCATION ("warmelt-macro.melt:1227:/ clear"); + /*clear *//*_.RES__V46*/ meltfptr[33] = 0; /*^clear */ - /*clear *//*_.IFCPP___V47*/ meltfptr[46] = 0; + /*clear *//*_.IFCPP___V48*/ meltfptr[47] = 0; /*^clear */ - /*clear *//*_.RETURN___V51*/ meltfptr[47] = 0; - /*_.LET___V21*/ meltfptr[19] = /*_.LET___V44*/ meltfptr[30];; + /*clear *//*_.RETURN___V52*/ meltfptr[48] = 0; + /*_.LET___V21*/ meltfptr[19] = /*_.LET___V45*/ meltfptr[32];; MELT_LOCATION ("warmelt-macro.melt:1199:/ clear"); /*clear *//*_.SCONT__V22*/ meltfptr[21] = 0; @@ -9020,19 +9119,23 @@ lab_endgetargs:; /*^clear */ /*clear *//*_.CMATIN__V29*/ meltfptr[28] = 0; /*^clear */ - /*clear *//*_.CMATEXP__V30*/ meltfptr[29] = 0; + /*clear *//*_.CMATOUT__V30*/ meltfptr[29] = 0; + /*^clear */ + /*clear *//*_.CMATEXP__V31*/ meltfptr[30] = 0; /*^clear */ - /*clear *//*_#MULTIPLE_LENGTH__L8*/ meltfnum[0] = 0; + /*clear *//*_.IFCPP___V32*/ meltfptr[31] = 0; /*^clear */ - /*clear *//*_#MULTIPLE_LENGTH__L9*/ meltfnum[1] = 0; + /*clear *//*_#MULTIPLE_LENGTH__L10*/ meltfnum[1] = 0; /*^clear */ - /*clear *//*_#I__L10*/ meltfnum[9] = 0; + /*clear *//*_#MULTIPLE_LENGTH__L11*/ meltfnum[0] = 0; /*^clear */ - /*clear *//*_#NULL__L15*/ meltfnum[10] = 0; + /*clear *//*_#I__L12*/ meltfnum[11] = 0; /*^clear */ - /*clear *//*_.IF___V40*/ meltfptr[36] = 0; + /*clear *//*_#NULL__L15*/ meltfnum[13] = 0; /*^clear */ - /*clear *//*_.LET___V44*/ meltfptr[30] = 0; + /*clear *//*_.IF___V41*/ meltfptr[37] = 0; + /*^clear */ + /*clear *//*_.LET___V45*/ meltfptr[32] = 0; MELT_LOCATION ("warmelt-macro.melt:1192:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -9170,7 +9273,7 @@ meltrout_14_warmelt_macro_EXPAND_FUNMATCHEXPR (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1235:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1240:/ getarg"); /*_.FMAT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -9231,7 +9334,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1236:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1241:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9257,7 +9360,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1236:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1241:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9272,7 +9375,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1236:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1241:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9285,7 +9388,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1236; + argtab[2].meltbp_long = 1241; /*^apply.arg */ argtab[3].meltbp_cstring = "expand_funmatchexpr sexpr="; /*^apply.arg */ @@ -9311,7 +9414,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1236:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1241:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0; @@ -9324,7 +9427,7 @@ lab_endgetargs:; /*_.IF___V9*/ meltfptr[8] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1236:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1241:/ quasiblock"); /*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];; @@ -9332,7 +9435,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[7] = /*_.PROGN___V11*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1236:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1241:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V9*/ meltfptr[8] = 0; @@ -9347,7 +9450,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1237:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1242:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9359,7 +9462,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:1237:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1242:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9367,7 +9470,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1237:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1242:/ cond.else"); /*^block */ /*anyblock */ @@ -9381,7 +9484,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1237) ? (1237) : __LINE__, __FUNCTION__); + (1242) ? (1242) : __LINE__, __FUNCTION__); ; } ; @@ -9395,7 +9498,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[8] = /*_.IFELSE___V13*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1237:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1242:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[9] = 0; @@ -9408,7 +9511,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1238:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1243:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9420,7 +9523,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:1238:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1243:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9428,7 +9531,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1238:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1243:/ cond.else"); /*^block */ /*anyblock */ @@ -9442,7 +9545,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1238) ? (1238) : __LINE__, __FUNCTION__); + (1243) ? (1243) : __LINE__, __FUNCTION__); ; } ; @@ -9456,7 +9559,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[9] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1238:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1243:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -9469,7 +9572,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1239:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1244:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9480,7 +9583,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V5*/ meltfptr[4])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:1239:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1244:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9488,7 +9591,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1239:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1244:/ cond.else"); /*^block */ /*anyblock */ @@ -9502,7 +9605,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1239) ? (1239) : __LINE__, __FUNCTION__); + (1244) ? (1244) : __LINE__, __FUNCTION__); ; } ; @@ -9516,7 +9619,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1239:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1244:/ clear"); /*clear *//*_#IS_CLOSURE__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -9529,7 +9632,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1240:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1245:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9541,7 +9644,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.FMAT__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_FUNMATCHER */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:1240:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1245:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9549,7 +9652,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1240:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1245:/ cond.else"); /*^block */ /*anyblock */ @@ -9563,7 +9666,7 @@ lab_endgetargs:; melt_assert_failed (("check fmat"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1240) ? (1240) : __LINE__, __FUNCTION__); + (1245) ? (1245) : __LINE__, __FUNCTION__); ; } ; @@ -9577,7 +9680,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1240:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1245:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -9590,7 +9693,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1241:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1246:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9601,7 +9704,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L7*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:1241:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1246:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9609,7 +9712,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1241:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1246:/ cond.else"); /*^block */ /*anyblock */ @@ -9623,7 +9726,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1241) ? (1241) : __LINE__, __FUNCTION__); + (1246) ? (1246) : __LINE__, __FUNCTION__); ; } ; @@ -9637,7 +9740,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1241:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1246:/ clear"); /*clear *//*_#IS_OBJECT__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V21*/ meltfptr[20] = 0; @@ -9648,7 +9751,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[18] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1242:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1247:/ quasiblock"); /*^getslot */ @@ -9659,7 +9762,7 @@ lab_endgetargs:; /*_.SCONT__V23*/ meltfptr[22] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1243:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1248:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V3*/ meltfptr[2]) /*=obj*/ ; @@ -9678,7 +9781,7 @@ lab_endgetargs:; /*^compute */ /*_.SOPER__V28*/ meltfptr[27] = (melt_pair_head ((melt_ptr_t) ( /*_.LIST_FIRST__V27*/ meltfptr[26])));; - MELT_LOCATION ("warmelt-macro.melt:1246:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1251:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9699,7 +9802,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:1247:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1252:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FMAT__V2*/ meltfptr[1]) /*=obj*/ ; @@ -9709,7 +9812,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1249:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1254:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9735,7 +9838,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1249:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1254:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9750,7 +9853,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1249:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1254:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9763,7 +9866,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1249; + argtab[2].meltbp_long = 1254; /*^apply.arg */ argtab[3].meltbp_cstring = "expand_funmatchexpr xargtup"; /*^apply.arg */ @@ -9783,7 +9886,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1249:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1254:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0; @@ -9796,7 +9899,7 @@ lab_endgetargs:; /*_.IF___V32*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1249:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1254:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[32] = /*_.IF___V32*/ meltfptr[31];; @@ -9804,7 +9907,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[30] = /*_.PROGN___V34*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1249:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1254:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V32*/ meltfptr[31] = 0; @@ -9819,7 +9922,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1250:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1255:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9845,7 +9948,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1250:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1255:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9860,7 +9963,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1250:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1255:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9874,7 +9977,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1250; + argtab[2].meltbp_long = 1255; /*^apply.arg */ argtab[3].meltbp_cstring = "expand_funmatchexpr fmatapp"; /*^apply.arg */ @@ -9894,7 +9997,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1250:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1255:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0; @@ -9907,7 +10010,7 @@ lab_endgetargs:; /*_.IF___V36*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1250:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1255:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[36] = /*_.IF___V36*/ meltfptr[32];; @@ -9915,7 +10018,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[31] = /*_.PROGN___V38*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1250:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1255:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V36*/ meltfptr[32] = 0; @@ -9930,7 +10033,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1251:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1256:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9956,7 +10059,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1251:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1256:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9971,7 +10074,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1251:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1256:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9985,7 +10088,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1251; + argtab[2].meltbp_long = 1256; /*^apply.arg */ argtab[3].meltbp_cstring = "expand_funmatchexpr opbind"; /*^apply.arg */ @@ -10005,7 +10108,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1251:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1256:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0; @@ -10018,7 +10121,7 @@ lab_endgetargs:; /*_.IF___V40*/ meltfptr[36] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1251:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1256:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[40] = /*_.IF___V40*/ meltfptr[36];; @@ -10026,7 +10129,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[32] = /*_.PROGN___V42*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1251:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1256:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V40*/ meltfptr[36] = 0; @@ -10039,7 +10142,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[32] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1254:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1259:/ quasiblock"); /*^checksignal */ @@ -10104,7 +10207,7 @@ lab_endgetargs:; /*_.RES__V44*/ meltfptr[40] = /*_.INST__V45*/ meltfptr[44];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1259:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1264:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10130,7 +10233,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1259:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1264:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10145,7 +10248,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1259:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1264:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10159,7 +10262,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1259; + argtab[2].meltbp_long = 1264; /*^apply.arg */ argtab[3].meltbp_cstring = "funmatcher result"; /*^apply.arg */ @@ -10179,7 +10282,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1259:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1264:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = 0; @@ -10192,7 +10295,7 @@ lab_endgetargs:; /*_.IF___V47*/ meltfptr[46] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1259:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1264:/ quasiblock"); /*_.PROGN___V49*/ meltfptr[47] = /*_.IF___V47*/ meltfptr[46];; @@ -10200,7 +10303,7 @@ lab_endgetargs:; /*_.IFCPP___V46*/ meltfptr[45] = /*_.PROGN___V49*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1259:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1264:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V47*/ meltfptr[46] = 0; @@ -10213,7 +10316,7 @@ lab_endgetargs:; /*_.IFCPP___V46*/ meltfptr[45] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1260:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1265:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -10222,7 +10325,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V44*/ meltfptr[40];; { - MELT_LOCATION ("warmelt-macro.melt:1260:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1265:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10237,7 +10340,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V43*/ meltfptr[36] = /*_.RETURN___V50*/ meltfptr[46];; - MELT_LOCATION ("warmelt-macro.melt:1254:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1259:/ clear"); /*clear *//*_.RES__V44*/ meltfptr[40] = 0; /*^clear */ /*clear *//*_.IFCPP___V46*/ meltfptr[45] = 0; @@ -10245,7 +10348,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V50*/ meltfptr[46] = 0; /*_.LET___V22*/ meltfptr[20] = /*_.LET___V43*/ meltfptr[36];; - MELT_LOCATION ("warmelt-macro.melt:1242:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1247:/ clear"); /*clear *//*_.SCONT__V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.SLOC__V24*/ meltfptr[23] = 0; @@ -10269,7 +10372,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V39*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.LET___V43*/ meltfptr[36] = 0; - MELT_LOCATION ("warmelt-macro.melt:1235:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1240:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -10278,7 +10381,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V22*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-macro.melt:1235:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1240:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10406,7 +10509,7 @@ meltrout_15_warmelt_macro_EXPAND_KEYWORDFUN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1267:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1272:/ getarg"); /*_.SOPER__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -10457,7 +10560,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1268:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1273:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10469,7 +10572,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:1268:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1273:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10477,7 +10580,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1268:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1273:/ cond.else"); /*^block */ /*anyblock */ @@ -10491,7 +10594,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1268) ? (1268) : __LINE__, __FUNCTION__); + (1273) ? (1273) : __LINE__, __FUNCTION__); ; } ; @@ -10505,7 +10608,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1268:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1273:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -10518,7 +10621,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1269:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1274:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10530,7 +10633,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:1269:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1274:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10538,7 +10641,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1269:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1274:/ cond.else"); /*^block */ /*anyblock */ @@ -10552,7 +10655,7 @@ lab_endgetargs:; melt_assert_failed (("check end"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1269) ? (1269) : __LINE__, __FUNCTION__); + (1274) ? (1274) : __LINE__, __FUNCTION__); ; } ; @@ -10566,7 +10669,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1269:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1274:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -10579,7 +10682,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1270:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1275:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10590,7 +10693,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V5*/ meltfptr[4])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:1270:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1275:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10598,7 +10701,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1270:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1275:/ cond.else"); /*^block */ /*anyblock */ @@ -10612,7 +10715,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1270) ? (1270) : __LINE__, __FUNCTION__); + (1275) ? (1275) : __LINE__, __FUNCTION__); ; } ; @@ -10626,7 +10729,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1270:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1275:/ clear"); /*clear *//*_#IS_CLOSURE__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -10639,7 +10742,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1271:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1276:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10665,7 +10768,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1271:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1276:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10680,7 +10783,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1271:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1276:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10693,7 +10796,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1271; + argtab[2].meltbp_long = 1276; /*^apply.arg */ argtab[3].meltbp_cstring = "expand_keywordfun sexpr"; /*^apply.arg */ @@ -10713,7 +10816,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1271:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1276:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0; @@ -10726,7 +10829,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[13] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1271:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1276:/ quasiblock"); /*_.PROGN___V16*/ meltfptr[14] = /*_.IF___V14*/ meltfptr[13];; @@ -10734,7 +10837,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[11] = /*_.PROGN___V16*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1271:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1276:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V14*/ meltfptr[13] = 0; @@ -10749,7 +10852,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1272:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1277:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10775,7 +10878,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1272:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1277:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -10790,7 +10893,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1272:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1277:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10803,7 +10906,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1272; + argtab[2].meltbp_long = 1277; /*^apply.arg */ argtab[3].meltbp_cstring = "expand_keywordfun soper"; /*^apply.arg */ @@ -10823,7 +10926,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1272:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1277:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0; @@ -10836,7 +10939,7 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1272:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1277:/ quasiblock"); /*_.PROGN___V20*/ meltfptr[18] = /*_.IF___V18*/ meltfptr[14];; @@ -10844,7 +10947,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[13] = /*_.PROGN___V20*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1272:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1277:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V18*/ meltfptr[14] = 0; @@ -10857,7 +10960,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[13] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1273:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1278:/ quasiblock"); /*^getslot */ @@ -10868,7 +10971,7 @@ lab_endgetargs:; /*_.SCONT__V22*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1274:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1279:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V3*/ meltfptr[2]) /*=obj*/ ; @@ -10876,7 +10979,7 @@ lab_endgetargs:; /*_.SLOC__V23*/ meltfptr[22] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1275:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1280:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10897,7 +11000,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:1277:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1282:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V23*/ meltfptr[22]), ("expand_keywordfun not implemented"), @@ -10906,7 +11009,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1278:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1283:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10923,7 +11026,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1278:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1283:/ cond.else"); /*^block */ /*anyblock */ @@ -10937,7 +11040,7 @@ lab_endgetargs:; melt_assert_failed (("@@@ expand_keywordfun NOT IMPLEMENTED"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1278) ? (1278) : __LINE__, __FUNCTION__); + (1283) ? (1283) : __LINE__, __FUNCTION__); ; } ; @@ -10951,7 +11054,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[24] = /*_.IFELSE___V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1278:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1283:/ clear"); /*clear *//*_.IFELSE___V26*/ meltfptr[25] = 0; } @@ -10963,7 +11066,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V21*/ meltfptr[14] = /*_.IFCPP___V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:1273:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1278:/ clear"); /*clear *//*_.SCONT__V22*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.SLOC__V23*/ meltfptr[22] = 0; @@ -10971,7 +11074,7 @@ lab_endgetargs:; /*clear *//*_.TUPCONT__V24*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.IFCPP___V25*/ meltfptr[24] = 0; - MELT_LOCATION ("warmelt-macro.melt:1267:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1272:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -10980,7 +11083,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V21*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:1267:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1272:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11103,7 +11206,7 @@ meltrout_16_warmelt_macro_MACROEXPAND_1 (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1285:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -11142,12 +11245,12 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:1286:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1291:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L1*/ meltfnum[0] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:1286:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1291:/ cond"); /*cond */ if ( /*_#NULL__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11161,7 +11264,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = /*_.SETQ___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1286:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1291:/ clear"); /*clear *//*_.SETQ___V7*/ meltfptr[6] = 0; } ; @@ -11174,7 +11277,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1287:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1292:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11186,7 +11289,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:1287:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1292:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -11194,7 +11297,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1287:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1292:/ cond.else"); /*^block */ /*anyblock */ @@ -11208,7 +11311,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1287) ? (1287) : __LINE__, __FUNCTION__); + (1292) ? (1292) : __LINE__, __FUNCTION__); ; } ; @@ -11222,7 +11325,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1287:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1292:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -11235,7 +11338,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1288:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1293:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11246,7 +11349,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L3*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:1288:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1293:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -11254,7 +11357,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1288:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1293:/ cond.else"); /*^block */ /*anyblock */ @@ -11268,7 +11371,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1288) ? (1288) : __LINE__, __FUNCTION__); + (1293) ? (1293) : __LINE__, __FUNCTION__); ; } ; @@ -11282,7 +11385,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1288:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1293:/ clear"); /*clear *//*_#IS_CLOSURE__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -11295,7 +11398,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1289:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1294:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11306,7 +11409,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L4*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:1289:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1294:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -11314,7 +11417,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1289:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1294:/ cond.else"); /*^block */ /*anyblock */ @@ -11328,7 +11431,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1289) ? (1289) : __LINE__, __FUNCTION__); + (1294) ? (1294) : __LINE__, __FUNCTION__); ; } ; @@ -11342,7 +11445,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1289:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1294:/ clear"); /*clear *//*_#IS_OBJECT__L4*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -11353,14 +11456,14 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1290:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1295:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:1290:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1295:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -11368,7 +11471,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1291:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1296:/ quasiblock"); /*^getslot */ @@ -11379,7 +11482,7 @@ lab_endgetargs:; /*_.SCONT__V16*/ meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1292:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1297:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -11396,7 +11499,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.LIST_FIRST__V18*/ meltfptr[17])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1294:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1299:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11422,7 +11525,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1294:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1299:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -11437,7 +11540,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1294:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1299:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11451,7 +11554,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1294; + argtab[2].meltbp_long = 1299; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_1 sexpr"; /*^apply.arg */ @@ -11472,7 +11575,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1294:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1299:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0; @@ -11485,7 +11588,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1294:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1299:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[21] = /*_.IF___V21*/ meltfptr[20];; @@ -11493,7 +11596,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = /*_.PROGN___V23*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1294:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1299:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IF___V21*/ meltfptr[20] = 0; @@ -11508,7 +11611,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1295:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1300:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11534,7 +11637,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1295:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1300:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -11549,7 +11652,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1295:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1300:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11563,7 +11666,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1295; + argtab[2].meltbp_long = 1300; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_1 soper"; /*^apply.arg */ @@ -11584,7 +11687,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1295:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1300:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0; @@ -11597,7 +11700,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[21] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1295:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1300:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[25] = /*_.IF___V25*/ meltfptr[21];; @@ -11605,7 +11708,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[20] = /*_.PROGN___V27*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1295:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1300:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V25*/ meltfptr[21] = 0; @@ -11618,7 +11721,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[20] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1298:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1303:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L10*/ meltfnum[5] = @@ -11626,7 +11729,7 @@ lab_endgetargs:; ( /*_.SOPER__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:1298:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1303:/ cond"); /*cond */ if ( /*_#IS_A__L10*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -11634,7 +11737,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1299:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1304:/ quasiblock"); /*^checksignal */ @@ -11666,7 +11769,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1300:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1305:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11692,7 +11795,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1300:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1305:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -11708,7 +11811,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1300:/ checksignal"); + ("warmelt-macro.melt:1305:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11722,7 +11825,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1300; + argtab[2].meltbp_long = 1305; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_1 result for keywordfun resk"; @@ -11744,7 +11847,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1300:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1305:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ @@ -11758,7 +11861,7 @@ lab_endgetargs:; /*_.IF___V32*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1300:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1305:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[32] = @@ -11768,7 +11871,7 @@ lab_endgetargs:; /*_.PROGN___V34*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1300:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1305:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V32*/ meltfptr[31] = 0; @@ -11781,14 +11884,14 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[30] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1301:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1306:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESK__V30*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:1301:/ putxtraresult"); + MELT_LOCATION ("warmelt-macro.melt:1306:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -11803,7 +11906,7 @@ lab_endgetargs:; /*_.LET___V29*/ meltfptr[25] = /*_.RETURN___V35*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:1299:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1304:/ clear"); /*clear *//*_.RESK__V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.IFCPP___V31*/ meltfptr[30] = 0; @@ -11813,7 +11916,7 @@ lab_endgetargs:; /*_.LET___V29*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1298:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1303:/ clear"); /*clear *//*_.LET___V29*/ meltfptr[25] = 0; } ; @@ -11825,7 +11928,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1303:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1308:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L13*/ meltfnum[11] = @@ -11834,7 +11937,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:1303:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1308:/ cond"); /*cond */ if ( /*_#IS_A__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -11842,7 +11945,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1304:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1309:/ quasiblock"); /*^checksignal */ @@ -11868,7 +11971,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1305:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1310:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11894,7 +11997,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1305:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1310:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -11910,7 +12013,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1305:/ checksignal"); + ("warmelt-macro.melt:1310:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11925,7 +12028,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1305; + argtab[2].meltbp_long = 1310; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_1 opbind"; @@ -11951,7 +12054,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1305:/ clear"); + ("warmelt-macro.melt:1310:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ @@ -11967,7 +12070,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1305:/ quasiblock"); + ("warmelt-macro.melt:1310:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[40] = @@ -11977,7 +12080,7 @@ lab_endgetargs:; /*_.PROGN___V42*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1305:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1310:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V40*/ meltfptr[25] = 0; @@ -11990,7 +12093,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1306:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1311:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L16*/ meltfnum[14] = @@ -11998,7 +12101,7 @@ lab_endgetargs:; ( /*_.OPBIND__V38*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_MACRO_BINDING */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-macro.melt:1306:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1311:/ cond"); /*cond */ if ( /*_#IS_A__L16*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -12007,7 +12110,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1307:/ quasiblock"); + ("warmelt-macro.melt:1312:/ quasiblock"); /*^getslot */ @@ -12024,7 +12127,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1308:/ cppif.then"); + ("warmelt-macro.melt:1313:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12038,7 +12141,7 @@ lab_endgetargs:; ( /*_.MEXP__V45*/ meltfptr[44])) == MELTOBMAG_CLOSURE);; MELT_LOCATION - ("warmelt-macro.melt:1308:/ cond"); + ("warmelt-macro.melt:1313:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L17*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -12048,7 +12151,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:1308:/ cond.else"); + ("warmelt-macro.melt:1313:/ cond.else"); /*^block */ /*anyblock */ @@ -12064,7 +12167,7 @@ lab_endgetargs:; ? ("warmelt-macro.melt") : __FILE__, - (1308) ? (1308) : + (1313) ? (1313) : __LINE__, __FUNCTION__); ; @@ -12083,7 +12186,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1308:/ clear"); + ("warmelt-macro.melt:1313:/ clear"); /*clear *//*_#IS_CLOSURE__L17*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IFELSE___V47*/ meltfptr[46] = 0; @@ -12095,7 +12198,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1309:/ quasiblock"); + ("warmelt-macro.melt:1314:/ quasiblock"); /*^checksignal */ @@ -12129,7 +12232,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1310:/ cppif.then"); + ("warmelt-macro.melt:1315:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12157,7 +12260,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1310:/ cond"); + ("warmelt-macro.melt:1315:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -12174,7 +12277,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1310:/ checksignal"); + ("warmelt-macro.melt:1315:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12190,7 +12293,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1310; + argtab[2].meltbp_long = 1315; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_1 result for macro resm"; @@ -12218,7 +12321,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1310:/ clear"); + ("warmelt-macro.melt:1315:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[18] = 0; /*^clear */ @@ -12234,7 +12337,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1310:/ quasiblock"); + ("warmelt-macro.melt:1315:/ quasiblock"); /*_.PROGN___V53*/ meltfptr[51] = @@ -12245,7 +12348,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1310:/ clear"); + ("warmelt-macro.melt:1315:/ clear"); /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[6] = 0; /*^clear */ @@ -12260,7 +12363,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1311:/ checksignal"); + ("warmelt-macro.melt:1316:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -12269,7 +12372,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESM__V49*/ meltfptr[48];; MELT_LOCATION - ("warmelt-macro.melt:1311:/ putxtraresult"); + ("warmelt-macro.melt:1316:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -12284,7 +12387,7 @@ lab_endgetargs:; /*_.LET___V48*/ meltfptr[46] = /*_.RETURN___V54*/ meltfptr[50];; - MELT_LOCATION ("warmelt-macro.melt:1309:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1314:/ clear"); /*clear *//*_.RESM__V49*/ meltfptr[48] = 0; /*^clear */ /*clear *//*_.IFCPP___V50*/ meltfptr[49] = 0; @@ -12293,7 +12396,7 @@ lab_endgetargs:; /*_.LET___V44*/ meltfptr[40] = /*_.LET___V48*/ meltfptr[46];; - MELT_LOCATION ("warmelt-macro.melt:1307:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1312:/ clear"); /*clear *//*_.MEXP__V45*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_.IFCPP___V46*/ meltfptr[45] = 0; @@ -12303,7 +12406,7 @@ lab_endgetargs:; /*_.LET___V44*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1306:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1311:/ clear"); /*clear *//*_.LET___V44*/ meltfptr[40] = 0; } ; @@ -12316,7 +12419,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1313:/ checksignal"); + ("warmelt-macro.melt:1318:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L20*/ meltfnum[18] = @@ -12324,7 +12427,7 @@ lab_endgetargs:; ( /*_.OPBIND__V38*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_SELECTOR_BINDING */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-macro.melt:1313:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1318:/ cond"); /*cond */ if ( /*_#IS_A__L20*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -12333,7 +12436,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1314:/ quasiblock"); + ("warmelt-macro.melt:1319:/ quasiblock"); /*^checksignal */ @@ -12370,7 +12473,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1315:/ cppif.then"); + ("warmelt-macro.melt:1320:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12398,7 +12501,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1315:/ cond"); + ("warmelt-macro.melt:1320:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -12415,7 +12518,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1315:/ checksignal"); + ("warmelt-macro.melt:1320:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12432,7 +12535,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1315; + argtab[2].meltbp_long = 1320; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_1 result for send ress"; @@ -12452,7 +12555,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1315:/ clear"); + ("warmelt-macro.melt:1320:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = 0; /*^clear */ @@ -12468,7 +12571,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1315:/ quasiblock"); + ("warmelt-macro.melt:1320:/ quasiblock"); /*_.PROGN___V61*/ meltfptr[46] = @@ -12479,7 +12582,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1315:/ clear"); + ("warmelt-macro.melt:1320:/ clear"); /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[6] = 0; /*^clear */ @@ -12496,7 +12599,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1316:/ checksignal"); + ("warmelt-macro.melt:1321:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -12505,7 +12608,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESS__V57*/ meltfptr[49];; MELT_LOCATION - ("warmelt-macro.melt:1316:/ putxtraresult"); + ("warmelt-macro.melt:1321:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -12521,7 +12624,7 @@ lab_endgetargs:; /*_.RETURN___V62*/ meltfptr[40];; MELT_LOCATION - ("warmelt-macro.melt:1314:/ clear"); + ("warmelt-macro.melt:1319:/ clear"); /*clear *//*_.RESS__V57*/ meltfptr[49] = 0; /*^clear */ /*clear *//*_.IFCPP___V58*/ meltfptr[50] = @@ -12534,7 +12637,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1313:/ clear"); + ("warmelt-macro.melt:1318:/ clear"); /*clear *//*_.LET___V56*/ meltfptr[48] = 0; } ; @@ -12547,7 +12650,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1318:/ checksignal"); + ("warmelt-macro.melt:1323:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L23*/ meltfnum[21] = @@ -12556,7 +12659,7 @@ lab_endgetargs:; meltfptr[30]), (melt_ptr_t) (( /*!CLASS_PRIMITIVE_BINDING */ meltfrout->tabval[11])));; MELT_LOCATION - ("warmelt-macro.melt:1318:/ cond"); + ("warmelt-macro.melt:1323:/ cond"); /*cond */ if ( /*_#IS_A__L23*/ meltfnum[21]) /*then */ { /*^cond.then */ @@ -12565,7 +12668,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1319:/ quasiblock"); + ("warmelt-macro.melt:1324:/ quasiblock"); /*^getslot */ @@ -12614,7 +12717,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1321:/ cppif.then"); + ("warmelt-macro.melt:1326:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12643,7 +12746,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1321:/ cond"); + ("warmelt-macro.melt:1326:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L24*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -12660,7 +12763,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1321:/ checksignal"); + ("warmelt-macro.melt:1326:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12679,7 +12782,7 @@ lab_endgetargs:; "warmelt-macro.melt"; /*^apply.arg */ argtab[2].meltbp_long = - 1321; + 1326; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_1 result for primitive resp"; @@ -12699,7 +12802,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1321:/ clear"); + ("warmelt-macro.melt:1326:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L25*/ meltfnum[24] = 0; /*^clear */ @@ -12716,7 +12819,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1321:/ quasiblock"); + ("warmelt-macro.melt:1326:/ quasiblock"); /*_.PROGN___V70*/ meltfptr[48] = @@ -12727,7 +12830,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1321:/ clear"); + ("warmelt-macro.melt:1326:/ clear"); /*clear *//*_#MELT_NEED_DBG__L24*/ meltfnum[6] = 0; /*^clear */ @@ -12745,7 +12848,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1322:/ checksignal"); + ("warmelt-macro.melt:1327:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -12754,7 +12857,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V66*/ meltfptr[49];; MELT_LOCATION - ("warmelt-macro.melt:1322:/ putxtraresult"); + ("warmelt-macro.melt:1327:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -12770,7 +12873,7 @@ lab_endgetargs:; /*_.RETURN___V71*/ meltfptr[40];; MELT_LOCATION - ("warmelt-macro.melt:1319:/ clear"); + ("warmelt-macro.melt:1324:/ clear"); /*clear *//*_.PBIND_PRIMITIVE__V65*/ meltfptr[46] = 0; /*^clear */ @@ -12787,7 +12890,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1318:/ clear"); + ("warmelt-macro.melt:1323:/ clear"); /*clear *//*_.LET___V64*/ meltfptr[44] = 0; } @@ -12801,14 +12904,14 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1324:/ checksignal"); + ("warmelt-macro.melt:1329:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L26*/ meltfnum[24] = melt_is_instance_of ((melt_ptr_t) ( /*_.OPBIND__V38*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_CITERATOR_BINDING */ meltfrout->tabval[13])));; MELT_LOCATION - ("warmelt-macro.melt:1324:/ cond"); + ("warmelt-macro.melt:1329:/ cond"); /*cond */ if ( /*_#IS_A__L26*/ meltfnum[24]) /*then */ { /*^cond.then */ @@ -12817,7 +12920,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1325:/ quasiblock"); + ("warmelt-macro.melt:1330:/ quasiblock"); /*^getslot */ @@ -12834,7 +12937,7 @@ lab_endgetargs:; }; ; MELT_LOCATION - ("warmelt-macro.melt:1326:/ checksignal"); + ("warmelt-macro.melt:1331:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12868,7 +12971,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1328:/ cppif.then"); + ("warmelt-macro.melt:1333:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12897,7 +13000,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1328:/ cond"); + ("warmelt-macro.melt:1333:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L27*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -12914,7 +13017,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1328:/ checksignal"); + ("warmelt-macro.melt:1333:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12936,7 +13039,7 @@ lab_endgetargs:; "warmelt-macro.melt"; /*^apply.arg */ argtab[2]. - meltbp_long = 1328; + meltbp_long = 1333; /*^apply.arg */ argtab[3]. meltbp_cstring = @@ -12959,7 +13062,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1328:/ clear"); + ("warmelt-macro.melt:1333:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L28*/ meltfnum[27] = 0; /*^clear */ @@ -12976,7 +13079,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1328:/ quasiblock"); + ("warmelt-macro.melt:1333:/ quasiblock"); /*_.PROGN___V79*/ meltfptr[77] @@ -12991,7 +13094,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1328:/ clear"); + ("warmelt-macro.melt:1333:/ clear"); /*clear *//*_#MELT_NEED_DBG__L27*/ meltfnum[6] = 0; /*^clear */ @@ -13009,7 +13112,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1329:/ checksignal"); + ("warmelt-macro.melt:1334:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -13018,7 +13121,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESC__V75*/ meltfptr[50];; MELT_LOCATION - ("warmelt-macro.melt:1329:/ putxtraresult"); + ("warmelt-macro.melt:1334:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -13039,7 +13142,7 @@ lab_endgetargs:; meltfptr[44];; MELT_LOCATION - ("warmelt-macro.melt:1325:/ clear"); + ("warmelt-macro.melt:1330:/ clear"); /*clear *//*_.CITER__V74*/ meltfptr[49] = 0; /*^clear */ @@ -13057,7 +13160,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1324:/ clear"); + ("warmelt-macro.melt:1329:/ clear"); /*clear *//*_.LET___V73*/ meltfptr[46] = 0; } @@ -13071,13 +13174,13 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1331:/ checksignal"); + ("warmelt-macro.melt:1336:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L29*/ meltfnum[27] = melt_is_instance_of ((melt_ptr_t) ( /*_.OPBIND__V38*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_CMATCHER_BINDING */ meltfrout->tabval[15])));; MELT_LOCATION - ("warmelt-macro.melt:1331:/ cond"); + ("warmelt-macro.melt:1336:/ cond"); /*cond */ if ( /*_#IS_A__L29*/ meltfnum[27]) /*then */ { /*^cond.then */ @@ -13086,7 +13189,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1332:/ quasiblock"); + ("warmelt-macro.melt:1337:/ quasiblock"); /*^getslot */ @@ -13103,7 +13206,7 @@ lab_endgetargs:; }; ; MELT_LOCATION - ("warmelt-macro.melt:1333:/ checksignal"); + ("warmelt-macro.melt:1338:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13142,7 +13245,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1335:/ cppif.then"); + ("warmelt-macro.melt:1340:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13171,7 +13274,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1335:/ cond"); + ("warmelt-macro.melt:1340:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L30*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -13188,7 +13291,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1335:/ checksignal"); + ("warmelt-macro.melt:1340:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -13215,7 +13318,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[2]. meltbp_long = - 1335; + 1340; /*^apply.arg */ argtab[3]. meltbp_cstring @@ -13240,7 +13343,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1335:/ clear"); + ("warmelt-macro.melt:1340:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L31*/ meltfnum [30] = 0; @@ -13260,7 +13363,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1335:/ quasiblock"); + ("warmelt-macro.melt:1340:/ quasiblock"); /*_.PROGN___V88*/ @@ -13275,7 +13378,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1335:/ clear"); + ("warmelt-macro.melt:1340:/ clear"); /*clear *//*_#MELT_NEED_DBG__L30*/ meltfnum[6] = 0; /*^clear */ @@ -13294,7 +13397,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1336:/ checksignal"); + ("warmelt-macro.melt:1341:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -13305,7 +13408,7 @@ lab_endgetargs:; /*_.RESC__V84*/ meltfptr[40];; MELT_LOCATION - ("warmelt-macro.melt:1336:/ putxtraresult"); + ("warmelt-macro.melt:1341:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -13328,7 +13431,7 @@ lab_endgetargs:; meltfptr[46];; MELT_LOCATION - ("warmelt-macro.melt:1332:/ clear"); + ("warmelt-macro.melt:1337:/ clear"); /*clear *//*_.CMATCH__V83*/ meltfptr[50] = 0; /*^clear */ @@ -13347,7 +13450,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1331:/ clear"); + ("warmelt-macro.melt:1336:/ clear"); /*clear *//*_.LET___V82*/ meltfptr[49] = 0; } @@ -13361,14 +13464,14 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1338:/ checksignal"); + ("warmelt-macro.melt:1343:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L32*/ meltfnum[30] = melt_is_instance_of ((melt_ptr_t) ( /*_.OPBIND__V38*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_FUNMATCHER_BINDING */ meltfrout->tabval[17])));; MELT_LOCATION - ("warmelt-macro.melt:1338:/ cond"); + ("warmelt-macro.melt:1343:/ cond"); /*cond */ if ( /*_#IS_A__L32*/ meltfnum[30]) /*then */ { /*^cond.then */ @@ -13377,7 +13480,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1339:/ quasiblock"); + ("warmelt-macro.melt:1344:/ quasiblock"); /*^getslot */ @@ -13396,7 +13499,7 @@ lab_endgetargs:; }; ; MELT_LOCATION - ("warmelt-macro.melt:1340:/ checksignal"); + ("warmelt-macro.melt:1345:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -13447,7 +13550,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1342:/ cppif.then"); + ("warmelt-macro.melt:1347:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13476,7 +13579,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1342:/ cond"); + ("warmelt-macro.melt:1347:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L33*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -13494,7 +13597,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1342:/ checksignal"); + ("warmelt-macro.melt:1347:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -13525,7 +13628,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[2]. meltbp_long - = 1342; + = 1347; /*^apply.arg */ argtab[3]. meltbp_cstring @@ -13556,7 +13659,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1342:/ clear"); + ("warmelt-macro.melt:1347:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L34*/ meltfnum [33] = 0; @@ -13577,7 +13680,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1342:/ quasiblock"); + ("warmelt-macro.melt:1347:/ quasiblock"); /*_.PROGN___V97*/ @@ -13592,7 +13695,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1342:/ clear"); + ("warmelt-macro.melt:1347:/ clear"); /*clear *//*_#MELT_NEED_DBG__L33*/ meltfnum[6] = 0; /*^clear */ @@ -13613,7 +13716,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1343:/ checksignal"); + ("warmelt-macro.melt:1348:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -13625,7 +13728,7 @@ lab_endgetargs:; /*_.RESF__V93*/ meltfptr[44];; MELT_LOCATION - ("warmelt-macro.melt:1343:/ putxtraresult"); + ("warmelt-macro.melt:1348:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) @@ -13650,7 +13753,7 @@ lab_endgetargs:; meltfptr[49];; MELT_LOCATION - ("warmelt-macro.melt:1339:/ clear"); + ("warmelt-macro.melt:1344:/ clear"); /*clear *//*_.FMATCH__V92*/ meltfptr[40] = 0; /*^clear */ @@ -13669,7 +13772,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1338:/ clear"); + ("warmelt-macro.melt:1343:/ clear"); /*clear *//*_.LET___V91*/ meltfptr[50] = 0; } @@ -13683,7 +13786,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1345:/ checksignal"); + ("warmelt-macro.melt:1350:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -13693,7 +13796,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.OPBIND__V38*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_FIELD_BINDING */ meltfrout->tabval[19])));; MELT_LOCATION - ("warmelt-macro.melt:1345:/ cond"); + ("warmelt-macro.melt:1350:/ cond"); /*cond */ if ( /*_#IS_A__L35*/ meltfnum[33]) /*then */ { /*^cond.then */ @@ -13702,7 +13805,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1346:/ quasiblock"); + ("warmelt-macro.melt:1351:/ quasiblock"); /*^getslot */ @@ -13726,7 +13829,7 @@ lab_endgetargs:; }; ; MELT_LOCATION - ("warmelt-macro.melt:1347:/ checksignal"); + ("warmelt-macro.melt:1352:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -13787,7 +13890,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1349:/ cppif.then"); + ("warmelt-macro.melt:1354:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13817,7 +13920,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1349:/ cond"); + ("warmelt-macro.melt:1354:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L36*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -13836,7 +13939,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1349:/ checksignal"); + ("warmelt-macro.melt:1354:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -13871,7 +13974,7 @@ lab_endgetargs:; [2]. meltbp_long = - 1349; + 1354; /*^apply.arg */ argtab [3]. @@ -13907,7 +14010,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1349:/ clear"); + ("warmelt-macro.melt:1354:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L37*/ meltfnum [36] @@ -13931,7 +14034,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1349:/ quasiblock"); + ("warmelt-macro.melt:1354:/ quasiblock"); /*_.PROGN___V106*/ @@ -13950,7 +14053,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1349:/ clear"); + ("warmelt-macro.melt:1354:/ clear"); /*clear *//*_#MELT_NEED_DBG__L36*/ meltfnum [6] = 0; @@ -13974,7 +14077,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1350:/ checksignal"); + ("warmelt-macro.melt:1355:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -13988,7 +14091,7 @@ lab_endgetargs:; meltfptr [46];; MELT_LOCATION - ("warmelt-macro.melt:1350:/ putxtraresult"); + ("warmelt-macro.melt:1355:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -14011,7 +14114,7 @@ lab_endgetargs:; [50];; MELT_LOCATION - ("warmelt-macro.melt:1346:/ clear"); + ("warmelt-macro.melt:1351:/ clear"); /*clear *//*_.FIELD__V101*/ meltfptr [44] = 0; @@ -14036,7 +14139,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1345:/ clear"); + ("warmelt-macro.melt:1350:/ clear"); /*clear *//*_.LET___V100*/ meltfptr [40] = 0; @@ -14051,7 +14154,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1353:/ checksignal"); + ("warmelt-macro.melt:1358:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -14061,7 +14164,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OPBIND__V38*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[21])));; MELT_LOCATION - ("warmelt-macro.melt:1353:/ cond"); + ("warmelt-macro.melt:1358:/ cond"); /*cond */ if ( /*_#IS_A__L38*/ meltfnum[36]) /*then */ { /*^cond.then */ @@ -14070,7 +14173,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1354:/ checksignal"); + ("warmelt-macro.melt:1359:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -14141,7 +14244,7 @@ lab_endgetargs:; meltfptr [44];; MELT_LOCATION - ("warmelt-macro.melt:1354:/ putxtraresult"); + ("warmelt-macro.melt:1359:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -14166,7 +14269,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1353:/ clear"); + ("warmelt-macro.melt:1358:/ clear"); /*clear *//*_.EXPAND_APPLY__V109*/ meltfptr [44] @@ -14187,7 +14290,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1355:/ checksignal"); + ("warmelt-macro.melt:1360:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -14197,7 +14300,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OPBIND__V38*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_LET_BINDING */ meltfrout->tabval[23])));; MELT_LOCATION - ("warmelt-macro.melt:1355:/ cond"); + ("warmelt-macro.melt:1360:/ cond"); /*cond */ if ( /*_#IS_A__L39*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -14206,7 +14309,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1356:/ checksignal"); + ("warmelt-macro.melt:1361:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -14278,7 +14381,7 @@ lab_endgetargs:; meltfptr [50];; MELT_LOCATION - ("warmelt-macro.melt:1356:/ putxtraresult"); + ("warmelt-macro.melt:1361:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -14303,7 +14406,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1355:/ clear"); + ("warmelt-macro.melt:1360:/ clear"); /*clear *//*_.EXPAND_APPLY__V112*/ meltfptr [50] @@ -14326,7 +14429,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1358:/ checksignal"); + ("warmelt-macro.melt:1363:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -14337,7 +14440,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.OPBIND__V38*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[24])));; MELT_LOCATION - ("warmelt-macro.melt:1358:/ cond"); + ("warmelt-macro.melt:1363:/ cond"); /*cond */ if ( /*_#IS_A__L40*/ meltfnum[39]) /*then */ { /*^cond.then */ @@ -14346,7 +14449,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1359:/ quasiblock"); + ("warmelt-macro.melt:1364:/ quasiblock"); /*^getslot */ @@ -14375,7 +14478,7 @@ lab_endgetargs:; }; ; MELT_LOCATION - ("warmelt-macro.melt:1362:/ checksignal"); + ("warmelt-macro.melt:1367:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -14385,7 +14488,7 @@ lab_endgetargs:; = (melt_magic_discr ((melt_ptr_t) ( /*_.VAL__V116*/ meltfptr[50])) == MELTOBMAG_CLOSURE);; MELT_LOCATION - ("warmelt-macro.melt:1362:/ cond"); + ("warmelt-macro.melt:1367:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L41*/ meltfnum[40]) /*then */ { /*^cond.then */ @@ -14394,7 +14497,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1363:/ checksignal"); + ("warmelt-macro.melt:1368:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -14466,7 +14569,7 @@ lab_endgetargs:; meltfptr [117];; MELT_LOCATION - ("warmelt-macro.melt:1363:/ putxtraresult"); + ("warmelt-macro.melt:1368:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -14491,7 +14594,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1362:/ clear"); + ("warmelt-macro.melt:1367:/ clear"); /*clear *//*_.EXPAND_APPLY__V118*/ meltfptr [117] @@ -14514,7 +14617,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1365:/ checksignal"); + ("warmelt-macro.melt:1370:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -14525,7 +14628,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.VAL__V116*/ meltfptr[50]), (melt_ptr_t) (( /*!CLASS_PRIMITIVE */ meltfrout->tabval[25])));; MELT_LOCATION - ("warmelt-macro.melt:1365:/ cond"); + ("warmelt-macro.melt:1370:/ cond"); /*cond */ if ( /*_#IS_A__L42*/ meltfnum[41]) /*then */ { /*^cond.then */ @@ -14534,7 +14637,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1366:/ checksignal"); + ("warmelt-macro.melt:1371:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -14617,7 +14720,7 @@ lab_endgetargs:; meltfptr [118];; MELT_LOCATION - ("warmelt-macro.melt:1366:/ putxtraresult"); + ("warmelt-macro.melt:1371:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -14642,7 +14745,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1365:/ clear"); + ("warmelt-macro.melt:1370:/ clear"); /*clear *//*_.EXPAND_PRIMITIVE__V121*/ meltfptr [118] @@ -14665,7 +14768,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1368:/ checksignal"); + ("warmelt-macro.melt:1373:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -14676,7 +14779,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.VAL__V116*/ meltfptr[50]), (melt_ptr_t) (( /*!CLASS_SELECTOR */ meltfrout->tabval[26])));; MELT_LOCATION - ("warmelt-macro.melt:1368:/ cond"); + ("warmelt-macro.melt:1373:/ cond"); /*cond */ if ( /*_#IS_A__L43*/ meltfnum[42]) /*then */ { /*^cond.then */ @@ -14685,11 +14788,11 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1369:/ quasiblock"); + ("warmelt-macro.melt:1374:/ quasiblock"); MELT_LOCATION - ("warmelt-macro.melt:1370:/ checksignal"); + ("warmelt-macro.melt:1375:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -14760,7 +14863,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1371:/ cppif.then"); + ("warmelt-macro.melt:1376:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14791,7 +14894,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1371:/ cond"); + ("warmelt-macro.melt:1376:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L44*/ meltfnum[43]) /*then */ { /*^cond.then */ @@ -14810,7 +14913,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1371:/ checksignal"); + ("warmelt-macro.melt:1376:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -14845,7 +14948,7 @@ lab_endgetargs:; [2]. meltbp_long = - 1371; + 1376; /*^apply.arg */ argtab [3]. @@ -14881,7 +14984,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1371:/ clear"); + ("warmelt-macro.melt:1376:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L45*/ meltfnum [44] @@ -14907,7 +15010,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1371:/ quasiblock"); + ("warmelt-macro.melt:1376:/ quasiblock"); /*_.PROGN___V129*/ @@ -14928,7 +15031,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1371:/ clear"); + ("warmelt-macro.melt:1376:/ clear"); /*clear *//*_#MELT_NEED_DBG__L44*/ meltfnum [43] @@ -14958,7 +15061,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1372:/ checksignal"); + ("warmelt-macro.melt:1377:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -14973,7 +15076,7 @@ lab_endgetargs:; meltfptr [124];; MELT_LOCATION - ("warmelt-macro.melt:1372:/ putxtraresult"); + ("warmelt-macro.melt:1377:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -14997,7 +15100,7 @@ lab_endgetargs:; [126];; MELT_LOCATION - ("warmelt-macro.melt:1369:/ clear"); + ("warmelt-macro.melt:1374:/ clear"); /*clear *//*_.RESS__V125*/ meltfptr [124] @@ -15025,7 +15128,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1368:/ clear"); + ("warmelt-macro.melt:1373:/ clear"); /*clear *//*_.LET___V124*/ meltfptr [121] @@ -15042,7 +15145,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1375:/ checksignal"); + ("warmelt-macro.melt:1380:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -15053,7 +15156,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.VAL__V116*/ meltfptr[50]), (melt_ptr_t) (( /*!CLASS_CITERATOR */ meltfrout->tabval[27])));; MELT_LOCATION - ("warmelt-macro.melt:1375:/ cond"); + ("warmelt-macro.melt:1380:/ cond"); /*cond */ if ( /*_#IS_A__L46*/ meltfnum[44]) /*then */ { /*^cond.then */ @@ -15062,11 +15165,11 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1376:/ quasiblock"); + ("warmelt-macro.melt:1381:/ quasiblock"); MELT_LOCATION - ("warmelt-macro.melt:1377:/ checksignal"); + ("warmelt-macro.melt:1382:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -15137,7 +15240,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1378:/ cppif.then"); + ("warmelt-macro.melt:1383:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15168,7 +15271,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1378:/ cond"); + ("warmelt-macro.melt:1383:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L47*/ meltfnum[43]) /*then */ { /*^cond.then */ @@ -15187,7 +15290,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1378:/ checksignal"); + ("warmelt-macro.melt:1383:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -15222,7 +15325,7 @@ lab_endgetargs:; [2]. meltbp_long = - 1378; + 1383; /*^apply.arg */ argtab [3]. @@ -15258,7 +15361,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1378:/ clear"); + ("warmelt-macro.melt:1383:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L48*/ meltfnum [47] @@ -15284,7 +15387,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1378:/ quasiblock"); + ("warmelt-macro.melt:1383:/ quasiblock"); /*_.PROGN___V137*/ @@ -15305,7 +15408,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1378:/ clear"); + ("warmelt-macro.melt:1383:/ clear"); /*clear *//*_#MELT_NEED_DBG__L47*/ meltfnum [43] @@ -15335,7 +15438,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1379:/ checksignal"); + ("warmelt-macro.melt:1384:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -15350,7 +15453,7 @@ lab_endgetargs:; meltfptr [125];; MELT_LOCATION - ("warmelt-macro.melt:1379:/ putxtraresult"); + ("warmelt-macro.melt:1384:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -15374,7 +15477,7 @@ lab_endgetargs:; [121];; MELT_LOCATION - ("warmelt-macro.melt:1376:/ clear"); + ("warmelt-macro.melt:1381:/ clear"); /*clear *//*_.RESC__V133*/ meltfptr [125] @@ -15402,7 +15505,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1375:/ clear"); + ("warmelt-macro.melt:1380:/ clear"); /*clear *//*_.LET___V132*/ meltfptr [124] @@ -15419,7 +15522,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1380:/ checksignal"); + ("warmelt-macro.melt:1385:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -15430,7 +15533,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.VAL__V116*/ meltfptr[50]), (melt_ptr_t) (( /*!CLASS_CMATCHER */ meltfrout->tabval[28])));; MELT_LOCATION - ("warmelt-macro.melt:1380:/ cond"); + ("warmelt-macro.melt:1385:/ cond"); /*cond */ if ( /*_#IS_A__L49*/ meltfnum[47]) /*then */ { /*^cond.then */ @@ -15439,11 +15542,11 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1381:/ quasiblock"); + ("warmelt-macro.melt:1386:/ quasiblock"); MELT_LOCATION - ("warmelt-macro.melt:1382:/ checksignal"); + ("warmelt-macro.melt:1387:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -15514,7 +15617,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1383:/ cppif.then"); + ("warmelt-macro.melt:1388:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15545,7 +15648,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1383:/ cond"); + ("warmelt-macro.melt:1388:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L50*/ meltfnum[43]) /*then */ { /*^cond.then */ @@ -15564,7 +15667,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1383:/ checksignal"); + ("warmelt-macro.melt:1388:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -15599,7 +15702,7 @@ lab_endgetargs:; [2]. meltbp_long = - 1383; + 1388; /*^apply.arg */ argtab [3]. @@ -15635,7 +15738,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1383:/ clear"); + ("warmelt-macro.melt:1388:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L51*/ meltfnum [50] @@ -15661,7 +15764,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1383:/ quasiblock"); + ("warmelt-macro.melt:1388:/ quasiblock"); /*_.PROGN___V145*/ @@ -15682,7 +15785,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1383:/ clear"); + ("warmelt-macro.melt:1388:/ clear"); /*clear *//*_#MELT_NEED_DBG__L50*/ meltfnum [43] @@ -15712,7 +15815,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1384:/ checksignal"); + ("warmelt-macro.melt:1389:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -15727,7 +15830,7 @@ lab_endgetargs:; meltfptr [126];; MELT_LOCATION - ("warmelt-macro.melt:1384:/ putxtraresult"); + ("warmelt-macro.melt:1389:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -15751,7 +15854,7 @@ lab_endgetargs:; [124];; MELT_LOCATION - ("warmelt-macro.melt:1381:/ clear"); + ("warmelt-macro.melt:1386:/ clear"); /*clear *//*_.RESC__V141*/ meltfptr [126] @@ -15779,7 +15882,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1380:/ clear"); + ("warmelt-macro.melt:1385:/ clear"); /*clear *//*_.LET___V140*/ meltfptr [125] @@ -15796,7 +15899,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1385:/ checksignal"); + ("warmelt-macro.melt:1390:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -15807,7 +15910,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.VAL__V116*/ meltfptr[50]), (melt_ptr_t) (( /*!CLASS_FUNMATCHER */ meltfrout->tabval[29])));; MELT_LOCATION - ("warmelt-macro.melt:1385:/ cond"); + ("warmelt-macro.melt:1390:/ cond"); /*cond */ if ( /*_#IS_A__L52*/ meltfnum[50]) /*then */ { /*^cond.then */ @@ -15816,7 +15919,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1386:/ quasiblock"); + ("warmelt-macro.melt:1391:/ quasiblock"); /*^checksignal */ @@ -15901,7 +16004,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1387:/ cppif.then"); + ("warmelt-macro.melt:1392:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15932,7 +16035,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1387:/ cond"); + ("warmelt-macro.melt:1392:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L53*/ meltfnum[43]) /*then */ { /*^cond.then */ @@ -15951,7 +16054,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1387:/ checksignal"); + ("warmelt-macro.melt:1392:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -15986,7 +16089,7 @@ lab_endgetargs:; [2]. meltbp_long = - 1387; + 1392; /*^apply.arg */ argtab [3]. @@ -16022,7 +16125,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1387:/ clear"); + ("warmelt-macro.melt:1392:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L54*/ meltfnum [53] @@ -16048,7 +16151,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1387:/ quasiblock"); + ("warmelt-macro.melt:1392:/ quasiblock"); /*_.PROGN___V153*/ @@ -16069,7 +16172,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1387:/ clear"); + ("warmelt-macro.melt:1392:/ clear"); /*clear *//*_#MELT_NEED_DBG__L53*/ meltfnum [43] @@ -16099,7 +16202,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1388:/ checksignal"); + ("warmelt-macro.melt:1393:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -16114,7 +16217,7 @@ lab_endgetargs:; meltfptr [121];; MELT_LOCATION - ("warmelt-macro.melt:1388:/ putxtraresult"); + ("warmelt-macro.melt:1393:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -16138,7 +16241,7 @@ lab_endgetargs:; [125];; MELT_LOCATION - ("warmelt-macro.melt:1386:/ clear"); + ("warmelt-macro.melt:1391:/ clear"); /*clear *//*_.RESF__V149*/ meltfptr [121] @@ -16166,7 +16269,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1385:/ clear"); + ("warmelt-macro.melt:1390:/ clear"); /*clear *//*_.LET___V148*/ meltfptr [126] @@ -16183,7 +16286,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1389:/ checksignal"); + ("warmelt-macro.melt:1394:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -16194,7 +16297,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.VAL__V116*/ meltfptr[50]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout->tabval[30])));; MELT_LOCATION - ("warmelt-macro.melt:1389:/ cond"); + ("warmelt-macro.melt:1394:/ cond"); /*cond */ if ( /*_#IS_A__L55*/ meltfnum[53]) /*then */ { /*^cond.then */ @@ -16203,7 +16306,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1390:/ quasiblock"); + ("warmelt-macro.melt:1395:/ quasiblock"); /*^checksignal */ @@ -16277,7 +16380,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1391:/ cppif.then"); + ("warmelt-macro.melt:1396:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16308,7 +16411,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1391:/ cond"); + ("warmelt-macro.melt:1396:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L56*/ meltfnum[43]) /*then */ { /*^cond.then */ @@ -16327,7 +16430,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1391:/ checksignal"); + ("warmelt-macro.melt:1396:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -16362,7 +16465,7 @@ lab_endgetargs:; [2]. meltbp_long = - 1391; + 1396; /*^apply.arg */ argtab [3]. @@ -16398,7 +16501,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1391:/ clear"); + ("warmelt-macro.melt:1396:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L57*/ meltfnum [56] @@ -16424,7 +16527,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1391:/ quasiblock"); + ("warmelt-macro.melt:1396:/ quasiblock"); /*_.PROGN___V161*/ @@ -16445,7 +16548,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1391:/ clear"); + ("warmelt-macro.melt:1396:/ clear"); /*clear *//*_#MELT_NEED_DBG__L56*/ meltfnum [43] @@ -16475,7 +16578,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1392:/ checksignal"); + ("warmelt-macro.melt:1397:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -16490,7 +16593,7 @@ lab_endgetargs:; meltfptr [124];; MELT_LOCATION - ("warmelt-macro.melt:1392:/ putxtraresult"); + ("warmelt-macro.melt:1397:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -16514,7 +16617,7 @@ lab_endgetargs:; [126];; MELT_LOCATION - ("warmelt-macro.melt:1390:/ clear"); + ("warmelt-macro.melt:1395:/ clear"); /*clear *//*_.RESF__V157*/ meltfptr [124] @@ -16542,7 +16645,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1389:/ clear"); + ("warmelt-macro.melt:1394:/ clear"); /*clear *//*_.LET___V156*/ meltfptr [121] @@ -16559,7 +16662,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1395:/ getslot"); + ("warmelt-macro.melt:1400:/ getslot"); { melt_ptr_t slot @@ -16587,7 +16690,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1394:/ locexp"); + ("warmelt-macro.melt:1399:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.SLOC__V17*/ meltfptr[16]), ("macroexpand_1 bad valued operation symbol"), (melt_ptr_t) ( /*_.NAMED_NAME__V163*/ meltfptr[159])); } @@ -16598,7 +16701,7 @@ lab_endgetargs:; = ((melt_ptr_t) (melt_discr ((melt_ptr_t) ( /*_.VAL__V116*/ meltfptr[50]))));; MELT_LOCATION - ("warmelt-macro.melt:1397:/ getslot"); + ("warmelt-macro.melt:1402:/ getslot"); { melt_ptr_t slot @@ -16626,13 +16729,13 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1396:/ locexp"); + ("warmelt-macro.melt:1401:/ locexp"); melt_inform_str ((melt_ptr_t) ( /*_.SLOC__V17*/ meltfptr[16]), ("macroexpand_1 bad symbol value discr"), (melt_ptr_t) ( /*_.NAMED_NAME__V165*/ meltfptr[125])); } ; MELT_LOCATION - ("warmelt-macro.melt:1398:/ checksignal"); + ("warmelt-macro.melt:1403:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -16645,7 +16748,7 @@ lab_endgetargs:; = ( /*nil */ NULL);; MELT_LOCATION - ("warmelt-macro.melt:1398:/ putxtraresult"); + ("warmelt-macro.melt:1403:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -16661,7 +16764,7 @@ lab_endgetargs:; goto labend_rout; MELT_LOCATION - ("warmelt-macro.melt:1393:/ quasiblock"); + ("warmelt-macro.melt:1398:/ quasiblock"); /*_.PROGN___V167*/ @@ -16682,7 +16785,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1389:/ clear"); + ("warmelt-macro.melt:1394:/ clear"); /*clear *//*_.NAMED_NAME__V163*/ meltfptr [159] @@ -16726,7 +16829,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1385:/ clear"); + ("warmelt-macro.melt:1390:/ clear"); /*clear *//*_#IS_A__L55*/ meltfnum [53] @@ -16752,7 +16855,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1380:/ clear"); + ("warmelt-macro.melt:1385:/ clear"); /*clear *//*_#IS_A__L52*/ meltfnum [50] @@ -16778,7 +16881,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1375:/ clear"); + ("warmelt-macro.melt:1380:/ clear"); /*clear *//*_#IS_A__L49*/ meltfnum [47] @@ -16804,7 +16907,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1368:/ clear"); + ("warmelt-macro.melt:1373:/ clear"); /*clear *//*_#IS_A__L46*/ meltfnum [44] @@ -16830,7 +16933,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1365:/ clear"); + ("warmelt-macro.melt:1370:/ clear"); /*clear *//*_#IS_A__L43*/ meltfnum [42] @@ -16856,7 +16959,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1362:/ clear"); + ("warmelt-macro.melt:1367:/ clear"); /*clear *//*_#IS_A__L42*/ meltfnum [41] @@ -16881,7 +16984,7 @@ lab_endgetargs:; [40];; MELT_LOCATION - ("warmelt-macro.melt:1359:/ clear"); + ("warmelt-macro.melt:1364:/ clear"); /*clear *//*_.VAL__V116*/ meltfptr [50] @@ -16909,7 +17012,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1358:/ clear"); + ("warmelt-macro.melt:1363:/ clear"); /*clear *//*_.LET___V115*/ meltfptr [46] @@ -16926,7 +17029,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1401:/ checksignal"); + ("warmelt-macro.melt:1406:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -16940,7 +17043,7 @@ lab_endgetargs:; = (( /*_.OPBIND__V38*/ meltfptr[30]) == NULL);; MELT_LOCATION - ("warmelt-macro.melt:1401:/ cond"); + ("warmelt-macro.melt:1406:/ cond"); /*cond */ if ( /*_#NULL__L58*/ meltfnum[56]) /*then */ { /*^cond.then */ @@ -16970,7 +17073,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1401:/ clear"); + ("warmelt-macro.melt:1406:/ clear"); /*clear *//*_#MELT_IS_BOOTSTRAPPING__L60*/ meltfnum [53] @@ -16996,7 +17099,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1401:/ cond"); + ("warmelt-macro.melt:1406:/ cond"); /*cond */ if ( /*_#IF___L59*/ meltfnum[43]) /*then */ { /*^cond.then */ @@ -17005,7 +17108,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1405:/ quasiblock"); + ("warmelt-macro.melt:1410:/ quasiblock"); /*^quasiblock */ @@ -17098,7 +17201,7 @@ lab_endgetargs:; meltfptr [126];; MELT_LOCATION - ("warmelt-macro.melt:1408:/ checksignal"); + ("warmelt-macro.melt:1413:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -17165,7 +17268,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1414:/ cppif.then"); + ("warmelt-macro.melt:1419:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17196,7 +17299,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1414:/ cond"); + ("warmelt-macro.melt:1419:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L62*/ meltfnum[47]) /*then */ { /*^cond.then */ @@ -17215,7 +17318,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1414:/ checksignal"); + ("warmelt-macro.melt:1419:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -17250,7 +17353,7 @@ lab_endgetargs:; [2]. meltbp_long = - 1414; + 1419; /*^apply.arg */ argtab [3]. @@ -17286,7 +17389,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1414:/ clear"); + ("warmelt-macro.melt:1419:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L63*/ meltfnum [44] @@ -17312,7 +17415,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1414:/ quasiblock"); + ("warmelt-macro.melt:1419:/ quasiblock"); /*_.PROGN___V177*/ @@ -17333,7 +17436,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1414:/ clear"); + ("warmelt-macro.melt:1419:/ clear"); /*clear *//*_#MELT_NEED_DBG__L62*/ meltfnum [47] @@ -17363,7 +17466,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1415:/ checksignal"); + ("warmelt-macro.melt:1420:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -17378,7 +17481,7 @@ lab_endgetargs:; meltfptr [121];; MELT_LOCATION - ("warmelt-macro.melt:1415:/ putxtraresult"); + ("warmelt-macro.melt:1420:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -17402,7 +17505,7 @@ lab_endgetargs:; [117];; MELT_LOCATION - ("warmelt-macro.melt:1405:/ clear"); + ("warmelt-macro.melt:1410:/ clear"); /*clear *//*_.MACTHUNK__V170*/ meltfptr [125] @@ -17436,7 +17539,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1401:/ clear"); + ("warmelt-macro.melt:1406:/ clear"); /*clear *//*_.LET___V169*/ meltfptr [124] @@ -17453,7 +17556,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1418:/ checksignal"); + ("warmelt-macro.melt:1423:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -17467,7 +17570,7 @@ lab_endgetargs:; = (melt_flag_bootstrapping);; MELT_LOCATION - ("warmelt-macro.melt:1418:/ cond"); + ("warmelt-macro.melt:1423:/ cond"); /*cond */ if ( /*_#MELT_IS_BOOTSTRAPPING__L64*/ meltfnum[42]) /*then */ { /*^cond.then */ @@ -17491,7 +17594,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1418:/ clear"); + ("warmelt-macro.melt:1423:/ clear"); /*clear *//*_#NULL__L66*/ meltfnum [40] @@ -17511,7 +17614,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1418:/ cond"); + ("warmelt-macro.melt:1423:/ cond"); /*cond */ if ( /*_#IF___L65*/ meltfnum[41]) /*then */ { /*^cond.then */ @@ -17520,7 +17623,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1424:/ cond"); + ("warmelt-macro.melt:1429:/ cond"); /*cond */ if ( /*ifisa*/ melt_is_instance_of @@ -17568,7 +17671,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1421:/ locexp"); + ("warmelt-macro.melt:1426:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.SLOC__V17*/ meltfptr[16]), ("forward referenced operator handled as application when bootstrapping\ MELT"), (melt_ptr_t) ( /*_.NAMED_NAME__V179*/ meltfptr[50])); } @@ -17576,7 +17679,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1418:/ clear"); + ("warmelt-macro.melt:1423:/ clear"); /*clear *//*_.NAMED_NAME__V179*/ meltfptr [50] @@ -17587,7 +17690,7 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION - ("warmelt-macro.melt:1427:/ quasiblock"); + ("warmelt-macro.melt:1432:/ quasiblock"); /*^checksignal */ @@ -17650,7 +17753,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1428:/ cppif.then"); + ("warmelt-macro.melt:1433:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17681,7 +17784,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1428:/ cond"); + ("warmelt-macro.melt:1433:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L67*/ meltfnum[53]) /*then */ { /*^cond.then */ @@ -17700,7 +17803,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1428:/ checksignal"); + ("warmelt-macro.melt:1433:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -17735,7 +17838,7 @@ lab_endgetargs:; [2]. meltbp_long = - 1428; + 1433; /*^apply.arg */ argtab [3]. @@ -17771,7 +17874,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1428:/ clear"); + ("warmelt-macro.melt:1433:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L68*/ meltfnum [50] @@ -17797,7 +17900,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1428:/ quasiblock"); + ("warmelt-macro.melt:1433:/ quasiblock"); /*_.PROGN___V185*/ @@ -17818,7 +17921,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1428:/ clear"); + ("warmelt-macro.melt:1433:/ clear"); /*clear *//*_#MELT_NEED_DBG__L67*/ meltfnum [53] @@ -17848,7 +17951,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1429:/ checksignal"); + ("warmelt-macro.melt:1434:/ checksignal"); MELT_CHECK_SIGNAL (); ; @@ -17863,7 +17966,7 @@ lab_endgetargs:; meltfptr [46];; MELT_LOCATION - ("warmelt-macro.melt:1429:/ putxtraresult"); + ("warmelt-macro.melt:1434:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; @@ -17887,7 +17990,7 @@ lab_endgetargs:; [121];; MELT_LOCATION - ("warmelt-macro.melt:1427:/ clear"); + ("warmelt-macro.melt:1432:/ clear"); /*clear *//*_.RESA__V181*/ meltfptr [46] @@ -17906,7 +18009,7 @@ lab_endgetargs:; = 0; MELT_LOCATION - ("warmelt-macro.melt:1417:/ quasiblock"); + ("warmelt-macro.melt:1422:/ quasiblock"); /*_.PROGN___V187*/ @@ -17927,7 +18030,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1401:/ clear"); + ("warmelt-macro.melt:1406:/ clear"); /*clear *//*_#MELT_IS_BOOTSTRAPPING__L64*/ meltfnum [42] @@ -17965,7 +18068,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1358:/ clear"); + ("warmelt-macro.melt:1363:/ clear"); /*clear *//*_#NULL__L58*/ meltfnum [56] @@ -17997,7 +18100,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1355:/ clear"); + ("warmelt-macro.melt:1360:/ clear"); /*clear *//*_#IS_A__L40*/ meltfnum [39] @@ -18023,7 +18126,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1353:/ clear"); + ("warmelt-macro.melt:1358:/ clear"); /*clear *//*_#IS_A__L39*/ meltfnum [6] @@ -18046,7 +18149,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1345:/ clear"); + ("warmelt-macro.melt:1350:/ clear"); /*clear *//*_#IS_A__L38*/ meltfnum [36] = 0; @@ -18065,7 +18168,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1338:/ clear"); + ("warmelt-macro.melt:1343:/ clear"); /*clear *//*_#IS_A__L35*/ meltfnum[33] = 0; /*^clear */ @@ -18082,7 +18185,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1331:/ clear"); + ("warmelt-macro.melt:1336:/ clear"); /*clear *//*_#IS_A__L32*/ meltfnum[30] = 0; /*^clear */ @@ -18099,7 +18202,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1324:/ clear"); + ("warmelt-macro.melt:1329:/ clear"); /*clear *//*_#IS_A__L29*/ meltfnum[27] = 0; /*^clear */ @@ -18114,7 +18217,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1318:/ clear"); + ("warmelt-macro.melt:1323:/ clear"); /*clear *//*_#IS_A__L26*/ meltfnum[24] = 0; /*^clear */ @@ -18129,7 +18232,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1313:/ clear"); + ("warmelt-macro.melt:1318:/ clear"); /*clear *//*_#IS_A__L23*/ meltfnum[21] = 0; /*^clear */ /*clear *//*_.IFELSE___V63*/ meltfptr[45] = @@ -18142,7 +18245,7 @@ lab_endgetargs:; /*_.IFELSE___V55*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1306:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1311:/ clear"); /*clear *//*_#IS_A__L20*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.IFELSE___V55*/ meltfptr[51] = 0; @@ -18153,7 +18256,7 @@ lab_endgetargs:; /*_.LET___V37*/ meltfptr[29] = /*_.IFELSE___V43*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:1304:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1309:/ clear"); /*clear *//*_.OPBIND__V38*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.IFCPP___V39*/ meltfptr[31] = 0; @@ -18165,7 +18268,7 @@ lab_endgetargs:; /*_.LET___V37*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1303:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1308:/ clear"); /*clear *//*_.LET___V37*/ meltfptr[29] = 0; } ; @@ -18177,7 +18280,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1433:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1438:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#LIST_LENGTH__L69*/ meltfnum[44] = @@ -18186,7 +18289,7 @@ lab_endgetargs:; /*^compute */ /*_#I__L70*/ meltfnum[47] = (( /*_#LIST_LENGTH__L69*/ meltfnum[44]) == (0));; - MELT_LOCATION ("warmelt-macro.melt:1433:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1438:/ cond"); /*cond */ if ( /*_#I__L70*/ meltfnum[47]) /*then */ { /*^cond.then */ @@ -18197,7 +18300,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1434:/ cppif.then"); + ("warmelt-macro.melt:1439:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18225,7 +18328,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1434:/ cond"); + ("warmelt-macro.melt:1439:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L71*/ meltfnum[40]) /*then */ { /*^cond.then */ @@ -18242,7 +18345,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1434:/ checksignal"); + ("warmelt-macro.melt:1439:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18258,7 +18361,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1434; + argtab[2].meltbp_long = 1439; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_1 result for null"; @@ -18283,7 +18386,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1434:/ clear"); + ("warmelt-macro.melt:1439:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L72*/ meltfnum[50] = 0; /*^clear */ @@ -18299,7 +18402,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1434:/ quasiblock"); + ("warmelt-macro.melt:1439:/ quasiblock"); /*_.PROGN___V192*/ meltfptr[135] = @@ -18310,7 +18413,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1434:/ clear"); + ("warmelt-macro.melt:1439:/ clear"); /*clear *//*_#MELT_NEED_DBG__L71*/ meltfnum[40] = 0; /*^clear */ @@ -18326,7 +18429,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1435:/ checksignal"); + ("warmelt-macro.melt:1440:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -18334,7 +18437,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; MELT_LOCATION - ("warmelt-macro.melt:1435:/ putxtraresult"); + ("warmelt-macro.melt:1440:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -18347,7 +18450,7 @@ lab_endgetargs:; ; /*finalret */ goto labend_rout; MELT_LOCATION - ("warmelt-macro.melt:1433:/ quasiblock"); + ("warmelt-macro.melt:1438:/ quasiblock"); /*_.PROGN___V194*/ meltfptr[46] = @@ -18357,7 +18460,7 @@ lab_endgetargs:; /*_.PROGN___V194*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1433:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1438:/ clear"); /*clear *//*_.IFCPP___V189*/ meltfptr[124] = 0; /*^clear */ /*clear *//*_.RETURN___V193*/ meltfptr[125] = 0; @@ -18374,7 +18477,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1437:/ quasiblock"); + ("warmelt-macro.melt:1442:/ quasiblock"); /*^checksignal */ @@ -18409,7 +18512,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1438:/ cppif.then"); + ("warmelt-macro.melt:1443:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18437,7 +18540,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1438:/ cond"); + ("warmelt-macro.melt:1443:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L73*/ meltfnum[53]) /*then */ { /*^cond.then */ @@ -18454,7 +18557,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1438:/ checksignal"); + ("warmelt-macro.melt:1443:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18470,7 +18573,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1438; + argtab[2].meltbp_long = 1443; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_1 result complex apply resca"; @@ -18500,7 +18603,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1438:/ clear"); + ("warmelt-macro.melt:1443:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L74*/ meltfnum[42] = 0; /*^clear */ @@ -18516,7 +18619,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1438:/ quasiblock"); + ("warmelt-macro.melt:1443:/ quasiblock"); /*_.PROGN___V200*/ meltfptr[44] = @@ -18527,7 +18630,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1438:/ clear"); + ("warmelt-macro.melt:1443:/ clear"); /*clear *//*_#MELT_NEED_DBG__L73*/ meltfnum[53] = 0; /*^clear */ @@ -18543,7 +18646,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1439:/ checksignal"); + ("warmelt-macro.melt:1444:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -18552,7 +18655,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESCA__V196*/ meltfptr[121];; MELT_LOCATION - ("warmelt-macro.melt:1439:/ putxtraresult"); + ("warmelt-macro.melt:1444:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -18567,14 +18670,14 @@ lab_endgetargs:; /*_.LET___V195*/ meltfptr[127] = /*_.RETURN___V201*/ meltfptr[49];; - MELT_LOCATION ("warmelt-macro.melt:1437:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1442:/ clear"); /*clear *//*_.RESCA__V196*/ meltfptr[121] = 0; /*^clear */ /*clear *//*_.IFCPP___V197*/ meltfptr[40] = 0; /*^clear */ /*clear *//*_.RETURN___V201*/ meltfptr[49] = 0; MELT_LOCATION - ("warmelt-macro.melt:1436:/ quasiblock"); + ("warmelt-macro.melt:1441:/ quasiblock"); /*_.PROGN___V202*/ meltfptr[104] = @@ -18584,7 +18687,7 @@ lab_endgetargs:; /*_.PROGN___V202*/ meltfptr[104];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1433:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1438:/ clear"); /*clear *//*_.LET___V195*/ meltfptr[127] = 0; /*^clear */ /*clear *//*_.PROGN___V202*/ meltfptr[104] = 0; @@ -18596,7 +18699,7 @@ lab_endgetargs:; /*_.IFELSE___V188*/ meltfptr[117];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1303:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1308:/ clear"); /*clear *//*_#LIST_LENGTH__L69*/ meltfnum[44] = 0; /*^clear */ /*clear *//*_#I__L70*/ meltfnum[47] = 0; @@ -18610,7 +18713,7 @@ lab_endgetargs:; /*_.IFELSE___V36*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1298:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1303:/ clear"); /*clear *//*_#IS_A__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IFELSE___V36*/ meltfptr[32] = 0; @@ -18620,7 +18723,7 @@ lab_endgetargs:; ; /*_.LET___V15*/ meltfptr[14] = /*_.IFELSE___V28*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:1291:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1296:/ clear"); /*clear *//*_.SCONT__V16*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.SLOC__V17*/ meltfptr[16] = 0; @@ -18639,7 +18742,7 @@ lab_endgetargs:; /*_.IFELSE___V14*/ meltfptr[12] = /*_.LET___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1290:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1295:/ clear"); /*clear *//*_.LET___V15*/ meltfptr[14] = 0; } ; @@ -18651,14 +18754,14 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1442:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1447:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.SEXPR__V2*/ meltfptr[1];; - MELT_LOCATION ("warmelt-macro.melt:1442:/ putxtraresult"); + MELT_LOCATION ("warmelt-macro.melt:1447:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -18672,13 +18775,13 @@ lab_endgetargs:; /*_.IFELSE___V14*/ meltfptr[12] = /*_.RETURN___V203*/ meltfptr[95];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1290:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1295:/ clear"); /*clear *//*_.RETURN___V203*/ meltfptr[95] = 0; } ; } ; - MELT_LOCATION ("warmelt-macro.melt:1285:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -18687,7 +18790,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V14*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:1285:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18814,11 +18917,11 @@ meltrout_17_warmelt_macro_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, goto lab_endgetargs; lab_endgetargs:; /*body*/ - MELT_LOCATION ("warmelt-macro.melt:1405:/ block"); + MELT_LOCATION ("warmelt-macro.melt:1410:/ block"); /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:1406:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1411:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18843,13 +18946,13 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:1405:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1410:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V2*/ meltfptr[1];; { - MELT_LOCATION ("warmelt-macro.melt:1405:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1410:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18963,7 +19066,7 @@ meltrout_18_warmelt_macro_EXPAND_PRIMITIVE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1445:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1450:/ getarg"); /*_.SPRIM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19014,7 +19117,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1446:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1451:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19026,7 +19129,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SPRIM__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_PRIMITIVE */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:1446:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1451:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19034,7 +19137,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1446:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1451:/ cond.else"); /*^block */ /*anyblock */ @@ -19048,7 +19151,7 @@ lab_endgetargs:; melt_assert_failed (("check sprim"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1446) ? (1446) : __LINE__, __FUNCTION__); + (1451) ? (1451) : __LINE__, __FUNCTION__); ; } ; @@ -19062,7 +19165,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1446:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1451:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -19075,7 +19178,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1447:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1452:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19087,7 +19190,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:1447:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1452:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19095,7 +19198,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1447:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1452:/ cond.else"); /*^block */ /*anyblock */ @@ -19109,7 +19212,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1447) ? (1447) : __LINE__, __FUNCTION__); + (1452) ? (1452) : __LINE__, __FUNCTION__); ; } ; @@ -19123,7 +19226,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1447:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1452:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -19136,7 +19239,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1448:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1453:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19148,7 +19251,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:1448:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1453:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19156,7 +19259,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1448:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1453:/ cond.else"); /*^block */ /*anyblock */ @@ -19170,7 +19273,7 @@ lab_endgetargs:; melt_assert_failed (("check end"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1448) ? (1448) : __LINE__, __FUNCTION__); + (1453) ? (1453) : __LINE__, __FUNCTION__); ; } ; @@ -19184,7 +19287,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1448:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1453:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -19197,7 +19300,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1449:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1454:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19208,7 +19311,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V5*/ meltfptr[4])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:1449:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1454:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19216,7 +19319,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1449:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1454:/ cond.else"); /*^block */ /*anyblock */ @@ -19230,7 +19333,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1449) ? (1449) : __LINE__, __FUNCTION__); + (1454) ? (1454) : __LINE__, __FUNCTION__); ; } ; @@ -19244,7 +19347,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1449:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1454:/ clear"); /*clear *//*_#IS_CLOSURE__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -19257,7 +19360,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1450:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1455:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19268,7 +19371,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V6*/ meltfptr[5])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:1450:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1455:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19276,7 +19379,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1450:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1455:/ cond.else"); /*^block */ /*anyblock */ @@ -19290,7 +19393,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1450) ? (1450) : __LINE__, __FUNCTION__); + (1455) ? (1455) : __LINE__, __FUNCTION__); ; } ; @@ -19304,7 +19407,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1450:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1455:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V16*/ meltfptr[15] = 0; @@ -19315,7 +19418,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[13] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1451:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1456:/ quasiblock"); /*^getslot */ @@ -19326,7 +19429,7 @@ lab_endgetargs:; /*_.SCONT__V18*/ meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1452:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1457:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V3*/ meltfptr[2]) /*=obj*/ ; @@ -19339,7 +19442,7 @@ lab_endgetargs:; /*^compute */ /*_.SOPER__V21*/ meltfptr[20] = (melt_pair_head ((melt_ptr_t) ( /*_.LIST_FIRST__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:1454:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1459:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19362,7 +19465,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:1456:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1461:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19416,7 +19519,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V17*/ meltfptr[15] = /*_.INST___V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-macro.melt:1451:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1456:/ clear"); /*clear *//*_.SCONT__V18*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.SLOC__V19*/ meltfptr[18] = 0; @@ -19428,7 +19531,7 @@ lab_endgetargs:; /*clear *//*_.XARGTUP__V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.INST___V23*/ meltfptr[22] = 0; - MELT_LOCATION ("warmelt-macro.melt:1445:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1450:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19437,7 +19540,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { - MELT_LOCATION ("warmelt-macro.melt:1445:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1450:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19568,7 +19671,7 @@ meltrout_19_warmelt_macro_PATTERNEXPAND_PAIRLIST_AS_TUPLE (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1476:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1481:/ getarg"); /*_.PAIRLIST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19609,7 +19712,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1477:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1482:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19635,7 +19738,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1477:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1482:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19650,7 +19753,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1477:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1482:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19663,7 +19766,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1477; + argtab[2].meltbp_long = 1482; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_pairlist_as_tuple pairlist"; @@ -19683,7 +19786,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1477:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1482:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -19696,7 +19799,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1477:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1482:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -19704,7 +19807,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1477:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1482:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -19717,10 +19820,10 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1478:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1483:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:1480:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1485:/ quasiblock"); /*^newclosure */ @@ -19771,7 +19874,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.PSLOC__V5*/ meltfptr[4]); ; /*_.LAMBDA___V11*/ meltfptr[7] = /*_.LAMBDA___V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-macro.melt:1478:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1483:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19794,7 +19897,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1482:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1487:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19820,7 +19923,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1482:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1487:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19835,7 +19938,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1482:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1487:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19848,7 +19951,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1482; + argtab[2].meltbp_long = 1487; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_pairlist_as_tuple return restup"; @@ -19869,7 +19972,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1482:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1487:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0; @@ -19882,7 +19985,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1482:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1487:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[15] = /*_.IF___V15*/ meltfptr[14];; @@ -19890,7 +19993,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[13] = /*_.PROGN___V17*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1482:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1487:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V15*/ meltfptr[14] = 0; @@ -19903,7 +20006,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[13] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1483:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1488:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19912,7 +20015,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESTUP__V13*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:1483:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1488:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19927,7 +20030,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V10*/ meltfptr[6] = /*_.RETURN___V18*/ meltfptr[14];; - MELT_LOCATION ("warmelt-macro.melt:1478:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1483:/ clear"); /*clear *//*_.LAMBDA___V11*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.RESTUP__V13*/ meltfptr[12] = 0; @@ -19935,7 +20038,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.RETURN___V18*/ meltfptr[14] = 0; - MELT_LOCATION ("warmelt-macro.melt:1476:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1481:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19944,7 +20047,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[6];; { - MELT_LOCATION ("warmelt-macro.melt:1476:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1481:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20059,7 +20162,7 @@ meltrout_20_warmelt_macro_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1480:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1485:/ getarg"); /*_.X__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -20100,7 +20203,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PATTERNEXPAND_1__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:1480:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1485:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20217,7 +20320,7 @@ meltrout_21_warmelt_macro_PATMACEXPAND_FOR_MATCHER (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1490:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ getarg"); /*_.PAIRS__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -20268,7 +20371,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1491:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1496:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20280,7 +20383,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.MATCHER__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ANY_MATCHER */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:1491:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1496:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20288,7 +20391,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1491:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1496:/ cond.else"); /*^block */ /*anyblock */ @@ -20302,7 +20405,7 @@ lab_endgetargs:; melt_assert_failed (("check matcher"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1491) ? (1491) : __LINE__, __FUNCTION__); + (1496) ? (1496) : __LINE__, __FUNCTION__); ; } ; @@ -20316,7 +20419,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1491:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1496:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -20329,7 +20432,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1492:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1497:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20341,7 +20444,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:1492:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1497:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20349,7 +20452,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1492:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1497:/ cond.else"); /*^block */ /*anyblock */ @@ -20363,7 +20466,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1492) ? (1492) : __LINE__, __FUNCTION__); + (1497) ? (1497) : __LINE__, __FUNCTION__); ; } ; @@ -20377,7 +20480,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1492:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1497:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -20390,7 +20493,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1493:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1498:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20401,7 +20504,7 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:1493:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1498:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20409,7 +20512,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1493:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1498:/ cond.else"); /*^block */ /*anyblock */ @@ -20423,7 +20526,7 @@ lab_endgetargs:; melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1493) ? (1493) : __LINE__, __FUNCTION__); + (1498) ? (1498) : __LINE__, __FUNCTION__); ; } ; @@ -20437,7 +20540,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1493:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1498:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -20448,7 +20551,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1494:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1499:/ quasiblock"); /*^getslot */ @@ -20459,7 +20562,7 @@ lab_endgetargs:; /*_.MINS__V14*/ meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1495:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1500:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.MATCHER__V3*/ meltfptr[2]) /*=obj*/ ; @@ -20467,7 +20570,7 @@ lab_endgetargs:; /*_.MOUTS__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1496:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1501:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.PCTX__V6*/ meltfptr[5]) /*=obj*/ ; @@ -20475,7 +20578,7 @@ lab_endgetargs:; /*_.MEXPANDER__V16*/ meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1497:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1502:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20505,7 +20608,7 @@ lab_endgetargs:; /*^compute */ /*_#NBOUTS__L5*/ meltfnum[4] = (melt_multiple_length ((melt_ptr_t) ( /*_.MOUTS__V15*/ meltfptr[14])));; - MELT_LOCATION ("warmelt-macro.melt:1500:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1505:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20538,7 +20641,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.PAIRCONT__V18*/ meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; - MELT_LOCATION ("warmelt-macro.melt:1503:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1508:/ quasiblock"); /*^newclosure */ @@ -20628,7 +20731,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MATCHER__V3*/ meltfptr[2]); ; /*_.LAMBDA___V20*/ meltfptr[19] = /*_.LAMBDA___V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-macro.melt:1501:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1506:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20647,7 +20750,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:1515:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1520:/ quasiblock"); /*^newclosure */ @@ -20724,7 +20827,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MATCHER__V3*/ meltfptr[2]); ; /*_.LAMBDA___V23*/ meltfptr[22] = /*_.LAMBDA___V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:1513:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1518:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20743,7 +20846,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:1525:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1530:/ quasiblock"); /*^cond */ @@ -20771,13 +20874,13 @@ lab_endgetargs:; /*_.CURPAIR__V26*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1526:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1531:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L6*/ meltfnum[5] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-macro.melt:1526:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1531:/ cond"); /*cond */ if ( /*_#IS_PAIR__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -20787,7 +20890,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1528:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1533:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20813,7 +20916,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1528:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1533:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -20828,7 +20931,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1528:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1533:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20842,7 +20945,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1528; + argtab[2].meltbp_long = 1533; /*^apply.arg */ argtab[3].meltbp_cstring = "extra stuff in patmacexpand_for_matcher"; @@ -20864,7 +20967,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1528:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1533:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0; @@ -20877,7 +20980,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[27] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1528:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1533:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[28] = /*_.IF___V28*/ meltfptr[27];; @@ -20885,7 +20988,7 @@ lab_endgetargs:; /*_.IFCPP___V27*/ meltfptr[26] = /*_.PROGN___V30*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1528:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1533:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V28*/ meltfptr[27] = 0; @@ -20898,7 +21001,7 @@ lab_endgetargs:; /*_.IFCPP___V27*/ meltfptr[26] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1530:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1535:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20925,19 +21028,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:1529:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1534:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.PSLOC__V5*/ meltfptr[4]), ("ignored extra sub-{pattern | expression} in matcher"), (melt_ptr_t) ( /*_.NAMED_NAME__V31*/ meltfptr[27])); } ; - MELT_LOCATION ("warmelt-macro.melt:1527:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1532:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1526:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1531:/ clear"); /*clear *//*_.IFCPP___V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.NAMED_NAME__V31*/ meltfptr[27] = 0; @@ -20946,18 +21049,18 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:1525:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1530:/ clear"); /*clear *//*_.CURPAIR__V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_#IS_PAIR__L6*/ meltfnum[5] = 0; - MELT_LOCATION ("warmelt-macro.melt:1531:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1536:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.INARGS__V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:1531:/ putxtraresult"); + MELT_LOCATION ("warmelt-macro.melt:1536:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -20971,7 +21074,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V13*/ meltfptr[11] = /*_.RETURN___V32*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:1494:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1499:/ clear"); /*clear *//*_.MINS__V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.MOUTS__V15*/ meltfptr[14] = 0; @@ -20995,7 +21098,7 @@ lab_endgetargs:; /*clear *//*_.OUTPATS__V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.RETURN___V32*/ meltfptr[28] = 0; - MELT_LOCATION ("warmelt-macro.melt:1490:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21004,7 +21107,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; { - MELT_LOCATION ("warmelt-macro.melt:1490:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21123,7 +21226,7 @@ meltrout_22_warmelt_macro_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1503:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1508:/ getarg"); /*_.CURFBIND__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21141,7 +21244,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1504:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1509:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21153,7 +21256,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURFBIND__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:1504:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1509:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21161,7 +21264,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1504:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1509:/ cond.else"); /*^block */ /*anyblock */ @@ -21175,7 +21278,7 @@ lab_endgetargs:; melt_assert_failed (("check curfbind"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1504) ? (1504) : __LINE__, __FUNCTION__); + (1509) ? (1509) : __LINE__, __FUNCTION__); ; } ; @@ -21189,7 +21292,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1504:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1509:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -21200,7 +21303,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1505:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1510:/ quasiblock"); /*^cond */ @@ -21230,13 +21333,13 @@ lab_endgetargs:; /*_.CURPAIR__V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1506:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1511:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L3*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V6*/ meltfptr[5])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-macro.melt:1506:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1511:/ cond"); /*cond */ if ( /*_#IS_PAIR__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21244,17 +21347,17 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1507:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1512:/ quasiblock"); /*_.CURIN__V9*/ meltfptr[8] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V6*/ meltfptr[5])));; - MELT_LOCATION ("warmelt-macro.melt:1508:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1513:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V10*/ meltfptr[9] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V6*/ meltfptr[5])));; - MELT_LOCATION ("warmelt-macro.melt:1508:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1513:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -21293,7 +21396,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:1509:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1514:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21320,7 +21423,7 @@ lab_endgetargs:; ; /*_.LET___V8*/ meltfptr[7] = /*_.MEXPANDER__V11*/ meltfptr[10];; - MELT_LOCATION ("warmelt-macro.melt:1507:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1512:/ clear"); /*clear *//*_.CURIN__V9*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.PAIR_TAIL__V10*/ meltfptr[9] = 0; @@ -21329,7 +21432,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.LET___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1506:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1511:/ clear"); /*clear *//*_.LET___V8*/ meltfptr[7] = 0; } ; @@ -21341,7 +21444,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1511:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1516:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -21372,7 +21475,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:1510:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1515:/ locexp"); melt_error_str ((melt_ptr_t) (( /*~PSLOC */ meltfclos->tabval[4])), ("missing in argument for matcher"), @@ -21383,7 +21486,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1506:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1511:/ clear"); /*clear *//*_.NAMED_NAME__V12*/ meltfptr[8] = 0; } ; @@ -21391,13 +21494,13 @@ lab_endgetargs:; ; /*_.LET___V5*/ meltfptr[3] = /*_.IFELSE___V7*/ meltfptr[6];; - MELT_LOCATION ("warmelt-macro.melt:1505:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1510:/ clear"); /*clear *//*_.CURPAIR__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_#IS_PAIR__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; - MELT_LOCATION ("warmelt-macro.melt:1503:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1508:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21406,7 +21509,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; { - MELT_LOCATION ("warmelt-macro.melt:1503:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1508:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21521,7 +21624,7 @@ meltrout_23_warmelt_macro_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1515:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1520:/ getarg"); /*_.CURFORMAL__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21537,7 +21640,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:1516:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1521:/ quasiblock"); /*^cond */ @@ -21567,13 +21670,13 @@ lab_endgetargs:; /*_.CURPAIR__V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1517:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1522:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L2*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V4*/ meltfptr[3])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-macro.melt:1517:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1522:/ cond"); /*cond */ if ( /*_#IS_PAIR__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21581,17 +21684,17 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1518:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1523:/ quasiblock"); /*_.CUROUT__V7*/ meltfptr[6] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V4*/ meltfptr[3])));; - MELT_LOCATION ("warmelt-macro.melt:1519:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1524:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V8*/ meltfptr[7] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V4*/ meltfptr[3])));; - MELT_LOCATION ("warmelt-macro.melt:1519:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1524:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -21630,7 +21733,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:1520:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1525:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21657,7 +21760,7 @@ lab_endgetargs:; ; /*_.LET___V6*/ meltfptr[5] = /*_.PATTERNEXPAND_1__V9*/ meltfptr[8];; - MELT_LOCATION ("warmelt-macro.melt:1518:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1523:/ clear"); /*clear *//*_.CUROUT__V7*/ meltfptr[6] = 0; /*^clear */ /*clear *//*_.PAIR_TAIL__V8*/ meltfptr[7] = 0; @@ -21666,7 +21769,7 @@ lab_endgetargs:; /*_.IFELSE___V5*/ meltfptr[4] = /*_.LET___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1517:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1522:/ clear"); /*clear *//*_.LET___V6*/ meltfptr[5] = 0; } ; @@ -21678,7 +21781,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1522:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1527:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -21709,7 +21812,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:1521:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1526:/ locexp"); melt_error_str ((melt_ptr_t) (( /*~PSLOC */ meltfclos->tabval[3])), ("missing out argument for matcher"), @@ -21720,7 +21823,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1517:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1522:/ clear"); /*clear *//*_.NAMED_NAME__V10*/ meltfptr[6] = 0; } ; @@ -21728,19 +21831,19 @@ lab_endgetargs:; ; /*_.LET___V3*/ meltfptr[2] = /*_.IFELSE___V5*/ meltfptr[4];; - MELT_LOCATION ("warmelt-macro.melt:1516:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1521:/ clear"); /*clear *//*_.CURPAIR__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#IS_PAIR__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V5*/ meltfptr[4] = 0; - MELT_LOCATION ("warmelt-macro.melt:1515:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1520:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:1515:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1520:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21856,7 +21959,7 @@ meltrout_24_warmelt_macro_PATTERN_WEIGHT_TUPLE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1534:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1539:/ getarg"); /*_.SPATS__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -21868,7 +21971,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1539:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1544:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21879,7 +21982,7 @@ lab_endgetargs:; /*_#IS_MULTIPLE__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.SPATS__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION ("warmelt-macro.melt:1539:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1544:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21887,7 +21990,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1539:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1544:/ cond.else"); /*^block */ /*anyblock */ @@ -21901,7 +22004,7 @@ lab_endgetargs:; melt_assert_failed (("check spats"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1539) ? (1539) : __LINE__, __FUNCTION__); + (1544) ? (1544) : __LINE__, __FUNCTION__); ; } ; @@ -21915,7 +22018,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1539:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1544:/ clear"); /*clear *//*_#IS_MULTIPLE__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -21926,7 +22029,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1540:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1545:/ quasiblock"); /*_.BSUM__V6*/ meltfptr[5] = @@ -21943,7 +22046,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[0])), (0)));; - MELT_LOCATION ("warmelt-macro.melt:1547:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1552:/ quasiblock"); /*^newclosure */ @@ -21994,7 +22097,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.BMAX__V7*/ meltfptr[6]); ; /*_.LAMBDA___V9*/ meltfptr[8] = /*_.LAMBDA___V10*/ meltfptr[9];; - MELT_LOCATION ("warmelt-macro.melt:1545:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1550:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22020,14 +22123,14 @@ lab_endgetargs:; /*^compute */ /*_#GET_INT__L4*/ meltfnum[3] = (melt_get_int ((melt_ptr_t) ( /*_.BSUM__V6*/ meltfptr[5])));; - MELT_LOCATION ("warmelt-macro.melt:1564:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1569:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESTUP__V11*/ meltfptr[10];; - MELT_LOCATION ("warmelt-macro.melt:1564:/ putxtraresult"); + MELT_LOCATION ("warmelt-macro.melt:1569:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_LONG) @@ -22056,7 +22159,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V5*/ meltfptr[3] = /*_.RETURN___V12*/ meltfptr[11];; - MELT_LOCATION ("warmelt-macro.melt:1540:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1545:/ clear"); /*clear *//*_.BSUM__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.BMAX__V7*/ meltfptr[6] = 0; @@ -22074,7 +22177,7 @@ lab_endgetargs:; /*clear *//*_#GET_INT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.RETURN___V12*/ meltfptr[11] = 0; - MELT_LOCATION ("warmelt-macro.melt:1534:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1539:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22083,7 +22186,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; { - MELT_LOCATION ("warmelt-macro.melt:1534:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1539:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22198,7 +22301,7 @@ meltrout_25_warmelt_macro_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1547:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1552:/ getarg"); /*_.SUBPAT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -22214,7 +22317,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:1548:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1553:/ quasiblock"); /*^cond */ @@ -22253,7 +22356,7 @@ lab_endgetargs:; /*^compute */ /*_#IMAX__L5*/ meltfnum[4] = (melt_get_int ((melt_ptr_t) (( /*~BMAX */ meltfclos->tabval[2]))));; - MELT_LOCATION ("warmelt-macro.melt:1554:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1559:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -22266,38 +22369,38 @@ lab_endgetargs:; /*_#I__L6*/ meltfnum[5] = (( /*_#ISUM__L3*/ meltfnum[2]) + ( /*_#SUBW__L2*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-macro.melt:1556:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:1561:/ compute"); /*_#ISUM__L3*/ meltfnum[2] = /*_#SETQ___L7*/ meltfnum[6] = /*_#I__L6*/ meltfnum[5];; /*_#MINI__L8*/ meltfnum[7] = MIN (( /*_#IMIN__L4*/ meltfnum[3]), ( /*_#SUBW__L2*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-macro.melt:1557:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:1562:/ compute"); /*_#IMIN__L4*/ meltfnum[3] = /*_#SETQ___L9*/ meltfnum[8] = /*_#MINI__L8*/ meltfnum[7];; /*_#MAXI__L10*/ meltfnum[9] = MAX (( /*_#IMAX__L5*/ meltfnum[4]), ( /*_#SUBW__L2*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-macro.melt:1558:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:1563:/ compute"); /*_#IMAX__L5*/ meltfnum[4] = /*_#SETQ___L11*/ meltfnum[10] = /*_#MAXI__L10*/ meltfnum[9];; { - MELT_LOCATION ("warmelt-macro.melt:1559:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1564:/ locexp"); melt_put_int ((melt_ptr_t) (( /*~BSUM */ meltfclos->tabval[0])), ( /*_#ISUM__L3*/ meltfnum[2])); } ; { - MELT_LOCATION ("warmelt-macro.melt:1560:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1565:/ locexp"); melt_put_int ((melt_ptr_t) (( /*~BMIN */ meltfclos->tabval[1])), ( /*_#IMIN__L4*/ meltfnum[3])); } ; { - MELT_LOCATION ("warmelt-macro.melt:1561:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1566:/ locexp"); melt_put_int ((melt_ptr_t) (( /*~BMAX */ meltfclos->tabval[2])), ( /*_#IMAX__L5*/ meltfnum[4])); } @@ -22307,7 +22410,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_CONSTANT_INTEGER */ meltfrout->tabval[1])), ( /*_#SUBW__L2*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-macro.melt:1562:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1567:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22317,7 +22420,7 @@ lab_endgetargs:; /*_.MAKE_INTEGERBOX__V6*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-macro.melt:1562:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1567:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22330,7 +22433,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:1555:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1560:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[7] = /*_.RETURN___V7*/ meltfptr[6];; @@ -22338,7 +22441,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1554:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1559:/ clear"); /*clear *//*_#I__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_#SETQ___L7*/ meltfnum[6] = 0; @@ -22368,7 +22471,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V3*/ meltfptr[2] = /*_.IF___V5*/ meltfptr[4];; - MELT_LOCATION ("warmelt-macro.melt:1548:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1553:/ clear"); /*clear *//*_.BOXSUBW__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#SUBW__L2*/ meltfnum[1] = 0; @@ -22380,13 +22483,13 @@ lab_endgetargs:; /*clear *//*_#IMAX__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V5*/ meltfptr[4] = 0; - MELT_LOCATION ("warmelt-macro.melt:1547:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1552:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:1547:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1552:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22502,7 +22605,7 @@ meltrout_26_warmelt_macro_PATTERNEXPAND_EXPR (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1568:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -22543,7 +22646,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1569:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1574:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22555,7 +22658,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:1569:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1574:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22563,7 +22666,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1569:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1574:/ cond.else"); /*^block */ /*anyblock */ @@ -22577,7 +22680,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1569) ? (1569) : __LINE__, __FUNCTION__); + (1574) ? (1574) : __LINE__, __FUNCTION__); ; } ; @@ -22591,7 +22694,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1569:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1574:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -22604,7 +22707,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1570:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1575:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22616,7 +22719,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:1570:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1575:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22624,7 +22727,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1570:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1575:/ cond.else"); /*^block */ /*anyblock */ @@ -22638,7 +22741,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1570) ? (1570) : __LINE__, __FUNCTION__); + (1575) ? (1575) : __LINE__, __FUNCTION__); ; } ; @@ -22652,7 +22755,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1570:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1575:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -22665,7 +22768,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1571:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1576:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22676,7 +22779,7 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:1571:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1576:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22684,7 +22787,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1571:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1576:/ cond.else"); /*^block */ /*anyblock */ @@ -22698,7 +22801,7 @@ lab_endgetargs:; melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1571) ? (1571) : __LINE__, __FUNCTION__); + (1576) ? (1576) : __LINE__, __FUNCTION__); ; } ; @@ -22712,7 +22815,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1571:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1576:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -22725,7 +22828,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1572:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1577:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22751,7 +22854,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1572:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1577:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22766,7 +22869,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1572:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1577:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22779,7 +22882,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1572; + argtab[2].meltbp_long = 1577; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr sexpr"; /*^apply.arg */ @@ -22799,7 +22902,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1572:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1577:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0; @@ -22812,7 +22915,7 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1572:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1577:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[13] = /*_.IF___V13*/ meltfptr[12];; @@ -22820,7 +22923,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1572:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1577:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V13*/ meltfptr[12] = 0; @@ -22833,7 +22936,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1573:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1578:/ quasiblock"); /*^getslot */ @@ -22844,7 +22947,7 @@ lab_endgetargs:; /*_.SCONT__V17*/ meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1574:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1579:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -22857,14 +22960,14 @@ lab_endgetargs:; /*^compute */ /*_.SOPER__V20*/ meltfptr[19] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION ("warmelt-macro.melt:1577:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1582:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[4] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SOPER__V20*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:1577:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1582:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -22874,7 +22977,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1579:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1584:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22900,7 +23003,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1579:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1584:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22915,7 +23018,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1579:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1584:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22929,7 +23032,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1579; + argtab[2].meltbp_long = 1584; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr bad soper"; /*^apply.arg */ @@ -22950,7 +23053,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1579:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1584:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0; @@ -22963,7 +23066,7 @@ lab_endgetargs:; /*_.IF___V23*/ meltfptr[22] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1579:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1584:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[23] = /*_.IF___V23*/ meltfptr[22];; @@ -22971,7 +23074,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[21] = /*_.PROGN___V25*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1579:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1584:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V23*/ meltfptr[22] = 0; @@ -22986,20 +23089,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:1580:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1585:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V18*/ meltfptr[17]), ("pattern expression requires symbol operator"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:1581:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1586:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:1581:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1586:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23012,7 +23115,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:1578:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1583:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[23] = /*_.RETURN___V26*/ meltfptr[22];; @@ -23020,7 +23123,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = /*_.PROGN___V27*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1577:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1582:/ clear"); /*clear *//*_.IFCPP___V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.RETURN___V26*/ meltfptr[22] = 0; @@ -23035,7 +23138,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1582:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1587:/ quasiblock"); /*^checksignal */ @@ -23056,7 +23159,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:1583:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1588:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SOPER__V20*/ meltfptr[19]) /*=obj*/ ; @@ -23066,7 +23169,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1585:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1590:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23092,7 +23195,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1585:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1590:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -23107,7 +23210,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1585:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1590:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23121,7 +23224,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1585; + argtab[2].meltbp_long = 1590; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr opbind"; /*^apply.arg */ @@ -23141,7 +23244,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1585:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1590:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0; @@ -23154,7 +23257,7 @@ lab_endgetargs:; /*_.IF___V32*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1585:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1590:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[32] = /*_.IF___V32*/ meltfptr[31];; @@ -23162,7 +23265,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[30] = /*_.PROGN___V34*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1585:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1590:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V32*/ meltfptr[31] = 0; @@ -23175,12 +23278,12 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[30] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1587:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1592:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L11*/ meltfnum[0] = (( /*_.OPBIND__V29*/ meltfptr[22]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:1587:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1592:/ cond"); /*cond */ if ( /*_#NULL__L11*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23192,7 +23295,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:1588:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1593:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.SLOC__V18*/ meltfptr[17]), ("unbound pattern operator"), (melt_ptr_t) ( /*_.OPNAM__V30*/ meltfptr[23])); @@ -23205,13 +23308,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1587:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1592:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1590:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1595:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L12*/ meltfnum[7] = @@ -23219,7 +23322,7 @@ lab_endgetargs:; ( /*_.OPBIND__V29*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_PATMACRO_BINDING */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:1590:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1595:/ cond"); /*cond */ if ( /*_#IS_A__L12*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -23227,7 +23330,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1591:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1596:/ quasiblock"); /*^getslot */ @@ -23241,7 +23344,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1592:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1597:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23253,7 +23356,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.PATEXP__V38*/ meltfptr[37])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:1592:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1597:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -23261,7 +23364,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1592:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1597:/ cond.else"); /*^block */ /*anyblock */ @@ -23276,7 +23379,7 @@ lab_endgetargs:; ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1592) ? (1592) : __LINE__, + (1597) ? (1597) : __LINE__, __FUNCTION__); ; } @@ -23292,7 +23395,7 @@ lab_endgetargs:; /*_.IFELSE___V40*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1592:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1597:/ clear"); /*clear *//*_#IS_CLOSURE__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IFELSE___V40*/ meltfptr[39] = 0; @@ -23303,7 +23406,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[38] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1593:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1598:/ quasiblock"); /*^checksignal */ @@ -23330,7 +23433,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1594:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1599:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23356,7 +23459,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1594:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1599:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -23372,7 +23475,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1594:/ checksignal"); + ("warmelt-macro.melt:1599:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23386,7 +23489,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1594; + argtab[2].meltbp_long = 1599; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr patmacro so return resp"; @@ -23408,7 +23511,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1594:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1599:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ @@ -23422,7 +23525,7 @@ lab_endgetargs:; /*_.IF___V44*/ meltfptr[43] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1594:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1599:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[44] = @@ -23432,7 +23535,7 @@ lab_endgetargs:; /*_.PROGN___V46*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1594:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1599:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IF___V44*/ meltfptr[43] = 0; @@ -23445,7 +23548,7 @@ lab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[42] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1595:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1600:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -23454,7 +23557,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V42*/ meltfptr[41];; { - MELT_LOCATION ("warmelt-macro.melt:1595:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1600:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23470,7 +23573,7 @@ lab_endgetargs:; /*_.LET___V41*/ meltfptr[39] = /*_.RETURN___V47*/ meltfptr[43];; - MELT_LOCATION ("warmelt-macro.melt:1593:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1598:/ clear"); /*clear *//*_.RESP__V42*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_.IFCPP___V43*/ meltfptr[42] = 0; @@ -23478,7 +23581,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V47*/ meltfptr[43] = 0; /*_.LET___V37*/ meltfptr[36] = /*_.LET___V41*/ meltfptr[39];; - MELT_LOCATION ("warmelt-macro.melt:1591:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1596:/ clear"); /*clear *//*_.PATEXP__V38*/ meltfptr[37] = 0; /*^clear */ /*clear *//*_.IFCPP___V39*/ meltfptr[38] = 0; @@ -23488,7 +23591,7 @@ lab_endgetargs:; /*_.LET___V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1590:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1595:/ clear"); /*clear *//*_.LET___V37*/ meltfptr[36] = 0; } ; @@ -23500,14 +23603,14 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1597:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1602:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L16*/ meltfnum[14] = melt_is_instance_of ((melt_ptr_t) ( /*_.OPBIND__V29*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_CMATCHER_BINDING */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-macro.melt:1597:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1602:/ cond"); /*cond */ if ( /*_#IS_A__L16*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -23515,7 +23618,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1598:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1603:/ quasiblock"); /*^getslot */ @@ -23531,7 +23634,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1599:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1604:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23557,7 +23660,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1599:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1604:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -23573,7 +23676,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1599:/ checksignal"); + ("warmelt-macro.melt:1604:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23588,7 +23691,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1599; + argtab[2].meltbp_long = 1604; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr cmat"; @@ -23614,7 +23717,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1599:/ clear"); + ("warmelt-macro.melt:1604:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0; /*^clear */ @@ -23630,7 +23733,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1599:/ quasiblock"); + ("warmelt-macro.melt:1604:/ quasiblock"); /*_.PROGN___V54*/ meltfptr[39] = @@ -23640,7 +23743,7 @@ lab_endgetargs:; /*_.PROGN___V54*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1599:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1604:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IF___V52*/ meltfptr[37] = 0; @@ -23655,7 +23758,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1600:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1605:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23668,7 +23771,7 @@ lab_endgetargs:; ( /*_.CMAT__V50*/ meltfptr[42]), (melt_ptr_t) (( /*!CLASS_CMATCHER */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-macro.melt:1600:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1605:/ cond"); /*cond */ if ( /*_#IS_A__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -23678,7 +23781,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:1600:/ cond.else"); + ("warmelt-macro.melt:1605:/ cond.else"); /*^block */ /*anyblock */ @@ -23693,7 +23796,7 @@ lab_endgetargs:; ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1600) ? (1600) : + (1605) ? (1605) : __LINE__, __FUNCTION__); ; } @@ -23709,7 +23812,7 @@ lab_endgetargs:; /*_.IFELSE___V56*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1600:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1605:/ clear"); /*clear *//*_#IS_A__L19*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IFELSE___V56*/ meltfptr[38] = 0; @@ -23724,10 +23827,10 @@ lab_endgetargs:; /*_.PAIR_TAIL__V57*/ meltfptr[37] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V19*/ meltfptr[18])));; - MELT_LOCATION ("warmelt-macro.melt:1603:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1608:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:1601:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1606:/ quasiblock"); /*^multiapply */ @@ -23764,7 +23867,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1604:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1609:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23790,7 +23893,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1604:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1609:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -23806,7 +23909,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1604:/ checksignal"); + ("warmelt-macro.melt:1609:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23821,7 +23924,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1604; + argtab[2].meltbp_long = 1609; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr cmatcher args"; @@ -23847,7 +23950,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1604:/ clear"); + ("warmelt-macro.melt:1609:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[17] = 0; /*^clear */ @@ -23863,7 +23966,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1604:/ quasiblock"); + ("warmelt-macro.melt:1609:/ quasiblock"); /*_.PROGN___V64*/ meltfptr[62] = @@ -23873,7 +23976,7 @@ lab_endgetargs:; /*_.PROGN___V64*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1604:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1609:/ clear"); /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IF___V62*/ meltfptr[61] = 0; @@ -23888,7 +23991,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1605:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1610:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23914,7 +24017,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1605:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1610:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -23930,7 +24033,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1605:/ checksignal"); + ("warmelt-macro.melt:1610:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23945,7 +24048,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1605; + argtab[2].meltbp_long = 1610; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr cmatcher pats"; @@ -23971,7 +24074,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1605:/ clear"); + ("warmelt-macro.melt:1610:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[12] = 0; /*^clear */ @@ -23987,7 +24090,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1605:/ quasiblock"); + ("warmelt-macro.melt:1610:/ quasiblock"); /*_.PROGN___V68*/ meltfptr[66] = @@ -23997,7 +24100,7 @@ lab_endgetargs:; /*_.PROGN___V68*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1605:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1610:/ clear"); /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IF___V66*/ meltfptr[62] = 0; @@ -24010,10 +24113,10 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[61] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1608:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1613:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:1606:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1611:/ quasiblock"); /*^multiapply */ @@ -24046,7 +24149,7 @@ lab_endgetargs:; /*^quasiblock */ - MELT_LOCATION ("warmelt-macro.melt:1609:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1614:/ quasiblock"); /*^checksignal */ @@ -24060,7 +24163,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_CONSTANT_INTEGER */ meltfrout-> tabval[12])), ( /*_#I__L27*/ meltfnum[26])));; - MELT_LOCATION ("warmelt-macro.melt:1609:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1614:/ quasiblock"); /*^rawallocobj */ @@ -24155,7 +24258,7 @@ lab_endgetargs:; /*_.INST__V74*/ meltfptr[73];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1619:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1624:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24181,7 +24284,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1619:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1624:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L28*/ meltfnum[27]) /*then */ { /*^cond.then */ @@ -24197,7 +24300,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1619:/ checksignal"); + ("warmelt-macro.melt:1624:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24212,7 +24315,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1619; + argtab[2].meltbp_long = 1624; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr cmatcher return pcomp"; @@ -24238,7 +24341,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1619:/ clear"); + ("warmelt-macro.melt:1624:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L29*/ meltfnum[28] = 0; /*^clear */ @@ -24254,7 +24357,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1619:/ quasiblock"); + ("warmelt-macro.melt:1624:/ quasiblock"); /*_.PROGN___V78*/ meltfptr[76] = @@ -24264,7 +24367,7 @@ lab_endgetargs:; /*_.PROGN___V78*/ meltfptr[76];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1619:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1624:/ clear"); /*clear *//*_#MELT_NEED_DBG__L28*/ meltfnum[27] = 0; /*^clear */ /*clear *//*_.IF___V76*/ meltfptr[75] = 0; @@ -24277,7 +24380,7 @@ lab_endgetargs:; /*_.IFCPP___V75*/ meltfptr[74] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1620:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1625:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -24287,7 +24390,7 @@ lab_endgetargs:; /*_.PCOMP__V73*/ meltfptr[72];; { - MELT_LOCATION ("warmelt-macro.melt:1620:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1625:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -24304,7 +24407,7 @@ lab_endgetargs:; /*_.LET___V71*/ meltfptr[70] = /*_.RETURN___V79*/ meltfptr[75];; - MELT_LOCATION ("warmelt-macro.melt:1609:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1614:/ clear"); /*clear *//*_#I__L27*/ meltfnum[26] = 0; /*^clear */ /*clear *//*_.MAKE_INTEGERBOX__V72*/ meltfptr[71] = 0; @@ -24317,7 +24420,7 @@ lab_endgetargs:; /*_.MULTI___V69*/ meltfptr[62] = /*_.LET___V71*/ meltfptr[70];; - MELT_LOCATION ("warmelt-macro.melt:1606:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1611:/ clear"); /*clear *//*_.LET___V71*/ meltfptr[70] = 0; /*^clear */ @@ -24326,13 +24429,13 @@ lab_endgetargs:; /*clear *//*_#IMIN__L25*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_#ISUM__L26*/ meltfnum[25] = 0; - MELT_LOCATION ("warmelt-macro.melt:1601:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1606:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MULTI___V58*/ meltfptr[39] = /*_.MULTI___V69*/ meltfptr[62];; - MELT_LOCATION ("warmelt-macro.melt:1601:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1606:/ clear"); /*clear *//*_.IFCPP___V61*/ meltfptr[60] = 0; /*^clear */ /*clear *//*_.IFCPP___V65*/ meltfptr[61] = 0; @@ -24344,7 +24447,7 @@ lab_endgetargs:; /*_.LET___V49*/ meltfptr[41] = /*_.MULTI___V58*/ meltfptr[39];; - MELT_LOCATION ("warmelt-macro.melt:1598:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1603:/ clear"); /*clear *//*_.CMAT__V50*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_.IFCPP___V51*/ meltfptr[43] = 0; @@ -24358,7 +24461,7 @@ lab_endgetargs:; /*_.LET___V49*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1597:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1602:/ clear"); /*clear *//*_.LET___V49*/ meltfptr[41] = 0; } ; @@ -24370,7 +24473,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1623:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1628:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L30*/ meltfnum[28] = @@ -24378,7 +24481,7 @@ lab_endgetargs:; ( /*_.OPBIND__V29*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_FUNMATCHER_BINDING */ meltfrout->tabval[13])));; - MELT_LOCATION ("warmelt-macro.melt:1623:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1628:/ cond"); /*cond */ if ( /*_#IS_A__L30*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -24387,7 +24490,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1624:/ quasiblock"); + ("warmelt-macro.melt:1629:/ quasiblock"); /*^getslot */ @@ -24402,7 +24505,7 @@ lab_endgetargs:; }; ; MELT_LOCATION - ("warmelt-macro.melt:1625:/ getslot"); + ("warmelt-macro.melt:1630:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -24416,7 +24519,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1627:/ cppif.then"); + ("warmelt-macro.melt:1632:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24444,7 +24547,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1627:/ cond"); + ("warmelt-macro.melt:1632:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L31*/ meltfnum[27]) /*then */ { /*^cond.then */ @@ -24461,7 +24564,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1627:/ checksignal"); + ("warmelt-macro.melt:1632:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24477,7 +24580,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1627; + argtab[2].meltbp_long = 1632; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr funmatcher fmat"; @@ -24505,7 +24608,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1627:/ clear"); + ("warmelt-macro.melt:1632:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L32*/ meltfnum[26] = 0; /*^clear */ @@ -24521,7 +24624,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1627:/ quasiblock"); + ("warmelt-macro.melt:1632:/ quasiblock"); /*_.PROGN___V87*/ meltfptr[60] = @@ -24532,7 +24635,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1627:/ clear"); + ("warmelt-macro.melt:1632:/ clear"); /*clear *//*_#MELT_NEED_DBG__L31*/ meltfnum[27] = 0; /*^clear */ @@ -24549,7 +24652,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1628:/ cppif.then"); + ("warmelt-macro.melt:1633:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24577,7 +24680,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1628:/ cond"); + ("warmelt-macro.melt:1633:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L33*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -24594,7 +24697,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1628:/ checksignal"); + ("warmelt-macro.melt:1633:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24610,7 +24713,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1628; + argtab[2].meltbp_long = 1633; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr funmatcher defm"; @@ -24638,7 +24741,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1628:/ clear"); + ("warmelt-macro.melt:1633:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L34*/ meltfnum[17] = 0; /*^clear */ @@ -24654,7 +24757,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1628:/ quasiblock"); + ("warmelt-macro.melt:1633:/ quasiblock"); /*_.PROGN___V91*/ meltfptr[59] = @@ -24665,7 +24768,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1628:/ clear"); + ("warmelt-macro.melt:1633:/ clear"); /*clear *//*_#MELT_NEED_DBG__L33*/ meltfnum[12] = 0; /*^clear */ @@ -24682,7 +24785,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1629:/ cppif.then"); + ("warmelt-macro.melt:1634:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24710,7 +24813,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1629:/ cond"); + ("warmelt-macro.melt:1634:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L35*/ meltfnum[25]) /*then */ { /*^cond.then */ @@ -24727,7 +24830,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1629:/ checksignal"); + ("warmelt-macro.melt:1634:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24743,7 +24846,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1629; + argtab[2].meltbp_long = 1634; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr funmatcher opbind"; @@ -24771,7 +24874,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1629:/ clear"); + ("warmelt-macro.melt:1634:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L36*/ meltfnum[26] = 0; /*^clear */ @@ -24787,7 +24890,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1629:/ quasiblock"); + ("warmelt-macro.melt:1634:/ quasiblock"); /*_.PROGN___V95*/ meltfptr[37] = @@ -24798,7 +24901,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1629:/ clear"); + ("warmelt-macro.melt:1634:/ clear"); /*clear *//*_#MELT_NEED_DBG__L35*/ meltfnum[25] = 0; /*^clear */ @@ -24815,7 +24918,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1630:/ cppif.then"); + ("warmelt-macro.melt:1635:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24829,7 +24932,7 @@ lab_endgetargs:; meltfptr[72]), (melt_ptr_t) (( /*!CLASS_FUNMATCHER */ meltfrout->tabval[14])));; MELT_LOCATION - ("warmelt-macro.melt:1630:/ cond"); + ("warmelt-macro.melt:1635:/ cond"); /*cond */ if ( /*_#IS_A__L37*/ meltfnum[27]) /*then */ { /*^cond.then */ @@ -24839,7 +24942,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:1630:/ cond.else"); + ("warmelt-macro.melt:1635:/ cond.else"); /*^block */ /*anyblock */ @@ -24855,7 +24958,7 @@ lab_endgetargs:; ? ("warmelt-macro.melt") : __FILE__, - (1630) ? (1630) : + (1635) ? (1635) : __LINE__, __FUNCTION__); ; @@ -24874,7 +24977,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1630:/ clear"); + ("warmelt-macro.melt:1635:/ clear"); /*clear *//*_#IS_A__L37*/ meltfnum[27] = 0; /*^clear */ /*clear *//*_.IFELSE___V97*/ meltfptr[41] = 0; @@ -24891,11 +24994,11 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.CURPAIR__V19*/ meltfptr[18])));; MELT_LOCATION - ("warmelt-macro.melt:1633:/ checksignal"); + ("warmelt-macro.melt:1638:/ checksignal"); MELT_CHECK_SIGNAL (); ; MELT_LOCATION - ("warmelt-macro.melt:1631:/ quasiblock"); + ("warmelt-macro.melt:1636:/ quasiblock"); /*^multiapply */ @@ -24930,7 +25033,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1634:/ cppif.then"); + ("warmelt-macro.melt:1639:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24958,7 +25061,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1634:/ cond"); + ("warmelt-macro.melt:1639:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L38*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -24975,7 +25078,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1634:/ checksignal"); + ("warmelt-macro.melt:1639:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24991,7 +25094,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1634; + argtab[2].meltbp_long = 1639; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr funmatcher args"; @@ -25021,7 +25124,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1634:/ clear"); + ("warmelt-macro.melt:1639:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L39*/ meltfnum[12] = 0; /*^clear */ @@ -25037,7 +25140,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1634:/ quasiblock"); + ("warmelt-macro.melt:1639:/ quasiblock"); /*_.PROGN___V105*/ meltfptr[43] = @@ -25048,7 +25151,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1634:/ clear"); + ("warmelt-macro.melt:1639:/ clear"); /*clear *//*_#MELT_NEED_DBG__L38*/ meltfnum[17] = 0; /*^clear */ @@ -25066,7 +25169,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1635:/ cppif.then"); + ("warmelt-macro.melt:1640:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25094,7 +25197,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1635:/ cond"); + ("warmelt-macro.melt:1640:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L40*/ meltfnum[26]) /*then */ { /*^cond.then */ @@ -25111,7 +25214,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1635:/ checksignal"); + ("warmelt-macro.melt:1640:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25127,7 +25230,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1635; + argtab[2].meltbp_long = 1640; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr funmatcher pats"; @@ -25157,7 +25260,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1635:/ clear"); + ("warmelt-macro.melt:1640:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L41*/ meltfnum[25] = 0; /*^clear */ @@ -25173,7 +25276,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1635:/ quasiblock"); + ("warmelt-macro.melt:1640:/ quasiblock"); /*_.PROGN___V109*/ meltfptr[59] = @@ -25184,7 +25287,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1635:/ clear"); + ("warmelt-macro.melt:1640:/ clear"); /*clear *//*_#MELT_NEED_DBG__L40*/ meltfnum[26] = 0; /*^clear */ @@ -25200,11 +25303,11 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1638:/ checksignal"); + ("warmelt-macro.melt:1643:/ checksignal"); MELT_CHECK_SIGNAL (); ; MELT_LOCATION - ("warmelt-macro.melt:1636:/ quasiblock"); + ("warmelt-macro.melt:1641:/ quasiblock"); /*^multiapply */ @@ -25238,7 +25341,7 @@ lab_endgetargs:; MELT_LOCATION - ("warmelt-macro.melt:1639:/ quasiblock"); + ("warmelt-macro.melt:1644:/ quasiblock"); /*^checksignal */ @@ -25254,7 +25357,7 @@ lab_endgetargs:; tabval[12])), ( /*_#I__L45*/ meltfnum[25])));; MELT_LOCATION - ("warmelt-macro.melt:1639:/ quasiblock"); + ("warmelt-macro.melt:1644:/ quasiblock"); /*^rawallocobj */ @@ -25342,7 +25445,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1648:/ cppif.then"); + ("warmelt-macro.melt:1653:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25370,7 +25473,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1648:/ cond"); + ("warmelt-macro.melt:1653:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L46*/ meltfnum[26]) /*then */ { /*^cond.then */ @@ -25387,7 +25490,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1648:/ checksignal"); + ("warmelt-macro.melt:1653:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25403,7 +25506,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1648; + argtab[2].meltbp_long = 1653; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr funmatcher return pcomp"; @@ -25433,7 +25536,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1648:/ clear"); + ("warmelt-macro.melt:1653:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L47*/ meltfnum[46] = 0; /*^clear */ @@ -25449,7 +25552,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1648:/ quasiblock"); + ("warmelt-macro.melt:1653:/ quasiblock"); /*_.PROGN___V119*/ meltfptr[117] = @@ -25460,7 +25563,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1648:/ clear"); + ("warmelt-macro.melt:1653:/ clear"); /*clear *//*_#MELT_NEED_DBG__L46*/ meltfnum[26] = 0; /*^clear */ @@ -25476,7 +25579,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1649:/ checksignal"); + ("warmelt-macro.melt:1654:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -25487,7 +25590,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1649:/ locexp"); + ("warmelt-macro.melt:1654:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -25505,7 +25608,7 @@ lab_endgetargs:; /*_.LET___V112*/ meltfptr[41] = /*_.RETURN___V120*/ meltfptr[116];; - MELT_LOCATION ("warmelt-macro.melt:1639:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1644:/ clear"); /*clear *//*_#I__L45*/ meltfnum[25] = 0; /*^clear */ /*clear *//*_.MAKE_INTEGERBOX__V113*/ meltfptr[59] @@ -25519,7 +25622,7 @@ lab_endgetargs:; /*_.MULTI___V110*/ meltfptr[43] = /*_.LET___V112*/ meltfptr[41];; - MELT_LOCATION ("warmelt-macro.melt:1636:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1641:/ clear"); /*clear *//*_.LET___V112*/ meltfptr[41] = 0; /*^clear */ @@ -25529,13 +25632,13 @@ lab_endgetargs:; /*^clear */ /*clear *//*_#ISUM__L44*/ meltfnum[17] = 0; MELT_LOCATION - ("warmelt-macro.melt:1631:/ checksignal"); + ("warmelt-macro.melt:1636:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MULTI___V99*/ meltfptr[70] = /*_.MULTI___V110*/ meltfptr[43];; - MELT_LOCATION ("warmelt-macro.melt:1631:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1636:/ clear"); /*clear *//*_.IFCPP___V102*/ meltfptr[62] = 0; /*^clear */ /*clear *//*_.IFCPP___V106*/ meltfptr[37] = 0; @@ -25547,7 +25650,7 @@ lab_endgetargs:; /*_.LET___V81*/ meltfptr[71] = /*_.MULTI___V99*/ meltfptr[70];; - MELT_LOCATION ("warmelt-macro.melt:1624:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1629:/ clear"); /*clear *//*_.FMAT__V82*/ meltfptr[72] = 0; /*^clear */ /*clear *//*_.DEFM__V83*/ meltfptr[74] = 0; @@ -25567,7 +25670,7 @@ lab_endgetargs:; /*_.LET___V81*/ meltfptr[71];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1623:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1628:/ clear"); /*clear *//*_.LET___V81*/ meltfptr[71] = 0; } ; @@ -25580,7 +25683,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1652:/ checksignal"); + ("warmelt-macro.melt:1657:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L48*/ meltfnum[46] = @@ -25588,7 +25691,7 @@ lab_endgetargs:; ( /*_.OPBIND__V29*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[16])));; - MELT_LOCATION ("warmelt-macro.melt:1652:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1657:/ cond"); /*cond */ if ( /*_#IS_A__L48*/ meltfnum[46]) /*then */ { /*^cond.then */ @@ -25597,7 +25700,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1653:/ quasiblock"); + ("warmelt-macro.melt:1658:/ quasiblock"); /*^getslot */ @@ -25614,7 +25717,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1654:/ cppif.then"); + ("warmelt-macro.melt:1659:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25642,7 +25745,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1654:/ cond"); + ("warmelt-macro.melt:1659:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L49*/ meltfnum[26]) /*then */ { /*^cond.then */ @@ -25659,7 +25762,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1654:/ checksignal"); + ("warmelt-macro.melt:1659:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25676,7 +25779,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1654; + argtab[2].meltbp_long = 1659; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr imported opval"; @@ -25696,7 +25799,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1654:/ clear"); + ("warmelt-macro.melt:1659:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L50*/ meltfnum[25] = 0; /*^clear */ @@ -25712,7 +25815,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1654:/ quasiblock"); + ("warmelt-macro.melt:1659:/ quasiblock"); /*_.PROGN___V127*/ meltfptr[36] = @@ -25723,7 +25826,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1654:/ clear"); + ("warmelt-macro.melt:1659:/ clear"); /*clear *//*_#MELT_NEED_DBG__L49*/ meltfnum[26] = 0; /*^clear */ @@ -25741,7 +25844,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1656:/ checksignal"); + ("warmelt-macro.melt:1661:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L51*/ meltfnum[27] = @@ -25750,7 +25853,7 @@ lab_endgetargs:; meltfptr[113]), (melt_ptr_t) (( /*!CLASS_CMATCHER */ meltfrout->tabval[8])));; MELT_LOCATION - ("warmelt-macro.melt:1656:/ cond"); + ("warmelt-macro.melt:1661:/ cond"); /*cond */ if ( /*_#IS_A__L51*/ meltfnum[27]) /*then */ { /*^cond.then */ @@ -25764,11 +25867,11 @@ lab_endgetargs:; ( /*_.CURPAIR__V19*/ meltfptr[18])));; MELT_LOCATION - ("warmelt-macro.melt:1659:/ checksignal"); + ("warmelt-macro.melt:1664:/ checksignal"); MELT_CHECK_SIGNAL (); ; MELT_LOCATION - ("warmelt-macro.melt:1657:/ quasiblock"); + ("warmelt-macro.melt:1662:/ quasiblock"); /*^multiapply */ @@ -25804,7 +25907,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1660:/ cppif.then"); + ("warmelt-macro.melt:1665:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25833,7 +25936,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1660:/ cond"); + ("warmelt-macro.melt:1665:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L52*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -25850,7 +25953,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1660:/ checksignal"); + ("warmelt-macro.melt:1665:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25869,7 +25972,7 @@ lab_endgetargs:; "warmelt-macro.melt"; /*^apply.arg */ argtab[2].meltbp_long = - 1660; + 1665; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr imported cmatcher args"; @@ -25889,7 +25992,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1660:/ clear"); + ("warmelt-macro.melt:1665:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L53*/ meltfnum[17] = 0; /*^clear */ @@ -25906,7 +26009,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1660:/ quasiblock"); + ("warmelt-macro.melt:1665:/ quasiblock"); /*_.PROGN___V136*/ meltfptr[61] = @@ -25917,7 +26020,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1660:/ clear"); + ("warmelt-macro.melt:1665:/ clear"); /*clear *//*_#MELT_NEED_DBG__L52*/ meltfnum[12] = 0; /*^clear */ @@ -25937,7 +26040,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1661:/ cppif.then"); + ("warmelt-macro.melt:1666:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25966,7 +26069,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1661:/ cond"); + ("warmelt-macro.melt:1666:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L54*/ meltfnum[25]) /*then */ { /*^cond.then */ @@ -25983,7 +26086,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1661:/ checksignal"); + ("warmelt-macro.melt:1666:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26002,7 +26105,7 @@ lab_endgetargs:; "warmelt-macro.melt"; /*^apply.arg */ argtab[2].meltbp_long = - 1661; + 1666; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr imported cmatcher pats"; @@ -26022,7 +26125,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1661:/ clear"); + ("warmelt-macro.melt:1666:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L55*/ meltfnum[26] = 0; /*^clear */ @@ -26039,7 +26142,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1661:/ quasiblock"); + ("warmelt-macro.melt:1666:/ quasiblock"); /*_.PROGN___V140*/ meltfptr[70] = @@ -26050,7 +26153,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1661:/ clear"); + ("warmelt-macro.melt:1666:/ clear"); /*clear *//*_#MELT_NEED_DBG__L54*/ meltfnum[25] = 0; /*^clear */ @@ -26068,11 +26171,11 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1664:/ checksignal"); + ("warmelt-macro.melt:1669:/ checksignal"); MELT_CHECK_SIGNAL (); ; MELT_LOCATION - ("warmelt-macro.melt:1662:/ quasiblock"); + ("warmelt-macro.melt:1667:/ quasiblock"); /*^multiapply */ @@ -26101,7 +26204,7 @@ lab_endgetargs:; MELT_LOCATION - ("warmelt-macro.melt:1665:/ quasiblock"); + ("warmelt-macro.melt:1670:/ quasiblock"); /*^checksignal */ @@ -26119,7 +26222,7 @@ lab_endgetargs:; meltfrout->tabval[12])), ( /*_#I__L59*/ meltfnum[25])));; MELT_LOCATION - ("warmelt-macro.melt:1665:/ quasiblock"); + ("warmelt-macro.melt:1670:/ quasiblock"); /*^rawallocobj */ @@ -26188,7 +26291,7 @@ lab_endgetargs:; /*_.PCOMP__V145*/ meltfptr[75] = /*_.INST__V146*/ meltfptr[74];; MELT_LOCATION - ("warmelt-macro.melt:1674:/ cond"); + ("warmelt-macro.melt:1679:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.OPVAL__V123*/ meltfptr[113]), @@ -26220,7 +26323,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1676:/ cppif.then"); + ("warmelt-macro.melt:1681:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26249,7 +26352,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1676:/ cond"); + ("warmelt-macro.melt:1681:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L60*/ meltfnum[59]) /*then */ { /*^cond.then */ @@ -26266,7 +26369,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1676:/ checksignal"); + ("warmelt-macro.melt:1681:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26285,7 +26388,7 @@ lab_endgetargs:; "warmelt-macro.melt"; /*^apply.arg */ argtab[2].meltbp_long = - 1676; + 1681; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr imported cmatcher pats again"; @@ -26305,7 +26408,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1676:/ clear"); + ("warmelt-macro.melt:1681:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L61*/ meltfnum[60] = 0; /*^clear */ @@ -26322,7 +26425,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1676:/ quasiblock"); + ("warmelt-macro.melt:1681:/ quasiblock"); /*_.PROGN___V151*/ meltfptr[70] = @@ -26333,7 +26436,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1676:/ clear"); + ("warmelt-macro.melt:1681:/ clear"); /*clear *//*_#MELT_NEED_DBG__L60*/ meltfnum[59] = 0; /*^clear */ @@ -26353,7 +26456,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1677:/ cppif.then"); + ("warmelt-macro.melt:1682:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26382,7 +26485,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1677:/ cond"); + ("warmelt-macro.melt:1682:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L62*/ meltfnum[60]) /*then */ { /*^cond.then */ @@ -26399,7 +26502,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1677:/ checksignal"); + ("warmelt-macro.melt:1682:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26418,7 +26521,7 @@ lab_endgetargs:; "warmelt-macro.melt"; /*^apply.arg */ argtab[2].meltbp_long = - 1677; + 1682; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr aouts"; @@ -26438,7 +26541,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1677:/ clear"); + ("warmelt-macro.melt:1682:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L63*/ meltfnum[59] = 0; /*^clear */ @@ -26455,7 +26558,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1677:/ quasiblock"); + ("warmelt-macro.melt:1682:/ quasiblock"); /*_.PROGN___V155*/ meltfptr[153] = @@ -26466,7 +26569,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1677:/ clear"); + ("warmelt-macro.melt:1682:/ clear"); /*clear *//*_#MELT_NEED_DBG__L62*/ meltfnum[60] = 0; /*^clear */ @@ -26484,7 +26587,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1678:/ checksignal"); + ("warmelt-macro.melt:1683:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#MULTIPLE_LENGTH__L64*/ @@ -26507,7 +26610,7 @@ lab_endgetargs:; ( /*_#MULTIPLE_LENGTH__L65*/ meltfnum[60]));; MELT_LOCATION - ("warmelt-macro.melt:1678:/ cond"); + ("warmelt-macro.melt:1683:/ cond"); /*cond */ if ( /*_#I__L66*/ meltfnum[65]) /*then */ { /*^cond.then */ @@ -26516,7 +26619,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1680:/ cond"); + ("warmelt-macro.melt:1685:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of @@ -26550,7 +26653,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1679:/ locexp"); + ("warmelt-macro.melt:1684:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.SLOC__V18*/ meltfptr[17]), ("incompatible number of formal and actual subpatterns of cmatcher"), (melt_ptr_t) ( /*_.NAMED_NAME__V156*/ meltfptr[70])); @@ -26559,7 +26662,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1678:/ clear"); + ("warmelt-macro.melt:1683:/ clear"); /*clear *//*_.NAMED_NAME__V156*/ meltfptr[70] = 0; } @@ -26569,7 +26672,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1681:/ cppif.then"); + ("warmelt-macro.melt:1686:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26598,7 +26701,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1681:/ cond"); + ("warmelt-macro.melt:1686:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L67*/ meltfnum[66]) /*then */ { /*^cond.then */ @@ -26615,7 +26718,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1681:/ checksignal"); + ("warmelt-macro.melt:1686:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26634,7 +26737,7 @@ lab_endgetargs:; "warmelt-macro.melt"; /*^apply.arg */ argtab[2].meltbp_long = - 1681; + 1686; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_expr cmatcher value pcomp"; @@ -26654,7 +26757,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1681:/ clear"); + ("warmelt-macro.melt:1686:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L68*/ meltfnum[67] = 0; /*^clear */ @@ -26671,7 +26774,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1681:/ quasiblock"); + ("warmelt-macro.melt:1686:/ quasiblock"); /*_.PROGN___V160*/ meltfptr[158] = @@ -26682,7 +26785,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1681:/ clear"); + ("warmelt-macro.melt:1686:/ clear"); /*clear *//*_#MELT_NEED_DBG__L67*/ meltfnum[66] = 0; /*^clear */ @@ -26700,7 +26803,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1682:/ checksignal"); + ("warmelt-macro.melt:1687:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26711,7 +26814,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1682:/ locexp"); + ("warmelt-macro.melt:1687:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ @@ -26731,7 +26834,7 @@ lab_endgetargs:; /*_.RETURN___V161*/ meltfptr[70];; MELT_LOCATION - ("warmelt-macro.melt:1665:/ clear"); + ("warmelt-macro.melt:1670:/ clear"); /*clear *//*_#I__L59*/ meltfnum[25] = 0; /*^clear */ @@ -26768,7 +26871,7 @@ lab_endgetargs:; /*_.LET___V143*/ meltfptr[116];; MELT_LOCATION - ("warmelt-macro.melt:1662:/ clear"); + ("warmelt-macro.melt:1667:/ clear"); /*clear *//*_.LET___V143*/ meltfptr[116] = 0; @@ -26782,14 +26885,14 @@ lab_endgetargs:; /*clear *//*_#ISUM__L58*/ meltfnum[26] = 0; MELT_LOCATION - ("warmelt-macro.melt:1657:/ checksignal"); + ("warmelt-macro.melt:1662:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MULTI___V130*/ meltfptr[43] = /*_.MULTI___V141*/ meltfptr[71];; MELT_LOCATION - ("warmelt-macro.melt:1657:/ clear"); + ("warmelt-macro.melt:1662:/ clear"); /*clear *//*_.IFCPP___V133*/ meltfptr[72] = 0; /*^clear */ @@ -26807,7 +26910,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1656:/ clear"); + ("warmelt-macro.melt:1661:/ clear"); /*clear *//*_.PAIR_TAIL__V129*/ meltfptr[37] = 0; /*^clear */ @@ -26824,14 +26927,14 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1684:/ checksignal"); + ("warmelt-macro.melt:1689:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L69*/ meltfnum[67] = melt_is_instance_of ((melt_ptr_t) ( /*_.OPVAL__V123*/ meltfptr[113]), (melt_ptr_t) (( /*!CLASS_FUNMATCHER */ meltfrout->tabval[14])));; MELT_LOCATION - ("warmelt-macro.melt:1684:/ cond"); + ("warmelt-macro.melt:1689:/ cond"); /*cond */ if ( /*_#IS_A__L69*/ meltfnum[67]) /*then */ { /*^cond.then */ @@ -26842,7 +26945,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1685:/ cppif.then"); + ("warmelt-macro.melt:1690:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26871,7 +26974,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1685:/ cond"); + ("warmelt-macro.melt:1690:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L70*/ meltfnum[66]) /*then */ { /*^cond.then */ @@ -26888,7 +26991,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1685:/ checksignal"); + ("warmelt-macro.melt:1690:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26910,7 +27013,7 @@ lab_endgetargs:; "warmelt-macro.melt"; /*^apply.arg */ argtab[2]. - meltbp_long = 1685; + meltbp_long = 1690; /*^apply.arg */ argtab[3]. meltbp_cstring = @@ -26933,7 +27036,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1685:/ clear"); + ("warmelt-macro.melt:1690:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L71*/ meltfnum[25] = 0; /*^clear */ @@ -26950,7 +27053,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1685:/ quasiblock"); + ("warmelt-macro.melt:1690:/ quasiblock"); /*_.PROGN___V166*/ @@ -26965,7 +27068,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1685:/ clear"); + ("warmelt-macro.melt:1690:/ clear"); /*clear *//*_#MELT_NEED_DBG__L70*/ meltfnum[66] = 0; /*^clear */ @@ -26990,11 +27093,11 @@ lab_endgetargs:; ( /*_.CURPAIR__V19*/ meltfptr[18])));; MELT_LOCATION - ("warmelt-macro.melt:1688:/ checksignal"); + ("warmelt-macro.melt:1693:/ checksignal"); MELT_CHECK_SIGNAL (); ; MELT_LOCATION - ("warmelt-macro.melt:1686:/ quasiblock"); + ("warmelt-macro.melt:1691:/ quasiblock"); /*^multiapply */ @@ -27031,7 +27134,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1689:/ cppif.then"); + ("warmelt-macro.melt:1694:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27060,7 +27163,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1689:/ cond"); + ("warmelt-macro.melt:1694:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L72*/ meltfnum[59]) /*then */ { /*^cond.then */ @@ -27077,7 +27180,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1689:/ checksignal"); + ("warmelt-macro.melt:1694:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27099,7 +27202,7 @@ lab_endgetargs:; "warmelt-macro.melt"; /*^apply.arg */ argtab[2]. - meltbp_long = 1689; + meltbp_long = 1694; /*^apply.arg */ argtab[3]. meltbp_cstring = @@ -27122,7 +27225,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1689:/ clear"); + ("warmelt-macro.melt:1694:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L73*/ meltfnum[60] = 0; /*^clear */ @@ -27139,7 +27242,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1689:/ quasiblock"); + ("warmelt-macro.melt:1694:/ quasiblock"); /*_.PROGN___V174*/ @@ -27154,7 +27257,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1689:/ clear"); + ("warmelt-macro.melt:1694:/ clear"); /*clear *//*_#MELT_NEED_DBG__L72*/ meltfnum[59] = 0; /*^clear */ @@ -27174,7 +27277,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1690:/ cppif.then"); + ("warmelt-macro.melt:1695:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27203,7 +27306,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1690:/ cond"); + ("warmelt-macro.melt:1695:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L74*/ meltfnum[65]) /*then */ { /*^cond.then */ @@ -27220,7 +27323,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1690:/ checksignal"); + ("warmelt-macro.melt:1695:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27242,7 +27345,7 @@ lab_endgetargs:; "warmelt-macro.melt"; /*^apply.arg */ argtab[2]. - meltbp_long = 1690; + meltbp_long = 1695; /*^apply.arg */ argtab[3]. meltbp_cstring = @@ -27265,7 +27368,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1690:/ clear"); + ("warmelt-macro.melt:1695:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L75*/ meltfnum[17] = 0; /*^clear */ @@ -27282,7 +27385,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1690:/ quasiblock"); + ("warmelt-macro.melt:1695:/ quasiblock"); /*_.PROGN___V178*/ @@ -27297,7 +27400,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1690:/ clear"); + ("warmelt-macro.melt:1695:/ clear"); /*clear *//*_#MELT_NEED_DBG__L74*/ meltfnum[65] = 0; /*^clear */ @@ -27315,11 +27418,11 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1693:/ checksignal"); + ("warmelt-macro.melt:1698:/ checksignal"); MELT_CHECK_SIGNAL (); ; MELT_LOCATION - ("warmelt-macro.melt:1691:/ quasiblock"); + ("warmelt-macro.melt:1696:/ quasiblock"); /*^multiapply */ @@ -27351,7 +27454,7 @@ lab_endgetargs:; MELT_LOCATION - ("warmelt-macro.melt:1694:/ quasiblock"); + ("warmelt-macro.melt:1699:/ quasiblock"); /*^checksignal */ @@ -27368,7 +27471,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_CONSTANT_INTEGER */ meltfrout->tabval[12])), ( /*_#I__L79*/ meltfnum[66])));; MELT_LOCATION - ("warmelt-macro.melt:1694:/ quasiblock"); + ("warmelt-macro.melt:1699:/ quasiblock"); /*^rawallocobj */ @@ -27435,7 +27538,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1704:/ cppif.then"); + ("warmelt-macro.melt:1709:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27464,7 +27567,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1704:/ cond"); + ("warmelt-macro.melt:1709:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L80*/ meltfnum[60]) /*then */ { /*^cond.then */ @@ -27481,7 +27584,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1704:/ checksignal"); + ("warmelt-macro.melt:1709:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27503,7 +27606,7 @@ lab_endgetargs:; "warmelt-macro.melt"; /*^apply.arg */ argtab[2]. - meltbp_long = 1704; + meltbp_long = 1709; /*^apply.arg */ argtab[3]. meltbp_cstring = @@ -27526,7 +27629,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1704:/ clear"); + ("warmelt-macro.melt:1709:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L81*/ meltfnum[59] = 0; /*^clear */ @@ -27543,7 +27646,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1704:/ quasiblock"); + ("warmelt-macro.melt:1709:/ quasiblock"); /*_.PROGN___V188*/ @@ -27558,7 +27661,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1704:/ clear"); + ("warmelt-macro.melt:1709:/ clear"); /*clear *//*_#MELT_NEED_DBG__L80*/ meltfnum[60] = 0; /*^clear */ @@ -27576,7 +27679,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1705:/ checksignal"); + ("warmelt-macro.melt:1710:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -27588,7 +27691,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1705:/ locexp"); + ("warmelt-macro.melt:1710:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ @@ -27609,7 +27712,7 @@ lab_endgetargs:; meltfptr[38];; MELT_LOCATION - ("warmelt-macro.melt:1694:/ clear"); + ("warmelt-macro.melt:1699:/ clear"); /*clear *//*_#I__L79*/ meltfnum[66] = 0; /*^clear */ @@ -27630,7 +27733,7 @@ lab_endgetargs:; meltfptr[66];; MELT_LOCATION - ("warmelt-macro.melt:1691:/ clear"); + ("warmelt-macro.melt:1696:/ clear"); /*clear *//*_.LET___V181*/ meltfptr[66] = 0; @@ -27644,7 +27747,7 @@ lab_endgetargs:; /*clear *//*_#ISUM__L78*/ meltfnum[25] = 0; MELT_LOCATION - ("warmelt-macro.melt:1686:/ checksignal"); + ("warmelt-macro.melt:1691:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MULTI___V168*/ meltfptr[153] @@ -27653,7 +27756,7 @@ lab_endgetargs:; meltfptr[61];; MELT_LOCATION - ("warmelt-macro.melt:1686:/ clear"); + ("warmelt-macro.melt:1691:/ clear"); /*clear *//*_.IFCPP___V171*/ meltfptr[41] = 0; /*^clear */ @@ -27667,7 +27770,7 @@ lab_endgetargs:; /*clear *//*_.PATS__V170*/ meltfptr[116] = 0; MELT_LOCATION - ("warmelt-macro.melt:1684:/ quasiblock"); + ("warmelt-macro.melt:1689:/ quasiblock"); /*_.PROGN___V190*/ meltfptr[43] @@ -27682,7 +27785,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1684:/ clear"); + ("warmelt-macro.melt:1689:/ clear"); /*clear *//*_.IFCPP___V163*/ meltfptr[36] = 0; /*^clear */ @@ -27707,13 +27810,13 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1709:/ locexp"); + ("warmelt-macro.melt:1714:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.SLOC__V18*/ meltfptr[17]), ("invalid pattern operator value"), (melt_ptr_t) ( /*_.OPNAM__V30*/ meltfptr[23])); } ; MELT_LOCATION - ("warmelt-macro.melt:1710:/ quasiblock"); + ("warmelt-macro.melt:1715:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = @@ -27721,7 +27824,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1710:/ locexp"); + ("warmelt-macro.melt:1715:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ @@ -27738,7 +27841,7 @@ lab_endgetargs:; ; /*finalret */ goto labend_rout; MELT_LOCATION - ("warmelt-macro.melt:1708:/ quasiblock"); + ("warmelt-macro.melt:1713:/ quasiblock"); /*_.PROGN___V192*/ meltfptr[72] @@ -27753,7 +27856,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1684:/ clear"); + ("warmelt-macro.melt:1689:/ clear"); /*clear *//*_.RETURN___V191*/ meltfptr[42] = 0; /*^clear */ @@ -27768,7 +27871,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1656:/ clear"); + ("warmelt-macro.melt:1661:/ clear"); /*clear *//*_#IS_A__L69*/ meltfnum[67] = 0; /*^clear */ @@ -27782,7 +27885,7 @@ lab_endgetargs:; /*_.IFELSE___V128*/ meltfptr[62];; MELT_LOCATION - ("warmelt-macro.melt:1653:/ clear"); + ("warmelt-macro.melt:1658:/ clear"); /*clear *//*_.OPVAL__V123*/ meltfptr[113] = 0; /*^clear */ @@ -27798,7 +27901,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1652:/ clear"); + ("warmelt-macro.melt:1657:/ clear"); /*clear *//*_.LET___V122*/ meltfptr[59] = 0; } ; @@ -27813,7 +27916,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1712:/ locexp"); + ("warmelt-macro.melt:1717:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.SLOC__V18*/ meltfptr[17]), @@ -27822,7 +27925,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1711:/ quasiblock"); + ("warmelt-macro.melt:1716:/ quasiblock"); /*epilog */ @@ -27834,7 +27937,7 @@ lab_endgetargs:; /*_.IFELSE___V121*/ meltfptr[117];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1623:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1628:/ clear"); /*clear *//*_#IS_A__L48*/ meltfnum[46] = 0; /*^clear */ /*clear *//*_.IFELSE___V121*/ meltfptr[117] = 0; @@ -27846,7 +27949,7 @@ lab_endgetargs:; /*_.IFELSE___V80*/ meltfptr[76];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1597:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1602:/ clear"); /*clear *//*_#IS_A__L30*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.IFELSE___V80*/ meltfptr[76] = 0; @@ -27858,7 +27961,7 @@ lab_endgetargs:; /*_.IFELSE___V48*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1590:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1595:/ clear"); /*clear *//*_#IS_A__L16*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IFELSE___V48*/ meltfptr[44] = 0; @@ -27869,7 +27972,7 @@ lab_endgetargs:; /*_.IFELSE___V35*/ meltfptr[31] = /*_.IFELSE___V36*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1587:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1592:/ clear"); /*clear *//*_#IS_A__L12*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V36*/ meltfptr[32] = 0; @@ -27879,7 +27982,7 @@ lab_endgetargs:; ; /*_.LET___V28*/ meltfptr[21] = /*_.IFELSE___V35*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:1582:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1587:/ clear"); /*clear *//*_.OPBIND__V29*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.OPNAM__V30*/ meltfptr[23] = 0; @@ -27891,7 +27994,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V35*/ meltfptr[31] = 0; /*_.LET___V16*/ meltfptr[12] = /*_.LET___V28*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:1573:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1578:/ clear"); /*clear *//*_.SCONT__V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.SLOC__V18*/ meltfptr[17] = 0; @@ -27905,7 +28008,7 @@ lab_endgetargs:; /*clear *//*_.IF___V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.LET___V28*/ meltfptr[21] = 0; - MELT_LOCATION ("warmelt-macro.melt:1568:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -27914,7 +28017,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:1568:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -28036,7 +28139,7 @@ meltrout_27_warmelt_macro_PATTERNEXPAND_1 (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1721:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -28077,7 +28180,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1722:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1727:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28089,7 +28192,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:1722:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1727:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -28097,7 +28200,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1722:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1727:/ cond.else"); /*^block */ /*anyblock */ @@ -28111,7 +28214,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1722) ? (1722) : __LINE__, __FUNCTION__); + (1727) ? (1727) : __LINE__, __FUNCTION__); ; } ; @@ -28125,7 +28228,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1722:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1727:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -28138,7 +28241,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1723:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1728:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28149,7 +28252,7 @@ lab_endgetargs:; /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:1723:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1728:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -28157,7 +28260,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1723:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1728:/ cond.else"); /*^block */ /*anyblock */ @@ -28171,7 +28274,7 @@ lab_endgetargs:; melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1723) ? (1723) : __LINE__, __FUNCTION__); + (1728) ? (1728) : __LINE__, __FUNCTION__); ; } ; @@ -28185,7 +28288,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1723:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1728:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -28196,14 +28299,14 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1725:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1730:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:1725:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1730:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -28211,7 +28314,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1726:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1731:/ quasiblock"); /*^getslot */ @@ -28222,7 +28325,7 @@ lab_endgetargs:; /*_.SCONT__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1727:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1732:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -28230,7 +28333,7 @@ lab_endgetargs:; /*_.SLOC__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1728:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1733:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -28264,7 +28367,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.CURPAIR__V15*/ meltfptr[14])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1731:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1736:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28290,7 +28393,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1731:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1736:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -28305,7 +28408,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1731:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1736:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28319,7 +28422,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1731; + argtab[2].meltbp_long = 1736; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_1 sexpr"; /*^apply.arg */ @@ -28340,7 +28443,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1731:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1736:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0; @@ -28353,7 +28456,7 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[17] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1731:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1736:/ quasiblock"); /*_.PROGN___V20*/ meltfptr[18] = /*_.IF___V18*/ meltfptr[17];; @@ -28361,7 +28464,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[16] = /*_.PROGN___V20*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1731:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1736:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V18*/ meltfptr[17] = 0; @@ -28376,7 +28479,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1732:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1737:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28402,7 +28505,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1732:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1737:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -28417,7 +28520,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1732:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1737:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28431,7 +28534,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1732; + argtab[2].meltbp_long = 1737; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_1 soper"; /*^apply.arg */ @@ -28452,7 +28555,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1732:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1737:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0; @@ -28465,7 +28568,7 @@ lab_endgetargs:; /*_.IF___V22*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1732:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1737:/ quasiblock"); /*_.PROGN___V24*/ meltfptr[22] = /*_.IF___V22*/ meltfptr[18];; @@ -28473,7 +28576,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[17] = /*_.PROGN___V24*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1732:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1737:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V22*/ meltfptr[18] = 0; @@ -28486,13 +28589,13 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1733:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1738:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L8*/ meltfnum[3] = (( /*_.SOPER__V16*/ meltfptr[15]) != (( /*!konst_4_QUESTION */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:1733:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1738:/ cond"); /*cond */ if ( /*_#__L8*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -28500,7 +28603,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1735:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1740:/ quasiblock"); /*^getslot */ @@ -28511,7 +28614,7 @@ lab_endgetargs:; /*_.MEXPANDER__V27*/ meltfptr[26] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1736:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1741:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28537,7 +28640,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:1737:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1742:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -28594,7 +28697,7 @@ lab_endgetargs:; /*_.PAT__V29*/ meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1742:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1747:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28620,7 +28723,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1742:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1747:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -28636,7 +28739,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1742:/ checksignal"); + ("warmelt-macro.melt:1747:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28650,7 +28753,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1742; + argtab[2].meltbp_long = 1747; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_1 return const pat"; @@ -28672,7 +28775,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1742:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1747:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0; /*^clear */ @@ -28686,7 +28789,7 @@ lab_endgetargs:; /*_.IF___V32*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1742:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1747:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[32] = @@ -28696,7 +28799,7 @@ lab_endgetargs:; /*_.PROGN___V34*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1742:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1747:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V32*/ meltfptr[31] = 0; @@ -28709,7 +28812,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[30] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1743:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1748:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -28718,7 +28821,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PAT__V29*/ meltfptr[28];; { - MELT_LOCATION ("warmelt-macro.melt:1743:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1748:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -28734,7 +28837,7 @@ lab_endgetargs:; /*_.LET___V26*/ meltfptr[22] = /*_.RETURN___V35*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:1735:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1740:/ clear"); /*clear *//*_.MEXPANDER__V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.EXP__V28*/ meltfptr[27] = 0; @@ -28748,7 +28851,7 @@ lab_endgetargs:; /*_.LET___V26*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1733:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1738:/ clear"); /*clear *//*_.LET___V26*/ meltfptr[22] = 0; } ; @@ -28760,26 +28863,26 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1746:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1751:/ quasiblock"); /*_.PAIR_TAIL__V37*/ meltfptr[26] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION ("warmelt-macro.melt:1746:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:1751:/ compute"); /*_.CURPAIR__V15*/ meltfptr[14] = /*_.SETQ___V38*/ meltfptr[27] = /*_.PAIR_TAIL__V37*/ meltfptr[26];; /*_.PARG1__V39*/ meltfptr[28] = (melt_pair_head ((melt_ptr_t) ( /*_.SETQ___V38*/ meltfptr[27])));; - MELT_LOCATION ("warmelt-macro.melt:1747:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1752:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V40*/ meltfptr[30] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V15*/ meltfptr[14])));; - MELT_LOCATION ("warmelt-macro.melt:1747:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1752:/ cond"); /*cond */ if ( /*_.PAIR_TAIL__V40*/ meltfptr[30]) /*then */ { /*^cond.then */ @@ -28789,7 +28892,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:1748:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1753:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V13*/ meltfptr[12]), @@ -28802,13 +28905,13 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:1750:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1755:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L11*/ meltfnum[9] = (( /*_.PARG1__V39*/ meltfptr[28]) == (( /*!konst_7_ */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-macro.melt:1750:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1755:/ cond"); /*cond */ if ( /*_#__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -28816,7 +28919,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1751:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1756:/ quasiblock"); /*^checksignal */ @@ -28827,7 +28930,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[10])), (0)));; - MELT_LOCATION ("warmelt-macro.melt:1751:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1756:/ quasiblock"); /*^rawallocobj */ @@ -28898,7 +29001,7 @@ lab_endgetargs:; /*_.INST__V45*/ meltfptr[44];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1757:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1762:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28924,7 +29027,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1757:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1762:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -28940,7 +29043,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1757:/ checksignal"); + ("warmelt-macro.melt:1762:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28955,7 +29058,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1757; + argtab[2].meltbp_long = 1762; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_1 return jokervar"; @@ -28981,7 +29084,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1757:/ clear"); + ("warmelt-macro.melt:1762:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0; /*^clear */ @@ -28997,7 +29100,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1757:/ quasiblock"); + ("warmelt-macro.melt:1762:/ quasiblock"); /*_.PROGN___V49*/ meltfptr[47] = @@ -29007,7 +29110,7 @@ lab_endgetargs:; /*_.PROGN___V49*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1757:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1762:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V47*/ meltfptr[46] = 0; @@ -29020,7 +29123,7 @@ lab_endgetargs:; /*_.IFCPP___V46*/ meltfptr[45] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1758:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1763:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -29030,7 +29133,7 @@ lab_endgetargs:; /*_.JOKP__V44*/ meltfptr[43];; { - MELT_LOCATION ("warmelt-macro.melt:1758:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1763:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -29047,7 +29150,7 @@ lab_endgetargs:; /*_.LET___V42*/ meltfptr[22] = /*_.RETURN___V50*/ meltfptr[46];; - MELT_LOCATION ("warmelt-macro.melt:1751:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1756:/ clear"); /*clear *//*_.MAKE_INTEGERBOX__V43*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_.JOKP__V44*/ meltfptr[43] = 0; @@ -29059,7 +29162,7 @@ lab_endgetargs:; /*_.LET___V42*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1750:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1755:/ clear"); /*clear *//*_.LET___V42*/ meltfptr[22] = 0; } ; @@ -29071,14 +29174,14 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1760:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1765:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L14*/ meltfnum[12] = melt_is_instance_of ((melt_ptr_t) ( /*_.PARG1__V39*/ meltfptr[28]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[11])));; - MELT_LOCATION ("warmelt-macro.melt:1760:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1765:/ cond"); /*cond */ if ( /*_#IS_A__L14*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -29087,7 +29190,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1763:/ quasiblock"); + ("warmelt-macro.melt:1768:/ quasiblock"); /*^getslot */ @@ -29108,7 +29211,7 @@ lab_endgetargs:; meltfptr[43]), (meltobject_ptr_t) ( /*_.PARG1__V39*/ meltfptr[28]));; MELT_LOCATION - ("warmelt-macro.melt:1766:/ checksignal"); + ("warmelt-macro.melt:1771:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -29122,7 +29225,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1768:/ cppif.then"); + ("warmelt-macro.melt:1773:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29150,7 +29253,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1768:/ cond"); + ("warmelt-macro.melt:1773:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -29167,7 +29270,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1768:/ checksignal"); + ("warmelt-macro.melt:1773:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29184,7 +29287,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1768; + argtab[2].meltbp_long = 1773; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_1 return found pavr"; @@ -29204,7 +29307,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1768:/ clear"); + ("warmelt-macro.melt:1773:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0; /*^clear */ @@ -29220,7 +29323,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1768:/ quasiblock"); + ("warmelt-macro.melt:1773:/ quasiblock"); /*_.PROGN___V59*/ meltfptr[57] = @@ -29231,7 +29334,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1768:/ clear"); + ("warmelt-macro.melt:1773:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[4] = 0; /*^clear */ @@ -29248,7 +29351,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1769:/ checksignal"); + ("warmelt-macro.melt:1774:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -29259,7 +29362,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1769:/ locexp"); + ("warmelt-macro.melt:1774:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -29275,7 +29378,7 @@ lab_endgetargs:; ; /*finalret */ goto labend_rout; MELT_LOCATION - ("warmelt-macro.melt:1767:/ quasiblock"); + ("warmelt-macro.melt:1772:/ quasiblock"); /*_.PROGN___V61*/ meltfptr[57] = @@ -29286,7 +29389,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1766:/ clear"); + ("warmelt-macro.melt:1771:/ clear"); /*clear *//*_.IFCPP___V56*/ meltfptr[22] = 0; /*^clear */ @@ -29306,7 +29409,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1771:/ quasiblock"); + ("warmelt-macro.melt:1776:/ quasiblock"); /*^checksignal */ @@ -29318,7 +29421,7 @@ lab_endgetargs:; (( /*!DISCR_INTEGER */ meltfrout-> tabval[10])), (0)));; MELT_LOCATION - ("warmelt-macro.melt:1771:/ quasiblock"); + ("warmelt-macro.melt:1776:/ quasiblock"); /*^rawallocobj */ @@ -29395,7 +29498,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1778:/ locexp"); + ("warmelt-macro.melt:1783:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.VAMP__V53*/ meltfptr[43]), (meltobject_ptr_t) ( /*_.PARG1__V39*/ @@ -29406,7 +29509,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1779:/ cppif.then"); + ("warmelt-macro.melt:1784:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29434,7 +29537,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1779:/ cond"); + ("warmelt-macro.melt:1784:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -29451,7 +29554,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1779:/ checksignal"); + ("warmelt-macro.melt:1784:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29468,7 +29571,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1779; + argtab[2].meltbp_long = 1784; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_1 return nexpavr"; @@ -29488,7 +29591,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1779:/ clear"); + ("warmelt-macro.melt:1784:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[4] = 0; /*^clear */ @@ -29504,7 +29607,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1779:/ quasiblock"); + ("warmelt-macro.melt:1784:/ quasiblock"); /*_.PROGN___V69*/ meltfptr[67] = @@ -29515,7 +29618,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1779:/ clear"); + ("warmelt-macro.melt:1784:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[15] = 0; /*^clear */ @@ -29532,7 +29635,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1780:/ checksignal"); + ("warmelt-macro.melt:1785:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -29543,7 +29646,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1780:/ locexp"); + ("warmelt-macro.melt:1785:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -29562,7 +29665,7 @@ lab_endgetargs:; /*_.RETURN___V70*/ meltfptr[66];; MELT_LOCATION - ("warmelt-macro.melt:1771:/ clear"); + ("warmelt-macro.melt:1776:/ clear"); /*clear *//*_.MAKE_INTEGERBOX__V63*/ meltfptr[56] = 0; /*^clear */ @@ -29579,7 +29682,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1766:/ clear"); + ("warmelt-macro.melt:1771:/ clear"); /*clear *//*_.LET___V62*/ meltfptr[22] = 0; } ; @@ -29588,7 +29691,7 @@ lab_endgetargs:; /*_.LET___V52*/ meltfptr[42] = /*_.IFELSE___V55*/ meltfptr[46];; - MELT_LOCATION ("warmelt-macro.melt:1763:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1768:/ clear"); /*clear *//*_.VAMP__V53*/ meltfptr[43] = 0; /*^clear */ /*clear *//*_.PAVR__V54*/ meltfptr[45] = 0; @@ -29598,7 +29701,7 @@ lab_endgetargs:; /*_.LET___V52*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1760:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1765:/ clear"); /*clear *//*_.LET___V52*/ meltfptr[42] = 0; } ; @@ -29611,7 +29714,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1783:/ checksignal"); + ("warmelt-macro.melt:1788:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L19*/ meltfnum[4] = @@ -29619,7 +29722,7 @@ lab_endgetargs:; ( /*_.PARG1__V39*/ meltfptr[28]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:1783:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1788:/ cond"); /*cond */ if ( /*_#IS_A__L19*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -29630,7 +29733,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1784:/ cppif.then"); + ("warmelt-macro.melt:1789:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29658,7 +29761,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1784:/ cond"); + ("warmelt-macro.melt:1789:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -29675,7 +29778,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1784:/ checksignal"); + ("warmelt-macro.melt:1789:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29692,7 +29795,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1784; + argtab[2].meltbp_long = 1789; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_1 sexpr parg1="; @@ -29712,7 +29815,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1784:/ clear"); + ("warmelt-macro.melt:1789:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = 0; /*^clear */ @@ -29728,7 +29831,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1784:/ quasiblock"); + ("warmelt-macro.melt:1789:/ quasiblock"); /*_.PROGN___V75*/ meltfptr[66] = @@ -29739,7 +29842,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1784:/ clear"); + ("warmelt-macro.melt:1789:/ clear"); /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[15] = 0; /*^clear */ @@ -29756,7 +29859,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1785:/ quasiblock"); + ("warmelt-macro.melt:1790:/ quasiblock"); /*^checksignal */ @@ -29789,7 +29892,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1786:/ cppif.then"); + ("warmelt-macro.melt:1791:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29817,7 +29920,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:1786:/ cond"); + ("warmelt-macro.melt:1791:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -29834,7 +29937,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1786:/ checksignal"); + ("warmelt-macro.melt:1791:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29851,7 +29954,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1786; + argtab[2].meltbp_long = 1791; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_1 return patex"; @@ -29871,7 +29974,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1786:/ clear"); + ("warmelt-macro.melt:1791:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[15] = 0; /*^clear */ @@ -29887,7 +29990,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1786:/ quasiblock"); + ("warmelt-macro.melt:1791:/ quasiblock"); /*_.PROGN___V81*/ meltfptr[65] = @@ -29898,7 +30001,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1786:/ clear"); + ("warmelt-macro.melt:1791:/ clear"); /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[20] = 0; /*^clear */ @@ -29915,7 +30018,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1787:/ checksignal"); + ("warmelt-macro.melt:1792:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -29926,7 +30029,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1787:/ locexp"); + ("warmelt-macro.melt:1792:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -29945,7 +30048,7 @@ lab_endgetargs:; /*_.RETURN___V82*/ meltfptr[57];; MELT_LOCATION - ("warmelt-macro.melt:1785:/ clear"); + ("warmelt-macro.melt:1790:/ clear"); /*clear *//*_.PATEX__V77*/ meltfptr[43] = 0; /*^clear */ /*clear *//*_.IFCPP___V78*/ meltfptr[45] = @@ -29954,7 +30057,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V82*/ meltfptr[57] = 0; MELT_LOCATION - ("warmelt-macro.melt:1783:/ quasiblock"); + ("warmelt-macro.melt:1788:/ quasiblock"); /*_.PROGN___V83*/ meltfptr[66] = @@ -29965,7 +30068,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1783:/ clear"); + ("warmelt-macro.melt:1788:/ clear"); /*clear *//*_.IFCPP___V72*/ meltfptr[56] = 0; /*^clear */ @@ -29986,7 +30089,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1790:/ locexp"); + ("warmelt-macro.melt:1795:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V13*/ @@ -29996,7 +30099,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1789:/ quasiblock"); + ("warmelt-macro.melt:1794:/ quasiblock"); /*epilog */ @@ -30008,7 +30111,7 @@ lab_endgetargs:; /*_.IFELSE___V71*/ meltfptr[67];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1760:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1765:/ clear"); /*clear *//*_#IS_A__L19*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IFELSE___V71*/ meltfptr[67] = 0; @@ -30020,7 +30123,7 @@ lab_endgetargs:; /*_.IFELSE___V51*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1750:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1755:/ clear"); /*clear *//*_#IS_A__L14*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IFELSE___V51*/ meltfptr[47] = 0; @@ -30031,7 +30134,7 @@ lab_endgetargs:; /*_.LET___V36*/ meltfptr[32] = /*_.IFELSE___V41*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:1746:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1751:/ clear"); /*clear *//*_.PAIR_TAIL__V37*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.SETQ___V38*/ meltfptr[27] = 0; @@ -30047,7 +30150,7 @@ lab_endgetargs:; /*_.LET___V36*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1733:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1738:/ clear"); /*clear *//*_.LET___V36*/ meltfptr[32] = 0; } ; @@ -30055,7 +30158,7 @@ lab_endgetargs:; ; /*_.LET___V11*/ meltfptr[10] = /*_.IFELSE___V25*/ meltfptr[18];; - MELT_LOCATION ("warmelt-macro.melt:1726:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1731:/ clear"); /*clear *//*_.SCONT__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.SLOC__V13*/ meltfptr[12] = 0; @@ -30076,7 +30179,7 @@ lab_endgetargs:; /*_.IFELSE___V10*/ meltfptr[8] = /*_.LET___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1725:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1730:/ clear"); /*clear *//*_.LET___V11*/ meltfptr[10] = 0; } ; @@ -30088,7 +30191,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1796:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1801:/ quasiblock"); /*^getslot */ @@ -30099,7 +30202,7 @@ lab_endgetargs:; /*_.MEXPANDER__V85*/ meltfptr[46] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1797:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1802:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -30153,7 +30256,7 @@ lab_endgetargs:; /*_.PAT__V86*/ meltfptr[65] = /*_.INST__V87*/ meltfptr[43];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1802:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1807:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30179,7 +30282,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1802:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1807:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L24*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -30194,7 +30297,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1802:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1807:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30208,7 +30311,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1802; + argtab[2].meltbp_long = 1807; /*^apply.arg */ argtab[3].meltbp_cstring = "patternexpand_1 return const pat as source"; @@ -30230,7 +30333,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V90*/ meltfptr[56];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1802:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1807:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L25*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V90*/ meltfptr[56] = 0; @@ -30243,7 +30346,7 @@ lab_endgetargs:; /*_.IF___V89*/ meltfptr[57] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1802:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1807:/ quasiblock"); /*_.PROGN___V91*/ meltfptr[22] = /*_.IF___V89*/ meltfptr[57];; @@ -30251,7 +30354,7 @@ lab_endgetargs:; /*_.IFCPP___V88*/ meltfptr[45] = /*_.PROGN___V91*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1802:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1807:/ clear"); /*clear *//*_#MELT_NEED_DBG__L24*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V89*/ meltfptr[57] = 0; @@ -30264,7 +30367,7 @@ lab_endgetargs:; /*_.IFCPP___V88*/ meltfptr[45] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1803:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1808:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -30273,7 +30376,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PAT__V86*/ meltfptr[65];; { - MELT_LOCATION ("warmelt-macro.melt:1803:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1808:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -30288,7 +30391,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V84*/ meltfptr[42] = /*_.RETURN___V92*/ meltfptr[66];; - MELT_LOCATION ("warmelt-macro.melt:1796:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1801:/ clear"); /*clear *//*_.MEXPANDER__V85*/ meltfptr[46] = 0; /*^clear */ /*clear *//*_.PAT__V86*/ meltfptr[65] = 0; @@ -30296,7 +30399,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V88*/ meltfptr[45] = 0; /*^clear */ /*clear *//*_.RETURN___V92*/ meltfptr[66] = 0; - MELT_LOCATION ("warmelt-macro.melt:1794:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1799:/ quasiblock"); /*_.PROGN___V93*/ meltfptr[67] = /*_.LET___V84*/ meltfptr[42];; @@ -30304,7 +30407,7 @@ lab_endgetargs:; /*_.IFELSE___V10*/ meltfptr[8] = /*_.PROGN___V93*/ meltfptr[67];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1725:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1730:/ clear"); /*clear *//*_.LET___V84*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_.PROGN___V93*/ meltfptr[67] = 0; @@ -30312,7 +30415,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:1721:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -30321,7 +30424,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V10*/ meltfptr[8];; { - MELT_LOCATION ("warmelt-macro.melt:1721:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -30447,7 +30550,7 @@ meltrout_28_warmelt_macro_MACROEXPAND_TOPLEVEL_LIST (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1812:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1817:/ getarg"); /*_.SLIST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -30488,7 +30591,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1814:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1819:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30514,7 +30617,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1814:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1819:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -30529,7 +30632,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1814:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1819:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30542,7 +30645,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1814; + argtab[2].meltbp_long = 1819; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_toplevel_list slist="; /*^apply.arg */ @@ -30573,7 +30676,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1814:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1819:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -30586,7 +30689,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1814:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1819:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -30594,7 +30697,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1814:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1819:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -30609,7 +30712,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1817:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1822:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30635,7 +30738,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1817:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1822:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -30650,7 +30753,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1817:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1822:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30663,7 +30766,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1817; + argtab[2].meltbp_long = 1822; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_toplevel_list mexpander="; @@ -30684,7 +30787,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1817:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1822:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; @@ -30697,7 +30800,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1817:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1822:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[7];; @@ -30705,7 +30808,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1817:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1822:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V11*/ meltfptr[7] = 0; @@ -30718,12 +30821,12 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1818:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1823:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[0] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:1818:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1823:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -30737,7 +30840,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[7] = /*_.SETQ___V15*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1818:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1823:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[11] = 0; } ; @@ -30750,7 +30853,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1819:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1824:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30762,7 +30865,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:1819:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1824:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -30770,7 +30873,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1819:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1824:/ cond.else"); /*^block */ /*anyblock */ @@ -30784,7 +30887,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1819) ? (1819) : __LINE__, __FUNCTION__); + (1824) ? (1824) : __LINE__, __FUNCTION__); ; } ; @@ -30798,7 +30901,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[11] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1819:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1824:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -30811,7 +30914,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1820:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1825:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30822,7 +30925,7 @@ lab_endgetargs:; /*_#IS_LIST__L7*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.SLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-macro.melt:1820:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1825:/ cond"); /*cond */ if ( /*_#IS_LIST__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -30830,7 +30933,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1820:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1825:/ cond.else"); /*^block */ /*anyblock */ @@ -30844,7 +30947,7 @@ lab_endgetargs:; melt_assert_failed (("check slist"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1820) ? (1820) : __LINE__, __FUNCTION__); + (1825) ? (1825) : __LINE__, __FUNCTION__); ; } ; @@ -30858,7 +30961,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1820:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1825:/ clear"); /*clear *//*_#IS_LIST__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -30871,7 +30974,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1821:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1826:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30882,7 +30985,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L8*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:1821:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1826:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L8*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -30890,7 +30993,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1821:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1826:/ cond.else"); /*^block */ /*anyblock */ @@ -30904,7 +31007,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1821) ? (1821) : __LINE__, __FUNCTION__); + (1826) ? (1826) : __LINE__, __FUNCTION__); ; } ; @@ -30918,7 +31021,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1821:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1826:/ clear"); /*clear *//*_#IS_CLOSURE__L8*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V21*/ meltfptr[20] = 0; @@ -30931,7 +31034,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1822:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1827:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30942,7 +31045,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L9*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:1822:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1827:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L9*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -30950,7 +31053,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1822:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1827:/ cond.else"); /*^block */ /*anyblock */ @@ -30964,7 +31067,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1822) ? (1822) : __LINE__, __FUNCTION__); + (1827) ? (1827) : __LINE__, __FUNCTION__); ; } ; @@ -30978,7 +31081,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1822:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1827:/ clear"); /*clear *//*_#IS_OBJECT__L9*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V23*/ meltfptr[22] = 0; @@ -30989,7 +31092,7 @@ lab_endgetargs:; /*_.IFCPP___V22*/ meltfptr[20] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1823:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1828:/ quasiblock"); /*_#SLISTLEN__L10*/ meltfnum[1] = @@ -31000,12 +31103,12 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[3]))));; /*^compute */ /*_.PREVLOC__V26*/ meltfptr[25] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:1828:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1833:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L11*/ meltfnum[10] = (( /*_#SLISTLEN__L10*/ meltfnum[1]) < (2));; - MELT_LOCATION ("warmelt-macro.melt:1828:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1833:/ cond"); /*cond */ if ( /*_#I__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -31015,7 +31118,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:1830:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1835:/ locexp"); /*WARNSHORTSLISTCHK__1 */ warning (0, "MELT expanding a short (%ld) list of s-expressions", /*_#SLISTLEN__L10*/ meltfnum[1]); @@ -31042,7 +31145,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1836:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1841:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31068,7 +31171,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1836:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1841:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -31083,7 +31186,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1836:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1841:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31097,7 +31200,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1836; + argtab[2].meltbp_long = 1841; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_toplevel_list sexp="; @@ -31119,7 +31222,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1836:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1841:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0; @@ -31132,7 +31235,7 @@ lab_endgetargs:; /*_.IF___V30*/ meltfptr[29] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1836:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1841:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[30] = /*_.IF___V30*/ meltfptr[29];; @@ -31140,7 +31243,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[28] = /*_.PROGN___V32*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1836:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1841:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V30*/ meltfptr[29] = 0; @@ -31153,14 +31256,14 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[28] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1840:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1845:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L14*/ meltfnum[12] = melt_is_instance_of ((melt_ptr_t) ( /*_.SEXP__V28*/ meltfptr[27]), (melt_ptr_t) (( /*!CLASS_LOCATED */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:1840:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1845:/ cond"); /*cond */ if ( /*_#IS_A__L14*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -31168,7 +31271,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1841:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1846:/ quasiblock"); /*^getslot */ @@ -31180,7 +31283,7 @@ lab_endgetargs:; /*_.SEXPLOC__V35*/ meltfptr[34] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1842:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1847:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -31199,7 +31302,7 @@ lab_endgetargs:; /*_.SETQ___V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1842:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1847:/ clear"); /*clear *//*_.SETQ___V37*/ meltfptr[36] = 0; } ; @@ -31213,7 +31316,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V34*/ meltfptr[30] = /*_.IF___V36*/ meltfptr[35];; - MELT_LOCATION ("warmelt-macro.melt:1841:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1846:/ clear"); /*clear *//*_.SEXPLOC__V35*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.IF___V36*/ meltfptr[35] = 0; @@ -31221,7 +31324,7 @@ lab_endgetargs:; /*_.LET___V34*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1840:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1845:/ clear"); /*clear *//*_.LET___V34*/ meltfptr[30] = 0; } ; @@ -31237,7 +31340,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:1843:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1848:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.PREVLOC__V26*/ meltfptr[25]), @@ -31251,7 +31354,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:1846:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1851:/ quasiblock"); /*^checksignal */ @@ -31281,7 +31384,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1848:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1853:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31307,7 +31410,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1848:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1853:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -31322,7 +31425,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1848:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1853:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31336,7 +31439,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1848; + argtab[2].meltbp_long = 1853; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_toplevel_list mex="; @@ -31358,7 +31461,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V41*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1848:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1853:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V41*/ meltfptr[30] = 0; @@ -31371,7 +31474,7 @@ lab_endgetargs:; /*_.IF___V40*/ meltfptr[35] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1848:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1853:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[30] = /*_.IF___V40*/ meltfptr[35];; @@ -31379,7 +31482,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[34] = /*_.PROGN___V42*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1848:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1853:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V40*/ meltfptr[35] = 0; @@ -31392,12 +31495,12 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[34] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1850:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1855:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L17*/ meltfnum[15] = (( /*_.MEX__V38*/ meltfptr[36]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:1850:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1855:/ cond"); /*cond */ if ( /*_#NULL__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -31405,7 +31508,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1851:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1856:/ quasiblock"); /*^cond */ @@ -31435,7 +31538,7 @@ lab_endgetargs:; /*_.SEXPLOC__V43*/ meltfptr[35] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1853:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1858:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -31448,7 +31551,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:1854:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1859:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.SEXPLOC__V43*/ meltfptr[35]), @@ -31462,7 +31565,7 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:1851:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1856:/ clear"); /*clear *//*_.SEXPLOC__V43*/ meltfptr[35] = 0; /*epilog */ } @@ -31470,20 +31573,20 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1850:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1855:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1857:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1862:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE__L18*/ meltfnum[11] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEX__V38*/ meltfptr[36])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION ("warmelt-macro.melt:1857:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1862:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE__L18*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -31515,7 +31618,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1861:/ locexp"); + ("warmelt-macro.melt:1866:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.RESLIST__V25*/ meltfptr[24]), @@ -31528,7 +31631,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:1858:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1863:/ clear"); /*clear *//*_.CURM__V44*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_#CURIX__L19*/ meltfnum[18] = 0; @@ -31540,7 +31643,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1857:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1862:/ cond.else"); /*^block */ /*anyblock */ @@ -31548,7 +31651,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:1863:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1868:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.RESLIST__V25*/ meltfptr[24]), @@ -31566,14 +31669,14 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1850:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1855:/ clear"); /*clear *//*_#IS_MULTIPLE__L18*/ meltfnum[11] = 0; } ; } ; - MELT_LOCATION ("warmelt-macro.melt:1846:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1851:/ clear"); /*clear *//*_.MEX__V38*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.IFCPP___V39*/ meltfptr[34] = 0; @@ -31586,7 +31689,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:1833:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1838:/ clear"); /*clear *//*_.CURPAIR__V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.SEXP__V28*/ meltfptr[27] = 0; @@ -31600,7 +31703,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1865:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1870:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31626,7 +31729,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1865:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1870:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -31641,7 +31744,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1865:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1870:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31655,7 +31758,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1865; + argtab[2].meltbp_long = 1870; /*^apply.arg */ argtab[3].meltbp_cstring = "macroexpand_toplevel_list reslist="; /*^apply.arg */ @@ -31675,7 +31778,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V47*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1865:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1870:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V47*/ meltfptr[34] = 0; @@ -31688,7 +31791,7 @@ lab_endgetargs:; /*_.IF___V46*/ meltfptr[36] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1865:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1870:/ quasiblock"); /*_.PROGN___V48*/ meltfptr[34] = /*_.IF___V46*/ meltfptr[36];; @@ -31696,7 +31799,7 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[35] = /*_.PROGN___V48*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1865:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1870:/ clear"); /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V46*/ meltfptr[36] = 0; @@ -31709,18 +31812,18 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[35] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1866:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1871:/ quasiblock"); /*_#RESLISTLEN__L22*/ meltfnum[15] = (melt_list_length ((melt_ptr_t) ( /*_.RESLIST__V25*/ meltfptr[24])));; - MELT_LOCATION ("warmelt-macro.melt:1868:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1873:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L23*/ meltfnum[11] = (( /*_#RESLISTLEN__L22*/ meltfnum[15]) < ( /*_#SLISTLEN__L10*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-macro.melt:1868:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1873:/ cond"); /*cond */ if ( /*_#I__L23*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -31728,7 +31831,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1868:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1873:/ cond.else"); /*^block */ /*anyblock */ @@ -31740,7 +31843,7 @@ lab_endgetargs:; /*_#OR___L24*/ meltfnum[23] = /*_#I__L25*/ meltfnum[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1868:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1873:/ clear"); /*clear *//*_#I__L25*/ meltfnum[24] = 0; } ; @@ -31756,7 +31859,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:1871:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1876:/ locexp"); /*WARNSHORTRESCHK__1 */ warning (0, "MELT expanded list of %ld s-expressions into short list of %ld source elements", @@ -31771,13 +31874,13 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:1866:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1871:/ clear"); /*clear *//*_#RESLISTLEN__L22*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_#I__L23*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_#OR___L24*/ meltfnum[23] = 0; - MELT_LOCATION ("warmelt-macro.melt:1876:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1881:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -31786,7 +31889,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESLIST__V25*/ meltfptr[24];; { - MELT_LOCATION ("warmelt-macro.melt:1876:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1881:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -31801,7 +31904,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V24*/ meltfptr[22] = /*_.RETURN___V49*/ meltfptr[36];; - MELT_LOCATION ("warmelt-macro.melt:1823:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1828:/ clear"); /*clear *//*_#SLISTLEN__L10*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.RESLIST__V25*/ meltfptr[24] = 0; @@ -31813,7 +31916,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V45*/ meltfptr[35] = 0; /*^clear */ /*clear *//*_.RETURN___V49*/ meltfptr[36] = 0; - MELT_LOCATION ("warmelt-macro.melt:1812:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1817:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -31822,7 +31925,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V24*/ meltfptr[22];; { - MELT_LOCATION ("warmelt-macro.melt:1812:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1817:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -31954,7 +32057,7 @@ meltrout_29_warmelt_macro_LAMBDA_ARG_BINDINGS (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1885:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ getarg"); /*_.FORMALSEXP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -31974,12 +32077,12 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:1887:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1892:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L1*/ meltfnum[0] = (( /*_.FORMALSEXP__V2*/ meltfptr[1]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:1887:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1892:/ cond"); /*cond */ if ( /*_#NULL__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31991,7 +32094,7 @@ lab_endgetargs:; (meltgc_new_multiple ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[0])), (0)));; - MELT_LOCATION ("warmelt-macro.melt:1889:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1894:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -32001,7 +32104,7 @@ lab_endgetargs:; /*_.MAKE_MULTIPLE__V5*/ meltfptr[4];; { - MELT_LOCATION ("warmelt-macro.melt:1889:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1894:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -32014,7 +32117,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:1888:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1893:/ quasiblock"); /*_.PROGN___V7*/ meltfptr[6] = /*_.RETURN___V6*/ meltfptr[5];; @@ -32022,7 +32125,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.PROGN___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1887:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1892:/ clear"); /*clear *//*_.MAKE_MULTIPLE__V5*/ meltfptr[4] = 0; /*^clear */ /*clear *//*_.RETURN___V6*/ meltfptr[5] = 0; @@ -32039,7 +32142,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1890:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1895:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32051,7 +32154,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.FORMALSEXP__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:1890:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1895:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -32059,7 +32162,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1890:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1895:/ cond.else"); /*^block */ /*anyblock */ @@ -32073,7 +32176,7 @@ lab_endgetargs:; melt_assert_failed (("check formalsexp"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1890) ? (1890) : __LINE__, __FUNCTION__); + (1895) ? (1895) : __LINE__, __FUNCTION__); ; } ; @@ -32087,7 +32190,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[4] = /*_.IFELSE___V9*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1890:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1895:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[5] = 0; @@ -32098,14 +32201,14 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1891:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1896:/ quasiblock"); /*_#ARGRK__L3*/ meltfnum[1] = 0;; /*^compute */ /*_.ARGTYPE__V11*/ meltfptr[5] = ( /*!CTYPE_VALUE */ meltfrout->tabval[2]);; - MELT_LOCATION ("warmelt-macro.melt:1893:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1898:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FORMALSEXP__V2*/ meltfptr[1]) /*=obj*/ ; @@ -32113,7 +32216,7 @@ lab_endgetargs:; /*_.ARGLIST__V12*/ meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1894:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1899:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FORMALSEXP__V2*/ meltfptr[1]) /*=obj*/ ; @@ -32141,7 +32244,7 @@ lab_endgetargs:; /*^compute */ /*_.TUPDIS__V17*/ meltfptr[16] = ( /*!DISCR_FORMAL_SEQUENCE */ meltfrout->tabval[5]);; - MELT_LOCATION ("warmelt-macro.melt:1901:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:1906:/ loop"); /*loop */ { labloop_ARGLOOP_1:; /*^loopbody */ @@ -32153,12 +32256,12 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:1902:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1907:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L6*/ meltfnum[5] = (( /*_.CURPAIR__V16*/ meltfptr[15]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:1902:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1907:/ cond"); /*cond */ if ( /*_#NULL__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -32185,7 +32288,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1903:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1908:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32197,7 +32300,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-macro.melt:1903:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1908:/ cond"); /*cond */ if ( /*_#IS_PAIR__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -32205,7 +32308,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1903:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1908:/ cond.else"); /*^block */ /*anyblock */ @@ -32219,7 +32322,7 @@ lab_endgetargs:; melt_assert_failed (("check curpair"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1903) ? (1903) : __LINE__, + (1908) ? (1908) : __LINE__, __FUNCTION__); ; } @@ -32234,7 +32337,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1903:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1908:/ clear"); /*clear *//*_#IS_PAIR__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IFELSE___V21*/ meltfptr[20] = 0; @@ -32245,18 +32348,18 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1904:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1909:/ quasiblock"); /*_.CURARG__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-macro.melt:1906:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1911:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L8*/ meltfnum[6] = (( /*_.CURARG__V23*/ meltfptr[22]) == (( /*!konst_6_REST */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:1906:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1911:/ cond"); /*cond */ if ( /*_#__L8*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -32267,11 +32370,11 @@ lab_endgetargs:; /*_.PAIR_TAIL__V25*/ meltfptr[24] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-macro.melt:1907:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:1912:/ compute"); /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V26*/ meltfptr[25] = /*_.PAIR_TAIL__V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:1908:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1913:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -32284,7 +32387,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:1910:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1915:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.ARGLOC__V13*/ meltfptr[12]), @@ -32292,13 +32395,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:1911:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1916:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:1911:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1916:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -32311,7 +32414,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:1909:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1914:/ quasiblock"); /*_.PROGN___V29*/ meltfptr[28] = @@ -32321,7 +32424,7 @@ lab_endgetargs:; /*_.PROGN___V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1908:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1913:/ clear"); /*clear *//*_.RETURN___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V29*/ meltfptr[28] = 0; @@ -32334,10 +32437,10 @@ lab_endgetargs:; /*_.IF___V27*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1912:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:1917:/ compute"); /*_.TUPDIS__V17*/ meltfptr[16] = /*_.SETQ___V30*/ meltfptr[27] = ( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[7]);; - MELT_LOCATION ("warmelt-macro.melt:1906:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1911:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[28] = /*_.SETQ___V30*/ meltfptr[27];; @@ -32346,7 +32449,7 @@ lab_endgetargs:; /*_.PROGN___V31*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1906:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1911:/ clear"); /*clear *//*_.PAIR_TAIL__V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.SETQ___V26*/ meltfptr[25] = 0; @@ -32366,7 +32469,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1914:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1919:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L9*/ meltfnum[8] = @@ -32374,7 +32477,7 @@ lab_endgetargs:; ( /*_.CURARG__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-macro.melt:1914:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1919:/ cond"); /*cond */ if ( /*_#IS_A__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -32382,7 +32485,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1915:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1920:/ quasiblock"); /*^getslot */ @@ -32395,7 +32498,7 @@ lab_endgetargs:; /*_.CTY__V34*/ meltfptr[26] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1916:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1921:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -32405,7 +32508,7 @@ lab_endgetargs:; /*_.CURARGNAME__V35*/ meltfptr[27] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:1919:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1924:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L10*/ meltfnum[9] = @@ -32414,7 +32517,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[9])));; - MELT_LOCATION ("warmelt-macro.melt:1919:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1924:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -32427,7 +32530,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1920:/ locexp"); + ("warmelt-macro.melt:1925:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.ARGLOC__V13*/ meltfptr[12]), ("invalid keyword in formal arglist"), @@ -32441,14 +32544,14 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1919:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1924:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-macro.melt:1922:/ checksignal"); + ("warmelt-macro.melt:1927:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^getslot */ @@ -32465,7 +32568,7 @@ lab_endgetargs:; /*_#__L11*/ meltfnum[10] = (( /*_.CTYPE_KEYWORD__V37*/ meltfptr[36]) == ( /*_.CURARG__V23*/ meltfptr[22]));; - MELT_LOCATION ("warmelt-macro.melt:1922:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1927:/ cond"); /*cond */ if ( /*_#__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -32474,7 +32577,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1923:/ compute"); + ("warmelt-macro.melt:1928:/ compute"); /*_.ARGTYPE__V11*/ meltfptr[5] = /*_.SETQ___V39*/ meltfptr[38] = /*_.CTY__V34*/ meltfptr[26];; @@ -32483,7 +32586,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1922:/ clear"); + ("warmelt-macro.melt:1927:/ clear"); /*clear *//*_.SETQ___V39*/ meltfptr[38] = 0; } ; @@ -32496,7 +32599,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1924:/ checksignal"); + ("warmelt-macro.melt:1929:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^getslot */ @@ -32515,7 +32618,7 @@ lab_endgetargs:; (( /*_.CTYPE_ALTKEYWORD__V40*/ meltfptr[38]) == ( /*_.CURARG__V23*/ meltfptr[22]));; MELT_LOCATION - ("warmelt-macro.melt:1924:/ cond"); + ("warmelt-macro.melt:1929:/ cond"); /*cond */ if ( /*_#__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -32526,13 +32629,13 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1925:/ locexp"); + ("warmelt-macro.melt:1930:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.ARGLOC__V13*/ meltfptr[12]), ("usage of alternate keyword as formal\'s ctype is deprecated"), (melt_ptr_t) ( /*_.CURARGNAME__V35*/ meltfptr[27])); } ; MELT_LOCATION - ("warmelt-macro.melt:1928:/ cond"); + ("warmelt-macro.melt:1933:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.CTY__V34*/ meltfptr[26]), @@ -32564,7 +32667,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1928:/ cond"); + ("warmelt-macro.melt:1933:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.CTYPE_KEYWORD__V42*/ meltfptr[41]), @@ -32596,7 +32699,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1927:/ locexp"); + ("warmelt-macro.melt:1932:/ locexp"); melt_inform_str ((melt_ptr_t) ( /*_.ARGLOC__V13*/ meltfptr[12]), @@ -32605,12 +32708,12 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1929:/ compute"); + ("warmelt-macro.melt:1934:/ compute"); /*_.ARGTYPE__V11*/ meltfptr[5] = /*_.SETQ___V44*/ meltfptr[43] = /*_.CTY__V34*/ meltfptr[26];; MELT_LOCATION - ("warmelt-macro.melt:1924:/ quasiblock"); + ("warmelt-macro.melt:1929:/ quasiblock"); /*_.PROGN___V45*/ meltfptr[44] = @@ -32621,7 +32724,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1924:/ clear"); + ("warmelt-macro.melt:1929:/ clear"); /*clear *//*_.CTYPE_KEYWORD__V42*/ meltfptr[41] = 0; /*^clear */ @@ -32644,7 +32747,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1932:/ getslot"); + ("warmelt-macro.melt:1937:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -32660,7 +32763,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1931:/ locexp"); + ("warmelt-macro.melt:1936:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.ARGLOC__V13*/ meltfptr[12]), @@ -32669,7 +32772,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1930:/ quasiblock"); + ("warmelt-macro.melt:1935:/ quasiblock"); /*_.PROGN___V47*/ meltfptr[42] = @@ -32680,7 +32783,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1924:/ clear"); + ("warmelt-macro.melt:1929:/ clear"); /*clear *//*_.NAMED_NAME__V46*/ meltfptr[41] = 0; /*^clear */ @@ -32695,7 +32798,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1922:/ clear"); + ("warmelt-macro.melt:1927:/ clear"); /*clear *//*_.CTYPE_ALTKEYWORD__V40*/ meltfptr[38] = 0; /*^clear */ @@ -32710,7 +32813,7 @@ lab_endgetargs:; /*_.IFELSE___V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1919:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1924:/ clear"); /*clear *//*_.CTYPE_KEYWORD__V37*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_#__L11*/ meltfnum[10] = 0; @@ -32722,7 +32825,7 @@ lab_endgetargs:; ; /*_.LET___V33*/ meltfptr[25] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:1915:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1920:/ clear"); /*clear *//*_.CTY__V34*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.CURARGNAME__V35*/ meltfptr[27] = 0; @@ -32734,7 +32837,7 @@ lab_endgetargs:; /*_.LET___V33*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1914:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1919:/ clear"); /*clear *//*_.LET___V33*/ meltfptr[25] = 0; } ; @@ -32746,7 +32849,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:1937:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1942:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L13*/ meltfnum[11] = @@ -32755,7 +32858,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[11])));; - MELT_LOCATION ("warmelt-macro.melt:1937:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1942:/ cond"); /*cond */ if ( /*_#IS_A__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -32764,7 +32867,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1938:/ checksignal"); + ("warmelt-macro.melt:1943:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAPOBJECT_GET__V49*/ meltfptr[44] = @@ -32773,7 +32876,7 @@ lab_endgetargs:; ( /*_.ARGMAP__V14*/ meltfptr[13]), (meltobject_ptr_t) ( /*_.CURARG__V23*/ meltfptr[22]));; - MELT_LOCATION ("warmelt-macro.melt:1938:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1943:/ cond"); /*cond */ if ( /*_.MAPOBJECT_GET__V49*/ meltfptr[44]) /*then */ { /*^cond.then */ @@ -32782,7 +32885,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1940:/ getslot"); + ("warmelt-macro.melt:1945:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -32796,7 +32899,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1939:/ locexp"); + ("warmelt-macro.melt:1944:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.ARGLOC__V13*/ meltfptr[12]), @@ -32807,7 +32910,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1938:/ clear"); + ("warmelt-macro.melt:1943:/ clear"); /*clear *//*_.NAMED_NAME__V50*/ meltfptr[41] = 0; } @@ -32815,11 +32918,11 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION - ("warmelt-macro.melt:1941:/ quasiblock"); + ("warmelt-macro.melt:1946:/ quasiblock"); MELT_LOCATION - ("warmelt-macro.melt:1942:/ checksignal"); + ("warmelt-macro.melt:1947:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -32868,7 +32971,7 @@ lab_endgetargs:; /*_.CURBIND__V51*/ meltfptr[42] = /*_.INST__V52*/ meltfptr[38];; MELT_LOCATION - ("warmelt-macro.melt:1945:/ checksignal"); + ("warmelt-macro.melt:1950:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -32880,7 +32983,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1946:/ checksignal"); + ("warmelt-macro.melt:1951:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L15*/ meltfnum[9] = @@ -32892,7 +32995,7 @@ lab_endgetargs:; /*_#NOT__L16*/ meltfnum[15] = (!( /*_#IS_A__L15*/ meltfnum[9]));; MELT_LOCATION - ("warmelt-macro.melt:1946:/ cond"); + ("warmelt-macro.melt:1951:/ cond"); /*cond */ if ( /*_#NOT__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -32902,14 +33005,14 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:1946:/ cond.else"); + ("warmelt-macro.melt:1951:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-macro.melt:1947:/ getslot"); + ("warmelt-macro.melt:1952:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -32938,7 +33041,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1946:/ clear"); + ("warmelt-macro.melt:1951:/ clear"); /*clear *//*_.CTYPE_PARSTRING__V53*/ meltfptr[40] = 0; /*^clear */ @@ -32960,7 +33063,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1949:/ getslot"); + ("warmelt-macro.melt:1954:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -32976,7 +33079,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1948:/ locexp"); + ("warmelt-macro.melt:1953:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.ARGLOC__V13*/ meltfptr[12]), @@ -32987,7 +33090,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1946:/ clear"); + ("warmelt-macro.melt:1951:/ clear"); /*clear *//*_.NAMED_NAME__V54*/ meltfptr[36] = 0; } @@ -32997,7 +33100,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1945:/ clear"); + ("warmelt-macro.melt:1950:/ clear"); /*clear *//*_#IS_A__L15*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_#NOT__L16*/ meltfnum[15] = 0; @@ -33010,7 +33113,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1950:/ locexp"); + ("warmelt-macro.melt:1955:/ locexp"); melt_put_int ((melt_ptr_t) ( /*_.CURBIND__V51*/ meltfptr[42]), ( /*_#ARGRK__L3*/ meltfnum[1])); @@ -33019,7 +33122,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1951:/ locexp"); + ("warmelt-macro.melt:1956:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.ARGMAP__V14*/ meltfptr[13]), @@ -33030,7 +33133,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1952:/ locexp"); + ("warmelt-macro.melt:1957:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.BNDLIST__V15*/ meltfptr[14]), @@ -33039,21 +33142,21 @@ lab_endgetargs:; ; /*_#I__L20*/ meltfnum[17] = (( /*_#ARGRK__L3*/ meltfnum[1]) + (1));; - MELT_LOCATION ("warmelt-macro.melt:1953:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:1958:/ compute"); /*_#ARGRK__L3*/ meltfnum[1] = /*_#SETQ___L21*/ meltfnum[18] = /*_#I__L20*/ meltfnum[17];; /*_#LET___L14*/ meltfnum[10] = /*_#SETQ___L21*/ meltfnum[18];; - MELT_LOCATION ("warmelt-macro.melt:1941:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1946:/ clear"); /*clear *//*_.CURBIND__V51*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_#I__L20*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_#SETQ___L21*/ meltfnum[18] = 0; MELT_LOCATION - ("warmelt-macro.melt:1937:/ quasiblock"); + ("warmelt-macro.melt:1942:/ quasiblock"); /*_.PROGN___V55*/ meltfptr[37] = ( /*nil */ NULL);; @@ -33062,7 +33165,7 @@ lab_endgetargs:; /*_.PROGN___V55*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1937:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1942:/ clear"); /*clear *//*_.MAPOBJECT_GET__V49*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_#LET___L14*/ meltfnum[10] = 0; @@ -33081,7 +33184,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:1958:/ cppif.then"); + ("warmelt-macro.melt:1963:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33107,7 +33210,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1958:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1963:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -33123,7 +33226,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:1958:/ checksignal"); + ("warmelt-macro.melt:1963:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33139,7 +33242,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1958; + argtab[2].meltbp_long = 1963; /*^apply.arg */ argtab[3].meltbp_cstring = "unexpected argument in formal arglist"; @@ -33167,7 +33270,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:1958:/ clear"); + ("warmelt-macro.melt:1963:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[15] = 0; /*^clear */ @@ -33183,7 +33286,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:1958:/ quasiblock"); + ("warmelt-macro.melt:1963:/ quasiblock"); /*_.PROGN___V59*/ meltfptr[25] = @@ -33193,7 +33296,7 @@ lab_endgetargs:; /*_.PROGN___V59*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1958:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1963:/ clear"); /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[9] = 0; /*^clear */ @@ -33208,7 +33311,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:1959:/ quasiblock"); + ("warmelt-macro.melt:1964:/ quasiblock"); /*_.DISCRARG__V60*/ meltfptr[41] = @@ -33216,7 +33319,7 @@ lab_endgetargs:; (melt_discr ((melt_ptr_t) ( /*_.CURARG__V23*/ meltfptr[22]))));; - MELT_LOCATION ("warmelt-macro.melt:1961:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:1966:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -33230,7 +33333,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:1960:/ locexp"); + ("warmelt-macro.melt:1965:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.ARGLOC__V13*/ meltfptr[12]), ("unexpected argument in formal arglist"), @@ -33238,12 +33341,12 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-macro.melt:1959:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1964:/ clear"); /*clear *//*_.DISCRARG__V60*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_.NAMED_NAME__V61*/ meltfptr[40] = 0; MELT_LOCATION - ("warmelt-macro.melt:1957:/ quasiblock"); + ("warmelt-macro.melt:1962:/ quasiblock"); /*_.PROGN___V62*/ meltfptr[36] = ( /*nil */ NULL);; @@ -33252,7 +33355,7 @@ lab_endgetargs:; /*_.PROGN___V62*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1937:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1942:/ clear"); /*clear *//*_.IFCPP___V56*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.PROGN___V62*/ meltfptr[36] = 0; @@ -33264,7 +33367,7 @@ lab_endgetargs:; /*_.IFELSE___V48*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1914:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1919:/ clear"); /*clear *//*_#IS_A__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IFELSE___V48*/ meltfptr[43] = 0; @@ -33276,7 +33379,7 @@ lab_endgetargs:; /*_.IFELSE___V32*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1906:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1911:/ clear"); /*clear *//*_#IS_A__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V32*/ meltfptr[24] = 0; @@ -33286,12 +33389,12 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V63*/ meltfptr[42] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-macro.melt:1965:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:1970:/ compute"); /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V64*/ meltfptr[44] = /*_.PAIR_TAIL__V63*/ meltfptr[42];; /*_.LET___V22*/ meltfptr[20] = /*_.SETQ___V64*/ meltfptr[44];; - MELT_LOCATION ("warmelt-macro.melt:1904:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1909:/ clear"); /*clear *//*_.CURARG__V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_#__L8*/ meltfnum[6] = 0; @@ -33301,7 +33404,7 @@ lab_endgetargs:; /*clear *//*_.PAIR_TAIL__V63*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_.SETQ___V64*/ meltfptr[44] = 0; - MELT_LOCATION ("warmelt-macro.melt:1901:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1906:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -33321,7 +33424,7 @@ lab_endgetargs:; /*_.FOREVER___V18*/ meltfptr[17] = /*_.ARGLOOP__V19*/ meltfptr[18];; } ; - MELT_LOCATION ("warmelt-macro.melt:1967:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1972:/ quasiblock"); /*_.BNDTUP__V66*/ meltfptr[28] = @@ -33333,7 +33436,7 @@ lab_endgetargs:; /*^compute */ /*_.BNDPAIR__V67*/ meltfptr[27] = (melt_list_first ((melt_ptr_t) ( /*_.BNDLIST__V15*/ meltfptr[14])));; - MELT_LOCATION ("warmelt-macro.melt:1971:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:1976:/ loop"); /*loop */ { labloop_BNDLOOP_1:; /*^loopbody */ @@ -33345,12 +33448,12 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:1972:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1977:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L25*/ meltfnum[17] = (( /*_.BNDPAIR__V67*/ meltfptr[27]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:1972:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1977:/ cond"); /*cond */ if ( /*_#NULL__L25*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -33377,7 +33480,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1973:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1978:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33389,7 +33492,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.BNDPAIR__V67*/ meltfptr[27])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-macro.melt:1973:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1978:/ cond"); /*cond */ if ( /*_#IS_PAIR__L26*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -33397,7 +33500,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1973:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1978:/ cond.else"); /*^block */ /*anyblock */ @@ -33411,7 +33514,7 @@ lab_endgetargs:; melt_assert_failed (("check bndpair"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1973) ? (1973) : __LINE__, + (1978) ? (1978) : __LINE__, __FUNCTION__); ; } @@ -33426,7 +33529,7 @@ lab_endgetargs:; /*_.IFCPP___V70*/ meltfptr[40] = /*_.IFELSE___V71*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1973:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1978:/ clear"); /*clear *//*_#IS_PAIR__L26*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.IFELSE___V71*/ meltfptr[26] = 0; @@ -33437,14 +33540,14 @@ lab_endgetargs:; /*_.IFCPP___V70*/ meltfptr[40] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1974:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1979:/ quasiblock"); /*_.CURBND__V72*/ meltfptr[36] = (melt_pair_head ((melt_ptr_t) ( /*_.BNDPAIR__V67*/ meltfptr[27])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1975:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1980:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33457,7 +33560,7 @@ lab_endgetargs:; ( /*_.CURBND__V72*/ meltfptr[36]), (melt_ptr_t) (( /*!CLASS_ANY_BINDING */ meltfrout->tabval[14])));; - MELT_LOCATION ("warmelt-macro.melt:1975:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1980:/ cond"); /*cond */ if ( /*_#IS_A__L27*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -33465,7 +33568,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1975:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1980:/ cond.else"); /*^block */ /*anyblock */ @@ -33479,7 +33582,7 @@ lab_endgetargs:; melt_assert_failed (("check curbnd"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1975) ? (1975) : __LINE__, + (1980) ? (1980) : __LINE__, __FUNCTION__); ; } @@ -33494,7 +33597,7 @@ lab_endgetargs:; /*_.IFCPP___V73*/ meltfptr[43] = /*_.IFELSE___V74*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1975:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1980:/ clear"); /*clear *//*_#IS_A__L27*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IFELSE___V74*/ meltfptr[24] = 0; @@ -33507,7 +33610,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:1976:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1981:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) ( /*_.BNDTUP__V66*/ meltfptr[28]), ( /*_#IX__L24*/ meltfnum[16]), @@ -33516,21 +33619,21 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-macro.melt:1974:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1979:/ clear"); /*clear *//*_.CURBND__V72*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.IFCPP___V73*/ meltfptr[43] = 0; /*_#I__L28*/ meltfnum[15] = (( /*_#IX__L24*/ meltfnum[16]) + (1));; - MELT_LOCATION ("warmelt-macro.melt:1978:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:1983:/ compute"); /*_#IX__L24*/ meltfnum[16] = /*_#SETQ___L29*/ meltfnum[9] = /*_#I__L28*/ meltfnum[15];; /*_.PAIR_TAIL__V75*/ meltfptr[22] = (melt_pair_tail ((melt_ptr_t) ( /*_.BNDPAIR__V67*/ meltfptr[27])));; - MELT_LOCATION ("warmelt-macro.melt:1979:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:1984:/ compute"); /*_.BNDPAIR__V67*/ meltfptr[27] = /*_.SETQ___V76*/ meltfptr[23] = /*_.PAIR_TAIL__V75*/ meltfptr[22];; - MELT_LOCATION ("warmelt-macro.melt:1971:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1976:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -33558,7 +33661,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1981:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1986:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33584,7 +33687,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1981:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1986:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L30*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -33599,7 +33702,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1981:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1986:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33613,7 +33716,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1981; + argtab[2].meltbp_long = 1986; /*^apply.arg */ argtab[3].meltbp_cstring = "lambda_arg_bindings result bndtup"; /*^apply.arg */ @@ -33633,7 +33736,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V79*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1981:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1986:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L31*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V79*/ meltfptr[19] = 0; @@ -33646,7 +33749,7 @@ lab_endgetargs:; /*_.IF___V78*/ meltfptr[44] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1981:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1986:/ quasiblock"); /*_.PROGN___V80*/ meltfptr[20] = /*_.IF___V78*/ meltfptr[44];; @@ -33654,7 +33757,7 @@ lab_endgetargs:; /*_.IFCPP___V77*/ meltfptr[42] = /*_.PROGN___V80*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1981:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1986:/ clear"); /*clear *//*_#MELT_NEED_DBG__L30*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V78*/ meltfptr[44] = 0; @@ -33667,7 +33770,7 @@ lab_endgetargs:; /*_.IFCPP___V77*/ meltfptr[42] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1982:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1987:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -33676,7 +33779,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.BNDTUP__V66*/ meltfptr[28];; { - MELT_LOCATION ("warmelt-macro.melt:1982:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1987:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -33691,7 +33794,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V65*/ meltfptr[37] = /*_.RETURN___V81*/ meltfptr[26];; - MELT_LOCATION ("warmelt-macro.melt:1967:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1972:/ clear"); /*clear *//*_.BNDTUP__V66*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_#IX__L24*/ meltfnum[16] = 0; @@ -33705,7 +33808,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V81*/ meltfptr[26] = 0; /*_.LET___V10*/ meltfptr[6] = /*_.LET___V65*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:1891:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1896:/ clear"); /*clear *//*_#ARGRK__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.ARGTYPE__V11*/ meltfptr[5] = 0; @@ -33729,7 +33832,7 @@ lab_endgetargs:; /*clear *//*_.FOREVER___V18*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.LET___V65*/ meltfptr[37] = 0; - MELT_LOCATION ("warmelt-macro.melt:1885:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -33738,7 +33841,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[6];; { - MELT_LOCATION ("warmelt-macro.melt:1885:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -33860,7 +33963,7 @@ meltrout_30_warmelt_macro_INSTALL_INITIAL_MACRO (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:1989:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:1994:/ getarg"); /*_.SYMB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -33882,7 +33985,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1990:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1995:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33908,7 +34011,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1990:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1995:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -33923,7 +34026,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1990:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1995:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33936,7 +34039,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1990; + argtab[2].meltbp_long = 1995; /*^apply.arg */ argtab[3].meltbp_cstring = "install_initial_macro symb"; /*^apply.arg */ @@ -33955,7 +34058,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1990:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1995:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0; @@ -33968,7 +34071,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1990:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1995:/ quasiblock"); /*_.PROGN___V7*/ meltfptr[5] = /*_.IF___V5*/ meltfptr[4];; @@ -33976,7 +34079,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.PROGN___V7*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1990:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1995:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V5*/ meltfptr[4] = 0; @@ -33991,7 +34094,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1991:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1996:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34003,7 +34106,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:1991:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1996:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -34011,7 +34114,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1991:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1996:/ cond.else"); /*^block */ /*anyblock */ @@ -34025,7 +34128,7 @@ lab_endgetargs:; melt_assert_failed (("check symb"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1991) ? (1991) : __LINE__, __FUNCTION__); + (1996) ? (1996) : __LINE__, __FUNCTION__); ; } ; @@ -34039,7 +34142,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[4] = /*_.IFELSE___V9*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1991:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1996:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[5] = 0; @@ -34052,7 +34155,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1992:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:1997:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34063,7 +34166,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.EXPANDER__V3*/ meltfptr[2])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:1992:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:1997:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -34071,7 +34174,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:1992:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:1997:/ cond.else"); /*^block */ /*anyblock */ @@ -34085,7 +34188,7 @@ lab_endgetargs:; melt_assert_failed (("check expander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (1992) ? (1992) : __LINE__, __FUNCTION__); + (1997) ? (1997) : __LINE__, __FUNCTION__); ; } ; @@ -34099,7 +34202,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[5] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1992:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1997:/ clear"); /*clear *//*_#IS_CLOSURE__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -34110,7 +34213,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:1993:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:1998:/ quasiblock"); /*^checksignal */ @@ -34156,7 +34259,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.MBIND__V13*/ meltfptr[12] = /*_.INST__V14*/ meltfptr[13];; - MELT_LOCATION ("warmelt-macro.melt:1997:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2002:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34176,7 +34279,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:1998:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2003:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34202,7 +34305,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:1998:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2003:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -34217,7 +34320,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:1998:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2003:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34230,7 +34333,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 1998; + argtab[2].meltbp_long = 2003; /*^apply.arg */ argtab[3].meltbp_cstring = "install_initial_macro done symb"; /*^apply.arg */ @@ -34250,7 +34353,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1998:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2003:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0; @@ -34263,7 +34366,7 @@ lab_endgetargs:; /*_.IF___V17*/ meltfptr[16] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:1998:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2003:/ quasiblock"); /*_.PROGN___V19*/ meltfptr[17] = /*_.IF___V17*/ meltfptr[16];; @@ -34271,7 +34374,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = /*_.PROGN___V19*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:1998:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2003:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V17*/ meltfptr[16] = 0; @@ -34287,13 +34390,13 @@ lab_endgetargs:; /*^compute */ /*_.LET___V12*/ meltfptr[10] = /*_.IFCPP___V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-macro.melt:1993:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:1998:/ clear"); /*clear *//*_.MBIND__V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.PUT_ENV__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.IFCPP___V16*/ meltfptr[15] = 0; - MELT_LOCATION ("warmelt-macro.melt:1989:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:1994:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -34302,7 +34405,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-macro.melt:1989:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:1994:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -34425,7 +34528,7 @@ meltrout_31_warmelt_macro_INSTALL_INITIAL_PATMACRO (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2002:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2007:/ getarg"); /*_.SYMB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -34457,7 +34560,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2003:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2008:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34483,7 +34586,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2003:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2008:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -34498,7 +34601,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2003:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2008:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34511,7 +34614,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2003; + argtab[2].meltbp_long = 2008; /*^apply.arg */ argtab[3].meltbp_cstring = "install_initial_patmacro symb"; /*^apply.arg */ @@ -34530,7 +34633,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2003:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2008:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0; @@ -34543,7 +34646,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2003:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2008:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[6] = /*_.IF___V6*/ meltfptr[5];; @@ -34551,7 +34654,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2003:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2008:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V6*/ meltfptr[5] = 0; @@ -34566,7 +34669,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2004:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2009:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34578,7 +34681,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:2004:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2009:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -34586,7 +34689,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2004:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2009:/ cond.else"); /*^block */ /*anyblock */ @@ -34600,7 +34703,7 @@ lab_endgetargs:; melt_assert_failed (("check symb"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2004) ? (2004) : __LINE__, __FUNCTION__); + (2009) ? (2009) : __LINE__, __FUNCTION__); ; } ; @@ -34614,7 +34717,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[5] = /*_.IFELSE___V10*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2004:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2009:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[6] = 0; @@ -34627,7 +34730,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2005:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2010:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34638,7 +34741,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.PATEXPANDER__V3*/ meltfptr[2])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:2005:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2010:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -34646,7 +34749,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2005:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2010:/ cond.else"); /*^block */ /*anyblock */ @@ -34660,7 +34763,7 @@ lab_endgetargs:; melt_assert_failed (("check patexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2005) ? (2005) : __LINE__, __FUNCTION__); + (2010) ? (2010) : __LINE__, __FUNCTION__); ; } ; @@ -34674,7 +34777,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[6] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2005:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2010:/ clear"); /*clear *//*_#IS_CLOSURE__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -34687,7 +34790,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2006:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2011:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34698,7 +34801,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MACEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:2006:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2011:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -34706,7 +34809,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2006:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2011:/ cond.else"); /*^block */ /*anyblock */ @@ -34720,7 +34823,7 @@ lab_endgetargs:; melt_assert_failed (("check macexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2006) ? (2006) : __LINE__, __FUNCTION__); + (2011) ? (2011) : __LINE__, __FUNCTION__); ; } ; @@ -34734,7 +34837,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[11] = /*_.IFELSE___V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2006:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2011:/ clear"); /*clear *//*_#IS_CLOSURE__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[13] = 0; @@ -34745,7 +34848,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[11] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2008:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2013:/ quasiblock"); /*^checksignal */ @@ -34801,7 +34904,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.MBIND__V16*/ meltfptr[15] = /*_.INST__V17*/ meltfptr[16];; - MELT_LOCATION ("warmelt-macro.melt:2013:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2018:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34821,7 +34924,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2014:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2019:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34847,7 +34950,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2014:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2019:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -34862,7 +34965,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2014:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2019:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34875,7 +34978,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2014; + argtab[2].meltbp_long = 2019; /*^apply.arg */ argtab[3].meltbp_cstring = "install_initial_patmacro done symb"; /*^apply.arg */ @@ -34895,7 +34998,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2014:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2019:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0; @@ -34908,7 +35011,7 @@ lab_endgetargs:; /*_.IF___V20*/ meltfptr[19] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2014:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2019:/ quasiblock"); /*_.PROGN___V22*/ meltfptr[20] = /*_.IF___V20*/ meltfptr[19];; @@ -34916,7 +35019,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[18] = /*_.PROGN___V22*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2014:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2019:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V20*/ meltfptr[19] = 0; @@ -34931,7 +35034,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2015:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2020:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34957,7 +35060,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2015:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2020:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -34972,7 +35075,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2015:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2020:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34985,7 +35088,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2015; + argtab[2].meltbp_long = 2020; /*^apply.arg */ argtab[3].meltbp_cstring = "install_initial_patmacro done mbind"; @@ -35006,7 +35109,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2015:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2020:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0; @@ -35019,7 +35122,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2015:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2020:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[24] = /*_.IF___V24*/ meltfptr[20];; @@ -35027,7 +35130,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[19] = /*_.PROGN___V26*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2015:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2020:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V24*/ meltfptr[20] = 0; @@ -35043,7 +35146,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V15*/ meltfptr[13] = /*_.IFCPP___V23*/ meltfptr[19];; - MELT_LOCATION ("warmelt-macro.melt:2008:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2013:/ clear"); /*clear *//*_.MBIND__V16*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.PUT_ENV__V18*/ meltfptr[17] = 0; @@ -35051,7 +35154,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.IFCPP___V23*/ meltfptr[19] = 0; - MELT_LOCATION ("warmelt-macro.melt:2002:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2007:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -35060,7 +35163,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[13];; { - MELT_LOCATION ("warmelt-macro.melt:2002:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2007:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -35184,7 +35287,7 @@ meltrout_32_warmelt_macro_WARN_IF_REDEFINED (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2024:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2029:/ getarg"); /*_.SYMB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -35214,7 +35317,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2025:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2030:/ cppif.then"); /*^block */ /*anyblock */ { @@ -35226,7 +35329,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:2025:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2030:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -35234,7 +35337,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2025:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2030:/ cond.else"); /*^block */ /*anyblock */ @@ -35248,7 +35351,7 @@ lab_endgetargs:; melt_assert_failed (("check symb"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2025) ? (2025) : __LINE__, __FUNCTION__); + (2030) ? (2030) : __LINE__, __FUNCTION__); ; } ; @@ -35262,7 +35365,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2025:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2030:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -35275,7 +35378,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2026:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2031:/ cppif.then"); /*^block */ /*anyblock */ { @@ -35287,7 +35390,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:2026:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2031:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -35295,7 +35398,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2026:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2031:/ cond.else"); /*^block */ /*anyblock */ @@ -35309,7 +35412,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2026) ? (2026) : __LINE__, __FUNCTION__); + (2031) ? (2031) : __LINE__, __FUNCTION__); ; } ; @@ -35323,7 +35426,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2026:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2031:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -35334,12 +35437,12 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2027:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2032:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#WARN_SHADOW__L3*/ meltfnum[0] = warn_shadow;; - MELT_LOCATION ("warmelt-macro.melt:2027:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2032:/ cond"); /*cond */ if ( /*_#WARN_SHADOW__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -35350,7 +35453,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:2029:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2034:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -35369,7 +35472,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2027:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2032:/ cond"); /*cond */ if ( /*_.FIND_ENV__V9*/ meltfptr[7]) /*then */ { /*^cond.then */ @@ -35377,7 +35480,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2031:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2036:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYMB__V2*/ meltfptr[1]) /*=obj*/ ; @@ -35387,7 +35490,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2030:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2035:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V4*/ meltfptr[3]), ("symbol redefinition masks previous"), @@ -35397,7 +35500,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2027:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2032:/ clear"); /*clear *//*_.NAMED_NAME__V10*/ meltfptr[9] = 0; } ; @@ -35411,7 +35514,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:2024:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2029:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -35526,7 +35629,7 @@ meltrout_33_warmelt_macro_FLATTEN_FOR_C_CODE_EXPANSION (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2037:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2042:/ getarg"); /*_.LOC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -35558,7 +35661,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2038:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2043:/ cppif.then"); /*^block */ /*anyblock */ { @@ -35569,7 +35672,7 @@ lab_endgetargs:; /*_#IS_LIST__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.FLATLIST__V4*/ meltfptr[3])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-macro.melt:2038:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2043:/ cond"); /*cond */ if ( /*_#IS_LIST__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -35577,7 +35680,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2038:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2043:/ cond.else"); /*^block */ /*anyblock */ @@ -35591,7 +35694,7 @@ lab_endgetargs:; melt_assert_failed (("check flatlist"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2038) ? (2038) : __LINE__, __FUNCTION__); + (2043) ? (2043) : __LINE__, __FUNCTION__); ; } ; @@ -35605,7 +35708,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2038:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2043:/ clear"); /*clear *//*_#IS_LIST__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -35616,12 +35719,12 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2042:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2047:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L2*/ meltfnum[0] = (( /*_.COMP__V3*/ meltfptr[2]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:2042:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2047:/ cond"); /*cond */ if ( /*_#NULL__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -35631,19 +35734,19 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2044:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2049:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V2*/ meltfptr[1]), ("null component for C chunk"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2045:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2050:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2045:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2050:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -35656,7 +35759,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2042:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2047:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[8] = /*_.RETURN___V8*/ meltfptr[7];; @@ -35664,7 +35767,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2042:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2047:/ clear"); /*clear *//*_.RETURN___V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.PROGN___V9*/ meltfptr[8] = 0; @@ -35678,14 +35781,14 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2046:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2051:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[2] = melt_is_instance_of ((melt_ptr_t) ( /*_.COMP__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:2046:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2051:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -35697,7 +35800,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2047:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2052:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FLATLIST__V4*/ meltfptr[3]), (melt_ptr_t) ( /*_.COMP__V3*/ @@ -35711,20 +35814,20 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2046:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2051:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2049:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2054:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.COMP__V3*/ meltfptr[2])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-macro.melt:2049:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2054:/ cond"); /*cond */ if ( /*_#IS_STRING__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -35743,7 +35846,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2050:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2055:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FLATLIST__V4*/ meltfptr[3]), (melt_ptr_t) ( /*_.MAKE_STRING__V10*/ meltfptr[7])); @@ -35752,7 +35855,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V7*/ meltfptr[5] = 0; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2049:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2054:/ clear"); /*clear *//*_.MAKE_STRING__V10*/ meltfptr[7] = 0; } ; @@ -35764,14 +35867,14 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2052:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2057:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L5*/ meltfnum[4] = (melt_magic_discr ((melt_ptr_t) ( /*_.COMP__V3*/ meltfptr[2])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-macro.melt:2052:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2057:/ cond"); /*cond */ if ( /*_#IS_LIST__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -35802,7 +35905,7 @@ lab_endgetargs:; MELT_LOCATION - ("warmelt-macro.melt:2057:/ checksignal"); + ("warmelt-macro.melt:2062:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -35835,7 +35938,7 @@ lab_endgetargs:; /*citerepilog */ MELT_LOCATION - ("warmelt-macro.melt:2053:/ clear"); + ("warmelt-macro.melt:2058:/ clear"); /*clear *//*_.CURPAIR__V11*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.CURCOMP__V12*/ meltfptr[7] = 0; @@ -35851,14 +35954,14 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:2052:/ cond.else"); + ("warmelt-macro.melt:2057:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-macro.melt:2061:/ checksignal"); + ("warmelt-macro.melt:2066:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L6*/ meltfnum[5] = @@ -35866,7 +35969,7 @@ lab_endgetargs:; ( /*_.COMP__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:2061:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2066:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -35875,7 +35978,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:2062:/ quasiblock"); + ("warmelt-macro.melt:2067:/ quasiblock"); /*^cond */ @@ -35906,7 +36009,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:2063:/ cond"); + ("warmelt-macro.melt:2068:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.COMP__V3*/ meltfptr[2]), @@ -35958,7 +36061,7 @@ lab_endgetargs:; MELT_LOCATION - ("warmelt-macro.melt:2069:/ checksignal"); + ("warmelt-macro.melt:2074:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -35993,7 +36096,7 @@ lab_endgetargs:; /*citerepilog */ MELT_LOCATION - ("warmelt-macro.melt:2065:/ clear"); + ("warmelt-macro.melt:2070:/ clear"); /*clear *//*_.CURSUBPAIR__V16*/ meltfptr[15] = 0; /*^clear */ @@ -36006,7 +36109,7 @@ lab_endgetargs:; ; MELT_LOCATION - ("warmelt-macro.melt:2062:/ clear"); + ("warmelt-macro.melt:2067:/ clear"); /*clear *//*_.SUBLOC__V14*/ meltfptr[13] = 0; /*^clear */ @@ -36019,7 +36122,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:2061:/ cond.else"); + ("warmelt-macro.melt:2066:/ cond.else"); /*^block */ /*anyblock */ @@ -36028,7 +36131,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:2074:/ locexp"); + ("warmelt-macro.melt:2079:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -36043,7 +36146,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.COMP__V3*/ meltfptr[2]))));; MELT_LOCATION - ("warmelt-macro.melt:2076:/ cond"); + ("warmelt-macro.melt:2081:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.DISCRIM__V19*/ meltfptr[13]), @@ -36075,7 +36178,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:2075:/ locexp"); + ("warmelt-macro.melt:2080:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V2*/ meltfptr[1]), @@ -36084,13 +36187,13 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:2073:/ quasiblock"); + ("warmelt-macro.melt:2078:/ quasiblock"); /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:2061:/ clear"); + ("warmelt-macro.melt:2066:/ clear"); /*clear *//*_.DISCRIM__V19*/ meltfptr[13] = 0; /*^clear */ @@ -36102,7 +36205,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2052:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2057:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[5] = 0; } ; @@ -36110,7 +36213,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2049:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2054:/ clear"); /*clear *//*_#IS_LIST__L5*/ meltfnum[4] = 0; } ; @@ -36118,7 +36221,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2046:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2051:/ clear"); /*clear *//*_#IS_STRING__L4*/ meltfnum[3] = 0; } ; @@ -36126,13 +36229,13 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2042:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2047:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[2] = 0; } ; } ; - MELT_LOCATION ("warmelt-macro.melt:2037:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2042:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -36141,7 +36244,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V7*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-macro.melt:2037:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2042:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -36266,7 +36369,7 @@ meltrout_34_warmelt_macro_PARSE_PAIRLIST_C_CODE_EXPANSION (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2083:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2088:/ getarg"); /*_.LOC__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -36288,7 +36391,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2084:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2089:/ cppif.then"); /*^block */ /*anyblock */ { @@ -36314,7 +36417,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2084:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2089:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -36329,7 +36432,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2084:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2089:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -36342,7 +36445,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2084; + argtab[2].meltbp_long = 2089; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_pairlist_c_code_expansion loc"; @@ -36362,7 +36465,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2084:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2089:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0; @@ -36375,7 +36478,7 @@ lab_endgetargs:; /*_.IF___V5*/ meltfptr[4] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2084:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2089:/ quasiblock"); /*_.PROGN___V7*/ meltfptr[5] = /*_.IF___V5*/ meltfptr[4];; @@ -36383,7 +36486,7 @@ lab_endgetargs:; /*_.IFCPP___V4*/ meltfptr[3] = /*_.PROGN___V7*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2084:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2089:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V5*/ meltfptr[4] = 0; @@ -36398,7 +36501,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2085:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2090:/ cppif.then"); /*^block */ /*anyblock */ { @@ -36424,7 +36527,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2085:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2090:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -36439,7 +36542,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2085:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2090:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -36452,7 +36555,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2085; + argtab[2].meltbp_long = 2090; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_pairlist_c_code_expansion curpair"; @@ -36473,7 +36576,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2085:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2090:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0; @@ -36486,7 +36589,7 @@ lab_endgetargs:; /*_.IF___V9*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2085:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2090:/ quasiblock"); /*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[5];; @@ -36494,7 +36597,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[4] = /*_.PROGN___V11*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2085:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2090:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V9*/ meltfptr[5] = 0; @@ -36507,13 +36610,13 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2086:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2091:/ quasiblock"); /*_.FLATLIST__V13*/ meltfptr[9] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[1]))));; - MELT_LOCATION ("warmelt-macro.melt:2087:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:2092:/ loop"); /*loop */ { labloop_COMPLOOP_1:; /*^loopbody */ @@ -36525,7 +36628,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:2089:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2094:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L5*/ meltfnum[0] = @@ -36534,7 +36637,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L6*/ meltfnum[1] = (!( /*_#IS_PAIR__L5*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:2089:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2094:/ cond"); /*cond */ if ( /*_#NOT__L6*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -36559,14 +36662,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:2090:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2095:/ quasiblock"); /*_.PAIRHD__V17*/ meltfptr[16] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V3*/ meltfptr[2])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2091:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2096:/ cppif.then"); /*^block */ /*anyblock */ { @@ -36592,7 +36695,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2091:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2096:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -36607,7 +36710,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2091:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2096:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -36621,7 +36724,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2091; + argtab[2].meltbp_long = 2096; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_pairlist_c_code_expansion loop pairhd"; @@ -36643,7 +36746,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2091:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2096:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 0; @@ -36656,7 +36759,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2091:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2096:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[19] = /*_.IF___V19*/ meltfptr[18];; @@ -36664,7 +36767,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = /*_.PROGN___V21*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2091:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2096:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V19*/ meltfptr[18] = 0; @@ -36677,7 +36780,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2092:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2097:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -36703,7 +36806,7 @@ lab_endgetargs:; /*_.LET___V16*/ meltfptr[15] = /*_.FLATTEN_FOR_C_CODE_EXPANSION__V22*/ meltfptr[18];; - MELT_LOCATION ("warmelt-macro.melt:2090:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2095:/ clear"); /*clear *//*_.PAIRHD__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.IFCPP___V18*/ meltfptr[17] = 0; @@ -36711,10 +36814,10 @@ lab_endgetargs:; /*clear *//*_.FLATTEN_FOR_C_CODE_EXPANSION__V22*/ meltfptr[18] = 0; /*_.PAIR_TAIL__V23*/ meltfptr[19] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V3*/ meltfptr[2])));; - MELT_LOCATION ("warmelt-macro.melt:2093:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2098:/ compute"); /*_.CURPAIR__V3*/ meltfptr[2] = /*_.SETQ___V24*/ meltfptr[16] = /*_.PAIR_TAIL__V23*/ meltfptr[19];; - MELT_LOCATION ("warmelt-macro.melt:2087:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2092:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -36740,7 +36843,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2095:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2100:/ cppif.then"); /*^block */ /*anyblock */ { @@ -36766,7 +36869,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2095:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2100:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -36781,7 +36884,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2095:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2100:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -36795,7 +36898,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2095; + argtab[2].meltbp_long = 2100; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_pairlist_c_code_expansion flatlist"; @@ -36816,7 +36919,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V27*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2095:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2100:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V27*/ meltfptr[15] = 0; @@ -36829,7 +36932,7 @@ lab_endgetargs:; /*_.IF___V26*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2095:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2100:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[19] = /*_.IF___V26*/ meltfptr[18];; @@ -36837,7 +36940,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[17] = /*_.PROGN___V28*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2095:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2100:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V26*/ meltfptr[18] = 0; @@ -36850,7 +36953,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2096:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2101:/ quasiblock"); /*^checksignal */ @@ -36874,7 +36977,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2097:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2102:/ cppif.then"); /*^block */ /*anyblock */ { @@ -36900,7 +37003,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2097:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2102:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -36915,7 +37018,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2097:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2102:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -36929,7 +37032,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2097; + argtab[2].meltbp_long = 2102; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_pairlist_c_code_expansion tupexp"; @@ -36950,7 +37053,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2097:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2102:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0; @@ -36963,7 +37066,7 @@ lab_endgetargs:; /*_.IF___V32*/ meltfptr[19] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2097:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2102:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[32] = /*_.IF___V32*/ meltfptr[19];; @@ -36971,7 +37074,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[18] = /*_.PROGN___V34*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2097:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2102:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V32*/ meltfptr[19] = 0; @@ -36986,7 +37089,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2098:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2103:/ cppif.then"); /*^block */ /*anyblock */ { @@ -36997,7 +37100,7 @@ lab_endgetargs:; /*_#IS_MULTIPLE__L13*/ meltfnum[6] = (melt_magic_discr ((melt_ptr_t) ( /*_.TUPEXP__V30*/ meltfptr[15])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION ("warmelt-macro.melt:2098:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2103:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE__L13*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -37005,7 +37108,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2098:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2103:/ cond.else"); /*^block */ /*anyblock */ @@ -37019,7 +37122,7 @@ lab_endgetargs:; melt_assert_failed (("check tupexp"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2098) ? (2098) : __LINE__, __FUNCTION__); + (2103) ? (2103) : __LINE__, __FUNCTION__); ; } ; @@ -37033,7 +37136,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[19] = /*_.IFELSE___V36*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2098:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2103:/ clear"); /*clear *//*_#IS_MULTIPLE__L13*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IFELSE___V36*/ meltfptr[32] = 0; @@ -37044,7 +37147,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[19] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2099:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2104:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -37053,7 +37156,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.TUPEXP__V30*/ meltfptr[15];; { - MELT_LOCATION ("warmelt-macro.melt:2099:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2104:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -37068,7 +37171,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V29*/ meltfptr[16] = /*_.RETURN___V37*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:2096:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2101:/ clear"); /*clear *//*_.TUPEXP__V30*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.IFCPP___V31*/ meltfptr[18] = 0; @@ -37078,7 +37181,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V37*/ meltfptr[32] = 0; /*_.LET___V12*/ meltfptr[5] = /*_.LET___V29*/ meltfptr[16];; - MELT_LOCATION ("warmelt-macro.melt:2086:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2091:/ clear"); /*clear *//*_.FLATLIST__V13*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_.FOREVER___V14*/ meltfptr[13] = 0; @@ -37086,7 +37189,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V25*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.LET___V29*/ meltfptr[16] = 0; - MELT_LOCATION ("warmelt-macro.melt:2083:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2088:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -37095,7 +37198,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-macro.melt:2083:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2088:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -37215,7 +37318,7 @@ meltrout_35_warmelt_macro_CHECK_C_EXPANSION (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2104:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2109:/ getarg"); /*_.ETUPLE__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -37246,7 +37349,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2105:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2110:/ cppif.then"); /*^block */ /*anyblock */ { @@ -37272,7 +37375,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2105:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2110:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -37287,7 +37390,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2105:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2110:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -37300,7 +37403,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2105; + argtab[2].meltbp_long = 2110; /*^apply.arg */ argtab[3].meltbp_cstring = "check_c_expansion etuple"; /*^apply.arg */ @@ -37319,7 +37422,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2105:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2110:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0; @@ -37332,7 +37435,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2105:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2110:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[6] = /*_.IF___V6*/ meltfptr[5];; @@ -37340,7 +37443,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2105:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2110:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V6*/ meltfptr[5] = 0; @@ -37355,7 +37458,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2106:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2111:/ cppif.then"); /*^block */ /*anyblock */ { @@ -37381,7 +37484,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2106:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2111:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -37396,7 +37499,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2106:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2111:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -37409,7 +37512,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2106; + argtab[2].meltbp_long = 2111; /*^apply.arg */ argtab[3].meltbp_cstring = "check_c_expansion loc"; /*^apply.arg */ @@ -37429,7 +37532,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2106:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2111:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0; @@ -37442,7 +37545,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2106:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2111:/ quasiblock"); /*_.PROGN___V12*/ meltfptr[10] = /*_.IF___V10*/ meltfptr[6];; @@ -37450,7 +37553,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[5] = /*_.PROGN___V12*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2106:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2111:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V10*/ meltfptr[6] = 0; @@ -37479,12 +37582,12 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-macro.melt:2111:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2116:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L6*/ meltfnum[1] = (( /*_.ECOMP__V13*/ meltfptr[6]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:2111:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2116:/ cond"); /*cond */ if ( /*_#NULL__L6*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -37496,7 +37599,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2112:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2117:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), ("null component in C expansion"), @@ -37510,13 +37613,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2111:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2116:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2113:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2118:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[6] = @@ -37525,7 +37628,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:2113:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2118:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -37535,7 +37638,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2114:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2119:/ cppif.then"); /*^block */ /*anyblock */ { @@ -37561,7 +37664,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2114:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2119:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -37577,7 +37680,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:2114:/ checksignal"); + ("warmelt-macro.melt:2119:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -37592,7 +37695,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2114; + argtab[2].meltbp_long = 2119; /*^apply.arg */ argtab[3].meltbp_cstring = "check_c_expansion keyword ecomp"; @@ -37618,7 +37721,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:2114:/ clear"); + ("warmelt-macro.melt:2119:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ @@ -37634,7 +37737,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:2114:/ quasiblock"); + ("warmelt-macro.melt:2119:/ quasiblock"); /*_.PROGN___V19*/ meltfptr[17] = @@ -37644,7 +37747,7 @@ lab_endgetargs:; /*_.PROGN___V19*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2114:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2119:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V17*/ meltfptr[16] = 0; @@ -37657,7 +37760,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2116:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2121:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -37669,7 +37772,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2115:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2120:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), ("unexpected keyword in C expansion"), @@ -37677,7 +37780,7 @@ lab_endgetargs:; meltfptr[16])); } ; - MELT_LOCATION ("warmelt-macro.melt:2113:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2118:/ quasiblock"); /*epilog */ @@ -37696,14 +37799,14 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2118:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2123:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L10*/ meltfnum[8] = melt_is_instance_of ((melt_ptr_t) ( /*_.ECOMP__V13*/ meltfptr[6]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:2118:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2123:/ cond"); /*cond */ if ( /*_#IS_A__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -37712,7 +37815,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:2119:/ checksignal"); + ("warmelt-macro.melt:2124:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAPOBJECT_GET__V22*/ meltfptr[15] = @@ -37725,7 +37828,7 @@ lab_endgetargs:; /*_#NULL__L11*/ meltfnum[7] = (( /*_.MAPOBJECT_GET__V22*/ meltfptr[15]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:2119:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2124:/ cond"); /*cond */ if ( /*_#NULL__L11*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -37736,7 +37839,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:2121:/ cppif.then"); + ("warmelt-macro.melt:2126:/ cppif.then"); /*^block */ /*anyblock */ { @@ -37764,7 +37867,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:2121:/ cond"); + ("warmelt-macro.melt:2126:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -37781,7 +37884,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:2121:/ checksignal"); + ("warmelt-macro.melt:2126:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -37798,7 +37901,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2121; + argtab[2].meltbp_long = 2126; /*^apply.arg */ argtab[3].meltbp_cstring = "check_c_expansion ecomp"; @@ -37818,7 +37921,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:2121:/ clear"); + ("warmelt-macro.melt:2126:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0; /*^clear */ @@ -37834,7 +37937,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:2121:/ quasiblock"); + ("warmelt-macro.melt:2126:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[24] = @@ -37845,7 +37948,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:2121:/ clear"); + ("warmelt-macro.melt:2126:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0; /*^clear */ @@ -37862,7 +37965,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:2123:/ getslot"); + ("warmelt-macro.melt:2128:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -37876,7 +37979,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:2122:/ locexp"); + ("warmelt-macro.melt:2127:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), @@ -37885,13 +37988,13 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:2120:/ quasiblock"); + ("warmelt-macro.melt:2125:/ quasiblock"); /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:2119:/ clear"); + ("warmelt-macro.melt:2124:/ clear"); /*clear *//*_.IFCPP___V23*/ meltfptr[16] = 0; /*^clear */ @@ -37902,7 +38005,7 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION - ("warmelt-macro.melt:2118:/ quasiblock"); + ("warmelt-macro.melt:2123:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[24] = @@ -37912,7 +38015,7 @@ lab_endgetargs:; /*_.PROGN___V28*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2118:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2123:/ clear"); /*clear *//*_.MAPOBJECT_GET__V22*/ meltfptr[15] = 0; /*^clear */ @@ -37930,14 +38033,14 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:2126:/ checksignal"); + ("warmelt-macro.melt:2131:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L14*/ meltfnum[12] = (melt_magic_discr ((melt_ptr_t) ( /*_.ECOMP__V13*/ meltfptr[6])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-macro.melt:2126:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2131:/ cond"); /*cond */ if ( /*_#IS_STRING__L14*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -37947,7 +38050,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:2126:/ cond.else"); + ("warmelt-macro.melt:2131:/ cond.else"); /*^block */ /*anyblock */ @@ -37959,7 +38062,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.ECOMP__V13*/ meltfptr[6]))));; MELT_LOCATION - ("warmelt-macro.melt:2131:/ cond"); + ("warmelt-macro.melt:2136:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.DISCRIM__V30*/ meltfptr[23]), @@ -37991,13 +38094,13 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:2130:/ locexp"); + ("warmelt-macro.melt:2135:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), ("unexpected C expansion component of "), (melt_ptr_t) ( /*_.NAMED_NAME__V31*/ meltfptr[15])); } ; MELT_LOCATION - ("warmelt-macro.melt:2129:/ quasiblock"); + ("warmelt-macro.melt:2134:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[24] = @@ -38008,7 +38111,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:2126:/ clear"); + ("warmelt-macro.melt:2131:/ clear"); /*clear *//*_.DISCRIM__V30*/ meltfptr[23] = 0; /*^clear */ @@ -38025,7 +38128,7 @@ lab_endgetargs:; /*_.IFELSE___V29*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2118:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2123:/ clear"); /*clear *//*_#IS_STRING__L14*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IFELSE___V29*/ meltfptr[16] = 0; @@ -38037,7 +38140,7 @@ lab_endgetargs:; /*_.IFELSE___V21*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2113:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2118:/ clear"); /*clear *//*_#IS_A__L10*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V21*/ meltfptr[17] = 0; @@ -38049,7 +38152,7 @@ lab_endgetargs:; /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2111:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2116:/ clear"); /*clear *//*_#IS_A__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -38063,7 +38166,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:2107:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2112:/ clear"); /*clear *//*_.ECOMP__V13*/ meltfptr[6] = 0; /*^clear */ /*clear *//*_#IX__L5*/ meltfnum[0] = 0; @@ -38073,7 +38176,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V14*/ meltfptr[10] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-macro.melt:2104:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2109:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -38181,7 +38284,7 @@ meltrout_36_warmelt_macro_MEXPAND_DEFPRIMITIVE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2139:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -38222,7 +38325,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2140:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2145:/ cppif.then"); /*^block */ /*anyblock */ { @@ -38248,7 +38351,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2140:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2145:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -38263,7 +38366,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2140:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2145:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -38276,7 +38379,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2140; + argtab[2].meltbp_long = 2145; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defprimitive sexpr"; /*^apply.arg */ @@ -38295,7 +38398,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2140:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2145:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -38308,7 +38411,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2140:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2145:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -38316,7 +38419,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2140:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2145:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -38331,7 +38434,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2141:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2146:/ cppif.then"); /*^block */ /*anyblock */ { @@ -38343,7 +38446,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:2141:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2146:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -38351,7 +38454,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2141:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2146:/ cond.else"); /*^block */ /*anyblock */ @@ -38365,7 +38468,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2141) ? (2141) : __LINE__, __FUNCTION__); + (2146) ? (2146) : __LINE__, __FUNCTION__); ; } ; @@ -38379,7 +38482,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2141:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2146:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -38392,7 +38495,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2142:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2147:/ cppif.then"); /*^block */ /*anyblock */ { @@ -38404,7 +38507,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:2142:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2147:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -38412,7 +38515,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2142:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2147:/ cond.else"); /*^block */ /*anyblock */ @@ -38426,7 +38529,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2142) ? (2142) : __LINE__, __FUNCTION__); + (2147) ? (2147) : __LINE__, __FUNCTION__); ; } ; @@ -38440,7 +38543,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2142:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2147:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -38453,7 +38556,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2143:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2148:/ cppif.then"); /*^block */ /*anyblock */ { @@ -38464,7 +38567,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:2143:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2148:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -38472,7 +38575,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2143:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2148:/ cond.else"); /*^block */ /*anyblock */ @@ -38486,7 +38589,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2143) ? (2143) : __LINE__, __FUNCTION__); + (2148) ? (2148) : __LINE__, __FUNCTION__); ; } ; @@ -38500,7 +38603,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2143:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2148:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -38511,7 +38614,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2144:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2149:/ quasiblock"); /*^getslot */ @@ -38522,7 +38625,7 @@ lab_endgetargs:; /*_.CONT__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2145:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2150:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -38540,14 +38643,14 @@ lab_endgetargs:; (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; /*^compute */ /*_.DOCV__V22*/ meltfptr[21] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:2150:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2155:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V21*/ meltfptr[20]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:2150:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2155:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -38557,7 +38660,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2151:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2156:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("missing symbol for (DEFPRIMITIVE symb args type [:doc documentation\ ] expansion...)"), (melt_ptr_t) 0); } @@ -38569,15 +38672,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V23*/ meltfptr[22] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2152:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2157:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V24*/ meltfptr[23] = /*_.PAIR_TAIL__V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-macro.melt:2154:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2159:/ quasiblock"); /*_.PAIR_HEAD__V26*/ meltfptr[25] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2154:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2159:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -38595,13 +38698,13 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2156:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2161:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.BTUP__V27*/ meltfptr[26]), (melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:2156:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2161:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -38609,7 +38712,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2161:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2166:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -38635,18 +38738,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2158:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2163:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("(DEFPRIMITIVE <symb> ...) cannot have variadic formals, ending with\ :REST"), (melt_ptr_t) ( /*_.NAMED_NAME__V29*/ meltfptr[28])); } ; - MELT_LOCATION ("warmelt-macro.melt:2162:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2167:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2162:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2167:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -38659,7 +38762,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2157:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2162:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[30] = /*_.RETURN___V30*/ meltfptr[29];; @@ -38667,7 +38770,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[27] = /*_.PROGN___V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2156:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2161:/ clear"); /*clear *//*_.NAMED_NAME__V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.RETURN___V30*/ meltfptr[29] = 0; @@ -38685,22 +38788,22 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V32*/ meltfptr[28] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2164:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2169:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V33*/ meltfptr[29] = /*_.PAIR_TAIL__V32*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:2166:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2171:/ quasiblock"); /*_.TYPKW__V35*/ meltfptr[34] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2167:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2172:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L8*/ meltfnum[7] = !melt_is_instance_of ((melt_ptr_t) ( /*_.TYPKW__V35*/ meltfptr[34]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[7])));; - MELT_LOCATION ("warmelt-macro.melt:2167:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2172:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -38710,7 +38813,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2168:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2173:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("missing type keyword for (DEFPRIMITIVE symb args type [:doc documentation\ ] expansion...)"), (melt_ptr_t) 0); } @@ -38720,7 +38823,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:2169:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2174:/ quasiblock"); /*^getslot */ @@ -38731,7 +38834,7 @@ lab_endgetargs:; /*_.CTY__V37*/ meltfptr[36] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2170:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2175:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.TYPKW__V35*/ meltfptr[34]) /*=obj*/ ; @@ -38739,14 +38842,14 @@ lab_endgetargs:; /*_.TYPKNAM__V38*/ meltfptr[37] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2172:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2177:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L9*/ meltfnum[8] = !melt_is_instance_of ((melt_ptr_t) ( /*_.CTY__V37*/ meltfptr[36]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout-> tabval[8])));; - MELT_LOCATION ("warmelt-macro.melt:2172:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2177:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -38756,7 +38859,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2174:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2179:/ cppif.then"); /*^block */ /*anyblock */ { @@ -38782,7 +38885,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2174:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2179:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -38797,7 +38900,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2174:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2179:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -38811,7 +38914,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2174; + argtab[2].meltbp_long = 2179; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defprimitive bad cty"; /*^apply.arg */ @@ -38832,7 +38935,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2174:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2179:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 0; @@ -38845,7 +38948,7 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[40] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2174:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2179:/ quasiblock"); /*_.PROGN___V43*/ meltfptr[41] = /*_.IF___V41*/ meltfptr[40];; @@ -38853,7 +38956,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[39] = /*_.PROGN___V43*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2174:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2179:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V41*/ meltfptr[40] = 0; @@ -38868,13 +38971,13 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2175:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2180:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("bad type keyword for "), (melt_ptr_t) ( /*_.TYPKNAM__V38*/ meltfptr[37])); } ; - MELT_LOCATION ("warmelt-macro.melt:2176:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2181:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -38883,7 +38986,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:2176:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2181:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -38896,7 +38999,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2173:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2178:/ quasiblock"); /*_.PROGN___V45*/ meltfptr[41] = /*_.RETURN___V44*/ meltfptr[40];; @@ -38904,7 +39007,7 @@ lab_endgetargs:; /*_.IF___V39*/ meltfptr[38] = /*_.PROGN___V45*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2172:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2177:/ clear"); /*clear *//*_.IFCPP___V40*/ meltfptr[39] = 0; /*^clear */ /*clear *//*_.RETURN___V44*/ meltfptr[40] = 0; @@ -38919,7 +39022,7 @@ lab_endgetargs:; /*_.IF___V39*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2178:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2183:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^getslot */ @@ -38933,7 +39036,7 @@ lab_endgetargs:; /*_#__L12*/ meltfnum[10] = (( /*_.CTYPE_KEYWORD__V46*/ meltfptr[39]) == ( /*_.TYPKW__V35*/ meltfptr[34]));; - MELT_LOCATION ("warmelt-macro.melt:2178:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2183:/ cond"); /*cond */ if ( /*_#__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -38941,13 +39044,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2178:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2183:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2181:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2186:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^getslot */ @@ -38961,7 +39064,7 @@ lab_endgetargs:; /*_#__L13*/ meltfnum[9] = (( /*_.CTYPE_ALTKEYWORD__V48*/ meltfptr[41]) == ( /*_.TYPKW__V35*/ meltfptr[34]));; - MELT_LOCATION ("warmelt-macro.melt:2181:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2186:/ cond"); /*cond */ if ( /*_#__L13*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -38971,7 +39074,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2182:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2187:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), @@ -38980,7 +39083,7 @@ lab_endgetargs:; meltfptr[37])); } ; - MELT_LOCATION ("warmelt-macro.melt:2183:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2188:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -39006,7 +39109,7 @@ lab_endgetargs:; /*_.CTYPE_KEYWORD__V50*/ meltfptr[49] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2183:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2188:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -39035,7 +39138,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2183:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2188:/ locexp"); melt_inform_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("prefererd ctype is"), @@ -39043,7 +39146,7 @@ lab_endgetargs:; meltfptr[50])); } ; - MELT_LOCATION ("warmelt-macro.melt:2181:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2186:/ quasiblock"); /*epilog */ @@ -39064,7 +39167,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2186:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2191:/ cppif.then"); /*^block */ /*anyblock */ { @@ -39090,7 +39193,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2186:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2191:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -39106,7 +39209,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:2186:/ checksignal"); + ("warmelt-macro.melt:2191:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -39120,7 +39223,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2186; + argtab[2].meltbp_long = 2191; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defprimitive strange typkw"; @@ -39142,7 +39245,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2186:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2191:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ @@ -39156,7 +39259,7 @@ lab_endgetargs:; /*_.IF___V53*/ meltfptr[50] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2186:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2191:/ quasiblock"); /*_.PROGN___V55*/ meltfptr[53] = @@ -39166,7 +39269,7 @@ lab_endgetargs:; /*_.PROGN___V55*/ meltfptr[53];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2186:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2191:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V53*/ meltfptr[50] = 0; @@ -39181,14 +39284,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2187:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2192:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("invalid type keyword for DEFPRIMITIVE"), (melt_ptr_t) ( /*_.TYPKNAM__V38*/ meltfptr[37])); } ; - MELT_LOCATION ("warmelt-macro.melt:2189:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2194:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -39197,7 +39300,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:2189:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2194:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -39210,7 +39313,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2185:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2190:/ quasiblock"); /*_.PROGN___V57*/ meltfptr[53] = @@ -39220,7 +39323,7 @@ lab_endgetargs:; /*_.PROGN___V57*/ meltfptr[53];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2181:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2186:/ clear"); /*clear *//*_.IFCPP___V52*/ meltfptr[49] = 0; /*^clear */ /*clear *//*_.RETURN___V56*/ meltfptr[50] = 0; @@ -39233,7 +39336,7 @@ lab_endgetargs:; /*_.IFELSE___V47*/ meltfptr[40] = /*_.IFELSE___V49*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2178:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2183:/ clear"); /*clear *//*_.CTYPE_ALTKEYWORD__V48*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_#__L13*/ meltfnum[9] = 0; @@ -39245,10 +39348,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V58*/ meltfptr[49] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2192:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2197:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V59*/ meltfptr[50] = /*_.PAIR_TAIL__V58*/ meltfptr[49];; - MELT_LOCATION ("warmelt-macro.melt:2193:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2198:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V60*/ meltfptr[53] = @@ -39257,7 +39360,7 @@ lab_endgetargs:; /*_#__L16*/ meltfnum[14] = (( /*_.PAIR_HEAD__V60*/ meltfptr[53]) == (( /*!konst_9_DOC */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-macro.melt:2193:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2198:/ cond"); /*cond */ if ( /*_#__L16*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -39268,10 +39371,10 @@ lab_endgetargs:; /*_.PAIR_TAIL__V62*/ meltfptr[48] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2195:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2200:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V63*/ meltfptr[62] = /*_.PAIR_TAIL__V62*/ meltfptr[48];; - MELT_LOCATION ("warmelt-macro.melt:2196:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2201:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -39300,16 +39403,16 @@ lab_endgetargs:; /*_.PAIR_HEAD__V64*/ meltfptr[63] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2197:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2202:/ compute"); /*_.DOCV__V22*/ meltfptr[21] = /*_.SETQ___V65*/ meltfptr[64] = /*_.PAIR_HEAD__V64*/ meltfptr[63];; /*_.PAIR_TAIL__V66*/ meltfptr[65] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2198:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2203:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V67*/ meltfptr[66] = /*_.PAIR_TAIL__V66*/ meltfptr[65];; - MELT_LOCATION ("warmelt-macro.melt:2194:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2199:/ quasiblock"); /*_.PROGN___V68*/ meltfptr[67] = /*_.SETQ___V67*/ meltfptr[66];; @@ -39317,7 +39420,7 @@ lab_endgetargs:; /*_.IF___V61*/ meltfptr[41] = /*_.PROGN___V68*/ meltfptr[67];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2193:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2198:/ clear"); /*clear *//*_.PAIR_TAIL__V62*/ meltfptr[48] = 0; /*^clear */ /*clear *//*_.SETQ___V63*/ meltfptr[62] = 0; @@ -39340,12 +39443,12 @@ lab_endgetargs:; /*_.IF___V61*/ meltfptr[41] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2200:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2205:/ quasiblock"); /*_.CURHEAD__V70*/ meltfptr[62] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2202:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2207:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -39371,7 +39474,7 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V71*/ meltfptr[63] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2202:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2207:/ cond"); /*cond */ if ( /*_.LOCA_LOCATION__V71*/ meltfptr[63]) /*then */ { /*^cond.then */ @@ -39380,12 +39483,12 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2202:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2207:/ cond.else"); /*_.EXPLOC__V72*/ meltfptr[64] = /*_.LOC__V18*/ meltfptr[17];; } ; - MELT_LOCATION ("warmelt-macro.melt:2203:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2208:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -39418,7 +39521,7 @@ lab_endgetargs:; (meltgc_new_mapobjects ((meltobject_ptr_t) (( /*!DISCR_MAP_OBJECTS */ meltfrout->tabval[12])), ( /*_#I__L19*/ meltfnum[18])));; - MELT_LOCATION ("warmelt-macro.melt:2207:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2212:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -39506,10 +39609,10 @@ lab_endgetargs:; "newly made instance"); ; /*_.SDEFPRI__V75*/ meltfptr[67] = /*_.INST__V76*/ meltfptr[75];; - MELT_LOCATION ("warmelt-macro.melt:2216:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2221:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:2217:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2222:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYMB__V21*/ meltfptr[20]) /*=obj*/ ; @@ -39517,7 +39620,7 @@ lab_endgetargs:; /*_.NAMED_NAME__V77*/ meltfptr[76] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2216:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2221:/ quasiblock"); /*^rawallocobj */ @@ -39576,7 +39679,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.PRIMIT__V78*/ meltfptr[77] = /*_.INST__V79*/ meltfptr[78];; - MELT_LOCATION ("warmelt-macro.melt:2222:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2227:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -39647,7 +39750,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2232:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2237:/ cppif.then"); /*^block */ /*anyblock */ { @@ -39660,7 +39763,7 @@ lab_endgetargs:; ( /*_.CURBIND__V82*/ meltfptr[81]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[16])));; - MELT_LOCATION ("warmelt-macro.melt:2232:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2237:/ cond"); /*cond */ if ( /*_#IS_A__L21*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -39668,7 +39771,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2232:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2237:/ cond.else"); /*^block */ /*anyblock */ @@ -39682,7 +39785,7 @@ lab_endgetargs:; melt_assert_failed (("check curbind"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2232) ? (2232) : __LINE__, + (2237) ? (2237) : __LINE__, __FUNCTION__); ; } @@ -39697,7 +39800,7 @@ lab_endgetargs:; /*_.IFCPP___V83*/ meltfptr[82] = /*_.IFELSE___V84*/ meltfptr[83];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2232:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2237:/ clear"); /*clear *//*_#IS_A__L21*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.IFELSE___V84*/ meltfptr[83] = 0; @@ -39708,7 +39811,7 @@ lab_endgetargs:; /*_.IFCPP___V83*/ meltfptr[82] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2233:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2238:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -39736,7 +39839,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2233:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2238:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.SUBSTMAP__V74*/ meltfptr[66]), (meltobject_ptr_t) ( /*_.BINDER__V85*/ @@ -39751,7 +39854,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:2229:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2234:/ clear"); /*clear *//*_.CURBIND__V82*/ meltfptr[81] = 0; /*^clear */ /*clear *//*_#BIX__L20*/ meltfnum[19] = 0; @@ -39763,7 +39866,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2235:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2240:/ cppif.then"); /*^block */ /*anyblock */ { @@ -39789,7 +39892,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2235:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2240:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -39804,7 +39907,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2235:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2240:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -39818,7 +39921,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2235; + argtab[2].meltbp_long = 2240; /*^apply.arg */ argtab[3].meltbp_cstring = "defprimitive primit"; /*^apply.arg */ @@ -39838,7 +39941,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V88*/ meltfptr[87];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2235:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2240:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[22] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V88*/ meltfptr[87] = 0; @@ -39851,7 +39954,7 @@ lab_endgetargs:; /*_.IF___V87*/ meltfptr[86] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2235:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2240:/ quasiblock"); /*_.PROGN___V89*/ meltfptr[87] = /*_.IF___V87*/ meltfptr[86];; @@ -39859,7 +39962,7 @@ lab_endgetargs:; /*_.IFCPP___V86*/ meltfptr[85] = /*_.PROGN___V89*/ meltfptr[87];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2235:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2240:/ clear"); /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.IF___V87*/ meltfptr[86] = 0; @@ -39872,7 +39975,7 @@ lab_endgetargs:; /*_.IFCPP___V86*/ meltfptr[85] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2236:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2241:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -39893,7 +39996,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2238:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2243:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -39913,7 +40016,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2239:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2244:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -39933,7 +40036,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2240:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2245:/ cppif.then"); /*^block */ /*anyblock */ { @@ -39959,7 +40062,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2240:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2245:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L24*/ meltfnum[22]) /*then */ { /*^cond.then */ @@ -39974,7 +40077,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2240:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2245:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -39988,7 +40091,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2240; + argtab[2].meltbp_long = 2245; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defprimitive registering device sdefpri="; @@ -40015,7 +40118,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V95*/ meltfptr[94];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2240:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2245:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L25*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V95*/ meltfptr[94] = 0; @@ -40028,7 +40131,7 @@ lab_endgetargs:; /*_.IF___V94*/ meltfptr[93] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2240:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2245:/ quasiblock"); /*_.PROGN___V96*/ meltfptr[94] = /*_.IF___V94*/ meltfptr[93];; @@ -40036,7 +40139,7 @@ lab_endgetargs:; /*_.IFCPP___V93*/ meltfptr[92] = /*_.PROGN___V96*/ meltfptr[94];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2240:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2245:/ clear"); /*clear *//*_#MELT_NEED_DBG__L24*/ meltfnum[22] = 0; /*^clear */ /*clear *//*_.IF___V94*/ meltfptr[93] = 0; @@ -40049,7 +40152,7 @@ lab_endgetargs:; /*_.IFCPP___V93*/ meltfptr[92] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2241:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2246:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -40072,7 +40175,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2242:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2247:/ cppif.then"); /*^block */ /*anyblock */ { @@ -40098,7 +40201,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2242:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2247:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -40113,7 +40216,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2242:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2247:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -40127,7 +40230,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2242; + argtab[2].meltbp_long = 2247; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defprimitive result sdefpri"; @@ -40148,7 +40251,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V100*/ meltfptr[99];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2242:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2247:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L27*/ meltfnum[22] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V100*/ meltfptr[99] = 0; @@ -40161,7 +40264,7 @@ lab_endgetargs:; /*_.IF___V99*/ meltfptr[98] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2242:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2247:/ quasiblock"); /*_.PROGN___V101*/ meltfptr[99] = /*_.IF___V99*/ meltfptr[98];; @@ -40169,7 +40272,7 @@ lab_endgetargs:; /*_.IFCPP___V98*/ meltfptr[94] = /*_.PROGN___V101*/ meltfptr[99];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2242:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2247:/ clear"); /*clear *//*_#MELT_NEED_DBG__L26*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.IF___V99*/ meltfptr[98] = 0; @@ -40182,7 +40285,7 @@ lab_endgetargs:; /*_.IFCPP___V98*/ meltfptr[94] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2243:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2248:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -40191,7 +40294,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDEFPRI__V75*/ meltfptr[67];; { - MELT_LOCATION ("warmelt-macro.melt:2243:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2248:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -40206,7 +40309,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V69*/ meltfptr[48] = /*_.RETURN___V102*/ meltfptr[98];; - MELT_LOCATION ("warmelt-macro.melt:2200:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2205:/ clear"); /*clear *//*_.CURHEAD__V70*/ meltfptr[62] = 0; /*^clear */ /*clear *//*_.LOCA_LOCATION__V71*/ meltfptr[63] = 0; @@ -40248,7 +40351,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V102*/ meltfptr[98] = 0; /*_.LET___V36*/ meltfptr[35] = /*_.LET___V69*/ meltfptr[48];; - MELT_LOCATION ("warmelt-macro.melt:2169:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2174:/ clear"); /*clear *//*_.CTY__V37*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.TYPKNAM__V38*/ meltfptr[37] = 0; @@ -40276,7 +40379,7 @@ lab_endgetargs:; /*clear *//*_.LET___V69*/ meltfptr[48] = 0; /*_.LET___V34*/ meltfptr[30] = /*_.LET___V36*/ meltfptr[35];; - MELT_LOCATION ("warmelt-macro.melt:2166:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2171:/ clear"); /*clear *//*_.TYPKW__V35*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L8*/ meltfnum[7] = 0; @@ -40284,7 +40387,7 @@ lab_endgetargs:; /*clear *//*_.LET___V36*/ meltfptr[35] = 0; /*_.LET___V25*/ meltfptr[24] = /*_.LET___V34*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:2154:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2159:/ clear"); /*clear *//*_.PAIR_HEAD__V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.BTUP__V27*/ meltfptr[26] = 0; @@ -40300,7 +40403,7 @@ lab_endgetargs:; /*clear *//*_.LET___V34*/ meltfptr[30] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:2144:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2149:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -40320,7 +40423,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V24*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.LET___V25*/ meltfptr[24] = 0; - MELT_LOCATION ("warmelt-macro.melt:2139:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -40329,7 +40432,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:2139:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) diff --git a/gcc/melt/generated/warmelt-macro+02.c b/gcc/melt/generated/warmelt-macro+02.c index 37326c6fc10..fcef8f51572 100644 --- a/gcc/melt/generated/warmelt-macro+02.c +++ b/gcc/melt/generated/warmelt-macro+02.c @@ -2395,7 +2395,7 @@ meltrout_37_warmelt_macro_MEXPAND_DEFCITERATOR (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2262:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -2436,7 +2436,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2263:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2268:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2462,7 +2462,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2263:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2268:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2477,7 +2477,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2263:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2268:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2490,7 +2490,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2263; + argtab[2].meltbp_long = 2268; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defciterator sexpr"; /*^apply.arg */ @@ -2509,7 +2509,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2263:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2268:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -2522,7 +2522,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2263:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2268:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -2530,7 +2530,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2263:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2268:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -2545,7 +2545,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2264:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2269:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2557,7 +2557,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:2264:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2269:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2565,7 +2565,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2264:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2269:/ cond.else"); /*^block */ /*anyblock */ @@ -2579,7 +2579,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2264) ? (2264) : __LINE__, __FUNCTION__); + (2269) ? (2269) : __LINE__, __FUNCTION__); ; } ; @@ -2593,7 +2593,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2264:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2269:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -2606,7 +2606,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2265:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2270:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2618,7 +2618,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:2265:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2270:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2626,7 +2626,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2265:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2270:/ cond.else"); /*^block */ /*anyblock */ @@ -2640,7 +2640,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2265) ? (2265) : __LINE__, __FUNCTION__); + (2270) ? (2270) : __LINE__, __FUNCTION__); ; } ; @@ -2654,7 +2654,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2265:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2270:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -2665,7 +2665,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2266:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2271:/ quasiblock"); /*^getslot */ @@ -2676,7 +2676,7 @@ lab_endgetargs:; /*_.CONT__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2267:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2272:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -2708,14 +2708,14 @@ lab_endgetargs:; /*_.BEFLOC__V26*/ meltfptr[25] = ( /*nil */ NULL);; /*^compute */ /*_.AFTLOC__V27*/ meltfptr[26] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:2280:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2285:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L5*/ meltfnum[1] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:2280:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2285:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2725,18 +2725,18 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2282:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2287:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("missing symbol for (DEFCITERATOR symb startformals statesymb locformals\ expbefore expafter)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2284:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2289:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2284:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2289:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2749,7 +2749,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2281:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2286:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = /*_.RETURN___V29*/ meltfptr[28];; @@ -2757,7 +2757,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[27] = /*_.PROGN___V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2280:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2285:/ clear"); /*clear *//*_.RETURN___V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.PROGN___V30*/ meltfptr[29] = 0; @@ -2773,12 +2773,12 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V31*/ meltfptr[28] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2286:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2291:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V32*/ meltfptr[29] = /*_.PAIR_TAIL__V31*/ meltfptr[28];; /*_.PAIR_HEAD__V33*/ meltfptr[32] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2288:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2293:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2796,22 +2796,22 @@ lab_endgetargs:; /*_.LAMBDA_ARG_BINDINGS__V34*/ meltfptr[33];; /*_.PAIR_TAIL__V36*/ meltfptr[35] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2289:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2294:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V37*/ meltfptr[36] = /*_.PAIR_TAIL__V36*/ meltfptr[35];; /*_.PAIR_HEAD__V38*/ meltfptr[37] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2290:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2295:/ compute"); /*_.STATSYMB__V21*/ meltfptr[20] = /*_.SETQ___V39*/ meltfptr[38] = /*_.PAIR_HEAD__V38*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:2291:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2296:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.STATSYMB__V21*/ meltfptr[20]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:2291:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2296:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2821,18 +2821,18 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2293:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2298:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("missing statsymb for (DEFCITERATOR symb startformals statesymb locformals\ expbefore expafter)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2295:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2300:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2295:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2300:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2845,7 +2845,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2292:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2297:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[41] = /*_.RETURN___V41*/ meltfptr[40];; @@ -2853,7 +2853,7 @@ lab_endgetargs:; /*_.IF___V40*/ meltfptr[39] = /*_.PROGN___V42*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2291:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2296:/ clear"); /*clear *//*_.RETURN___V41*/ meltfptr[40] = 0; /*^clear */ /*clear *//*_.PROGN___V42*/ meltfptr[41] = 0; @@ -2866,13 +2866,13 @@ lab_endgetargs:; /*_.IF___V40*/ meltfptr[39] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2296:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2301:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of ((melt_ptr_t) ( /*_.BSTARTUP__V20*/ meltfptr[19]), (melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:2296:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2301:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -2882,20 +2882,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2298:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2303:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("(DEFCITERATOR symb startformals...) cannot have variadic start formals"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2300:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2305:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2300:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2305:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2908,7 +2908,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2297:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2302:/ quasiblock"); /*_.PROGN___V45*/ meltfptr[44] = /*_.RETURN___V44*/ meltfptr[41];; @@ -2916,7 +2916,7 @@ lab_endgetargs:; /*_.IF___V43*/ meltfptr[40] = /*_.PROGN___V45*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2296:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2301:/ clear"); /*clear *//*_.RETURN___V44*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_.PROGN___V45*/ meltfptr[44] = 0; @@ -2932,12 +2932,12 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V46*/ meltfptr[41] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2302:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2307:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V47*/ meltfptr[44] = /*_.PAIR_TAIL__V46*/ meltfptr[41];; /*_.PAIR_HEAD__V48*/ meltfptr[47] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2303:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2308:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2953,13 +2953,13 @@ lab_endgetargs:; /*^compute */ /*_.BLOCVTUP__V22*/ meltfptr[21] = /*_.SETQ___V50*/ meltfptr[49] = /*_.LAMBDA_ARG_BINDINGS__V49*/ meltfptr[48];; - MELT_LOCATION ("warmelt-macro.melt:2304:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2309:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L8*/ meltfnum[7] = melt_is_instance_of ((melt_ptr_t) ( /*_.BLOCVTUP__V22*/ meltfptr[21]), (melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:2304:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2309:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -2969,18 +2969,18 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2306:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2311:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("(DEFCITERATOR symb startformals state localformals...) cannot have\ variadic local formals"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2308:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2313:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2308:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2313:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2993,7 +2993,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2305:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2310:/ quasiblock"); /*_.PROGN___V53*/ meltfptr[52] = /*_.RETURN___V52*/ meltfptr[51];; @@ -3001,7 +3001,7 @@ lab_endgetargs:; /*_.IF___V51*/ meltfptr[50] = /*_.PROGN___V53*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2304:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2309:/ clear"); /*clear *//*_.RETURN___V52*/ meltfptr[51] = 0; /*^clear */ /*clear *//*_.PROGN___V53*/ meltfptr[52] = 0; @@ -3017,10 +3017,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V54*/ meltfptr[51] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2309:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2314:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V55*/ meltfptr[52] = /*_.PAIR_TAIL__V54*/ meltfptr[51];; - MELT_LOCATION ("warmelt-macro.melt:2311:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2316:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V56*/ meltfptr[55] = @@ -3029,7 +3029,7 @@ lab_endgetargs:; /*_#__L9*/ meltfnum[8] = (( /*_.PAIR_HEAD__V56*/ meltfptr[55]) == (( /*!konst_6_DOC */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:2311:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2316:/ cond"); /*cond */ if ( /*_#__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -3040,10 +3040,10 @@ lab_endgetargs:; /*_.PAIR_TAIL__V58*/ meltfptr[57] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2313:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2318:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V59*/ meltfptr[58] = /*_.PAIR_TAIL__V58*/ meltfptr[57];; - MELT_LOCATION ("warmelt-macro.melt:2314:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2319:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -3072,16 +3072,16 @@ lab_endgetargs:; /*_.PAIR_HEAD__V60*/ meltfptr[59] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2316:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2321:/ compute"); /*_.DOCV__V23*/ meltfptr[22] = /*_.SETQ___V61*/ meltfptr[60] = /*_.PAIR_HEAD__V60*/ meltfptr[59];; /*_.PAIR_TAIL__V62*/ meltfptr[61] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2317:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2322:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V63*/ meltfptr[62] = /*_.PAIR_TAIL__V62*/ meltfptr[61];; - MELT_LOCATION ("warmelt-macro.melt:2312:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2317:/ quasiblock"); /*_.PROGN___V64*/ meltfptr[63] = /*_.SETQ___V63*/ meltfptr[62];; @@ -3089,7 +3089,7 @@ lab_endgetargs:; /*_.IF___V57*/ meltfptr[56] = /*_.PROGN___V64*/ meltfptr[63];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2311:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2316:/ clear"); /*clear *//*_.PAIR_TAIL__V58*/ meltfptr[57] = 0; /*^clear */ /*clear *//*_.SETQ___V59*/ meltfptr[58] = 0; @@ -3112,19 +3112,19 @@ lab_endgetargs:; /*_.IF___V57*/ meltfptr[56] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2319:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2324:/ quasiblock"); /*_.SEXPBEF__V66*/ meltfptr[58] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2320:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2325:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L10*/ meltfnum[9] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPBEF__V66*/ meltfptr[58]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:2320:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2325:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -3134,19 +3134,19 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2322:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2327:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("missing before expansion for (DEFCITERATOR symb startformals statesymb\ locformals expbefore expafter)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2323:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2328:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2323:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2328:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3159,7 +3159,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2321:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2326:/ quasiblock"); /*_.PROGN___V69*/ meltfptr[61] = /*_.RETURN___V68*/ meltfptr[60];; @@ -3167,7 +3167,7 @@ lab_endgetargs:; /*_.IF___V67*/ meltfptr[59] = /*_.PROGN___V69*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2320:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2325:/ clear"); /*clear *//*_.RETURN___V68*/ meltfptr[60] = 0; /*^clear */ /*clear *//*_.PROGN___V69*/ meltfptr[61] = 0; @@ -3180,7 +3180,7 @@ lab_endgetargs:; /*_.IF___V67*/ meltfptr[59] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2324:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2329:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3205,10 +3205,10 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V70*/ meltfptr[62] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2324:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2329:/ compute"); /*_.BEFLOC__V26*/ meltfptr[25] = /*_.SETQ___V71*/ meltfptr[63] = /*_.LOCA_LOCATION__V70*/ meltfptr[62];; - MELT_LOCATION ("warmelt-macro.melt:2325:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2330:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPBEF__V66*/ meltfptr[58]) /*=obj*/ ; @@ -3219,7 +3219,7 @@ lab_endgetargs:; /*_.LIST_FIRST__V73*/ meltfptr[61] = (melt_list_first ((melt_ptr_t) ( /*_.SEXP_CONTENTS__V72*/ meltfptr[60])));; - MELT_LOCATION ("warmelt-macro.melt:2325:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2330:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3244,7 +3244,7 @@ lab_endgetargs:; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V74*/ meltfptr[73];; /*_.LET___V65*/ meltfptr[57] = /*_.SETQ___V75*/ meltfptr[74];; - MELT_LOCATION ("warmelt-macro.melt:2319:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2324:/ clear"); /*clear *//*_.SEXPBEF__V66*/ meltfptr[58] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L10*/ meltfnum[9] = 0; @@ -3264,22 +3264,22 @@ lab_endgetargs:; /*clear *//*_.SETQ___V75*/ meltfptr[74] = 0; /*_.PAIR_TAIL__V76*/ meltfptr[58] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2327:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2332:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V77*/ meltfptr[59] = /*_.PAIR_TAIL__V76*/ meltfptr[58];; - MELT_LOCATION ("warmelt-macro.melt:2329:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2334:/ quasiblock"); /*_.SEXPAFT__V79*/ meltfptr[63] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2330:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2335:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L11*/ meltfnum[9] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPAFT__V79*/ meltfptr[63]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:2330:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2335:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -3289,19 +3289,19 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2332:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2337:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("missing after expansion for (DEFCITERATOR symb startformals statesymb\ locformals expbefore expafter)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2333:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2338:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2333:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2338:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3314,7 +3314,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2331:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2336:/ quasiblock"); /*_.PROGN___V82*/ meltfptr[73] = /*_.RETURN___V81*/ meltfptr[61];; @@ -3322,7 +3322,7 @@ lab_endgetargs:; /*_.IF___V80*/ meltfptr[60] = /*_.PROGN___V82*/ meltfptr[73];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2330:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2335:/ clear"); /*clear *//*_.RETURN___V81*/ meltfptr[61] = 0; /*^clear */ /*clear *//*_.PROGN___V82*/ meltfptr[73] = 0; @@ -3335,7 +3335,7 @@ lab_endgetargs:; /*_.IF___V80*/ meltfptr[60] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2334:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2339:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3360,10 +3360,10 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V83*/ meltfptr[74] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2334:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2339:/ compute"); /*_.AFTLOC__V27*/ meltfptr[26] = /*_.SETQ___V84*/ meltfptr[61] = /*_.LOCA_LOCATION__V83*/ meltfptr[74];; - MELT_LOCATION ("warmelt-macro.melt:2335:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2340:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPAFT__V79*/ meltfptr[63]) /*=obj*/ ; @@ -3374,7 +3374,7 @@ lab_endgetargs:; /*_.LIST_FIRST__V86*/ meltfptr[85] = (melt_list_first ((melt_ptr_t) ( /*_.SEXP_CONTENTS__V85*/ meltfptr[73])));; - MELT_LOCATION ("warmelt-macro.melt:2335:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2340:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3399,7 +3399,7 @@ lab_endgetargs:; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V87*/ meltfptr[86];; /*_.LET___V78*/ meltfptr[62] = /*_.SETQ___V88*/ meltfptr[87];; - MELT_LOCATION ("warmelt-macro.melt:2329:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2334:/ clear"); /*clear *//*_.SEXPAFT__V79*/ meltfptr[63] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L11*/ meltfnum[9] = 0; @@ -3417,7 +3417,7 @@ lab_endgetargs:; /*clear *//*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V87*/ meltfptr[86] = 0; /*^clear */ /*clear *//*_.SETQ___V88*/ meltfptr[87] = 0; - MELT_LOCATION ("warmelt-macro.melt:2338:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2343:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V89*/ meltfptr[63] = @@ -3426,7 +3426,7 @@ lab_endgetargs:; /*_#__L12*/ meltfnum[9] = (( /*_.PAIR_HEAD__V89*/ meltfptr[63]) == (( /*!konst_6_DOC */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:2338:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2343:/ cond"); /*cond */ if ( /*_#__L12*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -3437,10 +3437,10 @@ lab_endgetargs:; /*_.PAIR_TAIL__V91*/ meltfptr[74] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2340:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2345:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V92*/ meltfptr[61] = /*_.PAIR_TAIL__V91*/ meltfptr[74];; - MELT_LOCATION ("warmelt-macro.melt:2341:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2346:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -3469,16 +3469,16 @@ lab_endgetargs:; /*_.PAIR_HEAD__V93*/ meltfptr[73] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2343:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2348:/ compute"); /*_.DOCV__V23*/ meltfptr[22] = /*_.SETQ___V94*/ meltfptr[85] = /*_.PAIR_HEAD__V93*/ meltfptr[73];; /*_.PAIR_TAIL__V95*/ meltfptr[86] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2344:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2349:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V96*/ meltfptr[87] = /*_.PAIR_TAIL__V95*/ meltfptr[86];; - MELT_LOCATION ("warmelt-macro.melt:2339:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2344:/ quasiblock"); /*_.PROGN___V97*/ meltfptr[96] = /*_.SETQ___V96*/ meltfptr[87];; @@ -3486,7 +3486,7 @@ lab_endgetargs:; /*_.IF___V90*/ meltfptr[60] = /*_.PROGN___V97*/ meltfptr[96];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2338:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2343:/ clear"); /*clear *//*_.PAIR_TAIL__V91*/ meltfptr[74] = 0; /*^clear */ /*clear *//*_.SETQ___V92*/ meltfptr[61] = 0; @@ -3509,13 +3509,13 @@ lab_endgetargs:; /*_.IF___V90*/ meltfptr[60] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2346:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2351:/ quasiblock"); /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:2347:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2352:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]) /*=obj*/ ; @@ -3523,7 +3523,7 @@ lab_endgetargs:; /*_.NAMED_NAME__V99*/ meltfptr[61] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2346:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2351:/ quasiblock"); /*^rawallocobj */ @@ -3603,7 +3603,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.CITER__V100*/ meltfptr[73] = /*_.INST__V101*/ meltfptr[85];; - MELT_LOCATION ("warmelt-macro.melt:2354:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2359:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3646,7 +3646,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.CITBIND__V102*/ meltfptr[86] = /*_.INST__V103*/ meltfptr[87];; - MELT_LOCATION ("warmelt-macro.melt:2359:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2364:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3764,7 +3764,7 @@ lab_endgetargs:; ( /*_#I__L18*/ meltfnum[17])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2373:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2378:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3790,7 +3790,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2373:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2378:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -3805,7 +3805,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2373:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2378:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3819,7 +3819,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2373; + argtab[2].meltbp_long = 2378; /*^apply.arg */ argtab[3].meltbp_cstring = "srcit citer"; /*^apply.arg */ @@ -3839,7 +3839,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V109*/ meltfptr[108];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2373:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2378:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V109*/ meltfptr[108] = 0; @@ -3852,7 +3852,7 @@ lab_endgetargs:; /*_.IF___V108*/ meltfptr[107] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2373:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2378:/ quasiblock"); /*_.PROGN___V110*/ meltfptr[108] = /*_.IF___V108*/ meltfptr[107];; @@ -3860,7 +3860,7 @@ lab_endgetargs:; /*_.IFCPP___V107*/ meltfptr[106] = /*_.PROGN___V110*/ meltfptr[108];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2373:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2378:/ clear"); /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.IF___V108*/ meltfptr[107] = 0; @@ -3875,7 +3875,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2374:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2379:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.SUBSTMAP__V106*/ meltfptr[105]), (meltobject_ptr_t) ( /*_.STATSYMB__V21*/ @@ -3886,7 +3886,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2375:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2380:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3912,7 +3912,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2375:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2380:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -3927,7 +3927,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2375:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2380:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3941,7 +3941,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2375; + argtab[2].meltbp_long = 2380; /*^apply.arg */ argtab[3].meltbp_cstring = "bstartup citer"; /*^apply.arg */ @@ -3961,7 +3961,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V113*/ meltfptr[112];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2375:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2380:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V113*/ meltfptr[112] = 0; @@ -3974,7 +3974,7 @@ lab_endgetargs:; /*_.IF___V112*/ meltfptr[108] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2375:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2380:/ quasiblock"); /*_.PROGN___V114*/ meltfptr[112] = /*_.IF___V112*/ meltfptr[108];; @@ -3982,7 +3982,7 @@ lab_endgetargs:; /*_.IFCPP___V111*/ meltfptr[107] = /*_.PROGN___V114*/ meltfptr[112];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2375:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2380:/ clear"); /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.IF___V112*/ meltfptr[108] = 0; @@ -4014,7 +4014,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2379:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2384:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4027,7 +4027,7 @@ lab_endgetargs:; ( /*_.CURSBIND__V115*/ meltfptr[108]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[14])));; - MELT_LOCATION ("warmelt-macro.melt:2379:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2384:/ cond"); /*cond */ if ( /*_#IS_A__L24*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -4035,7 +4035,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2379:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2384:/ cond.else"); /*^block */ /*anyblock */ @@ -4049,7 +4049,7 @@ lab_endgetargs:; melt_assert_failed (("check start cursbind"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2379) ? (2379) : __LINE__, + (2384) ? (2384) : __LINE__, __FUNCTION__); ; } @@ -4065,7 +4065,7 @@ lab_endgetargs:; /*_.IFELSE___V117*/ meltfptr[116];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2379:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2384:/ clear"); /*clear *//*_#IS_A__L24*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.IFELSE___V117*/ meltfptr[116] = 0; @@ -4076,7 +4076,7 @@ lab_endgetargs:; /*_.IFCPP___V116*/ meltfptr[112] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2380:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2385:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4105,7 +4105,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2380:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2385:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.SUBSTMAP__V106*/ meltfptr[105]), (meltobject_ptr_t) ( /*_.BINDER__V118*/ @@ -4120,7 +4120,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:2376:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2381:/ clear"); /*clear *//*_.CURSBIND__V115*/ meltfptr[108] = 0; /*^clear */ /*clear *//*_#BSIX__L23*/ meltfnum[18] = 0; @@ -4132,7 +4132,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2381:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2386:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4158,7 +4158,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2381:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2386:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L25*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -4173,7 +4173,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2381:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2386:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4187,7 +4187,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2381; + argtab[2].meltbp_long = 2386; /*^apply.arg */ argtab[3].meltbp_cstring = "blocvtup citer"; /*^apply.arg */ @@ -4207,7 +4207,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V121*/ meltfptr[120];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2381:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2386:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L26*/ meltfnum[25] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V121*/ meltfptr[120] = 0; @@ -4220,7 +4220,7 @@ lab_endgetargs:; /*_.IF___V120*/ meltfptr[119] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2381:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2386:/ quasiblock"); /*_.PROGN___V122*/ meltfptr[120] = /*_.IF___V120*/ meltfptr[119];; @@ -4228,7 +4228,7 @@ lab_endgetargs:; /*_.IFCPP___V119*/ meltfptr[118] = /*_.PROGN___V122*/ meltfptr[120];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2381:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2386:/ clear"); /*clear *//*_#MELT_NEED_DBG__L25*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.IF___V120*/ meltfptr[119] = 0; @@ -4260,7 +4260,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2385:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2390:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4286,7 +4286,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2385:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2390:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L28*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -4301,7 +4301,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2385:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2390:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4315,7 +4315,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2385; + argtab[2].meltbp_long = 2390; /*^apply.arg */ argtab[3].meltbp_cstring = "curlbind local citer"; /*^apply.arg */ @@ -4336,7 +4336,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V126*/ meltfptr[125];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2385:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2390:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L29*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V126*/ meltfptr[125] = 0; @@ -4349,7 +4349,7 @@ lab_endgetargs:; /*_.IF___V125*/ meltfptr[124] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2385:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2390:/ quasiblock"); /*_.PROGN___V127*/ meltfptr[125] = /*_.IF___V125*/ meltfptr[124];; @@ -4358,7 +4358,7 @@ lab_endgetargs:; /*_.PROGN___V127*/ meltfptr[125];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2385:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2390:/ clear"); /*clear *//*_#MELT_NEED_DBG__L28*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.IF___V125*/ meltfptr[124] = 0; @@ -4373,7 +4373,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2386:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2391:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4386,7 +4386,7 @@ lab_endgetargs:; ( /*_.CURLBIND__V123*/ meltfptr[119]), (melt_ptr_t) (( /*!CLASS_ANY_BINDING */ meltfrout->tabval[15])));; - MELT_LOCATION ("warmelt-macro.melt:2386:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2391:/ cond"); /*cond */ if ( /*_#IS_A__L30*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -4394,7 +4394,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2386:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2391:/ cond.else"); /*^block */ /*anyblock */ @@ -4408,7 +4408,7 @@ lab_endgetargs:; melt_assert_failed (("check local curlbind"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2386) ? (2386) : __LINE__, + (2391) ? (2391) : __LINE__, __FUNCTION__); ; } @@ -4424,7 +4424,7 @@ lab_endgetargs:; /*_.IFELSE___V129*/ meltfptr[125];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2386:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2391:/ clear"); /*clear *//*_#IS_A__L30*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.IFELSE___V129*/ meltfptr[125] = 0; @@ -4435,7 +4435,7 @@ lab_endgetargs:; /*_.IFCPP___V128*/ meltfptr[124] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2387:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2392:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -4464,7 +4464,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2387:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2392:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.SUBSTMAP__V106*/ meltfptr[105]), (meltobject_ptr_t) ( /*_.BINDER__V130*/ @@ -4479,7 +4479,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:2382:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2387:/ clear"); /*clear *//*_.CURLBIND__V123*/ meltfptr[119] = 0; /*^clear */ /*clear *//*_#BLIX__L27*/ meltfnum[25] = 0; @@ -4491,7 +4491,7 @@ lab_endgetargs:; /*clear *//*_.BINDER__V130*/ meltfptr[125] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-macro.melt:2389:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2394:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4512,7 +4512,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2390:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2395:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4533,7 +4533,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2392:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2397:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4558,7 +4558,7 @@ lab_endgetargs:; "put-fields"); ; - MELT_LOCATION ("warmelt-macro.melt:2393:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2398:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4579,7 +4579,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2394:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2399:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4605,7 +4605,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2394:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2399:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L31*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -4620,7 +4620,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2394:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2399:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4634,7 +4634,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2394; + argtab[2].meltbp_long = 2399; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defciterator registering device srcit="; @@ -4661,7 +4661,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V136*/ meltfptr[135];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2394:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2399:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L32*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V136*/ meltfptr[135] = 0; @@ -4674,7 +4674,7 @@ lab_endgetargs:; /*_.IF___V135*/ meltfptr[134] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2394:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2399:/ quasiblock"); /*_.PROGN___V137*/ meltfptr[135] = /*_.IF___V135*/ meltfptr[134];; @@ -4682,7 +4682,7 @@ lab_endgetargs:; /*_.IFCPP___V134*/ meltfptr[133] = /*_.PROGN___V137*/ meltfptr[135];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2394:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2399:/ clear"); /*clear *//*_#MELT_NEED_DBG__L31*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.IF___V135*/ meltfptr[134] = 0; @@ -4695,7 +4695,7 @@ lab_endgetargs:; /*_.IFCPP___V134*/ meltfptr[133] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2395:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2400:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4718,7 +4718,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2396:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2401:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4744,7 +4744,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2396:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2401:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L33*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -4759,7 +4759,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2396:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2401:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4773,7 +4773,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2396; + argtab[2].meltbp_long = 2401; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defciterator parsed citerator citer"; @@ -4794,7 +4794,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V141*/ meltfptr[140];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2396:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2401:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L34*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V141*/ meltfptr[140] = 0; @@ -4807,7 +4807,7 @@ lab_endgetargs:; /*_.IF___V140*/ meltfptr[139] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2396:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2401:/ quasiblock"); /*_.PROGN___V142*/ meltfptr[140] = /*_.IF___V140*/ meltfptr[139];; @@ -4815,7 +4815,7 @@ lab_endgetargs:; /*_.IFCPP___V139*/ meltfptr[135] = /*_.PROGN___V142*/ meltfptr[140];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2396:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2401:/ clear"); /*clear *//*_#MELT_NEED_DBG__L33*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.IF___V140*/ meltfptr[139] = 0; @@ -4828,7 +4828,7 @@ lab_endgetargs:; /*_.IFCPP___V139*/ meltfptr[135] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2397:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2402:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4837,7 +4837,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SRCIT__V104*/ meltfptr[96];; { - MELT_LOCATION ("warmelt-macro.melt:2397:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2402:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4852,7 +4852,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V98*/ meltfptr[74] = /*_.RETURN___V143*/ meltfptr[139];; - MELT_LOCATION ("warmelt-macro.melt:2346:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2351:/ clear"); /*clear *//*_.NAMED_NAME__V99*/ meltfptr[61] = 0; /*^clear */ /*clear *//*_.CITER__V100*/ meltfptr[73] = 0; @@ -4896,7 +4896,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V143*/ meltfptr[139] = 0; /*_.LET___V14*/ meltfptr[12] = /*_.LET___V98*/ meltfptr[74];; - MELT_LOCATION ("warmelt-macro.melt:2266:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2271:/ clear"); /*clear *//*_.CONT__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; @@ -4992,7 +4992,7 @@ lab_endgetargs:; /*clear *//*_.IF___V90*/ meltfptr[60] = 0; /*^clear */ /*clear *//*_.LET___V98*/ meltfptr[74] = 0; - MELT_LOCATION ("warmelt-macro.melt:2262:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5001,7 +5001,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:2262:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5123,7 +5123,7 @@ meltrout_38_warmelt_macro_MEXPAND_DEFCMATCHER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2415:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -5164,7 +5164,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2416:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2421:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5190,7 +5190,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2416:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2421:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5205,7 +5205,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2416:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2421:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5218,7 +5218,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2416; + argtab[2].meltbp_long = 2421; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defcmatcher sexpr"; /*^apply.arg */ @@ -5237,7 +5237,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2416:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2421:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -5250,7 +5250,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2416:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2421:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -5258,7 +5258,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2416:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2421:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -5273,7 +5273,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2417:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2422:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5285,7 +5285,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:2417:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2422:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5293,7 +5293,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2417:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2422:/ cond.else"); /*^block */ /*anyblock */ @@ -5307,7 +5307,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2417) ? (2417) : __LINE__, __FUNCTION__); + (2422) ? (2422) : __LINE__, __FUNCTION__); ; } ; @@ -5321,7 +5321,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2417:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2422:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -5334,7 +5334,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2418:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2423:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5346,7 +5346,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:2418:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2423:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5354,7 +5354,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2418:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2423:/ cond.else"); /*^block */ /*anyblock */ @@ -5368,7 +5368,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2418) ? (2418) : __LINE__, __FUNCTION__); + (2423) ? (2423) : __LINE__, __FUNCTION__); ; } ; @@ -5382,7 +5382,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2418:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2423:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -5393,7 +5393,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2419:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2424:/ quasiblock"); /*^getslot */ @@ -5404,7 +5404,7 @@ lab_endgetargs:; /*_.CONT__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2420:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2425:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -5446,7 +5446,7 @@ lab_endgetargs:; /*_.LOCOPER__V31*/ meltfptr[30] = ( /*nil */ NULL);; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2438:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2443:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5472,7 +5472,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2438:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2443:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5487,7 +5487,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2438:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2443:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5500,7 +5500,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2438; + argtab[2].meltbp_long = 2443; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defcmatcher symb"; /*^apply.arg */ @@ -5520,7 +5520,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2438:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2443:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0; @@ -5533,7 +5533,7 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2438:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2443:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[33] = /*_.IF___V33*/ meltfptr[32];; @@ -5541,7 +5541,7 @@ lab_endgetargs:; /*_.IFCPP___V32*/ meltfptr[31] = /*_.PROGN___V35*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2438:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2443:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V33*/ meltfptr[32] = 0; @@ -5554,14 +5554,14 @@ lab_endgetargs:; /*_.IFCPP___V32*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2439:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2444:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L7*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:2439:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2444:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5571,18 +5571,18 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2441:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2446:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("symbol expected for (DEFCMATCHER <symb> <ins> <outs> <statesym> <test\ > <fill> <oper>)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2444:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2449:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2444:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2449:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5595,7 +5595,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2440:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2445:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[37] = /*_.RETURN___V37*/ meltfptr[33];; @@ -5603,7 +5603,7 @@ lab_endgetargs:; /*_.IF___V36*/ meltfptr[32] = /*_.PROGN___V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2439:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2444:/ clear"); /*clear *//*_.RETURN___V37*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.PROGN___V38*/ meltfptr[37] = 0; @@ -5619,15 +5619,15 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V39*/ meltfptr[33] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2445:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2450:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V40*/ meltfptr[37] = /*_.PAIR_TAIL__V39*/ meltfptr[33];; - MELT_LOCATION ("warmelt-macro.melt:2447:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2452:/ quasiblock"); /*_.PAIR_HEAD__V42*/ meltfptr[41] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2447:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2452:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5643,12 +5643,12 @@ lab_endgetargs:; /*_#NBMATINFORMALS__L8*/ meltfnum[1] = (melt_multiple_length ((melt_ptr_t) ( /*_.MATINFORMALS__V43*/ meltfptr[42])));; - MELT_LOCATION ("warmelt-macro.melt:2450:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2455:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L9*/ meltfnum[8] = (( /*_#NBMATINFORMALS__L8*/ meltfnum[1]) < (1));; - MELT_LOCATION ("warmelt-macro.melt:2450:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2455:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -5658,18 +5658,18 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2452:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2457:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("empty ins for (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill\ > <oper>)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2453:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2458:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2453:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2458:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5682,7 +5682,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2451:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2456:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[45] = /*_.RETURN___V45*/ meltfptr[44];; @@ -5690,7 +5690,7 @@ lab_endgetargs:; /*_.IF___V44*/ meltfptr[43] = /*_.PROGN___V46*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2450:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2455:/ clear"); /*clear *//*_.RETURN___V45*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_.PROGN___V46*/ meltfptr[45] = 0; @@ -5703,14 +5703,14 @@ lab_endgetargs:; /*_.IF___V44*/ meltfptr[43] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2454:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2459:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L10*/ meltfnum[9] = melt_is_instance_of ((melt_ptr_t) ( /*_.MATINFORMALS__V43*/ meltfptr[42]), (melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:2454:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2459:/ cond"); /*cond */ if ( /*_#IS_A__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -5720,20 +5720,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2456:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2461:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("(DEFCMATCHER <symb> <ins> ...) cannot have variadic input formals"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2457:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2462:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2457:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2462:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5746,7 +5746,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2455:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2460:/ quasiblock"); /*_.PROGN___V49*/ meltfptr[48] = /*_.RETURN___V48*/ meltfptr[45];; @@ -5754,7 +5754,7 @@ lab_endgetargs:; /*_.IF___V47*/ meltfptr[44] = /*_.PROGN___V49*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2454:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2459:/ clear"); /*clear *//*_.RETURN___V48*/ meltfptr[45] = 0; /*^clear */ /*clear *//*_.PROGN___V49*/ meltfptr[48] = 0; @@ -5767,18 +5767,18 @@ lab_endgetargs:; /*_.IF___V47*/ meltfptr[44] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2459:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2464:/ compute"); /*_.SFORMALS__V20*/ meltfptr[19] = /*_.SETQ___V50*/ meltfptr[45] = /*_.MATINFORMALS__V43*/ meltfptr[42];; /*_.MULTIPLE_NTH__V51*/ meltfptr[48] = (melt_multiple_nth ((melt_ptr_t) ( /*_.MATINFORMALS__V43*/ meltfptr[42]), (0)));; - MELT_LOCATION ("warmelt-macro.melt:2460:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2465:/ compute"); /*_.MATCHFORMAL__V21*/ meltfptr[20] = /*_.SETQ___V52*/ meltfptr[51] = /*_.MULTIPLE_NTH__V51*/ meltfptr[48];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2461:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2466:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5804,7 +5804,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2461:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2466:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -5819,7 +5819,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2461:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2466:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5833,7 +5833,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2461; + argtab[2].meltbp_long = 2466; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defcmatcher matchformal"; /*^apply.arg */ @@ -5853,7 +5853,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2461:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2466:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0; @@ -5866,7 +5866,7 @@ lab_endgetargs:; /*_.IF___V54*/ meltfptr[53] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2461:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2466:/ quasiblock"); /*_.PROGN___V56*/ meltfptr[54] = /*_.IF___V54*/ meltfptr[53];; @@ -5874,7 +5874,7 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[52] = /*_.PROGN___V56*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2461:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2466:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V54*/ meltfptr[53] = 0; @@ -5889,7 +5889,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2462:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2467:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5902,7 +5902,7 @@ lab_endgetargs:; ( /*_.MATCHFORMAL__V21*/ meltfptr[20]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:2462:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2467:/ cond"); /*cond */ if ( /*_#IS_A__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -5910,7 +5910,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2462:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2467:/ cond.else"); /*^block */ /*anyblock */ @@ -5924,7 +5924,7 @@ lab_endgetargs:; melt_assert_failed (("check matchformal"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2462) ? (2462) : __LINE__, __FUNCTION__); + (2467) ? (2467) : __LINE__, __FUNCTION__); ; } ; @@ -5938,7 +5938,7 @@ lab_endgetargs:; /*_.IFCPP___V57*/ meltfptr[53] = /*_.IFELSE___V58*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2462:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2467:/ clear"); /*clear *//*_#IS_A__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IFELSE___V58*/ meltfptr[54] = 0; @@ -5957,10 +5957,10 @@ lab_endgetargs:; (meltgc_new_multiple ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[7])), ( /*_#I__L14*/ meltfnum[10])));; - MELT_LOCATION ("warmelt-macro.melt:2463:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2468:/ compute"); /*_.INFORMALS__V22*/ meltfptr[21] = /*_.SETQ___V60*/ meltfptr[59] = /*_.MAKE_MULTIPLE__V59*/ meltfptr[54];; - MELT_LOCATION ("warmelt-macro.melt:2466:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2471:/ quasiblock"); /*^newclosure */ @@ -5985,7 +5985,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.INFORMALS__V22*/ meltfptr[21]); ; /*_.LAMBDA___V61*/ meltfptr[60] = /*_.LAMBDA___V62*/ meltfptr[61];; - MELT_LOCATION ("warmelt-macro.melt:2464:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2469:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6006,7 +6006,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2467:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2472:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6032,7 +6032,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2467:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2472:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -6047,7 +6047,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2467:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2472:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6061,7 +6061,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2467; + argtab[2].meltbp_long = 2472; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defcmatcher informals"; /*^apply.arg */ @@ -6081,7 +6081,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V66*/ meltfptr[65];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2467:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2472:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V66*/ meltfptr[65] = 0; @@ -6094,7 +6094,7 @@ lab_endgetargs:; /*_.IF___V65*/ meltfptr[64] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2467:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2472:/ quasiblock"); /*_.PROGN___V67*/ meltfptr[65] = /*_.IF___V65*/ meltfptr[64];; @@ -6102,7 +6102,7 @@ lab_endgetargs:; /*_.IFCPP___V64*/ meltfptr[63] = /*_.PROGN___V67*/ meltfptr[65];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2467:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2472:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V65*/ meltfptr[64] = 0; @@ -6118,7 +6118,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V41*/ meltfptr[40] = /*_.IFCPP___V64*/ meltfptr[63];; - MELT_LOCATION ("warmelt-macro.melt:2447:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2452:/ clear"); /*clear *//*_.PAIR_HEAD__V42*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_.MATINFORMALS__V43*/ meltfptr[42] = 0; @@ -6156,12 +6156,12 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V64*/ meltfptr[63] = 0; /*_.PAIR_TAIL__V68*/ meltfptr[64] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2470:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2475:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V69*/ meltfptr[65] = /*_.PAIR_TAIL__V68*/ meltfptr[64];; /*_.PAIR_HEAD__V70*/ meltfptr[41] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2471:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2476:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6179,7 +6179,7 @@ lab_endgetargs:; /*_.LAMBDA_ARG_BINDINGS__V71*/ meltfptr[42];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2472:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2477:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6205,7 +6205,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2472:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2477:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -6220,7 +6220,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2472:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2477:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6234,7 +6234,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2472; + argtab[2].meltbp_long = 2477; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defcmatcher outformals"; /*^apply.arg */ @@ -6254,7 +6254,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V75*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2472:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2477:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V75*/ meltfptr[48] = 0; @@ -6267,7 +6267,7 @@ lab_endgetargs:; /*_.IF___V74*/ meltfptr[45] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2472:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2477:/ quasiblock"); /*_.PROGN___V76*/ meltfptr[51] = /*_.IF___V74*/ meltfptr[45];; @@ -6275,7 +6275,7 @@ lab_endgetargs:; /*_.IFCPP___V73*/ meltfptr[44] = /*_.PROGN___V76*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2472:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2477:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V74*/ meltfptr[45] = 0; @@ -6288,7 +6288,7 @@ lab_endgetargs:; /*_.IFCPP___V73*/ meltfptr[44] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2473:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2478:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE__L19*/ meltfnum[1] = @@ -6297,7 +6297,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L20*/ meltfnum[8] = (!( /*_#IS_MULTIPLE__L19*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-macro.melt:2473:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2478:/ cond"); /*cond */ if ( /*_#NOT__L20*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -6307,18 +6307,18 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2475:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2480:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad outs for (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill\ > <oper>)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2476:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2481:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2476:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2481:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6331,7 +6331,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2474:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2479:/ quasiblock"); /*_.PROGN___V79*/ meltfptr[54] = /*_.RETURN___V78*/ meltfptr[53];; @@ -6339,7 +6339,7 @@ lab_endgetargs:; /*_.IF___V77*/ meltfptr[52] = /*_.PROGN___V79*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2473:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2478:/ clear"); /*clear *//*_.RETURN___V78*/ meltfptr[53] = 0; /*^clear */ /*clear *//*_.PROGN___V79*/ meltfptr[54] = 0; @@ -6352,13 +6352,13 @@ lab_endgetargs:; /*_.IF___V77*/ meltfptr[52] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2477:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2482:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L21*/ meltfnum[9] = melt_is_instance_of ((melt_ptr_t) ( /*_.OUTFORMALS__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:2477:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2482:/ cond"); /*cond */ if ( /*_#IS_A__L21*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -6368,20 +6368,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2479:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2484:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("out formals for (DEFCMATCHER <symb> <ins> <outs> ...) cannot be variadic"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2480:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2485:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2480:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2485:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6394,7 +6394,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2478:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2483:/ quasiblock"); /*_.PROGN___V82*/ meltfptr[62] = /*_.RETURN___V81*/ meltfptr[60];; @@ -6402,7 +6402,7 @@ lab_endgetargs:; /*_.IF___V80*/ meltfptr[59] = /*_.PROGN___V82*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2477:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2482:/ clear"); /*clear *//*_.RETURN___V81*/ meltfptr[60] = 0; /*^clear */ /*clear *//*_.PROGN___V82*/ meltfptr[62] = 0; @@ -6418,22 +6418,22 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V83*/ meltfptr[63] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2482:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2487:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V84*/ meltfptr[48] = /*_.PAIR_TAIL__V83*/ meltfptr[63];; /*_.PAIR_HEAD__V85*/ meltfptr[45] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2483:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2488:/ compute"); /*_.STATESYM__V24*/ meltfptr[23] = /*_.SETQ___V86*/ meltfptr[51] = /*_.PAIR_HEAD__V85*/ meltfptr[45];; - MELT_LOCATION ("warmelt-macro.melt:2484:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2489:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L22*/ meltfnum[10] = !melt_is_instance_of ((melt_ptr_t) ( /*_.STATESYM__V24*/ meltfptr[23]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:2484:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2489:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L22*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -6443,7 +6443,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2486:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2491:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6469,7 +6469,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2486:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2491:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L23*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -6484,7 +6484,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2486:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2491:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6498,7 +6498,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2486; + argtab[2].meltbp_long = 2491; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defcmatcher bad statesym"; @@ -6520,7 +6520,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V90*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2486:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2491:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L24*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V90*/ meltfptr[62] = 0; @@ -6533,7 +6533,7 @@ lab_endgetargs:; /*_.IF___V89*/ meltfptr[60] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2486:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2491:/ quasiblock"); /*_.PROGN___V91*/ meltfptr[62] = /*_.IF___V89*/ meltfptr[60];; @@ -6541,7 +6541,7 @@ lab_endgetargs:; /*_.IFCPP___V88*/ meltfptr[54] = /*_.PROGN___V91*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2486:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2491:/ clear"); /*clear *//*_#MELT_NEED_DBG__L23*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V89*/ meltfptr[60] = 0; @@ -6556,18 +6556,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2487:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2492:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad statesym for (DEFCMATCHER <symb> <ins> <outs> <statesym> <test\ > <fill> <oper>)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2488:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2493:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2488:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2493:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6580,7 +6580,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2485:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2490:/ quasiblock"); /*_.PROGN___V93*/ meltfptr[62] = /*_.RETURN___V92*/ meltfptr[60];; @@ -6588,7 +6588,7 @@ lab_endgetargs:; /*_.IF___V87*/ meltfptr[53] = /*_.PROGN___V93*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2484:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2489:/ clear"); /*clear *//*_.IFCPP___V88*/ meltfptr[54] = 0; /*^clear */ /*clear *//*_.RETURN___V92*/ meltfptr[60] = 0; @@ -6605,7 +6605,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2489:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2494:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6631,7 +6631,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2489:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2494:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L25*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -6646,7 +6646,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2489:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2494:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6660,7 +6660,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2489; + argtab[2].meltbp_long = 2494; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defcmatcher statesym"; /*^apply.arg */ @@ -6680,7 +6680,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V96*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2489:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2494:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L26*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V96*/ meltfptr[62] = 0; @@ -6693,7 +6693,7 @@ lab_endgetargs:; /*_.IF___V95*/ meltfptr[60] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2489:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2494:/ quasiblock"); /*_.PROGN___V97*/ meltfptr[62] = /*_.IF___V95*/ meltfptr[60];; @@ -6701,7 +6701,7 @@ lab_endgetargs:; /*_.IFCPP___V94*/ meltfptr[54] = /*_.PROGN___V97*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2489:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2494:/ clear"); /*clear *//*_#MELT_NEED_DBG__L25*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V95*/ meltfptr[60] = 0; @@ -6717,10 +6717,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V98*/ meltfptr[60] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2490:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2495:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V99*/ meltfptr[62] = /*_.PAIR_TAIL__V98*/ meltfptr[60];; - MELT_LOCATION ("warmelt-macro.melt:2492:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2497:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V100*/ meltfptr[99] = @@ -6729,7 +6729,7 @@ lab_endgetargs:; /*_#__L27*/ meltfnum[11] = (( /*_.PAIR_HEAD__V100*/ meltfptr[99]) == (( /*!konst_10_DOC */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-macro.melt:2492:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2497:/ cond"); /*cond */ if ( /*_#__L27*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -6740,10 +6740,10 @@ lab_endgetargs:; /*_.PAIR_TAIL__V102*/ meltfptr[101] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2494:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2499:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V103*/ meltfptr[102] = /*_.PAIR_TAIL__V102*/ meltfptr[101];; - MELT_LOCATION ("warmelt-macro.melt:2495:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2500:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -6772,16 +6772,16 @@ lab_endgetargs:; /*_.PAIR_HEAD__V104*/ meltfptr[103] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2496:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2501:/ compute"); /*_.DOCV__V28*/ meltfptr[27] = /*_.SETQ___V105*/ meltfptr[104] = /*_.PAIR_HEAD__V104*/ meltfptr[103];; /*_.PAIR_TAIL__V106*/ meltfptr[105] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2497:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2502:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V107*/ meltfptr[106] = /*_.PAIR_TAIL__V106*/ meltfptr[105];; - MELT_LOCATION ("warmelt-macro.melt:2493:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2498:/ quasiblock"); /*_.PROGN___V108*/ meltfptr[107] = /*_.SETQ___V107*/ meltfptr[106];; @@ -6789,7 +6789,7 @@ lab_endgetargs:; /*_.IF___V101*/ meltfptr[100] = /*_.PROGN___V108*/ meltfptr[107];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2492:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2497:/ clear"); /*clear *//*_.PAIR_TAIL__V102*/ meltfptr[101] = 0; /*^clear */ /*clear *//*_.SETQ___V103*/ meltfptr[102] = 0; @@ -6812,12 +6812,12 @@ lab_endgetargs:; /*_.IF___V101*/ meltfptr[100] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2500:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2505:/ quasiblock"); /*_.SEXPTEST__V110*/ meltfptr[102] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2501:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2506:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -6840,7 +6840,7 @@ lab_endgetargs:; /*_#IF___L28*/ meltfnum[15] = /*_#IS_NOT_A__L29*/ meltfnum[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2501:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2506:/ clear"); /*clear *//*_#IS_NOT_A__L29*/ meltfnum[28] = 0; } ; @@ -6851,7 +6851,7 @@ lab_endgetargs:; /*_#IF___L28*/ meltfnum[15] = 0;; } ; - MELT_LOCATION ("warmelt-macro.melt:2501:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2506:/ cond"); /*cond */ if ( /*_#IF___L28*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -6861,7 +6861,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2503:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2508:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6887,7 +6887,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2503:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2508:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L30*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -6902,7 +6902,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2503:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2508:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6916,7 +6916,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2503; + argtab[2].meltbp_long = 2508; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defcmatcher bad sexptest"; @@ -6938,7 +6938,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V114*/ meltfptr[106];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2503:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2508:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L31*/ meltfnum[30] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V114*/ meltfptr[106] = 0; @@ -6951,7 +6951,7 @@ lab_endgetargs:; /*_.IF___V113*/ meltfptr[105] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2503:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2508:/ quasiblock"); /*_.PROGN___V115*/ meltfptr[107] = /*_.IF___V113*/ meltfptr[105];; @@ -6960,7 +6960,7 @@ lab_endgetargs:; /*_.PROGN___V115*/ meltfptr[107];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2503:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2508:/ clear"); /*clear *//*_#MELT_NEED_DBG__L30*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.IF___V113*/ meltfptr[105] = 0; @@ -6975,18 +6975,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2504:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2509:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad test expansion in (DEFCMATCHER <symb> <ins> <outs> <statesym> \ <test> <fill> <oper>)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2505:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2510:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2505:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2510:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6999,7 +6999,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2502:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2507:/ quasiblock"); /*_.PROGN___V117*/ meltfptr[105] = @@ -7008,7 +7008,7 @@ lab_endgetargs:; /*_.IF___V111*/ meltfptr[103] = /*_.PROGN___V117*/ meltfptr[105];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2501:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2506:/ clear"); /*clear *//*_.IFCPP___V112*/ meltfptr[104] = 0; /*^clear */ /*clear *//*_.RETURN___V116*/ meltfptr[106] = 0; @@ -7023,7 +7023,7 @@ lab_endgetargs:; /*_.IF___V111*/ meltfptr[103] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2506:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2511:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7049,7 +7049,7 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V118*/ meltfptr[107] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2506:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2511:/ cond"); /*cond */ if ( /*_.LOCA_LOCATION__V118*/ meltfptr[107]) /*then */ { /*^cond.then */ @@ -7058,15 +7058,15 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2506:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2511:/ cond.else"); /*_.OR___V119*/ meltfptr[104] = /*_.LOC__V16*/ meltfptr[15];; } ; - MELT_LOCATION ("warmelt-macro.melt:2506:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2511:/ compute"); /*_.LOCTEST__V29*/ meltfptr[28] = /*_.SETQ___V120*/ meltfptr[106] = /*_.OR___V119*/ meltfptr[104];; - MELT_LOCATION ("warmelt-macro.melt:2507:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2512:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -7077,7 +7077,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2511:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2516:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -7089,7 +7089,7 @@ lab_endgetargs:; /*_.LIST_FIRST__V123*/ meltfptr[122] = (melt_list_first ((melt_ptr_t) ( /*_.SEXP_CONTENTS__V122*/ meltfptr[121])));; - MELT_LOCATION ("warmelt-macro.melt:2509:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2514:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7109,13 +7109,13 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2508:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2513:/ compute"); /*_.EXPTEST__V25*/ meltfptr[24] = /*_.SETQ___V125*/ meltfptr[124] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V124*/ meltfptr[123];; /*_.IF___V121*/ meltfptr[105] = /*_.SETQ___V125*/ meltfptr[124];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2507:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2512:/ clear"); /*clear *//*_.SEXP_CONTENTS__V122*/ meltfptr[121] = 0; /*^clear */ /*clear *//*_.LIST_FIRST__V123*/ meltfptr[122] = 0; @@ -7136,7 +7136,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V109*/ meltfptr[101] = /*_.IF___V121*/ meltfptr[105];; - MELT_LOCATION ("warmelt-macro.melt:2500:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2505:/ clear"); /*clear *//*_.SEXPTEST__V110*/ meltfptr[102] = 0; /*^clear */ /*clear *//*_#IF___L28*/ meltfnum[15] = 0; @@ -7152,7 +7152,7 @@ lab_endgetargs:; /*clear *//*_.IF___V121*/ meltfptr[105] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2513:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2518:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7178,7 +7178,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2513:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2518:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L32*/ meltfnum[30]) /*then */ { /*^cond.then */ @@ -7193,7 +7193,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2513:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2518:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7207,7 +7207,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2513; + argtab[2].meltbp_long = 2518; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defcmatcher exptest"; /*^apply.arg */ @@ -7227,7 +7227,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V128*/ meltfptr[123];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2513:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2518:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L33*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V128*/ meltfptr[123] = 0; @@ -7240,7 +7240,7 @@ lab_endgetargs:; /*_.IF___V127*/ meltfptr[122] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2513:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2518:/ quasiblock"); /*_.PROGN___V129*/ meltfptr[124] = /*_.IF___V127*/ meltfptr[122];; @@ -7248,7 +7248,7 @@ lab_endgetargs:; /*_.IFCPP___V126*/ meltfptr[121] = /*_.PROGN___V129*/ meltfptr[124];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2513:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2518:/ clear"); /*clear *//*_#MELT_NEED_DBG__L32*/ meltfnum[30] = 0; /*^clear */ /*clear *//*_.IF___V127*/ meltfptr[122] = 0; @@ -7264,15 +7264,15 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V130*/ meltfptr[102] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2515:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2520:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V131*/ meltfptr[103] = /*_.PAIR_TAIL__V130*/ meltfptr[102];; - MELT_LOCATION ("warmelt-macro.melt:2516:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2521:/ quasiblock"); /*_.SEXPFILL__V133*/ meltfptr[104] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2517:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2522:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -7295,7 +7295,7 @@ lab_endgetargs:; /*_#IF___L34*/ meltfnum[15] = /*_#IS_NOT_A__L35*/ meltfnum[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2517:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2522:/ clear"); /*clear *//*_#IS_NOT_A__L35*/ meltfnum[28] = 0; } ; @@ -7306,7 +7306,7 @@ lab_endgetargs:; /*_#IF___L34*/ meltfnum[15] = 0;; } ; - MELT_LOCATION ("warmelt-macro.melt:2517:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2522:/ cond"); /*cond */ if ( /*_#IF___L34*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -7316,18 +7316,18 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2519:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2524:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad fill expansion in (DEFCMATCHER <symb> <ins> <outs> <statesym> \ <test> <fill> <oper>)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2520:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2525:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2520:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2525:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7340,7 +7340,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2518:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2523:/ quasiblock"); /*_.PROGN___V136*/ meltfptr[123] = @@ -7349,7 +7349,7 @@ lab_endgetargs:; /*_.IF___V134*/ meltfptr[106] = /*_.PROGN___V136*/ meltfptr[123];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2517:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2522:/ clear"); /*clear *//*_.RETURN___V135*/ meltfptr[105] = 0; /*^clear */ /*clear *//*_.PROGN___V136*/ meltfptr[123] = 0; @@ -7362,7 +7362,7 @@ lab_endgetargs:; /*_.IF___V134*/ meltfptr[106] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2521:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2526:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7388,7 +7388,7 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V137*/ meltfptr[122] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2521:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2526:/ cond"); /*cond */ if ( /*_.LOCA_LOCATION__V137*/ meltfptr[122]) /*then */ { /*^cond.then */ @@ -7397,15 +7397,15 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2521:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2526:/ cond.else"); /*_.OR___V138*/ meltfptr[124] = /*_.LOC__V16*/ meltfptr[15];; } ; - MELT_LOCATION ("warmelt-macro.melt:2521:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2526:/ compute"); /*_.LOCFILL__V30*/ meltfptr[29] = /*_.SETQ___V139*/ meltfptr[105] = /*_.OR___V138*/ meltfptr[124];; - MELT_LOCATION ("warmelt-macro.melt:2522:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2527:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -7416,7 +7416,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2525:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2530:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -7428,7 +7428,7 @@ lab_endgetargs:; /*_.LIST_FIRST__V142*/ meltfptr[141] = (melt_list_first ((melt_ptr_t) ( /*_.SEXP_CONTENTS__V141*/ meltfptr[140])));; - MELT_LOCATION ("warmelt-macro.melt:2524:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2529:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7448,13 +7448,13 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2523:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2528:/ compute"); /*_.EXPFILL__V26*/ meltfptr[25] = /*_.SETQ___V144*/ meltfptr[143] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V143*/ meltfptr[142];; /*_.IF___V140*/ meltfptr[123] = /*_.SETQ___V144*/ meltfptr[143];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2522:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2527:/ clear"); /*clear *//*_.SEXP_CONTENTS__V141*/ meltfptr[140] = 0; /*^clear */ /*clear *//*_.LIST_FIRST__V142*/ meltfptr[141] = 0; @@ -7475,7 +7475,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V132*/ meltfptr[107] = /*_.IF___V140*/ meltfptr[123];; - MELT_LOCATION ("warmelt-macro.melt:2516:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2521:/ clear"); /*clear *//*_.SEXPFILL__V133*/ meltfptr[104] = 0; /*^clear */ /*clear *//*_#IF___L34*/ meltfnum[15] = 0; @@ -7491,7 +7491,7 @@ lab_endgetargs:; /*clear *//*_.IF___V140*/ meltfptr[123] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2527:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2532:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7517,7 +7517,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2527:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2532:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L36*/ meltfnum[30]) /*then */ { /*^cond.then */ @@ -7532,7 +7532,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2527:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2532:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7546,7 +7546,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2527; + argtab[2].meltbp_long = 2532; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defcmatcher expfill"; /*^apply.arg */ @@ -7566,7 +7566,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V147*/ meltfptr[142];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2527:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2532:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L37*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V147*/ meltfptr[142] = 0; @@ -7579,7 +7579,7 @@ lab_endgetargs:; /*_.IF___V146*/ meltfptr[141] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2527:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2532:/ quasiblock"); /*_.PROGN___V148*/ meltfptr[143] = /*_.IF___V146*/ meltfptr[141];; @@ -7587,7 +7587,7 @@ lab_endgetargs:; /*_.IFCPP___V145*/ meltfptr[140] = /*_.PROGN___V148*/ meltfptr[143];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2527:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2532:/ clear"); /*clear *//*_#MELT_NEED_DBG__L36*/ meltfnum[30] = 0; /*^clear */ /*clear *//*_.IF___V146*/ meltfptr[141] = 0; @@ -7603,15 +7603,15 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V149*/ meltfptr[104] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2529:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2534:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V150*/ meltfptr[106] = /*_.PAIR_TAIL__V149*/ meltfptr[104];; - MELT_LOCATION ("warmelt-macro.melt:2530:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2535:/ quasiblock"); /*_.SEXPOPER__V152*/ meltfptr[124] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2531:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2536:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -7634,7 +7634,7 @@ lab_endgetargs:; /*_#IF___L38*/ meltfnum[15] = /*_#IS_NOT_A__L39*/ meltfnum[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2531:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2536:/ clear"); /*clear *//*_#IS_NOT_A__L39*/ meltfnum[28] = 0; } ; @@ -7645,7 +7645,7 @@ lab_endgetargs:; /*_#IF___L38*/ meltfnum[15] = 0;; } ; - MELT_LOCATION ("warmelt-macro.melt:2531:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2536:/ cond"); /*cond */ if ( /*_#IF___L38*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -7655,18 +7655,18 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2533:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2538:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad oper expansion in (DEFCMATCHER <symb> <ins> <outs> <statesym> \ <test> <fill> <oper>)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2534:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2539:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2534:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2539:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7679,7 +7679,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2532:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2537:/ quasiblock"); /*_.PROGN___V155*/ meltfptr[142] = @@ -7688,7 +7688,7 @@ lab_endgetargs:; /*_.IF___V153*/ meltfptr[105] = /*_.PROGN___V155*/ meltfptr[142];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2531:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2536:/ clear"); /*clear *//*_.RETURN___V154*/ meltfptr[123] = 0; /*^clear */ /*clear *//*_.PROGN___V155*/ meltfptr[142] = 0; @@ -7701,7 +7701,7 @@ lab_endgetargs:; /*_.IF___V153*/ meltfptr[105] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2535:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2540:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7727,7 +7727,7 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V156*/ meltfptr[141] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2535:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2540:/ cond"); /*cond */ if ( /*_.LOCA_LOCATION__V156*/ meltfptr[141]) /*then */ { /*^cond.then */ @@ -7736,15 +7736,15 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2535:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2540:/ cond.else"); /*_.OR___V157*/ meltfptr[143] = /*_.LOC__V16*/ meltfptr[15];; } ; - MELT_LOCATION ("warmelt-macro.melt:2535:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2540:/ compute"); /*_.LOCOPER__V31*/ meltfptr[30] = /*_.SETQ___V158*/ meltfptr[123] = /*_.OR___V157*/ meltfptr[143];; - MELT_LOCATION ("warmelt-macro.melt:2537:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2542:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -7755,7 +7755,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2538:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2543:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -7767,7 +7767,7 @@ lab_endgetargs:; /*_.LIST_FIRST__V161*/ meltfptr[160] = (melt_list_first ((melt_ptr_t) ( /*_.SEXP_CONTENTS__V160*/ meltfptr[159])));; - MELT_LOCATION ("warmelt-macro.melt:2538:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2543:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7791,7 +7791,7 @@ lab_endgetargs:; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V162*/ meltfptr[161];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2537:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2542:/ clear"); /*clear *//*_.SEXP_CONTENTS__V160*/ meltfptr[159] = 0; /*^clear */ /*clear *//*_.LIST_FIRST__V161*/ meltfptr[160] = 0; @@ -7807,12 +7807,12 @@ lab_endgetargs:; /*_.IF___V159*/ meltfptr[142] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2536:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2541:/ compute"); /*_.EXPOPER__V27*/ meltfptr[26] = /*_.SETQ___V163*/ meltfptr[159] = /*_.IF___V159*/ meltfptr[142];; /*_.LET___V151*/ meltfptr[122] = /*_.SETQ___V163*/ meltfptr[159];; - MELT_LOCATION ("warmelt-macro.melt:2530:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2535:/ clear"); /*clear *//*_.SEXPOPER__V152*/ meltfptr[124] = 0; /*^clear */ /*clear *//*_#IF___L38*/ meltfnum[15] = 0; @@ -7830,7 +7830,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V163*/ meltfptr[159] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2540:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2545:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7856,7 +7856,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2540:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2545:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L40*/ meltfnum[30]) /*then */ { /*^cond.then */ @@ -7871,7 +7871,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2540:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2545:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7885,7 +7885,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2540; + argtab[2].meltbp_long = 2545; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defcmatcher expfill"; /*^apply.arg */ @@ -7905,7 +7905,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V166*/ meltfptr[124];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2540:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2545:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L41*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V166*/ meltfptr[124] = 0; @@ -7918,7 +7918,7 @@ lab_endgetargs:; /*_.IF___V165*/ meltfptr[161] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2540:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2545:/ quasiblock"); /*_.PROGN___V167*/ meltfptr[105] = /*_.IF___V165*/ meltfptr[161];; @@ -7926,7 +7926,7 @@ lab_endgetargs:; /*_.IFCPP___V164*/ meltfptr[160] = /*_.PROGN___V167*/ meltfptr[105];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2540:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2545:/ clear"); /*clear *//*_#MELT_NEED_DBG__L40*/ meltfnum[30] = 0; /*^clear */ /*clear *//*_.IF___V165*/ meltfptr[161] = 0; @@ -7942,10 +7942,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V168*/ meltfptr[141] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2542:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2547:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V169*/ meltfptr[143] = /*_.PAIR_TAIL__V168*/ meltfptr[141];; - MELT_LOCATION ("warmelt-macro.melt:2543:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2548:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -7958,7 +7958,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2544:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2549:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("extra in (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill>\ <oper>)"), (melt_ptr_t) 0); } @@ -7970,7 +7970,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2545:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2550:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7983,7 +7983,7 @@ lab_endgetargs:; ( /*_.MATCHFORMAL__V21*/ meltfptr[20]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:2545:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2550:/ cond"); /*cond */ if ( /*_#IS_A__L42*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -7991,7 +7991,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2545:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2550:/ cond.else"); /*^block */ /*anyblock */ @@ -8005,7 +8005,7 @@ lab_endgetargs:; melt_assert_failed (("check matchformal again"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2545) ? (2545) : __LINE__, __FUNCTION__); + (2550) ? (2550) : __LINE__, __FUNCTION__); ; } ; @@ -8019,7 +8019,7 @@ lab_endgetargs:; /*_.IFCPP___V170*/ meltfptr[123] = /*_.IFELSE___V171*/ meltfptr[142];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2545:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2550:/ clear"); /*clear *//*_#IS_A__L42*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IFELSE___V171*/ meltfptr[142] = 0; @@ -8030,13 +8030,13 @@ lab_endgetargs:; /*_.IFCPP___V170*/ meltfptr[123] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2547:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2552:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:2548:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2553:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:2549:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2554:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]) /*=obj*/ ; @@ -8044,7 +8044,7 @@ lab_endgetargs:; /*_.NAMED_NAME__V173*/ meltfptr[124] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2548:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2553:/ quasiblock"); /*^rawallocobj */ @@ -8144,7 +8144,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.CMATCH__V174*/ meltfptr[161] = /*_.INST__V175*/ meltfptr[105];; - MELT_LOCATION ("warmelt-macro.melt:2558:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2563:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -8245,7 +8245,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.SDEFCMATCH__V176*/ meltfptr[142] = /*_.INST__V177*/ meltfptr[176];; - MELT_LOCATION ("warmelt-macro.melt:2567:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2572:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -8313,7 +8313,7 @@ lab_endgetargs:; ( /*_#I__L47*/ meltfnum[46])));; { - MELT_LOCATION ("warmelt-macro.melt:2577:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2582:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.SUBSTMAP__V180*/ meltfptr[179]), (meltobject_ptr_t) ( /*_.STATESYM__V24*/ @@ -8322,7 +8322,7 @@ lab_endgetargs:; meltfptr[23])); } ; - MELT_LOCATION ("warmelt-macro.melt:2578:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2583:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8349,7 +8349,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2578:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2583:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.SUBSTMAP__V180*/ meltfptr[179]), (meltobject_ptr_t) ( /*_.BINDER__V181*/ @@ -8377,7 +8377,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2582:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2587:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8390,7 +8390,7 @@ lab_endgetargs:; ( /*_.CURIBIND__V182*/ meltfptr[181]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:2582:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2587:/ cond"); /*cond */ if ( /*_#IS_A__L49*/ meltfnum[48]) /*then */ { /*^cond.then */ @@ -8398,7 +8398,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2582:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2587:/ cond.else"); /*^block */ /*anyblock */ @@ -8412,7 +8412,7 @@ lab_endgetargs:; melt_assert_failed (("check input curibind"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2582) ? (2582) : __LINE__, + (2587) ? (2587) : __LINE__, __FUNCTION__); ; } @@ -8428,7 +8428,7 @@ lab_endgetargs:; /*_.IFELSE___V184*/ meltfptr[183];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2582:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2587:/ clear"); /*clear *//*_#IS_A__L49*/ meltfnum[48] = 0; /*^clear */ /*clear *//*_.IFELSE___V184*/ meltfptr[183] = 0; @@ -8439,7 +8439,7 @@ lab_endgetargs:; /*_.IFCPP___V183*/ meltfptr[182] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2583:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2588:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8468,7 +8468,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2583:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2588:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.SUBSTMAP__V180*/ meltfptr[179]), (meltobject_ptr_t) ( /*_.BINDER__V185*/ @@ -8483,7 +8483,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:2579:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2584:/ clear"); /*clear *//*_.CURIBIND__V182*/ meltfptr[181] = 0; /*^clear */ /*clear *//*_#IBIX__L48*/ meltfnum[47] = 0; @@ -8513,7 +8513,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2587:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2592:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8526,7 +8526,7 @@ lab_endgetargs:; ( /*_.CUROBIND__V186*/ meltfptr[185]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:2587:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2592:/ cond"); /*cond */ if ( /*_#IS_A__L51*/ meltfnum[50]) /*then */ { /*^cond.then */ @@ -8534,7 +8534,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2587:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2592:/ cond.else"); /*^block */ /*anyblock */ @@ -8548,7 +8548,7 @@ lab_endgetargs:; melt_assert_failed (("check output curbind"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2587) ? (2587) : __LINE__, + (2592) ? (2592) : __LINE__, __FUNCTION__); ; } @@ -8564,7 +8564,7 @@ lab_endgetargs:; /*_.IFELSE___V188*/ meltfptr[187];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2587:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2592:/ clear"); /*clear *//*_#IS_A__L51*/ meltfnum[50] = 0; /*^clear */ /*clear *//*_.IFELSE___V188*/ meltfptr[187] = 0; @@ -8575,7 +8575,7 @@ lab_endgetargs:; /*_.IFCPP___V187*/ meltfptr[186] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2588:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2593:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8604,7 +8604,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2588:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2593:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.SUBSTMAP__V180*/ meltfptr[179]), (meltobject_ptr_t) ( /*_.BINDER__V189*/ @@ -8619,7 +8619,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:2584:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2589:/ clear"); /*clear *//*_.CUROBIND__V186*/ meltfptr[185] = 0; /*^clear */ /*clear *//*_#OBIX__L50*/ meltfnum[48] = 0; @@ -8629,7 +8629,7 @@ lab_endgetargs:; /*clear *//*_.BINDER__V189*/ meltfptr[187] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-macro.melt:2590:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2595:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8650,7 +8650,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2591:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2596:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8671,7 +8671,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2592:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2597:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8694,7 +8694,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2593:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2598:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8720,7 +8720,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2593:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2598:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L52*/ meltfnum[50]) /*then */ { /*^cond.then */ @@ -8735,7 +8735,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2593:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2598:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8749,7 +8749,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2593; + argtab[2].meltbp_long = 2598; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defcmatcher sdefcmatch"; /*^apply.arg */ @@ -8769,7 +8769,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V195*/ meltfptr[194];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2593:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2598:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L53*/ meltfnum[52] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V195*/ meltfptr[194] = 0; @@ -8782,7 +8782,7 @@ lab_endgetargs:; /*_.IF___V194*/ meltfptr[193] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2593:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2598:/ quasiblock"); /*_.PROGN___V196*/ meltfptr[194] = /*_.IF___V194*/ meltfptr[193];; @@ -8790,7 +8790,7 @@ lab_endgetargs:; /*_.IFCPP___V193*/ meltfptr[192] = /*_.PROGN___V196*/ meltfptr[194];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2593:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2598:/ clear"); /*clear *//*_#MELT_NEED_DBG__L52*/ meltfnum[50] = 0; /*^clear */ /*clear *//*_.IF___V194*/ meltfptr[193] = 0; @@ -8803,7 +8803,7 @@ lab_endgetargs:; /*_.IFCPP___V193*/ meltfptr[192] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2594:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2599:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8824,7 +8824,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2595:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2600:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8850,7 +8850,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2595:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2600:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L54*/ meltfnum[52]) /*then */ { /*^cond.then */ @@ -8865,7 +8865,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2595:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2600:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8879,7 +8879,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2595; + argtab[2].meltbp_long = 2600; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defcmatcher registering device sdefcmatch="; @@ -8906,7 +8906,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V200*/ meltfptr[199];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2595:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2600:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L55*/ meltfnum[50] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V200*/ meltfptr[199] = 0; @@ -8919,7 +8919,7 @@ lab_endgetargs:; /*_.IF___V199*/ meltfptr[198] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2595:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2600:/ quasiblock"); /*_.PROGN___V201*/ meltfptr[199] = /*_.IF___V199*/ meltfptr[198];; @@ -8927,7 +8927,7 @@ lab_endgetargs:; /*_.IFCPP___V198*/ meltfptr[194] = /*_.PROGN___V201*/ meltfptr[199];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2595:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2600:/ clear"); /*clear *//*_#MELT_NEED_DBG__L54*/ meltfnum[52] = 0; /*^clear */ /*clear *//*_.IF___V199*/ meltfptr[198] = 0; @@ -8940,7 +8940,7 @@ lab_endgetargs:; /*_.IFCPP___V198*/ meltfptr[194] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2596:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2601:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8962,7 +8962,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2597:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2602:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -8971,7 +8971,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDEFCMATCH__V176*/ meltfptr[142];; { - MELT_LOCATION ("warmelt-macro.melt:2597:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2602:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8986,7 +8986,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V172*/ meltfptr[159] = /*_.RETURN___V203*/ meltfptr[199];; - MELT_LOCATION ("warmelt-macro.melt:2547:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2552:/ clear"); /*clear *//*_.NAMED_NAME__V173*/ meltfptr[124] = 0; /*^clear */ /*clear *//*_.CMATCH__V174*/ meltfptr[161] = 0; @@ -9026,7 +9026,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V203*/ meltfptr[199] = 0; /*_.LET___V14*/ meltfptr[12] = /*_.LET___V172*/ meltfptr[159];; - MELT_LOCATION ("warmelt-macro.melt:2419:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2424:/ clear"); /*clear *//*_.CONT__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; @@ -9146,7 +9146,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V170*/ meltfptr[123] = 0; /*^clear */ /*clear *//*_.LET___V172*/ meltfptr[159] = 0; - MELT_LOCATION ("warmelt-macro.melt:2415:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -9155,7 +9155,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:2415:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9274,7 +9274,7 @@ meltrout_39_warmelt_macro_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2466:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2471:/ getarg"); /*_.COMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -9295,7 +9295,7 @@ lab_endgetargs:; ; /*_#I__L2*/ meltfnum[1] = (( /*_#IX__L1*/ meltfnum[0]) > (0));; - MELT_LOCATION ("warmelt-macro.melt:2466:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2471:/ cond"); /*cond */ if ( /*_#I__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9307,7 +9307,7 @@ lab_endgetargs:; (( /*_#IX__L1*/ meltfnum[0]) - (1));; { - MELT_LOCATION ("warmelt-macro.melt:2466:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2471:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) (( /*~INFORMALS */ meltfclos-> tabval[0])), @@ -9427,7 +9427,7 @@ meltrout_40_warmelt_macro_MEXPAND_DEFUNMATCHER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2611:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -9468,7 +9468,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2612:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2617:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9494,7 +9494,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2612:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2617:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9509,7 +9509,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2612:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2617:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9522,7 +9522,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2612; + argtab[2].meltbp_long = 2617; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defunmatcher sexpr"; /*^apply.arg */ @@ -9541,7 +9541,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2612:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2617:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -9554,7 +9554,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2612:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2617:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -9562,7 +9562,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2612:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2617:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -9577,7 +9577,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2613:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2618:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9589,7 +9589,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:2613:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2618:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9597,7 +9597,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2613:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2618:/ cond.else"); /*^block */ /*anyblock */ @@ -9611,7 +9611,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2613) ? (2613) : __LINE__, __FUNCTION__); + (2618) ? (2618) : __LINE__, __FUNCTION__); ; } ; @@ -9625,7 +9625,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2613:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2618:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -9638,7 +9638,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2614:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2619:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9650,7 +9650,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:2614:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2619:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9658,7 +9658,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2614:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2619:/ cond.else"); /*^block */ /*anyblock */ @@ -9672,7 +9672,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2614) ? (2614) : __LINE__, __FUNCTION__); + (2619) ? (2619) : __LINE__, __FUNCTION__); ; } ; @@ -9686,7 +9686,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2614:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2619:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -9697,7 +9697,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2615:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2620:/ quasiblock"); /*^getslot */ @@ -9708,7 +9708,7 @@ lab_endgetargs:; /*_.CONT__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2616:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2621:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -9742,7 +9742,7 @@ lab_endgetargs:; /*_.DOCV__V27*/ meltfptr[26] = ( /*nil */ NULL);; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2630:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2635:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9768,7 +9768,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2630:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2635:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9783,7 +9783,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2630:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2635:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9796,7 +9796,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2630; + argtab[2].meltbp_long = 2635; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defunmatcher symb"; /*^apply.arg */ @@ -9816,7 +9816,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2630:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2635:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; @@ -9829,7 +9829,7 @@ lab_endgetargs:; /*_.IF___V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2630:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2635:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[28];; @@ -9837,7 +9837,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2630:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2635:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V29*/ meltfptr[28] = 0; @@ -9850,14 +9850,14 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2631:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2636:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L7*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:2631:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2636:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9867,19 +9867,19 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2633:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2638:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("symbol expected for (DEFUNMATCHER <symb> <ins> <outs> [:doc docum]\ <matchfun> <applyfun> [<data>])"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2636:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2641:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2636:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2641:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9892,7 +9892,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2632:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2637:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[33] = /*_.RETURN___V33*/ meltfptr[29];; @@ -9900,7 +9900,7 @@ lab_endgetargs:; /*_.IF___V32*/ meltfptr[28] = /*_.PROGN___V34*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2631:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2636:/ clear"); /*clear *//*_.RETURN___V33*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.PROGN___V34*/ meltfptr[33] = 0; @@ -9916,15 +9916,15 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V35*/ meltfptr[29] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2637:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2642:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V36*/ meltfptr[33] = /*_.PAIR_TAIL__V35*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:2639:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2644:/ quasiblock"); /*_.PAIR_HEAD__V38*/ meltfptr[37] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2639:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2644:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9940,12 +9940,12 @@ lab_endgetargs:; /*_#NBMATINFORMALS__L8*/ meltfnum[1] = (melt_multiple_length ((melt_ptr_t) ( /*_.MATINFORMALS__V39*/ meltfptr[38])));; - MELT_LOCATION ("warmelt-macro.melt:2642:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2647:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L9*/ meltfnum[8] = (( /*_#NBMATINFORMALS__L8*/ meltfnum[1]) < (1));; - MELT_LOCATION ("warmelt-macro.melt:2642:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2647:/ cond"); /*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -9955,18 +9955,18 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2644:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2649:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("empty ins for (DEFUNMATCHER <symb> <ins> <outs> [:doc docum] <matchfun\ > <applyfun> [<data>])"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2645:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2650:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2645:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2650:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9979,7 +9979,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2643:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2648:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[41] = /*_.RETURN___V41*/ meltfptr[40];; @@ -9987,7 +9987,7 @@ lab_endgetargs:; /*_.IF___V40*/ meltfptr[39] = /*_.PROGN___V42*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2642:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2647:/ clear"); /*clear *//*_.RETURN___V41*/ meltfptr[40] = 0; /*^clear */ /*clear *//*_.PROGN___V42*/ meltfptr[41] = 0; @@ -10000,14 +10000,14 @@ lab_endgetargs:; /*_.IF___V40*/ meltfptr[39] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2646:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2651:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L10*/ meltfnum[9] = melt_is_instance_of ((melt_ptr_t) ( /*_.MATINFORMALS__V39*/ meltfptr[38]), (melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:2646:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2651:/ cond"); /*cond */ if ( /*_#IS_A__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -10015,7 +10015,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2649:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2654:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10041,19 +10041,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2648:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2653:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("(DEFUNMATCHER <symb> <ins> ...) inputs cannot be variadic with last\ :rest formal"), (melt_ptr_t) ( /*_.NAMED_NAME__V44*/ meltfptr[41])); } ; - MELT_LOCATION ("warmelt-macro.melt:2650:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2655:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2650:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2655:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10066,7 +10066,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2647:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2652:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[45] = /*_.RETURN___V45*/ meltfptr[44];; @@ -10074,7 +10074,7 @@ lab_endgetargs:; /*_.IF___V43*/ meltfptr[40] = /*_.PROGN___V46*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2646:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2651:/ clear"); /*clear *//*_.NAMED_NAME__V44*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_.RETURN___V45*/ meltfptr[44] = 0; @@ -10089,18 +10089,18 @@ lab_endgetargs:; /*_.IF___V43*/ meltfptr[40] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2652:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2657:/ compute"); /*_.SFORMALS__V20*/ meltfptr[19] = /*_.SETQ___V47*/ meltfptr[41] = /*_.MATINFORMALS__V39*/ meltfptr[38];; /*_.MULTIPLE_NTH__V48*/ meltfptr[44] = (melt_multiple_nth ((melt_ptr_t) ( /*_.MATINFORMALS__V39*/ meltfptr[38]), (0)));; - MELT_LOCATION ("warmelt-macro.melt:2653:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2658:/ compute"); /*_.MATCHFORMAL__V21*/ meltfptr[20] = /*_.SETQ___V49*/ meltfptr[45] = /*_.MULTIPLE_NTH__V48*/ meltfptr[44];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2654:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2659:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10126,7 +10126,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2654:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2659:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -10141,7 +10141,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2654:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2659:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10155,7 +10155,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2654; + argtab[2].meltbp_long = 2659; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defunmatcher matchformal"; /*^apply.arg */ @@ -10175,7 +10175,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2654:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2659:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = 0; @@ -10188,7 +10188,7 @@ lab_endgetargs:; /*_.IF___V51*/ meltfptr[50] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2654:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2659:/ quasiblock"); /*_.PROGN___V53*/ meltfptr[51] = /*_.IF___V51*/ meltfptr[50];; @@ -10196,7 +10196,7 @@ lab_endgetargs:; /*_.IFCPP___V50*/ meltfptr[49] = /*_.PROGN___V53*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2654:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2659:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V51*/ meltfptr[50] = 0; @@ -10217,10 +10217,10 @@ lab_endgetargs:; (meltgc_new_multiple ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[7])), ( /*_#I__L13*/ meltfnum[11])));; - MELT_LOCATION ("warmelt-macro.melt:2655:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2660:/ compute"); /*_.INFORMALS__V22*/ meltfptr[21] = /*_.SETQ___V55*/ meltfptr[51] = /*_.MAKE_MULTIPLE__V54*/ meltfptr[50];; - MELT_LOCATION ("warmelt-macro.melt:2658:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2663:/ quasiblock"); /*^newclosure */ @@ -10245,7 +10245,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.INFORMALS__V22*/ meltfptr[21]); ; /*_.LAMBDA___V56*/ meltfptr[55] = /*_.LAMBDA___V57*/ meltfptr[56];; - MELT_LOCATION ("warmelt-macro.melt:2656:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2661:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10266,7 +10266,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2659:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2664:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10292,7 +10292,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2659:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2664:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -10307,7 +10307,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2659:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2664:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10321,7 +10321,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2659; + argtab[2].meltbp_long = 2664; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defunmatcher informals"; /*^apply.arg */ @@ -10341,7 +10341,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2659:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2664:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 0; @@ -10354,7 +10354,7 @@ lab_endgetargs:; /*_.IF___V60*/ meltfptr[59] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2659:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2664:/ quasiblock"); /*_.PROGN___V62*/ meltfptr[60] = /*_.IF___V60*/ meltfptr[59];; @@ -10362,7 +10362,7 @@ lab_endgetargs:; /*_.IFCPP___V59*/ meltfptr[58] = /*_.PROGN___V62*/ meltfptr[60];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2659:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2664:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V60*/ meltfptr[59] = 0; @@ -10378,7 +10378,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V37*/ meltfptr[36] = /*_.IFCPP___V59*/ meltfptr[58];; - MELT_LOCATION ("warmelt-macro.melt:2639:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2644:/ clear"); /*clear *//*_.PAIR_HEAD__V38*/ meltfptr[37] = 0; /*^clear */ /*clear *//*_.MATINFORMALS__V39*/ meltfptr[38] = 0; @@ -10414,12 +10414,12 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V59*/ meltfptr[58] = 0; /*_.PAIR_TAIL__V63*/ meltfptr[59] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2662:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2667:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V64*/ meltfptr[60] = /*_.PAIR_TAIL__V63*/ meltfptr[59];; /*_.PAIR_HEAD__V65*/ meltfptr[37] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2663:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2668:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10435,7 +10435,7 @@ lab_endgetargs:; /*^compute */ /*_.OUTFORMALS__V23*/ meltfptr[22] = /*_.SETQ___V67*/ meltfptr[39] = /*_.LAMBDA_ARG_BINDINGS__V66*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:2664:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2669:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE__L16*/ meltfnum[14] = @@ -10444,7 +10444,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L17*/ meltfnum[10] = (!( /*_#IS_MULTIPLE__L16*/ meltfnum[14]));; - MELT_LOCATION ("warmelt-macro.melt:2664:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2669:/ cond"); /*cond */ if ( /*_#NOT__L17*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -10454,18 +10454,18 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2666:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2671:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad outs for (DEFUNMATCHER <symb> <ins> <outs>[:doc docum] <matchfun\ > <applyfun> [<data>])"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2667:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2672:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2667:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2672:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10478,7 +10478,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2665:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2670:/ quasiblock"); /*_.PROGN___V70*/ meltfptr[44] = /*_.RETURN___V69*/ meltfptr[41];; @@ -10486,7 +10486,7 @@ lab_endgetargs:; /*_.IF___V68*/ meltfptr[40] = /*_.PROGN___V70*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2664:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2669:/ clear"); /*clear *//*_.RETURN___V69*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_.PROGN___V70*/ meltfptr[44] = 0; @@ -10499,13 +10499,13 @@ lab_endgetargs:; /*_.IF___V68*/ meltfptr[40] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2668:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2673:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L18*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.OUTFORMALS__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:2668:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2673:/ cond"); /*cond */ if ( /*_#IS_A__L18*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -10513,7 +10513,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2671:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2676:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -10539,19 +10539,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2670:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2675:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("(DEFUNMATCHER <symb> <ins> <outs> ...) outputs cannot be variadic\ with last :rest formal"), (melt_ptr_t) ( /*_.NAMED_NAME__V72*/ meltfptr[49])); } ; - MELT_LOCATION ("warmelt-macro.melt:2672:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2677:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2672:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2677:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10564,7 +10564,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2669:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2674:/ quasiblock"); /*_.PROGN___V74*/ meltfptr[51] = /*_.RETURN___V73*/ meltfptr[50];; @@ -10572,7 +10572,7 @@ lab_endgetargs:; /*_.IF___V71*/ meltfptr[45] = /*_.PROGN___V74*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2668:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2673:/ clear"); /*clear *//*_.NAMED_NAME__V72*/ meltfptr[49] = 0; /*^clear */ /*clear *//*_.RETURN___V73*/ meltfptr[50] = 0; @@ -10590,10 +10590,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V75*/ meltfptr[55] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2674:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2679:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V76*/ meltfptr[57] = /*_.PAIR_TAIL__V75*/ meltfptr[55];; - MELT_LOCATION ("warmelt-macro.melt:2676:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2681:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V77*/ meltfptr[58] = @@ -10602,7 +10602,7 @@ lab_endgetargs:; /*_#__L19*/ meltfnum[8] = (( /*_.PAIR_HEAD__V77*/ meltfptr[58]) == (( /*!konst_10_DOC */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-macro.melt:2676:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2681:/ cond"); /*cond */ if ( /*_#__L19*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -10613,10 +10613,10 @@ lab_endgetargs:; /*_.PAIR_TAIL__V79*/ meltfptr[44] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2678:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2683:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V80*/ meltfptr[49] = /*_.PAIR_TAIL__V79*/ meltfptr[44];; - MELT_LOCATION ("warmelt-macro.melt:2679:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2684:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -10645,16 +10645,16 @@ lab_endgetargs:; /*_.PAIR_HEAD__V81*/ meltfptr[50] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2680:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2685:/ compute"); /*_.DOCV__V27*/ meltfptr[26] = /*_.SETQ___V82*/ meltfptr[51] = /*_.PAIR_HEAD__V81*/ meltfptr[50];; /*_.PAIR_TAIL__V83*/ meltfptr[82] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2681:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2686:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V84*/ meltfptr[83] = /*_.PAIR_TAIL__V83*/ meltfptr[82];; - MELT_LOCATION ("warmelt-macro.melt:2677:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2682:/ quasiblock"); /*_.PROGN___V85*/ meltfptr[84] = /*_.SETQ___V84*/ meltfptr[83];; @@ -10662,7 +10662,7 @@ lab_endgetargs:; /*_.IF___V78*/ meltfptr[41] = /*_.PROGN___V85*/ meltfptr[84];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2676:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2681:/ clear"); /*clear *//*_.PAIR_TAIL__V79*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_.SETQ___V80*/ meltfptr[49] = 0; @@ -10685,12 +10685,12 @@ lab_endgetargs:; /*_.IF___V78*/ meltfptr[41] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2684:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2689:/ quasiblock"); /*_.MFA__V87*/ meltfptr[49] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2685:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2690:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -10701,7 +10701,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2686:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2691:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10732,7 +10732,7 @@ lab_endgetargs:; /*_.IFELSE___V88*/ meltfptr[50] = /*_.SETQ___V90*/ meltfptr[82];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2685:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2690:/ clear"); /*clear *//*_.MEXPANDER__V89*/ meltfptr[51] = 0; /*^clear */ /*clear *//*_.SETQ___V90*/ meltfptr[82] = 0; @@ -10750,7 +10750,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2687:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2692:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("bad matchfun for (DEFUNMATCHER <symb> <ins> <outs> <matchfun> <applyfun\ > [<data>])"), (melt_ptr_t) 0); } @@ -10764,13 +10764,13 @@ lab_endgetargs:; /*^compute */ /*_.LET___V86*/ meltfptr[44] = /*_.IFELSE___V88*/ meltfptr[50];; - MELT_LOCATION ("warmelt-macro.melt:2684:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2689:/ clear"); /*clear *//*_.MFA__V87*/ meltfptr[49] = 0; /*^clear */ /*clear *//*_.IFELSE___V88*/ meltfptr[50] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2689:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2694:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10796,7 +10796,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2689:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2694:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -10811,7 +10811,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2689:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2694:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10825,7 +10825,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2689; + argtab[2].meltbp_long = 2694; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defunmatcher matchfunx"; /*^apply.arg */ @@ -10845,7 +10845,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V93*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2689:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2694:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V93*/ meltfptr[51] = 0; @@ -10858,7 +10858,7 @@ lab_endgetargs:; /*_.IF___V92*/ meltfptr[84] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2689:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2694:/ quasiblock"); /*_.PROGN___V94*/ meltfptr[82] = /*_.IF___V92*/ meltfptr[84];; @@ -10866,7 +10866,7 @@ lab_endgetargs:; /*_.IFCPP___V91*/ meltfptr[83] = /*_.PROGN___V94*/ meltfptr[82];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2689:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2694:/ clear"); /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V92*/ meltfptr[84] = 0; @@ -10882,15 +10882,15 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V95*/ meltfptr[49] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2691:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2696:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V96*/ meltfptr[50] = /*_.PAIR_TAIL__V95*/ meltfptr[49];; - MELT_LOCATION ("warmelt-macro.melt:2692:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2697:/ quasiblock"); /*_.AFA__V98*/ meltfptr[84] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2693:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2698:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -10901,7 +10901,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2694:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2699:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10933,7 +10933,7 @@ lab_endgetargs:; /*_.IF___V99*/ meltfptr[82] = /*_.SETQ___V101*/ meltfptr[100];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2693:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2698:/ clear"); /*clear *//*_.MEXPANDER__V100*/ meltfptr[99] = 0; /*^clear */ /*clear *//*_.SETQ___V101*/ meltfptr[100] = 0; @@ -10949,13 +10949,13 @@ lab_endgetargs:; /*^compute */ /*_.LET___V97*/ meltfptr[51] = /*_.IF___V99*/ meltfptr[82];; - MELT_LOCATION ("warmelt-macro.melt:2692:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2697:/ clear"); /*clear *//*_.AFA__V98*/ meltfptr[84] = 0; /*^clear */ /*clear *//*_.IF___V99*/ meltfptr[82] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2698:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2703:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10981,7 +10981,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2698:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2703:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -10996,7 +10996,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2698:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2703:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11010,7 +11010,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2698; + argtab[2].meltbp_long = 2703; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defunmatcher applyfunx"; /*^apply.arg */ @@ -11030,7 +11030,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V104*/ meltfptr[84];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2698:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2703:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V104*/ meltfptr[84] = 0; @@ -11043,7 +11043,7 @@ lab_endgetargs:; /*_.IF___V103*/ meltfptr[100] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2698:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2703:/ quasiblock"); /*_.PROGN___V105*/ meltfptr[82] = /*_.IF___V103*/ meltfptr[100];; @@ -11051,7 +11051,7 @@ lab_endgetargs:; /*_.IFCPP___V102*/ meltfptr[99] = /*_.PROGN___V105*/ meltfptr[82];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2698:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2703:/ clear"); /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V103*/ meltfptr[100] = 0; @@ -11067,15 +11067,15 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V106*/ meltfptr[84] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2700:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2705:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V107*/ meltfptr[100] = /*_.PAIR_TAIL__V106*/ meltfptr[84];; - MELT_LOCATION ("warmelt-macro.melt:2701:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2706:/ quasiblock"); /*_.DTA__V109*/ meltfptr[108] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2702:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2707:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -11086,7 +11086,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2703:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2708:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11117,7 +11117,7 @@ lab_endgetargs:; /*_.IF___V110*/ meltfptr[109] = /*_.SETQ___V112*/ meltfptr[111];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2702:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2707:/ clear"); /*clear *//*_.MEXPANDER__V111*/ meltfptr[110] = 0; /*^clear */ /*clear *//*_.SETQ___V112*/ meltfptr[111] = 0; @@ -11133,13 +11133,13 @@ lab_endgetargs:; /*^compute */ /*_.LET___V108*/ meltfptr[82] = /*_.IF___V110*/ meltfptr[109];; - MELT_LOCATION ("warmelt-macro.melt:2701:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2706:/ clear"); /*clear *//*_.DTA__V109*/ meltfptr[108] = 0; /*^clear */ /*clear *//*_.IF___V110*/ meltfptr[109] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2706:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2711:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11165,7 +11165,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2706:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2711:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L24*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -11180,7 +11180,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2706:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2711:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11194,7 +11194,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2706; + argtab[2].meltbp_long = 2711; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defunmatcher datax"; /*^apply.arg */ @@ -11214,7 +11214,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V115*/ meltfptr[108];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2706:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2711:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L25*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V115*/ meltfptr[108] = 0; @@ -11227,7 +11227,7 @@ lab_endgetargs:; /*_.IF___V114*/ meltfptr[111] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2706:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2711:/ quasiblock"); /*_.PROGN___V116*/ meltfptr[109] = /*_.IF___V114*/ meltfptr[111];; @@ -11235,7 +11235,7 @@ lab_endgetargs:; /*_.IFCPP___V113*/ meltfptr[110] = /*_.PROGN___V116*/ meltfptr[109];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2706:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2711:/ clear"); /*clear *//*_#MELT_NEED_DBG__L24*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V114*/ meltfptr[111] = 0; @@ -11251,10 +11251,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V117*/ meltfptr[108] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:2708:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2713:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V118*/ meltfptr[111] = /*_.PAIR_TAIL__V117*/ meltfptr[108];; - MELT_LOCATION ("warmelt-macro.melt:2709:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2714:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -11267,7 +11267,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2710:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2715:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("extra for (DEFUNMATCHER <symb> <ins> <outs> <matchfun> [<applyfun>\ [<data>]])"), (melt_ptr_t) 0); } @@ -11277,10 +11277,10 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:2711:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2716:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:2715:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2720:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -11390,10 +11390,10 @@ lab_endgetargs:; "newly made instance"); ; /*_.SDFUM__V120*/ meltfptr[119] = /*_.INST__V121*/ meltfptr[120];; - MELT_LOCATION ("warmelt-macro.melt:2726:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2731:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:2727:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2732:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]) /*=obj*/ ; @@ -11401,7 +11401,7 @@ lab_endgetargs:; /*_.NAMED_NAME__V122*/ meltfptr[121] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2726:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2731:/ quasiblock"); /*^rawallocobj */ @@ -11488,7 +11488,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.FUMA__V123*/ meltfptr[122] = /*_.INST__V124*/ meltfptr[123];; - MELT_LOCATION ("warmelt-macro.melt:2736:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2741:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -11541,7 +11541,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.FMBIND__V125*/ meltfptr[124] = /*_.INST__V126*/ meltfptr[125];; - MELT_LOCATION ("warmelt-macro.melt:2742:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2747:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11562,7 +11562,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2743:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2748:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11588,7 +11588,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2743:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2748:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -11603,7 +11603,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2743:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2748:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11617,7 +11617,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2743; + argtab[2].meltbp_long = 2748; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defunmatcher made fuma"; /*^apply.arg */ @@ -11637,7 +11637,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V130*/ meltfptr[129];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2743:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2748:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L27*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V130*/ meltfptr[129] = 0; @@ -11650,7 +11650,7 @@ lab_endgetargs:; /*_.IF___V129*/ meltfptr[128] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2743:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2748:/ quasiblock"); /*_.PROGN___V131*/ meltfptr[129] = /*_.IF___V129*/ meltfptr[128];; @@ -11658,7 +11658,7 @@ lab_endgetargs:; /*_.IFCPP___V128*/ meltfptr[127] = /*_.PROGN___V131*/ meltfptr[129];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2743:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2748:/ clear"); /*clear *//*_#MELT_NEED_DBG__L26*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V129*/ meltfptr[128] = 0; @@ -11673,7 +11673,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2744:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2749:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11699,7 +11699,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2744:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2749:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L28*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -11714,7 +11714,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2744:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2749:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11728,7 +11728,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2744; + argtab[2].meltbp_long = 2749; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defunmatcher fmbind"; /*^apply.arg */ @@ -11748,7 +11748,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V134*/ meltfptr[133];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2744:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2749:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L29*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V134*/ meltfptr[133] = 0; @@ -11761,7 +11761,7 @@ lab_endgetargs:; /*_.IF___V133*/ meltfptr[129] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2744:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2749:/ quasiblock"); /*_.PROGN___V135*/ meltfptr[133] = /*_.IF___V133*/ meltfptr[129];; @@ -11769,7 +11769,7 @@ lab_endgetargs:; /*_.IFCPP___V132*/ meltfptr[128] = /*_.PROGN___V135*/ meltfptr[133];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2744:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2749:/ clear"); /*clear *//*_#MELT_NEED_DBG__L28*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V133*/ meltfptr[129] = 0; @@ -11784,7 +11784,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2745:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2750:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11810,7 +11810,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2745:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2750:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L30*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -11825,7 +11825,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2745:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2750:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11839,7 +11839,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2745; + argtab[2].meltbp_long = 2750; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defunmatcher return sdfum"; /*^apply.arg */ @@ -11859,7 +11859,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V138*/ meltfptr[137];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2745:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2750:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L31*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V138*/ meltfptr[137] = 0; @@ -11872,7 +11872,7 @@ lab_endgetargs:; /*_.IF___V137*/ meltfptr[133] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2745:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2750:/ quasiblock"); /*_.PROGN___V139*/ meltfptr[137] = /*_.IF___V137*/ meltfptr[133];; @@ -11880,7 +11880,7 @@ lab_endgetargs:; /*_.IFCPP___V136*/ meltfptr[129] = /*_.PROGN___V139*/ meltfptr[137];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2745:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2750:/ clear"); /*clear *//*_#MELT_NEED_DBG__L30*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V137*/ meltfptr[133] = 0; @@ -11893,7 +11893,7 @@ lab_endgetargs:; /*_.IFCPP___V136*/ meltfptr[129] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2746:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2751:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -11902,7 +11902,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDFUM__V120*/ meltfptr[119];; { - MELT_LOCATION ("warmelt-macro.melt:2746:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2751:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11917,7 +11917,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V119*/ meltfptr[109] = /*_.RETURN___V140*/ meltfptr[133];; - MELT_LOCATION ("warmelt-macro.melt:2711:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2716:/ clear"); /*clear *//*_.SDFUM__V120*/ meltfptr[119] = 0; /*^clear */ /*clear *//*_.NAMED_NAME__V122*/ meltfptr[121] = 0; @@ -11937,7 +11937,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V140*/ meltfptr[133] = 0; /*_.LET___V14*/ meltfptr[12] = /*_.LET___V119*/ meltfptr[109];; - MELT_LOCATION ("warmelt-macro.melt:2615:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2620:/ clear"); /*clear *//*_.CONT__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; @@ -12031,7 +12031,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V118*/ meltfptr[111] = 0; /*^clear */ /*clear *//*_.LET___V119*/ meltfptr[109] = 0; - MELT_LOCATION ("warmelt-macro.melt:2611:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -12040,7 +12040,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:2611:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12159,7 +12159,7 @@ meltrout_41_warmelt_macro_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2658:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2663:/ getarg"); /*_.COMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -12180,7 +12180,7 @@ lab_endgetargs:; ; /*_#I__L2*/ meltfnum[1] = (( /*_#IX__L1*/ meltfnum[0]) > (0));; - MELT_LOCATION ("warmelt-macro.melt:2658:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2663:/ cond"); /*cond */ if ( /*_#I__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -12192,7 +12192,7 @@ lab_endgetargs:; (( /*_#IX__L1*/ meltfnum[0]) - (1));; { - MELT_LOCATION ("warmelt-macro.melt:2658:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2663:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) (( /*~INFORMALS */ meltfclos-> tabval[0])), @@ -12309,7 +12309,7 @@ meltrout_42_warmelt_macro_MEXPAND_DEFUN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2758:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -12350,7 +12350,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2759:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2764:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12362,7 +12362,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:2759:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2764:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -12370,7 +12370,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2759:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2764:/ cond.else"); /*^block */ /*anyblock */ @@ -12384,7 +12384,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2759) ? (2759) : __LINE__, __FUNCTION__); + (2764) ? (2764) : __LINE__, __FUNCTION__); ; } ; @@ -12398,7 +12398,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2759:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2764:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -12411,7 +12411,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2760:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2765:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12423,7 +12423,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:2760:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2765:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -12431,7 +12431,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2760:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2765:/ cond.else"); /*^block */ /*anyblock */ @@ -12445,7 +12445,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2760) ? (2760) : __LINE__, __FUNCTION__); + (2765) ? (2765) : __LINE__, __FUNCTION__); ; } ; @@ -12459,7 +12459,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2760:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2765:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -12472,7 +12472,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2761:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2766:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12483,7 +12483,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:2761:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2766:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -12491,7 +12491,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2761:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2766:/ cond.else"); /*^block */ /*anyblock */ @@ -12505,7 +12505,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2761) ? (2761) : __LINE__, __FUNCTION__); + (2766) ? (2766) : __LINE__, __FUNCTION__); ; } ; @@ -12519,7 +12519,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2761:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2766:/ clear"); /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -12532,7 +12532,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2762:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2767:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12558,7 +12558,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2762:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2767:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -12573,7 +12573,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2762:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2767:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12586,7 +12586,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2762; + argtab[2].meltbp_long = 2767; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.defun sexpr"; /*^apply.arg */ @@ -12606,7 +12606,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2762:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2767:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0; @@ -12619,7 +12619,7 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2762:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2767:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[13] = /*_.IF___V13*/ meltfptr[12];; @@ -12627,7 +12627,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2762:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2767:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V13*/ meltfptr[12] = 0; @@ -12640,7 +12640,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2763:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2768:/ quasiblock"); /*^getslot */ @@ -12651,7 +12651,7 @@ lab_endgetargs:; /*_.CONT__V17*/ meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2764:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2769:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -12667,7 +12667,7 @@ lab_endgetargs:; /*^compute */ /*_.SYMB__V21*/ meltfptr[20] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2767:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2772:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12681,7 +12681,7 @@ lab_endgetargs:; } ; /*_.DOCV__V23*/ meltfptr[22] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:2770:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2775:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -12723,14 +12723,14 @@ lab_endgetargs:; "newly made instance"); ; /*_.FBIND__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:2775:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2780:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[4] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V21*/ meltfptr[20]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:2775:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2780:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -12740,7 +12740,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2776:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2781:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("missing symbol for DEFUN"), (melt_ptr_t) 0); @@ -12751,7 +12751,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:2777:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2782:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12771,7 +12771,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2778:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2783:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12791,20 +12791,20 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V28*/ meltfptr[27] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2779:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2784:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V29*/ meltfptr[28] = /*_.PAIR_TAIL__V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:2781:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2786:/ quasiblock"); /*_.CURPAIRHEAD__V31*/ meltfptr[30] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2783:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2788:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L7*/ meltfnum[0] = (( /*_.CURPAIRHEAD__V31*/ meltfptr[30]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:2783:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2788:/ cond"); /*cond */ if ( /*_#NULL__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -12821,7 +12821,7 @@ lab_endgetargs:; /*_.MAKE_MULTIPLE__V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2783:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2788:/ clear"); /*clear *//*_.MAKE_MULTIPLE__V33*/ meltfptr[32] = 0; } ; @@ -12833,7 +12833,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2785:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2790:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L8*/ meltfnum[7] = @@ -12841,7 +12841,7 @@ lab_endgetargs:; ( /*_.CURPAIRHEAD__V31*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:2785:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2790:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -12852,7 +12852,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V35*/ meltfptr[34] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2786:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2791:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12877,7 +12877,7 @@ lab_endgetargs:; /*_.LAMBDA_ARG_BINDINGS__V36*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2785:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2790:/ clear"); /*clear *//*_.PAIR_HEAD__V35*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.LAMBDA_ARG_BINDINGS__V36*/ meltfptr[35] = 0; @@ -12893,7 +12893,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2788:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2793:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12919,7 +12919,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2788:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2793:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -12935,7 +12935,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:2788:/ checksignal"); + ("warmelt-macro.melt:2793:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12949,7 +12949,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2788; + argtab[2].meltbp_long = 2793; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defun strange arglist curpairhead"; @@ -12972,7 +12972,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2788:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2793:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0; /*^clear */ @@ -12986,7 +12986,7 @@ lab_endgetargs:; /*_.IF___V38*/ meltfptr[35] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2788:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2793:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[38] = @@ -12996,7 +12996,7 @@ lab_endgetargs:; /*_.PROGN___V40*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2788:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2793:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IF___V38*/ meltfptr[35] = 0; @@ -13011,7 +13011,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2789:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2794:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), @@ -13019,7 +13019,7 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2787:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2792:/ quasiblock"); /*_.PROGN___V41*/ meltfptr[35] = ( /*nil */ NULL);; @@ -13028,7 +13028,7 @@ lab_endgetargs:; /*_.PROGN___V41*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2785:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2790:/ clear"); /*clear *//*_.IFCPP___V37*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.PROGN___V41*/ meltfptr[35] = 0; @@ -13039,7 +13039,7 @@ lab_endgetargs:; /*_.BTUP__V32*/ meltfptr[31] = /*_.IFELSE___V34*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2783:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2788:/ clear"); /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V34*/ meltfptr[32] = 0; @@ -13047,7 +13047,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:2793:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2798:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE__L11*/ meltfnum[9] = @@ -13056,7 +13056,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L12*/ meltfnum[8] = (!( /*_#IS_MULTIPLE__L11*/ meltfnum[9]));; - MELT_LOCATION ("warmelt-macro.melt:2793:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2798:/ cond"); /*cond */ if ( /*_#NOT__L12*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -13066,7 +13066,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2795:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2800:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13092,7 +13092,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2795:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2800:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -13107,7 +13107,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2795:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2800:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13121,7 +13121,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2795; + argtab[2].meltbp_long = 2800; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defun strange btup"; /*^apply.arg */ @@ -13142,7 +13142,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V44*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2795:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2800:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V44*/ meltfptr[35] = 0; @@ -13155,7 +13155,7 @@ lab_endgetargs:; /*_.IF___V43*/ meltfptr[34] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2795:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2800:/ quasiblock"); /*_.PROGN___V45*/ meltfptr[32] = /*_.IF___V43*/ meltfptr[34];; @@ -13163,7 +13163,7 @@ lab_endgetargs:; /*_.IFCPP___V42*/ meltfptr[38] = /*_.PROGN___V45*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2795:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2800:/ clear"); /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V43*/ meltfptr[34] = 0; @@ -13178,25 +13178,25 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:2796:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2801:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("missing formal arguments for DEFUN"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2794:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2799:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2793:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2798:/ clear"); /*clear *//*_.IFCPP___V42*/ meltfptr[38] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:2797:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2802:/ quasiblock"); /*^newclosure */ @@ -13221,7 +13221,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.NEWENV__V22*/ meltfptr[21]); ; /*_.LAMBDA___V46*/ meltfptr[35] = /*_.LAMBDA___V47*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:2797:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2802:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13242,10 +13242,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V49*/ meltfptr[38] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2798:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2803:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V50*/ meltfptr[49] = /*_.PAIR_TAIL__V49*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:2800:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2805:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V51*/ meltfptr[50] = @@ -13254,7 +13254,7 @@ lab_endgetargs:; /*_#__L15*/ meltfnum[13] = (( /*_.PAIR_HEAD__V51*/ meltfptr[50]) == (( /*!konst_13_DOC */ meltfrout->tabval[13])));; - MELT_LOCATION ("warmelt-macro.melt:2800:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2805:/ cond"); /*cond */ if ( /*_#__L15*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -13265,22 +13265,22 @@ lab_endgetargs:; /*_.PAIR_TAIL__V53*/ meltfptr[52] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2802:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2807:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V54*/ meltfptr[53] = /*_.PAIR_TAIL__V53*/ meltfptr[52];; /*_.PAIR_HEAD__V55*/ meltfptr[54] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2804:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2809:/ compute"); /*_.DOCV__V23*/ meltfptr[22] = /*_.SETQ___V56*/ meltfptr[55] = /*_.PAIR_HEAD__V55*/ meltfptr[54];; /*_.PAIR_TAIL__V57*/ meltfptr[56] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:2805:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2810:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V58*/ meltfptr[57] = /*_.PAIR_TAIL__V57*/ meltfptr[56];; - MELT_LOCATION ("warmelt-macro.melt:2801:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2806:/ quasiblock"); /*_.PROGN___V59*/ meltfptr[58] = /*_.SETQ___V58*/ meltfptr[57];; @@ -13288,7 +13288,7 @@ lab_endgetargs:; /*_.IF___V52*/ meltfptr[51] = /*_.PROGN___V59*/ meltfptr[58];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2800:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2805:/ clear"); /*clear *//*_.PAIR_TAIL__V53*/ meltfptr[52] = 0; /*^clear */ /*clear *//*_.SETQ___V54*/ meltfptr[53] = 0; @@ -13311,7 +13311,7 @@ lab_endgetargs:; /*_.IF___V52*/ meltfptr[51] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2808:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2813:/ quasiblock"); /*^checksignal */ @@ -13337,7 +13337,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2810:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2815:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -13406,7 +13406,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.SDEFUN__V62*/ meltfptr[54] = /*_.INST__V63*/ meltfptr[55];; - MELT_LOCATION ("warmelt-macro.melt:2818:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2823:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -13445,13 +13445,13 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:2819:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2824:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#MULTIPLE_LENGTH__L16*/ meltfnum[7] = (melt_multiple_length ((melt_ptr_t) ( /*_.BODYTUP__V61*/ meltfptr[53])));; - MELT_LOCATION ("warmelt-macro.melt:2819:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2824:/ cond"); /*cond */ if ( /*_#MULTIPLE_LENGTH__L16*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -13459,7 +13459,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2819:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2824:/ cond.else"); /*^block */ /*anyblock */ @@ -13467,14 +13467,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2820:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2825:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("missing or empty body for DEFUN"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2819:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2824:/ quasiblock"); /*epilog */ @@ -13482,7 +13482,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:2821:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2826:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -13491,7 +13491,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDEFUN__V62*/ meltfptr[54];; { - MELT_LOCATION ("warmelt-macro.melt:2821:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2826:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13506,7 +13506,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V60*/ meltfptr[52] = /*_.RETURN___V65*/ meltfptr[57];; - MELT_LOCATION ("warmelt-macro.melt:2808:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2813:/ clear"); /*clear *//*_.BODYTUP__V61*/ meltfptr[53] = 0; /*^clear */ /*clear *//*_.SDEFUN__V62*/ meltfptr[54] = 0; @@ -13518,7 +13518,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V65*/ meltfptr[57] = 0; /*_.LET___V30*/ meltfptr[29] = /*_.LET___V60*/ meltfptr[52];; - MELT_LOCATION ("warmelt-macro.melt:2781:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2786:/ clear"); /*clear *//*_.CURPAIRHEAD__V31*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_#NULL__L7*/ meltfnum[0] = 0; @@ -13546,7 +13546,7 @@ lab_endgetargs:; /*clear *//*_.LET___V60*/ meltfptr[52] = 0; /*_.LET___V16*/ meltfptr[12] = /*_.LET___V30*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:2763:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2768:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -13574,7 +13574,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.LET___V30*/ meltfptr[29] = 0; - MELT_LOCATION ("warmelt-macro.melt:2758:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -13583,7 +13583,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:2758:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13704,7 +13704,7 @@ meltrout_43_warmelt_macro_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2797:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2802:/ getarg"); /*_.FB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -13738,7 +13738,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:2797:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2802:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13852,7 +13852,7 @@ meltrout_44_warmelt_macro_MEXPAND_DEFINE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2843:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -13893,7 +13893,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2844:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2849:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13905,7 +13905,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:2844:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2849:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13913,7 +13913,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2844:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2849:/ cond.else"); /*^block */ /*anyblock */ @@ -13927,7 +13927,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2844) ? (2844) : __LINE__, __FUNCTION__); + (2849) ? (2849) : __LINE__, __FUNCTION__); ; } ; @@ -13941,7 +13941,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2844:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2849:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -13954,7 +13954,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2845:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2850:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13966,7 +13966,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:2845:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2850:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13974,7 +13974,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:2845:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:2850:/ cond.else"); /*^block */ /*anyblock */ @@ -13988,7 +13988,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (2845) ? (2845) : __LINE__, __FUNCTION__); + (2850) ? (2850) : __LINE__, __FUNCTION__); ; } ; @@ -14002,7 +14002,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2845:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2850:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -14013,7 +14013,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2846:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2851:/ quasiblock"); /*^getslot */ @@ -14024,7 +14024,7 @@ lab_endgetargs:; /*_.CONT__V11*/ meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2847:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2852:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -14042,7 +14042,7 @@ lab_endgetargs:; (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2851:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2856:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14068,7 +14068,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2851:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2856:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14083,7 +14083,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2851:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2856:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14096,7 +14096,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2851; + argtab[2].meltbp_long = 2856; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_define start sexpr"; /*^apply.arg */ @@ -14116,7 +14116,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2851:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2856:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0; @@ -14129,7 +14129,7 @@ lab_endgetargs:; /*_.IF___V17*/ meltfptr[16] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2851:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2856:/ quasiblock"); /*_.PROGN___V19*/ meltfptr[17] = /*_.IF___V17*/ meltfptr[16];; @@ -14137,7 +14137,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = /*_.PROGN___V19*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2851:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2856:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V17*/ meltfptr[16] = 0; @@ -14150,14 +14150,14 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[15] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2855:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2860:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[3] = melt_is_instance_of ((melt_ptr_t) ( /*_.CURELEM__V15*/ meltfptr[14]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:2855:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2860:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -14165,13 +14165,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2856:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2861:/ quasiblock"); /*_.DEFNAME__V22*/ meltfptr[21] = /*_.CURELEM__V15*/ meltfptr[14];; /*^compute */ /*_.DEFDOC__V23*/ meltfptr[22] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:2859:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2864:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14211,7 +14211,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.DEFVALBIND__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:2864:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2869:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14233,7 +14233,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2865:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2870:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14255,10 +14255,10 @@ lab_endgetargs:; /*_.PAIR_TAIL__V28*/ meltfptr[27] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:2866:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2871:/ compute"); /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V29*/ meltfptr[28] = /*_.PAIR_TAIL__V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:2868:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2873:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V30*/ meltfptr[29] = @@ -14268,7 +14268,7 @@ lab_endgetargs:; /*_#__L6*/ meltfnum[0] = (( /*_.PAIR_HEAD__V30*/ meltfptr[29]) == (( /*!konst_7_DOC */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-macro.melt:2868:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2873:/ cond"); /*cond */ if ( /*_#__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14279,25 +14279,25 @@ lab_endgetargs:; /*_.PAIR_TAIL__V32*/ meltfptr[31] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:2870:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2875:/ compute"); /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V33*/ meltfptr[32] = /*_.PAIR_TAIL__V32*/ meltfptr[31];; /*_.PAIR_HEAD__V34*/ meltfptr[33] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:2871:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2876:/ compute"); /*_.DEFDOC__V23*/ meltfptr[22] = /*_.SETQ___V35*/ meltfptr[34] = /*_.PAIR_HEAD__V34*/ meltfptr[33];; /*_.PAIR_TAIL__V36*/ meltfptr[35] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:2872:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2877:/ compute"); /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V37*/ meltfptr[36] = /*_.PAIR_TAIL__V36*/ meltfptr[35];; - MELT_LOCATION ("warmelt-macro.melt:2869:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2874:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[37] = @@ -14306,7 +14306,7 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[30] = /*_.PROGN___V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2868:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2873:/ clear"); /*clear *//*_.PAIR_TAIL__V32*/ meltfptr[31] = 0; /*^clear */ /*clear *//*_.SETQ___V33*/ meltfptr[32] = 0; @@ -14329,10 +14329,10 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2874:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2879:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:2875:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2880:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14358,7 +14358,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2876:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2881:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14422,7 +14422,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.SDEFINE__V41*/ meltfptr[33] = /*_.INST__V42*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:2883:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2888:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -14466,12 +14466,12 @@ lab_endgetargs:; /*_.PAIR_TAIL__V43*/ meltfptr[35] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:2884:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2889:/ compute"); /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V44*/ meltfptr[36] = /*_.PAIR_TAIL__V43*/ meltfptr[35];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2885:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2890:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14497,7 +14497,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2885:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2890:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -14512,7 +14512,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2885:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2890:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14526,7 +14526,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2885; + argtab[2].meltbp_long = 2890; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_define simple value bodytup="; @@ -14554,7 +14554,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2885:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2890:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 0; @@ -14567,7 +14567,7 @@ lab_endgetargs:; /*_.IF___V46*/ meltfptr[45] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2885:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2890:/ quasiblock"); /*_.PROGN___V48*/ meltfptr[46] = /*_.IF___V46*/ meltfptr[45];; @@ -14575,7 +14575,7 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[37] = /*_.PROGN___V48*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2885:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2890:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V46*/ meltfptr[45] = 0; @@ -14588,7 +14588,7 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2886:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2891:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14597,7 +14597,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SDEFINE__V41*/ meltfptr[33];; { - MELT_LOCATION ("warmelt-macro.melt:2886:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2891:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14612,7 +14612,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V39*/ meltfptr[31] = /*_.RETURN___V49*/ meltfptr[45];; - MELT_LOCATION ("warmelt-macro.melt:2874:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2879:/ clear"); /*clear *//*_.BODYTUP__V40*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.SDEFINE__V41*/ meltfptr[33] = 0; @@ -14626,7 +14626,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V49*/ meltfptr[45] = 0; /*_.LET___V21*/ meltfptr[17] = /*_.LET___V39*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:2856:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2861:/ clear"); /*clear *//*_.DEFNAME__V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.DEFDOC__V23*/ meltfptr[22] = 0; @@ -14651,7 +14651,7 @@ lab_endgetargs:; /*_.IFELSE___V20*/ meltfptr[16] = /*_.LET___V21*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2855:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2860:/ clear"); /*clear *//*_.LET___V21*/ meltfptr[17] = 0; } ; @@ -14663,7 +14663,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2890:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2895:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L9*/ meltfnum[7] = @@ -14671,7 +14671,7 @@ lab_endgetargs:; ( /*_.CURELEM__V15*/ meltfptr[14]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:2890:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2895:/ cond"); /*cond */ if ( /*_#IS_A__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -14679,7 +14679,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2891:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2896:/ quasiblock"); /*^getslot */ @@ -14691,7 +14691,7 @@ lab_endgetargs:; /*_.FLOC__V52*/ meltfptr[33] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2892:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2897:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -14715,7 +14715,7 @@ lab_endgetargs:; /*_.CURSUBPAIR__V57*/ meltfptr[21] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V56*/ meltfptr[45])));; - MELT_LOCATION ("warmelt-macro.melt:2895:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2900:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14738,7 +14738,7 @@ lab_endgetargs:; } ; /*_.DEFDOC__V59*/ meltfptr[23] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:2897:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2902:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14781,7 +14781,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.FBIND__V60*/ meltfptr[25] = /*_.INST__V61*/ meltfptr[26];; - MELT_LOCATION ("warmelt-macro.melt:2903:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2908:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L10*/ meltfnum[6] = @@ -14790,7 +14790,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:2903:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2908:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L10*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -14800,7 +14800,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2905:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2910:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), @@ -14808,13 +14808,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2907:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2912:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2907:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2912:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -14828,7 +14828,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2904:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2909:/ quasiblock"); /*_.PROGN___V64*/ meltfptr[29] = @@ -14838,7 +14838,7 @@ lab_endgetargs:; /*_.PROGN___V64*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2903:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2908:/ clear"); /*clear *//*_.RETURN___V63*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.PROGN___V64*/ meltfptr[29] = 0; @@ -14851,7 +14851,7 @@ lab_endgetargs:; /*_.IF___V62*/ meltfptr[27] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2908:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2913:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14875,7 +14875,7 @@ lab_endgetargs:; "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2909:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2914:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14894,7 +14894,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2911:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2916:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V67*/ meltfptr[17] = @@ -14904,7 +14904,7 @@ lab_endgetargs:; /*_#__L11*/ meltfnum[0] = (( /*_.PAIR_HEAD__V67*/ meltfptr[17]) == (( /*!konst_7_DOC */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-macro.melt:2911:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2916:/ cond"); /*cond */ if ( /*_#__L11*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14915,25 +14915,25 @@ lab_endgetargs:; /*_.PAIR_TAIL__V69*/ meltfptr[29] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:2913:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2918:/ compute"); /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V70*/ meltfptr[69] = /*_.PAIR_TAIL__V69*/ meltfptr[29];; /*_.PAIR_HEAD__V71*/ meltfptr[70] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:2914:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2919:/ compute"); /*_.DEFDOC__V59*/ meltfptr[23] = /*_.SETQ___V72*/ meltfptr[71] = /*_.PAIR_HEAD__V71*/ meltfptr[70];; /*_.PAIR_TAIL__V73*/ meltfptr[72] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:2915:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2920:/ compute"); /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V74*/ meltfptr[73] = /*_.PAIR_TAIL__V73*/ meltfptr[72];; - MELT_LOCATION ("warmelt-macro.melt:2912:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2917:/ quasiblock"); /*_.PROGN___V75*/ meltfptr[74] = @@ -14943,7 +14943,7 @@ lab_endgetargs:; /*_.PROGN___V75*/ meltfptr[74];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2911:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2916:/ clear"); /*clear *//*_.PAIR_TAIL__V69*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.SETQ___V70*/ meltfptr[69] = 0; @@ -14966,10 +14966,10 @@ lab_endgetargs:; /*_.IF___V68*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2917:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2922:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:2918:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2923:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14983,7 +14983,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2920:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2925:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -15064,7 +15064,7 @@ lab_endgetargs:; /*_.FORMAL0BIND__V80*/ meltfptr[72] = (melt_multiple_nth ((melt_ptr_t) ( /*_.FORMALTUP__V58*/ meltfptr[22]), (0)));; - MELT_LOCATION ("warmelt-macro.melt:2930:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2935:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -15075,7 +15075,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2931:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2936:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -15109,7 +15109,7 @@ lab_endgetargs:; /*_#__L12*/ meltfnum[11] = (( /*_.FBIND_TYPE__V82*/ meltfptr[74]) != (( /*!CTYPE_VALUE */ meltfrout->tabval[17])));; - MELT_LOCATION ("warmelt-macro.melt:2931:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2936:/ cond"); /*cond */ if ( /*_#__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -15120,7 +15120,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:2933:/ cppif.then"); + ("warmelt-macro.melt:2938:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15148,7 +15148,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:2933:/ cond"); + ("warmelt-macro.melt:2938:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -15165,7 +15165,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:2933:/ checksignal"); + ("warmelt-macro.melt:2938:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15181,7 +15181,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2933; + argtab[2].meltbp_long = 2938; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_define function bad formal0bind="; @@ -15209,7 +15209,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:2933:/ clear"); + ("warmelt-macro.melt:2938:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0; /*^clear */ @@ -15225,7 +15225,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:2933:/ quasiblock"); + ("warmelt-macro.melt:2938:/ quasiblock"); /*_.PROGN___V87*/ meltfptr[85] = @@ -15236,7 +15236,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:2933:/ clear"); + ("warmelt-macro.melt:2938:/ clear"); /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[12] = 0; /*^clear */ @@ -15250,7 +15250,7 @@ lab_endgetargs:; /*_.IFCPP___V84*/ meltfptr[83] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2935:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2940:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -15280,7 +15280,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:2934:/ locexp"); + ("warmelt-macro.melt:2939:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.FLOC__V52*/ meltfptr[33]), ("invalid first formal argument in DEFINE-d function, expecting a :value"), @@ -15288,14 +15288,14 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:2936:/ quasiblock"); + ("warmelt-macro.melt:2941:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION - ("warmelt-macro.melt:2936:/ locexp"); + ("warmelt-macro.melt:2941:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -15311,7 +15311,7 @@ lab_endgetargs:; ; /*finalret */ goto labend_rout; MELT_LOCATION - ("warmelt-macro.melt:2932:/ quasiblock"); + ("warmelt-macro.melt:2937:/ quasiblock"); /*_.PROGN___V90*/ meltfptr[89] = @@ -15321,7 +15321,7 @@ lab_endgetargs:; /*_.PROGN___V90*/ meltfptr[89];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2931:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2936:/ clear"); /*clear *//*_.IFCPP___V84*/ meltfptr[83] = 0; /*^clear */ /*clear *//*_.NAMED_NAME__V88*/ meltfptr[84] = 0; @@ -15343,7 +15343,7 @@ lab_endgetargs:; /*_.IF___V83*/ meltfptr[82];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2930:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2935:/ clear"); /*clear *//*_.FBIND_TYPE__V82*/ meltfptr[74] = 0; /*^clear */ /*clear *//*_#__L12*/ meltfnum[11] = 0; @@ -15358,7 +15358,7 @@ lab_endgetargs:; /*_.IF___V81*/ meltfptr[73] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2938:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2943:/ quasiblock"); /*^newclosure */ @@ -15389,7 +15389,7 @@ lab_endgetargs:; ; /*_.LAMBDA___V91*/ meltfptr[83] = /*_.LAMBDA___V92*/ meltfptr[84];; - MELT_LOCATION ("warmelt-macro.melt:2938:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2943:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15410,7 +15410,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2939:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2944:/ quasiblock"); /*^checksignal */ @@ -15441,7 +15441,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2941:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2946:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -15486,7 +15486,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2942:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2947:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15512,7 +15512,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2942:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2947:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -15528,7 +15528,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:2942:/ checksignal"); + ("warmelt-macro.melt:2947:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15542,7 +15542,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2942; + argtab[2].meltbp_long = 2947; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_define function return sdefun"; @@ -15564,7 +15564,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V98*/ meltfptr[97];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2942:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2947:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[12] = 0; /*^clear */ @@ -15578,7 +15578,7 @@ lab_endgetargs:; /*_.IF___V97*/ meltfptr[96] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2942:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2947:/ quasiblock"); /*_.PROGN___V99*/ meltfptr[97] = @@ -15588,7 +15588,7 @@ lab_endgetargs:; /*_.PROGN___V99*/ meltfptr[97];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2942:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2947:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V97*/ meltfptr[96] = 0; @@ -15601,7 +15601,7 @@ lab_endgetargs:; /*_.IFCPP___V96*/ meltfptr[82] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2943:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2948:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -15611,7 +15611,7 @@ lab_endgetargs:; /*_.SDEFUN__V78*/ meltfptr[70];; { - MELT_LOCATION ("warmelt-macro.melt:2943:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2948:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15627,7 +15627,7 @@ lab_endgetargs:; /*_.LET___V94*/ meltfptr[89] = /*_.RETURN___V100*/ meltfptr[96];; - MELT_LOCATION ("warmelt-macro.melt:2939:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2944:/ clear"); /*clear *//*_.BODYTUP__V95*/ meltfptr[74] = 0; /*^clear */ /*clear *//*_.IFCPP___V96*/ meltfptr[82] = 0; @@ -15635,7 +15635,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V100*/ meltfptr[96] = 0; /*_.LET___V76*/ meltfptr[29] = /*_.LET___V94*/ meltfptr[89];; - MELT_LOCATION ("warmelt-macro.melt:2917:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2922:/ clear"); /*clear *//*_.NEWENV__V77*/ meltfptr[69] = 0; /*^clear */ /*clear *//*_.SDEFUN__V78*/ meltfptr[70] = 0; @@ -15651,7 +15651,7 @@ lab_endgetargs:; /*clear *//*_.LET___V94*/ meltfptr[89] = 0; /*_.LET___V51*/ meltfptr[32] = /*_.LET___V76*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:2891:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2896:/ clear"); /*clear *//*_.FLOC__V52*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.FCONT__V53*/ meltfptr[35] = 0; @@ -15689,7 +15689,7 @@ lab_endgetargs:; /*_.LET___V51*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2890:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2895:/ clear"); /*clear *//*_.LET___V51*/ meltfptr[32] = 0; } ; @@ -15703,7 +15703,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2948:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2953:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), @@ -15711,13 +15711,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2949:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2954:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:2949:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2954:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15730,7 +15730,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:2947:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2952:/ quasiblock"); /*_.PROGN___V102*/ meltfptr[74] = @@ -15740,7 +15740,7 @@ lab_endgetargs:; /*_.PROGN___V102*/ meltfptr[74];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2890:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2895:/ clear"); /*clear *//*_.RETURN___V101*/ meltfptr[97] = 0; /*^clear */ /*clear *//*_.PROGN___V102*/ meltfptr[74] = 0; @@ -15751,7 +15751,7 @@ lab_endgetargs:; /*_.IFELSE___V20*/ meltfptr[16] = /*_.IFELSE___V50*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2855:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2860:/ clear"); /*clear *//*_#IS_A__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V50*/ meltfptr[46] = 0; @@ -15761,7 +15761,7 @@ lab_endgetargs:; ; /*_.LET___V10*/ meltfptr[8] = /*_.IFELSE___V20*/ meltfptr[16];; - MELT_LOCATION ("warmelt-macro.melt:2846:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2851:/ clear"); /*clear *//*_.CONT__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.LOC__V12*/ meltfptr[11] = 0; @@ -15777,7 +15777,7 @@ lab_endgetargs:; /*clear *//*_#IS_A__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V20*/ meltfptr[16] = 0; - MELT_LOCATION ("warmelt-macro.melt:2843:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -15786,7 +15786,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { - MELT_LOCATION ("warmelt-macro.melt:2843:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15903,7 +15903,7 @@ meltrout_45_warmelt_macro_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2938:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2943:/ getarg"); /*_.FB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -15937,7 +15937,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:2938:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2943:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16050,7 +16050,7 @@ meltrout_46_warmelt_macro_SCAN_DEFCLASS (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:2964:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -16089,7 +16089,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:2965:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2970:/ quasiblock"); /*_.PREDEF__V7*/ meltfptr[6] = ( /*nil */ NULL);; @@ -16103,7 +16103,7 @@ lab_endgetargs:; /*_.FIELDNAMS__V11*/ meltfptr[10] = ( /*nil */ NULL);; /*^compute */ /*_.DOCV__V12*/ meltfptr[11] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:2971:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2976:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -16111,7 +16111,7 @@ lab_endgetargs:; /*_.CONT__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:2972:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:2977:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -16131,7 +16131,7 @@ lab_endgetargs:; (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2977:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:2982:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16157,7 +16157,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2977:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2982:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16172,7 +16172,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2977:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2982:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16185,7 +16185,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2977; + argtab[2].meltbp_long = 2982; /*^apply.arg */ argtab[3].meltbp_cstring = "scan_defclass sexpr"; /*^apply.arg */ @@ -16205,7 +16205,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2977:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2982:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0; @@ -16218,7 +16218,7 @@ lab_endgetargs:; /*_.IF___V20*/ meltfptr[19] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2977:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2982:/ quasiblock"); /*_.PROGN___V22*/ meltfptr[20] = /*_.IF___V20*/ meltfptr[19];; @@ -16226,7 +16226,7 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[18] = /*_.PROGN___V22*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2977:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2982:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V20*/ meltfptr[19] = 0; @@ -16239,14 +16239,14 @@ lab_endgetargs:; /*_.IFCPP___V19*/ meltfptr[18] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2978:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2983:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L3*/ meltfnum[1] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:2978:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2983:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16256,7 +16256,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2979:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2984:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("missing symbol for DEFCLASS"), @@ -16270,10 +16270,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V23*/ meltfptr[19] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION ("warmelt-macro.melt:2980:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2985:/ compute"); /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V24*/ meltfptr[20] = /*_.PAIR_TAIL__V23*/ meltfptr[19];; - MELT_LOCATION ("warmelt-macro.melt:2981:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:2986:/ loop"); /*loop */ { labloop_SCANLOOP_1:; /*^loopbody */ @@ -16285,7 +16285,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:2982:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2987:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L4*/ meltfnum[0] = @@ -16294,7 +16294,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L5*/ meltfnum[4] = (!( /*_#IS_PAIR__L4*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:2982:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2987:/ cond"); /*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -16319,12 +16319,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:2983:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2988:/ quasiblock"); /*_.CURKW__V28*/ meltfptr[27] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION ("warmelt-macro.melt:2984:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2989:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L6*/ meltfnum[5] = @@ -16334,7 +16334,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L7*/ meltfnum[6] = (!( /*_#IS_A__L6*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-macro.melt:2984:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2989:/ cond"); /*cond */ if ( /*_#NOT__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -16344,7 +16344,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2985:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2990:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("expecting keyword in DEFCLASS"), @@ -16358,10 +16358,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V29*/ meltfptr[28] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION ("warmelt-macro.melt:2986:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2991:/ compute"); /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V30*/ meltfptr[29] = /*_.PAIR_TAIL__V29*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:2987:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2992:/ quasiblock"); /*_.CURVAL__V32*/ meltfptr[31] = @@ -16369,16 +16369,16 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V33*/ meltfptr[32] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));; - MELT_LOCATION ("warmelt-macro.melt:2988:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2993:/ compute"); /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V34*/ meltfptr[33] = /*_.PAIR_TAIL__V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:2990:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2995:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L8*/ meltfnum[7] = (( /*_.CURKW__V28*/ meltfptr[27]) == (( /*!konst_3_SUPER */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:2990:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2995:/ cond"); /*cond */ if ( /*_#__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -16386,7 +16386,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:2991:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2996:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -16412,7 +16412,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:2992:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2997:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L9*/ meltfnum[8] = @@ -16423,7 +16423,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L10*/ meltfnum[9] = (!( /*_#IS_A__L9*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-macro.melt:2992:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:2997:/ cond"); /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -16433,7 +16433,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:2993:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2998:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), @@ -16446,12 +16446,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:2994:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:2999:/ compute"); /*_.SUPERNAM__V8*/ meltfptr[7] = /*_.SETQ___V36*/ meltfptr[35] = /*_.CURVAL__V32*/ meltfptr[31];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:2995:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3000:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16477,7 +16477,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:2995:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3000:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -16492,7 +16492,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:2995:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3000:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16506,7 +16506,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 2995; + argtab[2].meltbp_long = 3000; /*^apply.arg */ argtab[3].meltbp_cstring = "scan_defclass supernam"; /*^apply.arg */ @@ -16527,7 +16527,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2995:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3000:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0; @@ -16540,7 +16540,7 @@ lab_endgetargs:; /*_.IF___V38*/ meltfptr[37] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:2995:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3000:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[38] = /*_.IF___V38*/ meltfptr[37];; @@ -16549,7 +16549,7 @@ lab_endgetargs:; /*_.PROGN___V40*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2995:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3000:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V38*/ meltfptr[37] = 0; @@ -16562,7 +16562,7 @@ lab_endgetargs:; /*_.IFCPP___V37*/ meltfptr[36] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:2996:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3001:/ quasiblock"); /*^checksignal */ @@ -16584,7 +16584,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:2999:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3004:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L13*/ meltfnum[11] = @@ -16592,7 +16592,7 @@ lab_endgetargs:; ( /*_.SUPERB__V42*/ meltfptr[38]), (melt_ptr_t) (( /*!CLASS_CLASS_BINDING */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:2999:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3004:/ cond"); /*cond */ if ( /*_#IS_A__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -16600,11 +16600,11 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3000:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3005:/ compute"); /*_.SUPERBIND__V9*/ meltfptr[8] = /*_.SETQ___V44*/ meltfptr[43] = /*_.SUPERB__V42*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:3001:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3006:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -16618,7 +16618,7 @@ lab_endgetargs:; /*_.SUPERCLASS__V10*/ meltfptr[9] = /*_.SETQ___V46*/ meltfptr[45] = /*_.CBIND_CLASS__V45*/ meltfptr[44];; - MELT_LOCATION ("warmelt-macro.melt:2999:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3004:/ quasiblock"); /*_.PROGN___V47*/ meltfptr[46] = @@ -16628,7 +16628,7 @@ lab_endgetargs:; /*_.PROGN___V47*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2999:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3004:/ clear"); /*clear *//*_.SETQ___V44*/ meltfptr[43] = 0; /*^clear */ /*clear *//*_.CBIND_CLASS__V45*/ meltfptr[44] = 0; @@ -16646,14 +16646,14 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3003:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3008:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L14*/ meltfnum[10] = melt_is_instance_of ((melt_ptr_t) ( /*_.SUPERB__V42*/ meltfptr[38]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:3003:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3008:/ cond"); /*cond */ if ( /*_#IS_A__L14*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -16662,7 +16662,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3004:/ quasiblock"); + ("warmelt-macro.melt:3009:/ quasiblock"); /*^getslot */ @@ -16677,7 +16677,7 @@ lab_endgetargs:; }; ; MELT_LOCATION - ("warmelt-macro.melt:3005:/ checksignal"); + ("warmelt-macro.melt:3010:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L15*/ meltfnum[14] = @@ -16685,7 +16685,7 @@ lab_endgetargs:; ( /*_.SUPERVAL__V50*/ meltfptr[45]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-macro.melt:3005:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3010:/ cond"); /*cond */ if ( /*_#IS_A__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -16694,17 +16694,17 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3007:/ compute"); + ("warmelt-macro.melt:3012:/ compute"); /*_.SUPERBIND__V9*/ meltfptr[8] = /*_.SETQ___V52*/ meltfptr[51] = /*_.SUPERB__V42*/ meltfptr[38];; MELT_LOCATION - ("warmelt-macro.melt:3008:/ compute"); + ("warmelt-macro.melt:3013:/ compute"); /*_.SUPERCLASS__V10*/ meltfptr[9] = /*_.SETQ___V53*/ meltfptr[52] = /*_.SUPERVAL__V50*/ meltfptr[45];; MELT_LOCATION - ("warmelt-macro.melt:3006:/ quasiblock"); + ("warmelt-macro.melt:3011:/ quasiblock"); /*_.PROGN___V54*/ meltfptr[53] = @@ -16715,7 +16715,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3005:/ clear"); + ("warmelt-macro.melt:3010:/ clear"); /*clear *//*_.SETQ___V52*/ meltfptr[51] = 0; /*^clear */ /*clear *//*_.SETQ___V53*/ meltfptr[52] = 0; @@ -16732,7 +16732,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3011:/ getslot"); + ("warmelt-macro.melt:3016:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -16748,7 +16748,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3010:/ locexp"); + ("warmelt-macro.melt:3015:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), @@ -16760,7 +16760,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3005:/ clear"); + ("warmelt-macro.melt:3010:/ clear"); /*clear *//*_.NAMED_NAME__V55*/ meltfptr[51] = 0; } @@ -16770,7 +16770,7 @@ lab_endgetargs:; /*_.LET___V49*/ meltfptr[44] = /*_.IFELSE___V51*/ meltfptr[46];; - MELT_LOCATION ("warmelt-macro.melt:3004:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3009:/ clear"); /*clear *//*_.SUPERVAL__V50*/ meltfptr[45] = 0; /*^clear */ /*clear *//*_#IS_A__L15*/ meltfnum[14] = 0; @@ -16780,7 +16780,7 @@ lab_endgetargs:; /*_.LET___V49*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3003:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3008:/ clear"); /*clear *//*_.LET___V49*/ meltfptr[44] = 0; } ; @@ -16795,7 +16795,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:3014:/ cppif.then"); + ("warmelt-macro.melt:3019:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16821,7 +16821,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3014:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3019:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -16837,7 +16837,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:3014:/ checksignal"); + ("warmelt-macro.melt:3019:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16853,7 +16853,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3014; + argtab[2].meltbp_long = 3019; /*^apply.arg */ argtab[3].meltbp_cstring = "scan_defclass superb"; @@ -16881,7 +16881,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3014:/ clear"); + ("warmelt-macro.melt:3019:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0; /*^clear */ @@ -16897,7 +16897,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3014:/ quasiblock"); + ("warmelt-macro.melt:3019:/ quasiblock"); /*_.PROGN___V59*/ meltfptr[45] = @@ -16907,7 +16907,7 @@ lab_endgetargs:; /*_.PROGN___V59*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3014:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3019:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0; /*^clear */ @@ -16924,7 +16924,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:3015:/ cppif.then"); + ("warmelt-macro.melt:3020:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16950,7 +16950,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3015:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3020:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -16966,7 +16966,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:3015:/ checksignal"); + ("warmelt-macro.melt:3020:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16982,7 +16982,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3015; + argtab[2].meltbp_long = 3020; /*^apply.arg */ argtab[3].meltbp_cstring = "scan_defclass env"; @@ -17010,7 +17010,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3015:/ clear"); + ("warmelt-macro.melt:3020:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[14] = 0; /*^clear */ @@ -17026,7 +17026,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3015:/ quasiblock"); + ("warmelt-macro.melt:3020:/ quasiblock"); /*_.PROGN___V63*/ meltfptr[53] = @@ -17036,7 +17036,7 @@ lab_endgetargs:; /*_.PROGN___V63*/ meltfptr[53];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3015:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3020:/ clear"); /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0; /*^clear */ @@ -17050,7 +17050,7 @@ lab_endgetargs:; /*_.IFCPP___V60*/ meltfptr[46] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3017:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3022:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -17064,7 +17064,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3016:/ locexp"); + ("warmelt-macro.melt:3021:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("invalid super in defclass"), @@ -17072,12 +17072,12 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3013:/ quasiblock"); + ("warmelt-macro.melt:3018:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3003:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3008:/ clear"); /*clear *//*_.IFCPP___V56*/ meltfptr[52] = 0; /*^clear */ /*clear *//*_.IFCPP___V60*/ meltfptr[46] = 0; @@ -17091,7 +17091,7 @@ lab_endgetargs:; /*_.IFELSE___V48*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2999:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3004:/ clear"); /*clear *//*_#IS_A__L14*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IFELSE___V48*/ meltfptr[43] = 0; @@ -17101,13 +17101,13 @@ lab_endgetargs:; ; /*_.LET___V41*/ meltfptr[37] = /*_.IFELSE___V43*/ meltfptr[42];; - MELT_LOCATION ("warmelt-macro.melt:2996:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3001:/ clear"); /*clear *//*_.SUPERB__V42*/ meltfptr[38] = 0; /*^clear */ /*clear *//*_#IS_A__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IFELSE___V43*/ meltfptr[42] = 0; - MELT_LOCATION ("warmelt-macro.melt:2990:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2995:/ quasiblock"); /*_.PROGN___V65*/ meltfptr[51] = /*_.LET___V41*/ meltfptr[37];; @@ -17116,7 +17116,7 @@ lab_endgetargs:; /*_.PROGN___V65*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2990:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2995:/ clear"); /*clear *//*_#IS_A__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_#NOT__L10*/ meltfnum[9] = 0; @@ -17138,13 +17138,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3021:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3026:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L20*/ meltfnum[14] = (( /*_.CURKW__V28*/ meltfptr[27]) == (( /*!konst_8_FIELDS */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-macro.melt:3021:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3026:/ cond"); /*cond */ if ( /*_#__L20*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -17152,7 +17152,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3022:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3027:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -17178,7 +17178,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3023:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3028:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -17190,7 +17190,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3024:/ checksignal"); + ("warmelt-macro.melt:3029:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L21*/ meltfnum[16] = @@ -17198,7 +17198,7 @@ lab_endgetargs:; ( /*_.CURVAL__V32*/ meltfptr[31]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-macro.melt:3024:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3029:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L21*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -17209,7 +17209,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3025:/ locexp"); + ("warmelt-macro.melt:3030:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ @@ -17225,13 +17225,13 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3023:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3028:/ clear"); /*clear *//*_#IS_NOT_A__L21*/ meltfnum[16] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3026:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3031:/ quasiblock"); /*^checksignal */ @@ -17260,7 +17260,7 @@ lab_endgetargs:; /*_.SEXP_CONTENTS__V69*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3026:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3031:/ clear"); /*clear *//*_.SEXP_CONTENTS__V69*/ meltfptr[46] = 0; } ; @@ -17271,7 +17271,7 @@ lab_endgetargs:; /*_.NAMLIST__V68*/ meltfptr[52] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3027:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3032:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -17297,7 +17297,7 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V71*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3027:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3032:/ clear"); /*clear *//*_.LOCA_LOCATION__V71*/ meltfptr[43] = 0; } ; @@ -17324,11 +17324,11 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[10])), ( /*_#NBNAM__L22*/ meltfnum[10])));; - MELT_LOCATION ("warmelt-macro.melt:3032:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3037:/ compute"); /*_.FIELDSLOC__V15*/ meltfptr[14] = /*_.SETQ___V74*/ meltfptr[35] = /*_.NAMLOC__V70*/ meltfptr[45];; - MELT_LOCATION ("warmelt-macro.melt:3033:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:3038:/ loop"); /*loop */ { labloop_NAMLOOP_1:; @@ -17342,7 +17342,7 @@ lab_endgetargs:; MELT_CHECK_SIGNAL (); ; MELT_LOCATION - ("warmelt-macro.melt:3034:/ checksignal"); + ("warmelt-macro.melt:3039:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L24*/ meltfnum[8] = @@ -17352,7 +17352,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L25*/ meltfnum[9] = (!( /*_#IS_PAIR__L24*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-macro.melt:3034:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3039:/ cond"); /*cond */ if ( /*_#NOT__L25*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -17378,7 +17378,7 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION - ("warmelt-macro.melt:3035:/ quasiblock"); + ("warmelt-macro.melt:3040:/ quasiblock"); /*_.CURNAM__V77*/ meltfptr[51] = @@ -17386,7 +17386,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.NAMPAIR__V72*/ meltfptr[38])));; MELT_LOCATION - ("warmelt-macro.melt:3036:/ checksignal"); + ("warmelt-macro.melt:3041:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L26*/ meltfnum[16] = @@ -17397,7 +17397,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L27*/ meltfnum[26] = (!( /*_#IS_A__L26*/ meltfnum[16]));; - MELT_LOCATION ("warmelt-macro.melt:3036:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3041:/ cond"); /*cond */ if ( /*_#NOT__L27*/ meltfnum[26]) /*then */ { /*^cond.then */ @@ -17408,7 +17408,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3037:/ locexp"); + ("warmelt-macro.melt:3042:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.NAMLOC__V70*/ @@ -17424,7 +17424,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3038:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3043:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) ( /*_.NAMTUPL__V73*/ meltfptr[42]), @@ -17434,7 +17434,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-macro.melt:3035:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3040:/ clear"); /*clear *//*_.CURNAM__V77*/ meltfptr[51] = 0; /*^clear */ /*clear *//*_#IS_A__L26*/ meltfnum[16] = 0; @@ -17444,18 +17444,18 @@ lab_endgetargs:; (melt_pair_tail ((melt_ptr_t) ( /*_.NAMPAIR__V72*/ meltfptr[38])));; - MELT_LOCATION ("warmelt-macro.melt:3040:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3045:/ compute"); /*_.NAMPAIR__V72*/ meltfptr[38] = /*_.SETQ___V79*/ meltfptr[43] = /*_.PAIR_TAIL__V78*/ meltfptr[46];; /*_#I__L28*/ meltfnum[16] = (( /*_#IX__L23*/ meltfnum[11]) + (1));; - MELT_LOCATION ("warmelt-macro.melt:3041:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3046:/ compute"); /*_#IX__L23*/ meltfnum[11] = /*_#SETQ___L29*/ meltfnum[26] = /*_#I__L28*/ meltfnum[16];; MELT_LOCATION - ("warmelt-macro.melt:3033:/ checksignal"); + ("warmelt-macro.melt:3038:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -17483,14 +17483,14 @@ lab_endgetargs:; /*_.NAMLOOP__V76*/ meltfptr[37];; } ; - MELT_LOCATION ("warmelt-macro.melt:3043:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3048:/ compute"); /*_.FIELDNAMS__V11*/ meltfptr[10] = /*_.SETQ___V80*/ meltfptr[51] = /*_.NAMTUPL__V73*/ meltfptr[42];; /*_.LET___V67*/ meltfptr[53] = /*_.SETQ___V80*/ meltfptr[51];; - MELT_LOCATION ("warmelt-macro.melt:3026:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3031:/ clear"); /*clear *//*_.NAMLIST__V68*/ meltfptr[52] = 0; /*^clear */ /*clear *//*_.NAMLOC__V70*/ meltfptr[45] = 0; @@ -17508,7 +17508,7 @@ lab_endgetargs:; /*clear *//*_.FOREVER___V75*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.SETQ___V80*/ meltfptr[51] = 0; - MELT_LOCATION ("warmelt-macro.melt:3021:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3026:/ quasiblock"); /*_.PROGN___V81*/ meltfptr[46] = @@ -17518,7 +17518,7 @@ lab_endgetargs:; /*_.PROGN___V81*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3021:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3026:/ clear"); /*clear *//*_.LET___V67*/ meltfptr[53] = 0; /*^clear */ /*clear *//*_.PROGN___V81*/ meltfptr[46] = 0; @@ -17532,13 +17532,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3045:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3050:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L30*/ meltfnum[8] = (( /*_.CURKW__V28*/ meltfptr[27]) == (( /*!konst_11_PREDEF */ meltfrout->tabval[11])));; - MELT_LOCATION ("warmelt-macro.melt:3045:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3050:/ cond"); /*cond */ if ( /*_#__L30*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -17547,7 +17547,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3046:/ checksignal"); + ("warmelt-macro.melt:3051:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -17575,7 +17575,7 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION - ("warmelt-macro.melt:3047:/ checksignal"); + ("warmelt-macro.melt:3052:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17608,14 +17608,14 @@ lab_endgetargs:; /*_.SETQ___V84*/ meltfptr[45] = /*_.MEXPANDER__V83*/ meltfptr[52];; MELT_LOCATION - ("warmelt-macro.melt:3049:/ checksignal"); + ("warmelt-macro.melt:3054:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_INTEGERBOX__L31*/ meltfnum[9] = (melt_magic_discr ((melt_ptr_t) ( /*_.PREDEF__V7*/ meltfptr[6])) == MELTOBMAG_INT);; - MELT_LOCATION ("warmelt-macro.melt:3049:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3054:/ cond"); /*cond */ if ( /*_#IS_INTEGERBOX__L31*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -17625,14 +17625,14 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:3049:/ cond.else"); + ("warmelt-macro.melt:3054:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-macro.melt:3052:/ checksignal"); + ("warmelt-macro.melt:3057:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L32*/ meltfnum[16] = @@ -17641,7 +17641,7 @@ lab_endgetargs:; meltfptr[6]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[1])));; MELT_LOCATION - ("warmelt-macro.melt:3052:/ cond"); + ("warmelt-macro.melt:3057:/ cond"); /*cond */ if ( /*_#IS_A__L32*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -17651,7 +17651,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:3052:/ cond.else"); + ("warmelt-macro.melt:3057:/ cond.else"); /*^block */ /*anyblock */ @@ -17660,7 +17660,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3056:/ locexp"); + ("warmelt-macro.melt:3061:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ @@ -17670,7 +17670,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3055:/ quasiblock"); + ("warmelt-macro.melt:3060:/ quasiblock"); /*epilog */ @@ -17683,7 +17683,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3049:/ clear"); + ("warmelt-macro.melt:3054:/ clear"); /*clear *//*_#IS_A__L32*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.IFELSE___V86*/ meltfptr[42] = 0; @@ -17692,7 +17692,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3045:/ quasiblock"); + ("warmelt-macro.melt:3050:/ quasiblock"); /*_.PROGN___V87*/ meltfptr[35] = @@ -17702,7 +17702,7 @@ lab_endgetargs:; /*_.PROGN___V87*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3045:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3050:/ clear"); /*clear *//*_.MEXPANDER__V83*/ meltfptr[52] = 0; /*^clear */ /*clear *//*_.SETQ___V84*/ meltfptr[45] = 0; @@ -17723,13 +17723,13 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3060:/ checksignal"); + ("warmelt-macro.melt:3065:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L33*/ meltfnum[26] = (( /*_.CURKW__V28*/ meltfptr[27]) == (( /*!konst_12_DOC */ meltfrout->tabval[12])));; - MELT_LOCATION ("warmelt-macro.melt:3060:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3065:/ cond"); /*cond */ if ( /*_#__L33*/ meltfnum[26]) /*then */ { /*^cond.then */ @@ -17738,7 +17738,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3061:/ checksignal"); + ("warmelt-macro.melt:3066:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -17766,12 +17766,12 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION - ("warmelt-macro.melt:3063:/ compute"); + ("warmelt-macro.melt:3068:/ compute"); /*_.DOCV__V12*/ meltfptr[11] = /*_.SETQ___V89*/ meltfptr[51] = /*_.CURVAL__V32*/ meltfptr[31];; MELT_LOCATION - ("warmelt-macro.melt:3060:/ quasiblock"); + ("warmelt-macro.melt:3065:/ quasiblock"); /*_.PROGN___V90*/ meltfptr[53] = @@ -17782,7 +17782,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3060:/ clear"); + ("warmelt-macro.melt:3065:/ clear"); /*clear *//*_.SETQ___V89*/ meltfptr[51] = 0; /*^clear */ /*clear *//*_.PROGN___V90*/ meltfptr[53] = 0; @@ -17797,7 +17797,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3067:/ getslot"); + ("warmelt-macro.melt:3072:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -17811,7 +17811,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3066:/ locexp"); + ("warmelt-macro.melt:3071:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), @@ -17820,13 +17820,13 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3065:/ quasiblock"); + ("warmelt-macro.melt:3070:/ quasiblock"); /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3060:/ clear"); + ("warmelt-macro.melt:3065:/ clear"); /*clear *//*_.NAMED_NAME__V91*/ meltfptr[46] = 0; } @@ -17837,7 +17837,7 @@ lab_endgetargs:; /*_.IFELSE___V88*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3045:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3050:/ clear"); /*clear *//*_#__L33*/ meltfnum[26] = 0; /*^clear */ /*clear *//*_.IFELSE___V88*/ meltfptr[36] = 0; @@ -17849,7 +17849,7 @@ lab_endgetargs:; /*_.IFELSE___V82*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3021:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3026:/ clear"); /*clear *//*_#__L30*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V82*/ meltfptr[43] = 0; @@ -17861,7 +17861,7 @@ lab_endgetargs:; /*_.IFELSE___V66*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:2990:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2995:/ clear"); /*clear *//*_#__L20*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IFELSE___V66*/ meltfptr[44] = 0; @@ -17871,7 +17871,7 @@ lab_endgetargs:; ; /*_.LET___V31*/ meltfptr[30] = /*_.IFELSE___V35*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:2987:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2992:/ clear"); /*clear *//*_.CURVAL__V32*/ meltfptr[31] = 0; /*^clear */ /*clear *//*_.PAIR_TAIL__V33*/ meltfptr[32] = 0; @@ -17883,7 +17883,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V35*/ meltfptr[34] = 0; /*_.LET___V27*/ meltfptr[26] = /*_.LET___V31*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:2983:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2988:/ clear"); /*clear *//*_.CURKW__V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_#IS_A__L6*/ meltfnum[5] = 0; @@ -17895,7 +17895,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.LET___V31*/ meltfptr[30] = 0; - MELT_LOCATION ("warmelt-macro.melt:2981:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:2986:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -17917,7 +17917,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3070:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3075:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17943,7 +17943,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3070:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3075:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L34*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -17958,7 +17958,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3070:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3075:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17972,7 +17972,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3070; + argtab[2].meltbp_long = 3075; /*^apply.arg */ argtab[3].meltbp_cstring = "scan_defclass returns symb"; /*^apply.arg */ @@ -17992,7 +17992,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V94*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3070:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3075:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L35*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V94*/ meltfptr[45] = 0; @@ -18005,7 +18005,7 @@ lab_endgetargs:; /*_.IF___V93*/ meltfptr[52] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3070:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3075:/ quasiblock"); /*_.PROGN___V95*/ meltfptr[38] = /*_.IF___V93*/ meltfptr[52];; @@ -18013,7 +18013,7 @@ lab_endgetargs:; /*_.IFCPP___V92*/ meltfptr[42] = /*_.PROGN___V95*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3070:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3075:/ clear"); /*clear *//*_#MELT_NEED_DBG__L34*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V93*/ meltfptr[52] = 0; @@ -18028,7 +18028,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3071:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3076:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18054,7 +18054,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3071:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3076:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L36*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -18069,7 +18069,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3071:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3076:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18083,7 +18083,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3071; + argtab[2].meltbp_long = 3076; /*^apply.arg */ argtab[3].meltbp_cstring = "scan_defclass returns loc"; /*^apply.arg */ @@ -18103,7 +18103,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V98*/ meltfptr[53];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3071:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3076:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L37*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V98*/ meltfptr[53] = 0; @@ -18116,7 +18116,7 @@ lab_endgetargs:; /*_.IF___V97*/ meltfptr[51] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3071:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3076:/ quasiblock"); /*_.PROGN___V99*/ meltfptr[46] = /*_.IF___V97*/ meltfptr[51];; @@ -18124,7 +18124,7 @@ lab_endgetargs:; /*_.IFCPP___V96*/ meltfptr[35] = /*_.PROGN___V99*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3071:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3076:/ clear"); /*clear *//*_#MELT_NEED_DBG__L36*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.IF___V97*/ meltfptr[51] = 0; @@ -18139,7 +18139,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3072:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3077:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18165,7 +18165,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3072:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3077:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L38*/ meltfnum[26]) /*then */ { /*^cond.then */ @@ -18180,7 +18180,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3072:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3077:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18194,7 +18194,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3072; + argtab[2].meltbp_long = 3077; /*^apply.arg */ argtab[3].meltbp_cstring = "scan_defclass returns supernam"; /*^apply.arg */ @@ -18214,7 +18214,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V102*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3072:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3077:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L39*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V102*/ meltfptr[44] = 0; @@ -18227,7 +18227,7 @@ lab_endgetargs:; /*_.IF___V101*/ meltfptr[43] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3072:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3077:/ quasiblock"); /*_.PROGN___V103*/ meltfptr[31] = /*_.IF___V101*/ meltfptr[43];; @@ -18235,7 +18235,7 @@ lab_endgetargs:; /*_.IFCPP___V100*/ meltfptr[36] = /*_.PROGN___V103*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3072:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3077:/ clear"); /*clear *//*_#MELT_NEED_DBG__L38*/ meltfnum[26] = 0; /*^clear */ /*clear *//*_.IF___V101*/ meltfptr[43] = 0; @@ -18250,7 +18250,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3073:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3078:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18276,7 +18276,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3073:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3078:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L40*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -18291,7 +18291,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3073:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3078:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18305,7 +18305,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3073; + argtab[2].meltbp_long = 3078; /*^apply.arg */ argtab[3].meltbp_cstring = "scan_defclass returns superbinds"; /*^apply.arg */ @@ -18325,7 +18325,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V106*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3073:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3078:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L41*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V106*/ meltfptr[34] = 0; @@ -18338,7 +18338,7 @@ lab_endgetargs:; /*_.IF___V105*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3073:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3078:/ quasiblock"); /*_.PROGN___V107*/ meltfptr[27] = /*_.IF___V105*/ meltfptr[33];; @@ -18346,7 +18346,7 @@ lab_endgetargs:; /*_.IFCPP___V104*/ meltfptr[32] = /*_.PROGN___V107*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3073:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3078:/ clear"); /*clear *//*_#MELT_NEED_DBG__L40*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IF___V105*/ meltfptr[33] = 0; @@ -18361,7 +18361,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3074:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3079:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18387,7 +18387,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3074:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3079:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L42*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -18402,7 +18402,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3074:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3079:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18416,7 +18416,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3074; + argtab[2].meltbp_long = 3079; /*^apply.arg */ argtab[3].meltbp_cstring = "scan_defclass returns superclass"; /*^apply.arg */ @@ -18436,7 +18436,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V110*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3074:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3079:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L43*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V110*/ meltfptr[30] = 0; @@ -18449,7 +18449,7 @@ lab_endgetargs:; /*_.IF___V109*/ meltfptr[29] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3074:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3079:/ quasiblock"); /*_.PROGN___V111*/ meltfptr[26] = /*_.IF___V109*/ meltfptr[29];; @@ -18457,7 +18457,7 @@ lab_endgetargs:; /*_.IFCPP___V108*/ meltfptr[28] = /*_.PROGN___V111*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3074:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3079:/ clear"); /*clear *//*_#MELT_NEED_DBG__L42*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IF___V109*/ meltfptr[29] = 0; @@ -18472,7 +18472,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3075:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3080:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18498,7 +18498,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3075:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3080:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L44*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18513,7 +18513,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3075:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3080:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18527,7 +18527,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3075; + argtab[2].meltbp_long = 3080; /*^apply.arg */ argtab[3].meltbp_cstring = "scan_defclass returns predef"; /*^apply.arg */ @@ -18547,7 +18547,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V114*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3075:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3080:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L45*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V114*/ meltfptr[38] = 0; @@ -18560,7 +18560,7 @@ lab_endgetargs:; /*_.IF___V113*/ meltfptr[52] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3075:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3080:/ quasiblock"); /*_.PROGN___V115*/ meltfptr[53] = /*_.IF___V113*/ meltfptr[52];; @@ -18568,7 +18568,7 @@ lab_endgetargs:; /*_.IFCPP___V112*/ meltfptr[45] = /*_.PROGN___V115*/ meltfptr[53];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3075:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3080:/ clear"); /*clear *//*_#MELT_NEED_DBG__L44*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V113*/ meltfptr[52] = 0; @@ -18583,7 +18583,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3076:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3081:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18609,7 +18609,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3076:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3081:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L46*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -18624,7 +18624,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3076:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3081:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18638,7 +18638,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3076; + argtab[2].meltbp_long = 3081; /*^apply.arg */ argtab[3].meltbp_cstring = "scan_defclass returns fieldnams"; /*^apply.arg */ @@ -18658,7 +18658,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V118*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3076:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3081:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L47*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V118*/ meltfptr[44] = 0; @@ -18671,7 +18671,7 @@ lab_endgetargs:; /*_.IF___V117*/ meltfptr[46] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3076:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3081:/ quasiblock"); /*_.PROGN___V119*/ meltfptr[43] = /*_.IF___V117*/ meltfptr[46];; @@ -18679,7 +18679,7 @@ lab_endgetargs:; /*_.IFCPP___V116*/ meltfptr[51] = /*_.PROGN___V119*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3076:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3081:/ clear"); /*clear *//*_#MELT_NEED_DBG__L46*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V117*/ meltfptr[46] = 0; @@ -18694,7 +18694,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3077:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3082:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18720,7 +18720,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3077:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3082:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L48*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -18735,7 +18735,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3077:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3082:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18749,7 +18749,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3077; + argtab[2].meltbp_long = 3082; /*^apply.arg */ argtab[3].meltbp_cstring = "scan_defclass returns fieldsloc"; /*^apply.arg */ @@ -18769,7 +18769,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V122*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3077:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3082:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L49*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V122*/ meltfptr[33] = 0; @@ -18782,7 +18782,7 @@ lab_endgetargs:; /*_.IF___V121*/ meltfptr[34] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3077:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3082:/ quasiblock"); /*_.PROGN___V123*/ meltfptr[27] = /*_.IF___V121*/ meltfptr[34];; @@ -18790,7 +18790,7 @@ lab_endgetargs:; /*_.IFCPP___V120*/ meltfptr[31] = /*_.PROGN___V123*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3077:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3082:/ clear"); /*clear *//*_#MELT_NEED_DBG__L48*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V121*/ meltfptr[34] = 0; @@ -18805,7 +18805,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3078:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3083:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18831,7 +18831,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3078:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3083:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L50*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -18846,7 +18846,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3078:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3083:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18860,7 +18860,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3078; + argtab[2].meltbp_long = 3083; /*^apply.arg */ argtab[3].meltbp_cstring = "scan_defclass returns docv"; /*^apply.arg */ @@ -18880,7 +18880,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V126*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3078:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3083:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L51*/ meltfnum[26] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V126*/ meltfptr[26] = 0; @@ -18893,7 +18893,7 @@ lab_endgetargs:; /*_.IF___V125*/ meltfptr[29] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3078:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3083:/ quasiblock"); /*_.PROGN___V127*/ meltfptr[38] = /*_.IF___V125*/ meltfptr[29];; @@ -18901,7 +18901,7 @@ lab_endgetargs:; /*_.IFCPP___V124*/ meltfptr[30] = /*_.PROGN___V127*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3078:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3083:/ clear"); /*clear *//*_#MELT_NEED_DBG__L50*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IF___V125*/ meltfptr[29] = 0; @@ -18914,7 +18914,7 @@ lab_endgetargs:; /*_.IFCPP___V124*/ meltfptr[30] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3079:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3084:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18934,14 +18934,14 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3080:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3085:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.SYMB__V18*/ meltfptr[17];; - MELT_LOCATION ("warmelt-macro.melt:3080:/ putxtraresult"); + MELT_LOCATION ("warmelt-macro.melt:3085:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -19018,7 +19018,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V6*/ meltfptr[5] = /*_.RETURN___V129*/ meltfptr[53];; - MELT_LOCATION ("warmelt-macro.melt:2965:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:2970:/ clear"); /*clear *//*_.PREDEF__V7*/ meltfptr[6] = 0; /*^clear */ /*clear *//*_.SUPERNAM__V8*/ meltfptr[7] = 0; @@ -19074,13 +19074,13 @@ lab_endgetargs:; /*clear *//*_.WARN_IF_REDEFINED__V128*/ meltfptr[52] = 0; /*^clear */ /*clear *//*_.RETURN___V129*/ meltfptr[53] = 0; - MELT_LOCATION ("warmelt-macro.melt:2964:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-macro.melt:2964:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19194,7 +19194,7 @@ meltrout_47_warmelt_macro_MEXPAND_DEFCLASS (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3084:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19235,7 +19235,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3085:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3090:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19247,7 +19247,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3085:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3090:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19255,7 +19255,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3085:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3090:/ cond.else"); /*^block */ /*anyblock */ @@ -19269,7 +19269,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3085) ? (3085) : __LINE__, __FUNCTION__); + (3090) ? (3090) : __LINE__, __FUNCTION__); ; } ; @@ -19283,7 +19283,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3085:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3090:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -19296,7 +19296,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3086:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3091:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19308,7 +19308,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:3086:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3091:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19316,7 +19316,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3086:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3091:/ cond.else"); /*^block */ /*anyblock */ @@ -19330,7 +19330,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3086) ? (3086) : __LINE__, __FUNCTION__); + (3091) ? (3091) : __LINE__, __FUNCTION__); ; } ; @@ -19344,7 +19344,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3086:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3091:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -19357,7 +19357,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3087:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3092:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19383,7 +19383,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3087:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3092:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19398,7 +19398,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3087:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3092:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19411,7 +19411,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3087; + argtab[2].meltbp_long = 3092; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.defclass sexpr"; /*^apply.arg */ @@ -19431,7 +19431,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3087:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3092:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; @@ -19444,7 +19444,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[10] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3087:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3092:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];; @@ -19452,7 +19452,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3087:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3092:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V11*/ meltfptr[10] = 0; @@ -19465,10 +19465,10 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3090:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3095:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:3088:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3093:/ quasiblock"); /*^multiapply */ @@ -19521,7 +19521,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3091:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3096:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19547,7 +19547,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3091:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3096:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -19562,7 +19562,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3091:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3096:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19575,7 +19575,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3091; + argtab[2].meltbp_long = 3096; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.defclass scanned symb"; /*^apply.arg */ @@ -19595,7 +19595,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3091:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3096:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0; @@ -19608,7 +19608,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[24] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3091:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3096:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[25] = /*_.IF___V25*/ meltfptr[24];; @@ -19616,7 +19616,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[23] = /*_.PROGN___V27*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3091:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3096:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V25*/ meltfptr[24] = 0; @@ -19631,7 +19631,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3092:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3097:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19657,7 +19657,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3092:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3097:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19672,7 +19672,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3092:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3097:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19685,7 +19685,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3092; + argtab[2].meltbp_long = 3097; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.defclass scanned loc"; /*^apply.arg */ @@ -19705,7 +19705,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3092:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3097:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; @@ -19718,7 +19718,7 @@ lab_endgetargs:; /*_.IF___V29*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3092:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3097:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[25];; @@ -19726,7 +19726,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[24] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3092:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3097:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V29*/ meltfptr[25] = 0; @@ -19741,7 +19741,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3093:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3098:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19767,7 +19767,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3093:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3098:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -19782,7 +19782,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3093:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3098:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19796,7 +19796,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3093; + argtab[2].meltbp_long = 3098; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.defclass scanned supernam"; /*^apply.arg */ @@ -19816,7 +19816,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3093:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3098:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0; @@ -19829,7 +19829,7 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[29] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3093:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3098:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[33] = /*_.IF___V33*/ meltfptr[29];; @@ -19837,7 +19837,7 @@ lab_endgetargs:; /*_.IFCPP___V32*/ meltfptr[25] = /*_.PROGN___V35*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3093:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3098:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V33*/ meltfptr[29] = 0; @@ -19852,7 +19852,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3094:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3099:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19878,7 +19878,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3094:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3099:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19893,7 +19893,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3094:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3099:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19907,7 +19907,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3094; + argtab[2].meltbp_long = 3099; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.defclass scanned superbind"; /*^apply.arg */ @@ -19927,7 +19927,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3094:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3099:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0; @@ -19940,7 +19940,7 @@ lab_endgetargs:; /*_.IF___V37*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3094:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3099:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[37] = /*_.IF___V37*/ meltfptr[33];; @@ -19948,7 +19948,7 @@ lab_endgetargs:; /*_.IFCPP___V36*/ meltfptr[29] = /*_.PROGN___V39*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3094:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3099:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V37*/ meltfptr[33] = 0; @@ -19963,7 +19963,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3095:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3100:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19989,7 +19989,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3095:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3100:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -20004,7 +20004,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3095:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3100:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20018,7 +20018,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3095; + argtab[2].meltbp_long = 3100; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.defclass scanned superclass"; /*^apply.arg */ @@ -20038,7 +20038,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3095:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3100:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 0; @@ -20051,7 +20051,7 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[37] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3095:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3100:/ quasiblock"); /*_.PROGN___V43*/ meltfptr[41] = /*_.IF___V41*/ meltfptr[37];; @@ -20059,7 +20059,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[33] = /*_.PROGN___V43*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3095:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3100:/ clear"); /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V41*/ meltfptr[37] = 0; @@ -20074,7 +20074,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3096:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3101:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20100,7 +20100,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3096:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3101:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20115,7 +20115,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3096:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3101:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20129,7 +20129,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3096; + argtab[2].meltbp_long = 3101; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.defclass scanned predef"; /*^apply.arg */ @@ -20149,7 +20149,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3096:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3101:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 0; @@ -20162,7 +20162,7 @@ lab_endgetargs:; /*_.IF___V45*/ meltfptr[41] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3096:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3101:/ quasiblock"); /*_.PROGN___V47*/ meltfptr[45] = /*_.IF___V45*/ meltfptr[41];; @@ -20170,7 +20170,7 @@ lab_endgetargs:; /*_.IFCPP___V44*/ meltfptr[37] = /*_.PROGN___V47*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3096:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3101:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V45*/ meltfptr[41] = 0; @@ -20185,7 +20185,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3097:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3102:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20211,7 +20211,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3097:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3102:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -20226,7 +20226,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3097:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3102:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20240,7 +20240,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3097; + argtab[2].meltbp_long = 3102; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.defclass scanned fieldnams"; /*^apply.arg */ @@ -20260,7 +20260,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3097:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3102:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = 0; @@ -20273,7 +20273,7 @@ lab_endgetargs:; /*_.IF___V49*/ meltfptr[45] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3097:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3102:/ quasiblock"); /*_.PROGN___V51*/ meltfptr[49] = /*_.IF___V49*/ meltfptr[45];; @@ -20281,7 +20281,7 @@ lab_endgetargs:; /*_.IFCPP___V48*/ meltfptr[41] = /*_.PROGN___V51*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3097:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3102:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V49*/ meltfptr[45] = 0; @@ -20296,7 +20296,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3098:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3103:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20322,7 +20322,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3098:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3103:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20337,7 +20337,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3098:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3103:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20351,7 +20351,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3098; + argtab[2].meltbp_long = 3103; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.defclass scanned fieldsloc"; /*^apply.arg */ @@ -20371,7 +20371,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V54*/ meltfptr[53];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3098:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3103:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V54*/ meltfptr[53] = 0; @@ -20384,7 +20384,7 @@ lab_endgetargs:; /*_.IF___V53*/ meltfptr[49] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3098:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3103:/ quasiblock"); /*_.PROGN___V55*/ meltfptr[53] = /*_.IF___V53*/ meltfptr[49];; @@ -20392,7 +20392,7 @@ lab_endgetargs:; /*_.IFCPP___V52*/ meltfptr[45] = /*_.PROGN___V55*/ meltfptr[53];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3098:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3103:/ clear"); /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V53*/ meltfptr[49] = 0; @@ -20407,7 +20407,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3099:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3104:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20433,7 +20433,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3099:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3104:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -20448,7 +20448,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3099:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3104:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20462,7 +20462,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3099; + argtab[2].meltbp_long = 3104; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.defclass scanned docv"; /*^apply.arg */ @@ -20482,7 +20482,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3099:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3104:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = 0; @@ -20495,7 +20495,7 @@ lab_endgetargs:; /*_.IF___V57*/ meltfptr[53] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3099:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3104:/ quasiblock"); /*_.PROGN___V59*/ meltfptr[57] = /*_.IF___V57*/ meltfptr[53];; @@ -20503,7 +20503,7 @@ lab_endgetargs:; /*_.IFCPP___V56*/ meltfptr[49] = /*_.PROGN___V59*/ meltfptr[57];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3099:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3104:/ clear"); /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V57*/ meltfptr[53] = 0; @@ -20518,7 +20518,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3100:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3105:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20530,7 +20530,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V15*/ meltfptr[11]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:3100:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3105:/ cond"); /*cond */ if ( /*_#IS_A__L23*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20538,7 +20538,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3100:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3105:/ cond.else"); /*^block */ /*anyblock */ @@ -20552,7 +20552,7 @@ lab_endgetargs:; melt_assert_failed (("check symb"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3100) ? (3100) : __LINE__, __FUNCTION__); + (3105) ? (3105) : __LINE__, __FUNCTION__); ; } ; @@ -20566,7 +20566,7 @@ lab_endgetargs:; /*_.IFCPP___V60*/ meltfptr[53] = /*_.IFELSE___V61*/ meltfptr[57];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3100:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3105:/ clear"); /*clear *//*_#IS_A__L23*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V61*/ meltfptr[57] = 0; @@ -20577,12 +20577,12 @@ lab_endgetargs:; /*_.IFCPP___V60*/ meltfptr[53] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3101:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3106:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L24*/ meltfnum[3] = (( /*_.PREDEF__V20*/ meltfptr[19]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:3101:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3106:/ cond"); /*cond */ if ( /*_#NULL__L24*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -20595,7 +20595,7 @@ lab_endgetargs:; ; /*_#NULL__L25*/ meltfnum[0] = (( /*_.SUPERCLASS__V19*/ meltfptr[18]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:3101:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3106:/ cond"); /*cond */ if ( /*_#NULL__L25*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20603,7 +20603,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3105:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3110:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -20614,7 +20614,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3103:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3108:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("DEFCLASS of a non-predefined class without superclass"), (melt_ptr_t) ( /*_.NAMED_NAME__V62*/ @@ -20623,7 +20623,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3101:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3106:/ clear"); /*clear *//*_.NAMED_NAME__V62*/ meltfptr[57] = 0; } ; @@ -20637,16 +20637,16 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3107:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3112:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:3108:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3113:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L26*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.SUPERCLASS__V19*/ meltfptr[18])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:3108:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3113:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L26*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20654,7 +20654,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3109:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3114:/ quasiblock"); /*^getslot */ @@ -20682,7 +20682,7 @@ lab_endgetargs:; /*_#IX__L29*/ meltfnum[28] = 0;; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3114:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3119:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20695,7 +20695,7 @@ lab_endgetargs:; ( /*_.SUPERCLASS__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:3114:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3119:/ cond"); /*cond */ if ( /*_#IS_A__L30*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -20703,7 +20703,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3114:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3119:/ cond.else"); /*^block */ /*anyblock */ @@ -20717,7 +20717,7 @@ lab_endgetargs:; melt_assert_failed (("check superclass"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3114) ? (3114) : __LINE__, + (3119) ? (3119) : __LINE__, __FUNCTION__); ; } @@ -20732,7 +20732,7 @@ lab_endgetargs:; /*_.IFCPP___V68*/ meltfptr[67] = /*_.IFELSE___V69*/ meltfptr[68];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3114:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3119:/ clear"); /*clear *//*_#IS_A__L30*/ meltfnum[29] = 0; /*^clear */ /*clear *//*_.IFELSE___V69*/ meltfptr[68] = 0; @@ -20745,7 +20745,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3115:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3120:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20757,7 +20757,7 @@ lab_endgetargs:; (melt_magic_discr ((melt_ptr_t) ( /*_.SUPERANCESTORS__V66*/ meltfptr[65])) == MELTOBMAG_MULTIPLE);; - MELT_LOCATION ("warmelt-macro.melt:3115:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3120:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE__L31*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -20765,7 +20765,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3115:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3120:/ cond.else"); /*^block */ /*anyblock */ @@ -20779,7 +20779,7 @@ lab_endgetargs:; melt_assert_failed (("check superancestors"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3115) ? (3115) : __LINE__, + (3120) ? (3120) : __LINE__, __FUNCTION__); ; } @@ -20794,7 +20794,7 @@ lab_endgetargs:; /*_.IFCPP___V70*/ meltfptr[68] = /*_.IFELSE___V71*/ meltfptr[70];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3115:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3120:/ clear"); /*clear *//*_#IS_MULTIPLE__L31*/ meltfnum[29] = 0; /*^clear */ /*clear *//*_.IFELSE___V71*/ meltfptr[70] = 0; @@ -20805,7 +20805,7 @@ lab_endgetargs:; /*_.IFCPP___V70*/ meltfptr[68] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3116:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:3121:/ loop"); /*loop */ { labloop_ANCLOOP_1:; /*^loopbody */ @@ -20817,13 +20817,13 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:3117:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3122:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L32*/ meltfnum[29] = (( /*_#IX__L29*/ meltfnum[28]) >= ( /*_#NBSUPERANC__L27*/ meltfnum[26]));; - MELT_LOCATION ("warmelt-macro.melt:3117:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3122:/ cond"); /*cond */ if ( /*_#I__L32*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -20854,7 +20854,7 @@ lab_endgetargs:; ( /*_#IX__L29*/ meltfnum[28])));; { - MELT_LOCATION ("warmelt-macro.melt:3118:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3123:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) ( /*_.ANCTUPLE__V67*/ meltfptr[66]), ( /*_#IX__L29*/ meltfnum[28]), @@ -20863,10 +20863,10 @@ lab_endgetargs:; ; /*_#I__L33*/ meltfnum[32] = (( /*_#IX__L29*/ meltfnum[28]) + (1));; - MELT_LOCATION ("warmelt-macro.melt:3119:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3124:/ compute"); /*_#IX__L29*/ meltfnum[28] = /*_#SETQ___L34*/ meltfnum[33] = /*_#I__L33*/ meltfnum[32];; - MELT_LOCATION ("warmelt-macro.melt:3116:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3121:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -20891,7 +20891,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3121:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3126:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) ( /*_.ANCTUPLE__V67*/ meltfptr[66]), ( /*_#NBSUPERANC__L27*/ meltfnum[26]), @@ -20901,7 +20901,7 @@ lab_endgetargs:; ; /*_.LET___V65*/ meltfptr[64] = /*_.ANCTUPLE__V67*/ meltfptr[66];; - MELT_LOCATION ("warmelt-macro.melt:3109:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3114:/ clear"); /*clear *//*_.SUPERANCESTORS__V66*/ meltfptr[65] = 0; /*^clear */ /*clear *//*_#NBSUPERANC__L27*/ meltfnum[26] = 0; @@ -20920,7 +20920,7 @@ lab_endgetargs:; /*_.ANCESTORS__V64*/ meltfptr[63] = /*_.LET___V65*/ meltfptr[64];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3108:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3113:/ clear"); /*clear *//*_.LET___V65*/ meltfptr[64] = 0; } ; @@ -20941,19 +20941,19 @@ lab_endgetargs:; /*_.MAKE_MULTIPLE__V75*/ meltfptr[73];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3108:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3113:/ clear"); /*clear *//*_.MAKE_MULTIPLE__V75*/ meltfptr[73] = 0; } ; } ; - MELT_LOCATION ("warmelt-macro.melt:3125:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3130:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L35*/ meltfnum[29] = (melt_magic_discr ((melt_ptr_t) ( /*_.SUPERCLASS__V19*/ meltfptr[18])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:3125:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3130:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L35*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -20961,7 +20961,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3126:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3131:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -20974,7 +20974,7 @@ lab_endgetargs:; /*_.CLASS_FIELDS__V77*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3125:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3130:/ clear"); /*clear *//*_.CLASS_FIELDS__V77*/ meltfptr[66] = 0; } ; @@ -21028,10 +21028,10 @@ lab_endgetargs:; (meltgc_new_multiple ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[10])), ( /*_#NBFIELDNAMES__L37*/ meltfnum[33])));; - MELT_LOCATION ("warmelt-macro.melt:3133:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3138:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:3134:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3139:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SYMB__V15*/ meltfptr[11]) /*=obj*/ ; @@ -21039,7 +21039,7 @@ lab_endgetargs:; /*_.NAMED_NAME__V82*/ meltfptr[73] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:3133:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3138:/ quasiblock"); /*^rawallocobj */ @@ -21079,7 +21079,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.NEWCLASS__V83*/ meltfptr[66] = /*_.INST__V84*/ meltfptr[83];; - MELT_LOCATION ("warmelt-macro.melt:3138:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3143:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21121,7 +21121,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.CLABIND__V85*/ meltfptr[84] = /*_.INST__V86*/ meltfptr[85];; - MELT_LOCATION ("warmelt-macro.melt:3142:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3147:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21142,7 +21142,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3143:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3148:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21168,7 +21168,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3143:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3148:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L42*/ meltfnum[41]) /*then */ { /*^cond.then */ @@ -21183,7 +21183,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3143:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3148:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21197,7 +21197,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3143; + argtab[2].meltbp_long = 3148; /*^apply.arg */ argtab[3].meltbp_cstring = "expdefclas superfields"; /*^apply.arg */ @@ -21217,7 +21217,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V90*/ meltfptr[89];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3143:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3148:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L43*/ meltfnum[42] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V90*/ meltfptr[89] = 0; @@ -21230,7 +21230,7 @@ lab_endgetargs:; /*_.IF___V89*/ meltfptr[88] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3143:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3148:/ quasiblock"); /*_.PROGN___V91*/ meltfptr[89] = /*_.IF___V89*/ meltfptr[88];; @@ -21238,7 +21238,7 @@ lab_endgetargs:; /*_.IFCPP___V88*/ meltfptr[87] = /*_.PROGN___V91*/ meltfptr[89];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3143:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3148:/ clear"); /*clear *//*_#MELT_NEED_DBG__L42*/ meltfnum[41] = 0; /*^clear */ /*clear *//*_.IF___V89*/ meltfptr[88] = 0; @@ -21251,7 +21251,7 @@ lab_endgetargs:; /*_.IFCPP___V88*/ meltfptr[87] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3146:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3151:/ quasiblock"); /*^newclosure */ @@ -21289,7 +21289,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.FIELDSTRMAP__V79*/ meltfptr[68]); ; /*_.LAMBDA___V92*/ meltfptr[88] = /*_.LAMBDA___V93*/ meltfptr[89];; - MELT_LOCATION ("warmelt-macro.melt:3144:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3149:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21308,7 +21308,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3155:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3160:/ quasiblock"); /*^newclosure */ @@ -21450,7 +21450,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.OWNFIELDBINDINGS__V81*/ meltfptr[64]); ; /*_.LAMBDA___V95*/ meltfptr[94] = /*_.LAMBDA___V96*/ meltfptr[95];; - MELT_LOCATION ("warmelt-macro.melt:3153:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3158:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21469,7 +21469,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3205:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3210:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21496,7 +21496,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3209:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3214:/ locexp"); ((meltobject_ptr_t) /*_.NEWCLASS__V83*/ meltfptr[66])->obj_num = MELTOBMAG_OBJECT; ; @@ -21504,7 +21504,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3211:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3216:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21530,7 +21530,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3211:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3216:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L44*/ meltfnum[42]) /*then */ { /*^cond.then */ @@ -21545,7 +21545,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3211:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3216:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21559,7 +21559,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3211; + argtab[2].meltbp_long = 3216; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.defclass newclass="; /*^apply.arg */ @@ -21579,7 +21579,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V100*/ meltfptr[99];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3211:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3216:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L45*/ meltfnum[41] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V100*/ meltfptr[99] = 0; @@ -21592,7 +21592,7 @@ lab_endgetargs:; /*_.IF___V99*/ meltfptr[98] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3211:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3216:/ quasiblock"); /*_.PROGN___V101*/ meltfptr[99] = /*_.IF___V99*/ meltfptr[98];; @@ -21600,7 +21600,7 @@ lab_endgetargs:; /*_.IFCPP___V98*/ meltfptr[97] = /*_.PROGN___V101*/ meltfptr[99];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3211:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3216:/ clear"); /*clear *//*_#MELT_NEED_DBG__L44*/ meltfnum[42] = 0; /*^clear */ /*clear *//*_.IF___V99*/ meltfptr[98] = 0; @@ -21613,7 +21613,7 @@ lab_endgetargs:; /*_.IFCPP___V98*/ meltfptr[97] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3212:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3217:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21706,7 +21706,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V63*/ meltfptr[57] = /*_.INST___V102*/ meltfptr[98];; - MELT_LOCATION ("warmelt-macro.melt:3107:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3112:/ clear"); /*clear *//*_#IS_OBJECT__L26*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.ANCESTORS__V64*/ meltfptr[63] = 0; @@ -21756,12 +21756,12 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V98*/ meltfptr[97] = 0; /*^clear */ /*clear *//*_.INST___V102*/ meltfptr[98] = 0; - MELT_LOCATION ("warmelt-macro.melt:3088:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3093:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MULTI___V14*/ meltfptr[10] = /*_.LET___V63*/ meltfptr[57];; - MELT_LOCATION ("warmelt-macro.melt:3088:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3093:/ clear"); /*clear *//*_.IFCPP___V24*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.IFCPP___V28*/ meltfptr[24] = 0; @@ -21802,7 +21802,7 @@ lab_endgetargs:; /*clear *//*_.FIELDSLOC__V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.DOCV__V23*/ meltfptr[22] = 0; - MELT_LOCATION ("warmelt-macro.melt:3084:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21811,7 +21811,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MULTI___V14*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-macro.melt:3084:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21930,7 +21930,7 @@ meltrout_48_warmelt_macro_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3146:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3151:/ getarg"); /*_.SFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21948,7 +21948,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3149:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3154:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21960,7 +21960,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SFLD__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3149:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3154:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21968,7 +21968,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3149:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3154:/ cond.else"); /*^block */ /*anyblock */ @@ -21982,7 +21982,7 @@ lab_endgetargs:; melt_assert_failed (("check superfield"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3149) ? (3149) : __LINE__, __FUNCTION__); + (3154) ? (3154) : __LINE__, __FUNCTION__); ; } ; @@ -21996,7 +21996,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3149:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3154:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -22009,14 +22009,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3150:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3155:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) (( /*~FIELDTUP */ meltfclos->tabval[0])), ( /*_#IX__L1*/ meltfnum[0]), (melt_ptr_t) ( /*_.SFLD__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-macro.melt:3151:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3156:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SFLD__V2*/ meltfptr[1]) /*=obj*/ ; @@ -22035,7 +22035,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.SFLD__V2*/ meltfptr[1])); } ; - MELT_LOCATION ("warmelt-macro.melt:3146:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3151:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -22140,7 +22140,7 @@ meltrout_49_warmelt_macro_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3155:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3160:/ getarg"); /*_.FLDNAM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -22158,7 +22158,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3157:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3162:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22170,7 +22170,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.FLDNAM__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3157:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3162:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22178,7 +22178,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3157:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3162:/ cond.else"); /*^block */ /*anyblock */ @@ -22192,7 +22192,7 @@ lab_endgetargs:; melt_assert_failed (("check fldnam"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3157) ? (3157) : __LINE__, __FUNCTION__); + (3162) ? (3162) : __LINE__, __FUNCTION__); ; } ; @@ -22206,7 +22206,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3157:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3162:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -22217,7 +22217,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3158:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3163:/ quasiblock"); /*^getslot */ @@ -22228,7 +22228,7 @@ lab_endgetargs:; /*_.FLDSTR__V5*/ meltfptr[3] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:3159:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3164:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22246,7 +22246,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3161:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3166:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAPSTRING_GETSTR__V7*/ meltfptr[6] = @@ -22254,7 +22254,7 @@ lab_endgetargs:; ((struct meltmapstrings_st *) (( /*~FIELDSTRMAP */ meltfclos->tabval[1])), melt_string_str ((melt_ptr_t) ( /*_.FLDSTR__V5*/ meltfptr[3]))));; - MELT_LOCATION ("warmelt-macro.melt:3161:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3166:/ cond"); /*cond */ if ( /*_.MAPSTRING_GETSTR__V7*/ meltfptr[6]) /*then */ { /*^cond.then */ @@ -22264,7 +22264,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3162:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3167:/ locexp"); melt_error_str ((melt_ptr_t) (( /*~FIELDSLOC */ meltfclos->tabval[2])), ("duplicate field in DEFLCLASS"), @@ -22276,12 +22276,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3164:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3169:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[1] = (( /*_.FLDPREVBIND__V6*/ meltfptr[5]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:3164:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3169:/ cond"); /*cond */ if ( /*_#NULL__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22291,7 +22291,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3165:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3170:/ locexp"); /*void */ (void) 0; } ; @@ -22301,13 +22301,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3164:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3169:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3167:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3172:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[3] = @@ -22315,7 +22315,7 @@ lab_endgetargs:; ( /*_.FLDPREVBIND__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_FIELD_BINDING */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:3167:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3172:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -22325,7 +22325,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3168:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3173:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22351,7 +22351,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3168:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3173:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -22367,7 +22367,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:3168:/ checksignal"); + ("warmelt-macro.melt:3173:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22381,7 +22381,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3168; + argtab[2].meltbp_long = 3173; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defclass fldprevbind !field"; @@ -22404,7 +22404,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3168:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3173:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0; @@ -22417,7 +22417,7 @@ lab_endgetargs:; /*_.IF___V9*/ meltfptr[8] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3168:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3173:/ quasiblock"); /*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];; @@ -22426,7 +22426,7 @@ lab_endgetargs:; /*_.PROGN___V11*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3168:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3173:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V9*/ meltfptr[8] = 0; @@ -22441,7 +22441,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3169:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3174:/ locexp"); melt_error_str ((melt_ptr_t) (( /*~FIELDSLOC */ meltfclos->tabval[2])), ("field name already defined in DEFCLASS"), @@ -22449,7 +22449,7 @@ lab_endgetargs:; meltfptr[3])); } ; - MELT_LOCATION ("warmelt-macro.melt:3167:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3172:/ quasiblock"); /*epilog */ @@ -22466,14 +22466,14 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3171:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3176:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[5] = melt_is_instance_of ((melt_ptr_t) ( /*_.FLDPREVBIND__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:3171:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3176:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -22483,7 +22483,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3172:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3177:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22509,7 +22509,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3172:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3177:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -22525,7 +22525,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:3172:/ checksignal"); + ("warmelt-macro.melt:3177:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22540,7 +22540,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3172; + argtab[2].meltbp_long = 3177; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defclass fldprevbind !value"; @@ -22566,7 +22566,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3172:/ clear"); + ("warmelt-macro.melt:3177:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ @@ -22582,7 +22582,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3172:/ quasiblock"); + ("warmelt-macro.melt:3177:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[7] = @@ -22592,7 +22592,7 @@ lab_endgetargs:; /*_.PROGN___V15*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3172:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3177:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V13*/ meltfptr[9] = 0; @@ -22607,7 +22607,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3173:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3178:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22633,7 +22633,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3173:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3178:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -22649,7 +22649,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:3173:/ checksignal"); + ("warmelt-macro.melt:3178:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22664,7 +22664,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3173; + argtab[2].meltbp_long = 3178; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defclass symb !value"; @@ -22690,7 +22690,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3173:/ clear"); + ("warmelt-macro.melt:3178:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[4] = 0; /*^clear */ @@ -22706,7 +22706,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3173:/ quasiblock"); + ("warmelt-macro.melt:3178:/ quasiblock"); /*_.PROGN___V19*/ meltfptr[17] = @@ -22716,7 +22716,7 @@ lab_endgetargs:; /*_.PROGN___V19*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3173:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3178:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IF___V17*/ meltfptr[7] = 0; @@ -22729,7 +22729,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3174:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3179:/ quasiblock"); /*^cond */ @@ -22759,7 +22759,7 @@ lab_endgetargs:; /*_.PREVALUE__V20*/ meltfptr[7] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3178:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3183:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L12*/ meltfnum[4] = @@ -22767,7 +22767,7 @@ lab_endgetargs:; ( /*_.PREVALUE__V20*/ meltfptr[7]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:3178:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3183:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L12*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -22777,13 +22777,13 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:3178:/ cond.else"); + ("warmelt-macro.melt:3183:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3179:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3184:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22810,7 +22810,7 @@ lab_endgetargs:; /*_.FLD_OWNCLASS__V21*/ meltfptr[17] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3179:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3184:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22837,7 +22837,7 @@ lab_endgetargs:; /*_.NAMED_NAME__V22*/ meltfptr[21] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3180:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3185:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -22877,7 +22877,7 @@ lab_endgetargs:; /*_#S__L14*/ meltfnum[13];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3178:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3183:/ clear"); /*clear *//*_.FLD_OWNCLASS__V21*/ meltfptr[17] = 0; /*^clear */ @@ -22901,7 +22901,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3181:/ locexp"); + ("warmelt-macro.melt:3186:/ locexp"); melt_warning_str (0, (melt_ptr_t) (( /*~FIELDSLOC */ meltfclos->tabval[2])), ("field name already bound to a value in DEFCLASS"), (melt_ptr_t) ( /*_.FLDSTR__V5*/ meltfptr[3])); } @@ -22912,13 +22912,13 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3174:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3179:/ clear"); /*clear *//*_.PREVALUE__V20*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L12*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_#OR___L13*/ meltfnum[8] = 0; - MELT_LOCATION ("warmelt-macro.melt:3171:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3176:/ quasiblock"); /*epilog */ @@ -22939,7 +22939,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3184:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3189:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22965,7 +22965,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3184:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3189:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -22981,7 +22981,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:3184:/ checksignal"); + ("warmelt-macro.melt:3189:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22996,7 +22996,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3184; + argtab[2].meltbp_long = 3189; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defclass fldprevbind !other"; @@ -23022,7 +23022,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3184:/ clear"); + ("warmelt-macro.melt:3189:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[4] = 0; /*^clear */ @@ -23038,7 +23038,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3184:/ quasiblock"); + ("warmelt-macro.melt:3189:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[7] = @@ -23048,7 +23048,7 @@ lab_endgetargs:; /*_.PROGN___V27*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3184:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3189:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V25*/ meltfptr[21] = 0; @@ -23063,7 +23063,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3185:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3190:/ locexp"); melt_warning_str (0, (melt_ptr_t) (( /*~FIELDSLOC */ meltfclos-> @@ -23073,12 +23073,12 @@ lab_endgetargs:; meltfptr[3])); } ; - MELT_LOCATION ("warmelt-macro.melt:3183:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3188:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3171:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3176:/ clear"); /*clear *//*_.IFCPP___V24*/ meltfptr[17] = 0; } ; @@ -23086,7 +23086,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3167:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3172:/ clear"); /*clear *//*_#IS_A__L7*/ meltfnum[5] = 0; } ; @@ -23094,13 +23094,13 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3164:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3169:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; } ; } ; - MELT_LOCATION ("warmelt-macro.melt:3187:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3192:/ quasiblock"); /*_#GET_INT__L17*/ meltfnum[8] = @@ -23109,7 +23109,7 @@ lab_endgetargs:; /*^compute */ /*_#FLDOFF__L18*/ meltfnum[4] = (( /*_#IX__L1*/ meltfnum[0]) + ( /*_#GET_INT__L17*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-macro.melt:3188:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3193:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -23153,14 +23153,14 @@ lab_endgetargs:; /*_.NEWFLD__V28*/ meltfptr[8] = /*_.INST__V29*/ meltfptr[9];; { - MELT_LOCATION ("warmelt-macro.melt:3192:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3197:/ locexp"); melt_put_int ((melt_ptr_t) ( /*_.NEWFLD__V28*/ meltfptr[8]), ( /*_#FLDOFF__L18*/ meltfnum[4])); } ; { - MELT_LOCATION ("warmelt-macro.melt:3194:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3199:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) (( /*~FIELDTUP */ meltfclos->tabval[6])), ( /*_#FLDOFF__L18*/ meltfnum[4]), @@ -23169,7 +23169,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3195:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3200:/ locexp"); meltgc_put_mapstrings ((struct meltmapstrings_st *) (( /*~FIELDSTRMAP */ meltfclos->tabval[1])), melt_string_str ((melt_ptr_t) @@ -23178,7 +23178,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.NEWFLD__V28*/ meltfptr[8])); } ; - MELT_LOCATION ("warmelt-macro.melt:3196:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3201:/ quasiblock"); /*^checksignal */ @@ -23233,7 +23233,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.NEWFLDBIND__V30*/ meltfptr[22] = /*_.INST__V31*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:3200:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3205:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23255,7 +23255,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3201:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3206:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23276,7 +23276,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3202:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3207:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) (( /*~OWNFIELDBINDINGS */ meltfclos-> tabval[9])), ( /*_#IX__L1*/ meltfnum[0]), @@ -23285,21 +23285,21 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-macro.melt:3196:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3201:/ clear"); /*clear *//*_.NEWFLDBIND__V30*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.WARN_IF_REDEFINED__V32*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.PUT_ENV__V33*/ meltfptr[17] = 0; - MELT_LOCATION ("warmelt-macro.melt:3187:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3192:/ clear"); /*clear *//*_#GET_INT__L17*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_#FLDOFF__L18*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.NEWFLD__V28*/ meltfptr[8] = 0; - MELT_LOCATION ("warmelt-macro.melt:3158:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3163:/ clear"); /*clear *//*_.FLDSTR__V5*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.FLDPREVBIND__V6*/ meltfptr[5] = 0; @@ -23307,7 +23307,7 @@ lab_endgetargs:; /*clear *//*_.MAPSTRING_GETSTR__V7*/ meltfptr[6] = 0; /*^clear */ /*clear *//*_#NULL__L3*/ meltfnum[1] = 0; - MELT_LOCATION ("warmelt-macro.melt:3155:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3160:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -23414,7 +23414,7 @@ meltrout_50_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3233:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ getarg"); /*_.CLA__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -23484,7 +23484,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3234:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3239:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23510,7 +23510,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3234:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3239:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23525,7 +23525,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3234:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3239:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23538,7 +23538,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3234; + argtab[2].meltbp_long = 3239; /*^apply.arg */ argtab[3].meltbp_cstring = "start parse_field_assignment cla"; /*^apply.arg */ @@ -23558,7 +23558,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3234:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3239:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0; @@ -23571,7 +23571,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[9] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3234:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3239:/ quasiblock"); /*_.PROGN___V12*/ meltfptr[10] = /*_.IF___V10*/ meltfptr[9];; @@ -23579,7 +23579,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[8] = /*_.PROGN___V12*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3234:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3239:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V10*/ meltfptr[9] = 0; @@ -23594,7 +23594,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3235:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3240:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23620,7 +23620,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3235:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3240:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -23635,7 +23635,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3235:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3240:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23648,7 +23648,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3235; + argtab[2].meltbp_long = 3240; /*^apply.arg */ argtab[3].meltbp_cstring = "start parse_field_assignment loc"; /*^apply.arg */ @@ -23668,7 +23668,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3235:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3240:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0; @@ -23681,7 +23681,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[10] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3235:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3240:/ quasiblock"); /*_.PROGN___V16*/ meltfptr[14] = /*_.IF___V14*/ meltfptr[10];; @@ -23689,7 +23689,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[9] = /*_.PROGN___V16*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3235:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3240:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V14*/ meltfptr[10] = 0; @@ -23704,7 +23704,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3236:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3241:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23730,7 +23730,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3236:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3241:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23745,7 +23745,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3236:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3241:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23758,7 +23758,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3236; + argtab[2].meltbp_long = 3241; /*^apply.arg */ argtab[3].meltbp_cstring = "start parse_field_assignment fldkw"; /*^apply.arg */ @@ -23778,7 +23778,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3236:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3241:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0; @@ -23791,7 +23791,7 @@ lab_endgetargs:; /*_.IF___V18*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3236:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3241:/ quasiblock"); /*_.PROGN___V20*/ meltfptr[18] = /*_.IF___V18*/ meltfptr[14];; @@ -23799,7 +23799,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[10] = /*_.PROGN___V20*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3236:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3241:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V18*/ meltfptr[14] = 0; @@ -23812,7 +23812,7 @@ lab_endgetargs:; /*_.IFCPP___V17*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3237:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3242:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[1] = @@ -23822,7 +23822,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L8*/ meltfnum[0] = (!( /*_#IS_A__L7*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-macro.melt:3237:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3242:/ cond"); /*cond */ if ( /*_#NOT__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23832,19 +23832,19 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3239:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3244:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), ("expecting :fieldname"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3240:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3245:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:3240:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3245:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23857,7 +23857,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3238:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3243:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[22] = /*_.RETURN___V22*/ meltfptr[18];; @@ -23865,7 +23865,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[14] = /*_.PROGN___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3237:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3242:/ clear"); /*clear *//*_.RETURN___V22*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.PROGN___V23*/ meltfptr[22] = 0; @@ -23880,7 +23880,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3242:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3247:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23892,7 +23892,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.FLDKW__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:3242:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3247:/ cond"); /*cond */ if ( /*_#IS_A__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -23900,7 +23900,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3242:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3247:/ cond.else"); /*^block */ /*anyblock */ @@ -23914,7 +23914,7 @@ lab_endgetargs:; melt_assert_failed (("check fldkw"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3242) ? (3242) : __LINE__, __FUNCTION__); + (3247) ? (3247) : __LINE__, __FUNCTION__); ; } ; @@ -23928,7 +23928,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[18] = /*_.IFELSE___V25*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3242:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3247:/ clear"); /*clear *//*_#IS_A__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V25*/ meltfptr[22] = 0; @@ -23941,7 +23941,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3243:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3248:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23953,7 +23953,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:3243:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3248:/ cond"); /*cond */ if ( /*_#IS_A__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -23961,7 +23961,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3243:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3248:/ cond.else"); /*^block */ /*anyblock */ @@ -23975,7 +23975,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3243) ? (3243) : __LINE__, __FUNCTION__); + (3248) ? (3248) : __LINE__, __FUNCTION__); ; } ; @@ -23989,7 +23989,7 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[22] = /*_.IFELSE___V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3243:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3248:/ clear"); /*clear *//*_#IS_A__L10*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V27*/ meltfptr[26] = 0; @@ -24002,7 +24002,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3244:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3249:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24013,7 +24013,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L11*/ meltfnum[8] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V7*/ meltfptr[6])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:3244:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3249:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L11*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -24021,7 +24021,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3244:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3249:/ cond.else"); /*^block */ /*anyblock */ @@ -24035,7 +24035,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3244) ? (3244) : __LINE__, __FUNCTION__); + (3249) ? (3249) : __LINE__, __FUNCTION__); ; } ; @@ -24049,7 +24049,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[26] = /*_.IFELSE___V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3244:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3249:/ clear"); /*clear *//*_#IS_CLOSURE__L11*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V29*/ meltfptr[28] = 0; @@ -24062,7 +24062,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3245:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3250:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24073,7 +24073,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L12*/ meltfnum[8] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V8*/ meltfptr[7])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:3245:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3250:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L12*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -24081,7 +24081,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3245:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3250:/ cond.else"); /*^block */ /*anyblock */ @@ -24095,7 +24095,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3245) ? (3245) : __LINE__, __FUNCTION__); + (3250) ? (3250) : __LINE__, __FUNCTION__); ; } ; @@ -24109,7 +24109,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[28] = /*_.IFELSE___V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3245:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3250:/ clear"); /*clear *//*_#IS_OBJECT__L12*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V31*/ meltfptr[30] = 0; @@ -24120,18 +24120,18 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[28] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3247:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3252:/ quasiblock"); /*_.FLD__V33*/ meltfptr[32] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:3249:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3254:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L13*/ meltfnum[8] = melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:3249:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3254:/ cond"); /*cond */ if ( /*_#IS_A__L13*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -24139,7 +24139,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3250:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3255:/ quasiblock"); /*^getslot */ @@ -24152,7 +24152,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3252:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3257:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24178,7 +24178,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3252:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3257:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -24193,7 +24193,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3252:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3257:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24207,7 +24207,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3252; + argtab[2].meltbp_long = 3257; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_assignment clafields"; @@ -24229,7 +24229,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3252:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3257:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0; @@ -24242,7 +24242,7 @@ lab_endgetargs:; /*_.IF___V38*/ meltfptr[37] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3252:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3257:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[38] = /*_.IF___V38*/ meltfptr[37];; @@ -24250,7 +24250,7 @@ lab_endgetargs:; /*_.IFCPP___V37*/ meltfptr[36] = /*_.PROGN___V40*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3252:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3257:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V38*/ meltfptr[37] = 0; @@ -24263,7 +24263,7 @@ lab_endgetargs:; /*_.IFCPP___V37*/ meltfptr[36] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3257:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3262:/ quasiblock"); /*^newclosure */ @@ -24292,10 +24292,10 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.FLDKW__V4*/ meltfptr[3]); ; /*_.LAMBDA___V41*/ meltfptr[37] = /*_.LAMBDA___V42*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:3255:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3260:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:3253:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3258:/ quasiblock"); /*^multiapply */ @@ -24327,7 +24327,7 @@ lab_endgetargs:; /*^quasiblock */ - MELT_LOCATION ("warmelt-macro.melt:3270:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3275:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -24340,7 +24340,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3272:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3277:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24366,7 +24366,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3272:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3277:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -24382,7 +24382,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:3272:/ checksignal"); + ("warmelt-macro.melt:3277:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24396,7 +24396,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3272; + argtab[2].meltbp_long = 3277; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_assignment return foundfld"; @@ -24418,7 +24418,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V49*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3272:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3277:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0; /*^clear */ @@ -24432,7 +24432,7 @@ lab_endgetargs:; /*_.IF___V48*/ meltfptr[47] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3272:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3277:/ quasiblock"); /*_.PROGN___V50*/ meltfptr[48] = @@ -24442,7 +24442,7 @@ lab_endgetargs:; /*_.PROGN___V50*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3272:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3277:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V48*/ meltfptr[47] = 0; @@ -24455,10 +24455,10 @@ lab_endgetargs:; /*_.IFCPP___V47*/ meltfptr[46] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3273:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3278:/ compute"); /*_.FLD__V33*/ meltfptr[32] = /*_.SETQ___V51*/ meltfptr[47] = /*_.FOUNDFLD__V44*/ meltfptr[43];; - MELT_LOCATION ("warmelt-macro.melt:3271:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3276:/ quasiblock"); /*_.PROGN___V52*/ meltfptr[48] = @@ -24467,7 +24467,7 @@ lab_endgetargs:; /*_.IF___V46*/ meltfptr[45] = /*_.PROGN___V52*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3270:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3275:/ clear"); /*clear *//*_.IFCPP___V47*/ meltfptr[46] = 0; /*^clear */ /*clear *//*_.SETQ___V51*/ meltfptr[47] = 0; @@ -24485,7 +24485,7 @@ lab_endgetargs:; /*^compute */ /*_.MULTI___V43*/ meltfptr[42] = /*_.IF___V46*/ meltfptr[45];; - MELT_LOCATION ("warmelt-macro.melt:3253:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3258:/ clear"); /*clear *//*_.IF___V46*/ meltfptr[45] = 0; /*^clear */ @@ -24494,7 +24494,7 @@ lab_endgetargs:; /*clear *//*_.FOUNDNAME__V45*/ meltfptr[44] = 0; /*_.LET___V35*/ meltfptr[34] = /*_.MULTI___V43*/ meltfptr[42];; - MELT_LOCATION ("warmelt-macro.melt:3250:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3255:/ clear"); /*clear *//*_.CLAFIELDS__V36*/ meltfptr[35] = 0; /*^clear */ /*clear *//*_.IFCPP___V37*/ meltfptr[36] = 0; @@ -24505,7 +24505,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = /*_.LET___V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3249:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3254:/ clear"); /*clear *//*_.LET___V35*/ meltfptr[34] = 0; } ; @@ -24518,7 +24518,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3274:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3279:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24544,7 +24544,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3274:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3279:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -24559,7 +24559,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3274:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3279:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24573,7 +24573,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3274; + argtab[2].meltbp_long = 3279; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_assignment after class scanning fld"; @@ -24594,7 +24594,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V55*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3274:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3279:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[48] = 0; @@ -24607,7 +24607,7 @@ lab_endgetargs:; /*_.IF___V54*/ meltfptr[47] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3274:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3279:/ quasiblock"); /*_.PROGN___V56*/ meltfptr[45] = /*_.IF___V54*/ meltfptr[47];; @@ -24615,7 +24615,7 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[46] = /*_.PROGN___V56*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3274:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3279:/ clear"); /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IF___V54*/ meltfptr[47] = 0; @@ -24628,12 +24628,12 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[46] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3275:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3280:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L21*/ meltfnum[14] = (( /*_.FLD__V33*/ meltfptr[32]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:3275:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3280:/ cond"); /*cond */ if ( /*_#NULL__L21*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -24641,7 +24641,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3277:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3282:/ quasiblock"); /*^getslot */ @@ -24659,7 +24659,7 @@ lab_endgetargs:; MELT_CREATE);; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3280:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3285:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24685,7 +24685,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3280:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3285:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -24700,7 +24700,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3280:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3285:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24714,7 +24714,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3280; + argtab[2].meltbp_long = 3285; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_assignment fldnam"; @@ -24736,7 +24736,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V63*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3280:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3285:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V63*/ meltfptr[34] = 0; @@ -24749,7 +24749,7 @@ lab_endgetargs:; /*_.IF___V62*/ meltfptr[42] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3280:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3285:/ quasiblock"); /*_.PROGN___V64*/ meltfptr[48] = /*_.IF___V62*/ meltfptr[42];; @@ -24757,7 +24757,7 @@ lab_endgetargs:; /*_.IFCPP___V61*/ meltfptr[37] = /*_.PROGN___V64*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3280:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3285:/ clear"); /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V62*/ meltfptr[42] = 0; @@ -24772,7 +24772,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3281:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3286:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24785,7 +24785,7 @@ lab_endgetargs:; ( /*_.FLDNAM__V60*/ meltfptr[36]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-macro.melt:3281:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3286:/ cond"); /*cond */ if ( /*_#IS_A__L24*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -24793,7 +24793,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3281:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3286:/ cond.else"); /*^block */ /*anyblock */ @@ -24807,7 +24807,7 @@ lab_endgetargs:; melt_assert_failed (("check fldnam symb"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3281) ? (3281) : __LINE__, + (3286) ? (3286) : __LINE__, __FUNCTION__); ; } @@ -24822,7 +24822,7 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[47] = /*_.IFELSE___V66*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3281:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3286:/ clear"); /*clear *//*_#IS_A__L24*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IFELSE___V66*/ meltfptr[45] = 0; @@ -24833,7 +24833,7 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[47] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3282:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3287:/ quasiblock"); /*^checksignal */ @@ -24857,7 +24857,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3283:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3288:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24883,7 +24883,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3283:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3288:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L25*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -24898,7 +24898,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3283:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3288:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24912,7 +24912,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3283; + argtab[2].meltbp_long = 3288; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_assignment fldbind"; @@ -24934,7 +24934,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V71*/ meltfptr[70];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3283:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3288:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L26*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V71*/ meltfptr[70] = 0; @@ -24947,7 +24947,7 @@ lab_endgetargs:; /*_.IF___V70*/ meltfptr[45] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3283:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3288:/ quasiblock"); /*_.PROGN___V72*/ meltfptr[70] = /*_.IF___V70*/ meltfptr[45];; @@ -24955,7 +24955,7 @@ lab_endgetargs:; /*_.IFCPP___V69*/ meltfptr[48] = /*_.PROGN___V72*/ meltfptr[70];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3283:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3288:/ clear"); /*clear *//*_#MELT_NEED_DBG__L25*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V70*/ meltfptr[45] = 0; @@ -24968,12 +24968,12 @@ lab_endgetargs:; /*_.IFCPP___V69*/ meltfptr[48] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3285:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3290:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L27*/ meltfnum[17] = (( /*_.FLDBIND__V68*/ meltfptr[42]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:3285:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3290:/ cond"); /*cond */ if ( /*_#NULL__L27*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -24983,20 +24983,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3286:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3291:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), ("unknown field name in field assignment"), (melt_ptr_t) ( /*_.FLDKWNAM__V59*/ meltfptr[35])); } ; - MELT_LOCATION ("warmelt-macro.melt:3288:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3293:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:3288:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3293:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -25009,7 +25009,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3285:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3290:/ quasiblock"); /*_.PROGN___V75*/ meltfptr[74] = @@ -25019,7 +25019,7 @@ lab_endgetargs:; /*_.PROGN___V75*/ meltfptr[74];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3285:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3290:/ clear"); /*clear *//*_.RETURN___V74*/ meltfptr[70] = 0; /*^clear */ /*clear *//*_.PROGN___V75*/ meltfptr[74] = 0; @@ -25033,14 +25033,14 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3290:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3295:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L28*/ meltfnum[13] = melt_is_instance_of ((melt_ptr_t) ( /*_.FLDBIND__V68*/ meltfptr[42]), (melt_ptr_t) (( /*!CLASS_FIELD_BINDING */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-macro.melt:3290:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3295:/ cond"); /*cond */ if ( /*_#IS_A__L28*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -25048,7 +25048,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3291:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3296:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -25064,7 +25064,7 @@ lab_endgetargs:; /*_.FLBIND_FIELD__V77*/ meltfptr[74];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3292:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3297:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25090,7 +25090,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3292:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3297:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L29*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -25106,7 +25106,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:3292:/ checksignal"); + ("warmelt-macro.melt:3297:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25121,7 +25121,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3292; + argtab[2].meltbp_long = 3297; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_assignment found fld in field binding"; @@ -25147,7 +25147,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3292:/ clear"); + ("warmelt-macro.melt:3297:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L30*/ meltfnum[29] = 0; /*^clear */ @@ -25163,7 +25163,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3292:/ quasiblock"); + ("warmelt-macro.melt:3297:/ quasiblock"); /*_.PROGN___V82*/ meltfptr[80] = @@ -25173,7 +25173,7 @@ lab_endgetargs:; /*_.PROGN___V82*/ meltfptr[80];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3292:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3297:/ clear"); /*clear *//*_#MELT_NEED_DBG__L29*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.IF___V80*/ meltfptr[79] = 0; @@ -25186,7 +25186,7 @@ lab_endgetargs:; /*_.IFCPP___V79*/ meltfptr[78] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3290:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3295:/ quasiblock"); /*_.PROGN___V83*/ meltfptr[79] = @@ -25196,7 +25196,7 @@ lab_endgetargs:; /*_.PROGN___V83*/ meltfptr[79];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3290:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3295:/ clear"); /*clear *//*_.FLBIND_FIELD__V77*/ meltfptr[74] = 0; /*^clear */ /*clear *//*_.SETQ___V78*/ meltfptr[77] = 0; @@ -25214,7 +25214,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3294:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3299:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L31*/ meltfnum[29] = @@ -25222,7 +25222,7 @@ lab_endgetargs:; ( /*_.FLDBIND__V68*/ meltfptr[42]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[11])));; - MELT_LOCATION ("warmelt-macro.melt:3294:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3299:/ cond"); /*cond */ if ( /*_#IS_A__L31*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -25231,7 +25231,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3295:/ quasiblock"); + ("warmelt-macro.melt:3300:/ quasiblock"); /*^getslot */ @@ -25248,7 +25248,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:3296:/ cppif.then"); + ("warmelt-macro.melt:3301:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25276,7 +25276,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:3296:/ cond"); + ("warmelt-macro.melt:3301:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L32*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -25293,7 +25293,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:3296:/ checksignal"); + ("warmelt-macro.melt:3301:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25309,7 +25309,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3296; + argtab[2].meltbp_long = 3301; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_assignment has vfld"; @@ -25337,7 +25337,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3296:/ clear"); + ("warmelt-macro.melt:3301:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L33*/ meltfnum[32] = 0; /*^clear */ @@ -25353,7 +25353,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3296:/ quasiblock"); + ("warmelt-macro.melt:3301:/ quasiblock"); /*_.PROGN___V90*/ meltfptr[88] = @@ -25364,7 +25364,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3296:/ clear"); + ("warmelt-macro.melt:3301:/ clear"); /*clear *//*_#MELT_NEED_DBG__L32*/ meltfnum[28] = 0; /*^clear */ @@ -25379,7 +25379,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:3297:/ checksignal"); + ("warmelt-macro.melt:3302:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L34*/ meltfnum[32] = @@ -25387,7 +25387,7 @@ lab_endgetargs:; ( /*_.VFLD__V86*/ meltfptr[77]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout->tabval[12])));; - MELT_LOCATION ("warmelt-macro.melt:3297:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3302:/ cond"); /*cond */ if ( /*_#IS_A__L34*/ meltfnum[32]) /*then */ { /*^cond.then */ @@ -25396,7 +25396,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3298:/ quasiblock"); + ("warmelt-macro.melt:3303:/ quasiblock"); /*^getslot */ @@ -25411,7 +25411,7 @@ lab_endgetargs:; }; ; MELT_LOCATION - ("warmelt-macro.melt:3299:/ getslot"); + ("warmelt-macro.melt:3304:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -25423,12 +25423,12 @@ lab_endgetargs:; }; ; MELT_LOCATION - ("warmelt-macro.melt:3301:/ compute"); + ("warmelt-macro.melt:3306:/ compute"); /*_.FLD__V33*/ meltfptr[32] = /*_.SETQ___V95*/ meltfptr[94] = /*_.VFLD__V86*/ meltfptr[77];; MELT_LOCATION - ("warmelt-macro.melt:3302:/ checksignal"); + ("warmelt-macro.melt:3307:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#S__L35*/ meltfnum[28] = @@ -25437,7 +25437,7 @@ lab_endgetargs:; meltfptr[92]), (melt_ptr_t) ( /*_.KWNAM__V94*/ meltfptr[93]));; MELT_LOCATION - ("warmelt-macro.melt:3302:/ cond"); + ("warmelt-macro.melt:3307:/ cond"); /*cond */ if ( /*_#S__L35*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -25448,7 +25448,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3305:/ locexp"); + ("warmelt-macro.melt:3310:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), ("obsolete use of synonym field"), (melt_ptr_t) ( /*_.KWNAM__V94*/ meltfptr[93])); } @@ -25456,7 +25456,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3306:/ locexp"); + ("warmelt-macro.melt:3311:/ locexp"); melt_inform_str ((melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), @@ -25465,7 +25465,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3303:/ quasiblock"); + ("warmelt-macro.melt:3308:/ quasiblock"); /*epilog */ @@ -25476,7 +25476,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:3307:/ cppif.then"); + ("warmelt-macro.melt:3312:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25504,7 +25504,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:3307:/ cond"); + ("warmelt-macro.melt:3312:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L36*/ meltfnum[35]) /*then */ { /*^cond.then */ @@ -25521,7 +25521,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:3307:/ checksignal"); + ("warmelt-macro.melt:3312:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25538,7 +25538,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3307; + argtab[2].meltbp_long = 3312; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_assignment gives vfld"; @@ -25558,7 +25558,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3307:/ clear"); + ("warmelt-macro.melt:3312:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L37*/ meltfnum[36] = 0; /*^clear */ @@ -25574,7 +25574,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3307:/ quasiblock"); + ("warmelt-macro.melt:3312:/ quasiblock"); /*_.PROGN___V99*/ meltfptr[97] = @@ -25585,7 +25585,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3307:/ clear"); + ("warmelt-macro.melt:3312:/ clear"); /*clear *//*_#MELT_NEED_DBG__L36*/ meltfnum[35] = 0; /*^clear */ @@ -25606,7 +25606,7 @@ lab_endgetargs:; /*_.VFLD__V86*/ meltfptr[77];; MELT_LOCATION - ("warmelt-macro.melt:3298:/ clear"); + ("warmelt-macro.melt:3303:/ clear"); /*clear *//*_.VFLDNAM__V93*/ meltfptr[92] = 0; /*^clear */ @@ -25623,7 +25623,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3297:/ clear"); + ("warmelt-macro.melt:3302:/ clear"); /*clear *//*_.LET___V92*/ meltfptr[88] = 0; } ; @@ -25638,7 +25638,7 @@ lab_endgetargs:; /*_.LET___V85*/ meltfptr[74] = /*_.IF___V91*/ meltfptr[79];; - MELT_LOCATION ("warmelt-macro.melt:3295:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3300:/ clear"); /*clear *//*_.VFLD__V86*/ meltfptr[77] = 0; /*^clear */ /*clear *//*_.IFCPP___V87*/ meltfptr[78] = 0; @@ -25650,7 +25650,7 @@ lab_endgetargs:; /*_.LET___V85*/ meltfptr[74];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3294:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3299:/ clear"); /*clear *//*_.LET___V85*/ meltfptr[74] = 0; } ; @@ -25665,7 +25665,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3310:/ locexp"); + ("warmelt-macro.melt:3315:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), ("bad field name in field assignment"), @@ -25673,14 +25673,14 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3312:/ quasiblock"); + ("warmelt-macro.melt:3317:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION - ("warmelt-macro.melt:3312:/ locexp"); + ("warmelt-macro.melt:3317:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -25696,7 +25696,7 @@ lab_endgetargs:; ; /*finalret */ goto labend_rout; MELT_LOCATION - ("warmelt-macro.melt:3309:/ quasiblock"); + ("warmelt-macro.melt:3314:/ quasiblock"); /*_.PROGN___V101*/ meltfptr[97] = @@ -25706,7 +25706,7 @@ lab_endgetargs:; /*_.PROGN___V101*/ meltfptr[97];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3294:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3299:/ clear"); /*clear *//*_.RETURN___V100*/ meltfptr[96] = 0; /*^clear */ /*clear *//*_.PROGN___V101*/ meltfptr[97] = 0; @@ -25718,7 +25718,7 @@ lab_endgetargs:; /*_.IFELSE___V84*/ meltfptr[80];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3290:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3295:/ clear"); /*clear *//*_#IS_A__L31*/ meltfnum[29] = 0; /*^clear */ /*clear *//*_.IFELSE___V84*/ meltfptr[80] = 0; @@ -25730,7 +25730,7 @@ lab_endgetargs:; /*_.IFELSE___V76*/ meltfptr[70];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3285:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3290:/ clear"); /*clear *//*_#IS_A__L28*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IFELSE___V76*/ meltfptr[70] = 0; @@ -25740,7 +25740,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3314:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3319:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25766,7 +25766,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3314:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3319:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L38*/ meltfnum[36]) /*then */ { /*^cond.then */ @@ -25781,7 +25781,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3314:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3319:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25795,7 +25795,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3314; + argtab[2].meltbp_long = 3319; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_assignment fld from environment"; @@ -25817,7 +25817,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V104*/ meltfptr[94];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3314:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3319:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L39*/ meltfnum[35] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V104*/ meltfptr[94] = 0; @@ -25830,7 +25830,7 @@ lab_endgetargs:; /*_.IF___V103*/ meltfptr[93] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3314:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3319:/ quasiblock"); /*_.PROGN___V105*/ meltfptr[95] = /*_.IF___V103*/ meltfptr[93];; @@ -25839,7 +25839,7 @@ lab_endgetargs:; /*_.PROGN___V105*/ meltfptr[95];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3314:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3319:/ clear"); /*clear *//*_#MELT_NEED_DBG__L38*/ meltfnum[36] = 0; /*^clear */ /*clear *//*_.IF___V103*/ meltfptr[93] = 0; @@ -25855,7 +25855,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V67*/ meltfptr[34] = /*_.IFCPP___V102*/ meltfptr[92];; - MELT_LOCATION ("warmelt-macro.melt:3282:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3287:/ clear"); /*clear *//*_.FLDBIND__V68*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_.IFCPP___V69*/ meltfptr[48] = 0; @@ -25867,7 +25867,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V102*/ meltfptr[92] = 0; /*_.LET___V58*/ meltfptr[44] = /*_.LET___V67*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:3277:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3282:/ clear"); /*clear *//*_.FLDKWNAM__V59*/ meltfptr[35] = 0; /*^clear */ /*clear *//*_.FLDNAM__V60*/ meltfptr[36] = 0; @@ -25880,7 +25880,7 @@ lab_endgetargs:; /*_.IF___V57*/ meltfptr[43] = /*_.LET___V58*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3275:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3280:/ clear"); /*clear *//*_.LET___V58*/ meltfptr[44] = 0; } ; @@ -25893,7 +25893,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3317:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3322:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25905,7 +25905,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.FLD__V33*/ meltfptr[32]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[12])));; - MELT_LOCATION ("warmelt-macro.melt:3317:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3322:/ cond"); /*cond */ if ( /*_#IS_A__L40*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -25913,7 +25913,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3317:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3322:/ cond.else"); /*^block */ /*anyblock */ @@ -25927,7 +25927,7 @@ lab_endgetargs:; melt_assert_failed (("check fld"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3317) ? (3317) : __LINE__, __FUNCTION__); + (3322) ? (3322) : __LINE__, __FUNCTION__); ; } ; @@ -25941,7 +25941,7 @@ lab_endgetargs:; /*_.IFCPP___V106*/ meltfptr[88] = /*_.IFELSE___V107*/ meltfptr[77];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3317:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3322:/ clear"); /*clear *//*_#IS_A__L40*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.IFELSE___V107*/ meltfptr[77] = 0; @@ -25952,7 +25952,7 @@ lab_endgetargs:; /*_.IFCPP___V106*/ meltfptr[88] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3318:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3323:/ quasiblock"); /*^checksignal */ @@ -25977,7 +25977,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3319:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3324:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26030,7 +26030,7 @@ lab_endgetargs:; /*_.FA__V110*/ meltfptr[74] = /*_.INST__V111*/ meltfptr[96];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3325:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3330:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26056,7 +26056,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3325:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3330:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L41*/ meltfnum[32]) /*then */ { /*^cond.then */ @@ -26071,7 +26071,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3325:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3330:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26085,7 +26085,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3325; + argtab[2].meltbp_long = 3330; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_assignment return fa"; /*^apply.arg */ @@ -26105,7 +26105,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V114*/ meltfptr[70];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3325:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3330:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L42*/ meltfnum[29] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V114*/ meltfptr[70] = 0; @@ -26118,7 +26118,7 @@ lab_endgetargs:; /*_.IF___V113*/ meltfptr[80] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3325:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3330:/ quasiblock"); /*_.PROGN___V115*/ meltfptr[94] = /*_.IF___V113*/ meltfptr[80];; @@ -26126,7 +26126,7 @@ lab_endgetargs:; /*_.IFCPP___V112*/ meltfptr[97] = /*_.PROGN___V115*/ meltfptr[94];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3325:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3330:/ clear"); /*clear *//*_#MELT_NEED_DBG__L41*/ meltfnum[32] = 0; /*^clear */ /*clear *//*_.IF___V113*/ meltfptr[80] = 0; @@ -26139,7 +26139,7 @@ lab_endgetargs:; /*_.IFCPP___V112*/ meltfptr[97] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3326:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3331:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26148,7 +26148,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.FA__V110*/ meltfptr[74];; { - MELT_LOCATION ("warmelt-macro.melt:3326:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3331:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -26163,7 +26163,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V108*/ meltfptr[78] = /*_.RETURN___V116*/ meltfptr[93];; - MELT_LOCATION ("warmelt-macro.melt:3318:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3323:/ clear"); /*clear *//*_.XEX__V109*/ meltfptr[79] = 0; /*^clear */ /*clear *//*_.FA__V110*/ meltfptr[74] = 0; @@ -26173,7 +26173,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V116*/ meltfptr[93] = 0; /*_.LET___V32*/ meltfptr[30] = /*_.LET___V108*/ meltfptr[78];; - MELT_LOCATION ("warmelt-macro.melt:3247:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3252:/ clear"); /*clear *//*_.FLD__V33*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_#IS_A__L13*/ meltfnum[8] = 0; @@ -26189,7 +26189,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V106*/ meltfptr[88] = 0; /*^clear */ /*clear *//*_.LET___V108*/ meltfptr[78] = 0; - MELT_LOCATION ("warmelt-macro.melt:3233:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26198,7 +26198,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V32*/ meltfptr[30];; { - MELT_LOCATION ("warmelt-macro.melt:3233:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -26331,7 +26331,7 @@ meltrout_51_warmelt_macro_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3257:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3262:/ getarg"); /*_.CURFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -26349,7 +26349,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3258:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3263:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26361,7 +26361,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CURFLD__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3258:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3263:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26369,7 +26369,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3258:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3263:/ cond.else"); /*^block */ /*anyblock */ @@ -26383,7 +26383,7 @@ lab_endgetargs:; melt_assert_failed (("check fld"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3258) ? (3258) : __LINE__, __FUNCTION__); + (3263) ? (3263) : __LINE__, __FUNCTION__); ; } ; @@ -26397,7 +26397,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3258:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3263:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -26408,7 +26408,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3259:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3264:/ quasiblock"); /*^getslot */ @@ -26419,10 +26419,10 @@ lab_endgetargs:; /*_.CURFLDNAM__V6*/ meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:3262:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3267:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:3263:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3268:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (( /*~FLDKW */ meltfclos->tabval[0])) /*=obj*/ ; @@ -26433,7 +26433,7 @@ lab_endgetargs:; /*_#S__L3*/ meltfnum[1] = melt_string_same ((melt_ptr_t) ( /*_.CURFLDNAM__V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.NAMED_NAME__V7*/ meltfptr[6]));; - MELT_LOCATION ("warmelt-macro.melt:3262:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3267:/ cond"); /*cond */ if ( /*_#S__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26443,7 +26443,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3264:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3269:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26469,7 +26469,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3264:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3269:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -26484,7 +26484,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3264:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3269:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26498,7 +26498,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3264; + argtab[2].meltbp_long = 3269; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_assignment found curfld"; @@ -26520,7 +26520,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3264:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3269:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0; @@ -26533,7 +26533,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[9] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3264:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3269:/ quasiblock"); /*_.PROGN___V12*/ meltfptr[10] = /*_.IF___V10*/ meltfptr[9];; @@ -26541,7 +26541,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[8] = /*_.PROGN___V12*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3264:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3269:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V10*/ meltfptr[9] = 0; @@ -26556,7 +26556,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3265:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3270:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26582,7 +26582,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3265:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3270:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -26597,7 +26597,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3265:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3270:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26611,7 +26611,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3265; + argtab[2].meltbp_long = 3270; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_assignment found curfldnam"; @@ -26633,7 +26633,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3265:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3270:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0; @@ -26646,7 +26646,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[10] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3265:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3270:/ quasiblock"); /*_.PROGN___V16*/ meltfptr[14] = /*_.IF___V14*/ meltfptr[10];; @@ -26654,7 +26654,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[9] = /*_.PROGN___V16*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3265:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3270:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V14*/ meltfptr[10] = 0; @@ -26667,14 +26667,14 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3266:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3271:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:3266:/ putxtraresult"); + MELT_LOCATION ("warmelt-macro.melt:3271:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -26686,7 +26686,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3262:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3267:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[14] = /*_.RETURN___V17*/ meltfptr[10];; @@ -26694,7 +26694,7 @@ lab_endgetargs:; /*_.IFELSE___V8*/ meltfptr[7] = /*_.PROGN___V18*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3262:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3267:/ clear"); /*clear *//*_.IFCPP___V9*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.IFCPP___V13*/ meltfptr[9] = 0; @@ -26712,7 +26712,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3269:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3274:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26720,7 +26720,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*!konst_2_TRUE */ meltfrout->tabval[2]);; - MELT_LOCATION ("warmelt-macro.melt:3269:/ putxtraresult"); + MELT_LOCATION ("warmelt-macro.melt:3274:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -26731,7 +26731,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3267:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3272:/ quasiblock"); /*_.PROGN___V20*/ meltfptr[9] = /*_.RETURN___V19*/ meltfptr[8];; @@ -26739,7 +26739,7 @@ lab_endgetargs:; /*_.IFELSE___V8*/ meltfptr[7] = /*_.PROGN___V20*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3262:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3267:/ clear"); /*clear *//*_.RETURN___V19*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.PROGN___V20*/ meltfptr[9] = 0; @@ -26749,7 +26749,7 @@ lab_endgetargs:; ; /*_.LET___V5*/ meltfptr[3] = /*_.IFELSE___V8*/ meltfptr[7];; - MELT_LOCATION ("warmelt-macro.melt:3259:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3264:/ clear"); /*clear *//*_.CURFLDNAM__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.NAMED_NAME__V7*/ meltfptr[6] = 0; @@ -26757,7 +26757,7 @@ lab_endgetargs:; /*clear *//*_#S__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; - MELT_LOCATION ("warmelt-macro.melt:3257:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3262:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26766,7 +26766,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; { - MELT_LOCATION ("warmelt-macro.melt:3257:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3262:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -26884,7 +26884,7 @@ meltrout_52_warmelt_macro_MEXPAND_DEFINSTANCE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3330:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -26925,7 +26925,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3331:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3336:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26937,7 +26937,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3331:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3336:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -26945,7 +26945,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3331:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3336:/ cond.else"); /*^block */ /*anyblock */ @@ -26959,7 +26959,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3331) ? (3331) : __LINE__, __FUNCTION__); + (3336) ? (3336) : __LINE__, __FUNCTION__); ; } ; @@ -26973,7 +26973,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3331:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3336:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -26986,7 +26986,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3332:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3337:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26998,7 +26998,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:3332:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3337:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -27006,7 +27006,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3332:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3337:/ cond.else"); /*^block */ /*anyblock */ @@ -27020,7 +27020,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3332) ? (3332) : __LINE__, __FUNCTION__); + (3337) ? (3337) : __LINE__, __FUNCTION__); ; } ; @@ -27034,7 +27034,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3332:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3337:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -27047,7 +27047,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3333:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3338:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27073,7 +27073,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3333:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3338:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -27088,7 +27088,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3333:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3338:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27101,7 +27101,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3333; + argtab[2].meltbp_long = 3338; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.definstance sexpr"; /*^apply.arg */ @@ -27121,7 +27121,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3333:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3338:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; @@ -27134,7 +27134,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[10] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3333:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3338:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];; @@ -27142,7 +27142,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3333:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3338:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V11*/ meltfptr[10] = 0; @@ -27155,7 +27155,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3334:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3339:/ quasiblock"); /*_.PREDEF__V15*/ meltfptr[11] = ( /*nil */ NULL);; @@ -27165,7 +27165,7 @@ lab_endgetargs:; /*_.FIELDS__V17*/ meltfptr[16] = ( /*nil */ NULL);; /*^compute */ /*_.FIELDNAMS__V18*/ meltfptr[17] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:3338:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3343:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -27173,7 +27173,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:3339:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3344:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -27197,14 +27197,14 @@ lab_endgetargs:; /*_.CLABIND__V26*/ meltfptr[25] = ( /*nil */ NULL);; /*^compute */ /*_.DOCV__V27*/ meltfptr[26] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:3347:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3352:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L5*/ meltfnum[3] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:3347:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3352:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -27214,7 +27214,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3348:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3353:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing symbol for DEFINSTANCE"), @@ -27228,15 +27228,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V28*/ meltfptr[27] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:3349:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3354:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V29*/ meltfptr[28] = /*_.PAIR_TAIL__V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:3350:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3355:/ quasiblock"); /*_.NAM__V31*/ meltfptr[30] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:3353:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3358:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -27278,7 +27278,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.IBIND__V32*/ meltfptr[31] = /*_.INST__V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:3358:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3363:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27298,7 +27298,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3359:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3364:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27316,14 +27316,14 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3360:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3365:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.NAM__V31*/ meltfptr[30]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:3360:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3365:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -27333,7 +27333,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3361:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3366:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing class name for DEFINSTANCE"), @@ -27345,7 +27345,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3362:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3367:/ quasiblock"); /*^checksignal */ @@ -27369,14 +27369,14 @@ lab_endgetargs:; /*_.FLDLIST__V38*/ meltfptr[37] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[8]))));; - MELT_LOCATION ("warmelt-macro.melt:3366:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3371:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[6] = melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]), (melt_ptr_t) (( /*!CLASS_CLASS_BINDING */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-macro.melt:3366:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3371:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -27384,10 +27384,10 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3367:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3372:/ compute"); /*_.CLABIND__V26*/ meltfptr[25] = /*_.SETQ___V40*/ meltfptr[39] = /*_.BND__V37*/ meltfptr[36];; - MELT_LOCATION ("warmelt-macro.melt:3368:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3373:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]) /*=obj*/ ; @@ -27398,7 +27398,7 @@ lab_endgetargs:; /*^compute */ /*_.CLA__V25*/ meltfptr[24] = /*_.SETQ___V42*/ meltfptr[41] = /*_.CBIND_CLASS__V41*/ meltfptr[40];; - MELT_LOCATION ("warmelt-macro.melt:3366:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3371:/ quasiblock"); /*_.PROGN___V43*/ meltfptr[42] = /*_.SETQ___V42*/ meltfptr[41];; @@ -27406,7 +27406,7 @@ lab_endgetargs:; /*_.IFELSE___V39*/ meltfptr[38] = /*_.PROGN___V43*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3366:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3371:/ clear"); /*clear *//*_.SETQ___V40*/ meltfptr[39] = 0; /*^clear */ /*clear *//*_.CBIND_CLASS__V41*/ meltfptr[40] = 0; @@ -27424,7 +27424,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3369:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3374:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -27434,7 +27434,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-macro.melt:3369:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3374:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -27442,7 +27442,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3370:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3375:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]) /*=obj*/ ; @@ -27460,7 +27460,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[8] = /*_#IS_A__L10*/ meltfnum[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3369:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3374:/ clear"); /*clear *//*_.VBIND_VALUE__V44*/ meltfptr[39] = 0; /*^clear */ /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; @@ -27473,7 +27473,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[8] = 0;; } ; - MELT_LOCATION ("warmelt-macro.melt:3369:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3374:/ cond"); /*cond */ if ( /*_#IF___L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -27481,11 +27481,11 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3371:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3376:/ compute"); /*_.CLABIND__V26*/ meltfptr[25] = /*_.SETQ___V46*/ meltfptr[41] = /*_.BND__V37*/ meltfptr[36];; - MELT_LOCATION ("warmelt-macro.melt:3372:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3377:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]) /*=obj*/ ; @@ -27496,7 +27496,7 @@ lab_endgetargs:; /*^compute */ /*_.CLA__V25*/ meltfptr[24] = /*_.SETQ___V48*/ meltfptr[39] = /*_.VBIND_VALUE__V47*/ meltfptr[42];; - MELT_LOCATION ("warmelt-macro.melt:3369:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3374:/ quasiblock"); /*_.PROGN___V49*/ meltfptr[48] = @@ -27506,7 +27506,7 @@ lab_endgetargs:; /*_.PROGN___V49*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3369:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3374:/ clear"); /*clear *//*_.SETQ___V46*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_.VBIND_VALUE__V47*/ meltfptr[42] = 0; @@ -27524,7 +27524,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3375:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3380:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.NAM__V31*/ meltfptr[30]) /*=obj*/ ; @@ -27534,14 +27534,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3374:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3379:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("invalid class name for DEFINSTANCE"), (melt_ptr_t) ( /*_.NAMED_NAME__V50*/ meltfptr[41])); } ; - MELT_LOCATION ("warmelt-macro.melt:3376:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3381:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -27550,7 +27550,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:3376:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3381:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -27563,7 +27563,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3373:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3378:/ quasiblock"); /*_.PROGN___V52*/ meltfptr[39] = @@ -27573,7 +27573,7 @@ lab_endgetargs:; /*_.PROGN___V52*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3369:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3374:/ clear"); /*clear *//*_.NAMED_NAME__V50*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_.RETURN___V51*/ meltfptr[42] = 0; @@ -27586,7 +27586,7 @@ lab_endgetargs:; /*_.IFELSE___V39*/ meltfptr[38] = /*_.IFELSE___V45*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3366:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3371:/ clear"); /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#IF___L9*/ meltfnum[8] = 0; @@ -27596,12 +27596,12 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:3378:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3383:/ compute"); /*_.CLANAME__V24*/ meltfptr[23] = /*_.SETQ___V53*/ meltfptr[48] = /*_.NAM__V31*/ meltfptr[30];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3379:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3384:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27613,7 +27613,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V25*/ meltfptr[24]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[11])));; - MELT_LOCATION ("warmelt-macro.melt:3379:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3384:/ cond"); /*cond */ if ( /*_#IS_A__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -27621,7 +27621,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3379:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3384:/ cond.else"); /*^block */ /*anyblock */ @@ -27635,7 +27635,7 @@ lab_endgetargs:; melt_assert_failed (("check cla"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3379) ? (3379) : __LINE__, __FUNCTION__); + (3384) ? (3384) : __LINE__, __FUNCTION__); ; } ; @@ -27649,7 +27649,7 @@ lab_endgetargs:; /*_.IFCPP___V54*/ meltfptr[41] = /*_.IFELSE___V55*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3379:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3384:/ clear"); /*clear *//*_#IS_A__L11*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IFELSE___V55*/ meltfptr[42] = 0; @@ -27663,10 +27663,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V56*/ meltfptr[39] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:3380:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3385:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V57*/ meltfptr[40] = /*_.PAIR_TAIL__V56*/ meltfptr[39];; - MELT_LOCATION ("warmelt-macro.melt:3381:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:3386:/ loop"); /*loop */ { labloop_INSLOOP_1:; /*^loopbody */ @@ -27678,7 +27678,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:3382:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3387:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L12*/ meltfnum[7] = @@ -27687,7 +27687,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L13*/ meltfnum[8] = (!( /*_#IS_PAIR__L12*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-macro.melt:3382:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3387:/ cond"); /*cond */ if ( /*_#NOT__L13*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -27712,12 +27712,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3383:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3388:/ quasiblock"); /*_.CURFKW__V61*/ meltfptr[60] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:3384:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3389:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L14*/ meltfnum[9] = @@ -27725,7 +27725,7 @@ lab_endgetargs:; ( /*_.CURFKW__V61*/ meltfptr[60]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[12])));; - MELT_LOCATION ("warmelt-macro.melt:3384:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3389:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L14*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -27735,7 +27735,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3385:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3390:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("expecting keyword in DEFINSTANCE"), @@ -27749,21 +27749,21 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V62*/ meltfptr[61] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:3386:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3391:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V63*/ meltfptr[62] = /*_.PAIR_TAIL__V62*/ meltfptr[61];; - MELT_LOCATION ("warmelt-macro.melt:3387:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3392:/ quasiblock"); /*_.CUREXP__V65*/ meltfptr[64] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:3388:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3393:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L15*/ meltfnum[14] = (( /*_.CURFKW__V61*/ meltfptr[60]) == (( /*!konst_13_OBJ_NUM */ meltfrout->tabval[13])));; - MELT_LOCATION ("warmelt-macro.melt:3388:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3393:/ cond"); /*cond */ if ( /*_#__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -27771,7 +27771,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3389:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3394:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -27797,7 +27797,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3391:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3396:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L16*/ meltfnum[15] = @@ -27805,7 +27805,7 @@ lab_endgetargs:; ( /*_.CUREXP__V65*/ meltfptr[64]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3391:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3396:/ cond"); /*cond */ if ( /*_#IS_A__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -27813,7 +27813,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3392:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3397:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27844,7 +27844,7 @@ lab_endgetargs:; /*_.MEXPANDER__V68*/ meltfptr[67];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3391:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3396:/ clear"); /*clear *//*_.MEXPANDER__V68*/ meltfptr[67] = 0; } ; @@ -27856,10 +27856,10 @@ lab_endgetargs:; /*_.CUREXP__V65*/ meltfptr[64];; } ; - MELT_LOCATION ("warmelt-macro.melt:3390:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3395:/ compute"); /*_.OBJNUM__V16*/ meltfptr[15] = /*_.SETQ___V69*/ meltfptr[67] = /*_.IFELSE___V67*/ meltfptr[66];; - MELT_LOCATION ("warmelt-macro.melt:3388:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3393:/ quasiblock"); /*_.PROGN___V70*/ meltfptr[69] = /*_.SETQ___V69*/ meltfptr[67];; @@ -27868,7 +27868,7 @@ lab_endgetargs:; /*_.PROGN___V70*/ meltfptr[69];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3388:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3393:/ clear"); /*clear *//*_#IS_A__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IFELSE___V67*/ meltfptr[66] = 0; @@ -27886,13 +27886,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3395:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3400:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L17*/ meltfnum[15] = (( /*_.CURFKW__V61*/ meltfptr[60]) == (( /*!konst_14_PREDEF */ meltfrout->tabval[14])));; - MELT_LOCATION ("warmelt-macro.melt:3395:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3400:/ cond"); /*cond */ if ( /*_#__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -27900,7 +27900,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3396:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3401:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -27926,7 +27926,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3398:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3403:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L18*/ meltfnum[17] = @@ -27935,7 +27935,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3398:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3403:/ cond"); /*cond */ if ( /*_#IS_A__L18*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -27944,7 +27944,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3399:/ checksignal"); + ("warmelt-macro.melt:3404:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27976,7 +27976,7 @@ lab_endgetargs:; /*_.MEXPANDER__V73*/ meltfptr[69];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3398:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3403:/ clear"); /*clear *//*_.MEXPANDER__V73*/ meltfptr[69] = 0; } ; @@ -27988,11 +27988,11 @@ lab_endgetargs:; /*_.CUREXP__V65*/ meltfptr[64];; } ; - MELT_LOCATION ("warmelt-macro.melt:3397:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3402:/ compute"); /*_.PREDEF__V15*/ meltfptr[11] = /*_.SETQ___V74*/ meltfptr[69] = /*_.IFELSE___V72*/ meltfptr[67];; - MELT_LOCATION ("warmelt-macro.melt:3395:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3400:/ quasiblock"); /*_.PROGN___V75*/ meltfptr[74] = @@ -28002,7 +28002,7 @@ lab_endgetargs:; /*_.PROGN___V75*/ meltfptr[74];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3395:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3400:/ clear"); /*clear *//*_#IS_A__L18*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IFELSE___V72*/ meltfptr[67] = 0; @@ -28020,13 +28020,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3402:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3407:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L19*/ meltfnum[17] = (( /*_.CURFKW__V61*/ meltfptr[60]) == (( /*!konst_15_DOC */ meltfrout->tabval[15])));; - MELT_LOCATION ("warmelt-macro.melt:3402:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3407:/ cond"); /*cond */ if ( /*_#__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -28035,7 +28035,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3403:/ checksignal"); + ("warmelt-macro.melt:3408:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -28062,12 +28062,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3404:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3409:/ compute"); /*_.DOCV__V27*/ meltfptr[26] = /*_.SETQ___V77*/ meltfptr[69] = /*_.CUREXP__V65*/ meltfptr[64];; MELT_LOCATION - ("warmelt-macro.melt:3402:/ quasiblock"); + ("warmelt-macro.melt:3407:/ quasiblock"); /*_.PROGN___V78*/ meltfptr[74] = @@ -28077,7 +28077,7 @@ lab_endgetargs:; /*_.PROGN___V78*/ meltfptr[74];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3402:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3407:/ clear"); /*clear *//*_.SETQ___V77*/ meltfptr[69] = 0; /*^clear */ /*clear *//*_.PROGN___V78*/ meltfptr[74] = 0; @@ -28092,11 +28092,11 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3407:/ quasiblock"); + ("warmelt-macro.melt:3412:/ quasiblock"); MELT_LOCATION - ("warmelt-macro.melt:3408:/ checksignal"); + ("warmelt-macro.melt:3413:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28137,7 +28137,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3409:/ checksignal"); + ("warmelt-macro.melt:3414:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -28151,7 +28151,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3410:/ locexp"); + ("warmelt-macro.melt:3415:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V38*/ meltfptr[37]), @@ -28164,10 +28164,10 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3407:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3412:/ clear"); /*clear *//*_.FLDA__V79*/ meltfptr[69] = 0; MELT_LOCATION - ("warmelt-macro.melt:3406:/ quasiblock"); + ("warmelt-macro.melt:3411:/ quasiblock"); /*epilog */ @@ -28179,7 +28179,7 @@ lab_endgetargs:; /*_.IFELSE___V76*/ meltfptr[67];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3395:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3400:/ clear"); /*clear *//*_#__L19*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IFELSE___V76*/ meltfptr[67] = 0; @@ -28191,7 +28191,7 @@ lab_endgetargs:; /*_.IFELSE___V71*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3388:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3393:/ clear"); /*clear *//*_#__L17*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IFELSE___V71*/ meltfptr[66] = 0; @@ -28201,7 +28201,7 @@ lab_endgetargs:; ; /*_.LET___V64*/ meltfptr[63] = /*_.IFELSE___V66*/ meltfptr[65];; - MELT_LOCATION ("warmelt-macro.melt:3387:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3392:/ clear"); /*clear *//*_.CUREXP__V65*/ meltfptr[64] = 0; /*^clear */ /*clear *//*_#__L15*/ meltfnum[14] = 0; @@ -28209,12 +28209,12 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V66*/ meltfptr[65] = 0; /*_.PAIR_TAIL__V80*/ meltfptr[74] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:3413:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3418:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V81*/ meltfptr[69] = /*_.PAIR_TAIL__V80*/ meltfptr[74];; /*_.LET___V60*/ meltfptr[59] = /*_.SETQ___V81*/ meltfptr[69];; - MELT_LOCATION ("warmelt-macro.melt:3383:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3388:/ clear"); /*clear *//*_.CURFKW__V61*/ meltfptr[60] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L14*/ meltfnum[9] = 0; @@ -28228,7 +28228,7 @@ lab_endgetargs:; /*clear *//*_.PAIR_TAIL__V80*/ meltfptr[74] = 0; /*^clear */ /*clear *//*_.SETQ___V81*/ meltfptr[69] = 0; - MELT_LOCATION ("warmelt-macro.melt:3381:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3386:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -28248,7 +28248,7 @@ lab_endgetargs:; /*_.FOREVER___V58*/ meltfptr[42] = /*_.INSLOOP__V59*/ meltfptr[58];; } ; - MELT_LOCATION ("warmelt-macro.melt:3415:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3420:/ quasiblock"); /*^checksignal */ @@ -28270,7 +28270,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3417:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3422:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -28367,7 +28367,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.SINST__V84*/ meltfptr[64] = /*_.INST__V85*/ meltfptr[65];; - MELT_LOCATION ("warmelt-macro.melt:3428:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3433:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -28408,7 +28408,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3429:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3434:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28434,7 +28434,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3429:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3434:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -28449,7 +28449,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3429:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3434:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28463,7 +28463,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3429; + argtab[2].meltbp_long = 3434; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.definstance sinst"; /*^apply.arg */ @@ -28483,7 +28483,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V88*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3429:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3434:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V88*/ meltfptr[62] = 0; @@ -28496,7 +28496,7 @@ lab_endgetargs:; /*_.IF___V87*/ meltfptr[61] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3429:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3434:/ quasiblock"); /*_.PROGN___V89*/ meltfptr[63] = /*_.IF___V87*/ meltfptr[61];; @@ -28504,7 +28504,7 @@ lab_endgetargs:; /*_.IFCPP___V86*/ meltfptr[60] = /*_.PROGN___V89*/ meltfptr[63];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3429:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3434:/ clear"); /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IF___V87*/ meltfptr[61] = 0; @@ -28517,7 +28517,7 @@ lab_endgetargs:; /*_.IFCPP___V86*/ meltfptr[60] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3430:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3435:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -28526,7 +28526,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SINST__V84*/ meltfptr[64];; { - MELT_LOCATION ("warmelt-macro.melt:3430:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3435:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -28541,7 +28541,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V82*/ meltfptr[67] = /*_.RETURN___V90*/ meltfptr[74];; - MELT_LOCATION ("warmelt-macro.melt:3415:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3420:/ clear"); /*clear *//*_.FASTUP__V83*/ meltfptr[66] = 0; /*^clear */ /*clear *//*_.SINST__V84*/ meltfptr[64] = 0; @@ -28551,7 +28551,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V90*/ meltfptr[74] = 0; /*_.LET___V36*/ meltfptr[35] = /*_.LET___V82*/ meltfptr[67];; - MELT_LOCATION ("warmelt-macro.melt:3362:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3367:/ clear"); /*clear *//*_.BND__V37*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.FLDLIST__V38*/ meltfptr[37] = 0; @@ -28573,7 +28573,7 @@ lab_endgetargs:; /*clear *//*_.LET___V82*/ meltfptr[67] = 0; /*_.LET___V30*/ meltfptr[29] = /*_.LET___V36*/ meltfptr[35];; - MELT_LOCATION ("warmelt-macro.melt:3350:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3355:/ clear"); /*clear *//*_.NAM__V31*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.IBIND__V32*/ meltfptr[31] = 0; @@ -28587,7 +28587,7 @@ lab_endgetargs:; /*clear *//*_.LET___V36*/ meltfptr[35] = 0; /*_.LET___V14*/ meltfptr[10] = /*_.LET___V30*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:3334:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3339:/ clear"); /*clear *//*_.PREDEF__V15*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.OBJNUM__V16*/ meltfptr[15] = 0; @@ -28621,7 +28621,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.LET___V30*/ meltfptr[29] = 0; - MELT_LOCATION ("warmelt-macro.melt:3330:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -28630,7 +28630,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-macro.melt:3330:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -28752,7 +28752,7 @@ meltrout_53_warmelt_macro_MEXPAND_DEFSELECTOR (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3444:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -28793,7 +28793,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3445:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3450:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28805,7 +28805,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3445:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3450:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -28813,7 +28813,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3445:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3450:/ cond.else"); /*^block */ /*anyblock */ @@ -28827,7 +28827,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3445) ? (3445) : __LINE__, __FUNCTION__); + (3450) ? (3450) : __LINE__, __FUNCTION__); ; } ; @@ -28841,7 +28841,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3445:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3450:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -28854,7 +28854,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3446:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3451:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28866,7 +28866,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:3446:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3451:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -28874,7 +28874,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3446:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3451:/ cond.else"); /*^block */ /*anyblock */ @@ -28888,7 +28888,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3446) ? (3446) : __LINE__, __FUNCTION__); + (3451) ? (3451) : __LINE__, __FUNCTION__); ; } ; @@ -28902,7 +28902,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3446:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3451:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -28915,7 +28915,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3447:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3452:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28926,7 +28926,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:3447:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3452:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -28934,7 +28934,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3447:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3452:/ cond.else"); /*^block */ /*anyblock */ @@ -28948,7 +28948,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3447) ? (3447) : __LINE__, __FUNCTION__); + (3452) ? (3452) : __LINE__, __FUNCTION__); ; } ; @@ -28962,7 +28962,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3447:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3452:/ clear"); /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -28973,12 +28973,12 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3448:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3453:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L4*/ meltfnum[0] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:3448:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3453:/ cond"); /*cond */ if ( /*_#NULL__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -28992,7 +28992,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[10] = /*_.SETQ___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3448:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3453:/ clear"); /*clear *//*_.SETQ___V13*/ meltfptr[12] = 0; } ; @@ -29005,7 +29005,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3449:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3454:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29031,7 +29031,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3449:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3454:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -29046,7 +29046,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3449:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3454:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29059,7 +29059,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3449; + argtab[2].meltbp_long = 3454; /*^apply.arg */ argtab[3].meltbp_cstring = "mexp.definstance sexpr"; /*^apply.arg */ @@ -29079,7 +29079,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3449:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3454:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0; @@ -29092,7 +29092,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3449:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3454:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[15] = /*_.IF___V15*/ meltfptr[14];; @@ -29100,7 +29100,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.PROGN___V17*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3449:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3454:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V15*/ meltfptr[14] = 0; @@ -29113,7 +29113,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3450:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3455:/ quasiblock"); /*_.PREDEF__V19*/ meltfptr[15] = ( /*nil */ NULL);; @@ -29123,7 +29123,7 @@ lab_endgetargs:; /*_.FIELDS__V21*/ meltfptr[20] = ( /*nil */ NULL);; /*^compute */ /*_.FIELDNAMS__V22*/ meltfptr[21] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:3454:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3459:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -29131,7 +29131,7 @@ lab_endgetargs:; /*_.CONT__V23*/ meltfptr[22] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:3455:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3460:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -29157,14 +29157,14 @@ lab_endgetargs:; /*_.CLABIND__V31*/ meltfptr[30] = ( /*nil */ NULL);; /*^compute */ /*_.FORMALS__V32*/ meltfptr[31] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:3464:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3469:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L7*/ meltfnum[5] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V27*/ meltfptr[26]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:3464:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3469:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -29174,20 +29174,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3466:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3471:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("missing symbol for (DEFSELECTOR <name> <class> ...)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3467:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3472:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:3467:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3472:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -29200,7 +29200,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3465:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3470:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[34] = /*_.RETURN___V34*/ meltfptr[33];; @@ -29208,7 +29208,7 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[32] = /*_.PROGN___V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3464:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3469:/ clear"); /*clear *//*_.RETURN___V34*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.PROGN___V35*/ meltfptr[34] = 0; @@ -29224,15 +29224,15 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V36*/ meltfptr[33] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; - MELT_LOCATION ("warmelt-macro.melt:3468:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3473:/ compute"); /*_.CURPAIR__V26*/ meltfptr[25] = /*_.SETQ___V37*/ meltfptr[34] = /*_.PAIR_TAIL__V36*/ meltfptr[33];; - MELT_LOCATION ("warmelt-macro.melt:3469:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3474:/ quasiblock"); /*_.NAM__V39*/ meltfptr[38] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; - MELT_LOCATION ("warmelt-macro.melt:3470:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3475:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -29274,14 +29274,14 @@ lab_endgetargs:; "newly made instance"); ; /*_.SELBIND__V40*/ meltfptr[39] = /*_.INST__V41*/ meltfptr[40];; - MELT_LOCATION ("warmelt-macro.melt:3475:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3480:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L8*/ meltfnum[4] = !melt_is_instance_of ((melt_ptr_t) ( /*_.NAM__V39*/ meltfptr[38]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:3475:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3480:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L8*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -29291,20 +29291,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3477:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3482:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("missing class name for (DEFSELECTOR <name> <class> ...)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3478:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3483:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:3478:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3483:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -29317,7 +29317,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3476:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3481:/ quasiblock"); /*_.PROGN___V44*/ meltfptr[43] = /*_.RETURN___V43*/ meltfptr[42];; @@ -29325,7 +29325,7 @@ lab_endgetargs:; /*_.IF___V42*/ meltfptr[41] = /*_.PROGN___V44*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3475:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3480:/ clear"); /*clear *//*_.RETURN___V43*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_.PROGN___V44*/ meltfptr[43] = 0; @@ -29338,7 +29338,7 @@ lab_endgetargs:; /*_.IF___V42*/ meltfptr[41] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3479:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3484:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29358,7 +29358,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3480:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3485:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29377,12 +29377,12 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3482:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3487:/ compute"); /*_.CLANAME__V28*/ meltfptr[27] = /*_.SETQ___V47*/ meltfptr[46] = /*_.NAM__V39*/ meltfptr[38];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3483:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3488:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29408,7 +29408,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3483:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3488:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -29423,7 +29423,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3483:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3488:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29437,7 +29437,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3483; + argtab[2].meltbp_long = 3488; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defselector claname"; /*^apply.arg */ @@ -29457,7 +29457,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3483:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3488:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = 0; @@ -29470,7 +29470,7 @@ lab_endgetargs:; /*_.IF___V49*/ meltfptr[48] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3483:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3488:/ quasiblock"); /*_.PROGN___V51*/ meltfptr[49] = /*_.IF___V49*/ meltfptr[48];; @@ -29478,7 +29478,7 @@ lab_endgetargs:; /*_.IFCPP___V48*/ meltfptr[47] = /*_.PROGN___V51*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3483:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3488:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IF___V49*/ meltfptr[48] = 0; @@ -29491,7 +29491,7 @@ lab_endgetargs:; /*_.IFCPP___V48*/ meltfptr[47] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3484:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3489:/ quasiblock"); /*^checksignal */ @@ -29516,14 +29516,14 @@ lab_endgetargs:; /*_.FLDLIST__V54*/ meltfptr[53] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[9]))));; - MELT_LOCATION ("warmelt-macro.melt:3488:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3493:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L11*/ meltfnum[9] = melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]), (melt_ptr_t) (( /*!CLASS_CLASS_BINDING */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-macro.melt:3488:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3493:/ cond"); /*cond */ if ( /*_#IS_A__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -29531,10 +29531,10 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3489:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3494:/ compute"); /*_.CLABIND__V31*/ meltfptr[30] = /*_.SETQ___V56*/ meltfptr[55] = /*_.BND__V53*/ meltfptr[49];; - MELT_LOCATION ("warmelt-macro.melt:3490:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3495:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]) /*=obj*/ ; @@ -29545,7 +29545,7 @@ lab_endgetargs:; /*^compute */ /*_.CLA__V29*/ meltfptr[28] = /*_.SETQ___V58*/ meltfptr[57] = /*_.CBIND_CLASS__V57*/ meltfptr[56];; - MELT_LOCATION ("warmelt-macro.melt:3488:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3493:/ quasiblock"); /*_.PROGN___V59*/ meltfptr[58] = /*_.SETQ___V58*/ meltfptr[57];; @@ -29553,7 +29553,7 @@ lab_endgetargs:; /*_.IFELSE___V55*/ meltfptr[54] = /*_.PROGN___V59*/ meltfptr[58];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3488:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3493:/ clear"); /*clear *//*_.SETQ___V56*/ meltfptr[55] = 0; /*^clear */ /*clear *//*_.CBIND_CLASS__V57*/ meltfptr[56] = 0; @@ -29571,7 +29571,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3491:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3496:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -29581,7 +29581,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[11])));; - MELT_LOCATION ("warmelt-macro.melt:3491:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3496:/ cond"); /*cond */ if ( /*_#IS_A__L12*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -29589,7 +29589,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3492:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3497:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]) /*=obj*/ ; @@ -29607,7 +29607,7 @@ lab_endgetargs:; /*_#IF___L13*/ meltfnum[12] = /*_#IS_A__L14*/ meltfnum[13];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3491:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3496:/ clear"); /*clear *//*_.VBIND_VALUE__V60*/ meltfptr[55] = 0; /*^clear */ /*clear *//*_#IS_A__L14*/ meltfnum[13] = 0; @@ -29620,7 +29620,7 @@ lab_endgetargs:; /*_#IF___L13*/ meltfnum[12] = 0;; } ; - MELT_LOCATION ("warmelt-macro.melt:3491:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3496:/ cond"); /*cond */ if ( /*_#IF___L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -29628,11 +29628,11 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3493:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3498:/ compute"); /*_.CLABIND__V31*/ meltfptr[30] = /*_.SETQ___V62*/ meltfptr[57] = /*_.BND__V53*/ meltfptr[49];; - MELT_LOCATION ("warmelt-macro.melt:3494:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3499:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]) /*=obj*/ ; @@ -29643,7 +29643,7 @@ lab_endgetargs:; /*^compute */ /*_.CLA__V29*/ meltfptr[28] = /*_.SETQ___V64*/ meltfptr[55] = /*_.VBIND_VALUE__V63*/ meltfptr[58];; - MELT_LOCATION ("warmelt-macro.melt:3491:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3496:/ quasiblock"); /*_.PROGN___V65*/ meltfptr[64] = @@ -29653,7 +29653,7 @@ lab_endgetargs:; /*_.PROGN___V65*/ meltfptr[64];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3491:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3496:/ clear"); /*clear *//*_.SETQ___V62*/ meltfptr[57] = 0; /*^clear */ /*clear *//*_.VBIND_VALUE__V63*/ meltfptr[58] = 0; @@ -29671,12 +29671,12 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3495:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3500:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOTNULL__L15*/ meltfnum[13] = (( /*_.BND__V53*/ meltfptr[49]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:3495:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3500:/ cond"); /*cond */ if ( /*_#NOTNULL__L15*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -29686,7 +29686,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3496:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3501:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29712,7 +29712,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3496:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3501:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -29728,7 +29728,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:3496:/ checksignal"); + ("warmelt-macro.melt:3501:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29743,7 +29743,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3496; + argtab[2].meltbp_long = 3501; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defselector faulty bnd"; @@ -29769,7 +29769,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3496:/ clear"); + ("warmelt-macro.melt:3501:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0; /*^clear */ @@ -29785,7 +29785,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3496:/ quasiblock"); + ("warmelt-macro.melt:3501:/ quasiblock"); /*_.PROGN___V70*/ meltfptr[64] = @@ -29795,7 +29795,7 @@ lab_endgetargs:; /*_.PROGN___V70*/ meltfptr[64];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3496:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3501:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V68*/ meltfptr[55] = 0; @@ -29808,7 +29808,7 @@ lab_endgetargs:; /*_.IFCPP___V67*/ meltfptr[58] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3498:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3503:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -29820,7 +29820,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3497:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3502:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("invalid class name for (DEFSELECTOR <name> <class> ...)"), @@ -29828,13 +29828,13 @@ lab_endgetargs:; meltfptr[55])); } ; - MELT_LOCATION ("warmelt-macro.melt:3499:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3504:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:3499:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3504:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -29848,7 +29848,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3495:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3500:/ quasiblock"); /*_.PROGN___V73*/ meltfptr[72] = @@ -29858,7 +29858,7 @@ lab_endgetargs:; /*_.PROGN___V73*/ meltfptr[72];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3495:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3500:/ clear"); /*clear *//*_.IFCPP___V67*/ meltfptr[58] = 0; /*^clear */ /*clear *//*_.NAMED_NAME__V71*/ meltfptr[55] = 0; @@ -29876,7 +29876,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3502:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3507:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -29888,7 +29888,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3501:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3506:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("unknown class name for (DEFSELECTOR <name> <class> ...)"), @@ -29896,13 +29896,13 @@ lab_endgetargs:; meltfptr[58])); } ; - MELT_LOCATION ("warmelt-macro.melt:3503:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3508:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:3503:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3508:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -29916,7 +29916,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3500:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3505:/ quasiblock"); /*_.PROGN___V76*/ meltfptr[64] = @@ -29926,7 +29926,7 @@ lab_endgetargs:; /*_.PROGN___V76*/ meltfptr[64];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3495:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3500:/ clear"); /*clear *//*_.NAMED_NAME__V74*/ meltfptr[58] = 0; /*^clear */ /*clear *//*_.RETURN___V75*/ meltfptr[55] = 0; @@ -29940,7 +29940,7 @@ lab_endgetargs:; /*_.IFELSE___V66*/ meltfptr[57];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3491:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3496:/ clear"); /*clear *//*_#NOTNULL__L15*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IFELSE___V66*/ meltfptr[57] = 0; @@ -29951,7 +29951,7 @@ lab_endgetargs:; /*_.IFELSE___V55*/ meltfptr[54] = /*_.IFELSE___V61*/ meltfptr[56];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3488:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3493:/ clear"); /*clear *//*_#IS_A__L12*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_#IF___L13*/ meltfnum[12] = 0; @@ -29963,7 +29963,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3506:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3511:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29989,7 +29989,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3506:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3511:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -30004,7 +30004,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3506:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3511:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30018,7 +30018,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3506; + argtab[2].meltbp_long = 3511; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defselector cla"; /*^apply.arg */ @@ -30038,7 +30038,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V79*/ meltfptr[55];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3506:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3511:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V79*/ meltfptr[55] = 0; @@ -30051,7 +30051,7 @@ lab_endgetargs:; /*_.IF___V78*/ meltfptr[58] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3506:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3511:/ quasiblock"); /*_.PROGN___V80*/ meltfptr[64] = /*_.IF___V78*/ meltfptr[58];; @@ -30059,7 +30059,7 @@ lab_endgetargs:; /*_.IFCPP___V77*/ meltfptr[72] = /*_.PROGN___V80*/ meltfptr[64];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3506:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3511:/ clear"); /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.IF___V78*/ meltfptr[58] = 0; @@ -30072,7 +30072,7 @@ lab_endgetargs:; /*_.IFCPP___V77*/ meltfptr[72] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3507:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3512:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#SUBCLASS_OR_EQ__L20*/ meltfnum[13] = @@ -30085,7 +30085,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L21*/ meltfnum[8] = (!( /*_#SUBCLASS_OR_EQ__L20*/ meltfnum[13]));; - MELT_LOCATION ("warmelt-macro.melt:3507:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3512:/ cond"); /*cond */ if ( /*_#NOT__L21*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -30095,7 +30095,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3509:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3514:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30121,7 +30121,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3509:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3514:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -30136,7 +30136,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3509:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3514:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30150,7 +30150,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3509; + argtab[2].meltbp_long = 3514; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_defselector class_selector="; @@ -30173,7 +30173,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V84*/ meltfptr[58];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3509:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3514:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V84*/ meltfptr[58] = 0; @@ -30186,7 +30186,7 @@ lab_endgetargs:; /*_.IF___V83*/ meltfptr[55] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3509:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3514:/ quasiblock"); /*_.PROGN___V85*/ meltfptr[64] = /*_.IF___V83*/ meltfptr[55];; @@ -30194,7 +30194,7 @@ lab_endgetargs:; /*_.IFCPP___V82*/ meltfptr[56] = /*_.PROGN___V85*/ meltfptr[64];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3509:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3514:/ clear"); /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IF___V83*/ meltfptr[55] = 0; @@ -30207,7 +30207,7 @@ lab_endgetargs:; /*_.IFCPP___V82*/ meltfptr[56] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3513:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3518:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -30240,7 +30240,7 @@ lab_endgetargs:; /*^compute */ /*_#NULL__L24*/ meltfnum[16] = (( /*_.REFERENCED_VALUE__V86*/ meltfptr[58]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:3513:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3518:/ cond"); /*cond */ if ( /*_#NULL__L24*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -30248,7 +30248,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3515:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3520:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -30259,26 +30259,26 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3514:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3519:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("invalid class in (DEFSELECTOR <name> <class>); expecting CLASS_SELECTOR\ or its subclass"), (melt_ptr_t) ( /*_.NAMED_NAME__V87*/ meltfptr[55])); } ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3513:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3518:/ clear"); /*clear *//*_.NAMED_NAME__V87*/ meltfptr[55] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3516:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3521:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:3516:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3521:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -30291,7 +30291,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3508:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3513:/ quasiblock"); /*_.PROGN___V89*/ meltfptr[55] = /*_.RETURN___V88*/ meltfptr[64];; @@ -30299,7 +30299,7 @@ lab_endgetargs:; /*_.IF___V81*/ meltfptr[57] = /*_.PROGN___V89*/ meltfptr[55];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3507:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3512:/ clear"); /*clear *//*_.IFCPP___V82*/ meltfptr[56] = 0; /*^clear */ /*clear *//*_.REFERENCED_VALUE__V86*/ meltfptr[58] = 0; @@ -30320,7 +30320,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3518:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3523:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30332,7 +30332,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V29*/ meltfptr[28]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[12])));; - MELT_LOCATION ("warmelt-macro.melt:3518:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3523:/ cond"); /*cond */ if ( /*_#IS_A__L25*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -30340,7 +30340,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3518:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3523:/ cond.else"); /*^block */ /*anyblock */ @@ -30354,7 +30354,7 @@ lab_endgetargs:; melt_assert_failed (("check cla"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3518) ? (3518) : __LINE__, __FUNCTION__); + (3523) ? (3523) : __LINE__, __FUNCTION__); ; } ; @@ -30368,7 +30368,7 @@ lab_endgetargs:; /*_.IFCPP___V90*/ meltfptr[56] = /*_.IFELSE___V91*/ meltfptr[58];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3518:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3523:/ clear"); /*clear *//*_#IS_A__L25*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IFELSE___V91*/ meltfptr[58] = 0; @@ -30382,10 +30382,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V92*/ meltfptr[64] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; - MELT_LOCATION ("warmelt-macro.melt:3519:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3524:/ compute"); /*_.CURPAIR__V26*/ meltfptr[25] = /*_.SETQ___V93*/ meltfptr[55] = /*_.PAIR_TAIL__V92*/ meltfptr[64];; - MELT_LOCATION ("warmelt-macro.melt:3520:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:3525:/ loop"); /*loop */ { labloop_INSLOOP_2:; /*^loopbody */ @@ -30397,7 +30397,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:3521:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3526:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L26*/ meltfnum[12] = @@ -30406,7 +30406,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L27*/ meltfnum[16] = (!( /*_#IS_PAIR__L26*/ meltfnum[12]));; - MELT_LOCATION ("warmelt-macro.melt:3521:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3526:/ cond"); /*cond */ if ( /*_#NOT__L27*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -30431,12 +30431,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3522:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3527:/ quasiblock"); /*_.CURFKW__V97*/ meltfptr[96] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; - MELT_LOCATION ("warmelt-macro.melt:3523:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3528:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L28*/ meltfnum[15] = @@ -30444,7 +30444,7 @@ lab_endgetargs:; ( /*_.CURFKW__V97*/ meltfptr[96]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[16])));; - MELT_LOCATION ("warmelt-macro.melt:3523:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3528:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L28*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -30454,7 +30454,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3524:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3529:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("expecting keyword in DEFSELECTOR"), @@ -30468,21 +30468,21 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V98*/ meltfptr[97] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; - MELT_LOCATION ("warmelt-macro.melt:3525:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3530:/ compute"); /*_.CURPAIR__V26*/ meltfptr[25] = /*_.SETQ___V99*/ meltfptr[98] = /*_.PAIR_TAIL__V98*/ meltfptr[97];; - MELT_LOCATION ("warmelt-macro.melt:3526:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3531:/ quasiblock"); /*_.CUREXP__V101*/ meltfptr[100] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; - MELT_LOCATION ("warmelt-macro.melt:3527:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3532:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L29*/ meltfnum[28] = (( /*_.CURFKW__V97*/ meltfptr[96]) == (( /*!konst_17_OBJ_NUM */ meltfrout->tabval[17])));; - MELT_LOCATION ("warmelt-macro.melt:3527:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3532:/ cond"); /*cond */ if ( /*_#__L29*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -30490,7 +30490,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3528:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3533:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -30516,7 +30516,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3530:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3535:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L30*/ meltfnum[29] = @@ -30524,7 +30524,7 @@ lab_endgetargs:; ( /*_.CUREXP__V101*/ meltfptr[100]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3530:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3535:/ cond"); /*cond */ if ( /*_#IS_A__L30*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -30532,7 +30532,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3531:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3536:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30563,7 +30563,7 @@ lab_endgetargs:; /*_.MEXPANDER__V104*/ meltfptr[103];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3530:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3535:/ clear"); /*clear *//*_.MEXPANDER__V104*/ meltfptr[103] = 0; } ; @@ -30575,11 +30575,11 @@ lab_endgetargs:; /*_.CUREXP__V101*/ meltfptr[100];; } ; - MELT_LOCATION ("warmelt-macro.melt:3529:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3534:/ compute"); /*_.OBJNUM__V20*/ meltfptr[19] = /*_.SETQ___V105*/ meltfptr[103] = /*_.IFELSE___V103*/ meltfptr[102];; - MELT_LOCATION ("warmelt-macro.melt:3527:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3532:/ quasiblock"); /*_.PROGN___V106*/ meltfptr[105] = @@ -30589,7 +30589,7 @@ lab_endgetargs:; /*_.PROGN___V106*/ meltfptr[105];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3527:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3532:/ clear"); /*clear *//*_#IS_A__L30*/ meltfnum[29] = 0; /*^clear */ /*clear *//*_.IFELSE___V103*/ meltfptr[102] = 0; @@ -30607,13 +30607,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3534:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3539:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L31*/ meltfnum[29] = (( /*_.CURFKW__V97*/ meltfptr[96]) == (( /*!konst_18_PREDEF */ meltfrout->tabval[18])));; - MELT_LOCATION ("warmelt-macro.melt:3534:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3539:/ cond"); /*cond */ if ( /*_#__L31*/ meltfnum[29]) /*then */ { /*^cond.then */ @@ -30621,7 +30621,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3535:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3540:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -30647,7 +30647,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3537:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3542:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L32*/ meltfnum[31] = @@ -30657,7 +30657,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3537:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3542:/ cond"); /*cond */ if ( /*_#IS_A__L32*/ meltfnum[31]) /*then */ { /*^cond.then */ @@ -30666,7 +30666,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3538:/ checksignal"); + ("warmelt-macro.melt:3543:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30698,7 +30698,7 @@ lab_endgetargs:; /*_.MEXPANDER__V109*/ meltfptr[105];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3537:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3542:/ clear"); /*clear *//*_.MEXPANDER__V109*/ meltfptr[105] = 0; } ; @@ -30710,11 +30710,11 @@ lab_endgetargs:; /*_.CUREXP__V101*/ meltfptr[100];; } ; - MELT_LOCATION ("warmelt-macro.melt:3536:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3541:/ compute"); /*_.PREDEF__V19*/ meltfptr[15] = /*_.SETQ___V110*/ meltfptr[105] = /*_.IFELSE___V108*/ meltfptr[103];; - MELT_LOCATION ("warmelt-macro.melt:3534:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3539:/ quasiblock"); /*_.PROGN___V111*/ meltfptr[110] = @@ -30724,7 +30724,7 @@ lab_endgetargs:; /*_.PROGN___V111*/ meltfptr[110];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3534:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3539:/ clear"); /*clear *//*_#IS_A__L32*/ meltfnum[31] = 0; /*^clear */ /*clear *//*_.IFELSE___V108*/ meltfptr[103] = 0; @@ -30742,13 +30742,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3541:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3546:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L33*/ meltfnum[31] = (( /*_.CURFKW__V97*/ meltfptr[96]) == (( /*!konst_19_DOC */ meltfrout->tabval[19])));; - MELT_LOCATION ("warmelt-macro.melt:3541:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3546:/ cond"); /*cond */ if ( /*_#__L33*/ meltfnum[31]) /*then */ { /*^cond.then */ @@ -30757,7 +30757,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3542:/ checksignal"); + ("warmelt-macro.melt:3547:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -30784,12 +30784,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3543:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3548:/ compute"); /*_.DOCV__V30*/ meltfptr[29] = /*_.SETQ___V113*/ meltfptr[105] = /*_.CUREXP__V101*/ meltfptr[100];; MELT_LOCATION - ("warmelt-macro.melt:3541:/ quasiblock"); + ("warmelt-macro.melt:3546:/ quasiblock"); /*_.PROGN___V114*/ meltfptr[110] = @@ -30799,7 +30799,7 @@ lab_endgetargs:; /*_.PROGN___V114*/ meltfptr[110];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3541:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3546:/ clear"); /*clear *//*_.SETQ___V113*/ meltfptr[105] = 0; /*^clear */ /*clear *//*_.PROGN___V114*/ meltfptr[110] = 0; @@ -30814,14 +30814,14 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3545:/ checksignal"); + ("warmelt-macro.melt:3550:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L34*/ meltfnum[33] = (( /*_.CURFKW__V97*/ meltfptr[96]) == (( /*!konst_20_FORMALS */ meltfrout-> tabval[20])));; - MELT_LOCATION ("warmelt-macro.melt:3545:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3550:/ cond"); /*cond */ if ( /*_#__L34*/ meltfnum[33]) /*then */ { /*^cond.then */ @@ -30830,7 +30830,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3546:/ checksignal"); + ("warmelt-macro.melt:3551:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -30858,7 +30858,7 @@ lab_endgetargs:; } /*noelse */ ; MELT_LOCATION - ("warmelt-macro.melt:3550:/ checksignal"); + ("warmelt-macro.melt:3555:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30884,7 +30884,7 @@ lab_endgetargs:; /*_.LAMBDA_ARG_BINDINGS__V116*/ meltfptr[110];; MELT_LOCATION - ("warmelt-macro.melt:3551:/ quasiblock"); + ("warmelt-macro.melt:3556:/ quasiblock"); /*_.FIRSTF__V119*/ meltfptr[118] = @@ -30893,14 +30893,14 @@ lab_endgetargs:; ( /*_.FORMALS__V32*/ meltfptr[31]), (0)));; MELT_LOCATION - ("warmelt-macro.melt:3553:/ checksignal"); + ("warmelt-macro.melt:3558:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L35*/ meltfnum[34] = (( /*_.FIRSTF__V119*/ meltfptr[118]) == NULL);; MELT_LOCATION - ("warmelt-macro.melt:3553:/ cond"); + ("warmelt-macro.melt:3558:/ cond"); /*cond */ if ( /*_#NULL__L35*/ meltfnum[34]) /*then */ { /*^cond.then */ @@ -30913,7 +30913,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3554:/ locexp"); + ("warmelt-macro.melt:3559:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), (":formals of DEFSELECTOR should have at least one value argument for\ the receiver"), (melt_ptr_t) 0); } @@ -30927,14 +30927,14 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:3553:/ cond.else"); + ("warmelt-macro.melt:3558:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-macro.melt:3555:/ checksignal"); + ("warmelt-macro.melt:3560:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -30973,7 +30973,7 @@ lab_endgetargs:; (( /*!CTYPE_VALUE */ meltfrout-> tabval[23])));; MELT_LOCATION - ("warmelt-macro.melt:3555:/ cond"); + ("warmelt-macro.melt:3560:/ cond"); /*cond */ if ( /*_#__L36*/ meltfnum[35]) /*then */ { /*^cond.then */ @@ -30986,7 +30986,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3556:/ locexp"); + ("warmelt-macro.melt:3561:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]), ("first :formals of DEFSELECTOR should be a :value"), (melt_ptr_t) 0); @@ -31001,7 +31001,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:3555:/ cond.else"); + ("warmelt-macro.melt:3560:/ cond.else"); /*_.IFELSE___V122*/ meltfptr[121] = NULL;; @@ -31013,7 +31013,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3553:/ clear"); + ("warmelt-macro.melt:3558:/ clear"); /*clear *//*_.FBIND_TYPE__V121*/ meltfptr[120] = 0; /*^clear */ @@ -31029,7 +31029,7 @@ lab_endgetargs:; /*_.IFELSE___V120*/ meltfptr[119];; MELT_LOCATION - ("warmelt-macro.melt:3551:/ clear"); + ("warmelt-macro.melt:3556:/ clear"); /*clear *//*_.FIRSTF__V119*/ meltfptr[118] = 0; /*^clear */ @@ -31038,7 +31038,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V120*/ meltfptr[119] = 0; MELT_LOCATION - ("warmelt-macro.melt:3545:/ quasiblock"); + ("warmelt-macro.melt:3550:/ quasiblock"); /*_.PROGN___V123*/ meltfptr[120] = @@ -31049,7 +31049,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:3545:/ clear"); + ("warmelt-macro.melt:3550:/ clear"); /*clear *//*_.LAMBDA_ARG_BINDINGS__V116*/ meltfptr[110] = 0; /*^clear */ @@ -31070,7 +31070,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3559:/ quasiblock"); + ("warmelt-macro.melt:3564:/ quasiblock"); /*^checksignal */ @@ -31111,7 +31111,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:3560:/ checksignal"); + ("warmelt-macro.melt:3565:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -31125,7 +31125,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:3561:/ locexp"); + ("warmelt-macro.melt:3566:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V54*/ meltfptr[53]), (melt_ptr_t) ( /*_.FLDA__V124*/ meltfptr[121])); } @@ -31137,10 +31137,10 @@ lab_endgetargs:; ; MELT_LOCATION - ("warmelt-macro.melt:3559:/ clear"); + ("warmelt-macro.melt:3564:/ clear"); /*clear *//*_.FLDA__V124*/ meltfptr[121] = 0; MELT_LOCATION - ("warmelt-macro.melt:3558:/ quasiblock"); + ("warmelt-macro.melt:3563:/ quasiblock"); /*epilog */ @@ -31152,7 +31152,7 @@ lab_endgetargs:; /*_.IFELSE___V115*/ meltfptr[105];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3541:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3546:/ clear"); /*clear *//*_#__L34*/ meltfnum[33] = 0; /*^clear */ /*clear *//*_.IFELSE___V115*/ meltfptr[105] = 0; @@ -31164,7 +31164,7 @@ lab_endgetargs:; /*_.IFELSE___V112*/ meltfptr[103];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3534:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3539:/ clear"); /*clear *//*_#__L33*/ meltfnum[31] = 0; /*^clear */ /*clear *//*_.IFELSE___V112*/ meltfptr[103] = 0; @@ -31176,7 +31176,7 @@ lab_endgetargs:; /*_.IFELSE___V107*/ meltfptr[102];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3527:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3532:/ clear"); /*clear *//*_#__L31*/ meltfnum[29] = 0; /*^clear */ /*clear *//*_.IFELSE___V107*/ meltfptr[102] = 0; @@ -31186,7 +31186,7 @@ lab_endgetargs:; ; /*_.LET___V100*/ meltfptr[99] = /*_.IFELSE___V102*/ meltfptr[101];; - MELT_LOCATION ("warmelt-macro.melt:3526:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3531:/ clear"); /*clear *//*_.CUREXP__V101*/ meltfptr[100] = 0; /*^clear */ /*clear *//*_#__L29*/ meltfnum[28] = 0; @@ -31194,12 +31194,12 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V102*/ meltfptr[101] = 0; /*_.PAIR_TAIL__V125*/ meltfptr[118] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));; - MELT_LOCATION ("warmelt-macro.melt:3564:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3569:/ compute"); /*_.CURPAIR__V26*/ meltfptr[25] = /*_.SETQ___V126*/ meltfptr[119] = /*_.PAIR_TAIL__V125*/ meltfptr[118];; /*_.LET___V96*/ meltfptr[95] = /*_.SETQ___V126*/ meltfptr[119];; - MELT_LOCATION ("warmelt-macro.melt:3522:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3527:/ clear"); /*clear *//*_.CURFKW__V97*/ meltfptr[96] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L28*/ meltfnum[15] = 0; @@ -31213,7 +31213,7 @@ lab_endgetargs:; /*clear *//*_.PAIR_TAIL__V125*/ meltfptr[118] = 0; /*^clear */ /*clear *//*_.SETQ___V126*/ meltfptr[119] = 0; - MELT_LOCATION ("warmelt-macro.melt:3520:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3525:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -31233,7 +31233,7 @@ lab_endgetargs:; /*_.FOREVER___V94*/ meltfptr[58] = /*_.INSLOOP__V95*/ meltfptr[94];; } ; - MELT_LOCATION ("warmelt-macro.melt:3566:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3571:/ quasiblock"); /*^checksignal */ @@ -31255,7 +31255,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3567:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3572:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -31354,7 +31354,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.RES__V129*/ meltfptr[117] = /*_.INST__V130*/ meltfptr[120];; - MELT_LOCATION ("warmelt-macro.melt:3578:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3583:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -31396,13 +31396,13 @@ lab_endgetargs:; ; /*_.LET___V127*/ meltfptr[110] = /*_.RES__V129*/ meltfptr[117];; - MELT_LOCATION ("warmelt-macro.melt:3566:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3571:/ clear"); /*clear *//*_.FASTUP__V128*/ meltfptr[116] = 0; /*^clear */ /*clear *//*_.RES__V129*/ meltfptr[117] = 0; /*_.LET___V52*/ meltfptr[48] = /*_.LET___V127*/ meltfptr[110];; - MELT_LOCATION ("warmelt-macro.melt:3484:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3489:/ clear"); /*clear *//*_.BND__V53*/ meltfptr[49] = 0; /*^clear */ /*clear *//*_.FLDLIST__V54*/ meltfptr[53] = 0; @@ -31430,7 +31430,7 @@ lab_endgetargs:; /*clear *//*_.LET___V127*/ meltfptr[110] = 0; /*_.LET___V38*/ meltfptr[37] = /*_.LET___V52*/ meltfptr[48];; - MELT_LOCATION ("warmelt-macro.melt:3469:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3474:/ clear"); /*clear *//*_.NAM__V39*/ meltfptr[38] = 0; /*^clear */ /*clear *//*_.SELBIND__V40*/ meltfptr[39] = 0; @@ -31450,7 +31450,7 @@ lab_endgetargs:; /*clear *//*_.LET___V52*/ meltfptr[48] = 0; /*_.LET___V18*/ meltfptr[14] = /*_.LET___V38*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:3450:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3455:/ clear"); /*clear *//*_.PREDEF__V19*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.OBJNUM__V20*/ meltfptr[19] = 0; @@ -31488,7 +31488,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V37*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.LET___V38*/ meltfptr[37] = 0; - MELT_LOCATION ("warmelt-macro.melt:3444:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -31497,7 +31497,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:3444:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -31623,7 +31623,7 @@ meltrout_54_warmelt_macro_MEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3591:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -31664,7 +31664,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3592:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3597:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31676,7 +31676,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3592:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3597:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31684,7 +31684,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3592:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3597:/ cond.else"); /*^block */ /*anyblock */ @@ -31698,7 +31698,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3592) ? (3592) : __LINE__, __FUNCTION__); + (3597) ? (3597) : __LINE__, __FUNCTION__); ; } ; @@ -31712,7 +31712,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3592:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3597:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -31725,7 +31725,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3593:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3598:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31737,7 +31737,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:3593:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3598:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31745,7 +31745,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3593:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3598:/ cond.else"); /*^block */ /*anyblock */ @@ -31759,7 +31759,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3593) ? (3593) : __LINE__, __FUNCTION__); + (3598) ? (3598) : __LINE__, __FUNCTION__); ; } ; @@ -31773,7 +31773,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3593:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3598:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -31784,13 +31784,13 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3594:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3599:/ quasiblock"); /*_.FIELDS__V11*/ meltfptr[10] = ( /*nil */ NULL);; /*^compute */ /*_.FIELDNAMS__V12*/ meltfptr[11] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:3596:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3601:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -31798,7 +31798,7 @@ lab_endgetargs:; /*_.CONT__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:3597:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3602:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -31820,7 +31820,7 @@ lab_endgetargs:; /*_.CLABIND__V19*/ meltfptr[18] = ( /*nil */ NULL);; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3603:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3608:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31846,7 +31846,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3603:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3608:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31861,7 +31861,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3603:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3608:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31874,7 +31874,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3603; + argtab[2].meltbp_long = 3608; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_instance start sexpr"; /*^apply.arg */ @@ -31894,7 +31894,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3603:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3608:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0; @@ -31907,7 +31907,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3603:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3608:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[21] = /*_.IF___V21*/ meltfptr[20];; @@ -31915,7 +31915,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = /*_.PROGN___V23*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3603:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3608:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V21*/ meltfptr[20] = 0; @@ -31928,14 +31928,14 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3604:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3609:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L5*/ meltfnum[3] = !melt_is_instance_of ((melt_ptr_t) ( /*_.CLANAME__V17*/ meltfptr[16]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:3604:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3609:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -31945,7 +31945,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3605:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3610:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("missing class symbol for INSTANCE"), @@ -31957,7 +31957,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3606:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3611:/ quasiblock"); /*^checksignal */ @@ -31982,14 +31982,14 @@ lab_endgetargs:; /*_.FLDLIST__V26*/ meltfptr[25] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[5]))));; - MELT_LOCATION ("warmelt-macro.melt:3610:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3615:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L6*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]), (melt_ptr_t) (( /*!CLASS_CLASS_BINDING */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:3610:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3615:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31997,10 +31997,10 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3611:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3616:/ compute"); /*_.CLABIND__V19*/ meltfptr[18] = /*_.SETQ___V28*/ meltfptr[27] = /*_.BND__V25*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:3612:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3617:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]) /*=obj*/ ; @@ -32011,7 +32011,7 @@ lab_endgetargs:; /*^compute */ /*_.CLA__V18*/ meltfptr[17] = /*_.SETQ___V30*/ meltfptr[29] = /*_.CBIND_CLASS__V29*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:3610:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3615:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[30] = /*_.SETQ___V30*/ meltfptr[29];; @@ -32019,7 +32019,7 @@ lab_endgetargs:; /*_.IFELSE___V27*/ meltfptr[26] = /*_.PROGN___V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3610:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3615:/ clear"); /*clear *//*_.SETQ___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.CBIND_CLASS__V29*/ meltfptr[28] = 0; @@ -32037,7 +32037,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3614:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3619:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -32047,7 +32047,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-macro.melt:3614:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3619:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -32055,7 +32055,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3615:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3620:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]) /*=obj*/ ; @@ -32073,7 +32073,7 @@ lab_endgetargs:; /*_#IF___L8*/ meltfnum[7] = /*_#IS_A__L9*/ meltfnum[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3614:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3619:/ clear"); /*clear *//*_.VBIND_VALUE__V32*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_#IS_A__L9*/ meltfnum[8] = 0; @@ -32086,7 +32086,7 @@ lab_endgetargs:; /*_#IF___L8*/ meltfnum[7] = 0;; } ; - MELT_LOCATION ("warmelt-macro.melt:3614:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3619:/ cond"); /*cond */ if ( /*_#IF___L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -32094,11 +32094,11 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3616:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3621:/ compute"); /*_.CLABIND__V19*/ meltfptr[18] = /*_.SETQ___V34*/ meltfptr[29] = /*_.BND__V25*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:3617:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3622:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]) /*=obj*/ ; @@ -32109,7 +32109,7 @@ lab_endgetargs:; /*^compute */ /*_.CLA__V18*/ meltfptr[17] = /*_.SETQ___V36*/ meltfptr[27] = /*_.VBIND_VALUE__V35*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:3614:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3619:/ quasiblock"); /*_.PROGN___V37*/ meltfptr[36] = @@ -32119,7 +32119,7 @@ lab_endgetargs:; /*_.PROGN___V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3614:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3619:/ clear"); /*clear *//*_.SETQ___V34*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.VBIND_VALUE__V35*/ meltfptr[30] = 0; @@ -32137,7 +32137,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3621:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3626:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -32148,14 +32148,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3620:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3625:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("invalid class name for INSTANCE"), (melt_ptr_t) ( /*_.NAMED_NAME__V38*/ meltfptr[29])); } ; - MELT_LOCATION ("warmelt-macro.melt:3622:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3627:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -32164,7 +32164,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:3622:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3627:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -32177,7 +32177,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3619:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3624:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[27] = @@ -32187,7 +32187,7 @@ lab_endgetargs:; /*_.PROGN___V40*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3614:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3619:/ clear"); /*clear *//*_.NAMED_NAME__V38*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.RETURN___V39*/ meltfptr[30] = 0; @@ -32200,7 +32200,7 @@ lab_endgetargs:; /*_.IFELSE___V27*/ meltfptr[26] = /*_.IFELSE___V33*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3610:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3615:/ clear"); /*clear *//*_#IS_A__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_#IF___L8*/ meltfnum[7] = 0; @@ -32212,7 +32212,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3624:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3629:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32238,7 +32238,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3624:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3629:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -32253,7 +32253,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3624:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3629:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32267,7 +32267,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3624; + argtab[2].meltbp_long = 3629; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_instance cla"; /*^apply.arg */ @@ -32287,7 +32287,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V43*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3624:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3629:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V43*/ meltfptr[30] = 0; @@ -32300,7 +32300,7 @@ lab_endgetargs:; /*_.IF___V42*/ meltfptr[29] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3624:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3629:/ quasiblock"); /*_.PROGN___V44*/ meltfptr[27] = /*_.IF___V42*/ meltfptr[29];; @@ -32308,7 +32308,7 @@ lab_endgetargs:; /*_.IFCPP___V41*/ meltfptr[36] = /*_.PROGN___V44*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3624:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3629:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IF___V42*/ meltfptr[29] = 0; @@ -32323,7 +32323,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3625:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3630:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32335,7 +32335,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[8])));; - MELT_LOCATION ("warmelt-macro.melt:3625:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3630:/ cond"); /*cond */ if ( /*_#IS_A__L12*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -32343,7 +32343,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3625:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3630:/ cond.else"); /*^block */ /*anyblock */ @@ -32357,7 +32357,7 @@ lab_endgetargs:; melt_assert_failed (("check cla"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3625) ? (3625) : __LINE__, __FUNCTION__); + (3630) ? (3630) : __LINE__, __FUNCTION__); ; } ; @@ -32371,7 +32371,7 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[28] = /*_.IFELSE___V46*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3625:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3630:/ clear"); /*clear *//*_#IS_A__L12*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V46*/ meltfptr[30] = 0; @@ -32385,10 +32385,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V47*/ meltfptr[29] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-macro.melt:3626:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3631:/ compute"); /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V48*/ meltfptr[27] = /*_.PAIR_TAIL__V47*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:3627:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:3632:/ loop"); /*loop */ { labloop_INSLOOP_3:; /*^loopbody */ @@ -32400,7 +32400,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:3628:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3633:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L13*/ meltfnum[6] = @@ -32409,7 +32409,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L14*/ meltfnum[8] = (!( /*_#IS_PAIR__L13*/ meltfnum[6]));; - MELT_LOCATION ("warmelt-macro.melt:3628:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3633:/ cond"); /*cond */ if ( /*_#NOT__L14*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -32434,12 +32434,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3629:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3634:/ quasiblock"); /*_.CURFKW__V51*/ meltfptr[50] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-macro.melt:3630:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3635:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L15*/ meltfnum[7] = @@ -32447,7 +32447,7 @@ lab_endgetargs:; ( /*_.CURFKW__V51*/ meltfptr[50]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-macro.melt:3630:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3635:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L15*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -32457,7 +32457,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3631:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3636:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("expecting keyword in INSTANCE"), @@ -32471,18 +32471,18 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V52*/ meltfptr[51] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-macro.melt:3632:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3637:/ compute"); /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V53*/ meltfptr[52] = /*_.PAIR_TAIL__V52*/ meltfptr[51];; - MELT_LOCATION ("warmelt-macro.melt:3633:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3638:/ quasiblock"); /*_.CUREXP__V54*/ meltfptr[53] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-macro.melt:3634:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3639:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:3635:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3640:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32519,7 +32519,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3636:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3641:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32545,7 +32545,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3636:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3641:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -32560,7 +32560,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3636:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3641:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32574,7 +32574,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3636; + argtab[2].meltbp_long = 3641; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_instance flda"; /*^apply.arg */ @@ -32595,7 +32595,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V58*/ meltfptr[57];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3636:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3641:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = 0; @@ -32608,7 +32608,7 @@ lab_endgetargs:; /*_.IF___V57*/ meltfptr[56] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3636:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3641:/ quasiblock"); /*_.PROGN___V59*/ meltfptr[57] = /*_.IF___V57*/ meltfptr[56];; @@ -32616,7 +32616,7 @@ lab_endgetargs:; /*_.IFCPP___V56*/ meltfptr[55] = /*_.PROGN___V59*/ meltfptr[57];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3636:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3641:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V57*/ meltfptr[56] = 0; @@ -32629,7 +32629,7 @@ lab_endgetargs:; /*_.IFCPP___V56*/ meltfptr[55] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3637:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3642:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -32642,7 +32642,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3638:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3643:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V26*/ meltfptr[25]), (melt_ptr_t) ( /*_.FLDA__V55*/ @@ -32655,13 +32655,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3637:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3642:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3640:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3645:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -32672,7 +32672,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3639:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3644:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("bad field name in INSTANCE"), (melt_ptr_t) ( /*_.NAMED_NAME__V60*/ @@ -32681,22 +32681,22 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3637:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3642:/ clear"); /*clear *//*_.NAMED_NAME__V60*/ meltfptr[56] = 0; } ; } ; - MELT_LOCATION ("warmelt-macro.melt:3634:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3639:/ clear"); /*clear *//*_.FLDA__V55*/ meltfptr[54] = 0; /*^clear */ /*clear *//*_.IFCPP___V56*/ meltfptr[55] = 0; - MELT_LOCATION ("warmelt-macro.melt:3633:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3638:/ clear"); /*clear *//*_.CUREXP__V54*/ meltfptr[53] = 0; - MELT_LOCATION ("warmelt-macro.melt:3629:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3634:/ clear"); /*clear *//*_.CURFKW__V51*/ meltfptr[50] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L15*/ meltfnum[7] = 0; @@ -32706,10 +32706,10 @@ lab_endgetargs:; /*clear *//*_.SETQ___V53*/ meltfptr[52] = 0; /*_.PAIR_TAIL__V61*/ meltfptr[57] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-macro.melt:3642:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3647:/ compute"); /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V62*/ meltfptr[56] = /*_.PAIR_TAIL__V61*/ meltfptr[57];; - MELT_LOCATION ("warmelt-macro.melt:3627:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3632:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -32731,7 +32731,7 @@ lab_endgetargs:; /*_.FOREVER___V49*/ meltfptr[30] = /*_.INSLOOP__V50*/ meltfptr[49];; } ; - MELT_LOCATION ("warmelt-macro.melt:3644:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3649:/ quasiblock"); /*^checksignal */ @@ -32753,7 +32753,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3645:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3650:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -32817,13 +32817,13 @@ lab_endgetargs:; /*^compute */ /*_.LET___V63*/ meltfptr[54] = /*_.INST___V65*/ meltfptr[53];; - MELT_LOCATION ("warmelt-macro.melt:3644:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3649:/ clear"); /*clear *//*_.FASTUP__V64*/ meltfptr[55] = 0; /*^clear */ /*clear *//*_.INST___V65*/ meltfptr[53] = 0; /*_.LET___V24*/ meltfptr[20] = /*_.LET___V63*/ meltfptr[54];; - MELT_LOCATION ("warmelt-macro.melt:3606:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3611:/ clear"); /*clear *//*_.BND__V25*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.FLDLIST__V26*/ meltfptr[25] = 0; @@ -32845,7 +32845,7 @@ lab_endgetargs:; /*clear *//*_.LET___V63*/ meltfptr[54] = 0; /*_.LET___V10*/ meltfptr[8] = /*_.LET___V24*/ meltfptr[20];; - MELT_LOCATION ("warmelt-macro.melt:3594:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3599:/ clear"); /*clear *//*_.FIELDS__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.FIELDNAMS__V12*/ meltfptr[11] = 0; @@ -32869,7 +32869,7 @@ lab_endgetargs:; /*clear *//*_#IS_NOT_A__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.LET___V24*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-macro.melt:3591:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -32878,7 +32878,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { - MELT_LOCATION ("warmelt-macro.melt:3591:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -32995,7 +32995,7 @@ meltrout_55_warmelt_macro_MEXPAND_LOAD (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3659:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3664:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -33036,7 +33036,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3660:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3665:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33062,7 +33062,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3660:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3665:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -33077,7 +33077,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3660:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3665:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33090,7 +33090,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3660; + argtab[2].meltbp_long = 3665; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_load start sexpr"; /*^apply.arg */ @@ -33109,7 +33109,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3660:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3665:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -33122,7 +33122,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3660:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3665:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -33130,7 +33130,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3660:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3665:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -33145,7 +33145,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3661:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3666:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33157,7 +33157,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:3661:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3666:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -33165,7 +33165,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3661:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3666:/ cond.else"); /*^block */ /*anyblock */ @@ -33179,7 +33179,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3661) ? (3661) : __LINE__, __FUNCTION__); + (3666) ? (3666) : __LINE__, __FUNCTION__); ; } ; @@ -33193,7 +33193,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3661:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3666:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -33206,7 +33206,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3662:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3667:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33218,7 +33218,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:3662:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3667:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -33226,7 +33226,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3662:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3667:/ cond.else"); /*^block */ /*anyblock */ @@ -33240,7 +33240,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3662) ? (3662) : __LINE__, __FUNCTION__); + (3667) ? (3667) : __LINE__, __FUNCTION__); ; } ; @@ -33254,7 +33254,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3662:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3667:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -33267,7 +33267,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3663:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3668:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33278,7 +33278,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:3663:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3668:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -33286,7 +33286,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3663:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3668:/ cond.else"); /*^block */ /*anyblock */ @@ -33300,7 +33300,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3663) ? (3663) : __LINE__, __FUNCTION__); + (3668) ? (3668) : __LINE__, __FUNCTION__); ; } ; @@ -33314,7 +33314,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3663:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3668:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -33325,12 +33325,12 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3664:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3669:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L6*/ meltfnum[0] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:3664:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3669:/ cond"); /*cond */ if ( /*_#NULL__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -33344,7 +33344,7 @@ lab_endgetargs:; /*_.IF___V16*/ meltfptr[14] = /*_.SETQ___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3664:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3669:/ clear"); /*clear *//*_.SETQ___V17*/ meltfptr[16] = 0; } ; @@ -33355,7 +33355,7 @@ lab_endgetargs:; /*_.IF___V16*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3665:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3670:/ quasiblock"); /*^getslot */ @@ -33366,7 +33366,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:3666:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3671:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -33382,12 +33382,12 @@ lab_endgetargs:; /*^compute */ /*_.FILNAM__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:3670:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3675:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V24*/ meltfptr[23] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:3670:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3675:/ cond"); /*cond */ if ( /*_.PAIR_TAIL__V24*/ meltfptr[23]) /*then */ { /*^cond.then */ @@ -33397,7 +33397,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3671:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3676:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("LOAD expects one argument"), (melt_ptr_t) 0); @@ -33408,14 +33408,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3672:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3677:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:3672:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3677:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -33423,7 +33423,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3673:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3678:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33454,7 +33454,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[24] = /*_.SETQ___V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3672:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3677:/ clear"); /*clear *//*_.MEXPANDER__V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.SETQ___V27*/ meltfptr[26] = 0; @@ -33467,14 +33467,14 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[24] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3674:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3679:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L8*/ meltfnum[7] = melt_is_instance_of ((melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:3674:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3679:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -33482,7 +33482,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3675:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3680:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22]) /*=obj*/ ; @@ -33496,7 +33496,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[25] = /*_.SETQ___V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3674:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3679:/ clear"); /*clear *//*_.NAMED_NAME__V29*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.SETQ___V30*/ meltfptr[29] = 0; @@ -33509,13 +33509,13 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3677:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3682:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L9*/ meltfnum[8] = (melt_magic_discr ((melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-macro.melt:3677:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3682:/ cond"); /*cond */ if ( /*_#IS_STRING__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -33525,13 +33525,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3678:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3683:/ locexp"); melt_inform_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("MELT loading file "), (melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22])); } ; - MELT_LOCATION ("warmelt-macro.melt:3679:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3684:/ quasiblock"); /*_.CUREAD__V33*/ meltfptr[32] = @@ -33540,7 +33540,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22])), (char *) 0));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3680:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3685:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33566,7 +33566,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3680:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3685:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -33581,7 +33581,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3680:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3685:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33595,7 +33595,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3680; + argtab[2].meltbp_long = 3685; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_load curead"; /*^apply.arg */ @@ -33616,7 +33616,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3680:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3685:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0; @@ -33629,7 +33629,7 @@ lab_endgetargs:; /*_.IF___V35*/ meltfptr[34] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3680:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3685:/ quasiblock"); /*_.PROGN___V37*/ meltfptr[35] = /*_.IF___V35*/ meltfptr[34];; @@ -33637,7 +33637,7 @@ lab_endgetargs:; /*_.IFCPP___V34*/ meltfptr[33] = /*_.PROGN___V37*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3680:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3685:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V35*/ meltfptr[34] = 0; @@ -33650,7 +33650,7 @@ lab_endgetargs:; /*_.IFCPP___V34*/ meltfptr[33] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3681:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3686:/ quasiblock"); /*^checksignal */ @@ -33679,7 +33679,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3682:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3687:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33700,7 +33700,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3684:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3689:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33726,7 +33726,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3684:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3689:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -33741,7 +33741,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3684:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3689:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33755,7 +33755,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3684; + argtab[2].meltbp_long = 3689; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_load return exptuple"; /*^apply.arg */ @@ -33776,7 +33776,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3684:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3689:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = 0; @@ -33789,7 +33789,7 @@ lab_endgetargs:; /*_.IF___V42*/ meltfptr[41] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3684:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3689:/ quasiblock"); /*_.PROGN___V44*/ meltfptr[42] = /*_.IF___V42*/ meltfptr[41];; @@ -33797,7 +33797,7 @@ lab_endgetargs:; /*_.IFCPP___V41*/ meltfptr[40] = /*_.PROGN___V44*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3684:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3689:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V42*/ meltfptr[41] = 0; @@ -33810,7 +33810,7 @@ lab_endgetargs:; /*_.IFCPP___V41*/ meltfptr[40] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3685:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3690:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -33819,7 +33819,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXPTUPLE__V40*/ meltfptr[39];; { - MELT_LOCATION ("warmelt-macro.melt:3685:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3690:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -33834,7 +33834,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V38*/ meltfptr[34] = /*_.RETURN___V45*/ meltfptr[41];; - MELT_LOCATION ("warmelt-macro.melt:3681:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3686:/ clear"); /*clear *//*_.EXPLIST__V39*/ meltfptr[35] = 0; /*^clear */ /*clear *//*_.EXPTUPLE__V40*/ meltfptr[39] = 0; @@ -33844,13 +33844,13 @@ lab_endgetargs:; /*clear *//*_.RETURN___V45*/ meltfptr[41] = 0; /*_.LET___V32*/ meltfptr[29] = /*_.LET___V38*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:3679:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3684:/ clear"); /*clear *//*_.CUREAD__V33*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.IFCPP___V34*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.LET___V38*/ meltfptr[34] = 0; - MELT_LOCATION ("warmelt-macro.melt:3677:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3682:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[42] = /*_.LET___V32*/ meltfptr[29];; @@ -33858,7 +33858,7 @@ lab_endgetargs:; /*_.IFELSE___V31*/ meltfptr[26] = /*_.PROGN___V46*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3677:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3682:/ clear"); /*clear *//*_.LET___V32*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.PROGN___V46*/ meltfptr[42] = 0; @@ -33874,7 +33874,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3690:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3695:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33900,7 +33900,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3690:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3695:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -33915,7 +33915,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3690:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3695:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33929,7 +33929,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3690; + argtab[2].meltbp_long = 3695; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_load strange filnam"; /*^apply.arg */ @@ -33950,7 +33950,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V49*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3690:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3695:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V49*/ meltfptr[40] = 0; @@ -33963,7 +33963,7 @@ lab_endgetargs:; /*_.IF___V48*/ meltfptr[39] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3690:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3695:/ quasiblock"); /*_.PROGN___V50*/ meltfptr[41] = /*_.IF___V48*/ meltfptr[39];; @@ -33971,7 +33971,7 @@ lab_endgetargs:; /*_.IFCPP___V47*/ meltfptr[35] = /*_.PROGN___V50*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3690:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3695:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V48*/ meltfptr[39] = 0; @@ -33986,19 +33986,19 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3691:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3696:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("LOAD expects a string filename"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3689:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3694:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3677:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3682:/ clear"); /*clear *//*_.IFCPP___V47*/ meltfptr[35] = 0; } ; @@ -34006,7 +34006,7 @@ lab_endgetargs:; ; /*_.LET___V18*/ meltfptr[16] = /*_.IFELSE___V31*/ meltfptr[26];; - MELT_LOCATION ("warmelt-macro.melt:3665:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3670:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -34030,7 +34030,7 @@ lab_endgetargs:; /*clear *//*_#IS_STRING__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V31*/ meltfptr[26] = 0; - MELT_LOCATION ("warmelt-macro.melt:3659:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3664:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -34039,7 +34039,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:3659:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3664:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -34167,7 +34167,7 @@ meltrout_56_warmelt_macro_PARSE_FIELD_PATTERN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3700:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ getarg"); /*_.FKEYW__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -34227,7 +34227,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3701:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3706:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34253,7 +34253,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3701:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3706:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -34268,7 +34268,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3701:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3706:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34281,7 +34281,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3701; + argtab[2].meltbp_long = 3706; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_pattern keyw"; /*^apply.arg */ @@ -34301,7 +34301,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3701:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3706:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0; @@ -34314,7 +34314,7 @@ lab_endgetargs:; /*_.IF___V9*/ meltfptr[8] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3701:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3706:/ quasiblock"); /*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];; @@ -34322,7 +34322,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[7] = /*_.PROGN___V11*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3701:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3706:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V9*/ meltfptr[8] = 0; @@ -34337,7 +34337,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3702:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3707:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34349,7 +34349,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.FKEYW__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:3702:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3707:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -34357,7 +34357,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3702:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3707:/ cond.else"); /*^block */ /*anyblock */ @@ -34371,7 +34371,7 @@ lab_endgetargs:; melt_assert_failed (("check fkeyw"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3702) ? (3702) : __LINE__, __FUNCTION__); + (3707) ? (3707) : __LINE__, __FUNCTION__); ; } ; @@ -34385,7 +34385,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[8] = /*_.IFELSE___V13*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3702:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3707:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[9] = 0; @@ -34398,7 +34398,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3703:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3708:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34410,7 +34410,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V5*/ meltfptr[4]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:3703:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3708:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -34418,7 +34418,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3703:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3708:/ cond.else"); /*^block */ /*anyblock */ @@ -34432,7 +34432,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3703) ? (3703) : __LINE__, __FUNCTION__); + (3708) ? (3708) : __LINE__, __FUNCTION__); ; } ; @@ -34446,7 +34446,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[9] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3703:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3708:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -34459,7 +34459,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3704:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3709:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34470,7 +34470,7 @@ lab_endgetargs:; /*_#IS_A__L5*/ meltfnum[1] = melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V6*/ meltfptr[5]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:3704:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3709:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -34478,7 +34478,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3704:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3709:/ cond.else"); /*^block */ /*anyblock */ @@ -34492,7 +34492,7 @@ lab_endgetargs:; melt_assert_failed (("check pctc"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3704) ? (3704) : __LINE__, __FUNCTION__); + (3709) ? (3709) : __LINE__, __FUNCTION__); ; } ; @@ -34506,7 +34506,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3704:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3709:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -34519,7 +34519,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3705:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3710:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34531,7 +34531,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:3705:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3710:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -34539,7 +34539,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3705:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3710:/ cond.else"); /*^block */ /*anyblock */ @@ -34553,7 +34553,7 @@ lab_endgetargs:; melt_assert_failed (("check cla"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3705) ? (3705) : __LINE__, __FUNCTION__); + (3710) ? (3710) : __LINE__, __FUNCTION__); ; } ; @@ -34567,7 +34567,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3705:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3710:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; @@ -34578,10 +34578,10 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3706:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3711:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:3707:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3712:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CLA__V3*/ meltfptr[2]) /*=obj*/ ; @@ -34589,7 +34589,7 @@ lab_endgetargs:; /*_.CLAFIELDS__V21*/ meltfptr[20] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:3708:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3713:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -34622,7 +34622,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.FLDCONT__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-macro.melt:3709:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3714:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34646,7 +34646,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3711:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3716:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34672,7 +34672,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3711:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3716:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -34687,7 +34687,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3711:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3716:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34700,7 +34700,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3711; + argtab[2].meltbp_long = 3716; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_pattern clafields"; /*^apply.arg */ @@ -34720,7 +34720,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3711:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3716:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0; @@ -34733,7 +34733,7 @@ lab_endgetargs:; /*_.IF___V26*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3711:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3716:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[26] = /*_.IF___V26*/ meltfptr[25];; @@ -34741,7 +34741,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[24] = /*_.PROGN___V28*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3711:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3716:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V26*/ meltfptr[25] = 0; @@ -34754,7 +34754,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[24] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3715:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3720:/ quasiblock"); /*^newclosure */ @@ -34792,7 +34792,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.FLDCONT__V22*/ meltfptr[21]); ; /*_.LAMBDA___V29*/ meltfptr[25] = /*_.LAMBDA___V30*/ meltfptr[26];; - MELT_LOCATION ("warmelt-macro.melt:3713:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3718:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34811,7 +34811,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3725:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3730:/ quasiblock"); /*^cond */ @@ -34839,14 +34839,14 @@ lab_endgetargs:; /*_.FLD__V33*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3727:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3732:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L9*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.FLD__V33*/ meltfptr[32]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[11])));; - MELT_LOCATION ("warmelt-macro.melt:3727:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3732:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L9*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -34856,7 +34856,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3729:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3734:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34882,7 +34882,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3729:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3734:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -34897,7 +34897,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3729:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3734:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34911,7 +34911,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3729; + argtab[2].meltbp_long = 3734; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_pattern bad fld"; /*^apply.arg */ @@ -34932,7 +34932,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3729:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3734:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0; @@ -34945,7 +34945,7 @@ lab_endgetargs:; /*_.IF___V36*/ meltfptr[35] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3729:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3734:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[36] = /*_.IF___V36*/ meltfptr[35];; @@ -34953,7 +34953,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[34] = /*_.PROGN___V38*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3729:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3734:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V36*/ meltfptr[35] = 0; @@ -34966,7 +34966,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[34] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3731:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3736:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FKEYW__V2*/ meltfptr[1]) /*=obj*/ ; @@ -34976,20 +34976,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3730:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3735:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.PSLOC__V7*/ meltfptr[6]), ("invalid :field in pattern"), (melt_ptr_t) ( /*_.NAMED_NAME__V39*/ meltfptr[35])); } ; - MELT_LOCATION ("warmelt-macro.melt:3732:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3737:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:3732:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3737:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -35002,7 +35002,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3728:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3733:/ quasiblock"); /*_.PROGN___V41*/ meltfptr[40] = /*_.RETURN___V40*/ meltfptr[36];; @@ -35010,7 +35010,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = /*_.PROGN___V41*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3727:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3732:/ clear"); /*clear *//*_.IFCPP___V35*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.NAMED_NAME__V39*/ meltfptr[35] = 0; @@ -35027,10 +35027,10 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3733:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3738:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:3734:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3739:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -35083,7 +35083,7 @@ lab_endgetargs:; /*_.PATF__V43*/ meltfptr[35] = /*_.INST__V44*/ meltfptr[36];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3740:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3745:/ cppif.then"); /*^block */ /*anyblock */ { @@ -35109,7 +35109,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3740:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3745:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -35124,7 +35124,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3740:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3745:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -35138,7 +35138,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3740; + argtab[2].meltbp_long = 3745; /*^apply.arg */ argtab[3].meltbp_cstring = "parse_field_pattern return patf"; /*^apply.arg */ @@ -35158,7 +35158,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3740:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3745:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 0; @@ -35171,7 +35171,7 @@ lab_endgetargs:; /*_.IF___V46*/ meltfptr[45] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3740:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3745:/ quasiblock"); /*_.PROGN___V48*/ meltfptr[46] = /*_.IF___V46*/ meltfptr[45];; @@ -35179,7 +35179,7 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[40] = /*_.PROGN___V48*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3740:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3745:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V46*/ meltfptr[45] = 0; @@ -35192,7 +35192,7 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[40] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3741:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3746:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -35201,7 +35201,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PATF__V43*/ meltfptr[35];; { - MELT_LOCATION ("warmelt-macro.melt:3741:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3746:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -35216,7 +35216,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V42*/ meltfptr[34] = /*_.RETURN___V49*/ meltfptr[45];; - MELT_LOCATION ("warmelt-macro.melt:3733:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3738:/ clear"); /*clear *//*_.PATF__V43*/ meltfptr[35] = 0; /*^clear */ /*clear *//*_.IFCPP___V45*/ meltfptr[40] = 0; @@ -35224,7 +35224,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V49*/ meltfptr[45] = 0; /*_.LET___V32*/ meltfptr[31] = /*_.LET___V42*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:3725:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3730:/ clear"); /*clear *//*_.FLD__V33*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L9*/ meltfnum[0] = 0; @@ -35234,7 +35234,7 @@ lab_endgetargs:; /*clear *//*_.LET___V42*/ meltfptr[34] = 0; /*_.LET___V20*/ meltfptr[18] = /*_.LET___V32*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:3706:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3711:/ clear"); /*clear *//*_.CLAFIELDS__V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.FLDCONT__V22*/ meltfptr[21] = 0; @@ -35248,7 +35248,7 @@ lab_endgetargs:; /*clear *//*_.MULTIPLE_ITERATE_TEST__V31*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.LET___V32*/ meltfptr[31] = 0; - MELT_LOCATION ("warmelt-macro.melt:3700:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -35257,7 +35257,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V20*/ meltfptr[18];; { - MELT_LOCATION ("warmelt-macro.melt:3700:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -35380,7 +35380,7 @@ meltrout_57_warmelt_macro_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3715:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3720:/ getarg"); /*_.CFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -35398,7 +35398,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3716:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3721:/ cppif.then"); /*^block */ /*anyblock */ { @@ -35410,7 +35410,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CFLD__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3716:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3721:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -35418,7 +35418,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3716:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3721:/ cond.else"); /*^block */ /*anyblock */ @@ -35432,7 +35432,7 @@ lab_endgetargs:; melt_assert_failed (("check fld"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3716) ? (3716) : __LINE__, __FUNCTION__); + (3721) ? (3721) : __LINE__, __FUNCTION__); ; } ; @@ -35446,7 +35446,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3716:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3721:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -35457,7 +35457,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3717:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3722:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^getslot */ @@ -35468,7 +35468,7 @@ lab_endgetargs:; /*_.NAMED_NAME__V5*/ meltfptr[3] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:3718:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3723:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (( /*~FKEYW */ meltfclos->tabval[0])) /*=obj*/ ; @@ -35479,7 +35479,7 @@ lab_endgetargs:; /*_#S__L3*/ meltfnum[1] = melt_string_same ((melt_ptr_t) ( /*_.NAMED_NAME__V5*/ meltfptr[3]), (melt_ptr_t) ( /*_.NAMED_NAME__V6*/ meltfptr[5]));; - MELT_LOCATION ("warmelt-macro.melt:3717:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3722:/ cond"); /*cond */ if ( /*_#S__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -35487,7 +35487,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3720:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3725:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -35528,14 +35528,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3721:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3726:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:3721:/ putxtraresult"); + MELT_LOCATION ("warmelt-macro.melt:3726:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -35546,7 +35546,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3719:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3724:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[8] = /*_.RETURN___V8*/ meltfptr[7];; @@ -35554,7 +35554,7 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.PROGN___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3717:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3722:/ clear"); /*clear *//*_.RETURN___V8*/ meltfptr[7] = 0; /*^clear */ /*clear *//*_.PROGN___V9*/ meltfptr[8] = 0; @@ -35568,14 +35568,14 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3723:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3728:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ /*_.RETVAL___V1*/ meltfptr[0] = /*_.CFLD__V2*/ meltfptr[1];; - MELT_LOCATION ("warmelt-macro.melt:3723:/ putxtraresult"); + MELT_LOCATION ("warmelt-macro.melt:3728:/ putxtraresult"); if (!meltxrestab_ || !meltxresdescr_) goto labend_rout; if (meltxresdescr_[0] != MELTBPAR_PTR) @@ -35589,13 +35589,13 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[6] = /*_.RETURN___V10*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3717:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3722:/ clear"); /*clear *//*_.RETURN___V10*/ meltfptr[7] = 0; } ; } ; - MELT_LOCATION ("warmelt-macro.melt:3715:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3720:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -35604,7 +35604,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V7*/ meltfptr[6];; { - MELT_LOCATION ("warmelt-macro.melt:3715:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3720:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -35728,7 +35728,7 @@ meltrout_58_warmelt_macro_PATEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3744:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -35759,7 +35759,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3745:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3750:/ cppif.then"); /*^block */ /*anyblock */ { @@ -35771,7 +35771,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3745:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3750:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -35779,7 +35779,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3745:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3750:/ cond.else"); /*^block */ /*anyblock */ @@ -35793,7 +35793,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3745) ? (3745) : __LINE__, __FUNCTION__); + (3750) ? (3750) : __LINE__, __FUNCTION__); ; } ; @@ -35807,7 +35807,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3745:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3750:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -35820,7 +35820,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3746:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3751:/ cppif.then"); /*^block */ /*anyblock */ { @@ -35832,7 +35832,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:3746:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3751:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -35840,7 +35840,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3746:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3751:/ cond.else"); /*^block */ /*anyblock */ @@ -35854,7 +35854,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3746) ? (3746) : __LINE__, __FUNCTION__); + (3751) ? (3751) : __LINE__, __FUNCTION__); ; } ; @@ -35868,7 +35868,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3746:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3751:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -35881,7 +35881,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3747:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3752:/ cppif.then"); /*^block */ /*anyblock */ { @@ -35892,7 +35892,7 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:3747:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3752:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -35900,7 +35900,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3747:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3752:/ cond.else"); /*^block */ /*anyblock */ @@ -35914,7 +35914,7 @@ lab_endgetargs:; melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3747) ? (3747) : __LINE__, __FUNCTION__); + (3752) ? (3752) : __LINE__, __FUNCTION__); ; } ; @@ -35928,7 +35928,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3747:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3752:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -35941,7 +35941,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3748:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3753:/ cppif.then"); /*^block */ /*anyblock */ { @@ -35967,7 +35967,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3748:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3753:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -35982,7 +35982,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3748:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3753:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -35995,7 +35995,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3748; + argtab[2].meltbp_long = 3753; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_instance sexpr"; /*^apply.arg */ @@ -36015,7 +36015,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3748:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3753:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0; @@ -36028,7 +36028,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3748:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3753:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];; @@ -36036,7 +36036,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3748:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3753:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V12*/ meltfptr[11] = 0; @@ -36049,10 +36049,10 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3749:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3754:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:3750:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3755:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -36060,7 +36060,7 @@ lab_endgetargs:; /*_.CONT__V16*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:3751:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3756:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -36084,14 +36084,14 @@ lab_endgetargs:; /*_.CLA__V23*/ meltfptr[22] = ( /*nil */ NULL);; /*^compute */ /*_.CLABIND__V24*/ meltfptr[23] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:3759:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3764:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[4] = !melt_is_instance_of ((melt_ptr_t) ( /*_.CLANAME__V22*/ meltfptr[21]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:3759:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3764:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -36101,7 +36101,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3760:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3765:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("missing class symbol for INSTANCE pattern"), @@ -36113,7 +36113,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3761:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3766:/ quasiblock"); /*^checksignal */ @@ -36138,14 +36138,14 @@ lab_endgetargs:; /*_.FLDLIST__V27*/ meltfptr[26] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[6]))));; - MELT_LOCATION ("warmelt-macro.melt:3765:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3770:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_CLASS_BINDING */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-macro.melt:3765:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3770:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -36153,10 +36153,10 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3766:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3771:/ compute"); /*_.CLABIND__V24*/ meltfptr[23] = /*_.SETQ___V29*/ meltfptr[28] = /*_.BND__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:3767:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3772:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]) /*=obj*/ ; @@ -36167,7 +36167,7 @@ lab_endgetargs:; /*^compute */ /*_.CLA__V23*/ meltfptr[22] = /*_.SETQ___V31*/ meltfptr[30] = /*_.CBIND_CLASS__V30*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:3765:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3770:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[31] = /*_.SETQ___V31*/ meltfptr[30];; @@ -36175,7 +36175,7 @@ lab_endgetargs:; /*_.IFELSE___V28*/ meltfptr[27] = /*_.PROGN___V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3765:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3770:/ clear"); /*clear *//*_.SETQ___V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.CBIND_CLASS__V30*/ meltfptr[29] = 0; @@ -36193,7 +36193,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3769:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3774:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -36203,7 +36203,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-macro.melt:3769:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3774:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -36211,7 +36211,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3770:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3775:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]) /*=obj*/ ; @@ -36229,7 +36229,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[8] = /*_#IS_A__L10*/ meltfnum[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3769:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3774:/ clear"); /*clear *//*_.VBIND_VALUE__V33*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; @@ -36242,7 +36242,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[8] = 0;; } ; - MELT_LOCATION ("warmelt-macro.melt:3769:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3774:/ cond"); /*cond */ if ( /*_#IF___L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -36250,11 +36250,11 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3771:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3776:/ compute"); /*_.CLABIND__V24*/ meltfptr[23] = /*_.SETQ___V35*/ meltfptr[30] = /*_.BND__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:3772:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3777:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]) /*=obj*/ ; @@ -36265,7 +36265,7 @@ lab_endgetargs:; /*^compute */ /*_.CLA__V23*/ meltfptr[22] = /*_.SETQ___V37*/ meltfptr[28] = /*_.VBIND_VALUE__V36*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:3769:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3774:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[37] = @@ -36275,7 +36275,7 @@ lab_endgetargs:; /*_.PROGN___V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3769:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3774:/ clear"); /*clear *//*_.SETQ___V35*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.VBIND_VALUE__V36*/ meltfptr[31] = 0; @@ -36293,7 +36293,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3776:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3781:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -36304,14 +36304,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3775:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3780:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("invalid class name for INSTANCE"), (melt_ptr_t) ( /*_.NAMED_NAME__V39*/ meltfptr[30])); } ; - MELT_LOCATION ("warmelt-macro.melt:3777:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3782:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -36320,7 +36320,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:3777:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3782:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -36333,7 +36333,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3774:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3779:/ quasiblock"); /*_.PROGN___V41*/ meltfptr[28] = @@ -36343,7 +36343,7 @@ lab_endgetargs:; /*_.PROGN___V41*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3769:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3774:/ clear"); /*clear *//*_.NAMED_NAME__V39*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.RETURN___V40*/ meltfptr[31] = 0; @@ -36356,7 +36356,7 @@ lab_endgetargs:; /*_.IFELSE___V28*/ meltfptr[27] = /*_.IFELSE___V34*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3765:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3770:/ clear"); /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#IF___L9*/ meltfnum[8] = 0; @@ -36368,7 +36368,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3779:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3784:/ cppif.then"); /*^block */ /*anyblock */ { @@ -36380,7 +36380,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[9])));; - MELT_LOCATION ("warmelt-macro.melt:3779:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3784:/ cond"); /*cond */ if ( /*_#IS_A__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -36388,7 +36388,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3779:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3784:/ cond.else"); /*^block */ /*anyblock */ @@ -36402,7 +36402,7 @@ lab_endgetargs:; melt_assert_failed (("check cla"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3779) ? (3779) : __LINE__, __FUNCTION__); + (3784) ? (3784) : __LINE__, __FUNCTION__); ; } ; @@ -36416,7 +36416,7 @@ lab_endgetargs:; /*_.IFCPP___V42*/ meltfptr[37] = /*_.IFELSE___V43*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3779:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3784:/ clear"); /*clear *//*_#IS_A__L11*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IFELSE___V43*/ meltfptr[30] = 0; @@ -36430,10 +36430,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V44*/ meltfptr[31] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:3780:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3785:/ compute"); /*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V45*/ meltfptr[28] = /*_.PAIR_TAIL__V44*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:3782:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:3787:/ loop"); /*loop */ { labloop_INSLOOP_4:; /*^loopbody */ @@ -36445,7 +36445,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:3784:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3789:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L12*/ meltfnum[7] = @@ -36454,7 +36454,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L13*/ meltfnum[8] = (!( /*_#IS_PAIR__L12*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-macro.melt:3784:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3789:/ cond"); /*cond */ if ( /*_#NOT__L13*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -36479,12 +36479,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3785:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3790:/ quasiblock"); /*_.CURFKW__V48*/ meltfptr[47] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:3786:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3791:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L14*/ meltfnum[9] = @@ -36492,7 +36492,7 @@ lab_endgetargs:; ( /*_.CURFKW__V48*/ meltfptr[47]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-macro.melt:3786:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3791:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L14*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -36502,7 +36502,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3787:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3792:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("expecting keyword in INSTANCE"), @@ -36516,15 +36516,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V49*/ meltfptr[48] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:3788:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3793:/ compute"); /*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V50*/ meltfptr[49] = /*_.PAIR_TAIL__V49*/ meltfptr[48];; - MELT_LOCATION ("warmelt-macro.melt:3789:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3794:/ quasiblock"); /*_.CUREXP__V51*/ meltfptr[50] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:3790:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3795:/ quasiblock"); /*^checksignal */ @@ -36559,7 +36559,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3791:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3796:/ cppif.then"); /*^block */ /*anyblock */ { @@ -36585,7 +36585,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3791:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3796:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -36600,7 +36600,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3791:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3796:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -36614,7 +36614,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3791; + argtab[2].meltbp_long = 3796; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_instance fldp"; /*^apply.arg */ @@ -36635,7 +36635,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3791:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3796:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0; @@ -36648,7 +36648,7 @@ lab_endgetargs:; /*_.IF___V54*/ meltfptr[53] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3791:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3796:/ quasiblock"); /*_.PROGN___V56*/ meltfptr[54] = /*_.IF___V54*/ meltfptr[53];; @@ -36656,7 +36656,7 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[52] = /*_.PROGN___V56*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3791:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3796:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IF___V54*/ meltfptr[53] = 0; @@ -36669,7 +36669,7 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[52] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3792:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3797:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -36682,7 +36682,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3793:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3798:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V27*/ meltfptr[26]), (melt_ptr_t) ( /*_.FLDP__V52*/ @@ -36695,13 +36695,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3792:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3797:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3795:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3800:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -36712,7 +36712,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3794:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3799:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("bad field name in INSTANCE"), (melt_ptr_t) ( /*_.NAMED_NAME__V57*/ @@ -36721,22 +36721,22 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3792:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3797:/ clear"); /*clear *//*_.NAMED_NAME__V57*/ meltfptr[53] = 0; } ; } ; - MELT_LOCATION ("warmelt-macro.melt:3790:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3795:/ clear"); /*clear *//*_.FLDP__V52*/ meltfptr[51] = 0; /*^clear */ /*clear *//*_.IFCPP___V53*/ meltfptr[52] = 0; - MELT_LOCATION ("warmelt-macro.melt:3789:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3794:/ clear"); /*clear *//*_.CUREXP__V51*/ meltfptr[50] = 0; - MELT_LOCATION ("warmelt-macro.melt:3785:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3790:/ clear"); /*clear *//*_.CURFKW__V48*/ meltfptr[47] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L14*/ meltfnum[9] = 0; @@ -36746,10 +36746,10 @@ lab_endgetargs:; /*clear *//*_.SETQ___V50*/ meltfptr[49] = 0; /*_.PAIR_TAIL__V58*/ meltfptr[54] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:3797:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3802:/ compute"); /*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V59*/ meltfptr[53] = /*_.PAIR_TAIL__V58*/ meltfptr[54];; - MELT_LOCATION ("warmelt-macro.melt:3782:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3787:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -36771,10 +36771,10 @@ lab_endgetargs:; /*_.FOREVER___V46*/ meltfptr[29] = /*_.INSLOOP__V47*/ meltfptr[30];; } ; - MELT_LOCATION ("warmelt-macro.melt:3799:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3804:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:3800:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3805:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -36793,7 +36793,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3802:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3807:/ quasiblock"); /*^newclosure */ @@ -36805,7 +36805,7 @@ lab_endgetargs:; tabval[16])), (0)); ; /*_.LAMBDA___V62*/ meltfptr[50] = /*_.LAMBDA___V63*/ meltfptr[47];; - MELT_LOCATION ("warmelt-macro.melt:3801:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3806:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -36824,7 +36824,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3804:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3809:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -36883,10 +36883,10 @@ lab_endgetargs:; "newly made instance"); ; /*_.SPATI__V65*/ meltfptr[49] = /*_.INST__V66*/ meltfptr[54];; - MELT_LOCATION ("warmelt-macro.melt:3812:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3817:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:3810:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3815:/ quasiblock"); /*^multiapply */ @@ -36914,7 +36914,7 @@ lab_endgetargs:; /*^quasiblock */ - MELT_LOCATION ("warmelt-macro.melt:3813:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3818:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L20*/ meltfnum[7] = @@ -36925,7 +36925,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_CONSTANT_INTEGER */ meltfrout->tabval[19])), ( /*_#I__L20*/ meltfnum[7])));; - MELT_LOCATION ("warmelt-macro.melt:3813:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3818:/ quasiblock"); /*^putslot */ @@ -36948,7 +36948,7 @@ lab_endgetargs:; ; - MELT_LOCATION ("warmelt-macro.melt:3810:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3815:/ clear"); /*clear *//*_#I__L20*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MAKE_INTEGERBOX__V68*/ meltfptr[67] = 0; @@ -36961,7 +36961,7 @@ lab_endgetargs:; /*clear *//*_#ISUM__L19*/ meltfnum[9] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3818:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3823:/ cppif.then"); /*^block */ /*anyblock */ { @@ -36987,7 +36987,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3818:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3823:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -37002,7 +37002,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3818:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3823:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -37016,7 +37016,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3818; + argtab[2].meltbp_long = 3823; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_instance return spati"; /*^apply.arg */ @@ -37036,7 +37036,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V71*/ meltfptr[70];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3818:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3823:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V71*/ meltfptr[70] = 0; @@ -37049,7 +37049,7 @@ lab_endgetargs:; /*_.IF___V70*/ meltfptr[53] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3818:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3823:/ quasiblock"); /*_.PROGN___V72*/ meltfptr[70] = /*_.IF___V70*/ meltfptr[53];; @@ -37057,7 +37057,7 @@ lab_endgetargs:; /*_.IFCPP___V69*/ meltfptr[67] = /*_.PROGN___V72*/ meltfptr[70];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3818:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3823:/ clear"); /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IF___V70*/ meltfptr[53] = 0; @@ -37070,7 +37070,7 @@ lab_endgetargs:; /*_.IFCPP___V69*/ meltfptr[67] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3819:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3824:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -37079,7 +37079,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPATI__V65*/ meltfptr[49];; { - MELT_LOCATION ("warmelt-macro.melt:3819:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3824:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -37094,7 +37094,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V60*/ meltfptr[51] = /*_.RETURN___V73*/ meltfptr[53];; - MELT_LOCATION ("warmelt-macro.melt:3799:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3804:/ clear"); /*clear *//*_.SPATFIELDS__V61*/ meltfptr[52] = 0; /*^clear */ /*clear *//*_.LAMBDA___V62*/ meltfptr[50] = 0; @@ -37108,7 +37108,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V73*/ meltfptr[53] = 0; /*_.LET___V25*/ meltfptr[24] = /*_.LET___V60*/ meltfptr[51];; - MELT_LOCATION ("warmelt-macro.melt:3761:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3766:/ clear"); /*clear *//*_.BND__V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.FLDLIST__V27*/ meltfptr[26] = 0; @@ -37128,7 +37128,7 @@ lab_endgetargs:; /*clear *//*_.LET___V60*/ meltfptr[51] = 0; /*_.LET___V15*/ meltfptr[11] = /*_.LET___V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:3749:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3754:/ clear"); /*clear *//*_.CONT__V16*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LOC__V17*/ meltfptr[16] = 0; @@ -37150,7 +37150,7 @@ lab_endgetargs:; /*clear *//*_#IS_NOT_A__L6*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.LET___V25*/ meltfptr[24] = 0; - MELT_LOCATION ("warmelt-macro.melt:3744:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -37159,7 +37159,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];; { - MELT_LOCATION ("warmelt-macro.melt:3744:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -37280,7 +37280,7 @@ meltrout_59_warmelt_macro_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3802:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3807:/ getarg"); /*_.CURPATFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -37296,7 +37296,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:3803:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3808:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -37320,13 +37320,13 @@ lab_endgetargs:; /*_.SPAF_PATTERN__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3802:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3807:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPAF_PATTERN__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:3802:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3807:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -37440,7 +37440,7 @@ meltrout_60_warmelt_macro_PATEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3839:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -37471,7 +37471,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3840:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3845:/ cppif.then"); /*^block */ /*anyblock */ { @@ -37483,7 +37483,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3840:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3845:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -37491,7 +37491,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3840:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3845:/ cond.else"); /*^block */ /*anyblock */ @@ -37505,7 +37505,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3840) ? (3840) : __LINE__, __FUNCTION__); + (3845) ? (3845) : __LINE__, __FUNCTION__); ; } ; @@ -37519,7 +37519,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3840:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3845:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -37532,7 +37532,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3841:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3846:/ cppif.then"); /*^block */ /*anyblock */ { @@ -37544,7 +37544,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:3841:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3846:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -37552,7 +37552,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3841:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3846:/ cond.else"); /*^block */ /*anyblock */ @@ -37566,7 +37566,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3841) ? (3841) : __LINE__, __FUNCTION__); + (3846) ? (3846) : __LINE__, __FUNCTION__); ; } ; @@ -37580,7 +37580,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3841:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3846:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -37593,7 +37593,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3842:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3847:/ cppif.then"); /*^block */ /*anyblock */ { @@ -37604,7 +37604,7 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:3842:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3847:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -37612,7 +37612,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3842:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3847:/ cond.else"); /*^block */ /*anyblock */ @@ -37626,7 +37626,7 @@ lab_endgetargs:; melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3842) ? (3842) : __LINE__, __FUNCTION__); + (3847) ? (3847) : __LINE__, __FUNCTION__); ; } ; @@ -37640,7 +37640,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3842:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3847:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -37653,7 +37653,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3843:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3848:/ cppif.then"); /*^block */ /*anyblock */ { @@ -37679,7 +37679,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3843:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3848:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -37694,7 +37694,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3843:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3848:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -37707,7 +37707,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3843; + argtab[2].meltbp_long = 3848; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_object sexpr"; /*^apply.arg */ @@ -37727,7 +37727,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3843:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3848:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0; @@ -37740,7 +37740,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3843:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3848:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];; @@ -37748,7 +37748,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3843:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3848:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V12*/ meltfptr[11] = 0; @@ -37761,10 +37761,10 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3844:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3849:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:3845:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3850:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -37772,7 +37772,7 @@ lab_endgetargs:; /*_.CONT__V16*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:3846:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3851:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -37796,14 +37796,14 @@ lab_endgetargs:; /*_.CLA__V23*/ meltfptr[22] = ( /*nil */ NULL);; /*^compute */ /*_.CLABIND__V24*/ meltfptr[23] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:3854:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3859:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[4] = !melt_is_instance_of ((melt_ptr_t) ( /*_.CLANAME__V22*/ meltfptr[21]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:3854:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3859:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -37813,7 +37813,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3855:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3860:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("missing class symbol for OBJECT pattern"), @@ -37825,7 +37825,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3856:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3861:/ quasiblock"); /*^checksignal */ @@ -37850,14 +37850,14 @@ lab_endgetargs:; /*_.FLDLIST__V27*/ meltfptr[26] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[6]))));; - MELT_LOCATION ("warmelt-macro.melt:3860:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3865:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_CLASS_BINDING */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-macro.melt:3860:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3865:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -37865,10 +37865,10 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3861:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3866:/ compute"); /*_.CLABIND__V24*/ meltfptr[23] = /*_.SETQ___V29*/ meltfptr[28] = /*_.BND__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:3862:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3867:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]) /*=obj*/ ; @@ -37879,7 +37879,7 @@ lab_endgetargs:; /*^compute */ /*_.CLA__V23*/ meltfptr[22] = /*_.SETQ___V31*/ meltfptr[30] = /*_.CBIND_CLASS__V30*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:3860:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3865:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[31] = /*_.SETQ___V31*/ meltfptr[30];; @@ -37887,7 +37887,7 @@ lab_endgetargs:; /*_.IFELSE___V28*/ meltfptr[27] = /*_.PROGN___V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3860:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3865:/ clear"); /*clear *//*_.SETQ___V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.CBIND_CLASS__V30*/ meltfptr[29] = 0; @@ -37905,7 +37905,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3864:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3869:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -37915,7 +37915,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-macro.melt:3864:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3869:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -37923,7 +37923,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3865:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3870:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]) /*=obj*/ ; @@ -37941,7 +37941,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[8] = /*_#IS_A__L10*/ meltfnum[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3864:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3869:/ clear"); /*clear *//*_.VBIND_VALUE__V33*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; @@ -37954,7 +37954,7 @@ lab_endgetargs:; /*_#IF___L9*/ meltfnum[8] = 0;; } ; - MELT_LOCATION ("warmelt-macro.melt:3864:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3869:/ cond"); /*cond */ if ( /*_#IF___L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -37962,11 +37962,11 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3866:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3871:/ compute"); /*_.CLABIND__V24*/ meltfptr[23] = /*_.SETQ___V35*/ meltfptr[30] = /*_.BND__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:3867:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3872:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]) /*=obj*/ ; @@ -37977,7 +37977,7 @@ lab_endgetargs:; /*^compute */ /*_.CLA__V23*/ meltfptr[22] = /*_.SETQ___V37*/ meltfptr[28] = /*_.VBIND_VALUE__V36*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:3864:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3869:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[37] = @@ -37987,7 +37987,7 @@ lab_endgetargs:; /*_.PROGN___V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3864:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3869:/ clear"); /*clear *//*_.SETQ___V35*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.VBIND_VALUE__V36*/ meltfptr[31] = 0; @@ -38005,7 +38005,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3871:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3876:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -38016,14 +38016,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3870:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3875:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("invalid class name for OBJECT pattern"), (melt_ptr_t) ( /*_.NAMED_NAME__V39*/ meltfptr[30])); } ; - MELT_LOCATION ("warmelt-macro.melt:3872:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3877:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -38032,7 +38032,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:3872:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3877:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -38045,7 +38045,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3869:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3874:/ quasiblock"); /*_.PROGN___V41*/ meltfptr[28] = @@ -38055,7 +38055,7 @@ lab_endgetargs:; /*_.PROGN___V41*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3864:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3869:/ clear"); /*clear *//*_.NAMED_NAME__V39*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.RETURN___V40*/ meltfptr[31] = 0; @@ -38068,7 +38068,7 @@ lab_endgetargs:; /*_.IFELSE___V28*/ meltfptr[27] = /*_.IFELSE___V34*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3860:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3865:/ clear"); /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_#IF___L9*/ meltfnum[8] = 0; @@ -38080,7 +38080,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3874:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3879:/ cppif.then"); /*^block */ /*anyblock */ { @@ -38092,7 +38092,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout-> tabval[9])));; - MELT_LOCATION ("warmelt-macro.melt:3874:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3879:/ cond"); /*cond */ if ( /*_#IS_A__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -38100,7 +38100,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3874:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3879:/ cond.else"); /*^block */ /*anyblock */ @@ -38114,7 +38114,7 @@ lab_endgetargs:; melt_assert_failed (("check cla"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3874) ? (3874) : __LINE__, __FUNCTION__); + (3879) ? (3879) : __LINE__, __FUNCTION__); ; } ; @@ -38128,7 +38128,7 @@ lab_endgetargs:; /*_.IFCPP___V42*/ meltfptr[37] = /*_.IFELSE___V43*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3874:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3879:/ clear"); /*clear *//*_#IS_A__L11*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IFELSE___V43*/ meltfptr[30] = 0; @@ -38142,10 +38142,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V44*/ meltfptr[31] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:3875:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3880:/ compute"); /*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V45*/ meltfptr[28] = /*_.PAIR_TAIL__V44*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:3877:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:3882:/ loop"); /*loop */ { labloop_INSLOOP_5:; /*^loopbody */ @@ -38157,7 +38157,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:3879:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3884:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L12*/ meltfnum[7] = @@ -38166,7 +38166,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L13*/ meltfnum[8] = (!( /*_#IS_PAIR__L12*/ meltfnum[7]));; - MELT_LOCATION ("warmelt-macro.melt:3879:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3884:/ cond"); /*cond */ if ( /*_#NOT__L13*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -38191,12 +38191,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3880:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3885:/ quasiblock"); /*_.CURFKW__V48*/ meltfptr[47] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:3881:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3886:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L14*/ meltfnum[9] = @@ -38204,7 +38204,7 @@ lab_endgetargs:; ( /*_.CURFKW__V48*/ meltfptr[47]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-macro.melt:3881:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3886:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L14*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -38214,7 +38214,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3882:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3887:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("expecting keyword in OBJECT pattern"), @@ -38228,15 +38228,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V49*/ meltfptr[48] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:3883:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3888:/ compute"); /*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V50*/ meltfptr[49] = /*_.PAIR_TAIL__V49*/ meltfptr[48];; - MELT_LOCATION ("warmelt-macro.melt:3884:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3889:/ quasiblock"); /*_.CUREXP__V51*/ meltfptr[50] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:3885:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3890:/ quasiblock"); /*^checksignal */ @@ -38271,7 +38271,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3886:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3891:/ cppif.then"); /*^block */ /*anyblock */ { @@ -38297,7 +38297,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3886:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3891:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -38312,7 +38312,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3886:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3891:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -38326,7 +38326,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3886; + argtab[2].meltbp_long = 3891; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_object fldp"; /*^apply.arg */ @@ -38347,7 +38347,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3886:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3891:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0; @@ -38360,7 +38360,7 @@ lab_endgetargs:; /*_.IF___V54*/ meltfptr[53] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3886:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3891:/ quasiblock"); /*_.PROGN___V56*/ meltfptr[54] = /*_.IF___V54*/ meltfptr[53];; @@ -38368,7 +38368,7 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[52] = /*_.PROGN___V56*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3886:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3891:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IF___V54*/ meltfptr[53] = 0; @@ -38381,7 +38381,7 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[52] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3887:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3892:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -38394,7 +38394,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3888:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3893:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V27*/ meltfptr[26]), (melt_ptr_t) ( /*_.FLDP__V52*/ @@ -38407,13 +38407,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3887:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3892:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3890:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3895:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -38424,7 +38424,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3889:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3894:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("bad field name in OBJECT pattern"), (melt_ptr_t) ( /*_.NAMED_NAME__V57*/ @@ -38433,22 +38433,22 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3887:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3892:/ clear"); /*clear *//*_.NAMED_NAME__V57*/ meltfptr[53] = 0; } ; } ; - MELT_LOCATION ("warmelt-macro.melt:3885:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3890:/ clear"); /*clear *//*_.FLDP__V52*/ meltfptr[51] = 0; /*^clear */ /*clear *//*_.IFCPP___V53*/ meltfptr[52] = 0; - MELT_LOCATION ("warmelt-macro.melt:3884:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3889:/ clear"); /*clear *//*_.CUREXP__V51*/ meltfptr[50] = 0; - MELT_LOCATION ("warmelt-macro.melt:3880:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3885:/ clear"); /*clear *//*_.CURFKW__V48*/ meltfptr[47] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L14*/ meltfnum[9] = 0; @@ -38458,10 +38458,10 @@ lab_endgetargs:; /*clear *//*_.SETQ___V50*/ meltfptr[49] = 0; /*_.PAIR_TAIL__V58*/ meltfptr[54] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:3892:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3897:/ compute"); /*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V59*/ meltfptr[53] = /*_.PAIR_TAIL__V58*/ meltfptr[54];; - MELT_LOCATION ("warmelt-macro.melt:3877:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3882:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -38483,10 +38483,10 @@ lab_endgetargs:; /*_.FOREVER___V46*/ meltfptr[29] = /*_.INSLOOP__V47*/ meltfptr[30];; } ; - MELT_LOCATION ("warmelt-macro.melt:3894:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3899:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:3895:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3900:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -38505,7 +38505,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3897:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3902:/ quasiblock"); /*^newclosure */ @@ -38517,7 +38517,7 @@ lab_endgetargs:; tabval[16])), (0)); ; /*_.LAMBDA___V62*/ meltfptr[50] = /*_.LAMBDA___V63*/ meltfptr[47];; - MELT_LOCATION ("warmelt-macro.melt:3896:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3901:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -38536,7 +38536,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3899:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3904:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -38586,10 +38586,10 @@ lab_endgetargs:; "newly made instance"); ; /*_.SPATI__V65*/ meltfptr[49] = /*_.INST__V66*/ meltfptr[54];; - MELT_LOCATION ("warmelt-macro.melt:3906:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3911:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:3904:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3909:/ quasiblock"); /*^multiapply */ @@ -38617,7 +38617,7 @@ lab_endgetargs:; /*^quasiblock */ - MELT_LOCATION ("warmelt-macro.melt:3907:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3912:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L20*/ meltfnum[7] = @@ -38628,7 +38628,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_CONSTANT_INTEGER */ meltfrout->tabval[19])), ( /*_#I__L20*/ meltfnum[7])));; - MELT_LOCATION ("warmelt-macro.melt:3907:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3912:/ quasiblock"); /*^putslot */ @@ -38652,7 +38652,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3911:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3916:/ cppif.then"); /*^block */ /*anyblock */ { @@ -38678,7 +38678,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3911:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3916:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -38693,7 +38693,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3911:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3916:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -38707,7 +38707,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3911; + argtab[2].meltbp_long = 3916; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_object return spati"; /*^apply.arg */ @@ -38727,7 +38727,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V72*/ meltfptr[71];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3911:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3916:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V72*/ meltfptr[71] = 0; @@ -38740,7 +38740,7 @@ lab_endgetargs:; /*_.IF___V71*/ meltfptr[70] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3911:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3916:/ quasiblock"); /*_.PROGN___V73*/ meltfptr[71] = /*_.IF___V71*/ meltfptr[70];; @@ -38748,7 +38748,7 @@ lab_endgetargs:; /*_.IFCPP___V70*/ meltfptr[69] = /*_.PROGN___V73*/ meltfptr[71];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3911:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3916:/ clear"); /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IF___V71*/ meltfptr[70] = 0; @@ -38761,7 +38761,7 @@ lab_endgetargs:; /*_.IFCPP___V70*/ meltfptr[69] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3912:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3917:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -38770,7 +38770,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPATI__V65*/ meltfptr[49];; { - MELT_LOCATION ("warmelt-macro.melt:3912:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3917:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -38783,12 +38783,12 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:3904:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3909:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MULTI___V67*/ meltfptr[53] = /*_.RETURN___V74*/ meltfptr[70];; - MELT_LOCATION ("warmelt-macro.melt:3904:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3909:/ clear"); /*clear *//*_#I__L20*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MAKE_INTEGERBOX__V69*/ meltfptr[68] = 0; @@ -38805,7 +38805,7 @@ lab_endgetargs:; /*clear *//*_#ISUM__L19*/ meltfnum[9] = 0; /*_.LET___V60*/ meltfptr[51] = /*_.MULTI___V67*/ meltfptr[53];; - MELT_LOCATION ("warmelt-macro.melt:3894:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3899:/ clear"); /*clear *//*_.PATFIELDS__V61*/ meltfptr[52] = 0; /*^clear */ /*clear *//*_.LAMBDA___V62*/ meltfptr[50] = 0; @@ -38817,7 +38817,7 @@ lab_endgetargs:; /*clear *//*_.MULTI___V67*/ meltfptr[53] = 0; /*_.LET___V25*/ meltfptr[24] = /*_.LET___V60*/ meltfptr[51];; - MELT_LOCATION ("warmelt-macro.melt:3856:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3861:/ clear"); /*clear *//*_.BND__V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.FLDLIST__V27*/ meltfptr[26] = 0; @@ -38837,7 +38837,7 @@ lab_endgetargs:; /*clear *//*_.LET___V60*/ meltfptr[51] = 0; /*_.LET___V15*/ meltfptr[11] = /*_.LET___V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:3844:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3849:/ clear"); /*clear *//*_.CONT__V16*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LOC__V17*/ meltfptr[16] = 0; @@ -38859,7 +38859,7 @@ lab_endgetargs:; /*clear *//*_#IS_NOT_A__L6*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.LET___V25*/ meltfptr[24] = 0; - MELT_LOCATION ("warmelt-macro.melt:3839:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -38868,7 +38868,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];; { - MELT_LOCATION ("warmelt-macro.melt:3839:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -38989,7 +38989,7 @@ meltrout_61_warmelt_macro_LAMBDA___17__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3897:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3902:/ getarg"); /*_.CURPATFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -39005,7 +39005,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:3898:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3903:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -39029,13 +39029,13 @@ lab_endgetargs:; /*_.SPAF_PATTERN__V3*/ meltfptr[2] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3897:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3902:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPAF_PATTERN__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:3897:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3902:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -39149,7 +39149,7 @@ meltrout_62_warmelt_macro_MEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3916:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3921:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -39190,7 +39190,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3917:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3922:/ cppif.then"); /*^block */ /*anyblock */ { @@ -39202,7 +39202,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3917:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3922:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -39210,7 +39210,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3917:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3922:/ cond.else"); /*^block */ /*anyblock */ @@ -39224,7 +39224,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3917) ? (3917) : __LINE__, __FUNCTION__); + (3922) ? (3922) : __LINE__, __FUNCTION__); ; } ; @@ -39238,7 +39238,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3917:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3922:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -39251,7 +39251,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3918:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3923:/ cppif.then"); /*^block */ /*anyblock */ { @@ -39263,7 +39263,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:3918:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3923:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -39271,7 +39271,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3918:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3923:/ cond.else"); /*^block */ /*anyblock */ @@ -39285,7 +39285,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3918) ? (3918) : __LINE__, __FUNCTION__); + (3923) ? (3923) : __LINE__, __FUNCTION__); ; } ; @@ -39299,7 +39299,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3918:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3923:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -39312,7 +39312,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3919:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3924:/ cppif.then"); /*^block */ /*anyblock */ { @@ -39338,7 +39338,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3919:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3924:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -39353,7 +39353,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3919:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3924:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -39366,7 +39366,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3919; + argtab[2].meltbp_long = 3924; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_object sexpr"; /*^apply.arg */ @@ -39386,7 +39386,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3919:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3924:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; @@ -39399,7 +39399,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[10] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3919:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3924:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];; @@ -39407,7 +39407,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3919:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3924:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V11*/ meltfptr[10] = 0; @@ -39420,10 +39420,10 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3920:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3925:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:3921:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3926:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -39433,18 +39433,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:3923:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3928:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V15*/ meltfptr[11]), ("OBJECT cannot be macro-expanded in expression context - use INSTANCE\ instead"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3924:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3929:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:3924:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3929:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -39459,11 +39459,11 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V14*/ meltfptr[10] = /*_.RETURN___V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-macro.melt:3920:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3925:/ clear"); /*clear *//*_.LOC__V15*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.RETURN___V16*/ meltfptr[15] = 0; - MELT_LOCATION ("warmelt-macro.melt:3916:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3921:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -39472,7 +39472,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-macro.melt:3916:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3921:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -39594,7 +39594,7 @@ meltrout_63_warmelt_macro_MEXPAND_CODE_CHUNK (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3939:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -39635,7 +39635,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3940:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3945:/ cppif.then"); /*^block */ /*anyblock */ { @@ -39647,7 +39647,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3940:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3945:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -39655,7 +39655,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3940:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3945:/ cond.else"); /*^block */ /*anyblock */ @@ -39669,7 +39669,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3940) ? (3940) : __LINE__, __FUNCTION__); + (3945) ? (3945) : __LINE__, __FUNCTION__); ; } ; @@ -39683,7 +39683,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3940:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3945:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -39696,7 +39696,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3941:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3946:/ cppif.then"); /*^block */ /*anyblock */ { @@ -39708,7 +39708,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:3941:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3946:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -39716,7 +39716,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3941:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3946:/ cond.else"); /*^block */ /*anyblock */ @@ -39730,7 +39730,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3941) ? (3941) : __LINE__, __FUNCTION__); + (3946) ? (3946) : __LINE__, __FUNCTION__); ; } ; @@ -39744,7 +39744,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3941:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3946:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -39755,7 +39755,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3942:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3947:/ quasiblock"); /*^getslot */ @@ -39766,7 +39766,7 @@ lab_endgetargs:; /*_.CONT__V11*/ meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:3943:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:3948:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -39792,17 +39792,17 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_HEAD__V19*/ meltfptr[18] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:3950:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3955:/ compute"); /*_.CUREL__V18*/ meltfptr[17] = /*_.SETQ___V20*/ meltfptr[19] = /*_.PAIR_HEAD__V19*/ meltfptr[18];; - MELT_LOCATION ("warmelt-macro.melt:3951:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3956:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.CUREL__V18*/ meltfptr[17]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:3951:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3956:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -39810,13 +39810,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3952:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3957:/ compute"); /*_.GSYM__V16*/ meltfptr[15] = /*_.SETQ___V22*/ meltfptr[21] = /*_.CUREL__V18*/ meltfptr[17];; /*_.IFELSE___V21*/ meltfptr[20] = /*_.SETQ___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3951:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3956:/ clear"); /*clear *//*_.SETQ___V22*/ meltfptr[21] = 0; } ; @@ -39832,7 +39832,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3953:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3958:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V12*/ meltfptr[11]), ("missing symbol in (CODE_CHUNK <state-symbol> <chunk>)"), @@ -39848,20 +39848,20 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V23*/ meltfptr[21] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:3954:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3959:/ compute"); /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V24*/ meltfptr[23] = /*_.PAIR_TAIL__V23*/ meltfptr[21];; /*_.PAIR_HEAD__V25*/ meltfptr[24] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:3955:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:3960:/ compute"); /*_.CURCHK__V15*/ meltfptr[14] = /*_.SETQ___V26*/ meltfptr[25] = /*_.PAIR_HEAD__V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:3956:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3961:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V27*/ meltfptr[26] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:3956:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3961:/ cond"); /*cond */ if ( /*_.PAIR_TAIL__V27*/ meltfptr[26]) /*then */ { /*^cond.then */ @@ -39871,7 +39871,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3957:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3962:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V12*/ meltfptr[11]), ("CODE_CHUNK expects one single chunk sexpr"), @@ -39883,14 +39883,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3958:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3963:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L4*/ meltfnum[3] = !melt_is_instance_of ((melt_ptr_t) ( /*_.CURCHK__V15*/ meltfptr[14]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3958:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3963:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -39900,7 +39900,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3959:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3964:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V12*/ meltfptr[11]), ("CODE_CHUNK expects a chunk sexpr"), @@ -39912,7 +39912,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:3960:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3965:/ quasiblock"); /*^cond */ @@ -39940,7 +39940,7 @@ lab_endgetargs:; /*_.LOC__V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3961:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3966:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -39979,14 +39979,14 @@ lab_endgetargs:; melt_pair_head ((melt_ptr_t) /*_.CURPAIR__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-macro.melt:3966:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3971:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L5*/ meltfnum[4] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURCOMP__V32*/ meltfptr[31])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-macro.melt:3966:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3971:/ cond"); /*cond */ if ( /*_#IS_STRING__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -40002,7 +40002,7 @@ lab_endgetargs:; ( /*_.CURCOMP__V32*/ meltfptr[31]))));; { - MELT_LOCATION ("warmelt-macro.melt:3967:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3972:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.CHKLIST__V17*/ meltfptr[16]), (melt_ptr_t) ( /*_.MAKE_STRING__V33*/ @@ -40011,7 +40011,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3966:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3971:/ clear"); /*clear *//*_.MAKE_STRING__V33*/ meltfptr[32] = 0; } ; @@ -40023,7 +40023,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:3969:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3974:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L6*/ meltfnum[5] = @@ -40032,7 +40032,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:3969:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3974:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -40042,7 +40042,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3970:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3975:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.CHKLIST__V17*/ meltfptr[16]), @@ -40056,7 +40056,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3969:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3974:/ cond.else"); /*^block */ /*anyblock */ @@ -40064,7 +40064,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:3972:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3977:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V29*/ meltfptr[28]), @@ -40072,7 +40072,7 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3971:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3976:/ quasiblock"); /*epilog */ @@ -40082,7 +40082,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3966:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3971:/ clear"); /*clear *//*_#IS_A__L6*/ meltfnum[5] = 0; } ; @@ -40095,7 +40095,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:3963:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3968:/ clear"); /*clear *//*_.CURPAIR__V31*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.CURCOMP__V32*/ meltfptr[31] = 0; @@ -40103,13 +40103,13 @@ lab_endgetargs:; /*clear *//*_#IS_STRING__L5*/ meltfnum[4] = 0; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-macro.melt:3974:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3979:/ quasiblock"); /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:3975:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3980:/ cond"); /*cond */ if ( /*_.LOC__V29*/ meltfptr[28]) /*then */ { /*^cond.then */ @@ -40117,12 +40117,12 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3975:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3980:/ cond.else"); /*_.OR___V35*/ meltfptr[34] = /*_.SLOC__V12*/ meltfptr[11];; } ; - MELT_LOCATION ("warmelt-macro.melt:3977:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3982:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -40141,7 +40141,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:3974:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3979:/ quasiblock"); /*^rawallocobj */ @@ -40192,7 +40192,7 @@ lab_endgetargs:; /*_.MRES__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3979:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3984:/ cppif.then"); /*^block */ /*anyblock */ { @@ -40218,7 +40218,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:3979:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3984:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -40233,7 +40233,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:3979:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3984:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -40246,7 +40246,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 3979; + argtab[2].meltbp_long = 3984; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_code_chunk result"; /*^apply.arg */ @@ -40266,7 +40266,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3979:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3984:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0; @@ -40279,7 +40279,7 @@ lab_endgetargs:; /*_.IF___V40*/ meltfptr[39] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:3979:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:3984:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[40] = /*_.IF___V40*/ meltfptr[39];; @@ -40287,7 +40287,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[38] = /*_.PROGN___V42*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3979:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3984:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IF___V40*/ meltfptr[39] = 0; @@ -40300,7 +40300,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[38] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3980:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3985:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -40309,7 +40309,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MRES__V37*/ meltfptr[36];; { - MELT_LOCATION ("warmelt-macro.melt:3980:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3985:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -40324,7 +40324,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V34*/ meltfptr[32] = /*_.RETURN___V43*/ meltfptr[39];; - MELT_LOCATION ("warmelt-macro.melt:3974:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3979:/ clear"); /*clear *//*_.OR___V35*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.LIST_TO_MULTIPLE__V36*/ meltfptr[35] = 0; @@ -40336,7 +40336,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V43*/ meltfptr[39] = 0; /*_.LET___V28*/ meltfptr[27] = /*_.LET___V34*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:3960:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3965:/ clear"); /*clear *//*_.LOC__V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.CHKCONT__V30*/ meltfptr[29] = 0; @@ -40344,7 +40344,7 @@ lab_endgetargs:; /*clear *//*_.LET___V34*/ meltfptr[32] = 0; /*_.LET___V10*/ meltfptr[8] = /*_.LET___V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:3942:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3947:/ clear"); /*clear *//*_.CONT__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.SLOC__V12*/ meltfptr[11] = 0; @@ -40382,7 +40382,7 @@ lab_endgetargs:; /*clear *//*_#IS_NOT_A__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.LET___V28*/ meltfptr[27] = 0; - MELT_LOCATION ("warmelt-macro.melt:3939:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -40391,7 +40391,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { - MELT_LOCATION ("warmelt-macro.melt:3939:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -40515,7 +40515,7 @@ meltrout_64_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:3990:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:3995:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -40556,7 +40556,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3991:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3996:/ cppif.then"); /*^block */ /*anyblock */ { @@ -40568,7 +40568,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:3991:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3996:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -40576,7 +40576,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3991:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3996:/ cond.else"); /*^block */ /*anyblock */ @@ -40590,7 +40590,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3991) ? (3991) : __LINE__, __FUNCTION__); + (3996) ? (3996) : __LINE__, __FUNCTION__); ; } ; @@ -40604,7 +40604,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3991:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3996:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -40617,7 +40617,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3992:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3997:/ cppif.then"); /*^block */ /*anyblock */ { @@ -40629,7 +40629,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:3992:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3997:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -40637,7 +40637,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3992:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3997:/ cond.else"); /*^block */ /*anyblock */ @@ -40651,7 +40651,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3992) ? (3992) : __LINE__, __FUNCTION__); + (3997) ? (3997) : __LINE__, __FUNCTION__); ; } ; @@ -40665,7 +40665,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3992:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3997:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -40676,12 +40676,12 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3993:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3998:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[0] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:3993:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3998:/ cond"); /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -40695,7 +40695,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3993:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3998:/ clear"); /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0; } ; @@ -40708,7 +40708,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3994:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:3999:/ cppif.then"); /*^block */ /*anyblock */ { @@ -40719,7 +40719,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:3994:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:3999:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -40727,7 +40727,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3994:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:3999:/ cond.else"); /*^block */ /*anyblock */ @@ -40741,7 +40741,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3994) ? (3994) : __LINE__, __FUNCTION__); + (3999) ? (3999) : __LINE__, __FUNCTION__); ; } ; @@ -40755,7 +40755,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3994:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:3999:/ clear"); /*clear *//*_#IS_CLOSURE__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -40768,7 +40768,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:3995:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4000:/ cppif.then"); /*^block */ /*anyblock */ { @@ -40779,7 +40779,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:3995:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4000:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -40787,7 +40787,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:3995:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4000:/ cond.else"); /*^block */ /*anyblock */ @@ -40801,7 +40801,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (3995) ? (3995) : __LINE__, __FUNCTION__); + (4000) ? (4000) : __LINE__, __FUNCTION__); ; } ; @@ -40815,7 +40815,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:3995:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4000:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -40826,13 +40826,13 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:3996:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4001:/ quasiblock"); /*_.FIELDS__V17*/ meltfptr[16] = ( /*nil */ NULL);; /*^compute */ /*_.FIELDNAMS__V18*/ meltfptr[17] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:3998:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4003:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -40840,7 +40840,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:3999:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4004:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -40856,14 +40856,14 @@ lab_endgetargs:; /*^compute */ /*_.OBJSRC__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4003:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4008:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L6*/ meltfnum[3] = melt_is_instance_of ((melt_ptr_t) ( /*_.OBJSRC__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4003:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4008:/ cond"); /*cond */ if ( /*_#IS_A__L6*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -40871,7 +40871,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4004:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4009:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -40899,7 +40899,7 @@ lab_endgetargs:; /*_.OBJEXP__V24*/ meltfptr[23] = /*_.MEXPANDER__V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4003:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4008:/ clear"); /*clear *//*_.MEXPANDER__V25*/ meltfptr[24] = 0; } ; @@ -40913,16 +40913,16 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V26*/ meltfptr[24] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4007:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4012:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V27*/ meltfptr[26] = /*_.PAIR_TAIL__V26*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:4008:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4013:/ quasiblock"); /*_.FLDLIST__V29*/ meltfptr[28] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[3]))));; - MELT_LOCATION ("warmelt-macro.melt:4010:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:4015:/ loop"); /*loop */ { labloop_INSLOOP_6:; /*^loopbody */ @@ -40934,7 +40934,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:4011:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4016:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L7*/ meltfnum[6] = @@ -40943,7 +40943,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L8*/ meltfnum[7] = (!( /*_#IS_PAIR__L7*/ meltfnum[6]));; - MELT_LOCATION ("warmelt-macro.melt:4011:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4016:/ cond"); /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -40968,12 +40968,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4012:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4017:/ quasiblock"); /*_.CURFKW__V32*/ meltfptr[31] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4013:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4018:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L9*/ meltfnum[8] = @@ -40981,7 +40981,7 @@ lab_endgetargs:; ( /*_.CURFKW__V32*/ meltfptr[31]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:4013:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4018:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -40991,7 +40991,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4014:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4019:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("expecting heyword in UNSAFE_PUT_FIELDS"), @@ -41005,15 +41005,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V33*/ meltfptr[32] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4015:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4020:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V34*/ meltfptr[33] = /*_.PAIR_TAIL__V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:4016:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4021:/ quasiblock"); /*_.CUREXP__V35*/ meltfptr[34] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4017:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4022:/ quasiblock"); /*^checksignal */ @@ -41050,7 +41050,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4018:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4023:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -41063,7 +41063,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4019:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4024:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V29*/ meltfptr[28]), (melt_ptr_t) ( /*_.FLDA__V36*/ @@ -41076,13 +41076,13 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4017:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4022:/ clear"); /*clear *//*_.FLDA__V36*/ meltfptr[35] = 0; - MELT_LOCATION ("warmelt-macro.melt:4016:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4021:/ clear"); /*clear *//*_.CUREXP__V35*/ meltfptr[34] = 0; - MELT_LOCATION ("warmelt-macro.melt:4012:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4017:/ clear"); /*clear *//*_.CURFKW__V32*/ meltfptr[31] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L9*/ meltfnum[8] = 0; @@ -41092,10 +41092,10 @@ lab_endgetargs:; /*clear *//*_.SETQ___V34*/ meltfptr[33] = 0; /*_.PAIR_TAIL__V37*/ meltfptr[35] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4021:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4026:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V38*/ meltfptr[34] = /*_.PAIR_TAIL__V37*/ meltfptr[35];; - MELT_LOCATION ("warmelt-macro.melt:4010:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4015:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -41117,7 +41117,7 @@ lab_endgetargs:; /*_.FOREVER___V30*/ meltfptr[29] = /*_.INSLOOP__V31*/ meltfptr[30];; } ; - MELT_LOCATION ("warmelt-macro.melt:4023:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4028:/ quasiblock"); /*^checksignal */ @@ -41139,7 +41139,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4024:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4029:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -41191,13 +41191,13 @@ lab_endgetargs:; /*^compute */ /*_.LET___V39*/ meltfptr[31] = /*_.INST___V41*/ meltfptr[33];; - MELT_LOCATION ("warmelt-macro.melt:4023:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4028:/ clear"); /*clear *//*_.FASTUP__V40*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.INST___V41*/ meltfptr[33] = 0; /*_.LET___V28*/ meltfptr[27] = /*_.LET___V39*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:4008:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4013:/ clear"); /*clear *//*_.FLDLIST__V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.FOREVER___V30*/ meltfptr[29] = 0; @@ -41205,7 +41205,7 @@ lab_endgetargs:; /*clear *//*_.LET___V39*/ meltfptr[31] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:3996:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4001:/ clear"); /*clear *//*_.FIELDS__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.FIELDNAMS__V18*/ meltfptr[17] = 0; @@ -41229,7 +41229,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.LET___V28*/ meltfptr[27] = 0; - MELT_LOCATION ("warmelt-macro.melt:3990:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:3995:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -41238,7 +41238,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:3990:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:3995:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -41366,7 +41366,7 @@ meltrout_65_warmelt_macro_MEXPAND_PUT_FIELDS (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4038:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4043:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -41407,7 +41407,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4039:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4044:/ cppif.then"); /*^block */ /*anyblock */ { @@ -41419,7 +41419,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4039:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4044:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -41427,7 +41427,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4039:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4044:/ cond.else"); /*^block */ /*anyblock */ @@ -41441,7 +41441,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4039) ? (4039) : __LINE__, __FUNCTION__); + (4044) ? (4044) : __LINE__, __FUNCTION__); ; } ; @@ -41455,7 +41455,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4039:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4044:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -41468,7 +41468,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4040:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4045:/ cppif.then"); /*^block */ /*anyblock */ { @@ -41480,7 +41480,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4040:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4045:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -41488,7 +41488,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4040:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4045:/ cond.else"); /*^block */ /*anyblock */ @@ -41502,7 +41502,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4040) ? (4040) : __LINE__, __FUNCTION__); + (4045) ? (4045) : __LINE__, __FUNCTION__); ; } ; @@ -41516,7 +41516,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4040:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4045:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -41527,12 +41527,12 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4041:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4046:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[0] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4041:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4046:/ cond"); /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -41546,7 +41546,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4041:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4046:/ clear"); /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0; } ; @@ -41557,13 +41557,13 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[8] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4042:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4047:/ quasiblock"); /*_.FIELDS__V13*/ meltfptr[12] = ( /*nil */ NULL);; /*^compute */ /*_.FIELDNAMS__V14*/ meltfptr[13] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:4044:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4049:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -41571,7 +41571,7 @@ lab_endgetargs:; /*_.CONT__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4045:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4050:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -41587,14 +41587,14 @@ lab_endgetargs:; /*^compute */ /*_.OBJSRC__V19*/ meltfptr[18] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4049:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4054:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of ((melt_ptr_t) ( /*_.OBJSRC__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4049:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4054:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -41602,7 +41602,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4050:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4055:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -41630,7 +41630,7 @@ lab_endgetargs:; /*_.OBJEXP__V20*/ meltfptr[19] = /*_.MEXPANDER__V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4049:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4054:/ clear"); /*clear *//*_.MEXPANDER__V21*/ meltfptr[20] = 0; } ; @@ -41644,16 +41644,16 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V22*/ meltfptr[20] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4053:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4058:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V23*/ meltfptr[22] = /*_.PAIR_TAIL__V22*/ meltfptr[20];; - MELT_LOCATION ("warmelt-macro.melt:4054:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4059:/ quasiblock"); /*_.FLDLIST__V25*/ meltfptr[24] = (meltgc_new_list ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[3]))));; - MELT_LOCATION ("warmelt-macro.melt:4056:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:4061:/ loop"); /*loop */ { labloop_INSLOOP_7:; /*^loopbody */ @@ -41665,7 +41665,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:4057:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4062:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L5*/ meltfnum[4] = @@ -41674,7 +41674,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L6*/ meltfnum[5] = (!( /*_#IS_PAIR__L5*/ meltfnum[4]));; - MELT_LOCATION ("warmelt-macro.melt:4057:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4062:/ cond"); /*cond */ if ( /*_#NOT__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -41699,12 +41699,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4058:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4063:/ quasiblock"); /*_.CURFKW__V28*/ meltfptr[27] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4059:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4064:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L7*/ meltfnum[6] = @@ -41712,7 +41712,7 @@ lab_endgetargs:; ( /*_.CURFKW__V28*/ meltfptr[27]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:4059:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4064:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -41722,7 +41722,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4060:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4065:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("expecting heyword in PUT_FIELDS"), @@ -41736,18 +41736,18 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V29*/ meltfptr[28] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4061:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4066:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V30*/ meltfptr[29] = /*_.PAIR_TAIL__V29*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:4062:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4067:/ quasiblock"); /*_.CUREXP__V31*/ meltfptr[30] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4063:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4068:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4064:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4069:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -41781,7 +41781,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4065:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4070:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -41794,7 +41794,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4066:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4071:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.FLDLIST__V25*/ meltfptr[24]), (melt_ptr_t) ( /*_.FLDA__V32*/ @@ -41807,13 +41807,13 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4063:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4068:/ clear"); /*clear *//*_.FLDA__V32*/ meltfptr[31] = 0; - MELT_LOCATION ("warmelt-macro.melt:4062:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4067:/ clear"); /*clear *//*_.CUREXP__V31*/ meltfptr[30] = 0; - MELT_LOCATION ("warmelt-macro.melt:4058:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4063:/ clear"); /*clear *//*_.CURFKW__V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L7*/ meltfnum[6] = 0; @@ -41823,10 +41823,10 @@ lab_endgetargs:; /*clear *//*_.SETQ___V30*/ meltfptr[29] = 0; /*_.PAIR_TAIL__V33*/ meltfptr[31] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4068:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4073:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V34*/ meltfptr[30] = /*_.PAIR_TAIL__V33*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:4056:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4061:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -41848,7 +41848,7 @@ lab_endgetargs:; /*_.FOREVER___V26*/ meltfptr[25] = /*_.INSLOOP__V27*/ meltfptr[26];; } ; - MELT_LOCATION ("warmelt-macro.melt:4070:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4075:/ quasiblock"); /*^checksignal */ @@ -41870,7 +41870,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4071:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4076:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -41924,13 +41924,13 @@ lab_endgetargs:; /*^compute */ /*_.LET___V35*/ meltfptr[27] = /*_.INST___V37*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:4070:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4075:/ clear"); /*clear *//*_.FASTUP__V36*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.INST___V37*/ meltfptr[29] = 0; /*_.LET___V24*/ meltfptr[23] = /*_.LET___V35*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:4054:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4059:/ clear"); /*clear *//*_.FLDLIST__V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.FOREVER___V26*/ meltfptr[25] = 0; @@ -41938,7 +41938,7 @@ lab_endgetargs:; /*clear *//*_.LET___V35*/ meltfptr[27] = 0; /*_.LET___V12*/ meltfptr[10] = /*_.LET___V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:4042:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4047:/ clear"); /*clear *//*_.FIELDS__V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.FIELDNAMS__V14*/ meltfptr[13] = 0; @@ -41962,7 +41962,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.LET___V24*/ meltfptr[23] = 0; - MELT_LOCATION ("warmelt-macro.melt:4038:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4043:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -41971,7 +41971,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-macro.melt:4038:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4043:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -42096,7 +42096,7 @@ meltrout_66_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4085:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4090:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -42137,7 +42137,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4086:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4091:/ cppif.then"); /*^block */ /*anyblock */ { @@ -42149,7 +42149,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4086:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4091:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -42157,7 +42157,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4086:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4091:/ cond.else"); /*^block */ /*anyblock */ @@ -42171,7 +42171,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4086) ? (4086) : __LINE__, __FUNCTION__); + (4091) ? (4091) : __LINE__, __FUNCTION__); ; } ; @@ -42185,7 +42185,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4086:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4091:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -42198,7 +42198,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4087:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4092:/ cppif.then"); /*^block */ /*anyblock */ { @@ -42210,7 +42210,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4087:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4092:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -42218,7 +42218,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4087:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4092:/ cond.else"); /*^block */ /*anyblock */ @@ -42232,7 +42232,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4087) ? (4087) : __LINE__, __FUNCTION__); + (4092) ? (4092) : __LINE__, __FUNCTION__); ; } ; @@ -42246,7 +42246,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4087:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4092:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -42257,7 +42257,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4088:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4093:/ quasiblock"); /*^getslot */ @@ -42268,7 +42268,7 @@ lab_endgetargs:; /*_.CONT__V11*/ meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4089:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4094:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -42284,14 +42284,14 @@ lab_endgetargs:; /*^compute */ /*_.CURFKW__V15*/ meltfptr[14] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:4093:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4098:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L3*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.CURFKW__V15*/ meltfptr[14]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4093:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4098:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -42301,14 +42301,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4095:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4100:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("field keyword expected in UNSAFE_GET_FIELD"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4096:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4101:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -42317,7 +42317,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:4096:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4101:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -42330,7 +42330,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4094:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4099:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];; @@ -42338,7 +42338,7 @@ lab_endgetargs:; /*_.IF___V16*/ meltfptr[15] = /*_.PROGN___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4093:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4098:/ clear"); /*clear *//*_.RETURN___V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.PROGN___V18*/ meltfptr[17] = 0; @@ -42354,10 +42354,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V19*/ meltfptr[16] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:4097:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4102:/ compute"); /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V20*/ meltfptr[17] = /*_.PAIR_TAIL__V19*/ meltfptr[16];; - MELT_LOCATION ("warmelt-macro.melt:4098:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4103:/ quasiblock"); /*_.CUREXP__V22*/ meltfptr[21] = @@ -42365,10 +42365,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V23*/ meltfptr[22] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:4099:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4104:/ compute"); /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V24*/ meltfptr[23] = /*_.PAIR_TAIL__V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-macro.melt:4100:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4105:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -42393,7 +42393,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4103:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4108:/ quasiblock"); /*^checksignal */ @@ -42426,7 +42426,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4104:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4109:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[3] = @@ -42436,7 +42436,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L5*/ meltfnum[4] = (!( /*_#IS_A__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-macro.melt:4104:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4109:/ cond"); /*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -42446,14 +42446,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4106:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4111:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("bad field and expression in UNSAFE_GET_FIELD"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4107:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4112:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -42462,7 +42462,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:4107:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4112:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -42475,7 +42475,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4105:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4110:/ quasiblock"); /*_.PROGN___V29*/ meltfptr[28] = /*_.RETURN___V28*/ meltfptr[27];; @@ -42483,7 +42483,7 @@ lab_endgetargs:; /*_.IF___V27*/ meltfptr[26] = /*_.PROGN___V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4104:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4109:/ clear"); /*clear *//*_.RETURN___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V29*/ meltfptr[28] = 0; @@ -42496,7 +42496,7 @@ lab_endgetargs:; /*_.IF___V27*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4108:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4113:/ quasiblock"); /*^getslot */ @@ -42507,7 +42507,7 @@ lab_endgetargs:; /*_.FLD__V31*/ meltfptr[28] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4109:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4114:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FLDA__V26*/ meltfptr[25]) /*=obj*/ ; @@ -42515,12 +42515,12 @@ lab_endgetargs:; /*_.EXP__V32*/ meltfptr[31] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4110:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4115:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L6*/ meltfnum[5] = (( /*_.EXP__V32*/ meltfptr[31]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4110:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4115:/ cond"); /*cond */ if ( /*_#NULL__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -42530,7 +42530,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4111:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4116:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("missing object expression for (UNSAFE_GET_FIELD :field objexpr)"), @@ -42542,7 +42542,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4112:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4117:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -42594,7 +42594,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V30*/ meltfptr[27] = /*_.INST___V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:4108:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4113:/ clear"); /*clear *//*_.FLD__V31*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.EXP__V32*/ meltfptr[31] = 0; @@ -42604,7 +42604,7 @@ lab_endgetargs:; /*clear *//*_.INST___V33*/ meltfptr[32] = 0; /*_.LET___V25*/ meltfptr[24] = /*_.LET___V30*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:4103:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4108:/ clear"); /*clear *//*_.FLDA__V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; @@ -42616,7 +42616,7 @@ lab_endgetargs:; /*clear *//*_.LET___V30*/ meltfptr[27] = 0; /*_.LET___V21*/ meltfptr[20] = /*_.LET___V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:4098:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4103:/ clear"); /*clear *//*_.CUREXP__V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.PAIR_TAIL__V23*/ meltfptr[22] = 0; @@ -42626,7 +42626,7 @@ lab_endgetargs:; /*clear *//*_.LET___V25*/ meltfptr[24] = 0; /*_.LET___V10*/ meltfptr[8] = /*_.LET___V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-macro.melt:4088:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4093:/ clear"); /*clear *//*_.CONT__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.LOC__V12*/ meltfptr[11] = 0; @@ -42646,7 +42646,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V20*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.LET___V21*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-macro.melt:4085:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4090:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -42655,7 +42655,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { - MELT_LOCATION ("warmelt-macro.melt:4085:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4090:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -42775,7 +42775,7 @@ meltrout_67_warmelt_macro_MEXPAND_GET_FIELD (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4126:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4131:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -42816,7 +42816,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4127:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4132:/ cppif.then"); /*^block */ /*anyblock */ { @@ -42828,7 +42828,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4127:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4132:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -42836,7 +42836,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4127:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4132:/ cond.else"); /*^block */ /*anyblock */ @@ -42850,7 +42850,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4127) ? (4127) : __LINE__, __FUNCTION__); + (4132) ? (4132) : __LINE__, __FUNCTION__); ; } ; @@ -42864,7 +42864,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4127:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4132:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -42877,7 +42877,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4128:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4133:/ cppif.then"); /*^block */ /*anyblock */ { @@ -42889,7 +42889,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4128:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4133:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -42897,7 +42897,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4128:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4133:/ cond.else"); /*^block */ /*anyblock */ @@ -42911,7 +42911,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4128) ? (4128) : __LINE__, __FUNCTION__); + (4133) ? (4133) : __LINE__, __FUNCTION__); ; } ; @@ -42925,7 +42925,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4128:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4133:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -42936,7 +42936,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4129:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4134:/ quasiblock"); /*^getslot */ @@ -42947,7 +42947,7 @@ lab_endgetargs:; /*_.CONT__V11*/ meltfptr[10] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4130:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4135:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -42963,14 +42963,14 @@ lab_endgetargs:; /*^compute */ /*_.CURFKW__V15*/ meltfptr[14] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:4134:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4139:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L3*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.CURFKW__V15*/ meltfptr[14]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4134:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4139:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -42980,14 +42980,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4136:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4141:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("field keyword expected in GET_FIELD"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4137:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4142:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -42996,7 +42996,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:4137:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4142:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -43009,7 +43009,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4135:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4140:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];; @@ -43017,7 +43017,7 @@ lab_endgetargs:; /*_.IF___V16*/ meltfptr[15] = /*_.PROGN___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4134:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4139:/ clear"); /*clear *//*_.RETURN___V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.PROGN___V18*/ meltfptr[17] = 0; @@ -43033,10 +43033,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V19*/ meltfptr[16] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:4138:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4143:/ compute"); /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V20*/ meltfptr[17] = /*_.PAIR_TAIL__V19*/ meltfptr[16];; - MELT_LOCATION ("warmelt-macro.melt:4139:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4144:/ quasiblock"); /*_.CUREXP__V22*/ meltfptr[21] = @@ -43044,10 +43044,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V23*/ meltfptr[22] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));; - MELT_LOCATION ("warmelt-macro.melt:4140:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4145:/ compute"); /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V24*/ meltfptr[23] = /*_.PAIR_TAIL__V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-macro.melt:4141:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4146:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -43072,7 +43072,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4144:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4149:/ quasiblock"); /*^checksignal */ @@ -43105,7 +43105,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4145:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4150:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[3] = @@ -43115,7 +43115,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L5*/ meltfnum[4] = (!( /*_#IS_A__L4*/ meltfnum[3]));; - MELT_LOCATION ("warmelt-macro.melt:4145:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4150:/ cond"); /*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -43125,14 +43125,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4147:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4152:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("bad field and expression in GET_FIELD"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4148:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4153:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -43141,7 +43141,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:4148:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4153:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -43154,7 +43154,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4146:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4151:/ quasiblock"); /*_.PROGN___V29*/ meltfptr[28] = /*_.RETURN___V28*/ meltfptr[27];; @@ -43162,7 +43162,7 @@ lab_endgetargs:; /*_.IF___V27*/ meltfptr[26] = /*_.PROGN___V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4145:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4150:/ clear"); /*clear *//*_.RETURN___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V29*/ meltfptr[28] = 0; @@ -43175,7 +43175,7 @@ lab_endgetargs:; /*_.IF___V27*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4149:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4154:/ quasiblock"); /*^getslot */ @@ -43186,7 +43186,7 @@ lab_endgetargs:; /*_.FLD__V31*/ meltfptr[28] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4150:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4155:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.FLDA__V26*/ meltfptr[25]) /*=obj*/ ; @@ -43194,12 +43194,12 @@ lab_endgetargs:; /*_.EXP__V32*/ meltfptr[31] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4151:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4156:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L6*/ meltfnum[5] = (( /*_.EXP__V32*/ meltfptr[31]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4151:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4156:/ cond"); /*cond */ if ( /*_#NULL__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -43209,7 +43209,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4152:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4157:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]), ("missing object expression for (GET_FIELD :field objexpr)"), @@ -43221,7 +43221,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4153:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4158:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -43275,7 +43275,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V30*/ meltfptr[27] = /*_.INST___V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:4149:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4154:/ clear"); /*clear *//*_.FLD__V31*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.EXP__V32*/ meltfptr[31] = 0; @@ -43285,7 +43285,7 @@ lab_endgetargs:; /*clear *//*_.INST___V33*/ meltfptr[32] = 0; /*_.LET___V25*/ meltfptr[24] = /*_.LET___V30*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:4144:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4149:/ clear"); /*clear *//*_.FLDA__V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0; @@ -43297,7 +43297,7 @@ lab_endgetargs:; /*clear *//*_.LET___V30*/ meltfptr[27] = 0; /*_.LET___V21*/ meltfptr[20] = /*_.LET___V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:4139:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4144:/ clear"); /*clear *//*_.CUREXP__V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.PAIR_TAIL__V23*/ meltfptr[22] = 0; @@ -43307,7 +43307,7 @@ lab_endgetargs:; /*clear *//*_.LET___V25*/ meltfptr[24] = 0; /*_.LET___V10*/ meltfptr[8] = /*_.LET___V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-macro.melt:4129:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4134:/ clear"); /*clear *//*_.CONT__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.LOC__V12*/ meltfptr[11] = 0; @@ -43327,7 +43327,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V20*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.LET___V21*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-macro.melt:4126:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4131:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -43336,7 +43336,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { - MELT_LOCATION ("warmelt-macro.melt:4126:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4131:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -43456,7 +43456,7 @@ meltrout_68_warmelt_macro_PAIRLIST_TO_PROGN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4167:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4172:/ getarg"); /*_.PAIR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -43506,7 +43506,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4168:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4173:/ cppif.then"); /*^block */ /*anyblock */ { @@ -43518,7 +43518,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4168:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4173:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -43526,7 +43526,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4168:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4173:/ cond.else"); /*^block */ /*anyblock */ @@ -43540,7 +43540,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4168) ? (4168) : __LINE__, __FUNCTION__); + (4173) ? (4173) : __LINE__, __FUNCTION__); ; } ; @@ -43554,7 +43554,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4168:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4173:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -43567,7 +43567,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4169:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4174:/ cppif.then"); /*^block */ /*anyblock */ { @@ -43593,7 +43593,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4169:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4174:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -43608,7 +43608,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4169:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4174:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -43621,7 +43621,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4169; + argtab[2].meltbp_long = 4174; /*^apply.arg */ argtab[3].meltbp_cstring = "pairlist_to_progn pair"; /*^apply.arg */ @@ -43641,7 +43641,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4169:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4174:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0; @@ -43654,7 +43654,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[9] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4169:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4174:/ quasiblock"); /*_.PROGN___V12*/ meltfptr[10] = /*_.IF___V10*/ meltfptr[9];; @@ -43662,7 +43662,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.PROGN___V12*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4169:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4174:/ clear"); /*clear *//*_#MELT_NEED_DBG__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V10*/ meltfptr[9] = 0; @@ -43677,7 +43677,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4170:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4175:/ cppif.then"); /*^block */ /*anyblock */ { @@ -43688,7 +43688,7 @@ lab_endgetargs:; /*_#IS_PAIR__L4*/ meltfnum[2] = (melt_magic_discr ((melt_ptr_t) ( /*_.PAIR__V2*/ meltfptr[1])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-macro.melt:4170:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4175:/ cond"); /*cond */ if ( /*_#IS_PAIR__L4*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -43696,7 +43696,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4170:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4175:/ cond.else"); /*^block */ /*anyblock */ @@ -43710,7 +43710,7 @@ lab_endgetargs:; melt_assert_failed (("check_pair"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4170) ? (4170) : __LINE__, __FUNCTION__); + (4175) ? (4175) : __LINE__, __FUNCTION__); ; } ; @@ -43724,7 +43724,7 @@ lab_endgetargs:; /*_.IFCPP___V13*/ meltfptr[9] = /*_.IFELSE___V14*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4170:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4175:/ clear"); /*clear *//*_#IS_PAIR__L4*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IFELSE___V14*/ meltfptr[10] = 0; @@ -43737,7 +43737,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4171:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4176:/ cppif.then"); /*^block */ /*anyblock */ { @@ -43748,7 +43748,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V6*/ meltfptr[5])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:4171:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4176:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -43756,7 +43756,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4171:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4176:/ cond.else"); /*^block */ /*anyblock */ @@ -43770,7 +43770,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4171) ? (4171) : __LINE__, __FUNCTION__); + (4176) ? (4176) : __LINE__, __FUNCTION__); ; } ; @@ -43784,7 +43784,7 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[10] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4171:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4176:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V16*/ meltfptr[15] = 0; @@ -43795,10 +43795,10 @@ lab_endgetargs:; /*_.IFCPP___V15*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4172:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4177:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4175:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4180:/ quasiblock"); /*^newclosure */ @@ -43849,7 +43849,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODCTX__V6*/ meltfptr[5]); ; /*_.LAMBDA___V18*/ meltfptr[17] = /*_.LAMBDA___V19*/ meltfptr[18];; - MELT_LOCATION ("warmelt-macro.melt:4172:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4177:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -43871,7 +43871,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4177:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4182:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -43915,7 +43915,7 @@ lab_endgetargs:; /*_.SPROGN__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4181:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4186:/ cppif.then"); /*^block */ /*anyblock */ { @@ -43941,7 +43941,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4181:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4186:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -43956,7 +43956,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4181:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4186:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -43969,7 +43969,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4181; + argtab[2].meltbp_long = 4186; /*^apply.arg */ argtab[3].meltbp_cstring = "pairlist_to_progn sprogn"; /*^apply.arg */ @@ -43989,7 +43989,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4181:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4186:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0; @@ -44002,7 +44002,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4181:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4186:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[24] = /*_.IF___V24*/ meltfptr[23];; @@ -44010,7 +44010,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = /*_.PROGN___V26*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4181:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4186:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.IF___V24*/ meltfptr[23] = 0; @@ -44023,7 +44023,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4182:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4187:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -44032,7 +44032,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPROGN__V21*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-macro.melt:4182:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4187:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -44047,7 +44047,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V17*/ meltfptr[15] = /*_.RETURN___V27*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:4172:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4177:/ clear"); /*clear *//*_.LAMBDA___V18*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.BODYTUP__V20*/ meltfptr[19] = 0; @@ -44057,7 +44057,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.RETURN___V27*/ meltfptr[23] = 0; - MELT_LOCATION ("warmelt-macro.melt:4167:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4172:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -44066,7 +44066,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V17*/ meltfptr[15];; { - MELT_LOCATION ("warmelt-macro.melt:4167:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4172:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -44187,7 +44187,7 @@ meltrout_69_warmelt_macro_LAMBDA___18__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4175:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4180:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -44228,7 +44228,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:4175:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4180:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -44341,7 +44341,7 @@ meltrout_70_warmelt_macro_MEXPAND_SETQ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4186:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4191:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -44382,7 +44382,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4187:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4192:/ cppif.then"); /*^block */ /*anyblock */ { @@ -44394,7 +44394,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4187:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4192:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -44402,7 +44402,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4187:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4192:/ cond.else"); /*^block */ /*anyblock */ @@ -44416,7 +44416,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4187) ? (4187) : __LINE__, __FUNCTION__); + (4192) ? (4192) : __LINE__, __FUNCTION__); ; } ; @@ -44430,7 +44430,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4187:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4192:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -44443,7 +44443,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4188:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4193:/ cppif.then"); /*^block */ /*anyblock */ { @@ -44455,7 +44455,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4188:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4193:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -44463,7 +44463,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4188:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4193:/ cond.else"); /*^block */ /*anyblock */ @@ -44477,7 +44477,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4188) ? (4188) : __LINE__, __FUNCTION__); + (4193) ? (4193) : __LINE__, __FUNCTION__); ; } ; @@ -44491,7 +44491,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4188:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4193:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -44502,12 +44502,12 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4189:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4194:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[0] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4189:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4194:/ cond"); /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -44521,7 +44521,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4189:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4194:/ clear"); /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0; } ; @@ -44534,7 +44534,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4190:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4195:/ cppif.then"); /*^block */ /*anyblock */ { @@ -44545,7 +44545,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:4190:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4195:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -44553,7 +44553,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4190:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4195:/ cond.else"); /*^block */ /*anyblock */ @@ -44567,7 +44567,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4190) ? (4190) : __LINE__, __FUNCTION__); + (4195) ? (4195) : __LINE__, __FUNCTION__); ; } ; @@ -44581,7 +44581,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4190:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4195:/ clear"); /*clear *//*_#IS_OBJECT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -44592,7 +44592,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4191:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4196:/ quasiblock"); /*^getslot */ @@ -44603,7 +44603,7 @@ lab_endgetargs:; /*_.CONT__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4192:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4197:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -44619,14 +44619,14 @@ lab_endgetargs:; /*^compute */ /*_.CURSYM__V19*/ meltfptr[18] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4196:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4201:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L5*/ meltfnum[3] = !melt_is_instance_of ((melt_ptr_t) ( /*_.CURSYM__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:4196:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4201:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -44636,14 +44636,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4198:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4203:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("var symbol name expected in SETQ"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4199:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4204:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -44652,7 +44652,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:4199:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4204:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -44665,7 +44665,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4197:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4202:/ quasiblock"); /*_.PROGN___V22*/ meltfptr[21] = /*_.RETURN___V21*/ meltfptr[20];; @@ -44673,7 +44673,7 @@ lab_endgetargs:; /*_.IF___V20*/ meltfptr[19] = /*_.PROGN___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4196:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4201:/ clear"); /*clear *//*_.RETURN___V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.PROGN___V22*/ meltfptr[21] = 0; @@ -44689,10 +44689,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V23*/ meltfptr[20] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4200:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4205:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V24*/ meltfptr[21] = /*_.PAIR_TAIL__V23*/ meltfptr[20];; - MELT_LOCATION ("warmelt-macro.melt:4201:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4206:/ quasiblock"); /*_.CUREXP__V26*/ meltfptr[25] = @@ -44700,10 +44700,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V27*/ meltfptr[26] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4202:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4207:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V28*/ meltfptr[27] = /*_.PAIR_TAIL__V27*/ meltfptr[26];; - MELT_LOCATION ("warmelt-macro.melt:4203:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4208:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -44728,10 +44728,10 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4204:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4209:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:4207:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4212:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -44753,7 +44753,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4204:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4209:/ quasiblock"); /*^rawallocobj */ @@ -44804,7 +44804,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V25*/ meltfptr[24] = /*_.INST___V30*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:4201:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4206:/ clear"); /*clear *//*_.CUREXP__V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.PAIR_TAIL__V27*/ meltfptr[26] = 0; @@ -44816,7 +44816,7 @@ lab_endgetargs:; /*clear *//*_.INST___V30*/ meltfptr[29] = 0; /*_.LET___V14*/ meltfptr[12] = /*_.LET___V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:4191:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4196:/ clear"); /*clear *//*_.CONT__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; @@ -44836,7 +44836,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V24*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.LET___V25*/ meltfptr[24] = 0; - MELT_LOCATION ("warmelt-macro.melt:4186:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4191:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -44845,7 +44845,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:4186:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4191:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -44968,7 +44968,7 @@ meltrout_71_warmelt_macro_MEXPAND_IF (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4217:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4222:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -45009,7 +45009,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4218:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4223:/ cppif.then"); /*^block */ /*anyblock */ { @@ -45035,7 +45035,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4218:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4223:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -45050,7 +45050,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4218:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4223:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -45063,7 +45063,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4218; + argtab[2].meltbp_long = 4223; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_if sexpr"; /*^apply.arg */ @@ -45082,7 +45082,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4218:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4223:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -45095,7 +45095,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4218:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4223:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -45103,7 +45103,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4218:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4223:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -45118,7 +45118,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4219:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4224:/ cppif.then"); /*^block */ /*anyblock */ { @@ -45130,7 +45130,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4219:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4224:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -45138,7 +45138,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4219:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4224:/ cond.else"); /*^block */ /*anyblock */ @@ -45152,7 +45152,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4219) ? (4219) : __LINE__, __FUNCTION__); + (4224) ? (4224) : __LINE__, __FUNCTION__); ; } ; @@ -45166,7 +45166,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4219:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4224:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -45179,7 +45179,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4220:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4225:/ cppif.then"); /*^block */ /*anyblock */ { @@ -45191,7 +45191,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4220:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4225:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -45199,7 +45199,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4220:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4225:/ cond.else"); /*^block */ /*anyblock */ @@ -45213,7 +45213,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4220) ? (4220) : __LINE__, __FUNCTION__); + (4225) ? (4225) : __LINE__, __FUNCTION__); ; } ; @@ -45227,7 +45227,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4220:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4225:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -45238,12 +45238,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4221:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4226:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4221:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4226:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -45257,7 +45257,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4221:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4226:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -45270,7 +45270,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4222:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4227:/ cppif.then"); /*^block */ /*anyblock */ { @@ -45281,7 +45281,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:4222:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4227:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -45289,7 +45289,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4222:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4227:/ cond.else"); /*^block */ /*anyblock */ @@ -45303,7 +45303,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4222) ? (4222) : __LINE__, __FUNCTION__); + (4227) ? (4227) : __LINE__, __FUNCTION__); ; } ; @@ -45317,7 +45317,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4222:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4227:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -45328,10 +45328,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4223:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4228:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4224:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4229:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -45339,7 +45339,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4225:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4230:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -45355,7 +45355,7 @@ lab_endgetargs:; /*^compute */ /*_.CURIF__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4228:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4233:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L7*/ meltfnum[0] = @@ -45364,7 +45364,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L8*/ meltfnum[7] = (!( /*_#IS_PAIR__L7*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:4228:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4233:/ cond"); /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -45374,7 +45374,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4229:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4234:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing condition in IF"), (melt_ptr_t) 0); @@ -45387,10 +45387,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V24*/ meltfptr[23] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4230:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4235:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V25*/ meltfptr[24] = /*_.PAIR_TAIL__V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:4231:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4236:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L9*/ meltfnum[8] = @@ -45399,7 +45399,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L10*/ meltfnum[9] = (!( /*_#IS_PAIR__L9*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-macro.melt:4231:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4236:/ cond"); /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -45409,7 +45409,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4232:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4237:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing then in IF"), (melt_ptr_t) 0); @@ -45420,7 +45420,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4233:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4238:/ quasiblock"); /*^checksignal */ @@ -45447,7 +45447,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4234:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4239:/ cppif.then"); /*^block */ /*anyblock */ { @@ -45473,7 +45473,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4234:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4239:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -45488,7 +45488,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4234:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4239:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -45502,7 +45502,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4234; + argtab[2].meltbp_long = 4239; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_if xcond"; /*^apply.arg */ @@ -45522,7 +45522,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4234:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4239:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; @@ -45535,7 +45535,7 @@ lab_endgetargs:; /*_.IF___V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4234:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4239:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[28];; @@ -45543,7 +45543,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4234:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4239:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V29*/ meltfptr[28] = 0; @@ -45556,7 +45556,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4235:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4240:/ quasiblock"); /*_.CURTHEN__V33*/ meltfptr[29] = @@ -45564,10 +45564,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V34*/ meltfptr[33] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4236:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4241:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V35*/ meltfptr[34] = /*_.PAIR_TAIL__V34*/ meltfptr[33];; - MELT_LOCATION ("warmelt-macro.melt:4237:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4242:/ quasiblock"); /*^checksignal */ @@ -45594,7 +45594,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4239:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4244:/ cppif.then"); /*^block */ /*anyblock */ { @@ -45620,7 +45620,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4239:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4244:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -45635,7 +45635,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4239:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4244:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -45649,7 +45649,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4239; + argtab[2].meltbp_long = 4244; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_if xthen"; /*^apply.arg */ @@ -45669,7 +45669,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4239:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4244:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0; @@ -45682,7 +45682,7 @@ lab_endgetargs:; /*_.IF___V39*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4239:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4244:/ quasiblock"); /*_.PROGN___V41*/ meltfptr[39] = /*_.IF___V39*/ meltfptr[38];; @@ -45690,7 +45690,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = /*_.PROGN___V41*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4239:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4244:/ clear"); /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V39*/ meltfptr[38] = 0; @@ -45703,13 +45703,13 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4240:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4245:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L15*/ meltfnum[10] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-macro.melt:4240:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4245:/ cond"); /*cond */ if ( /*_#IS_PAIR__L15*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -45717,13 +45717,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4241:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4246:/ quasiblock"); /*_.CURELSE__V44*/ meltfptr[43] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4242:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4247:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -45750,7 +45750,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4243:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4248:/ cppif.then"); /*^block */ /*anyblock */ { @@ -45776,7 +45776,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4243:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4248:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -45791,7 +45791,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4243:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4248:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -45805,7 +45805,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4243; + argtab[2].meltbp_long = 4248; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_if xelse"; /*^apply.arg */ @@ -45826,7 +45826,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4243:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4248:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = 0; @@ -45839,7 +45839,7 @@ lab_endgetargs:; /*_.IF___V47*/ meltfptr[46] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4243:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4248:/ quasiblock"); /*_.PROGN___V49*/ meltfptr[47] = /*_.IF___V47*/ meltfptr[46];; @@ -45847,7 +45847,7 @@ lab_endgetargs:; /*_.IFCPP___V46*/ meltfptr[45] = /*_.PROGN___V49*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4243:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4248:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V47*/ meltfptr[46] = 0; @@ -45864,17 +45864,17 @@ lab_endgetargs:; /*_.PAIR_TAIL__V50*/ meltfptr[46] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4244:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4249:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V51*/ meltfptr[47] = /*_.PAIR_TAIL__V50*/ meltfptr[46];; - MELT_LOCATION ("warmelt-macro.melt:4245:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4250:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L18*/ meltfnum[16] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-macro.melt:4245:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4250:/ cond"); /*cond */ if ( /*_#IS_PAIR__L18*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -45884,7 +45884,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4246:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4251:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -45897,10 +45897,10 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4247:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4252:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4248:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4253:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -45963,7 +45963,7 @@ lab_endgetargs:; /*_.RESE__V53*/ meltfptr[52] = /*_.INST__V54*/ meltfptr[53];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4254:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4259:/ cppif.then"); /*^block */ /*anyblock */ { @@ -45989,7 +45989,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4254:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4259:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -46004,7 +46004,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4254:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4259:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -46018,7 +46018,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4254; + argtab[2].meltbp_long = 4259; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_if with else return rese"; @@ -46040,7 +46040,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4254:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4259:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = 0; @@ -46053,7 +46053,7 @@ lab_endgetargs:; /*_.IF___V56*/ meltfptr[55] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4254:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4259:/ quasiblock"); /*_.PROGN___V58*/ meltfptr[56] = /*_.IF___V56*/ meltfptr[55];; @@ -46061,7 +46061,7 @@ lab_endgetargs:; /*_.IFCPP___V55*/ meltfptr[54] = /*_.PROGN___V58*/ meltfptr[56];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4254:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4259:/ clear"); /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V56*/ meltfptr[55] = 0; @@ -46074,7 +46074,7 @@ lab_endgetargs:; /*_.IFCPP___V55*/ meltfptr[54] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4255:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4260:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -46083,7 +46083,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESE__V53*/ meltfptr[52];; { - MELT_LOCATION ("warmelt-macro.melt:4255:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4260:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -46098,7 +46098,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V52*/ meltfptr[51] = /*_.RETURN___V59*/ meltfptr[55];; - MELT_LOCATION ("warmelt-macro.melt:4247:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4252:/ clear"); /*clear *//*_.RESE__V53*/ meltfptr[52] = 0; /*^clear */ /*clear *//*_.IFCPP___V55*/ meltfptr[54] = 0; @@ -46106,7 +46106,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V59*/ meltfptr[55] = 0; /*_.LET___V43*/ meltfptr[39] = /*_.LET___V52*/ meltfptr[51];; - MELT_LOCATION ("warmelt-macro.melt:4241:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4246:/ clear"); /*clear *//*_.CURELSE__V44*/ meltfptr[43] = 0; /*^clear */ /*clear *//*_.XELSE__V45*/ meltfptr[44] = 0; @@ -46123,7 +46123,7 @@ lab_endgetargs:; /*_.IFELSE___V42*/ meltfptr[38] = /*_.LET___V43*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4240:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4245:/ clear"); /*clear *//*_.LET___V43*/ meltfptr[39] = 0; } ; @@ -46135,7 +46135,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4256:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4261:/ quasiblock"); /*^checksignal */ @@ -46192,7 +46192,7 @@ lab_endgetargs:; /*_.RESP__V61*/ meltfptr[52] = /*_.INST__V62*/ meltfptr[54];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4260:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4265:/ cppif.then"); /*^block */ /*anyblock */ { @@ -46218,7 +46218,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4260:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4265:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -46233,7 +46233,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4260:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4265:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -46247,7 +46247,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4260; + argtab[2].meltbp_long = 4265; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_if plain return resp"; /*^apply.arg */ @@ -46268,7 +46268,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V65*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4260:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4265:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V65*/ meltfptr[44] = 0; @@ -46281,7 +46281,7 @@ lab_endgetargs:; /*_.IF___V64*/ meltfptr[43] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4260:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4265:/ quasiblock"); /*_.PROGN___V66*/ meltfptr[45] = /*_.IF___V64*/ meltfptr[43];; @@ -46289,7 +46289,7 @@ lab_endgetargs:; /*_.IFCPP___V63*/ meltfptr[55] = /*_.PROGN___V66*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4260:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4265:/ clear"); /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.IF___V64*/ meltfptr[43] = 0; @@ -46302,7 +46302,7 @@ lab_endgetargs:; /*_.IFCPP___V63*/ meltfptr[55] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4261:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4266:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -46311,7 +46311,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V61*/ meltfptr[52];; { - MELT_LOCATION ("warmelt-macro.melt:4261:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4266:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -46326,7 +46326,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V60*/ meltfptr[56] = /*_.RETURN___V67*/ meltfptr[46];; - MELT_LOCATION ("warmelt-macro.melt:4256:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4261:/ clear"); /*clear *//*_.RESP__V61*/ meltfptr[52] = 0; /*^clear */ /*clear *//*_.IFCPP___V63*/ meltfptr[55] = 0; @@ -46335,7 +46335,7 @@ lab_endgetargs:; /*_.IFELSE___V42*/ meltfptr[38] = /*_.LET___V60*/ meltfptr[56];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4240:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4245:/ clear"); /*clear *//*_.LET___V60*/ meltfptr[56] = 0; } ; @@ -46343,7 +46343,7 @@ lab_endgetargs:; ; /*_.LET___V36*/ meltfptr[35] = /*_.IFELSE___V42*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:4237:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4242:/ clear"); /*clear *//*_.XTHEN__V37*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.IFCPP___V38*/ meltfptr[37] = 0; @@ -46353,7 +46353,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V42*/ meltfptr[38] = 0; /*_.LET___V32*/ meltfptr[28] = /*_.LET___V36*/ meltfptr[35];; - MELT_LOCATION ("warmelt-macro.melt:4235:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4240:/ clear"); /*clear *//*_.CURTHEN__V33*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.PAIR_TAIL__V34*/ meltfptr[33] = 0; @@ -46363,7 +46363,7 @@ lab_endgetargs:; /*clear *//*_.LET___V36*/ meltfptr[35] = 0; /*_.LET___V26*/ meltfptr[25] = /*_.LET___V32*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:4233:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4238:/ clear"); /*clear *//*_.XCOND__V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.IFCPP___V28*/ meltfptr[27] = 0; @@ -46371,7 +46371,7 @@ lab_endgetargs:; /*clear *//*_.LET___V32*/ meltfptr[28] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:4223:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4228:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -46395,7 +46395,7 @@ lab_endgetargs:; /*clear *//*_#NOT__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.LET___V26*/ meltfptr[25] = 0; - MELT_LOCATION ("warmelt-macro.melt:4217:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4222:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -46404,7 +46404,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:4217:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4222:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -46529,7 +46529,7 @@ meltrout_72_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4271:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4276:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -46570,7 +46570,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4272:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4277:/ cppif.then"); /*^block */ /*anyblock */ { @@ -46596,7 +46596,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4272:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4277:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -46611,7 +46611,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4272:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4277:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -46624,7 +46624,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4272; + argtab[2].meltbp_long = 4277; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_when sexpr"; /*^apply.arg */ @@ -46643,7 +46643,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4272:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4277:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -46656,7 +46656,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4272:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4277:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -46664,7 +46664,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4272:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4277:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -46679,7 +46679,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4273:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4278:/ cppif.then"); /*^block */ /*anyblock */ { @@ -46691,7 +46691,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4273:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4278:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -46699,7 +46699,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4273:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4278:/ cond.else"); /*^block */ /*anyblock */ @@ -46713,7 +46713,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4273) ? (4273) : __LINE__, __FUNCTION__); + (4278) ? (4278) : __LINE__, __FUNCTION__); ; } ; @@ -46727,7 +46727,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4273:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4278:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -46740,7 +46740,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4274:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4279:/ cppif.then"); /*^block */ /*anyblock */ { @@ -46752,7 +46752,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4274:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4279:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -46760,7 +46760,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4274:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4279:/ cond.else"); /*^block */ /*anyblock */ @@ -46774,7 +46774,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4274) ? (4274) : __LINE__, __FUNCTION__); + (4279) ? (4279) : __LINE__, __FUNCTION__); ; } ; @@ -46788,7 +46788,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4274:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4279:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -46799,12 +46799,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4275:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4280:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4275:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4280:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -46818,7 +46818,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4275:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4280:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -46831,7 +46831,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4276:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4281:/ cppif.then"); /*^block */ /*anyblock */ { @@ -46842,7 +46842,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:4276:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4281:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -46850,7 +46850,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4276:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4281:/ cond.else"); /*^block */ /*anyblock */ @@ -46864,7 +46864,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4276) ? (4276) : __LINE__, __FUNCTION__); + (4281) ? (4281) : __LINE__, __FUNCTION__); ; } ; @@ -46878,7 +46878,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4276:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4281:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -46889,10 +46889,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4277:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4282:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4278:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4283:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -46900,7 +46900,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4279:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4284:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -46916,7 +46916,7 @@ lab_endgetargs:; /*^compute */ /*_.CURIF__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4283:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4288:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L7*/ meltfnum[0] = @@ -46925,7 +46925,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L8*/ meltfnum[7] = (!( /*_#IS_PAIR__L7*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:4283:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4288:/ cond"); /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -46935,7 +46935,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4284:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4289:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing condition in WHEN"), (melt_ptr_t) 0); @@ -46948,10 +46948,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V24*/ meltfptr[23] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4285:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4290:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V25*/ meltfptr[24] = /*_.PAIR_TAIL__V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:4286:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4291:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L9*/ meltfnum[8] = @@ -46960,7 +46960,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L10*/ meltfnum[9] = (!( /*_#IS_PAIR__L9*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-macro.melt:4286:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4291:/ cond"); /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -46970,7 +46970,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4287:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4292:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing body in WHEN"), (melt_ptr_t) 0); @@ -46981,7 +46981,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4288:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4293:/ quasiblock"); /*^checksignal */ @@ -47006,7 +47006,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4289:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4294:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -47032,7 +47032,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4290:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4295:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -47085,7 +47085,7 @@ lab_endgetargs:; /*_.XWHEN__V29*/ meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4295:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4300:/ cppif.then"); /*^block */ /*anyblock */ { @@ -47111,7 +47111,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4295:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4300:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -47126,7 +47126,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4295:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4300:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -47140,7 +47140,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4295; + argtab[2].meltbp_long = 4300; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_when return xwhen="; /*^apply.arg */ @@ -47160,7 +47160,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4295:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4300:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0; @@ -47173,7 +47173,7 @@ lab_endgetargs:; /*_.IF___V32*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4295:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4300:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[32] = /*_.IF___V32*/ meltfptr[31];; @@ -47181,7 +47181,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[30] = /*_.PROGN___V34*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4295:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4300:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V32*/ meltfptr[31] = 0; @@ -47194,7 +47194,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[30] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4296:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4301:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -47203,7 +47203,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.XWHEN__V29*/ meltfptr[28];; { - MELT_LOCATION ("warmelt-macro.melt:4296:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4301:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -47218,7 +47218,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V26*/ meltfptr[25] = /*_.RETURN___V35*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:4288:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4293:/ clear"); /*clear *//*_.XCOND__V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.XPROGN__V28*/ meltfptr[27] = 0; @@ -47230,7 +47230,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V35*/ meltfptr[31] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:4277:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4282:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -47254,7 +47254,7 @@ lab_endgetargs:; /*clear *//*_#NOT__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.LET___V26*/ meltfptr[25] = 0; - MELT_LOCATION ("warmelt-macro.melt:4271:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4276:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -47263,7 +47263,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:4271:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4276:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) diff --git a/gcc/melt/generated/warmelt-macro+03.c b/gcc/melt/generated/warmelt-macro+03.c index 33c631e5df4..5358fa12780 100644 --- a/gcc/melt/generated/warmelt-macro+03.c +++ b/gcc/melt/generated/warmelt-macro+03.c @@ -2393,7 +2393,7 @@ meltrout_73_warmelt_macro_MEXPAND_UNLESS (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4307:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4312:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -2434,7 +2434,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4308:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4313:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2460,7 +2460,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4308:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4313:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2475,7 +2475,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4308:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4313:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2488,7 +2488,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4308; + argtab[2].meltbp_long = 4313; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_unless sexpr"; /*^apply.arg */ @@ -2507,7 +2507,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4308:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4313:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -2520,7 +2520,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4308:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4313:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -2528,7 +2528,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4308:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4313:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -2543,7 +2543,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4309:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4314:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2555,7 +2555,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4309:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4314:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2563,7 +2563,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4309:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4314:/ cond.else"); /*^block */ /*anyblock */ @@ -2577,7 +2577,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4309) ? (4309) : __LINE__, __FUNCTION__); + (4314) ? (4314) : __LINE__, __FUNCTION__); ; } ; @@ -2591,7 +2591,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4309:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4314:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -2604,7 +2604,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4310:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4315:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2616,7 +2616,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4310:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4315:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2624,7 +2624,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4310:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4315:/ cond.else"); /*^block */ /*anyblock */ @@ -2638,7 +2638,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4310) ? (4310) : __LINE__, __FUNCTION__); + (4315) ? (4315) : __LINE__, __FUNCTION__); ; } ; @@ -2652,7 +2652,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4310:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4315:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -2663,12 +2663,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4311:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4316:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4311:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4316:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2682,7 +2682,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4311:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4316:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -2695,7 +2695,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4312:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4317:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2706,7 +2706,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:4312:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4317:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2714,7 +2714,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4312:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4317:/ cond.else"); /*^block */ /*anyblock */ @@ -2728,7 +2728,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4312) ? (4312) : __LINE__, __FUNCTION__); + (4317) ? (4317) : __LINE__, __FUNCTION__); ; } ; @@ -2742,7 +2742,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4312:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4317:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -2753,10 +2753,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4313:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4318:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4314:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4319:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -2764,7 +2764,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4315:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4320:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -2780,7 +2780,7 @@ lab_endgetargs:; /*^compute */ /*_.CURIF__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4319:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4324:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L7*/ meltfnum[0] = @@ -2789,7 +2789,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L8*/ meltfnum[7] = (!( /*_#IS_PAIR__L7*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:4319:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4324:/ cond"); /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -2799,7 +2799,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4320:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4325:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing condition in UNLESS"), @@ -2813,10 +2813,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V24*/ meltfptr[23] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4321:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4326:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V25*/ meltfptr[24] = /*_.PAIR_TAIL__V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:4322:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4327:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L9*/ meltfnum[8] = @@ -2825,7 +2825,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L10*/ meltfnum[9] = (!( /*_#IS_PAIR__L9*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-macro.melt:4322:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4327:/ cond"); /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -2835,7 +2835,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4323:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4328:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing body in UNLESS"), (melt_ptr_t) 0); @@ -2846,7 +2846,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4324:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4329:/ quasiblock"); /*^checksignal */ @@ -2871,7 +2871,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4325:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4330:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2897,7 +2897,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4326:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4331:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -2959,7 +2959,7 @@ lab_endgetargs:; /*_.XUNLESS__V29*/ meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4332:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4337:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2985,7 +2985,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4332:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4337:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -3000,7 +3000,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4332:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4337:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3014,7 +3014,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4332; + argtab[2].meltbp_long = 4337; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_unless return xunless="; /*^apply.arg */ @@ -3034,7 +3034,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4332:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4337:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V33*/ meltfptr[32] = 0; @@ -3047,7 +3047,7 @@ lab_endgetargs:; /*_.IF___V32*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4332:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4337:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[32] = /*_.IF___V32*/ meltfptr[31];; @@ -3055,7 +3055,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[30] = /*_.PROGN___V34*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4332:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4337:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V32*/ meltfptr[31] = 0; @@ -3068,7 +3068,7 @@ lab_endgetargs:; /*_.IFCPP___V31*/ meltfptr[30] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4333:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4338:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3077,7 +3077,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.XUNLESS__V29*/ meltfptr[28];; { - MELT_LOCATION ("warmelt-macro.melt:4333:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4338:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3092,7 +3092,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V26*/ meltfptr[25] = /*_.RETURN___V35*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:4324:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4329:/ clear"); /*clear *//*_.XCOND__V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.XPROGN__V28*/ meltfptr[27] = 0; @@ -3104,7 +3104,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V35*/ meltfptr[31] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:4313:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4318:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -3128,7 +3128,7 @@ lab_endgetargs:; /*clear *//*_#NOT__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.LET___V26*/ meltfptr[25] = 0; - MELT_LOCATION ("warmelt-macro.melt:4307:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4312:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3137,7 +3137,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:4307:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4312:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3262,7 +3262,7 @@ meltrout_74_warmelt_macro_MEXPAND_CPPIF (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4343:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4348:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -3303,7 +3303,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4344:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4349:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3315,7 +3315,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4344:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4349:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3323,7 +3323,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4344:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4349:/ cond.else"); /*^block */ /*anyblock */ @@ -3337,7 +3337,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4344) ? (4344) : __LINE__, __FUNCTION__); + (4349) ? (4349) : __LINE__, __FUNCTION__); ; } ; @@ -3351,7 +3351,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4344:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4349:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -3364,7 +3364,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4345:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4350:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3376,7 +3376,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4345:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4350:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3384,7 +3384,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4345:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4350:/ cond.else"); /*^block */ /*anyblock */ @@ -3398,7 +3398,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4345) ? (4345) : __LINE__, __FUNCTION__); + (4350) ? (4350) : __LINE__, __FUNCTION__); ; } ; @@ -3412,7 +3412,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4345:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4350:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -3423,12 +3423,12 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4346:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4351:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[0] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4346:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4351:/ cond"); /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3442,7 +3442,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4346:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4351:/ clear"); /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0; } ; @@ -3455,7 +3455,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4347:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4352:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3466,7 +3466,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:4347:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4352:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -3474,7 +3474,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4347:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4352:/ cond.else"); /*^block */ /*anyblock */ @@ -3488,7 +3488,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4347) ? (4347) : __LINE__, __FUNCTION__); + (4352) ? (4352) : __LINE__, __FUNCTION__); ; } ; @@ -3502,7 +3502,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4347:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4352:/ clear"); /*clear *//*_#IS_OBJECT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -3515,7 +3515,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4348:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4353:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3541,7 +3541,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4348:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4353:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -3556,7 +3556,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4348:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4353:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3569,7 +3569,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4348; + argtab[2].meltbp_long = 4353; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cppif sexpr"; /*^apply.arg */ @@ -3589,7 +3589,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4348:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4353:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0; @@ -3602,7 +3602,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4348:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4353:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[15] = /*_.IF___V15*/ meltfptr[14];; @@ -3610,7 +3610,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.PROGN___V17*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4348:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4353:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V15*/ meltfptr[14] = 0; @@ -3623,10 +3623,10 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4349:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4354:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4350:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4355:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -3634,7 +3634,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4351:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4356:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -3650,7 +3650,7 @@ lab_endgetargs:; /*^compute */ /*_.CURIF__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4355:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4360:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L7*/ meltfnum[5] = @@ -3659,7 +3659,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L8*/ meltfnum[3] = (!( /*_#IS_PAIR__L7*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-macro.melt:4355:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4360:/ cond"); /*cond */ if ( /*_#NOT__L8*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -3669,7 +3669,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4356:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4361:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing condition in CPPIF"), (melt_ptr_t) 0); @@ -3682,10 +3682,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V24*/ meltfptr[23] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4357:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4362:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V25*/ meltfptr[24] = /*_.PAIR_TAIL__V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:4358:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4363:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L9*/ meltfnum[8] = @@ -3694,7 +3694,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L10*/ meltfnum[9] = (!( /*_#IS_PAIR__L9*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-macro.melt:4358:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4363:/ cond"); /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -3704,7 +3704,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4359:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4364:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing then in CPPIF"), (melt_ptr_t) 0); @@ -3715,7 +3715,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4360:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4365:/ quasiblock"); /*^checksignal */ @@ -3742,7 +3742,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4361:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4366:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3768,7 +3768,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4361:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4366:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -3783,7 +3783,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4361:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4366:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3797,7 +3797,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4361; + argtab[2].meltbp_long = 4366; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cppif xcond"; /*^apply.arg */ @@ -3817,7 +3817,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4361:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4366:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; @@ -3830,7 +3830,7 @@ lab_endgetargs:; /*_.IF___V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4361:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4366:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[28];; @@ -3838,7 +3838,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4361:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4366:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V29*/ meltfptr[28] = 0; @@ -3851,13 +3851,13 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4363:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4368:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L13*/ meltfnum[11] = (melt_magic_discr ((melt_ptr_t) ( /*_.XCOND__V27*/ meltfptr[26])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-macro.melt:4363:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4368:/ cond"); /*cond */ if ( /*_#IS_STRING__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -3865,13 +3865,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4363:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4368:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4364:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4369:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L14*/ meltfnum[10] = @@ -3879,7 +3879,7 @@ lab_endgetargs:; ( /*_.XCOND__V27*/ meltfptr[26]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:4364:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4369:/ cond"); /*cond */ if ( /*_#IS_A__L14*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -3887,7 +3887,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4364:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4369:/ cond.else"); /*^block */ /*anyblock */ @@ -3895,7 +3895,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4366:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4371:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -3903,7 +3903,7 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4367:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4372:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3912,7 +3912,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:4367:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4372:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3925,7 +3925,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4365:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4370:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[34] = @@ -3935,7 +3935,7 @@ lab_endgetargs:; /*_.PROGN___V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4364:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4369:/ clear"); /*clear *//*_.RETURN___V34*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.PROGN___V35*/ meltfptr[34] = 0; @@ -3946,7 +3946,7 @@ lab_endgetargs:; /*_.IFELSE___V32*/ meltfptr[28] = /*_.IFELSE___V33*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4363:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4368:/ clear"); /*clear *//*_#IS_A__L14*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IFELSE___V33*/ meltfptr[29] = 0; @@ -3954,7 +3954,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:4368:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4373:/ quasiblock"); /*_.CURTHEN__V37*/ meltfptr[34] = @@ -3962,10 +3962,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V38*/ meltfptr[29] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4369:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4374:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V39*/ meltfptr[38] = /*_.PAIR_TAIL__V38*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:4370:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4375:/ quasiblock"); /*^checksignal */ @@ -3993,7 +3993,7 @@ lab_endgetargs:; /*_.XELSE__V42*/ meltfptr[41] = ( /*nil */ NULL);; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4373:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4378:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4019,7 +4019,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4373:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4378:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -4034,7 +4034,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4373:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4378:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4048,7 +4048,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4373; + argtab[2].meltbp_long = 4378; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cppif xthen"; /*^apply.arg */ @@ -4068,7 +4068,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4373:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4378:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = 0; @@ -4081,7 +4081,7 @@ lab_endgetargs:; /*_.IF___V44*/ meltfptr[43] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4373:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4378:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[44] = /*_.IF___V44*/ meltfptr[43];; @@ -4089,7 +4089,7 @@ lab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[42] = /*_.PROGN___V46*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4373:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4378:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V44*/ meltfptr[43] = 0; @@ -4102,13 +4102,13 @@ lab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[42] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4374:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4379:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L17*/ meltfnum[15] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-macro.melt:4374:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4379:/ cond"); /*cond */ if ( /*_#IS_PAIR__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -4116,13 +4116,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4375:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4380:/ quasiblock"); /*_.CURELSE__V47*/ meltfptr[43] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4376:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4381:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4149,7 +4149,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4377:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4382:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4175,7 +4175,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4377:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4382:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -4190,7 +4190,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4377:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4382:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4204,7 +4204,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4377; + argtab[2].meltbp_long = 4382; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cppif gotxelse"; /*^apply.arg */ @@ -4225,7 +4225,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4377:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4382:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0; @@ -4238,7 +4238,7 @@ lab_endgetargs:; /*_.IF___V50*/ meltfptr[49] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4377:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4382:/ quasiblock"); /*_.PROGN___V52*/ meltfptr[50] = /*_.IF___V50*/ meltfptr[49];; @@ -4246,7 +4246,7 @@ lab_endgetargs:; /*_.IFCPP___V49*/ meltfptr[48] = /*_.PROGN___V52*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4377:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4382:/ clear"); /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V50*/ meltfptr[49] = 0; @@ -4263,20 +4263,20 @@ lab_endgetargs:; /*_.PAIR_TAIL__V53*/ meltfptr[49] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:4378:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4383:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V54*/ meltfptr[50] = /*_.PAIR_TAIL__V53*/ meltfptr[49];; - MELT_LOCATION ("warmelt-macro.melt:4379:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4384:/ compute"); /*_.XELSE__V42*/ meltfptr[41] = /*_.SETQ___V55*/ meltfptr[54] = /*_.GOTXELSE__V48*/ meltfptr[44];; - MELT_LOCATION ("warmelt-macro.melt:4380:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4385:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L20*/ meltfnum[18] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-macro.melt:4380:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4385:/ cond"); /*cond */ if ( /*_#IS_PAIR__L20*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -4286,7 +4286,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4381:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4386:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -4300,7 +4300,7 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4375:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4380:/ clear"); /*clear *//*_.CURELSE__V47*/ meltfptr[43] = 0; /*^clear */ /*clear *//*_.GOTXELSE__V48*/ meltfptr[44] = 0; @@ -4319,7 +4319,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4382:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4387:/ quasiblock"); /*^checksignal */ @@ -4384,7 +4384,7 @@ lab_endgetargs:; /*_.RESP__V57*/ meltfptr[44] = /*_.INST__V58*/ meltfptr[48];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4389:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4394:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4410,7 +4410,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4389:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4394:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -4425,7 +4425,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4389:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4394:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4439,7 +4439,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4389; + argtab[2].meltbp_long = 4394; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cppif return resp"; /*^apply.arg */ @@ -4459,7 +4459,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V61*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4389:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4394:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V61*/ meltfptr[54] = 0; @@ -4472,7 +4472,7 @@ lab_endgetargs:; /*_.IF___V60*/ meltfptr[50] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4389:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4394:/ quasiblock"); /*_.PROGN___V62*/ meltfptr[54] = /*_.IF___V60*/ meltfptr[50];; @@ -4480,7 +4480,7 @@ lab_endgetargs:; /*_.IFCPP___V59*/ meltfptr[49] = /*_.PROGN___V62*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4389:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4394:/ clear"); /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V60*/ meltfptr[50] = 0; @@ -4493,7 +4493,7 @@ lab_endgetargs:; /*_.IFCPP___V59*/ meltfptr[49] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4390:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4395:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4502,7 +4502,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V57*/ meltfptr[44];; { - MELT_LOCATION ("warmelt-macro.melt:4390:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4395:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4517,7 +4517,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V56*/ meltfptr[43] = /*_.RETURN___V63*/ meltfptr[50];; - MELT_LOCATION ("warmelt-macro.melt:4382:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4387:/ clear"); /*clear *//*_.RESP__V57*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_.IFCPP___V59*/ meltfptr[49] = 0; @@ -4525,7 +4525,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V63*/ meltfptr[50] = 0; /*_.LET___V40*/ meltfptr[39] = /*_.LET___V56*/ meltfptr[43];; - MELT_LOCATION ("warmelt-macro.melt:4370:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4375:/ clear"); /*clear *//*_.XTHEN__V41*/ meltfptr[40] = 0; /*^clear */ /*clear *//*_.XELSE__V42*/ meltfptr[41] = 0; @@ -4537,7 +4537,7 @@ lab_endgetargs:; /*clear *//*_.LET___V56*/ meltfptr[43] = 0; /*_.LET___V36*/ meltfptr[33] = /*_.LET___V40*/ meltfptr[39];; - MELT_LOCATION ("warmelt-macro.melt:4368:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4373:/ clear"); /*clear *//*_.CURTHEN__V37*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.PAIR_TAIL__V38*/ meltfptr[29] = 0; @@ -4547,7 +4547,7 @@ lab_endgetargs:; /*clear *//*_.LET___V40*/ meltfptr[39] = 0; /*_.LET___V26*/ meltfptr[25] = /*_.LET___V36*/ meltfptr[33];; - MELT_LOCATION ("warmelt-macro.melt:4360:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4365:/ clear"); /*clear *//*_.XCOND__V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.IFCPP___V28*/ meltfptr[27] = 0; @@ -4559,7 +4559,7 @@ lab_endgetargs:; /*clear *//*_.LET___V36*/ meltfptr[33] = 0; /*_.LET___V18*/ meltfptr[14] = /*_.LET___V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:4349:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4354:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -4583,7 +4583,7 @@ lab_endgetargs:; /*clear *//*_#NOT__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.LET___V26*/ meltfptr[25] = 0; - MELT_LOCATION ("warmelt-macro.melt:4343:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4348:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4592,7 +4592,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:4343:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4348:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4718,7 +4718,7 @@ meltrout_75_warmelt_macro_FILTERGCCVERSION (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4400:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4405:/ getarg"); /*_.VERSIONSTR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -4730,7 +4730,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4401:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4406:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4741,7 +4741,7 @@ lab_endgetargs:; /*_#IS_STRING__L1*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.VERSIONSTR__V2*/ meltfptr[1])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-macro.melt:4401:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4406:/ cond"); /*cond */ if ( /*_#IS_STRING__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4749,7 +4749,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4401:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4406:/ cond.else"); /*^block */ /*anyblock */ @@ -4763,7 +4763,7 @@ lab_endgetargs:; melt_assert_failed (("check versionstr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4401) ? (4401) : __LINE__, __FUNCTION__); + (4406) ? (4406) : __LINE__, __FUNCTION__); ; } ; @@ -4777,7 +4777,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4401:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4406:/ clear"); /*clear *//*_#IS_STRING__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -4788,7 +4788,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4402:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4407:/ quasiblock"); /*_#VERSIONLEN__L2*/ meltfnum[0] = @@ -4797,7 +4797,7 @@ lab_endgetargs:; /*_.RES__V6*/ meltfptr[5] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:4407:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4412:/ locexp"); if ( /*_#VERSIONLEN__L2*/ meltfnum[0] > 0 /*FILTERGCC__1 */ && !strncmp (melt_string_str @@ -4808,7 +4808,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:4413:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4418:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4817,7 +4817,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V6*/ meltfptr[5];; { - MELT_LOCATION ("warmelt-macro.melt:4413:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4418:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4832,13 +4832,13 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V5*/ meltfptr[3] = /*_.RETURN___V7*/ meltfptr[6];; - MELT_LOCATION ("warmelt-macro.melt:4402:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4407:/ clear"); /*clear *//*_#VERSIONLEN__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.RES__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.RETURN___V7*/ meltfptr[6] = 0; - MELT_LOCATION ("warmelt-macro.melt:4400:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4405:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4847,7 +4847,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; { - MELT_LOCATION ("warmelt-macro.melt:4400:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4405:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4962,7 +4962,7 @@ meltrout_76_warmelt_macro_MEXPAND_GCCIF (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4415:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4420:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -5003,7 +5003,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4416:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4421:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5015,7 +5015,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4416:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4421:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5023,7 +5023,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4416:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4421:/ cond.else"); /*^block */ /*anyblock */ @@ -5037,7 +5037,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4416) ? (4416) : __LINE__, __FUNCTION__); + (4421) ? (4421) : __LINE__, __FUNCTION__); ; } ; @@ -5051,7 +5051,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4416:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4421:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -5064,7 +5064,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4417:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4422:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5076,7 +5076,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4417:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4422:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5084,7 +5084,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4417:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4422:/ cond.else"); /*^block */ /*anyblock */ @@ -5098,7 +5098,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4417) ? (4417) : __LINE__, __FUNCTION__); + (4422) ? (4422) : __LINE__, __FUNCTION__); ; } ; @@ -5112,7 +5112,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4417:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4422:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -5125,7 +5125,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4418:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4423:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5151,7 +5151,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4418:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4423:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5166,7 +5166,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4418:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4423:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5179,7 +5179,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4418; + argtab[2].meltbp_long = 4423; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_gccif sexpr"; /*^apply.arg */ @@ -5199,7 +5199,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4418:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4423:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; @@ -5212,7 +5212,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[10] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4418:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4423:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];; @@ -5220,7 +5220,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4418:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4423:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V11*/ meltfptr[10] = 0; @@ -5233,10 +5233,10 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4419:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4424:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4420:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4425:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -5244,7 +5244,7 @@ lab_endgetargs:; /*_.CONT__V15*/ meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4421:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4426:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -5263,14 +5263,14 @@ lab_endgetargs:; /*^compute */ /*_.RESTPAIR__V20*/ meltfptr[19] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4426:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4431:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[3] = melt_is_instance_of ((melt_ptr_t) ( /*_.CURIF__V19*/ meltfptr[18]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4426:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4431:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -5278,7 +5278,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4427:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4432:/ quasiblock"); /*^cond */ @@ -5308,7 +5308,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4429:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4434:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5334,7 +5334,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4429:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4434:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5349,7 +5349,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4429:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4434:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5363,7 +5363,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4429; + argtab[2].meltbp_long = 4434; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_gccif xcurif="; /*^apply.arg */ @@ -5384,7 +5384,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4429:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4434:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0; @@ -5397,7 +5397,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[24] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4429:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4434:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[25] = /*_.IF___V25*/ meltfptr[24];; @@ -5405,7 +5405,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[23] = /*_.PROGN___V27*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4429:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4434:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V25*/ meltfptr[24] = 0; @@ -5418,12 +5418,12 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[23] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4430:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4435:/ compute"); /*_.CURIF__V19*/ meltfptr[18] = /*_.SETQ___V28*/ meltfptr[24] = /*_.XCURIF__V23*/ meltfptr[22];; /*_.LET___V22*/ meltfptr[21] = /*_.SETQ___V28*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:4427:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4432:/ clear"); /*clear *//*_.XCURIF__V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.IFCPP___V24*/ meltfptr[23] = 0; @@ -5432,7 +5432,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = /*_.LET___V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4426:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4431:/ clear"); /*clear *//*_.LET___V22*/ meltfptr[21] = 0; } ; @@ -5445,7 +5445,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4432:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4437:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5471,7 +5471,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4432:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4437:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -5486,7 +5486,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4432:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4437:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5499,7 +5499,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4432; + argtab[2].meltbp_long = 4437; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_gccif curif"; /*^apply.arg */ @@ -5519,7 +5519,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V31*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4432:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4437:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V31*/ meltfptr[23] = 0; @@ -5532,7 +5532,7 @@ lab_endgetargs:; /*_.IF___V30*/ meltfptr[22] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4432:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4437:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[24] = /*_.IF___V30*/ meltfptr[22];; @@ -5540,7 +5540,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[25] = /*_.PROGN___V32*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4432:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4437:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V30*/ meltfptr[22] = 0; @@ -5553,13 +5553,13 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[25] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4434:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4439:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L10*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURIF__V19*/ meltfptr[18])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-macro.melt:4434:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4439:/ cond"); /*cond */ if ( /*_#IS_STRING__L10*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5567,7 +5567,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4435:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4440:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -5592,7 +5592,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4436:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4441:/ quasiblock"); /*^checksignal */ @@ -5625,7 +5625,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4438:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4443:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5651,7 +5651,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4438:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4443:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -5667,7 +5667,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:4438:/ checksignal"); + ("warmelt-macro.melt:4443:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5681,7 +5681,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4438; + argtab[2].meltbp_long = 4443; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_gccif return exprest"; @@ -5703,7 +5703,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4438:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4443:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ @@ -5717,7 +5717,7 @@ lab_endgetargs:; /*_.IF___V39*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4438:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4443:/ quasiblock"); /*_.PROGN___V41*/ meltfptr[39] = @@ -5727,7 +5727,7 @@ lab_endgetargs:; /*_.PROGN___V41*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4438:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4443:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V39*/ meltfptr[38] = 0; @@ -5740,7 +5740,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4439:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4444:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5750,7 +5750,7 @@ lab_endgetargs:; /*_.EXPREST__V37*/ meltfptr[36];; { - MELT_LOCATION ("warmelt-macro.melt:4439:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4444:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5766,7 +5766,7 @@ lab_endgetargs:; /*_.LET___V36*/ meltfptr[24] = /*_.RETURN___V42*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:4436:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4441:/ clear"); /*clear *//*_.EXPREST__V37*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.IFCPP___V38*/ meltfptr[37] = 0; @@ -5776,7 +5776,7 @@ lab_endgetargs:; /*_.LET___V36*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4435:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4440:/ clear"); /*clear *//*_.LET___V36*/ meltfptr[24] = 0; } ; @@ -5790,7 +5790,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4441:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4446:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5816,7 +5816,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4441:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4446:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -5832,7 +5832,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:4441:/ checksignal"); + ("warmelt-macro.melt:4446:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5846,7 +5846,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4441; + argtab[2].meltbp_long = 4446; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_gccif sexpr gcc version mismatched"; @@ -5868,7 +5868,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V45*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4441:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4446:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[6] = 0; /*^clear */ @@ -5882,7 +5882,7 @@ lab_endgetargs:; /*_.IF___V44*/ meltfptr[36] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4441:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4446:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[38] = @@ -5892,7 +5892,7 @@ lab_endgetargs:; /*_.PROGN___V46*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4441:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4446:/ clear"); /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V44*/ meltfptr[36] = 0; @@ -5905,13 +5905,13 @@ lab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[39] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4442:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4447:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:4442:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4447:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5924,7 +5924,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4440:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4445:/ quasiblock"); /*_.PROGN___V48*/ meltfptr[37] = @@ -5934,7 +5934,7 @@ lab_endgetargs:; /*_.PROGN___V48*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4435:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4440:/ clear"); /*clear *//*_.IFCPP___V43*/ meltfptr[39] = 0; /*^clear */ /*clear *//*_.RETURN___V47*/ meltfptr[24] = 0; @@ -5947,7 +5947,7 @@ lab_endgetargs:; /*_.IFELSE___V33*/ meltfptr[21] = /*_.IFELSE___V35*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4434:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4439:/ clear"); /*clear *//*_.FILTERGCCVERSION__V34*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.IFELSE___V35*/ meltfptr[22] = 0; @@ -5961,13 +5961,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4443:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4448:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L15*/ meltfnum[6] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURIF__V19*/ meltfptr[18])) == MELTOBMAG_LIST);; - MELT_LOCATION ("warmelt-macro.melt:4443:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4448:/ cond"); /*cond */ if ( /*_#IS_LIST__L15*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -5975,7 +5975,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4444:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4449:/ quasiblock"); /*_.OK__V51*/ meltfptr[39] = ( /*nil */ NULL);; @@ -5996,7 +5996,7 @@ lab_endgetargs:; meltfptr[24]); - MELT_LOCATION ("warmelt-macro.melt:4449:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4454:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L16*/ meltfnum[11] = @@ -6006,7 +6006,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L17*/ meltfnum[16] = (!( /*_#IS_STRING__L16*/ meltfnum[11]));; - MELT_LOCATION ("warmelt-macro.melt:4449:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4454:/ cond"); /*cond */ if ( /*_#NOT__L17*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -6017,7 +6017,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:4450:/ locexp"); + ("warmelt-macro.melt:4455:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V16*/ @@ -6031,7 +6031,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4451:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4456:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -6059,7 +6059,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:4452:/ compute"); + ("warmelt-macro.melt:4457:/ compute"); /*_.OK__V51*/ meltfptr[39] = /*_.SETQ___V56*/ meltfptr[55] = ( /*!konst_5_TRUE */ meltfrout->tabval[5]);; @@ -6067,7 +6067,7 @@ lab_endgetargs:; /*_.SETQ___V56*/ meltfptr[55];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4451:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4456:/ clear"); /*clear *//*_.SETQ___V56*/ meltfptr[55] = 0; } ; @@ -6085,7 +6085,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:4446:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4451:/ clear"); /*clear *//*_.CURPAIR__V52*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.CURSTR__V53*/ meltfptr[37] = 0; @@ -6099,7 +6099,7 @@ lab_endgetargs:; /*clear *//*_.IF___V55*/ meltfptr[22] = 0; } /*endciterblock FOREACH_IN_LIST */ ; - MELT_LOCATION ("warmelt-macro.melt:4454:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4459:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -6110,7 +6110,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4455:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4460:/ quasiblock"); /*^checksignal */ @@ -6143,7 +6143,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4457:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4462:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6169,7 +6169,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4457:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4462:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -6185,7 +6185,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:4457:/ checksignal"); + ("warmelt-macro.melt:4462:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6200,7 +6200,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4457; + argtab[2].meltbp_long = 4462; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_gccif return exprest multicond"; @@ -6226,7 +6226,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:4457:/ clear"); + ("warmelt-macro.melt:4462:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[18] = 0; /*^clear */ @@ -6242,7 +6242,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:4457:/ quasiblock"); + ("warmelt-macro.melt:4462:/ quasiblock"); /*_.PROGN___V63*/ meltfptr[61] = @@ -6252,7 +6252,7 @@ lab_endgetargs:; /*_.PROGN___V63*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4457:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4462:/ clear"); /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IF___V61*/ meltfptr[60] = 0; @@ -6265,7 +6265,7 @@ lab_endgetargs:; /*_.IFCPP___V60*/ meltfptr[59] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4458:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4463:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -6275,7 +6275,7 @@ lab_endgetargs:; /*_.EXPREST__V59*/ meltfptr[58];; { - MELT_LOCATION ("warmelt-macro.melt:4458:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4463:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -6292,7 +6292,7 @@ lab_endgetargs:; /*_.LET___V58*/ meltfptr[57] = /*_.RETURN___V64*/ meltfptr[60];; - MELT_LOCATION ("warmelt-macro.melt:4455:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4460:/ clear"); /*clear *//*_.EXPREST__V59*/ meltfptr[58] = 0; /*^clear */ /*clear *//*_.IFCPP___V60*/ meltfptr[59] = 0; @@ -6302,7 +6302,7 @@ lab_endgetargs:; /*_.LET___V58*/ meltfptr[57];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4454:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4459:/ clear"); /*clear *//*_.LET___V58*/ meltfptr[57] = 0; } ; @@ -6316,7 +6316,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4460:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4465:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6342,7 +6342,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4460:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4465:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -6358,7 +6358,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:4460:/ checksignal"); + ("warmelt-macro.melt:4465:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6373,7 +6373,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4460; + argtab[2].meltbp_long = 4465; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_gccif sexpr gcc version multicond mismatched"; @@ -6399,7 +6399,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:4460:/ clear"); + ("warmelt-macro.melt:4465:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[17] = 0; /*^clear */ @@ -6415,7 +6415,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:4460:/ quasiblock"); + ("warmelt-macro.melt:4465:/ quasiblock"); /*_.PROGN___V68*/ meltfptr[60] = @@ -6425,7 +6425,7 @@ lab_endgetargs:; /*_.PROGN___V68*/ meltfptr[60];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4460:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4465:/ clear"); /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.IF___V66*/ meltfptr[58] = 0; @@ -6438,13 +6438,13 @@ lab_endgetargs:; /*_.IFCPP___V65*/ meltfptr[61] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4461:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4466:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:4461:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4466:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -6458,7 +6458,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4459:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4464:/ quasiblock"); /*_.PROGN___V70*/ meltfptr[59] = @@ -6468,7 +6468,7 @@ lab_endgetargs:; /*_.PROGN___V70*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4454:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4459:/ clear"); /*clear *//*_.IFCPP___V65*/ meltfptr[61] = 0; /*^clear */ /*clear *//*_.RETURN___V69*/ meltfptr[57] = 0; @@ -6481,7 +6481,7 @@ lab_endgetargs:; /*_.LET___V50*/ meltfptr[38] = /*_.IFELSE___V57*/ meltfptr[55];; - MELT_LOCATION ("warmelt-macro.melt:4444:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4449:/ clear"); /*clear *//*_.OK__V51*/ meltfptr[39] = 0; /*^clear */ /*clear *//*_.IFELSE___V57*/ meltfptr[55] = 0; @@ -6489,7 +6489,7 @@ lab_endgetargs:; /*_.LET___V50*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4443:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4448:/ clear"); /*clear *//*_.LET___V50*/ meltfptr[38] = 0; } ; @@ -6503,7 +6503,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4465:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4470:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V16*/ meltfptr[15]), @@ -6511,13 +6511,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4466:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4471:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:4466:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4471:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6530,7 +6530,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4464:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4469:/ quasiblock"); /*_.PROGN___V72*/ meltfptr[60] = @@ -6540,7 +6540,7 @@ lab_endgetargs:; /*_.PROGN___V72*/ meltfptr[60];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4443:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4448:/ clear"); /*clear *//*_.RETURN___V71*/ meltfptr[58] = 0; /*^clear */ /*clear *//*_.PROGN___V72*/ meltfptr[60] = 0; @@ -6551,7 +6551,7 @@ lab_endgetargs:; /*_.IFELSE___V33*/ meltfptr[21] = /*_.IFELSE___V49*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4434:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4439:/ clear"); /*clear *//*_#IS_LIST__L15*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IFELSE___V49*/ meltfptr[36] = 0; @@ -6561,7 +6561,7 @@ lab_endgetargs:; ; /*_.LET___V14*/ meltfptr[10] = /*_.IFELSE___V33*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:4419:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4424:/ clear"); /*clear *//*_.CONT__V15*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.SLOC__V16*/ meltfptr[15] = 0; @@ -6583,7 +6583,7 @@ lab_endgetargs:; /*clear *//*_#IS_STRING__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V33*/ meltfptr[21] = 0; - MELT_LOCATION ("warmelt-macro.melt:4415:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4420:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -6592,7 +6592,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-macro.melt:4415:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4420:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6711,7 +6711,7 @@ meltrout_77_warmelt_macro_MEXPAND_COND (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4478:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -6752,7 +6752,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4479:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4484:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6764,7 +6764,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4479:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4484:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6772,7 +6772,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4479:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4484:/ cond.else"); /*^block */ /*anyblock */ @@ -6786,7 +6786,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4479) ? (4479) : __LINE__, __FUNCTION__); + (4484) ? (4484) : __LINE__, __FUNCTION__); ; } ; @@ -6800,7 +6800,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4479:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4484:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -6813,7 +6813,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4480:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4485:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6825,7 +6825,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4480:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4485:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6833,7 +6833,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4480:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4485:/ cond.else"); /*^block */ /*anyblock */ @@ -6847,7 +6847,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4480) ? (4480) : __LINE__, __FUNCTION__); + (4485) ? (4485) : __LINE__, __FUNCTION__); ; } ; @@ -6861,7 +6861,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4480:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4485:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -6874,7 +6874,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4481:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4486:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6900,7 +6900,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4481:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4486:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6915,7 +6915,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4481:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4486:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6928,7 +6928,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4481; + argtab[2].meltbp_long = 4486; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cond sexpr"; /*^apply.arg */ @@ -6948,7 +6948,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4481:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4486:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; @@ -6961,7 +6961,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[10] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4481:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4486:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];; @@ -6969,7 +6969,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4481:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4486:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V11*/ meltfptr[10] = 0; @@ -6982,10 +6982,10 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4482:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4487:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4483:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4488:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -6993,7 +6993,7 @@ lab_endgetargs:; /*_.CONT__V15*/ meltfptr[11] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4484:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4489:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -7006,7 +7006,7 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V18*/ meltfptr[17] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));; - MELT_LOCATION ("warmelt-macro.melt:4488:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4493:/ quasiblock"); /*^newclosure */ @@ -7031,7 +7031,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]); ; /*_.LAMBDA___V19*/ meltfptr[18] = /*_.LAMBDA___V20*/ meltfptr[19];; - MELT_LOCATION ("warmelt-macro.melt:4485:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4490:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7056,7 +7056,7 @@ lab_endgetargs:; /*_#NBCOND__L5*/ meltfnum[3] = (melt_multiple_length ((melt_ptr_t) ( /*_.CEXPTUPLE__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:4494:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4499:/ quasiblock"); /*_.LX__V23*/ meltfptr[22] = @@ -7064,7 +7064,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.CEXPTUPLE__V21*/ meltfptr[20]), (-1)));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4495:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4500:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7090,7 +7090,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4495:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4500:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7105,7 +7105,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4495:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4500:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7118,7 +7118,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4495; + argtab[2].meltbp_long = 4500; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cond lastcexp lx"; /*^apply.arg */ @@ -7138,7 +7138,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4495:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4500:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0; @@ -7151,7 +7151,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[24] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4495:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4500:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[25] = /*_.IF___V25*/ meltfptr[24];; @@ -7159,7 +7159,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[23] = /*_.PROGN___V27*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4495:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4500:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V25*/ meltfptr[24] = 0; @@ -7175,7 +7175,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V22*/ meltfptr[21] = /*_.LX__V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-macro.melt:4494:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4499:/ clear"); /*clear *//*_.LX__V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.IFCPP___V24*/ meltfptr[23] = 0; @@ -7187,7 +7187,7 @@ lab_endgetargs:; /*_.RES__V29*/ meltfptr[25] = ( /*nil */ NULL);; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4500:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4505:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7213,7 +7213,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4500:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4505:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7228,7 +7228,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4500:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4505:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7242,7 +7242,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4500; + argtab[2].meltbp_long = 4505; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cond cexptuple"; /*^apply.arg */ @@ -7262,7 +7262,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4500:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4505:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0; @@ -7275,7 +7275,7 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4500:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4505:/ quasiblock"); /*_.PROGN___V33*/ meltfptr[31] = /*_.IF___V31*/ meltfptr[23];; @@ -7283,7 +7283,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[22] = /*_.PROGN___V33*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4500:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4505:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V31*/ meltfptr[23] = 0; @@ -7296,7 +7296,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4501:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:4506:/ loop"); /*loop */ { labloop_CONDLOOP_1:; /*^loopbody */ @@ -7308,12 +7308,12 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:4502:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4507:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L11*/ meltfnum[9] = (( /*_#IX__L8*/ meltfnum[6]) < (0));; - MELT_LOCATION ("warmelt-macro.melt:4502:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4507:/ cond"); /*cond */ if ( /*_#I__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -7338,7 +7338,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4503:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4508:/ quasiblock"); /*_.CURCOND__V37*/ meltfptr[36] = @@ -7347,7 +7347,7 @@ lab_endgetargs:; ( /*_#IX__L8*/ meltfnum[6])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4504:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4509:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7373,7 +7373,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4504:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4509:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7388,7 +7388,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4504:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4509:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7402,7 +7402,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4504; + argtab[2].meltbp_long = 4509; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cond curcond"; /*^apply.arg */ @@ -7423,7 +7423,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4504:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4509:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0; @@ -7436,7 +7436,7 @@ lab_endgetargs:; /*_.IF___V39*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4504:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4509:/ quasiblock"); /*_.PROGN___V41*/ meltfptr[39] = /*_.IF___V39*/ meltfptr[38];; @@ -7444,7 +7444,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = /*_.PROGN___V41*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4504:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4509:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V39*/ meltfptr[38] = 0; @@ -7457,7 +7457,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4506:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4511:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -7465,7 +7465,7 @@ lab_endgetargs:; ; /*_#NULL__L14*/ meltfnum[12] = (( /*_.RES__V29*/ meltfptr[25]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4506:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4511:/ cond"); /*cond */ if ( /*_#NULL__L14*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -7481,7 +7481,7 @@ lab_endgetargs:; ( /*_.CURCOND__V37*/ meltfptr[36]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4506:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4511:/ cond"); /*cond */ if ( /*_#IS_A__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -7489,7 +7489,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4509:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4514:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -7515,7 +7515,7 @@ lab_endgetargs:; /*_#IF___L17*/ meltfnum[16] = /*_#__L18*/ meltfnum[17];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4506:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4511:/ clear"); /*clear *//*_.SEXP_CONTENTS__V42*/ meltfptr[38] = 0; /*^clear */ /*clear *//*_.LIST_FIRST__V43*/ meltfptr[39] = 0; @@ -7536,7 +7536,7 @@ lab_endgetargs:; /*_#IF___L15*/ meltfnum[0] = /*_#IF___L17*/ meltfnum[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4506:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4511:/ clear"); /*clear *//*_#IS_A__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_#IF___L17*/ meltfnum[16] = 0; @@ -7549,7 +7549,7 @@ lab_endgetargs:; /*_#IF___L15*/ meltfnum[0] = 0;; } ; - MELT_LOCATION ("warmelt-macro.melt:4506:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4511:/ cond"); /*cond */ if ( /*_#IF___L15*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7557,10 +7557,10 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4510:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4515:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4511:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4516:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -7576,7 +7576,7 @@ lab_endgetargs:; /*_.RESTPAIRS__V49*/ meltfptr[48] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V48*/ meltfptr[47])));; - MELT_LOCATION ("warmelt-macro.melt:4513:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4518:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -7587,7 +7587,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4515:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4520:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -7597,7 +7597,7 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V51*/ meltfptr[50] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4514:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4519:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7637,7 +7637,7 @@ lab_endgetargs:; /*_.SETQ___V53*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4513:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4518:/ clear"); /*clear *//*_.LOCA_LOCATION__V51*/ meltfptr[50] = 0; /*^clear */ /*clear *//*_.PAIRLIST_TO_PROGN__V52*/ meltfptr[51] = 0; @@ -7654,7 +7654,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4518:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4523:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7680,7 +7680,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4518:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4523:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -7695,7 +7695,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4518:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4523:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7709,7 +7709,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4518; + argtab[2].meltbp_long = 4523; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cond res for :else"; @@ -7731,7 +7731,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V56*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4518:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4523:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V56*/ meltfptr[52] = 0; @@ -7744,7 +7744,7 @@ lab_endgetargs:; /*_.IF___V55*/ meltfptr[51] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4518:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4523:/ quasiblock"); /*_.PROGN___V57*/ meltfptr[52] = /*_.IF___V55*/ meltfptr[51];; @@ -7753,7 +7753,7 @@ lab_endgetargs:; /*_.PROGN___V57*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4518:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4523:/ clear"); /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IF___V55*/ meltfptr[51] = 0; @@ -7769,7 +7769,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V46*/ meltfptr[39] = /*_.IFCPP___V54*/ meltfptr[50];; - MELT_LOCATION ("warmelt-macro.melt:4510:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4515:/ clear"); /*clear *//*_.SEXP_CONTENTS__V47*/ meltfptr[43] = 0; /*^clear */ /*clear *//*_.LIST_FIRST__V48*/ meltfptr[47] = 0; @@ -7782,7 +7782,7 @@ lab_endgetargs:; /*_.IFELSE___V45*/ meltfptr[38] = /*_.LET___V46*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4506:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4511:/ clear"); /*clear *//*_.LET___V46*/ meltfptr[39] = 0; } ; @@ -7794,7 +7794,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4520:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4525:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L21*/ meltfnum[16] = @@ -7802,7 +7802,7 @@ lab_endgetargs:; ( /*_.CURCOND__V37*/ meltfptr[36]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4520:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4525:/ cond"); /*cond */ if ( /*_#IS_A__L21*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -7810,7 +7810,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4521:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4526:/ quasiblock"); /*^getslot */ @@ -7823,7 +7823,7 @@ lab_endgetargs:; /*_.CURCONDCONT__V60*/ meltfptr[43] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4522:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4527:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -7850,12 +7850,12 @@ lab_endgetargs:; /*_.CURCONDRESTPAIRS__V65*/ meltfptr[39] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V64*/ meltfptr[50])));; - MELT_LOCATION ("warmelt-macro.melt:4526:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4531:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L22*/ meltfnum[15] = (( /*_.CURCONDRESTPAIRS__V65*/ meltfptr[39]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4526:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4531:/ cond"); /*cond */ if ( /*_#NULL__L22*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -7864,11 +7864,11 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:4528:/ checksignal"); + ("warmelt-macro.melt:4533:/ checksignal"); MELT_CHECK_SIGNAL (); ; MELT_LOCATION - ("warmelt-macro.melt:4532:/ checksignal"); + ("warmelt-macro.melt:4537:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7893,7 +7893,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:4531:/ blockmultialloc"); + ("warmelt-macro.melt:4536:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -7920,10 +7920,10 @@ lab_endgetargs:; /*^putuple */ /*putupl#2 */ - melt_assertmsg ("putupl [:4531] #2 checktup", + melt_assertmsg ("putupl [:4536] #2 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V69*/ meltfptr[68])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4531] #2 checkoff", + melt_assertmsg ("putupl [:4536] #2 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.TUPLREC___V69*/ meltfptr[68])))); @@ -7933,10 +7933,10 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#3 */ - melt_assertmsg ("putupl [:4531] #3 checktup", + melt_assertmsg ("putupl [:4536] #3 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V69*/ meltfptr[68])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4531] #3 checkoff", + melt_assertmsg ("putupl [:4536] #3 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.TUPLREC___V69*/ meltfptr[68])))); @@ -7951,14 +7951,14 @@ lab_endgetargs:; /*_.TUPLREC___V69*/ meltfptr[68];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4531:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4536:/ clear"); /*clear *//*_.TUPLREC___V69*/ meltfptr[68] = 0; /*^clear */ /*clear *//*_.TUPLREC___V69*/ meltfptr[68] = 0; } /*end multiallocblock */ ; MELT_LOCATION - ("warmelt-macro.melt:4528:/ quasiblock"); + ("warmelt-macro.melt:4533:/ quasiblock"); /*^rawallocobj */ @@ -8004,14 +8004,14 @@ lab_endgetargs:; ; /*_.INST___V70*/ meltfptr[68] = /*_.INST__V71*/ meltfptr[70];; - MELT_LOCATION ("warmelt-macro.melt:4527:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4532:/ compute"); /*_.RES__V29*/ meltfptr[25] = /*_.SETQ___V72*/ meltfptr[71] = /*_.INST___V70*/ meltfptr[68];; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:4534:/ cppif.then"); + ("warmelt-macro.melt:4539:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8037,7 +8037,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4534:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4539:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L23*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -8053,7 +8053,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:4534:/ checksignal"); + ("warmelt-macro.melt:4539:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8069,7 +8069,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4534; + argtab[2].meltbp_long = 4539; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cond res for monoexp cond"; @@ -8097,7 +8097,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:4534:/ clear"); + ("warmelt-macro.melt:4539:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L24*/ meltfnum[23] = 0; /*^clear */ @@ -8113,7 +8113,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:4534:/ quasiblock"); + ("warmelt-macro.melt:4539:/ quasiblock"); /*_.PROGN___V76*/ meltfptr[74] = @@ -8123,7 +8123,7 @@ lab_endgetargs:; /*_.PROGN___V76*/ meltfptr[74];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4534:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4539:/ clear"); /*clear *//*_#MELT_NEED_DBG__L23*/ meltfnum[17] = 0; /*^clear */ @@ -8138,7 +8138,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:4526:/ quasiblock"); + ("warmelt-macro.melt:4531:/ quasiblock"); /*_.PROGN___V77*/ meltfptr[73] = @@ -8148,7 +8148,7 @@ lab_endgetargs:; /*_.PROGN___V77*/ meltfptr[73];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4526:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4531:/ clear"); /*clear *//*_.MEXPANDER__V67*/ meltfptr[66] = 0; /*^clear */ /*clear *//*_.TUPLE___V68*/ meltfptr[67] = 0; @@ -8171,7 +8171,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:4536:/ checksignal"); + ("warmelt-macro.melt:4541:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V78*/ meltfptr[74] = @@ -8181,7 +8181,7 @@ lab_endgetargs:; /*^compute */ /*_#NULL__L25*/ meltfnum[23] = (( /*_.PAIR_TAIL__V78*/ meltfptr[74]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4536:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4541:/ cond"); /*cond */ if ( /*_#NULL__L25*/ meltfnum[23]) /*then */ { /*^cond.then */ @@ -8190,11 +8190,11 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:4538:/ checksignal"); + ("warmelt-macro.melt:4543:/ checksignal"); MELT_CHECK_SIGNAL (); ; MELT_LOCATION - ("warmelt-macro.melt:4540:/ checksignal"); + ("warmelt-macro.melt:4545:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8227,7 +8227,7 @@ lab_endgetargs:; ( /*_.CURCONDRESTPAIRS__V65*/ meltfptr[39])));; MELT_LOCATION - ("warmelt-macro.melt:4541:/ checksignal"); + ("warmelt-macro.melt:4546:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8255,7 +8255,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:4538:/ quasiblock"); + ("warmelt-macro.melt:4543:/ quasiblock"); /*^rawallocobj */ @@ -8324,14 +8324,14 @@ lab_endgetargs:; /*_.INST___V83*/ meltfptr[72] = /*_.INST__V84*/ meltfptr[73];; MELT_LOCATION - ("warmelt-macro.melt:4537:/ compute"); + ("warmelt-macro.melt:4542:/ compute"); /*_.RES__V29*/ meltfptr[25] = /*_.SETQ___V85*/ meltfptr[84] = /*_.INST___V83*/ meltfptr[72];; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:4544:/ cppif.then"); + ("warmelt-macro.melt:4549:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8359,7 +8359,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:4544:/ cond"); + ("warmelt-macro.melt:4549:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -8376,7 +8376,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:4544:/ checksignal"); + ("warmelt-macro.melt:4549:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8393,7 +8393,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4544; + argtab[2].meltbp_long = 4549; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cond res for biexp cond"; @@ -8413,7 +8413,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:4544:/ clear"); + ("warmelt-macro.melt:4549:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L27*/ meltfnum[26] = 0; /*^clear */ @@ -8429,7 +8429,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:4544:/ quasiblock"); + ("warmelt-macro.melt:4549:/ quasiblock"); /*_.PROGN___V89*/ meltfptr[87] = @@ -8440,7 +8440,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:4544:/ clear"); + ("warmelt-macro.melt:4549:/ clear"); /*clear *//*_#MELT_NEED_DBG__L26*/ meltfnum[17] = 0; /*^clear */ @@ -8457,7 +8457,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:4536:/ quasiblock"); + ("warmelt-macro.melt:4541:/ quasiblock"); /*_.PROGN___V90*/ meltfptr[86] = @@ -8468,7 +8468,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:4536:/ clear"); + ("warmelt-macro.melt:4541:/ clear"); /*clear *//*_.MEXPANDER__V80*/ meltfptr[67] = 0; /*^clear */ @@ -8496,11 +8496,11 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:4548:/ checksignal"); + ("warmelt-macro.melt:4553:/ checksignal"); MELT_CHECK_SIGNAL (); ; MELT_LOCATION - ("warmelt-macro.melt:4550:/ checksignal"); + ("warmelt-macro.melt:4555:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8528,7 +8528,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:4551:/ checksignal"); + ("warmelt-macro.melt:4556:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8560,7 +8560,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:4548:/ quasiblock"); + ("warmelt-macro.melt:4553:/ quasiblock"); /*^rawallocobj */ @@ -8627,14 +8627,14 @@ lab_endgetargs:; /*_.INST___V93*/ meltfptr[68] = /*_.INST__V94*/ meltfptr[71];; MELT_LOCATION - ("warmelt-macro.melt:4547:/ compute"); + ("warmelt-macro.melt:4552:/ compute"); /*_.RES__V29*/ meltfptr[25] = /*_.SETQ___V95*/ meltfptr[72] = /*_.INST___V93*/ meltfptr[68];; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:4553:/ cppif.then"); + ("warmelt-macro.melt:4558:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8662,7 +8662,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION - ("warmelt-macro.melt:4553:/ cond"); + ("warmelt-macro.melt:4558:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L28*/ meltfnum[26]) /*then */ { /*^cond.then */ @@ -8679,7 +8679,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:4553:/ checksignal"); + ("warmelt-macro.melt:4558:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8696,7 +8696,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4553; + argtab[2].meltbp_long = 4558; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cond res for manyexp cond"; @@ -8716,7 +8716,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:4553:/ clear"); + ("warmelt-macro.melt:4558:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L29*/ meltfnum[17] = 0; /*^clear */ @@ -8732,7 +8732,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:4553:/ quasiblock"); + ("warmelt-macro.melt:4558:/ quasiblock"); /*_.PROGN___V99*/ meltfptr[86] = @@ -8743,7 +8743,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:4553:/ clear"); + ("warmelt-macro.melt:4558:/ clear"); /*clear *//*_#MELT_NEED_DBG__L28*/ meltfnum[26] = 0; /*^clear */ @@ -8760,7 +8760,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:4546:/ quasiblock"); + ("warmelt-macro.melt:4551:/ quasiblock"); /*_.PROGN___V100*/ meltfptr[85] = @@ -8771,7 +8771,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:4536:/ clear"); + ("warmelt-macro.melt:4541:/ clear"); /*clear *//*_.MEXPANDER__V91*/ meltfptr[87] = 0; /*^clear */ @@ -8793,7 +8793,7 @@ lab_endgetargs:; /*_.IFELSE___V79*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4526:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4531:/ clear"); /*clear *//*_.PAIR_TAIL__V78*/ meltfptr[74] = 0; /*^clear */ /*clear *//*_#NULL__L25*/ meltfnum[23] = 0; @@ -8806,7 +8806,7 @@ lab_endgetargs:; /*_.LET___V59*/ meltfptr[52] = /*_.IFELSE___V66*/ meltfptr[65];; - MELT_LOCATION ("warmelt-macro.melt:4521:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4526:/ clear"); /*clear *//*_.CURCONDCONT__V60*/ meltfptr[43] = 0; /*^clear */ /*clear *//*_.CURCONDLOC__V61*/ meltfptr[47] = 0; @@ -8826,7 +8826,7 @@ lab_endgetargs:; /*_.LET___V59*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4520:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4525:/ clear"); /*clear *//*_.LET___V59*/ meltfptr[52] = 0; } ; @@ -8838,11 +8838,11 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4557:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4562:/ checksignal"); MELT_CHECK_SIGNAL (); ; MELT_LOCATION - ("warmelt-macro.melt:4559:/ blockmultialloc"); + ("warmelt-macro.melt:4564:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_2_st @@ -8865,12 +8865,12 @@ lab_endgetargs:; /*^putuple */ /*putupl#4 */ - melt_assertmsg ("putupl [:4559] #4 checktup", + melt_assertmsg ("putupl [:4564] #4 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V102*/ meltfptr[87])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4559] #4 checkoff", + melt_assertmsg ("putupl [:4564] #4 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -8881,12 +8881,12 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#5 */ - melt_assertmsg ("putupl [:4559] #5 checktup", + melt_assertmsg ("putupl [:4564] #5 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V102*/ meltfptr[87])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4559] #5 checkoff", + melt_assertmsg ("putupl [:4564] #5 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) @@ -8902,13 +8902,13 @@ lab_endgetargs:; /*_.TUPLREC___V102*/ meltfptr[87];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4559:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4564:/ clear"); /*clear *//*_.TUPLREC___V102*/ meltfptr[87] = 0; /*^clear */ /*clear *//*_.TUPLREC___V102*/ meltfptr[87] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:4557:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4562:/ quasiblock"); /*^rawallocobj */ @@ -8952,13 +8952,13 @@ lab_endgetargs:; ; /*_.INST___V103*/ meltfptr[67] = /*_.INST__V104*/ meltfptr[68];; - MELT_LOCATION ("warmelt-macro.melt:4557:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4562:/ compute"); /*_.RES__V29*/ meltfptr[25] = /*_.SETQ___V105*/ meltfptr[72] = /*_.INST___V103*/ meltfptr[67];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4560:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4565:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8984,7 +8984,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4560:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4565:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L30*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -9000,7 +9000,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:4560:/ checksignal"); + ("warmelt-macro.melt:4565:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9014,7 +9014,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4560; + argtab[2].meltbp_long = 4565; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cond res for nonsexp cond"; @@ -9038,7 +9038,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V108*/ meltfptr[74];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4560:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4565:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L31*/ meltfnum[26] = 0; /*^clear */ @@ -9053,7 +9053,7 @@ lab_endgetargs:; /*_.IF___V107*/ meltfptr[85] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4560:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4565:/ quasiblock"); /*_.PROGN___V109*/ meltfptr[66] = @@ -9063,7 +9063,7 @@ lab_endgetargs:; /*_.PROGN___V109*/ meltfptr[66];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4560:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4565:/ clear"); /*clear *//*_#MELT_NEED_DBG__L30*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IF___V107*/ meltfptr[85] = 0; @@ -9076,7 +9076,7 @@ lab_endgetargs:; /*_.IFCPP___V106*/ meltfptr[84] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4556:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4561:/ quasiblock"); /*_.PROGN___V110*/ meltfptr[43] = @@ -9086,7 +9086,7 @@ lab_endgetargs:; /*_.PROGN___V110*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4520:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4525:/ clear"); /*clear *//*_.TUPLE___V101*/ meltfptr[86] = 0; /*^clear */ /*clear *//*_.INST___V103*/ meltfptr[67] = 0; @@ -9104,7 +9104,7 @@ lab_endgetargs:; /*_.IFELSE___V58*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4506:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4511:/ clear"); /*clear *//*_#IS_A__L21*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.IFELSE___V58*/ meltfptr[51] = 0; @@ -9114,7 +9114,7 @@ lab_endgetargs:; ; /*_.LET___V36*/ meltfptr[35] = /*_.IFELSE___V45*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:4503:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4508:/ clear"); /*clear *//*_.CURCOND__V37*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.IFCPP___V38*/ meltfptr[37] = 0; @@ -9126,10 +9126,10 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V45*/ meltfptr[38] = 0; /*_#I__L32*/ meltfnum[23] = (( /*_#IX__L8*/ meltfnum[6]) - (1));; - MELT_LOCATION ("warmelt-macro.melt:4564:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4569:/ compute"); /*_#IX__L8*/ meltfnum[6] = /*_#SETQ___L33*/ meltfnum[15] = /*_#I__L32*/ meltfnum[23];; - MELT_LOCATION ("warmelt-macro.melt:4501:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4506:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -9153,7 +9153,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4566:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4571:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9179,7 +9179,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4566:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4571:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L34*/ meltfnum[26]) /*then */ { /*^cond.then */ @@ -9194,7 +9194,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4566:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4571:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9208,7 +9208,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4566; + argtab[2].meltbp_long = 4571; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cond final res"; /*^apply.arg */ @@ -9228,7 +9228,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V113*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4566:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4571:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L35*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V113*/ meltfptr[49] = 0; @@ -9241,7 +9241,7 @@ lab_endgetargs:; /*_.IF___V112*/ meltfptr[48] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4566:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4571:/ quasiblock"); /*_.PROGN___V114*/ meltfptr[50] = /*_.IF___V112*/ meltfptr[48];; @@ -9249,7 +9249,7 @@ lab_endgetargs:; /*_.IFCPP___V111*/ meltfptr[47] = /*_.PROGN___V114*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4566:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4571:/ clear"); /*clear *//*_#MELT_NEED_DBG__L34*/ meltfnum[26] = 0; /*^clear */ /*clear *//*_.IF___V112*/ meltfptr[48] = 0; @@ -9262,7 +9262,7 @@ lab_endgetargs:; /*_.IFCPP___V111*/ meltfptr[47] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4567:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4572:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -9271,7 +9271,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V29*/ meltfptr[25];; { - MELT_LOCATION ("warmelt-macro.melt:4567:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4572:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9286,7 +9286,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V14*/ meltfptr[10] = /*_.RETURN___V115*/ meltfptr[39];; - MELT_LOCATION ("warmelt-macro.melt:4482:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4487:/ clear"); /*clear *//*_.CONT__V15*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; @@ -9316,7 +9316,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V111*/ meltfptr[47] = 0; /*^clear */ /*clear *//*_.RETURN___V115*/ meltfptr[39] = 0; - MELT_LOCATION ("warmelt-macro.melt:4478:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -9325,7 +9325,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-macro.melt:4478:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9444,7 +9444,7 @@ meltrout_78_warmelt_macro_LAMBDA___19__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4488:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4493:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -9454,14 +9454,14 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:4489:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4494:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.C__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4489:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4494:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9471,7 +9471,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4490:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4495:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) (( /*~LOC */ meltfclos->tabval[0])), @@ -9483,7 +9483,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4488:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4493:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -9492,7 +9492,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.C__V2*/ meltfptr[1];; { - MELT_LOCATION ("warmelt-macro.melt:4488:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4493:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9605,7 +9605,7 @@ meltrout_79_warmelt_macro_MEXPAND_AND (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4583:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4588:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -9646,7 +9646,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4584:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4589:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9672,7 +9672,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4584:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4589:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9687,7 +9687,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4584:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4589:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9700,7 +9700,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4584; + argtab[2].meltbp_long = 4589; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_and sexpr:"; /*^apply.arg */ @@ -9719,7 +9719,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4584:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4589:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -9732,7 +9732,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4584:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4589:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -9740,7 +9740,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4584:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4589:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -9755,7 +9755,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4585:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4590:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9767,7 +9767,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4585:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4590:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9775,7 +9775,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4585:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4590:/ cond.else"); /*^block */ /*anyblock */ @@ -9789,7 +9789,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4585) ? (4585) : __LINE__, __FUNCTION__); + (4590) ? (4590) : __LINE__, __FUNCTION__); ; } ; @@ -9803,7 +9803,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4585:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4590:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -9816,7 +9816,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4586:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4591:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9828,7 +9828,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4586:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4591:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9836,7 +9836,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4586:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4591:/ cond.else"); /*^block */ /*anyblock */ @@ -9850,7 +9850,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4586) ? (4586) : __LINE__, __FUNCTION__); + (4591) ? (4591) : __LINE__, __FUNCTION__); ; } ; @@ -9864,7 +9864,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4586:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4591:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -9875,12 +9875,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4587:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4592:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4587:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4592:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -9894,7 +9894,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4587:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4592:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -9907,7 +9907,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4588:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4593:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9918,7 +9918,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:4588:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4593:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9926,7 +9926,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4588:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4593:/ cond.else"); /*^block */ /*anyblock */ @@ -9940,7 +9940,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4588) ? (4588) : __LINE__, __FUNCTION__); + (4593) ? (4593) : __LINE__, __FUNCTION__); ; } ; @@ -9954,7 +9954,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4588:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4593:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -9965,10 +9965,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4589:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4594:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4590:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4595:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -9976,7 +9976,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4591:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4596:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -9989,7 +9989,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V22*/ meltfptr[21] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:4596:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4601:/ quasiblock"); /*^newclosure */ @@ -10040,7 +10040,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]); ; /*_.LAMBDA___V23*/ meltfptr[22] = /*_.LAMBDA___V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:4593:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4598:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10066,7 +10066,7 @@ lab_endgetargs:; (melt_multiple_length ((melt_ptr_t) ( /*_.CXTUP__V25*/ meltfptr[24])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4601:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4606:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10092,7 +10092,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4601:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4606:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -10107,7 +10107,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4601:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4606:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10120,7 +10120,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4601; + argtab[2].meltbp_long = 4606; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_and cxtup"; /*^apply.arg */ @@ -10140,7 +10140,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4601:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4606:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = 0; @@ -10153,7 +10153,7 @@ lab_endgetargs:; /*_.IF___V27*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4601:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4606:/ quasiblock"); /*_.PROGN___V29*/ meltfptr[27] = /*_.IF___V27*/ meltfptr[26];; @@ -10161,7 +10161,7 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[25] = /*_.PROGN___V29*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4601:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4606:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V27*/ meltfptr[26] = 0; @@ -10174,12 +10174,12 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[25] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4602:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4607:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L10*/ meltfnum[8] = (( /*_#NBCOMP__L7*/ meltfnum[0]) < (1));; - MELT_LOCATION ("warmelt-macro.melt:4602:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4607:/ cond"); /*cond */ if ( /*_#I__L10*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -10189,19 +10189,19 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4604:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4609:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("AND without sons"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4605:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4610:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:4605:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4610:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10214,7 +10214,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4603:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4608:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[31] = /*_.RETURN___V31*/ meltfptr[27];; @@ -10222,7 +10222,7 @@ lab_endgetargs:; /*_.IFELSE___V30*/ meltfptr[26] = /*_.PROGN___V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4602:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4607:/ clear"); /*clear *//*_.RETURN___V31*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V32*/ meltfptr[31] = 0; @@ -10236,7 +10236,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4606:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4611:/ quasiblock"); /*_#I__L11*/ meltfnum[7] = @@ -10249,7 +10249,7 @@ lab_endgetargs:; /*^compute */ /*_#IX__L12*/ meltfnum[11] = (( /*_#NBCOMP__L7*/ meltfnum[0]) - (2));; - MELT_LOCATION ("warmelt-macro.melt:4608:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:4613:/ loop"); /*loop */ { labloop_REVLOOP_1:; /*^loopbody */ @@ -10261,12 +10261,12 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:4609:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4614:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L13*/ meltfnum[12] = (( /*_#IX__L12*/ meltfnum[11]) < (0));; - MELT_LOCATION ("warmelt-macro.melt:4609:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4614:/ cond"); /*cond */ if ( /*_#I__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -10291,14 +10291,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:4610:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4615:/ quasiblock"); /*_.CURC__V38*/ meltfptr[37] = (melt_multiple_nth ((melt_ptr_t) ( /*_.CXTUP__V25*/ meltfptr[24]), ( /*_#IX__L12*/ meltfnum[11])));; - MELT_LOCATION ("warmelt-macro.melt:4612:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4617:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -10355,12 +10355,12 @@ lab_endgetargs:; "newly made instance"); ; /*_.INST___V39*/ meltfptr[38] = /*_.INST__V40*/ meltfptr[39];; - MELT_LOCATION ("warmelt-macro.melt:4611:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4616:/ compute"); /*_.RES__V34*/ meltfptr[31] = /*_.SETQ___V41*/ meltfptr[40] = /*_.INST___V39*/ meltfptr[38];; /*_.LET___V37*/ meltfptr[36] = /*_.SETQ___V41*/ meltfptr[40];; - MELT_LOCATION ("warmelt-macro.melt:4610:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4615:/ clear"); /*clear *//*_.CURC__V38*/ meltfptr[37] = 0; /*^clear */ /*clear *//*_.INST___V39*/ meltfptr[38] = 0; @@ -10368,10 +10368,10 @@ lab_endgetargs:; /*clear *//*_.SETQ___V41*/ meltfptr[40] = 0; /*_#I__L14*/ meltfnum[13] = (( /*_#IX__L12*/ meltfnum[11]) - (1));; - MELT_LOCATION ("warmelt-macro.melt:4617:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:4622:/ compute"); /*_#IX__L12*/ meltfnum[11] = /*_#SETQ___L15*/ meltfnum[14] = /*_#I__L14*/ meltfnum[13];; - MELT_LOCATION ("warmelt-macro.melt:4608:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4613:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -10396,7 +10396,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4619:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4624:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10422,7 +10422,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4619:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4624:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -10437,7 +10437,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4619:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4624:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10451,7 +10451,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4619; + argtab[2].meltbp_long = 4624; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_and res:"; /*^apply.arg */ @@ -10472,7 +10472,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V44*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4619:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4624:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V44*/ meltfptr[40] = 0; @@ -10485,7 +10485,7 @@ lab_endgetargs:; /*_.IF___V43*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4619:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4624:/ quasiblock"); /*_.PROGN___V45*/ meltfptr[36] = /*_.IF___V43*/ meltfptr[38];; @@ -10493,7 +10493,7 @@ lab_endgetargs:; /*_.IFCPP___V42*/ meltfptr[37] = /*_.PROGN___V45*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4619:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4624:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IF___V43*/ meltfptr[38] = 0; @@ -10506,7 +10506,7 @@ lab_endgetargs:; /*_.IFCPP___V42*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4620:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4625:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -10515,7 +10515,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V34*/ meltfptr[31];; { - MELT_LOCATION ("warmelt-macro.melt:4620:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4625:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10530,7 +10530,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V33*/ meltfptr[27] = /*_.RETURN___V46*/ meltfptr[40];; - MELT_LOCATION ("warmelt-macro.melt:4606:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4611:/ clear"); /*clear *//*_#I__L11*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.RES__V34*/ meltfptr[31] = 0; @@ -10545,7 +10545,7 @@ lab_endgetargs:; /*_.IFELSE___V30*/ meltfptr[26] = /*_.LET___V33*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4602:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4607:/ clear"); /*clear *//*_.LET___V33*/ meltfptr[27] = 0; } ; @@ -10553,7 +10553,7 @@ lab_endgetargs:; ; /*_.LET___V18*/ meltfptr[16] = /*_.IFELSE___V30*/ meltfptr[26];; - MELT_LOCATION ("warmelt-macro.melt:4589:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4594:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -10573,7 +10573,7 @@ lab_endgetargs:; /*clear *//*_#I__L10*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V30*/ meltfptr[26] = 0; - MELT_LOCATION ("warmelt-macro.melt:4583:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4588:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -10582,7 +10582,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:4583:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4588:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10707,7 +10707,7 @@ meltrout_80_warmelt_macro_LAMBDA___20__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4596:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4601:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -10717,7 +10717,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:4597:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4602:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10742,13 +10742,13 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4596:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4601:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:4596:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4601:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10861,7 +10861,7 @@ meltrout_81_warmelt_macro_PATEXPAND_AS (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4624:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -10892,7 +10892,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4625:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4630:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10904,7 +10904,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4625:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4630:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10912,7 +10912,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4625:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4630:/ cond.else"); /*^block */ /*anyblock */ @@ -10926,7 +10926,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4625) ? (4625) : __LINE__, __FUNCTION__); + (4630) ? (4630) : __LINE__, __FUNCTION__); ; } ; @@ -10940,7 +10940,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4625:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4630:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -10953,7 +10953,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4626:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4631:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10965,7 +10965,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4626:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4631:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10973,7 +10973,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4626:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4631:/ cond.else"); /*^block */ /*anyblock */ @@ -10987,7 +10987,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4626) ? (4626) : __LINE__, __FUNCTION__); + (4631) ? (4631) : __LINE__, __FUNCTION__); ; } ; @@ -11001,7 +11001,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4626:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4631:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -11014,7 +11014,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4627:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4632:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11025,7 +11025,7 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4627:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4632:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11033,7 +11033,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4627:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4632:/ cond.else"); /*^block */ /*anyblock */ @@ -11047,7 +11047,7 @@ lab_endgetargs:; melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4627) ? (4627) : __LINE__, __FUNCTION__); + (4632) ? (4632) : __LINE__, __FUNCTION__); ; } ; @@ -11061,7 +11061,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4627:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4632:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -11074,7 +11074,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4628:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4633:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11100,7 +11100,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4628:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4633:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11115,7 +11115,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4628:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4633:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11128,7 +11128,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4628; + argtab[2].meltbp_long = 4633; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_as sexpr"; /*^apply.arg */ @@ -11148,7 +11148,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4628:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4633:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0; @@ -11161,7 +11161,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4628:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4633:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];; @@ -11169,7 +11169,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4628:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4633:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V12*/ meltfptr[11] = 0; @@ -11182,10 +11182,10 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4629:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4634:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4630:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4635:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -11193,7 +11193,7 @@ lab_endgetargs:; /*_.CONT__V16*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4631:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4636:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -11206,7 +11206,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V19*/ meltfptr[18] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4633:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4638:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11229,7 +11229,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4635:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4640:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#MULTIPLE_LENGTH__L6*/ meltfnum[4] = @@ -11237,7 +11237,7 @@ lab_endgetargs:; /*^compute */ /*_#I__L7*/ meltfnum[0] = (( /*_#MULTIPLE_LENGTH__L6*/ meltfnum[4]) != (2));; - MELT_LOCATION ("warmelt-macro.melt:4635:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4640:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11247,20 +11247,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4637:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4642:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("AS pattern expects two arguments: ?patvar subpattern"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4638:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4643:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:4638:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4643:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11273,7 +11273,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4636:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4641:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[22] = /*_.RETURN___V22*/ meltfptr[21];; @@ -11281,7 +11281,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = /*_.PROGN___V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4635:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4640:/ clear"); /*clear *//*_.RETURN___V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.PROGN___V23*/ meltfptr[22] = 0; @@ -11294,7 +11294,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4639:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4644:/ quasiblock"); /*_.ARGVAR__V25*/ meltfptr[22] = @@ -11304,13 +11304,13 @@ lab_endgetargs:; /*_.ARGSUB__V26*/ meltfptr[25] = (melt_multiple_nth ((melt_ptr_t) ( /*_.ARGSP__V20*/ meltfptr[19]), (1)));; - MELT_LOCATION ("warmelt-macro.melt:4642:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4647:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L8*/ meltfnum[7] = melt_is_instance_of ((melt_ptr_t) ( /*_.ARGVAR__V25*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_SOURCE_PATTERN_JOKER_VARIABLE */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:4642:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4647:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -11320,13 +11320,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4644:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4649:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("AS pattern with useless joker"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4645:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4650:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -11335,7 +11335,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.ARGSUB__V26*/ meltfptr[25];; { - MELT_LOCATION ("warmelt-macro.melt:4645:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4650:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11348,7 +11348,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4643:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4648:/ quasiblock"); /*_.PROGN___V29*/ meltfptr[28] = /*_.RETURN___V28*/ meltfptr[27];; @@ -11356,7 +11356,7 @@ lab_endgetargs:; /*_.IF___V27*/ meltfptr[26] = /*_.PROGN___V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4642:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4647:/ clear"); /*clear *//*_.RETURN___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V29*/ meltfptr[28] = 0; @@ -11369,13 +11369,13 @@ lab_endgetargs:; /*_.IF___V27*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4646:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4651:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L9*/ meltfnum[8] = !melt_is_instance_of ((melt_ptr_t) ( /*_.ARGVAR__V25*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_SOURCE_PATTERN_VARIABLE */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:4646:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4651:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -11385,20 +11385,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4648:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4653:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("AS pattern needs a pattern variable as first argument"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4649:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4654:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:4649:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4654:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11411,7 +11411,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4647:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4652:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[31] = /*_.RETURN___V31*/ meltfptr[28];; @@ -11419,7 +11419,7 @@ lab_endgetargs:; /*_.IF___V30*/ meltfptr[27] = /*_.PROGN___V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4646:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4651:/ clear"); /*clear *//*_.RETURN___V31*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.PROGN___V32*/ meltfptr[31] = 0; @@ -11434,16 +11434,16 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:4650:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4655:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("deprecated AS pattern - use AND pattern instead"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4651:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4656:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4652:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4657:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -11470,7 +11470,7 @@ lab_endgetargs:; /*^compute */ /*_#SUBW__L10*/ meltfnum[9] = (melt_get_int ((melt_ptr_t) ( /*_.PAT_WEIGHT__V34*/ meltfptr[31])));; - MELT_LOCATION ("warmelt-macro.melt:4653:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4658:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L11*/ meltfnum[10] = @@ -11481,7 +11481,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_CONSTANT_INTEGER */ meltfrout->tabval[9])), ( /*_#I__L11*/ meltfnum[10])));; - MELT_LOCATION ("warmelt-macro.melt:4656:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:4661:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -11503,11 +11503,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#6 */ - melt_assertmsg ("putupl [:4656] #6 checktup", + melt_assertmsg ("putupl [:4661] #6 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V37*/ meltfptr[36])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4656] #6 checkoff", + melt_assertmsg ("putupl [:4661] #6 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -11518,11 +11518,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#7 */ - melt_assertmsg ("putupl [:4656] #7 checktup", + melt_assertmsg ("putupl [:4661] #7 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V37*/ meltfptr[36])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4656] #7 checkoff", + melt_assertmsg ("putupl [:4661] #7 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) @@ -11537,13 +11537,13 @@ lab_endgetargs:; /*_.TUPLE___V36*/ meltfptr[35] = /*_.TUPLREC___V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4656:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4661:/ clear"); /*clear *//*_.TUPLREC___V37*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.TUPLREC___V37*/ meltfptr[36] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:4653:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4658:/ quasiblock"); /*^rawallocobj */ @@ -11594,7 +11594,7 @@ lab_endgetargs:; /*_.RES__V38*/ meltfptr[36] = /*_.INST__V39*/ meltfptr[38];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4658:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4663:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11620,7 +11620,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4658:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4663:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -11635,7 +11635,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4658:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4663:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11649,7 +11649,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4658; + argtab[2].meltbp_long = 4663; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_as returns res"; /*^apply.arg */ @@ -11669,7 +11669,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4658:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4663:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 0; @@ -11682,7 +11682,7 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[40] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4658:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4663:/ quasiblock"); /*_.PROGN___V43*/ meltfptr[41] = /*_.IF___V41*/ meltfptr[40];; @@ -11690,7 +11690,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[39] = /*_.PROGN___V43*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4658:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4663:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V41*/ meltfptr[40] = 0; @@ -11703,7 +11703,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[39] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4659:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4664:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -11712,7 +11712,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V38*/ meltfptr[36];; { - MELT_LOCATION ("warmelt-macro.melt:4659:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4664:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11727,7 +11727,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V33*/ meltfptr[28] = /*_.RETURN___V44*/ meltfptr[40];; - MELT_LOCATION ("warmelt-macro.melt:4651:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4656:/ clear"); /*clear *//*_.PAT_WEIGHT__V34*/ meltfptr[31] = 0; /*^clear */ /*clear *//*_#SUBW__L10*/ meltfnum[9] = 0; @@ -11745,7 +11745,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V44*/ meltfptr[40] = 0; /*_.LET___V24*/ meltfptr[21] = /*_.LET___V33*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:4639:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4644:/ clear"); /*clear *//*_.ARGVAR__V25*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.ARGSUB__V26*/ meltfptr[25] = 0; @@ -11761,7 +11761,7 @@ lab_endgetargs:; /*clear *//*_.LET___V33*/ meltfptr[28] = 0; /*_.LET___V15*/ meltfptr[11] = /*_.LET___V24*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:4629:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4634:/ clear"); /*clear *//*_.CONT__V16*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LOC__V17*/ meltfptr[16] = 0; @@ -11779,7 +11779,7 @@ lab_endgetargs:; /*clear *//*_.IF___V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.LET___V24*/ meltfptr[21] = 0; - MELT_LOCATION ("warmelt-macro.melt:4624:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -11788,7 +11788,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];; { - MELT_LOCATION ("warmelt-macro.melt:4624:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -11909,7 +11909,7 @@ meltrout_82_warmelt_macro_MEXPAND_AS (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4662:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4667:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -11950,7 +11950,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4663:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4668:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11962,7 +11962,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4663:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4668:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -11970,7 +11970,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4663:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4668:/ cond.else"); /*^block */ /*anyblock */ @@ -11984,7 +11984,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4663) ? (4663) : __LINE__, __FUNCTION__); + (4668) ? (4668) : __LINE__, __FUNCTION__); ; } ; @@ -11998,7 +11998,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4663:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4668:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -12011,7 +12011,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4664:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4669:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12023,7 +12023,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4664:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4669:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -12031,7 +12031,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4664:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4669:/ cond.else"); /*^block */ /*anyblock */ @@ -12045,7 +12045,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4664) ? (4664) : __LINE__, __FUNCTION__); + (4669) ? (4669) : __LINE__, __FUNCTION__); ; } ; @@ -12059,7 +12059,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4664:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4669:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -12072,7 +12072,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4665:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4670:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12098,7 +12098,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4665:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4670:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -12113,7 +12113,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4665:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4670:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12126,7 +12126,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4665; + argtab[2].meltbp_long = 4670; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_as sexpr"; /*^apply.arg */ @@ -12146,7 +12146,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4665:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4670:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; @@ -12159,7 +12159,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[10] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4665:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4670:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];; @@ -12167,7 +12167,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4665:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4670:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V11*/ meltfptr[10] = 0; @@ -12180,10 +12180,10 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4666:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4671:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4667:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4672:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -12193,20 +12193,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:4669:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4674:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V15*/ meltfptr[11]), ("AS cannot be macro-expanded in expression context"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4670:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4675:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:4670:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4675:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12221,11 +12221,11 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V14*/ meltfptr[10] = /*_.RETURN___V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-macro.melt:4666:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4671:/ clear"); /*clear *//*_.LOC__V15*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.RETURN___V16*/ meltfptr[15] = 0; - MELT_LOCATION ("warmelt-macro.melt:4662:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4667:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -12234,7 +12234,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-macro.melt:4662:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4667:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12354,7 +12354,7 @@ meltrout_83_warmelt_macro_PATEXPAND_WHEN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4676:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4681:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -12385,7 +12385,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4677:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4682:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12397,7 +12397,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4677:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4682:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -12405,7 +12405,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4677:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4682:/ cond.else"); /*^block */ /*anyblock */ @@ -12419,7 +12419,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4677) ? (4677) : __LINE__, __FUNCTION__); + (4682) ? (4682) : __LINE__, __FUNCTION__); ; } ; @@ -12433,7 +12433,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4677:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4682:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -12446,7 +12446,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4678:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4683:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12458,7 +12458,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4678:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4683:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -12466,7 +12466,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4678:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4683:/ cond.else"); /*^block */ /*anyblock */ @@ -12480,7 +12480,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4678) ? (4678) : __LINE__, __FUNCTION__); + (4683) ? (4683) : __LINE__, __FUNCTION__); ; } ; @@ -12494,7 +12494,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4678:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4683:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -12507,7 +12507,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4679:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4684:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12518,7 +12518,7 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4679:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4684:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -12526,7 +12526,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4679:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4684:/ cond.else"); /*^block */ /*anyblock */ @@ -12540,7 +12540,7 @@ lab_endgetargs:; melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4679) ? (4679) : __LINE__, __FUNCTION__); + (4684) ? (4684) : __LINE__, __FUNCTION__); ; } ; @@ -12554,7 +12554,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4679:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4684:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -12567,7 +12567,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4680:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4685:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12593,7 +12593,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4680:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4685:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -12608,7 +12608,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4680:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4685:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12621,7 +12621,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4680; + argtab[2].meltbp_long = 4685; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_when sexpr"; /*^apply.arg */ @@ -12641,7 +12641,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4680:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4685:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0; @@ -12654,7 +12654,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4680:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4685:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];; @@ -12662,7 +12662,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4680:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4685:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V12*/ meltfptr[11] = 0; @@ -12675,10 +12675,10 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4681:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4686:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4682:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4687:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -12686,7 +12686,7 @@ lab_endgetargs:; /*_.CONT__V16*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4683:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4688:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -12696,7 +12696,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:4686:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4691:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("WHEN is not yet implemented in patterns"), @@ -12705,7 +12705,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4687:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4692:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12721,7 +12721,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4687:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4692:/ cond.else"); /*^block */ /*anyblock */ @@ -12735,7 +12735,7 @@ lab_endgetargs:; melt_assert_failed (("@$@ unimplemented patexpand_when"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4687) ? (4687) : __LINE__, __FUNCTION__); + (4692) ? (4692) : __LINE__, __FUNCTION__); ; } ; @@ -12749,7 +12749,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4687:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4692:/ clear"); /*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0; } @@ -12758,13 +12758,13 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[17] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4688:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4693:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:4688:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4693:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12779,7 +12779,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V15*/ meltfptr[11] = /*_.RETURN___V20*/ meltfptr[18];; - MELT_LOCATION ("warmelt-macro.melt:4681:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4686:/ clear"); /*clear *//*_.CONT__V16*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LOC__V17*/ meltfptr[16] = 0; @@ -12787,7 +12787,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V18*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.RETURN___V20*/ meltfptr[18] = 0; - MELT_LOCATION ("warmelt-macro.melt:4676:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4681:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -12796,7 +12796,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];; { - MELT_LOCATION ("warmelt-macro.melt:4676:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4681:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -12917,7 +12917,7 @@ meltrout_84_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4691:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4696:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -12958,7 +12958,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4692:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4697:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12970,7 +12970,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4692:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4697:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -12978,7 +12978,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4692:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4697:/ cond.else"); /*^block */ /*anyblock */ @@ -12992,7 +12992,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4692) ? (4692) : __LINE__, __FUNCTION__); + (4697) ? (4697) : __LINE__, __FUNCTION__); ; } ; @@ -13006,7 +13006,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4692:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4697:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -13019,7 +13019,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4693:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4698:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13031,7 +13031,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4693:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4698:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13039,7 +13039,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4693:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4698:/ cond.else"); /*^block */ /*anyblock */ @@ -13053,7 +13053,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4693) ? (4693) : __LINE__, __FUNCTION__); + (4698) ? (4698) : __LINE__, __FUNCTION__); ; } ; @@ -13067,7 +13067,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4693:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4698:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -13080,7 +13080,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4694:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4699:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13106,7 +13106,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4694:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4699:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13121,7 +13121,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4694:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4699:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13134,7 +13134,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4694; + argtab[2].meltbp_long = 4699; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_when sexpr"; /*^apply.arg */ @@ -13154,7 +13154,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4694:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4699:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; @@ -13167,7 +13167,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[10] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4694:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4699:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];; @@ -13175,7 +13175,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4694:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4699:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V11*/ meltfptr[10] = 0; @@ -13188,10 +13188,10 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4695:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4700:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4696:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4701:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -13201,20 +13201,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:4698:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4703:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V15*/ meltfptr[11]), ("WHEN cannot be macro-expanded in expression context"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4699:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4704:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:4699:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4704:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13229,11 +13229,11 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V14*/ meltfptr[10] = /*_.RETURN___V16*/ meltfptr[15];; - MELT_LOCATION ("warmelt-macro.melt:4695:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4700:/ clear"); /*clear *//*_.LOC__V15*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.RETURN___V16*/ meltfptr[15] = 0; - MELT_LOCATION ("warmelt-macro.melt:4691:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4696:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -13242,7 +13242,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-macro.melt:4691:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4696:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13361,7 +13361,7 @@ meltrout_85_warmelt_macro_PATEXPAND_AND (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4706:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4711:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -13392,7 +13392,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4707:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4712:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13404,7 +13404,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4707:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4712:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13412,7 +13412,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4707:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4712:/ cond.else"); /*^block */ /*anyblock */ @@ -13426,7 +13426,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4707) ? (4707) : __LINE__, __FUNCTION__); + (4712) ? (4712) : __LINE__, __FUNCTION__); ; } ; @@ -13440,7 +13440,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4707:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4712:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -13453,7 +13453,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4708:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4713:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13465,7 +13465,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4708:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4713:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13473,7 +13473,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4708:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4713:/ cond.else"); /*^block */ /*anyblock */ @@ -13487,7 +13487,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4708) ? (4708) : __LINE__, __FUNCTION__); + (4713) ? (4713) : __LINE__, __FUNCTION__); ; } ; @@ -13501,7 +13501,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4708:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4713:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -13514,7 +13514,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4709:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4714:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13525,7 +13525,7 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4709:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4714:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13533,7 +13533,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4709:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4714:/ cond.else"); /*^block */ /*anyblock */ @@ -13547,7 +13547,7 @@ lab_endgetargs:; melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4709) ? (4709) : __LINE__, __FUNCTION__); + (4714) ? (4714) : __LINE__, __FUNCTION__); ; } ; @@ -13561,7 +13561,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4709:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4714:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -13574,7 +13574,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4710:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4715:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13600,7 +13600,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4710:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4715:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13615,7 +13615,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4710:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4715:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13628,7 +13628,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4710; + argtab[2].meltbp_long = 4715; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_and sexpr"; /*^apply.arg */ @@ -13648,7 +13648,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4710:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4715:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0; @@ -13661,7 +13661,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4710:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4715:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];; @@ -13669,7 +13669,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4710:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4715:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V12*/ meltfptr[11] = 0; @@ -13682,10 +13682,10 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4711:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4716:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4712:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4717:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -13693,7 +13693,7 @@ lab_endgetargs:; /*_.CONT__V16*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4713:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4718:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -13706,7 +13706,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V19*/ meltfptr[18] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4715:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4720:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13729,7 +13729,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4716:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4721:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -13771,10 +13771,10 @@ lab_endgetargs:; "newly made instance"); ; /*_.RES__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:4722:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4727:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:4720:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4725:/ quasiblock"); /*^multiapply */ @@ -13802,7 +13802,7 @@ lab_endgetargs:; /*^quasiblock */ - MELT_LOCATION ("warmelt-macro.melt:4723:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4728:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L9*/ meltfnum[8] = @@ -13816,7 +13816,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_CONSTANT_INTEGER */ meltfrout->tabval[7])), ( /*_#I__L10*/ meltfnum[9])));; - MELT_LOCATION ("warmelt-macro.melt:4723:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4728:/ quasiblock"); /*^putslot */ @@ -13838,7 +13838,7 @@ lab_endgetargs:; ; - MELT_LOCATION ("warmelt-macro.melt:4720:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4725:/ clear"); /*clear *//*_#I__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_#I__L10*/ meltfnum[9] = 0; @@ -13853,7 +13853,7 @@ lab_endgetargs:; /*clear *//*_#ISUM__L8*/ meltfnum[7] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4726:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4731:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13879,7 +13879,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4726:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4731:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -13894,7 +13894,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4726:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4731:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13908,7 +13908,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4726; + argtab[2].meltbp_long = 4731; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_and res"; /*^apply.arg */ @@ -13928,7 +13928,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4726:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4731:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0; @@ -13941,7 +13941,7 @@ lab_endgetargs:; /*_.IF___V26*/ meltfptr[22] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4726:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4731:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[26] = /*_.IF___V26*/ meltfptr[22];; @@ -13949,7 +13949,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[23] = /*_.PROGN___V28*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4726:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4731:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IF___V26*/ meltfptr[22] = 0; @@ -13962,7 +13962,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[23] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4727:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4732:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -13971,7 +13971,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V21*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-macro.melt:4727:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4732:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13986,7 +13986,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V15*/ meltfptr[11] = /*_.RETURN___V29*/ meltfptr[22];; - MELT_LOCATION ("warmelt-macro.melt:4711:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4716:/ clear"); /*clear *//*_.CONT__V16*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LOC__V17*/ meltfptr[16] = 0; @@ -14002,7 +14002,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V25*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.RETURN___V29*/ meltfptr[22] = 0; - MELT_LOCATION ("warmelt-macro.melt:4706:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4711:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14011,7 +14011,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];; { - MELT_LOCATION ("warmelt-macro.melt:4706:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4711:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14132,7 +14132,7 @@ meltrout_86_warmelt_macro_MEXPAND_OR (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4743:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4748:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -14173,7 +14173,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4744:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4749:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14199,7 +14199,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4744:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4749:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14214,7 +14214,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4744:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4749:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14227,7 +14227,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4744; + argtab[2].meltbp_long = 4749; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_or sexpr"; /*^apply.arg */ @@ -14246,7 +14246,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4744:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4749:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -14259,7 +14259,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4744:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4749:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -14267,7 +14267,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4744:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4749:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -14282,7 +14282,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4745:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4750:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14294,7 +14294,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4745:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4750:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -14302,7 +14302,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4745:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4750:/ cond.else"); /*^block */ /*anyblock */ @@ -14316,7 +14316,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4745) ? (4745) : __LINE__, __FUNCTION__); + (4750) ? (4750) : __LINE__, __FUNCTION__); ; } ; @@ -14330,7 +14330,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4745:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4750:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -14343,7 +14343,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4746:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4751:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14355,7 +14355,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4746:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4751:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14363,7 +14363,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4746:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4751:/ cond.else"); /*^block */ /*anyblock */ @@ -14377,7 +14377,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4746) ? (4746) : __LINE__, __FUNCTION__); + (4751) ? (4751) : __LINE__, __FUNCTION__); ; } ; @@ -14391,7 +14391,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4746:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4751:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -14402,12 +14402,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4747:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4752:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4747:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4752:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -14421,7 +14421,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4747:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4752:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -14434,7 +14434,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4748:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4753:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14445,7 +14445,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:4748:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4753:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14453,7 +14453,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4748:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4753:/ cond.else"); /*^block */ /*anyblock */ @@ -14467,7 +14467,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4748) ? (4748) : __LINE__, __FUNCTION__); + (4753) ? (4753) : __LINE__, __FUNCTION__); ; } ; @@ -14481,7 +14481,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4748:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4753:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -14492,10 +14492,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4749:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4754:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4750:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4755:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -14503,7 +14503,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4751:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4756:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -14516,7 +14516,7 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V22*/ meltfptr[21] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:4755:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4760:/ quasiblock"); /*^newclosure */ @@ -14567,7 +14567,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]); ; /*_.LAMBDA___V23*/ meltfptr[22] = /*_.LAMBDA___V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:4752:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4757:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14591,12 +14591,12 @@ lab_endgetargs:; ; /*_#NBCOMP__L7*/ meltfnum[0] = (melt_multiple_length ((melt_ptr_t) ( /*_.CXTUP__V25*/ meltfptr[24])));; - MELT_LOCATION ("warmelt-macro.melt:4760:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4765:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L8*/ meltfnum[7] = (( /*_#NBCOMP__L7*/ meltfnum[0]) < (1));; - MELT_LOCATION ("warmelt-macro.melt:4760:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4765:/ cond"); /*cond */ if ( /*_#I__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -14606,13 +14606,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4762:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4767:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("OR without sons"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4763:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4768:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14621,7 +14621,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:4763:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4768:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14634,7 +14634,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4761:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4766:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[27] = /*_.RETURN___V27*/ meltfptr[26];; @@ -14642,7 +14642,7 @@ lab_endgetargs:; /*_.IFELSE___V26*/ meltfptr[25] = /*_.PROGN___V28*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4760:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4765:/ clear"); /*clear *//*_.RETURN___V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.PROGN___V28*/ meltfptr[27] = 0; @@ -14656,10 +14656,10 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:4764:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4769:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4765:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4770:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14704,7 +14704,7 @@ lab_endgetargs:; /*_.RES__V30*/ meltfptr[27] = /*_.INST__V31*/ meltfptr[30];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4768:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4773:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14730,7 +14730,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4768:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4773:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -14745,7 +14745,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4768:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4773:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14759,7 +14759,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4768; + argtab[2].meltbp_long = 4773; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_or res"; /*^apply.arg */ @@ -14780,7 +14780,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4768:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4773:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0; @@ -14793,7 +14793,7 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4768:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4773:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[33] = /*_.IF___V33*/ meltfptr[32];; @@ -14801,7 +14801,7 @@ lab_endgetargs:; /*_.IFCPP___V32*/ meltfptr[31] = /*_.PROGN___V35*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4768:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4773:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IF___V33*/ meltfptr[32] = 0; @@ -14814,7 +14814,7 @@ lab_endgetargs:; /*_.IFCPP___V32*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4769:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4774:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14823,7 +14823,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V30*/ meltfptr[27];; { - MELT_LOCATION ("warmelt-macro.melt:4769:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4774:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14838,7 +14838,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V29*/ meltfptr[26] = /*_.RETURN___V36*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:4764:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4769:/ clear"); /*clear *//*_.RES__V30*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.IFCPP___V32*/ meltfptr[31] = 0; @@ -14847,7 +14847,7 @@ lab_endgetargs:; /*_.IFELSE___V26*/ meltfptr[25] = /*_.LET___V29*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4760:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4765:/ clear"); /*clear *//*_.LET___V29*/ meltfptr[26] = 0; } ; @@ -14855,7 +14855,7 @@ lab_endgetargs:; ; /*_.LET___V18*/ meltfptr[16] = /*_.IFELSE___V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:4749:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4754:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -14873,7 +14873,7 @@ lab_endgetargs:; /*clear *//*_#I__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V26*/ meltfptr[25] = 0; - MELT_LOCATION ("warmelt-macro.melt:4743:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4748:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14882,7 +14882,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:4743:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4748:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15007,7 +15007,7 @@ meltrout_87_warmelt_macro_LAMBDA___21__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4755:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4760:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -15017,7 +15017,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:4756:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4761:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15042,13 +15042,13 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4755:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4760:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:4755:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4760:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15161,7 +15161,7 @@ meltrout_88_warmelt_macro_PATEXPAND_OR (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4773:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4778:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -15192,7 +15192,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4774:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4779:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15204,7 +15204,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4774:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4779:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -15212,7 +15212,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4774:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4779:/ cond.else"); /*^block */ /*anyblock */ @@ -15226,7 +15226,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4774) ? (4774) : __LINE__, __FUNCTION__); + (4779) ? (4779) : __LINE__, __FUNCTION__); ; } ; @@ -15240,7 +15240,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4774:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4779:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -15253,7 +15253,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4775:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4780:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15265,7 +15265,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4775:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4780:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -15273,7 +15273,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4775:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4780:/ cond.else"); /*^block */ /*anyblock */ @@ -15287,7 +15287,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4775) ? (4775) : __LINE__, __FUNCTION__); + (4780) ? (4780) : __LINE__, __FUNCTION__); ; } ; @@ -15301,7 +15301,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4775:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4780:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -15314,7 +15314,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4776:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4781:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15325,7 +15325,7 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4776:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4781:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -15333,7 +15333,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4776:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4781:/ cond.else"); /*^block */ /*anyblock */ @@ -15347,7 +15347,7 @@ lab_endgetargs:; melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4776) ? (4776) : __LINE__, __FUNCTION__); + (4781) ? (4781) : __LINE__, __FUNCTION__); ; } ; @@ -15361,7 +15361,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4776:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4781:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -15374,7 +15374,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4777:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4782:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15400,7 +15400,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4777:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4782:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -15415,7 +15415,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4777:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4782:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15428,7 +15428,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4777; + argtab[2].meltbp_long = 4782; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_or sexpr"; /*^apply.arg */ @@ -15448,7 +15448,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4777:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4782:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0; @@ -15461,7 +15461,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4777:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4782:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];; @@ -15469,7 +15469,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4777:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4782:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V12*/ meltfptr[11] = 0; @@ -15482,10 +15482,10 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4778:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4783:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4779:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4784:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -15493,7 +15493,7 @@ lab_endgetargs:; /*_.CONT__V16*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4780:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4785:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -15506,7 +15506,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V19*/ meltfptr[18] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4782:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4787:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15529,7 +15529,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4783:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4788:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -15571,10 +15571,10 @@ lab_endgetargs:; "newly made instance"); ; /*_.RES__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:4789:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4794:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:4787:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4792:/ quasiblock"); /*^multiapply */ @@ -15602,7 +15602,7 @@ lab_endgetargs:; /*^quasiblock */ - MELT_LOCATION ("warmelt-macro.melt:4790:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4795:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L9*/ meltfnum[8] = @@ -15613,7 +15613,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_CONSTANT_INTEGER */ meltfrout->tabval[7])), ( /*_#I__L9*/ meltfnum[8])));; - MELT_LOCATION ("warmelt-macro.melt:4790:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4795:/ quasiblock"); /*^putslot */ @@ -15636,7 +15636,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4793:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4798:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15662,7 +15662,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4793:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4798:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -15677,7 +15677,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4793:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4798:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15691,7 +15691,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4793; + argtab[2].meltbp_long = 4798; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_or res"; /*^apply.arg */ @@ -15711,7 +15711,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V28*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4793:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4798:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V28*/ meltfptr[27] = 0; @@ -15724,7 +15724,7 @@ lab_endgetargs:; /*_.IF___V27*/ meltfptr[26] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4793:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4798:/ quasiblock"); /*_.PROGN___V29*/ meltfptr[27] = /*_.IF___V27*/ meltfptr[26];; @@ -15732,7 +15732,7 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[25] = /*_.PROGN___V29*/ meltfptr[27];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4793:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4798:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V27*/ meltfptr[26] = 0; @@ -15745,7 +15745,7 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[25] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4794:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4799:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -15754,7 +15754,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V21*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-macro.melt:4794:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4799:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15767,12 +15767,12 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4787:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4792:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MULTI___V23*/ meltfptr[22] = /*_.RETURN___V30*/ meltfptr[26];; - MELT_LOCATION ("warmelt-macro.melt:4787:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4792:/ clear"); /*clear *//*_#I__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MAKE_INTEGERBOX__V25*/ meltfptr[24] = 0; @@ -15789,7 +15789,7 @@ lab_endgetargs:; /*clear *//*_#ISUM__L8*/ meltfnum[7] = 0; /*_.LET___V15*/ meltfptr[11] = /*_.MULTI___V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-macro.melt:4778:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4783:/ clear"); /*clear *//*_.CONT__V16*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LOC__V17*/ meltfptr[16] = 0; @@ -15803,7 +15803,7 @@ lab_endgetargs:; /*clear *//*_.RES__V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.MULTI___V23*/ meltfptr[22] = 0; - MELT_LOCATION ("warmelt-macro.melt:4773:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4778:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -15812,7 +15812,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];; { - MELT_LOCATION ("warmelt-macro.melt:4773:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4778:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15936,7 +15936,7 @@ meltrout_89_warmelt_macro_MEXPAND_REFERENCE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4811:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -15977,7 +15977,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4812:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4817:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16003,7 +16003,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4812:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4817:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16018,7 +16018,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4812:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4817:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16031,7 +16031,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4812; + argtab[2].meltbp_long = 4817; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_reference sexpr"; /*^apply.arg */ @@ -16050,7 +16050,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4812:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4817:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -16063,7 +16063,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4812:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4817:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -16071,7 +16071,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4812:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4817:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -16086,7 +16086,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4813:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4818:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16098,7 +16098,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4813:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4818:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16106,7 +16106,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4813:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4818:/ cond.else"); /*^block */ /*anyblock */ @@ -16120,7 +16120,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4813) ? (4813) : __LINE__, __FUNCTION__); + (4818) ? (4818) : __LINE__, __FUNCTION__); ; } ; @@ -16134,7 +16134,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4813:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4818:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -16147,7 +16147,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4814:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4819:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16159,7 +16159,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4814:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4819:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16167,7 +16167,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4814:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4819:/ cond.else"); /*^block */ /*anyblock */ @@ -16181,7 +16181,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4814) ? (4814) : __LINE__, __FUNCTION__); + (4819) ? (4819) : __LINE__, __FUNCTION__); ; } ; @@ -16195,7 +16195,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4814:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4819:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -16206,12 +16206,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4815:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4820:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4815:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4820:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -16225,7 +16225,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4815:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4820:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -16238,7 +16238,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4816:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4821:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16249,7 +16249,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:4816:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4821:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16257,7 +16257,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4816:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4821:/ cond.else"); /*^block */ /*anyblock */ @@ -16271,7 +16271,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4816) ? (4816) : __LINE__, __FUNCTION__); + (4821) ? (4821) : __LINE__, __FUNCTION__); ; } ; @@ -16285,7 +16285,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4816:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4821:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -16298,7 +16298,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4817:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4822:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16306,7 +16306,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:4819:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4824:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -16342,7 +16342,7 @@ lab_endgetargs:; /*^compute */ /*_#I__L8*/ meltfnum[7] = ((1) == ( /*_#MULTIPLE_LENGTH__L7*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:4817:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4822:/ cond"); /*cond */ if ( /*_#I__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -16350,7 +16350,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4817:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4822:/ cond.else"); /*^block */ /*anyblock */ @@ -16364,7 +16364,7 @@ lab_endgetargs:; melt_assert_failed (("check class_reference has one field"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4817) ? (4817) : __LINE__, __FUNCTION__); + (4822) ? (4822) : __LINE__, __FUNCTION__); ; } ; @@ -16378,7 +16378,7 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4817:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4822:/ clear"); /*clear *//*_.CLASS_FIELDS__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_#MULTIPLE_LENGTH__L7*/ meltfnum[0] = 0; @@ -16393,10 +16393,10 @@ lab_endgetargs:; /*_.IFCPP___V18*/ meltfptr[16] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4820:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4825:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4821:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4826:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -16404,7 +16404,7 @@ lab_endgetargs:; /*_.CONT__V22*/ meltfptr[19] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4822:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4827:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -16412,7 +16412,7 @@ lab_endgetargs:; /*_.LOC__V23*/ meltfptr[22] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4823:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4828:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16442,7 +16442,7 @@ lab_endgetargs:; /*_.ARG1__V25*/ meltfptr[24] = (melt_multiple_nth ((melt_ptr_t) ( /*_.XARGTUP__V24*/ meltfptr[23]), (0)));; - MELT_LOCATION ("warmelt-macro.melt:4826:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4831:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -16483,7 +16483,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.SPREDCLASSCONT__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; - MELT_LOCATION ("warmelt-macro.melt:4829:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4834:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16503,7 +16503,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4830:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4835:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16536,10 +16536,10 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4832:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4837:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:4837:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:4842:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -16561,11 +16561,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#8 */ - melt_assertmsg ("putupl [:4837] #8 checktup", + melt_assertmsg ("putupl [:4842] #8 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V31*/ meltfptr[30])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4837] #8 checkoff", + melt_assertmsg ("putupl [:4842] #8 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -16580,13 +16580,13 @@ lab_endgetargs:; /*_.TUPLE___V30*/ meltfptr[29] = /*_.TUPLREC___V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4837:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4842:/ clear"); /*clear *//*_.TUPLREC___V31*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.TUPLREC___V31*/ meltfptr[30] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:4832:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4837:/ quasiblock"); /*^rawallocobj */ @@ -16645,12 +16645,12 @@ lab_endgetargs:; "newly made instance"); ; /*_.SINST__V32*/ meltfptr[30] = /*_.INST__V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:4839:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4844:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L10*/ meltfnum[7] = (( /*_#NBARG__L9*/ meltfnum[0]) != (1));; - MELT_LOCATION ("warmelt-macro.melt:4839:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4844:/ cond"); /*cond */ if ( /*_#I__L10*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -16660,20 +16660,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4841:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4846:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V23*/ meltfptr[22]), ("(REFERENCE <value>) needs exactly one argument"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4842:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4847:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:4842:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4847:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16686,7 +16686,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4840:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4845:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[35] = /*_.RETURN___V35*/ meltfptr[34];; @@ -16694,7 +16694,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = /*_.PROGN___V36*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4839:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4844:/ clear"); /*clear *//*_.RETURN___V35*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.PROGN___V36*/ meltfptr[35] = 0; @@ -16707,12 +16707,12 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4845:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4850:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L11*/ meltfnum[10] = (( /*_.CLABIND__V28*/ meltfptr[27]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4845:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4850:/ cond"); /*cond */ if ( /*_#NULL__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -16722,7 +16722,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4846:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4851:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V23*/ meltfptr[22]), ("(REFERENCE <value>) where CLASS_REFERENCE is not visible"), (melt_ptr_t) 0); @@ -16735,7 +16735,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4848:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4853:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16761,7 +16761,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4848:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4853:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -16776,7 +16776,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4848:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4853:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -16790,7 +16790,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4848; + argtab[2].meltbp_long = 4853; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_reference returns sinst"; /*^apply.arg */ @@ -16810,7 +16810,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4848:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4853:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0; @@ -16823,7 +16823,7 @@ lab_endgetargs:; /*_.IF___V38*/ meltfptr[35] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4848:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4853:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[38] = /*_.IF___V38*/ meltfptr[35];; @@ -16831,7 +16831,7 @@ lab_endgetargs:; /*_.IFCPP___V37*/ meltfptr[34] = /*_.PROGN___V40*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4848:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4853:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V38*/ meltfptr[35] = 0; @@ -16844,7 +16844,7 @@ lab_endgetargs:; /*_.IFCPP___V37*/ meltfptr[34] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4849:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4854:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -16853,7 +16853,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SINST__V32*/ meltfptr[30];; { - MELT_LOCATION ("warmelt-macro.melt:4849:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4854:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16868,7 +16868,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V21*/ meltfptr[18] = /*_.RETURN___V41*/ meltfptr[35];; - MELT_LOCATION ("warmelt-macro.melt:4820:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4825:/ clear"); /*clear *//*_.CONT__V22*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_.LOC__V23*/ meltfptr[22] = 0; @@ -16898,7 +16898,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V37*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.RETURN___V41*/ meltfptr[35] = 0; - MELT_LOCATION ("warmelt-macro.melt:4811:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -16907,7 +16907,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V21*/ meltfptr[18];; { - MELT_LOCATION ("warmelt-macro.melt:4811:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -17037,7 +17037,7 @@ meltrout_90_warmelt_macro_PATEXPAND_REFERENCE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4853:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4858:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -17068,7 +17068,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4854:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4859:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17080,7 +17080,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4854:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4859:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17088,7 +17088,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4854:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4859:/ cond.else"); /*^block */ /*anyblock */ @@ -17102,7 +17102,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4854) ? (4854) : __LINE__, __FUNCTION__); + (4859) ? (4859) : __LINE__, __FUNCTION__); ; } ; @@ -17116,7 +17116,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4854:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4859:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -17129,7 +17129,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4855:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4860:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17141,7 +17141,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4855:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4860:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17149,7 +17149,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4855:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4860:/ cond.else"); /*^block */ /*anyblock */ @@ -17163,7 +17163,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4855) ? (4855) : __LINE__, __FUNCTION__); + (4860) ? (4860) : __LINE__, __FUNCTION__); ; } ; @@ -17177,7 +17177,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4855:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4860:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -17190,7 +17190,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4856:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4861:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17201,7 +17201,7 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4856:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4861:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17209,7 +17209,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4856:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4861:/ cond.else"); /*^block */ /*anyblock */ @@ -17223,7 +17223,7 @@ lab_endgetargs:; melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4856) ? (4856) : __LINE__, __FUNCTION__); + (4861) ? (4861) : __LINE__, __FUNCTION__); ; } ; @@ -17237,7 +17237,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4856:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4861:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -17250,7 +17250,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4857:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4862:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17276,7 +17276,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4857:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4862:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17291,7 +17291,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4857:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4862:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17304,7 +17304,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4857; + argtab[2].meltbp_long = 4862; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_reference sexpr"; /*^apply.arg */ @@ -17324,7 +17324,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4857:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4862:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0; @@ -17337,7 +17337,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4857:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4862:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];; @@ -17345,7 +17345,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4857:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4862:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V12*/ meltfptr[11] = 0; @@ -17358,10 +17358,10 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4858:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4863:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4859:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4864:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -17369,7 +17369,7 @@ lab_endgetargs:; /*_.CONT__V16*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4860:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4865:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -17382,7 +17382,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V19*/ meltfptr[18] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:4862:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4867:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17408,7 +17408,7 @@ lab_endgetargs:; /*_.ARG1__V21*/ meltfptr[20] = (melt_multiple_nth ((melt_ptr_t) ( /*_.ARGSP__V20*/ meltfptr[19]), (0)));; - MELT_LOCATION ("warmelt-macro.melt:4864:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4869:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17437,10 +17437,10 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4865:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4870:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:4869:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:4874:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -17462,11 +17462,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#9 */ - melt_assertmsg ("putupl [:4869] #9 checktup", + melt_assertmsg ("putupl [:4874] #9 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V24*/ meltfptr[23])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4869] #9 checkoff", + melt_assertmsg ("putupl [:4874] #9 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -17481,13 +17481,13 @@ lab_endgetargs:; /*_.TUPLE___V23*/ meltfptr[22] = /*_.TUPLREC___V24*/ meltfptr[23];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4869:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4874:/ clear"); /*clear *//*_.TUPLREC___V24*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.TUPLREC___V24*/ meltfptr[23] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:4865:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4870:/ quasiblock"); /*^rawallocobj */ @@ -17544,7 +17544,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.RES__V25*/ meltfptr[23] = /*_.INST__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:4871:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4876:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#MULTIPLE_LENGTH__L6*/ meltfnum[4] = @@ -17552,7 +17552,7 @@ lab_endgetargs:; /*^compute */ /*_#I__L7*/ meltfnum[0] = (( /*_#MULTIPLE_LENGTH__L6*/ meltfnum[4]) != (1));; - MELT_LOCATION ("warmelt-macro.melt:4871:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4876:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17562,20 +17562,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4873:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4878:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("(REFERENCE <subpattern>) pattern needs one argument"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4874:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4879:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:4874:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4879:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -17588,7 +17588,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4872:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4877:/ quasiblock"); /*_.PROGN___V29*/ meltfptr[28] = /*_.RETURN___V28*/ meltfptr[27];; @@ -17596,7 +17596,7 @@ lab_endgetargs:; /*_.IF___V27*/ meltfptr[26] = /*_.PROGN___V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4871:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4876:/ clear"); /*clear *//*_.RETURN___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V29*/ meltfptr[28] = 0; @@ -17611,7 +17611,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4875:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4880:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17637,7 +17637,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4875:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4880:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -17652,7 +17652,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4875:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4880:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17665,7 +17665,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4875; + argtab[2].meltbp_long = 4880; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_reference res"; /*^apply.arg */ @@ -17685,7 +17685,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4875:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4880:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0; @@ -17698,7 +17698,7 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4875:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4880:/ quasiblock"); /*_.PROGN___V33*/ meltfptr[31] = /*_.IF___V31*/ meltfptr[28];; @@ -17706,7 +17706,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[27] = /*_.PROGN___V33*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4875:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4880:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V31*/ meltfptr[28] = 0; @@ -17719,7 +17719,7 @@ lab_endgetargs:; /*_.IFCPP___V30*/ meltfptr[27] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4876:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4881:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -17728,7 +17728,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V25*/ meltfptr[23];; { - MELT_LOCATION ("warmelt-macro.melt:4876:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4881:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -17743,7 +17743,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V15*/ meltfptr[11] = /*_.RETURN___V34*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:4858:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4863:/ clear"); /*clear *//*_.CONT__V16*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LOC__V17*/ meltfptr[16] = 0; @@ -17771,7 +17771,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V30*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.RETURN___V34*/ meltfptr[28] = 0; - MELT_LOCATION ("warmelt-macro.melt:4853:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4858:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -17780,7 +17780,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];; { - MELT_LOCATION ("warmelt-macro.melt:4853:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4858:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -17908,7 +17908,7 @@ meltrout_91_warmelt_macro_MEXPANDOBSOLETE_CONTAINER (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4893:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4898:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -17949,7 +17949,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4894:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4899:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17975,7 +17975,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4894:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4899:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17990,7 +17990,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4894:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4899:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18003,7 +18003,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4894; + argtab[2].meltbp_long = 4899; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpandobsolete_container sexpr"; /*^apply.arg */ @@ -18022,7 +18022,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4894:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4899:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -18035,7 +18035,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4894:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4899:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -18043,7 +18043,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4894:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4899:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -18058,7 +18058,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4895:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4900:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18070,7 +18070,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4895:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4900:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -18078,7 +18078,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4895:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4900:/ cond.else"); /*^block */ /*anyblock */ @@ -18092,7 +18092,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4895) ? (4895) : __LINE__, __FUNCTION__); + (4900) ? (4900) : __LINE__, __FUNCTION__); ; } ; @@ -18106,7 +18106,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4895:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4900:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -18117,7 +18117,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4896:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4901:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -18144,14 +18144,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:4896:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4901:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOCA_LOCATION__V12*/ meltfptr[7]), ("obsolete use of CONTAINER in expression; use REFERENCE instead"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4898:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4903:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18174,7 +18174,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4893:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4898:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -18184,7 +18184,7 @@ lab_endgetargs:; /*_.MEXPAND_REFERENCE__V13*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:4893:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4898:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18310,7 +18310,7 @@ meltrout_92_warmelt_macro_PATEXPANDOBSOLETE_CONTAINER (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4900:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4905:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -18341,7 +18341,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4901:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4906:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18353,7 +18353,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:4901:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4906:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18361,7 +18361,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4901:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4906:/ cond.else"); /*^block */ /*anyblock */ @@ -18375,7 +18375,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4901) ? (4901) : __LINE__, __FUNCTION__); + (4906) ? (4906) : __LINE__, __FUNCTION__); ; } ; @@ -18389,7 +18389,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4901:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4906:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -18400,7 +18400,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4902:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4907:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -18427,14 +18427,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:4902:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4907:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOCA_LOCATION__V7*/ meltfptr[5]), ("obsolete use of CONTAINER in pattern; use REFERENCE instead"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4904:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4909:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18454,7 +18454,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4900:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4905:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -18464,7 +18464,7 @@ lab_endgetargs:; /*_.PATEXPAND_REFERENCE__V8*/ meltfptr[7];; { - MELT_LOCATION ("warmelt-macro.melt:4900:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4905:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18581,7 +18581,7 @@ meltrout_93_warmelt_macro_MEXPAND_DEREF (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4914:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -18622,7 +18622,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4915:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4920:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18648,7 +18648,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4915:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4920:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18663,7 +18663,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4915:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4920:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18676,7 +18676,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4915; + argtab[2].meltbp_long = 4920; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_deref sexpr"; /*^apply.arg */ @@ -18695,7 +18695,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4915:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4920:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -18708,7 +18708,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4915:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4920:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -18716,7 +18716,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4915:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4920:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -18731,7 +18731,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4916:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4921:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18743,7 +18743,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4916:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4921:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -18751,7 +18751,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4916:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4921:/ cond.else"); /*^block */ /*anyblock */ @@ -18765,7 +18765,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4916) ? (4916) : __LINE__, __FUNCTION__); + (4921) ? (4921) : __LINE__, __FUNCTION__); ; } ; @@ -18779,7 +18779,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4916:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4921:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -18792,7 +18792,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4917:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4922:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18804,7 +18804,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4917:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4922:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18812,7 +18812,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4917:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4922:/ cond.else"); /*^block */ /*anyblock */ @@ -18826,7 +18826,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4917) ? (4917) : __LINE__, __FUNCTION__); + (4922) ? (4922) : __LINE__, __FUNCTION__); ; } ; @@ -18840,7 +18840,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4917:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4922:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -18853,7 +18853,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4918:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4923:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18864,7 +18864,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:4918:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4923:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -18872,7 +18872,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4918:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4923:/ cond.else"); /*^block */ /*anyblock */ @@ -18886,7 +18886,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4918) ? (4918) : __LINE__, __FUNCTION__); + (4923) ? (4923) : __LINE__, __FUNCTION__); ; } ; @@ -18900,7 +18900,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4918:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4923:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -18913,7 +18913,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4919:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4924:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18921,7 +18921,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:4921:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4926:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -18957,7 +18957,7 @@ lab_endgetargs:; /*^compute */ /*_#I__L7*/ meltfnum[1] = ((1) == ( /*_#MULTIPLE_LENGTH__L6*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:4919:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4924:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -18965,7 +18965,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4919:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4924:/ cond.else"); /*^block */ /*anyblock */ @@ -18979,7 +18979,7 @@ lab_endgetargs:; melt_assert_failed (("check class_reference has one field"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4919) ? (4919) : __LINE__, __FUNCTION__); + (4924) ? (4924) : __LINE__, __FUNCTION__); ; } ; @@ -18993,7 +18993,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4919:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4924:/ clear"); /*clear *//*_.CLASS_FIELDS__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_#MULTIPLE_LENGTH__L6*/ meltfnum[0] = 0; @@ -19008,10 +19008,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4922:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4927:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4923:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4928:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -19019,7 +19019,7 @@ lab_endgetargs:; /*_.CONT__V20*/ meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4924:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4929:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -19027,7 +19027,7 @@ lab_endgetargs:; /*_.LOC__V21*/ meltfptr[20] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4925:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4930:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19057,7 +19057,7 @@ lab_endgetargs:; /*_.ARG1__V23*/ meltfptr[22] = (melt_multiple_nth ((melt_ptr_t) ( /*_.XARGTUP__V22*/ meltfptr[21]), (0)));; - MELT_LOCATION ("warmelt-macro.melt:4928:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4933:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19098,7 +19098,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.SPREDCLASSCONT__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:4931:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4936:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19118,7 +19118,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4932:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4937:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19172,7 +19172,7 @@ lab_endgetargs:; /*_.SGET__V27*/ meltfptr[26] = /*_.INST__V28*/ meltfptr[27];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4938:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4943:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19186,7 +19186,7 @@ lab_endgetargs:; tabval[11])), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[12])));; - MELT_LOCATION ("warmelt-macro.melt:4938:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4943:/ cond"); /*cond */ if ( /*_#IS_A__L9*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19194,7 +19194,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4938:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4943:/ cond.else"); /*^block */ /*anyblock */ @@ -19208,7 +19208,7 @@ lab_endgetargs:; melt_assert_failed (("check referenced_value"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4938) ? (4938) : __LINE__, __FUNCTION__); + (4943) ? (4943) : __LINE__, __FUNCTION__); ; } ; @@ -19222,7 +19222,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[28] = /*_.IFELSE___V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4938:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4943:/ clear"); /*clear *//*_#IS_A__L9*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V30*/ meltfptr[29] = 0; @@ -19233,12 +19233,12 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[28] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4939:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4944:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L10*/ meltfnum[1] = (( /*_#NBARG__L8*/ meltfnum[0]) != (1));; - MELT_LOCATION ("warmelt-macro.melt:4939:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4944:/ cond"); /*cond */ if ( /*_#I__L10*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19248,20 +19248,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4941:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4946:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V21*/ meltfptr[20]), ("(DEREF <value>) needs exactly one argument"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4942:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4947:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:4942:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4947:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19274,7 +19274,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:4940:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4945:/ quasiblock"); /*_.PROGN___V33*/ meltfptr[32] = /*_.RETURN___V32*/ meltfptr[31];; @@ -19282,7 +19282,7 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[29] = /*_.PROGN___V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4939:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4944:/ clear"); /*clear *//*_.RETURN___V32*/ meltfptr[31] = 0; /*^clear */ /*clear *//*_.PROGN___V33*/ meltfptr[32] = 0; @@ -19295,12 +19295,12 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[29] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4945:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4950:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L11*/ meltfnum[10] = (( /*_.CLABIND__V26*/ meltfptr[25]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:4945:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4950:/ cond"); /*cond */ if ( /*_#NULL__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -19310,7 +19310,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:4946:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4951:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V21*/ meltfptr[20]), ("(DEREF <value>) where CLASS_REFERENCE is not visible"), (melt_ptr_t) 0); @@ -19323,7 +19323,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4947:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4952:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19349,7 +19349,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4947:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4952:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -19364,7 +19364,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4947:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4952:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19378,7 +19378,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4947; + argtab[2].meltbp_long = 4952; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_deref returns sget"; /*^apply.arg */ @@ -19398,7 +19398,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4947:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4952:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0; @@ -19411,7 +19411,7 @@ lab_endgetargs:; /*_.IF___V35*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4947:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4952:/ quasiblock"); /*_.PROGN___V37*/ meltfptr[35] = /*_.IF___V35*/ meltfptr[32];; @@ -19419,7 +19419,7 @@ lab_endgetargs:; /*_.IFCPP___V34*/ meltfptr[31] = /*_.PROGN___V37*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4947:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4952:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V35*/ meltfptr[32] = 0; @@ -19432,7 +19432,7 @@ lab_endgetargs:; /*_.IFCPP___V34*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4948:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4953:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19441,7 +19441,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SGET__V27*/ meltfptr[26];; { - MELT_LOCATION ("warmelt-macro.melt:4948:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4953:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19456,7 +19456,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V19*/ meltfptr[16] = /*_.RETURN___V38*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:4922:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4927:/ clear"); /*clear *//*_.CONT__V20*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.LOC__V21*/ meltfptr[20] = 0; @@ -19484,7 +19484,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V34*/ meltfptr[31] = 0; /*^clear */ /*clear *//*_.RETURN___V38*/ meltfptr[32] = 0; - MELT_LOCATION ("warmelt-macro.melt:4914:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19493,7 +19493,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:4914:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19620,7 +19620,7 @@ meltrout_94_warmelt_macro_MEXPANDOBSOLETE_CONTENT (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4958:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4963:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19661,7 +19661,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4959:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4964:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19687,7 +19687,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4959:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4964:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19702,7 +19702,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4959:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4964:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19715,7 +19715,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4959; + argtab[2].meltbp_long = 4964; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpandobsolete_content sexpr"; /*^apply.arg */ @@ -19734,7 +19734,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4959:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4964:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -19747,7 +19747,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4959:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4964:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -19755,7 +19755,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4959:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4964:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -19770,7 +19770,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4960:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4965:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19782,7 +19782,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4960:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4965:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19790,7 +19790,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4960:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4965:/ cond.else"); /*^block */ /*anyblock */ @@ -19804,7 +19804,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4960) ? (4960) : __LINE__, __FUNCTION__); + (4965) ? (4965) : __LINE__, __FUNCTION__); ; } ; @@ -19818,7 +19818,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4960:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4965:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -19829,7 +19829,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4961:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4966:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -19856,14 +19856,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:4961:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4966:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOCA_LOCATION__V12*/ meltfptr[7]), ("obsolete use of CONTENT in expression; use DEREF instead"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4963:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4968:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19886,7 +19886,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4958:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4963:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19895,7 +19895,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPAND_DEREF__V13*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:4958:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4963:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20015,7 +20015,7 @@ meltrout_95_warmelt_macro_MEXPAND_SET_REF (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:4980:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -20056,7 +20056,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4981:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4986:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20082,7 +20082,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:4981:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4986:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20097,7 +20097,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:4981:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4986:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20110,7 +20110,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 4981; + argtab[2].meltbp_long = 4986; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_set_ref sexpr"; /*^apply.arg */ @@ -20129,7 +20129,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4981:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4986:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -20142,7 +20142,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:4981:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4986:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -20150,7 +20150,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4981:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4986:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -20165,7 +20165,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4982:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4987:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20177,7 +20177,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:4982:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4987:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20185,7 +20185,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4982:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4987:/ cond.else"); /*^block */ /*anyblock */ @@ -20199,7 +20199,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4982) ? (4982) : __LINE__, __FUNCTION__); + (4987) ? (4987) : __LINE__, __FUNCTION__); ; } ; @@ -20213,7 +20213,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4982:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4987:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -20226,7 +20226,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4983:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4988:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20238,7 +20238,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:4983:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4988:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20246,7 +20246,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4983:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4988:/ cond.else"); /*^block */ /*anyblock */ @@ -20260,7 +20260,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4983) ? (4983) : __LINE__, __FUNCTION__); + (4988) ? (4988) : __LINE__, __FUNCTION__); ; } ; @@ -20274,7 +20274,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4983:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4988:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -20287,7 +20287,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4984:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4989:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20298,7 +20298,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:4984:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4989:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20306,7 +20306,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4984:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4989:/ cond.else"); /*^block */ /*anyblock */ @@ -20320,7 +20320,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4984) ? (4984) : __LINE__, __FUNCTION__); + (4989) ? (4989) : __LINE__, __FUNCTION__); ; } ; @@ -20334,7 +20334,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4984:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4989:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -20347,7 +20347,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:4985:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:4990:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20355,7 +20355,7 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:4987:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4992:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -20391,7 +20391,7 @@ lab_endgetargs:; /*^compute */ /*_#I__L7*/ meltfnum[1] = ((1) == ( /*_#MULTIPLE_LENGTH__L6*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:4985:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:4990:/ cond"); /*cond */ if ( /*_#I__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20399,7 +20399,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:4985:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:4990:/ cond.else"); /*^block */ /*anyblock */ @@ -20413,7 +20413,7 @@ lab_endgetargs:; melt_assert_failed (("check class_reference has one field"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (4985) ? (4985) : __LINE__, __FUNCTION__); + (4990) ? (4990) : __LINE__, __FUNCTION__); ; } ; @@ -20427,7 +20427,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4985:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4990:/ clear"); /*clear *//*_.CLASS_FIELDS__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_#MULTIPLE_LENGTH__L6*/ meltfnum[0] = 0; @@ -20442,10 +20442,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:4988:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:4993:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:4989:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4994:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -20453,7 +20453,7 @@ lab_endgetargs:; /*_.CONT__V20*/ meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4990:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:4995:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -20461,7 +20461,7 @@ lab_endgetargs:; /*_.LOC__V21*/ meltfptr[20] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:4991:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4996:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20495,7 +20495,7 @@ lab_endgetargs:; /*_.ARG2__V24*/ meltfptr[23] = (melt_multiple_nth ((melt_ptr_t) ( /*_.XARGTUP__V22*/ meltfptr[21]), (1)));; - MELT_LOCATION ("warmelt-macro.melt:4995:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5000:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20536,7 +20536,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.SPREDCLASSCONT__V25*/ meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:4998:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5003:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20556,7 +20556,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:4999:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5004:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20608,7 +20608,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.INST___V28*/ meltfptr[27] = /*_.INST__V29*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:4999:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:5004:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -20630,11 +20630,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#10 */ - melt_assertmsg ("putupl [:4999] #10 checktup", + melt_assertmsg ("putupl [:5004] #10 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V31*/ meltfptr[30])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:4999] #10 checkoff", + melt_assertmsg ("putupl [:5004] #10 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -20649,13 +20649,13 @@ lab_endgetargs:; /*_.PUTUP__V30*/ meltfptr[29] = /*_.TUPLREC___V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:4999:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5004:/ clear"); /*clear *//*_.TUPLREC___V31*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.TUPLREC___V31*/ meltfptr[30] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:5005:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5010:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20708,7 +20708,7 @@ lab_endgetargs:; /*_.SPUT__V32*/ meltfptr[30] = /*_.INST__V33*/ meltfptr[32];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5011:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5016:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20722,7 +20722,7 @@ lab_endgetargs:; tabval[11])), (melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout-> tabval[13])));; - MELT_LOCATION ("warmelt-macro.melt:5011:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5016:/ cond"); /*cond */ if ( /*_#IS_A__L9*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20730,7 +20730,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5011:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5016:/ cond.else"); /*^block */ /*anyblock */ @@ -20744,7 +20744,7 @@ lab_endgetargs:; melt_assert_failed (("check referenced_value"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5011) ? (5011) : __LINE__, __FUNCTION__); + (5016) ? (5016) : __LINE__, __FUNCTION__); ; } ; @@ -20758,7 +20758,7 @@ lab_endgetargs:; /*_.IFCPP___V34*/ meltfptr[33] = /*_.IFELSE___V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5011:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5016:/ clear"); /*clear *//*_#IS_A__L9*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V35*/ meltfptr[34] = 0; @@ -20769,12 +20769,12 @@ lab_endgetargs:; /*_.IFCPP___V34*/ meltfptr[33] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5012:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5017:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L10*/ meltfnum[1] = (( /*_#NBARG__L8*/ meltfnum[0]) != (2));; - MELT_LOCATION ("warmelt-macro.melt:5012:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5017:/ cond"); /*cond */ if ( /*_#I__L10*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20784,20 +20784,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5014:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5019:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V21*/ meltfptr[20]), ("(SET_REF <ref> <value>) needs exactly two arguments"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5015:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5020:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:5015:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5020:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20810,7 +20810,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5013:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5018:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[37] = /*_.RETURN___V37*/ meltfptr[36];; @@ -20818,7 +20818,7 @@ lab_endgetargs:; /*_.IF___V36*/ meltfptr[34] = /*_.PROGN___V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5012:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5017:/ clear"); /*clear *//*_.RETURN___V37*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.PROGN___V38*/ meltfptr[37] = 0; @@ -20831,12 +20831,12 @@ lab_endgetargs:; /*_.IF___V36*/ meltfptr[34] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5018:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5023:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L11*/ meltfnum[10] = (( /*_.CLABIND__V27*/ meltfptr[26]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:5018:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5023:/ cond"); /*cond */ if ( /*_#NULL__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -20846,7 +20846,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5019:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5024:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V21*/ meltfptr[20]), ("(SET_REF <ref> <value>) where CLASS_REFERENCE is not visible"), (melt_ptr_t) 0); @@ -20859,7 +20859,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5020:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5025:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20885,7 +20885,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5020:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5025:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -20900,7 +20900,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5020:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5025:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20914,7 +20914,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5020; + argtab[2].meltbp_long = 5025; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_set_ref returns sput"; /*^apply.arg */ @@ -20934,7 +20934,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5020:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5025:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0; @@ -20947,7 +20947,7 @@ lab_endgetargs:; /*_.IF___V40*/ meltfptr[37] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5020:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5025:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[40] = /*_.IF___V40*/ meltfptr[37];; @@ -20955,7 +20955,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[36] = /*_.PROGN___V42*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5020:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5025:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V40*/ meltfptr[37] = 0; @@ -20968,7 +20968,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[36] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5021:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5026:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20977,7 +20977,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SPUT__V32*/ meltfptr[30];; { - MELT_LOCATION ("warmelt-macro.melt:5021:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5026:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20992,7 +20992,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V19*/ meltfptr[16] = /*_.RETURN___V43*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:4988:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:4993:/ clear"); /*clear *//*_.CONT__V20*/ meltfptr[17] = 0; /*^clear */ /*clear *//*_.LOC__V21*/ meltfptr[20] = 0; @@ -21026,7 +21026,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V39*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.RETURN___V43*/ meltfptr[37] = 0; - MELT_LOCATION ("warmelt-macro.melt:4980:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21035,7 +21035,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V19*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:4980:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21158,7 +21158,7 @@ meltrout_96_warmelt_macro_MEXPAND_TUPLE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5032:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5037:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21199,7 +21199,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5033:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5038:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21225,7 +21225,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5033:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5038:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21240,7 +21240,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5033:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5038:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21253,7 +21253,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5033; + argtab[2].meltbp_long = 5038; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_tuple sexpr"; /*^apply.arg */ @@ -21272,7 +21272,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5033:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5038:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -21285,7 +21285,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5033:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5038:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -21293,7 +21293,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5033:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5038:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -21308,7 +21308,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5034:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5039:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21320,7 +21320,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5034:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5039:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21328,7 +21328,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5034:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5039:/ cond.else"); /*^block */ /*anyblock */ @@ -21342,7 +21342,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5034) ? (5034) : __LINE__, __FUNCTION__); + (5039) ? (5039) : __LINE__, __FUNCTION__); ; } ; @@ -21356,7 +21356,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5034:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5039:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -21369,7 +21369,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5035:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5040:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21381,7 +21381,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:5035:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5040:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21389,7 +21389,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5035:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5040:/ cond.else"); /*^block */ /*anyblock */ @@ -21403,7 +21403,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5035) ? (5035) : __LINE__, __FUNCTION__); + (5040) ? (5040) : __LINE__, __FUNCTION__); ; } ; @@ -21417,7 +21417,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5035:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5040:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -21428,10 +21428,10 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5036:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5041:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5037:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5042:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -21439,7 +21439,7 @@ lab_endgetargs:; /*_.CONT__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5038:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5043:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -21447,7 +21447,7 @@ lab_endgetargs:; /*_.LOC__V16*/ meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5039:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5044:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21470,7 +21470,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5040:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5045:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21514,7 +21514,7 @@ lab_endgetargs:; /*_.RES__V18*/ meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5044:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5049:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21540,7 +21540,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5044:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5049:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21555,7 +21555,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5044:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5049:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21568,7 +21568,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5044; + argtab[2].meltbp_long = 5049; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_tuple result"; /*^apply.arg */ @@ -21588,7 +21588,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5044:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5049:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0; @@ -21601,7 +21601,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5044:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5049:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[21] = /*_.IF___V21*/ meltfptr[20];; @@ -21609,7 +21609,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = /*_.PROGN___V23*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5044:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5049:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V21*/ meltfptr[20] = 0; @@ -21622,7 +21622,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5045:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5050:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21631,7 +21631,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V18*/ meltfptr[17];; { - MELT_LOCATION ("warmelt-macro.melt:5045:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5050:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21646,7 +21646,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V14*/ meltfptr[12] = /*_.RETURN___V24*/ meltfptr[20];; - MELT_LOCATION ("warmelt-macro.melt:5036:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5041:/ clear"); /*clear *//*_.CONT__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; @@ -21658,7 +21658,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V20*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_.RETURN___V24*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-macro.melt:5032:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5037:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21667,7 +21667,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:5032:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5037:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21787,7 +21787,7 @@ meltrout_97_warmelt_macro_PATEXPAND_TUPLE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5049:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5054:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21818,7 +21818,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5050:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5055:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21830,7 +21830,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5050:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5055:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21838,7 +21838,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5050:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5055:/ cond.else"); /*^block */ /*anyblock */ @@ -21852,7 +21852,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5050) ? (5050) : __LINE__, __FUNCTION__); + (5055) ? (5055) : __LINE__, __FUNCTION__); ; } ; @@ -21866,7 +21866,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5050:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5055:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -21879,7 +21879,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5051:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5056:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21891,7 +21891,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5051:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5056:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21899,7 +21899,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5051:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5056:/ cond.else"); /*^block */ /*anyblock */ @@ -21913,7 +21913,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5051) ? (5051) : __LINE__, __FUNCTION__); + (5056) ? (5056) : __LINE__, __FUNCTION__); ; } ; @@ -21927,7 +21927,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5051:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5056:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -21940,7 +21940,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5052:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5057:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21951,7 +21951,7 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:5052:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5057:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21959,7 +21959,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5052:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5057:/ cond.else"); /*^block */ /*anyblock */ @@ -21973,7 +21973,7 @@ lab_endgetargs:; melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5052) ? (5052) : __LINE__, __FUNCTION__); + (5057) ? (5057) : __LINE__, __FUNCTION__); ; } ; @@ -21987,7 +21987,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5052:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5057:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -22000,7 +22000,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5053:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5058:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22026,7 +22026,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5053:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5058:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22041,7 +22041,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5053:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5058:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22054,7 +22054,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5053; + argtab[2].meltbp_long = 5058; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_tuple sexpr"; /*^apply.arg */ @@ -22074,7 +22074,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5053:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5058:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0; @@ -22087,7 +22087,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5053:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5058:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];; @@ -22095,7 +22095,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5053:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5058:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V12*/ meltfptr[11] = 0; @@ -22108,10 +22108,10 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5054:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5059:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5055:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5060:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -22119,7 +22119,7 @@ lab_endgetargs:; /*_.CONT__V16*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5056:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5061:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -22132,7 +22132,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V19*/ meltfptr[18] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:5058:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5063:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22155,7 +22155,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5059:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5064:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22199,7 +22199,7 @@ lab_endgetargs:; /*_.RES__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5063:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5068:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22225,7 +22225,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5063:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5068:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -22240,7 +22240,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5063:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5068:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22253,7 +22253,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5063; + argtab[2].meltbp_long = 5068; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_tuple res"; /*^apply.arg */ @@ -22273,7 +22273,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5063:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5068:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0; @@ -22286,7 +22286,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5063:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5068:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[24] = /*_.IF___V24*/ meltfptr[23];; @@ -22294,7 +22294,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = /*_.PROGN___V26*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5063:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5068:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V24*/ meltfptr[23] = 0; @@ -22307,7 +22307,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5064:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5069:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22316,7 +22316,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V21*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-macro.melt:5064:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5069:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22331,7 +22331,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V15*/ meltfptr[11] = /*_.RETURN___V27*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:5054:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5059:/ clear"); /*clear *//*_.CONT__V16*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LOC__V17*/ meltfptr[16] = 0; @@ -22347,7 +22347,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.RETURN___V27*/ meltfptr[23] = 0; - MELT_LOCATION ("warmelt-macro.melt:5049:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5054:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22356,7 +22356,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];; { - MELT_LOCATION ("warmelt-macro.melt:5049:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5054:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22477,7 +22477,7 @@ meltrout_98_warmelt_macro_MEXPAND_LIST (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5079:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5084:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -22518,7 +22518,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5080:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5085:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22544,7 +22544,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5080:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5085:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22559,7 +22559,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5080:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5085:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22572,7 +22572,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5080; + argtab[2].meltbp_long = 5085; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_list sexpr"; /*^apply.arg */ @@ -22591,7 +22591,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5080:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5085:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -22604,7 +22604,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5080:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5085:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -22612,7 +22612,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5080:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5085:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -22627,7 +22627,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5081:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5086:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22639,7 +22639,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5081:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5086:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22647,7 +22647,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5081:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5086:/ cond.else"); /*^block */ /*anyblock */ @@ -22661,7 +22661,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5081) ? (5081) : __LINE__, __FUNCTION__); + (5086) ? (5086) : __LINE__, __FUNCTION__); ; } ; @@ -22675,7 +22675,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5081:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5086:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -22688,7 +22688,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5082:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5087:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22700,7 +22700,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:5082:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5087:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22708,7 +22708,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5082:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5087:/ cond.else"); /*^block */ /*anyblock */ @@ -22722,7 +22722,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5082) ? (5082) : __LINE__, __FUNCTION__); + (5087) ? (5087) : __LINE__, __FUNCTION__); ; } ; @@ -22736,7 +22736,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5082:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5087:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -22747,10 +22747,10 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5083:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5088:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5084:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5089:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -22758,7 +22758,7 @@ lab_endgetargs:; /*_.CONT__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5085:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5090:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -22766,7 +22766,7 @@ lab_endgetargs:; /*_.LOC__V16*/ meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5086:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5091:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22789,7 +22789,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5087:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5092:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22833,7 +22833,7 @@ lab_endgetargs:; /*_.RES__V18*/ meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5091:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5096:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22859,7 +22859,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5091:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5096:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22874,7 +22874,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5091:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5096:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22887,7 +22887,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5091; + argtab[2].meltbp_long = 5096; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_list result"; /*^apply.arg */ @@ -22907,7 +22907,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5091:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5096:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0; @@ -22920,7 +22920,7 @@ lab_endgetargs:; /*_.IF___V21*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5091:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5096:/ quasiblock"); /*_.PROGN___V23*/ meltfptr[21] = /*_.IF___V21*/ meltfptr[20];; @@ -22928,7 +22928,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = /*_.PROGN___V23*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5091:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5096:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V21*/ meltfptr[20] = 0; @@ -22941,7 +22941,7 @@ lab_endgetargs:; /*_.IFCPP___V20*/ meltfptr[19] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5092:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5097:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22950,7 +22950,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V18*/ meltfptr[17];; { - MELT_LOCATION ("warmelt-macro.melt:5092:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5097:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22965,7 +22965,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V14*/ meltfptr[12] = /*_.RETURN___V24*/ meltfptr[20];; - MELT_LOCATION ("warmelt-macro.melt:5083:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5088:/ clear"); /*clear *//*_.CONT__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; @@ -22977,7 +22977,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V20*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_.RETURN___V24*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-macro.melt:5079:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5084:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22986,7 +22986,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:5079:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5084:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23106,7 +23106,7 @@ meltrout_99_warmelt_macro_PATEXPAND_LIST (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5096:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5101:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -23137,7 +23137,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5097:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5102:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23149,7 +23149,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5097:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5102:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23157,7 +23157,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5097:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5102:/ cond.else"); /*^block */ /*anyblock */ @@ -23171,7 +23171,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5097) ? (5097) : __LINE__, __FUNCTION__); + (5102) ? (5102) : __LINE__, __FUNCTION__); ; } ; @@ -23185,7 +23185,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5097:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5102:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0; @@ -23198,7 +23198,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5098:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5103:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23210,7 +23210,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5098:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5103:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23218,7 +23218,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5098:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5103:/ cond.else"); /*^block */ /*anyblock */ @@ -23232,7 +23232,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5098) ? (5098) : __LINE__, __FUNCTION__); + (5103) ? (5103) : __LINE__, __FUNCTION__); ; } ; @@ -23246,7 +23246,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5098:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5103:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -23259,7 +23259,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5099:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5104:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23270,7 +23270,7 @@ lab_endgetargs:; /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:5099:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5104:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23278,7 +23278,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5099:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5104:/ cond.else"); /*^block */ /*anyblock */ @@ -23292,7 +23292,7 @@ lab_endgetargs:; melt_assert_failed (("check pctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5099) ? (5099) : __LINE__, __FUNCTION__); + (5104) ? (5104) : __LINE__, __FUNCTION__); ; } ; @@ -23306,7 +23306,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5099:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5104:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -23319,7 +23319,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5100:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5105:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23345,7 +23345,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5100:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5105:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23360,7 +23360,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5100:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5105:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23373,7 +23373,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5100; + argtab[2].meltbp_long = 5105; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_or sexpr"; /*^apply.arg */ @@ -23393,7 +23393,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5100:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5105:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0; @@ -23406,7 +23406,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[11] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5100:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5105:/ quasiblock"); /*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];; @@ -23414,7 +23414,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5100:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5105:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V12*/ meltfptr[11] = 0; @@ -23427,10 +23427,10 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5101:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5106:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5102:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5107:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -23438,7 +23438,7 @@ lab_endgetargs:; /*_.CONT__V16*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5103:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5108:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -23451,7 +23451,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V19*/ meltfptr[18] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:5105:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5110:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23474,7 +23474,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5106:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5111:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -23518,7 +23518,7 @@ lab_endgetargs:; /*_.RES__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5110:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5115:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23544,7 +23544,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5110:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5115:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -23559,7 +23559,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5110:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5115:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23572,7 +23572,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5110; + argtab[2].meltbp_long = 5115; /*^apply.arg */ argtab[3].meltbp_cstring = "patexpand_list res"; /*^apply.arg */ @@ -23592,7 +23592,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5110:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5115:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0; @@ -23605,7 +23605,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5110:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5115:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[24] = /*_.IF___V24*/ meltfptr[23];; @@ -23613,7 +23613,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = /*_.PROGN___V26*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5110:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5115:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V24*/ meltfptr[23] = 0; @@ -23626,7 +23626,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5111:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5116:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -23635,7 +23635,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V21*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-macro.melt:5111:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5116:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23650,7 +23650,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V15*/ meltfptr[11] = /*_.RETURN___V27*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:5101:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5106:/ clear"); /*clear *//*_.CONT__V16*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LOC__V17*/ meltfptr[16] = 0; @@ -23666,7 +23666,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.RETURN___V27*/ meltfptr[23] = 0; - MELT_LOCATION ("warmelt-macro.melt:5096:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5101:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -23675,7 +23675,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];; { - MELT_LOCATION ("warmelt-macro.melt:5096:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5101:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23797,7 +23797,7 @@ meltrout_100_warmelt_macro_MEXPAND_MATCH (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5127:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -23838,7 +23838,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5128:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5133:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23850,7 +23850,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5128:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5133:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23858,7 +23858,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5128:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5133:/ cond.else"); /*^block */ /*anyblock */ @@ -23872,7 +23872,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5128) ? (5128) : __LINE__, __FUNCTION__); + (5133) ? (5133) : __LINE__, __FUNCTION__); ; } ; @@ -23886,7 +23886,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5128:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5133:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -23899,7 +23899,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5129:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5134:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23911,7 +23911,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5129:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5134:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23919,7 +23919,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5129:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5134:/ cond.else"); /*^block */ /*anyblock */ @@ -23933,7 +23933,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5129) ? (5129) : __LINE__, __FUNCTION__); + (5134) ? (5134) : __LINE__, __FUNCTION__); ; } ; @@ -23947,7 +23947,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5129:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5134:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -23960,7 +23960,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5130:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5135:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23971,7 +23971,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:5130:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5135:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23979,7 +23979,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5130:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5135:/ cond.else"); /*^block */ /*anyblock */ @@ -23993,7 +23993,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5130) ? (5130) : __LINE__, __FUNCTION__); + (5135) ? (5135) : __LINE__, __FUNCTION__); ; } ; @@ -24007,7 +24007,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5130:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5135:/ clear"); /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -24018,12 +24018,12 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5131:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5136:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L4*/ meltfnum[0] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:5131:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5136:/ cond"); /*cond */ if ( /*_#NULL__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -24037,7 +24037,7 @@ lab_endgetargs:; /*_.IF___V12*/ meltfptr[10] = /*_.SETQ___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5131:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5136:/ clear"); /*clear *//*_.SETQ___V13*/ meltfptr[12] = 0; } ; @@ -24050,7 +24050,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5132:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5137:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24076,7 +24076,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5132:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5137:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -24091,7 +24091,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5132:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5137:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24104,7 +24104,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5132; + argtab[2].meltbp_long = 5137; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_match sexpr"; /*^apply.arg */ @@ -24124,7 +24124,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5132:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5137:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0; @@ -24137,7 +24137,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5132:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5137:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[15] = /*_.IF___V15*/ meltfptr[14];; @@ -24145,7 +24145,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.PROGN___V17*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5132:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5137:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V15*/ meltfptr[14] = 0; @@ -24158,10 +24158,10 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5133:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5138:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5134:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5139:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -24169,7 +24169,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5135:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5140:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -24185,7 +24185,7 @@ lab_endgetargs:; /*^compute */ /*_.MSEXP__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.PAIR_TAIL__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:5137:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5142:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24215,7 +24215,7 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V27*/ meltfptr[26] = (melt_pair_tail ((melt_ptr_t) ( /*_.PAIR_TAIL__V26*/ meltfptr[25])));; - MELT_LOCATION ("warmelt-macro.melt:5141:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5146:/ quasiblock"); /*^newclosure */ @@ -24240,7 +24240,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]); ; /*_.LAMBDA___V28*/ meltfptr[27] = /*_.LAMBDA___V29*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:5138:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5143:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24265,7 +24265,7 @@ lab_endgetargs:; /*_#NBMATCH__L7*/ meltfnum[5] = (melt_multiple_length ((melt_ptr_t) ( /*_.MEXPTUPLE__V30*/ meltfptr[29])));; - MELT_LOCATION ("warmelt-macro.melt:5147:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5152:/ quasiblock"); /*_.LX__V32*/ meltfptr[31] = @@ -24273,7 +24273,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.MEXPTUPLE__V30*/ meltfptr[29]), (-1)));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5148:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5153:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24299,7 +24299,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5148:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5153:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -24314,7 +24314,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5148:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5153:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24327,7 +24327,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5148; + argtab[2].meltbp_long = 5153; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_match lastmexp lx"; /*^apply.arg */ @@ -24347,7 +24347,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5148:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5153:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V35*/ meltfptr[34] = 0; @@ -24360,7 +24360,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5148:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5153:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[34] = /*_.IF___V34*/ meltfptr[33];; @@ -24368,7 +24368,7 @@ lab_endgetargs:; /*_.IFCPP___V33*/ meltfptr[32] = /*_.PROGN___V36*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5148:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5153:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V34*/ meltfptr[33] = 0; @@ -24384,7 +24384,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V31*/ meltfptr[30] = /*_.LX__V32*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:5147:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5152:/ clear"); /*clear *//*_.LX__V32*/ meltfptr[31] = 0; /*^clear */ /*clear *//*_.IFCPP___V33*/ meltfptr[32] = 0; @@ -24398,7 +24398,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[8]))));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5153:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5158:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24424,7 +24424,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5153:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5158:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -24439,7 +24439,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5153:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5158:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24453,7 +24453,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5153; + argtab[2].meltbp_long = 5158; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_match mexptuple"; /*^apply.arg */ @@ -24473,7 +24473,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5153:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5158:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0; @@ -24486,7 +24486,7 @@ lab_endgetargs:; /*_.IF___V40*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5153:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5158:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[40] = /*_.IF___V40*/ meltfptr[32];; @@ -24494,7 +24494,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[31] = /*_.PROGN___V42*/ meltfptr[40];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5153:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5158:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V40*/ meltfptr[32] = 0; @@ -24507,7 +24507,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5154:/ loop"); + MELT_LOCATION ("warmelt-macro.melt:5159:/ loop"); /*loop */ { labloop_MATCHLOOP_1:; /*^loopbody */ @@ -24519,12 +24519,12 @@ lab_endgetargs:; /*^checksignal */ MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:5155:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5160:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L13*/ meltfnum[11] = (( /*_#IX__L10*/ meltfnum[8]) < (0));; - MELT_LOCATION ("warmelt-macro.melt:5155:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5160:/ cond"); /*cond */ if ( /*_#I__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -24549,7 +24549,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5156:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5161:/ quasiblock"); /*_.CURMATCH__V45*/ meltfptr[44] = @@ -24558,7 +24558,7 @@ lab_endgetargs:; ( /*_#IX__L10*/ meltfnum[8])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5157:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5162:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24584,7 +24584,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5157:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5162:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -24599,7 +24599,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5157:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5162:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24613,7 +24613,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5157; + argtab[2].meltbp_long = 5162; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_match curmatch"; /*^apply.arg */ @@ -24634,7 +24634,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5157:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5162:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = 0; @@ -24647,7 +24647,7 @@ lab_endgetargs:; /*_.IF___V47*/ meltfptr[46] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5157:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5162:/ quasiblock"); /*_.PROGN___V49*/ meltfptr[47] = /*_.IF___V47*/ meltfptr[46];; @@ -24655,7 +24655,7 @@ lab_endgetargs:; /*_.IFCPP___V46*/ meltfptr[45] = /*_.PROGN___V49*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5157:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5162:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V47*/ meltfptr[46] = 0; @@ -24668,7 +24668,7 @@ lab_endgetargs:; /*_.IFCPP___V46*/ meltfptr[45] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5160:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5165:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L16*/ meltfnum[14] = @@ -24676,7 +24676,7 @@ lab_endgetargs:; ( /*_.CURMATCH__V45*/ meltfptr[44]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5160:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5165:/ cond"); /*cond */ if ( /*_#IS_A__L16*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -24684,7 +24684,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5161:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5166:/ quasiblock"); /*^getslot */ @@ -24696,7 +24696,7 @@ lab_endgetargs:; /*_.CURMATCHCONT__V50*/ meltfptr[46] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5162:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5167:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -24720,14 +24720,14 @@ lab_endgetargs:; /*_.CURMATCHRESTPAIRS__V55*/ meltfptr[54] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V54*/ meltfptr[53])));; - MELT_LOCATION ("warmelt-macro.melt:5165:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5170:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAKE_MAPOBJECT__V56*/ meltfptr[55] = (meltgc_new_mapobjects ((meltobject_ptr_t) (( /*!DISCR_MAP_OBJECTS */ meltfrout->tabval[11])), (17)));; - MELT_LOCATION ("warmelt-macro.melt:5165:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5170:/ quasiblock"); /*^rawallocobj */ @@ -24791,7 +24791,7 @@ lab_endgetargs:; ; /*_.CURPATCTX__V57*/ meltfptr[56] = /*_.INST__V58*/ meltfptr[57];; - MELT_LOCATION ("warmelt-macro.melt:5171:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5176:/ quasiblock"); /*^checksignal */ @@ -24823,7 +24823,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5172:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5177:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24849,7 +24849,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5172:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5177:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -24864,7 +24864,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5172:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5177:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24878,7 +24878,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5172; + argtab[2].meltbp_long = 5177; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_match curpat"; /*^apply.arg */ @@ -24899,7 +24899,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V63*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5172:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5177:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V63*/ meltfptr[62] = 0; @@ -24912,7 +24912,7 @@ lab_endgetargs:; /*_.IF___V62*/ meltfptr[61] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5172:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5177:/ quasiblock"); /*_.PROGN___V64*/ meltfptr[62] = /*_.IF___V62*/ meltfptr[61];; @@ -24921,7 +24921,7 @@ lab_endgetargs:; /*_.PROGN___V64*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5172:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5177:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IF___V62*/ meltfptr[61] = 0; @@ -24936,7 +24936,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5173:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5178:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24952,7 +24952,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5173:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5178:/ cond.else"); /*^block */ /*anyblock */ @@ -24967,7 +24967,7 @@ lab_endgetargs:; ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5173) ? (5173) : __LINE__, + (5178) ? (5178) : __LINE__, __FUNCTION__); ; } @@ -24983,7 +24983,7 @@ lab_endgetargs:; /*_.IFELSE___V66*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5173:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5178:/ clear"); /*clear *//*_.IFELSE___V66*/ meltfptr[62] = 0; } @@ -24995,14 +24995,14 @@ lab_endgetargs:; /*^compute */ /*_.LET___V59*/ meltfptr[58] = /*_.CP__V60*/ meltfptr[59];; - MELT_LOCATION ("warmelt-macro.melt:5171:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5176:/ clear"); /*clear *//*_.CP__V60*/ meltfptr[59] = 0; /*^clear */ /*clear *//*_.IFCPP___V61*/ meltfptr[60] = 0; /*^clear */ /*clear *//*_.IFCPP___V65*/ meltfptr[61] = 0; /*_.CURPAT__V67*/ meltfptr[62] = /*_.LET___V59*/ meltfptr[58];; - MELT_LOCATION ("warmelt-macro.melt:5175:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5180:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25029,7 +25029,7 @@ lab_endgetargs:; ""), argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5176:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5181:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -25086,7 +25086,7 @@ lab_endgetargs:; /*_.CURCASE__V69*/ meltfptr[60] = /*_.INST__V70*/ meltfptr[61];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5181:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5186:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25112,7 +25112,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5181:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5186:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -25127,7 +25127,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5181:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5186:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25141,7 +25141,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5181; + argtab[2].meltbp_long = 5186; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_match curcase"; /*^apply.arg */ @@ -25162,7 +25162,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V73*/ meltfptr[72];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5181:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5186:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V73*/ meltfptr[72] = 0; @@ -25175,7 +25175,7 @@ lab_endgetargs:; /*_.IF___V72*/ meltfptr[71] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5181:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5186:/ quasiblock"); /*_.PROGN___V74*/ meltfptr[72] = /*_.IF___V72*/ meltfptr[71];; @@ -25184,7 +25184,7 @@ lab_endgetargs:; /*_.PROGN___V74*/ meltfptr[72];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5181:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5186:/ clear"); /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IF___V72*/ meltfptr[71] = 0; @@ -25199,7 +25199,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:5182:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5187:/ locexp"); meltgc_prepend_list ((melt_ptr_t) ( /*_.CASELIST__V38*/ meltfptr[34]), (melt_ptr_t) ( /*_.CURCASE__V69*/ @@ -25207,7 +25207,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-macro.melt:5161:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5166:/ clear"); /*clear *//*_.CURMATCHCONT__V50*/ meltfptr[46] = 0; /*^clear */ /*clear *//*_.CURMATCHLOC__V51*/ meltfptr[47] = 0; @@ -25239,7 +25239,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5160:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5165:/ cond.else"); /*^block */ /*anyblock */ @@ -25247,14 +25247,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5186:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5191:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(MATCH <expr> <match-case>...) with non sexpr matchcase"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5185:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5190:/ quasiblock"); /*epilog */ @@ -25263,7 +25263,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-macro.melt:5156:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5161:/ clear"); /*clear *//*_.CURMATCH__V45*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_.IFCPP___V46*/ meltfptr[45] = 0; @@ -25271,10 +25271,10 @@ lab_endgetargs:; /*clear *//*_#IS_A__L16*/ meltfnum[14] = 0; /*_#I__L21*/ meltfnum[4] = (( /*_#IX__L10*/ meltfnum[8]) - (1));; - MELT_LOCATION ("warmelt-macro.melt:5188:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5193:/ compute"); /*_#IX__L10*/ meltfnum[8] = /*_#SETQ___L22*/ meltfnum[17] = /*_#I__L21*/ meltfnum[4];; - MELT_LOCATION ("warmelt-macro.melt:5154:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5159:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -25296,7 +25296,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5189:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5194:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25322,7 +25322,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5189:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5194:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L23*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -25337,7 +25337,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5189:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5194:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25351,7 +25351,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5189; + argtab[2].meltbp_long = 5194; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_match caselist"; /*^apply.arg */ @@ -25371,7 +25371,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V77*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5189:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5194:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L24*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V77*/ meltfptr[46] = 0; @@ -25384,7 +25384,7 @@ lab_endgetargs:; /*_.IF___V76*/ meltfptr[72] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5189:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5194:/ quasiblock"); /*_.PROGN___V78*/ meltfptr[47] = /*_.IF___V76*/ meltfptr[72];; @@ -25392,7 +25392,7 @@ lab_endgetargs:; /*_.IFCPP___V75*/ meltfptr[71] = /*_.PROGN___V78*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5189:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5194:/ clear"); /*clear *//*_#MELT_NEED_DBG__L23*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IF___V76*/ meltfptr[72] = 0; @@ -25405,10 +25405,10 @@ lab_endgetargs:; /*_.IFCPP___V75*/ meltfptr[71] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5190:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5195:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5191:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5196:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25430,7 +25430,7 @@ lab_endgetargs:; /*_.LASTCASE__V81*/ meltfptr[53] = (melt_multiple_nth ((melt_ptr_t) ( /*_.CASETUPL__V80*/ meltfptr[52]), (-1)));; - MELT_LOCATION ("warmelt-macro.melt:5193:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5198:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -25481,10 +25481,10 @@ lab_endgetargs:; "newly made instance"); ; /*_.SMAT__V82*/ meltfptr[54] = /*_.INST__V83*/ meltfptr[55];; - MELT_LOCATION ("warmelt-macro.melt:5200:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5205:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:5201:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5206:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -25512,7 +25512,7 @@ lab_endgetargs:; /*_#IS_NOT_A__L25*/ meltfnum[4] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SCAM_PATT__V84*/ meltfptr[56]), (melt_ptr_t) (( /*!CLASS_SOURCE_PATTERN_JOKER_VARIABLE */ meltfrout->tabval[16])));; - MELT_LOCATION ("warmelt-macro.melt:5200:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5205:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L25*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -25522,7 +25522,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5203:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5208:/ locexp"); melt_inform_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("last (MATCH ...) clause is not a joker"), (melt_ptr_t) 0); @@ -25535,7 +25535,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5205:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5210:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25561,7 +25561,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5205:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5210:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -25576,7 +25576,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5205:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5210:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25590,7 +25590,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5205; + argtab[2].meltbp_long = 5210; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_match result smat"; /*^apply.arg */ @@ -25610,7 +25610,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V87*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5205:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5210:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L27*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V87*/ meltfptr[59] = 0; @@ -25623,7 +25623,7 @@ lab_endgetargs:; /*_.IF___V86*/ meltfptr[62] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5205:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5210:/ quasiblock"); /*_.PROGN___V88*/ meltfptr[60] = /*_.IF___V86*/ meltfptr[62];; @@ -25631,7 +25631,7 @@ lab_endgetargs:; /*_.IFCPP___V85*/ meltfptr[58] = /*_.PROGN___V88*/ meltfptr[60];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5205:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5210:/ clear"); /*clear *//*_#MELT_NEED_DBG__L26*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IF___V86*/ meltfptr[62] = 0; @@ -25644,7 +25644,7 @@ lab_endgetargs:; /*_.IFCPP___V85*/ meltfptr[58] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5206:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5211:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -25653,7 +25653,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SMAT__V82*/ meltfptr[54];; { - MELT_LOCATION ("warmelt-macro.melt:5206:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5211:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -25668,7 +25668,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V79*/ meltfptr[51] = /*_.RETURN___V89*/ meltfptr[70];; - MELT_LOCATION ("warmelt-macro.melt:5190:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5195:/ clear"); /*clear *//*_.CASETUPL__V80*/ meltfptr[52] = 0; /*^clear */ /*clear *//*_.LASTCASE__V81*/ meltfptr[53] = 0; @@ -25684,7 +25684,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V89*/ meltfptr[70] = 0; /*_.LET___V18*/ meltfptr[14] = /*_.LET___V79*/ meltfptr[51];; - MELT_LOCATION ("warmelt-macro.melt:5133:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5138:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -25724,7 +25724,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V75*/ meltfptr[71] = 0; /*^clear */ /*clear *//*_.LET___V79*/ meltfptr[51] = 0; - MELT_LOCATION ("warmelt-macro.melt:5127:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -25733,7 +25733,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:5127:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) diff --git a/gcc/melt/generated/warmelt-macro+04.c b/gcc/melt/generated/warmelt-macro+04.c index 5c1a92db8d4..e21a12d0eb6 100644 --- a/gcc/melt/generated/warmelt-macro+04.c +++ b/gcc/melt/generated/warmelt-macro+04.c @@ -2393,7 +2393,7 @@ meltrout_101_warmelt_macro_LAMBDA___22__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5141:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5146:/ getarg"); /*_.C__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -2403,14 +2403,14 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:5142:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5147:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.C__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5142:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5147:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2420,7 +2420,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5143:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5148:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) (( /*~LOC */ meltfclos->tabval[0])), @@ -2432,7 +2432,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5141:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5146:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -2441,7 +2441,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.C__V2*/ meltfptr[1];; { - MELT_LOCATION ("warmelt-macro.melt:5141:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5146:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2557,7 +2557,7 @@ meltrout_102_warmelt_macro_MEXPAND_LETBINDING (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5219:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -2598,7 +2598,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5220:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5225:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2624,7 +2624,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5220:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5225:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2639,7 +2639,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5220:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5225:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2652,7 +2652,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5220; + argtab[2].meltbp_long = 5225; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_letbinding sexpr"; /*^apply.arg */ @@ -2671,7 +2671,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5220:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5225:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -2684,7 +2684,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5220:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5225:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -2692,7 +2692,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5220:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5225:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -2707,7 +2707,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5221:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5226:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2719,7 +2719,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5221:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5226:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2727,7 +2727,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5221:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5226:/ cond.else"); /*^block */ /*anyblock */ @@ -2741,7 +2741,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5221) ? (5221) : __LINE__, __FUNCTION__); + (5226) ? (5226) : __LINE__, __FUNCTION__); ; } ; @@ -2755,7 +2755,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5221:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5226:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -2768,7 +2768,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5222:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5227:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2780,7 +2780,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:5222:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5227:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2788,7 +2788,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5222:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5227:/ cond.else"); /*^block */ /*anyblock */ @@ -2802,7 +2802,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5222) ? (5222) : __LINE__, __FUNCTION__); + (5227) ? (5227) : __LINE__, __FUNCTION__); ; } ; @@ -2816,7 +2816,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5222:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5227:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -2827,12 +2827,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5223:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5228:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:5223:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5228:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2846,7 +2846,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5223:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5228:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -2859,7 +2859,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5224:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5229:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2870,7 +2870,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:5224:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5229:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2878,7 +2878,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5224:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5229:/ cond.else"); /*^block */ /*anyblock */ @@ -2892,7 +2892,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5224) ? (5224) : __LINE__, __FUNCTION__); + (5229) ? (5229) : __LINE__, __FUNCTION__); ; } ; @@ -2906,7 +2906,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5224:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5229:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -2917,10 +2917,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5225:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5230:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5226:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5231:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -2928,7 +2928,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5227:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5232:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -2949,17 +2949,17 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_HEAD__V26*/ meltfptr[25] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION ("warmelt-macro.melt:5234:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5239:/ compute"); /*_.CURARG__V25*/ meltfptr[24] = /*_.SETQ___V27*/ meltfptr[26] = /*_.PAIR_HEAD__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:5235:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5240:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.CURARG__V25*/ meltfptr[24]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:5235:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5240:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2967,7 +2967,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5236:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5241:/ quasiblock"); /*^getslot */ @@ -2978,7 +2978,7 @@ lab_endgetargs:; /*_.CTY__V30*/ meltfptr[29] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5237:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5242:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CURARG__V25*/ meltfptr[24]) /*=obj*/ ; @@ -2986,14 +2986,14 @@ lab_endgetargs:; /*_.TYNAM__V31*/ meltfptr[30] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5240:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5245:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L8*/ meltfnum[7] = !melt_is_instance_of ((melt_ptr_t) ( /*_.CTY__V30*/ meltfptr[29]), (melt_ptr_t) (( /*!CLASS_CTYPE */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:5240:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5245:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -3005,7 +3005,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5241:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5246:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("letbinding with invalid type keyword"), (melt_ptr_t) ( /*_.TYNAM__V31*/ @@ -3019,13 +3019,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5240:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5245:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5242:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5247:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^getslot */ @@ -3039,7 +3039,7 @@ lab_endgetargs:; /*_#__L9*/ meltfnum[8] = (( /*_.CTYPE_KEYWORD__V33*/ meltfptr[32]) == ( /*_.CURARG__V25*/ meltfptr[24]));; - MELT_LOCATION ("warmelt-macro.melt:5242:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5247:/ cond"); /*cond */ if ( /*_#__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -3047,7 +3047,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5243:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5248:/ compute"); /*_.CTYP__V21*/ meltfptr[20] = /*_.SETQ___V35*/ meltfptr[34] = /*_.CTY__V30*/ meltfptr[29];; @@ -3055,7 +3055,7 @@ lab_endgetargs:; /*_.SETQ___V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5242:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5247:/ clear"); /*clear *//*_.SETQ___V35*/ meltfptr[34] = 0; } ; @@ -3067,7 +3067,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5244:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5249:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^getslot */ @@ -3084,7 +3084,7 @@ lab_endgetargs:; /*_#__L10*/ meltfnum[9] = (( /*_.CTYPE_ALTKEYWORD__V36*/ meltfptr[34]) == ( /*_.CURARG__V25*/ meltfptr[24]));; - MELT_LOCATION ("warmelt-macro.melt:5244:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5249:/ cond"); /*cond */ if ( /*_#__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -3093,14 +3093,14 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5245:/ compute"); + ("warmelt-macro.melt:5250:/ compute"); /*_.CTYP__V21*/ meltfptr[20] = /*_.SETQ___V37*/ meltfptr[36] = /*_.CTY__V30*/ meltfptr[29];; { MELT_LOCATION - ("warmelt-macro.melt:5246:/ locexp"); + ("warmelt-macro.melt:5251:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -3108,7 +3108,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.TYNAM__V31*/ meltfptr[30])); } ; - MELT_LOCATION ("warmelt-macro.melt:5248:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5253:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3136,7 +3136,7 @@ lab_endgetargs:; /*_.CTYPE_KEYWORD__V38*/ meltfptr[37] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5248:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5253:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3166,7 +3166,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5248:/ locexp"); + ("warmelt-macro.melt:5253:/ locexp"); melt_inform_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("prefered ctype keyword"), @@ -3174,7 +3174,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:5244:/ quasiblock"); + ("warmelt-macro.melt:5249:/ quasiblock"); /*epilog */ @@ -3199,7 +3199,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5251:/ locexp"); + ("warmelt-macro.melt:5256:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("letbinding with invalid type keyword"), @@ -3208,7 +3208,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:5250:/ quasiblock"); + ("warmelt-macro.melt:5255:/ quasiblock"); /*epilog */ @@ -3218,7 +3218,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5242:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5247:/ clear"); /*clear *//*_.CTYPE_ALTKEYWORD__V36*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_#__L10*/ meltfnum[9] = 0; @@ -3230,7 +3230,7 @@ lab_endgetargs:; /*_.IFELSE___V34*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5240:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5245:/ clear"); /*clear *//*_.CTYPE_KEYWORD__V33*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_#__L9*/ meltfnum[8] = 0; @@ -3243,18 +3243,18 @@ lab_endgetargs:; /*_.PAIR_TAIL__V40*/ meltfptr[36] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION ("warmelt-macro.melt:5253:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5258:/ compute"); /*_.CURPAIR__V24*/ meltfptr[23] = /*_.SETQ___V41*/ meltfptr[37] = /*_.PAIR_TAIL__V40*/ meltfptr[36];; /*_.PAIR_HEAD__V42*/ meltfptr[38] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION ("warmelt-macro.melt:5254:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5259:/ compute"); /*_.CURARG__V25*/ meltfptr[24] = /*_.SETQ___V43*/ meltfptr[34] = /*_.PAIR_HEAD__V42*/ meltfptr[38];; /*_.LET___V29*/ meltfptr[28] = /*_.SETQ___V43*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:5236:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5241:/ clear"); /*clear *//*_.CTY__V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.TYNAM__V31*/ meltfptr[30] = 0; @@ -3273,7 +3273,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[27] = /*_.LET___V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5235:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5240:/ clear"); /*clear *//*_.LET___V29*/ meltfptr[28] = 0; } ; @@ -3284,14 +3284,14 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[27] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5256:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5261:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L11*/ meltfnum[9] = melt_is_instance_of ((melt_ptr_t) ( /*_.CURARG__V25*/ meltfptr[24]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:5256:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5261:/ cond"); /*cond */ if ( /*_#IS_A__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -3299,7 +3299,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5258:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5263:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CURARG__V25*/ meltfptr[24]) /*=obj*/ ; @@ -3311,7 +3311,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5257:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5262:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("letbinding cannot bind keyword"), (melt_ptr_t) ( /*_.NAMED_NAME__V45*/ @@ -3321,7 +3321,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V44*/ meltfptr[32] = 0; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5256:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5261:/ clear"); /*clear *//*_.NAMED_NAME__V45*/ meltfptr[33] = 0; } ; @@ -3333,7 +3333,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5259:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5264:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L12*/ meltfnum[8] = @@ -3341,7 +3341,7 @@ lab_endgetargs:; ( /*_.CURARG__V25*/ meltfptr[24]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-macro.melt:5259:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5264:/ cond"); /*cond */ if ( /*_#IS_A__L12*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -3349,24 +3349,24 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5260:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5265:/ compute"); /*_.VAR__V22*/ meltfptr[21] = /*_.SETQ___V47*/ meltfptr[30] = /*_.CURARG__V25*/ meltfptr[24];; /*_.PAIR_TAIL__V48*/ meltfptr[31] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION ("warmelt-macro.melt:5261:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5266:/ compute"); /*_.CURPAIR__V24*/ meltfptr[23] = /*_.SETQ___V49*/ meltfptr[36] = /*_.PAIR_TAIL__V48*/ meltfptr[31];; /*_.PAIR_HEAD__V50*/ meltfptr[37] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION ("warmelt-macro.melt:5262:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5267:/ compute"); /*_.CURARG__V25*/ meltfptr[24] = /*_.SETQ___V51*/ meltfptr[38] = /*_.PAIR_HEAD__V50*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:5259:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5264:/ quasiblock"); /*_.PROGN___V52*/ meltfptr[34] = @@ -3376,7 +3376,7 @@ lab_endgetargs:; /*_.PROGN___V52*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5259:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5264:/ clear"); /*clear *//*_.SETQ___V47*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.PAIR_TAIL__V48*/ meltfptr[31] = 0; @@ -3401,7 +3401,7 @@ lab_endgetargs:; /*_.IFELSE___V44*/ meltfptr[32] = /*_.IFELSE___V46*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5256:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5261:/ clear"); /*clear *//*_#IS_A__L12*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V46*/ meltfptr[29] = 0; @@ -3409,12 +3409,12 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:5264:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5269:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L13*/ meltfnum[7] = (( /*_.VAR__V22*/ meltfptr[21]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:5264:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5269:/ cond"); /*cond */ if ( /*_#NULL__L13*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -3424,7 +3424,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5265:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5270:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing variable in letbinding"), @@ -3436,7 +3436,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5266:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5271:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -3447,7 +3447,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5268:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5273:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3478,16 +3478,16 @@ lab_endgetargs:; /*_.PAIR_TAIL__V55*/ meltfptr[30] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION ("warmelt-macro.melt:5269:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5274:/ compute"); /*_.CURPAIR__V24*/ meltfptr[23] = /*_.SETQ___V56*/ meltfptr[31] = /*_.PAIR_TAIL__V55*/ meltfptr[30];; /*_.PAIR_HEAD__V57*/ meltfptr[36] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V24*/ meltfptr[23])));; - MELT_LOCATION ("warmelt-macro.melt:5270:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5275:/ compute"); /*_.CURARG__V25*/ meltfptr[24] = /*_.SETQ___V58*/ meltfptr[37] = /*_.PAIR_HEAD__V57*/ meltfptr[36];; - MELT_LOCATION ("warmelt-macro.melt:5271:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5276:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -3512,12 +3512,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5267:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5272:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5266:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5271:/ clear"); /*clear *//*_.MEXPANDER__V53*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.SETQ___V54*/ meltfptr[33] = 0; @@ -3533,7 +3533,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5273:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5278:/ quasiblock"); /*^checksignal */ @@ -3554,12 +3554,12 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5275:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5280:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L14*/ meltfnum[8] = (( /*_.PREVBIND__V60*/ meltfptr[34]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:5275:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5280:/ cond"); /*cond */ if ( /*_#NULL__L14*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -3567,13 +3567,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5275:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5280:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5276:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5281:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L15*/ meltfnum[14] = @@ -3581,7 +3581,7 @@ lab_endgetargs:; ( /*_.PREVBIND__V60*/ meltfptr[34]), (melt_ptr_t) (( /*!CLASS_LET_BINDING */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-macro.melt:5276:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5281:/ cond"); /*cond */ if ( /*_#IS_A__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -3589,7 +3589,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5277:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5282:/ quasiblock"); /*^cond */ @@ -3619,7 +3619,7 @@ lab_endgetargs:; /*_.PREVLOC__V63*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5280:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5285:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3647,7 +3647,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:5278:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5283:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -3656,7 +3656,7 @@ lab_endgetargs:; meltfptr[30])); } ; - MELT_LOCATION ("warmelt-macro.melt:5281:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5286:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -3667,7 +3667,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5284:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5289:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3699,7 +3699,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5282:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5287:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.PREVLOC__V63*/ meltfptr[33]), @@ -3711,7 +3711,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V62*/ meltfptr[28] = 0; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5281:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5286:/ clear"); /*clear *//*_.NAMED_NAME__V65*/ meltfptr[31] = 0; } ; @@ -3723,7 +3723,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-macro.melt:5277:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5282:/ clear"); /*clear *//*_.PREVLOC__V63*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.NAMED_NAME__V64*/ meltfptr[30] = 0; @@ -3733,20 +3733,20 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5276:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5281:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5287:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5292:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L16*/ meltfnum[15] = melt_is_instance_of ((melt_ptr_t) ( /*_.PREVBIND__V60*/ meltfptr[34]), (melt_ptr_t) (( /*!CLASS_FIXED_BINDING */ meltfrout->tabval[11])));; - MELT_LOCATION ("warmelt-macro.melt:5287:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5292:/ cond"); /*cond */ if ( /*_#IS_A__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -3754,7 +3754,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5290:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5295:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -3786,7 +3786,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5288:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5293:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -3798,7 +3798,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V66*/ meltfptr[36] = 0; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5287:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5292:/ clear"); /*clear *//*_.NAMED_NAME__V67*/ meltfptr[37] = 0; } ; @@ -3814,7 +3814,7 @@ lab_endgetargs:; /*_.IFELSE___V66*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5276:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5281:/ clear"); /*clear *//*_#IS_A__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IFELSE___V66*/ meltfptr[36] = 0; @@ -3825,7 +3825,7 @@ lab_endgetargs:; /*_.IFELSE___V61*/ meltfptr[29] = /*_.IFELSE___V62*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5275:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5280:/ clear"); /*clear *//*_#IS_A__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IFELSE___V62*/ meltfptr[28] = 0; @@ -3835,16 +3835,16 @@ lab_endgetargs:; ; /*_.LET___V59*/ meltfptr[38] = /*_.IFELSE___V61*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:5273:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5278:/ clear"); /*clear *//*_.PREVBIND__V60*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_#NULL__L14*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V61*/ meltfptr[29] = 0; - MELT_LOCATION ("warmelt-macro.melt:5293:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5298:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5294:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5299:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3904,7 +3904,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.LETB__V69*/ meltfptr[33] = /*_.INST__V70*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:5299:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5304:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3913,7 +3913,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LETB__V69*/ meltfptr[33];; { - MELT_LOCATION ("warmelt-macro.melt:5299:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5304:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3928,13 +3928,13 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V68*/ meltfptr[31] = /*_.RETURN___V71*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:5293:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5298:/ clear"); /*clear *//*_.LETB__V69*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.RETURN___V71*/ meltfptr[37] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V68*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:5225:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5230:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -3966,7 +3966,7 @@ lab_endgetargs:; /*clear *//*_.LET___V59*/ meltfptr[38] = 0; /*^clear */ /*clear *//*_.LET___V68*/ meltfptr[31] = 0; - MELT_LOCATION ("warmelt-macro.melt:5219:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3975,7 +3975,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:5219:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4100,7 +4100,7 @@ meltrout_103_warmelt_macro_MEXPAND_LET (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5303:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -4141,7 +4141,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5304:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5309:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4167,7 +4167,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5304:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5309:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4182,7 +4182,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5304:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5309:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4195,7 +4195,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5304; + argtab[2].meltbp_long = 5309; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_let sexpr="; /*^apply.arg */ @@ -4214,7 +4214,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5304:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5309:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -4227,7 +4227,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5304:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5309:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -4235,7 +4235,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5304:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5309:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -4250,7 +4250,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5305:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5310:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4262,7 +4262,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5305:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5310:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4270,7 +4270,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5305:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5310:/ cond.else"); /*^block */ /*anyblock */ @@ -4284,7 +4284,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5305) ? (5305) : __LINE__, __FUNCTION__); + (5310) ? (5310) : __LINE__, __FUNCTION__); ; } ; @@ -4298,7 +4298,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5305:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5310:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -4311,7 +4311,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5306:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5311:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4323,7 +4323,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:5306:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5311:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4331,7 +4331,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5306:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5311:/ cond.else"); /*^block */ /*anyblock */ @@ -4345,7 +4345,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5306) ? (5306) : __LINE__, __FUNCTION__); + (5311) ? (5311) : __LINE__, __FUNCTION__); ; } ; @@ -4359,7 +4359,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5306:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5311:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -4370,12 +4370,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5307:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5312:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:5307:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5312:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4389,7 +4389,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5307:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5312:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -4402,7 +4402,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5308:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5313:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4413,7 +4413,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:5308:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5313:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4421,7 +4421,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5308:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5313:/ cond.else"); /*^block */ /*anyblock */ @@ -4435,7 +4435,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5308) ? (5308) : __LINE__, __FUNCTION__); + (5313) ? (5313) : __LINE__, __FUNCTION__); ; } ; @@ -4449,7 +4449,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5308:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5313:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -4460,10 +4460,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5309:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5314:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5310:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5315:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -4471,7 +4471,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5311:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5316:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -4490,7 +4490,7 @@ lab_endgetargs:; /*^compute */ /*_.BINDEXPR__V24*/ meltfptr[23] = (melt_pair_head ((melt_ptr_t) ( /*_.SECPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:5315:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5320:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4506,7 +4506,7 @@ lab_endgetargs:; /*_.BINDTUP__V26*/ meltfptr[25] = ( /*nil */ NULL);; /*^compute */ /*_.BODYTUP__V27*/ meltfptr[26] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:5319:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5324:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -4517,7 +4517,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5320:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5325:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[0] = @@ -4525,7 +4525,7 @@ lab_endgetargs:; ( /*_.BINDEXPR__V24*/ meltfptr[23]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5320:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5325:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4533,7 +4533,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5323:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5328:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -4546,7 +4546,7 @@ lab_endgetargs:; /*_.LIST_FIRST__V31*/ meltfptr[30] = (melt_list_first ((melt_ptr_t) ( /*_.SEXP_CONTENTS__V30*/ meltfptr[29])));; - MELT_LOCATION ("warmelt-macro.melt:5325:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5330:/ quasiblock"); /*^newclosure */ @@ -4621,7 +4621,7 @@ lab_endgetargs:; ; /*_.LAMBDA___V32*/ meltfptr[31] = /*_.LAMBDA___V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:5322:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5327:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4646,7 +4646,7 @@ lab_endgetargs:; "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5321:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5326:/ compute"); /*_.BINDTUP__V26*/ meltfptr[25] = /*_.SETQ___V35*/ meltfptr[34] = /*_.PAIRLIST_TO_MULTIPLE__V34*/ meltfptr[33];; @@ -4654,7 +4654,7 @@ lab_endgetargs:; /*_.SETQ___V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5320:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5325:/ clear"); /*clear *//*_.SEXP_CONTENTS__V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.LIST_FIRST__V31*/ meltfptr[30] = 0; @@ -4678,7 +4678,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5329:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5334:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -4696,7 +4696,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[27] = /*_.IFELSE___V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5319:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5324:/ clear"); /*clear *//*_#IS_A__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V29*/ meltfptr[28] = 0; @@ -4709,7 +4709,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[27] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5333:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5338:/ quasiblock"); /*^newclosure */ @@ -4734,7 +4734,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.NEWENV__V25*/ meltfptr[24]); ; /*_.LAMBDA___V36*/ meltfptr[29] = /*_.LAMBDA___V37*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:5331:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5336:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4753,7 +4753,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5346:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5351:/ quasiblock"); /*^newclosure */ @@ -4804,7 +4804,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]); ; /*_.LAMBDA___V39*/ meltfptr[33] = /*_.LAMBDA___V40*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:5344:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5349:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4829,10 +4829,10 @@ lab_endgetargs:; /*^compute */ /*_.BODYTUP__V27*/ meltfptr[26] = /*_.SETQ___V42*/ meltfptr[41] = /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:5347:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5352:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5348:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5353:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4884,7 +4884,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.LETR__V44*/ meltfptr[43] = /*_.INST__V45*/ meltfptr[44];; - MELT_LOCATION ("warmelt-macro.melt:5352:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5357:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4893,7 +4893,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LETR__V44*/ meltfptr[43];; { - MELT_LOCATION ("warmelt-macro.melt:5352:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5357:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4908,13 +4908,13 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V43*/ meltfptr[42] = /*_.RETURN___V46*/ meltfptr[45];; - MELT_LOCATION ("warmelt-macro.melt:5347:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5352:/ clear"); /*clear *//*_.LETR__V44*/ meltfptr[43] = 0; /*^clear */ /*clear *//*_.RETURN___V46*/ meltfptr[45] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V43*/ meltfptr[42];; - MELT_LOCATION ("warmelt-macro.melt:5309:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5314:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -4946,7 +4946,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V42*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_.LET___V43*/ meltfptr[42] = 0; - MELT_LOCATION ("warmelt-macro.melt:5303:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4955,7 +4955,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:5303:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5081,7 +5081,7 @@ meltrout_104_warmelt_macro_LAMBDA___23__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5325:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5330:/ getarg"); /*_.B__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -5091,14 +5091,14 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:5326:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5331:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.B__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5326:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5331:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5108,7 +5108,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5327:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5332:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) (( /*~LOC */ meltfclos->tabval[0])), @@ -5121,7 +5121,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5328:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5333:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5146,7 +5146,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5325:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5330:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5155,7 +5155,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPAND_LETBINDING__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:5325:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5330:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5271,7 +5271,7 @@ meltrout_105_warmelt_macro_LAMBDA___24__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5333:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5338:/ getarg"); /*_.SLB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -5283,7 +5283,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5334:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5339:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5295,7 +5295,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SLB__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SOURCE_LET_BINDING */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5334:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5339:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5303,7 +5303,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5334:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5339:/ cond.else"); /*^block */ /*anyblock */ @@ -5317,7 +5317,7 @@ lab_endgetargs:; melt_assert_failed (("mexp.let. check slb"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5334) ? (5334) : __LINE__, __FUNCTION__); + (5339) ? (5339) : __LINE__, __FUNCTION__); ; } ; @@ -5331,7 +5331,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5334:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5339:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; @@ -5342,10 +5342,10 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5335:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5340:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5336:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5341:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SLB__V2*/ meltfptr[1]) /*=obj*/ ; @@ -5353,10 +5353,10 @@ lab_endgetargs:; /*_.SX__V6*/ meltfptr[5] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5337:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5342:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:5338:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5343:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SLB__V2*/ meltfptr[1]) /*=obj*/ ; @@ -5364,7 +5364,7 @@ lab_endgetargs:; /*_.SLETB_BINDER__V7*/ meltfptr[6] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5339:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5344:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SLB__V2*/ meltfptr[1]) /*=obj*/ ; @@ -5372,7 +5372,7 @@ lab_endgetargs:; /*_.SLETB_TYPE__V8*/ meltfptr[7] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5337:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5342:/ quasiblock"); /*^rawallocobj */ @@ -5423,7 +5423,7 @@ lab_endgetargs:; /*_.LB__V9*/ meltfptr[8] = /*_.INST__V10*/ meltfptr[9];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5341:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5346:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5437,7 +5437,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L3*/ meltfnum[2] = (!( /*_#IS_LIST__L2*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:5341:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5346:/ cond"); /*cond */ if ( /*_#NOT__L3*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -5445,7 +5445,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5341:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5346:/ cond.else"); /*^block */ /*anyblock */ @@ -5459,7 +5459,7 @@ lab_endgetargs:; melt_assert_failed (("mexp.let not list lb"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5341) ? (5341) : __LINE__, __FUNCTION__); + (5346) ? (5346) : __LINE__, __FUNCTION__); ; } ; @@ -5473,7 +5473,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[10] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5341:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5346:/ clear"); /*clear *//*_#IS_LIST__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_#NOT__L3*/ meltfnum[2] = 0; @@ -5486,7 +5486,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5342:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5347:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5506,7 +5506,7 @@ lab_endgetargs:; ; /*_.LET___V5*/ meltfptr[3] = /*_.PUT_ENV__V13*/ meltfptr[11];; - MELT_LOCATION ("warmelt-macro.melt:5335:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5340:/ clear"); /*clear *//*_.SX__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.SLETB_BINDER__V7*/ meltfptr[6] = 0; @@ -5518,7 +5518,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.PUT_ENV__V13*/ meltfptr[11] = 0; - MELT_LOCATION ("warmelt-macro.melt:5333:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5338:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5527,7 +5527,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; { - MELT_LOCATION ("warmelt-macro.melt:5333:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5338:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5643,7 +5643,7 @@ meltrout_106_warmelt_macro_LAMBDA___25__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5346:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5351:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -5684,7 +5684,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:5346:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5351:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5805,7 +5805,7 @@ meltrout_107_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5370:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5375:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -5817,7 +5817,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5371:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5376:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5843,7 +5843,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5371:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5376:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5858,7 +5858,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5371:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5376:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5871,7 +5871,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5371; + argtab[2].meltbp_long = 5376; /*^apply.arg */ argtab[3].meltbp_cstring = "yes_recursively_constructible recv"; /*^apply.arg */ @@ -5890,7 +5890,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5371:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5376:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0; @@ -5903,7 +5903,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5371:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5376:/ quasiblock"); /*_.PROGN___V6*/ meltfptr[4] = /*_.IF___V4*/ meltfptr[3];; @@ -5911,7 +5911,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.PROGN___V6*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5371:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5376:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V4*/ meltfptr[3] = 0; @@ -5924,7 +5924,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5372:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5377:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5933,7 +5933,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RECV__V2*/ meltfptr[1];; { - MELT_LOCATION ("warmelt-macro.melt:5372:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5377:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5946,7 +5946,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5370:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5375:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5955,7 +5955,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETURN___V7*/ meltfptr[3];; { - MELT_LOCATION ("warmelt-macro.melt:5370:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5375:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6071,7 +6071,7 @@ meltrout_108_warmelt_macro_MEXPAND_LETREC (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5383:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -6112,7 +6112,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5384:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5389:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6138,7 +6138,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5384:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5389:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6153,7 +6153,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5384:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5389:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6166,7 +6166,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5384; + argtab[2].meltbp_long = 5389; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_letrec sexpr"; /*^apply.arg */ @@ -6185,7 +6185,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5384:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5389:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -6198,7 +6198,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5384:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5389:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -6206,7 +6206,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5384:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5389:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -6221,7 +6221,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5385:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5390:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6233,7 +6233,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5385:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5390:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6241,7 +6241,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5385:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5390:/ cond.else"); /*^block */ /*anyblock */ @@ -6255,7 +6255,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5385) ? (5385) : __LINE__, __FUNCTION__); + (5390) ? (5390) : __LINE__, __FUNCTION__); ; } ; @@ -6269,7 +6269,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5385:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5390:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -6282,7 +6282,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5386:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5391:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6294,7 +6294,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:5386:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5391:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6302,7 +6302,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5386:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5391:/ cond.else"); /*^block */ /*anyblock */ @@ -6316,7 +6316,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5386) ? (5386) : __LINE__, __FUNCTION__); + (5391) ? (5391) : __LINE__, __FUNCTION__); ; } ; @@ -6330,7 +6330,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5386:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5391:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -6343,7 +6343,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5387:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5392:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6354,7 +6354,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:5387:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5392:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6362,7 +6362,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5387:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5392:/ cond.else"); /*^block */ /*anyblock */ @@ -6376,7 +6376,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5387) ? (5387) : __LINE__, __FUNCTION__); + (5392) ? (5392) : __LINE__, __FUNCTION__); ; } ; @@ -6390,7 +6390,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5387:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5392:/ clear"); /*clear *//*_#IS_CLOSURE__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -6403,7 +6403,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5388:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5393:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6414,7 +6414,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:5388:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5393:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6422,7 +6422,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5388:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5393:/ cond.else"); /*^block */ /*anyblock */ @@ -6436,7 +6436,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5388) ? (5388) : __LINE__, __FUNCTION__); + (5393) ? (5393) : __LINE__, __FUNCTION__); ; } ; @@ -6450,7 +6450,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5388:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5393:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -6461,10 +6461,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5389:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5394:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5390:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5395:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -6472,7 +6472,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5391:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5396:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -6491,7 +6491,7 @@ lab_endgetargs:; /*^compute */ /*_.BINDEXPR__V24*/ meltfptr[23] = (melt_pair_head ((melt_ptr_t) ( /*_.SECPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:5395:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5400:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6515,7 +6515,7 @@ lab_endgetargs:; /*_.EXPRTUP__V29*/ meltfptr[28] = ( /*nil */ NULL);; /*^compute */ /*_.BODYTUP__V30*/ meltfptr[29] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:5404:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5409:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -6526,7 +6526,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5405:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5410:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L8*/ meltfnum[0] = @@ -6534,7 +6534,7 @@ lab_endgetargs:; ( /*_.BINDEXPR__V24*/ meltfptr[23]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5405:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5410:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6542,10 +6542,10 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5406:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5411:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5408:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5413:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -6558,7 +6558,7 @@ lab_endgetargs:; /*_.LIST_FIRST__V35*/ meltfptr[34] = (melt_list_first ((melt_ptr_t) ( /*_.SEXP_CONTENTS__V34*/ meltfptr[33])));; - MELT_LOCATION ("warmelt-macro.melt:5410:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5415:/ quasiblock"); /*^newclosure */ @@ -6588,7 +6588,7 @@ lab_endgetargs:; ; /*_.LAMBDA___V36*/ meltfptr[35] = /*_.LAMBDA___V37*/ meltfptr[36];; - MELT_LOCATION ("warmelt-macro.melt:5407:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5412:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6622,7 +6622,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[5])), ( /*_#NBRECBIND__L9*/ meltfnum[8])));; - MELT_LOCATION ("warmelt-macro.melt:5417:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5422:/ compute"); /*_#NBIND__L7*/ meltfnum[1] = /*_#SETQ___L10*/ meltfnum[9] = /*_#NBRECBIND__L9*/ meltfnum[8];; /*_.MAKE_MULTIPLE__V40*/ meltfptr[39] = @@ -6630,7 +6630,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[5])), ( /*_#NBIND__L7*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-macro.melt:5418:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5423:/ compute"); /*_.BINDTUP__V26*/ meltfptr[25] = /*_.SETQ___V41*/ meltfptr[40] = /*_.MAKE_MULTIPLE__V40*/ meltfptr[39];; @@ -6639,7 +6639,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[5])), ( /*_#NBIND__L7*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-macro.melt:5419:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5424:/ compute"); /*_.SRCBINDTUP__V27*/ meltfptr[26] = /*_.SETQ___V43*/ meltfptr[42] = /*_.MAKE_MULTIPLE__V42*/ meltfptr[41];; @@ -6648,7 +6648,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[5])), ( /*_#NBIND__L7*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-macro.melt:5420:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5425:/ compute"); /*_.VARTUP__V28*/ meltfptr[27] = /*_.SETQ___V45*/ meltfptr[44] = /*_.MAKE_MULTIPLE__V44*/ meltfptr[43];; @@ -6657,7 +6657,7 @@ lab_endgetargs:; ((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[5])), ( /*_#NBIND__L7*/ meltfnum[1])));; - MELT_LOCATION ("warmelt-macro.melt:5421:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5426:/ compute"); /*_.EXPRTUP__V29*/ meltfptr[28] = /*_.SETQ___V47*/ meltfptr[46] = /*_.MAKE_MULTIPLE__V46*/ meltfptr[45];; @@ -6683,7 +6683,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5426:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5431:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6709,7 +6709,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5426:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5431:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -6725,7 +6725,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:5426:/ checksignal"); + ("warmelt-macro.melt:5431:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6740,7 +6740,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5426; + argtab[2].meltbp_long = 5431; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_letrec firstloop curbindexpr"; @@ -6766,7 +6766,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:5426:/ clear"); + ("warmelt-macro.melt:5431:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0; /*^clear */ @@ -6782,7 +6782,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:5426:/ quasiblock"); + ("warmelt-macro.melt:5431:/ quasiblock"); /*_.PROGN___V52*/ meltfptr[50] = @@ -6792,7 +6792,7 @@ lab_endgetargs:; /*_.PROGN___V52*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5426:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5431:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V50*/ meltfptr[49] = 0; @@ -6805,7 +6805,7 @@ lab_endgetargs:; /*_.IFCPP___V49*/ meltfptr[48] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5427:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5432:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L14*/ meltfnum[12] = @@ -6813,7 +6813,7 @@ lab_endgetargs:; ( /*_.CURBINDEXPR__V48*/ meltfptr[47]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5427:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5432:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L14*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -6822,14 +6822,14 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5429:/ quasiblock"); + ("warmelt-macro.melt:5434:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION - ("warmelt-macro.melt:5429:/ locexp"); + ("warmelt-macro.melt:5434:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -6848,7 +6848,7 @@ lab_endgetargs:; /*_.RETURN___V54*/ meltfptr[50];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5427:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5432:/ clear"); /*clear *//*_.RETURN___V54*/ meltfptr[50] = 0; } ; @@ -6859,7 +6859,7 @@ lab_endgetargs:; /*_.IF___V53*/ meltfptr[49] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5430:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5435:/ quasiblock"); /*^cond */ @@ -6889,7 +6889,7 @@ lab_endgetargs:; /*_.CURCONT__V55*/ meltfptr[50] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5431:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5436:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -6928,7 +6928,7 @@ lab_endgetargs:; /*_.CURSYMB__V59*/ meltfptr[58] = ( /*nil */ NULL);; /*^compute */ /*_.CURSEXPR__V60*/ meltfptr[59] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:5437:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5442:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L15*/ meltfnum[11] = @@ -6936,7 +6936,7 @@ lab_endgetargs:; ( /*_.CURCOMP__V58*/ meltfptr[57]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-macro.melt:5437:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5442:/ cond"); /*cond */ if ( /*_#IS_A__L15*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -6949,7 +6949,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5438:/ locexp"); + ("warmelt-macro.melt:5443:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.CURLOC__V56*/ @@ -6966,14 +6966,14 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:5437:/ cond.else"); + ("warmelt-macro.melt:5442:/ cond.else"); /*^block */ /*anyblock */ { MELT_LOCATION - ("warmelt-macro.melt:5440:/ checksignal"); + ("warmelt-macro.melt:5445:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L16*/ meltfnum[15] = @@ -6981,7 +6981,7 @@ lab_endgetargs:; ( /*_.CURCOMP__V58*/ meltfptr[57]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-macro.melt:5440:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5445:/ cond"); /*cond */ if ( /*_#IS_A__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -6990,7 +6990,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5441:/ compute"); + ("warmelt-macro.melt:5446:/ compute"); /*_.CURSYMB__V59*/ meltfptr[58] = /*_.SETQ___V63*/ meltfptr[62] = /*_.CURCOMP__V58*/ meltfptr[57];; @@ -6999,7 +6999,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:5440:/ clear"); + ("warmelt-macro.melt:5445:/ clear"); /*clear *//*_.SETQ___V63*/ meltfptr[62] = 0; } ; @@ -7014,7 +7014,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5444:/ locexp"); + ("warmelt-macro.melt:5449:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.CURLOC__V56*/ @@ -7024,7 +7024,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:5443:/ quasiblock"); + ("warmelt-macro.melt:5448:/ quasiblock"); /*epilog */ @@ -7036,7 +7036,7 @@ lab_endgetargs:; /*_.IFELSE___V62*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5437:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5442:/ clear"); /*clear *//*_#IS_A__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IFELSE___V62*/ meltfptr[61] = 0; @@ -7047,18 +7047,18 @@ lab_endgetargs:; /*_.PAIR_TAIL__V64*/ meltfptr[62] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V57*/ meltfptr[56])));; - MELT_LOCATION ("warmelt-macro.melt:5446:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5451:/ compute"); /*_.CURPAIR__V57*/ meltfptr[56] = /*_.SETQ___V65*/ meltfptr[61] = /*_.PAIR_TAIL__V64*/ meltfptr[62];; /*_.PAIR_HEAD__V66*/ meltfptr[65] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V57*/ meltfptr[56])));; - MELT_LOCATION ("warmelt-macro.melt:5447:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5452:/ compute"); /*_.CURCOMP__V58*/ meltfptr[57] = /*_.SETQ___V67*/ meltfptr[66] = /*_.PAIR_HEAD__V66*/ meltfptr[65];; - MELT_LOCATION ("warmelt-macro.melt:5448:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5453:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L17*/ meltfnum[15] = @@ -7068,7 +7068,7 @@ lab_endgetargs:; (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5448:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5453:/ cond"); /*cond */ if ( /*_#IS_A__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -7077,7 +7077,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5449:/ checksignal"); + ("warmelt-macro.melt:5454:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L18*/ meltfnum[17] = @@ -7085,7 +7085,7 @@ lab_endgetargs:; ( /*_.CURSYMB__V59*/ meltfptr[58]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-macro.melt:5449:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5454:/ cond"); /*cond */ if ( /*_#IS_A__L18*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -7094,14 +7094,14 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5451:/ compute"); + ("warmelt-macro.melt:5456:/ compute"); /*_.CURSEXPR__V60*/ meltfptr[59] = /*_.SETQ___V68*/ meltfptr[67] = /*_.CURCOMP__V58*/ meltfptr[57];; { MELT_LOCATION - ("warmelt-macro.melt:5452:/ locexp"); + ("warmelt-macro.melt:5457:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) ( /*_.RECSEXPRTUP__V39*/ meltfptr[38]), ( /*_#BINDIX__L11*/ meltfnum[10]), (melt_ptr_t) ( /*_.CURSEXPR__V60*/ meltfptr[59])); } @@ -7109,19 +7109,19 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5453:/ locexp"); + ("warmelt-macro.melt:5458:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) ( /*_.VARTUP__V28*/ meltfptr[27]), ( /*_#BINDIX__L11*/ meltfnum[10]), (melt_ptr_t) ( /*_.CURSYMB__V59*/ meltfptr[58])); } ; MELT_LOCATION - ("warmelt-macro.melt:5450:/ quasiblock"); + ("warmelt-macro.melt:5455:/ quasiblock"); /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:5449:/ clear"); + ("warmelt-macro.melt:5454:/ clear"); /*clear *//*_.SETQ___V68*/ meltfptr[67] = 0; } ; @@ -7129,7 +7129,7 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5448:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5453:/ clear"); /*clear *//*_#IS_A__L18*/ meltfnum[17] = 0; } ; @@ -7144,7 +7144,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5455:/ locexp"); + ("warmelt-macro.melt:5460:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.CURLOC__V56*/ @@ -7158,13 +7158,13 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:5456:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5461:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V69*/ meltfptr[67] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V57*/ meltfptr[56])));; - MELT_LOCATION ("warmelt-macro.melt:5456:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5461:/ cond"); /*cond */ if ( /*_.PAIR_TAIL__V69*/ meltfptr[67]) /*then */ { /*^cond.then */ @@ -7175,7 +7175,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5457:/ locexp"); + ("warmelt-macro.melt:5462:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.CURLOC__V56*/ @@ -7190,7 +7190,7 @@ lab_endgetargs:; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5430:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5435:/ clear"); /*clear *//*_.CURCONT__V55*/ meltfptr[50] = 0; /*^clear */ /*clear *//*_.CURLOC__V56*/ meltfptr[55] = 0; @@ -7224,7 +7224,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:5423:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5428:/ clear"); /*clear *//*_.CURBINDEXPR__V48*/ meltfptr[47] = 0; /*^clear */ /*clear *//*_#BINDIX__L11*/ meltfnum[10] = 0; @@ -7238,7 +7238,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5459:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5464:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7264,7 +7264,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5459:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5464:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -7280,7 +7280,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:5459:/ checksignal"); + ("warmelt-macro.melt:5464:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7294,7 +7294,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5459; + argtab[2].meltbp_long = 5464; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_letrec recsexprtup after firstloop"; @@ -7317,7 +7317,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V72*/ meltfptr[56];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5459:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5464:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[11] = 0; /*^clear */ @@ -7331,7 +7331,7 @@ lab_endgetargs:; /*_.IF___V71*/ meltfptr[55] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5459:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5464:/ quasiblock"); /*_.PROGN___V73*/ meltfptr[57] = @@ -7341,7 +7341,7 @@ lab_endgetargs:; /*_.PROGN___V73*/ meltfptr[57];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5459:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5464:/ clear"); /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[17] = 0; /*^clear */ /*clear *//*_.IF___V71*/ meltfptr[55] = 0; @@ -7356,7 +7356,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5460:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5465:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7382,7 +7382,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5460:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5465:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -7398,7 +7398,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:5460:/ checksignal"); + ("warmelt-macro.melt:5465:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7412,7 +7412,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5460; + argtab[2].meltbp_long = 5465; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_letrec vartup after firstloop"; @@ -7434,7 +7434,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V76*/ meltfptr[60];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5460:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5465:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[11] = 0; /*^clear */ @@ -7448,7 +7448,7 @@ lab_endgetargs:; /*_.IF___V75*/ meltfptr[59] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5460:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5465:/ quasiblock"); /*_.PROGN___V77*/ meltfptr[62] = @@ -7458,7 +7458,7 @@ lab_endgetargs:; /*_.PROGN___V77*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5460:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5465:/ clear"); /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V75*/ meltfptr[59] = 0; @@ -7471,7 +7471,7 @@ lab_endgetargs:; /*_.IFCPP___V74*/ meltfptr[58] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5463:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5468:/ quasiblock"); /*^cond */ @@ -7522,7 +7522,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5468:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5473:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7548,7 +7548,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5468:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5473:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L24*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -7564,7 +7564,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:5468:/ checksignal"); + ("warmelt-macro.melt:5473:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7579,7 +7579,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5468; + argtab[2].meltbp_long = 5473; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_letrec second loop curvar"; @@ -7605,7 +7605,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:5468:/ clear"); + ("warmelt-macro.melt:5473:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L25*/ meltfnum[15] = 0; /*^clear */ @@ -7621,7 +7621,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:5468:/ quasiblock"); + ("warmelt-macro.melt:5473:/ quasiblock"); /*_.PROGN___V83*/ meltfptr[55] = @@ -7631,7 +7631,7 @@ lab_endgetargs:; /*_.PROGN___V83*/ meltfptr[55];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5468:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5473:/ clear"); /*clear *//*_#MELT_NEED_DBG__L24*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V81*/ meltfptr[67] = 0; @@ -7644,7 +7644,7 @@ lab_endgetargs:; /*_.IFCPP___V80*/ meltfptr[66] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5469:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5474:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAPOBJECT_GET__V84*/ meltfptr[57] = @@ -7653,7 +7653,7 @@ lab_endgetargs:; ( /*_.ENVMAP__V78*/ meltfptr[61]), (meltobject_ptr_t) ( /*_.CURVAR__V79*/ meltfptr[65]));; - MELT_LOCATION ("warmelt-macro.melt:5469:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5474:/ cond"); /*cond */ if ( /*_.MAPOBJECT_GET__V84*/ meltfptr[57]) /*then */ { /*^cond.then */ @@ -7661,7 +7661,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5471:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5476:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7691,7 +7691,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5470:/ locexp"); + ("warmelt-macro.melt:5475:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("repeated variable in LETREC binding"), @@ -7700,13 +7700,13 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5469:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5474:/ clear"); /*clear *//*_.NAMED_NAME__V85*/ meltfptr[60] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5473:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5478:/ quasiblock"); /*^checksignal */ @@ -7768,7 +7768,7 @@ lab_endgetargs:; ; /*_.CURBIND__V86*/ meltfptr[59] = /*_.INST__V87*/ meltfptr[62];; - MELT_LOCATION ("warmelt-macro.melt:5479:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5484:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7791,7 +7791,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:5480:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5485:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) ( /*_.BINDTUP__V26*/ meltfptr[25]), @@ -7801,7 +7801,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-macro.melt:5473:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5478:/ clear"); /*clear *//*_.CURBIND__V86*/ meltfptr[59] = 0; /*^clear */ /*clear *//*_.PUT_ENV__V88*/ meltfptr[56] = 0; @@ -7811,7 +7811,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:5465:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5470:/ clear"); /*clear *//*_.CURVAR__V79*/ meltfptr[65] = 0; /*^clear */ /*clear *//*_#VARIX__L23*/ meltfnum[17] = 0; @@ -7822,11 +7822,11 @@ lab_endgetargs:; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-macro.melt:5463:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5468:/ clear"); /*clear *//*_.ENVMAP__V78*/ meltfptr[61] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5482:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5487:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7852,7 +7852,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5482:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5487:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -7868,7 +7868,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:5482:/ checksignal"); + ("warmelt-macro.melt:5487:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7882,7 +7882,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5482; + argtab[2].meltbp_long = 5487; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_letrec bindtup after secondloop"; @@ -7904,7 +7904,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V91*/ meltfptr[60];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5482:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5487:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L27*/ meltfnum[11] = 0; /*^clear */ @@ -7918,7 +7918,7 @@ lab_endgetargs:; /*_.IF___V90*/ meltfptr[55] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5482:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5487:/ quasiblock"); /*_.PROGN___V92*/ meltfptr[59] = @@ -7928,7 +7928,7 @@ lab_endgetargs:; /*_.PROGN___V92*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5482:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5487:/ clear"); /*clear *//*_#MELT_NEED_DBG__L26*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V90*/ meltfptr[55] = 0; @@ -7961,10 +7961,10 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-macro.melt:5488:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5493:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5489:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5494:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -7991,7 +7991,7 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V94*/ meltfptr[61] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5489:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5494:/ cond"); /*cond */ if ( /*_.LOCA_LOCATION__V94*/ meltfptr[61]) /*then */ { /*^cond.then */ @@ -8001,13 +8001,13 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:5489:/ cond.else"); + ("warmelt-macro.melt:5494:/ cond.else"); /*_.CURLOC__V95*/ meltfptr[60] = /*_.LOC__V20*/ meltfptr[19];; } ; - MELT_LOCATION ("warmelt-macro.melt:5490:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5495:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8038,7 +8038,7 @@ lab_endgetargs:; (melt_multiple_nth ((melt_ptr_t) ( /*_.BINDTUP__V26*/ meltfptr[25]), ( /*_#EXPIX__L28*/ meltfnum[11])));; - MELT_LOCATION ("warmelt-macro.melt:5493:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5498:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -8056,7 +8056,7 @@ lab_endgetargs:; /*_#NULL__L29*/ meltfnum[15] = (( /*_.IS_RECURSIVELY_CONSTRUCTIBLE__V98*/ meltfptr[97]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:5493:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5498:/ cond"); /*cond */ if ( /*_#NULL__L29*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -8067,7 +8067,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5495:/ locexp"); + ("warmelt-macro.melt:5500:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.CURLOC__V95*/ @@ -8077,14 +8077,14 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:5496:/ quasiblock"); + ("warmelt-macro.melt:5501:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION - ("warmelt-macro.melt:5496:/ locexp"); + ("warmelt-macro.melt:5501:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -8100,7 +8100,7 @@ lab_endgetargs:; ; /*finalret */ goto labend_rout; MELT_LOCATION - ("warmelt-macro.melt:5494:/ quasiblock"); + ("warmelt-macro.melt:5499:/ quasiblock"); /*_.PROGN___V101*/ meltfptr[100] = @@ -8110,7 +8110,7 @@ lab_endgetargs:; /*_.PROGN___V101*/ meltfptr[100];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5493:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5498:/ clear"); /*clear *//*_.RETURN___V100*/ meltfptr[99] = 0; /*^clear */ /*clear *//*_.PROGN___V101*/ meltfptr[100] = 0; @@ -8123,7 +8123,7 @@ lab_endgetargs:; /*_.IF___V99*/ meltfptr[98] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5497:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5502:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -8167,7 +8167,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:5498:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5503:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) ( /*_.EXPRTUP__V29*/ meltfptr[28]), @@ -8176,13 +8176,13 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.CUREXP__V96*/ meltfptr[55])); } ; - MELT_LOCATION ("warmelt-macro.melt:5499:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5504:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5500:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5505:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:5501:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5506:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -8210,7 +8210,7 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V102*/ meltfptr[99] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5501:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5506:/ cond"); /*cond */ if ( /*_.LOCA_LOCATION__V102*/ meltfptr[99]) /*then */ { /*^cond.then */ @@ -8220,7 +8220,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:5501:/ cond.else"); + ("warmelt-macro.melt:5506:/ cond.else"); /*_.OR___V103*/ meltfptr[100] = /*_.LOC__V20*/ meltfptr[19];; @@ -8231,7 +8231,7 @@ lab_endgetargs:; (melt_multiple_nth ((melt_ptr_t) ( /*_.VARTUP__V28*/ meltfptr[27]), ( /*_#EXPIX__L28*/ meltfnum[11])));; - MELT_LOCATION ("warmelt-macro.melt:5500:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5505:/ quasiblock"); /*^rawallocobj */ @@ -8302,7 +8302,7 @@ lab_endgetargs:; /*_.INST__V106*/ meltfptr[105];; { - MELT_LOCATION ("warmelt-macro.melt:5507:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5512:/ locexp"); meltgc_multiple_put_nth ((melt_ptr_t) ( /*_.SRCBINDTUP__V27*/ meltfptr[26]), @@ -8312,7 +8312,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-macro.melt:5499:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5504:/ clear"); /*clear *//*_.LOCA_LOCATION__V102*/ meltfptr[99] = 0; /*^clear */ /*clear *//*_.OR___V103*/ meltfptr[100] = 0; @@ -8321,7 +8321,7 @@ lab_endgetargs:; /*^clear */ /*clear *//*_.SBIND__V105*/ meltfptr[104] = 0; - MELT_LOCATION ("warmelt-macro.melt:5488:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5493:/ clear"); /*clear *//*_.LOCA_LOCATION__V94*/ meltfptr[61] = 0; /*^clear */ /*clear *//*_.CURLOC__V95*/ meltfptr[60] = 0; @@ -8342,7 +8342,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:5485:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5490:/ clear"); /*clear *//*_.CURSEXPR__V93*/ meltfptr[56] = 0; /*^clear */ /*clear *//*_#EXPIX__L28*/ meltfnum[11] = 0; @@ -8350,7 +8350,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5509:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5514:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8376,7 +8376,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5509:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5514:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L30*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -8392,7 +8392,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:5509:/ checksignal"); + ("warmelt-macro.melt:5514:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8406,7 +8406,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5509; + argtab[2].meltbp_long = 5514; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_letrec exprtup after thirdloop"; @@ -8428,7 +8428,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V109*/ meltfptr[103];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5509:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5514:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L31*/ meltfnum[30] = 0; /*^clear */ @@ -8443,7 +8443,7 @@ lab_endgetargs:; /*_.IF___V108*/ meltfptr[100] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5509:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5514:/ quasiblock"); /*_.PROGN___V110*/ meltfptr[104] = @@ -8453,7 +8453,7 @@ lab_endgetargs:; /*_.PROGN___V110*/ meltfptr[104];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5509:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5514:/ clear"); /*clear *//*_#MELT_NEED_DBG__L30*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V108*/ meltfptr[100] = 0; @@ -8470,7 +8470,7 @@ lab_endgetargs:; /*_.LET___V33*/ meltfptr[32] = /*_.IFCPP___V107*/ meltfptr[99];; - MELT_LOCATION ("warmelt-macro.melt:5406:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5411:/ clear"); /*clear *//*_.SEXP_CONTENTS__V34*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.LIST_FIRST__V35*/ meltfptr[34] = 0; @@ -8512,7 +8512,7 @@ lab_endgetargs:; /*_.LET___V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5405:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5410:/ clear"); /*clear *//*_.LET___V33*/ meltfptr[32] = 0; } ; @@ -8528,7 +8528,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5511:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5516:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -8546,7 +8546,7 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[30] = /*_.IFELSE___V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5404:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5409:/ clear"); /*clear *//*_#IS_A__L8*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V32*/ meltfptr[31] = 0; @@ -8561,7 +8561,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5513:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5518:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8587,7 +8587,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5513:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5518:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L32*/ meltfnum[30]) /*then */ { /*^cond.then */ @@ -8602,7 +8602,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5513:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5518:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8616,7 +8616,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5513; + argtab[2].meltbp_long = 5518; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_letrec srcbindtup"; /*^apply.arg */ @@ -8636,7 +8636,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V113*/ meltfptr[55];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5513:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5518:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L33*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V113*/ meltfptr[55] = 0; @@ -8649,7 +8649,7 @@ lab_endgetargs:; /*_.IF___V112*/ meltfptr[60] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5513:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5518:/ quasiblock"); /*_.PROGN___V114*/ meltfptr[59] = /*_.IF___V112*/ meltfptr[60];; @@ -8657,7 +8657,7 @@ lab_endgetargs:; /*_.IFCPP___V111*/ meltfptr[61] = /*_.PROGN___V114*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5513:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5518:/ clear"); /*clear *//*_#MELT_NEED_DBG__L32*/ meltfnum[30] = 0; /*^clear */ /*clear *//*_.IF___V112*/ meltfptr[60] = 0; @@ -8670,7 +8670,7 @@ lab_endgetargs:; /*_.IFCPP___V111*/ meltfptr[61] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5516:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5521:/ quasiblock"); /*^newclosure */ @@ -8721,7 +8721,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]); ; /*_.LAMBDA___V115*/ meltfptr[97] = /*_.LAMBDA___V116*/ meltfptr[98];; - MELT_LOCATION ("warmelt-macro.melt:5514:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5519:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8746,7 +8746,7 @@ lab_endgetargs:; /*^compute */ /*_.BODYTUP__V30*/ meltfptr[29] = /*_.SETQ___V118*/ meltfptr[100] = /*_.PAIRLIST_TO_MULTIPLE__V117*/ meltfptr[103];; - MELT_LOCATION ("warmelt-macro.melt:5517:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5522:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#MULTIPLE_LENGTH__L34*/ meltfnum[8] = @@ -8755,7 +8755,7 @@ lab_endgetargs:; /*^compute */ /*_#I__L35*/ meltfnum[9] = (( /*_#MULTIPLE_LENGTH__L34*/ meltfnum[8]) <= (0));; - MELT_LOCATION ("warmelt-macro.melt:5517:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5522:/ cond"); /*cond */ if ( /*_#I__L35*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -8765,7 +8765,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5518:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5523:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("emptyy body in LETREC"), (melt_ptr_t) 0); @@ -8776,10 +8776,10 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5519:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5524:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5520:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5525:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -8833,7 +8833,7 @@ lab_endgetargs:; /*_.LETR__V120*/ meltfptr[33] = /*_.INST__V121*/ meltfptr[34];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5524:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5529:/ cppif.then"); /*^block */ /*anyblock */ { @@ -8859,7 +8859,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5524:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5529:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L36*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -8874,7 +8874,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5524:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5529:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -8888,7 +8888,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5524; + argtab[2].meltbp_long = 5529; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_letrec result"; /*^apply.arg */ @@ -8908,7 +8908,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V124*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5524:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5529:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L37*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V124*/ meltfptr[38] = 0; @@ -8921,7 +8921,7 @@ lab_endgetargs:; /*_.IF___V123*/ meltfptr[37] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5524:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5529:/ quasiblock"); /*_.PROGN___V125*/ meltfptr[39] = /*_.IF___V123*/ meltfptr[37];; @@ -8929,7 +8929,7 @@ lab_endgetargs:; /*_.IFCPP___V122*/ meltfptr[35] = /*_.PROGN___V125*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5524:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5529:/ clear"); /*clear *//*_#MELT_NEED_DBG__L36*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V123*/ meltfptr[37] = 0; @@ -8942,7 +8942,7 @@ lab_endgetargs:; /*_.IFCPP___V122*/ meltfptr[35] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5525:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5530:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -8951,7 +8951,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LETR__V120*/ meltfptr[33];; { - MELT_LOCATION ("warmelt-macro.melt:5525:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5530:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -8966,7 +8966,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V119*/ meltfptr[104] = /*_.RETURN___V126*/ meltfptr[40];; - MELT_LOCATION ("warmelt-macro.melt:5519:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5524:/ clear"); /*clear *//*_.LETR__V120*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.IFCPP___V122*/ meltfptr[35] = 0; @@ -8974,7 +8974,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V126*/ meltfptr[40] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V119*/ meltfptr[104];; - MELT_LOCATION ("warmelt-macro.melt:5389:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5394:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -9016,7 +9016,7 @@ lab_endgetargs:; /*clear *//*_#I__L35*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.LET___V119*/ meltfptr[104] = 0; - MELT_LOCATION ("warmelt-macro.melt:5383:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -9025,7 +9025,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:5383:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9149,7 +9149,7 @@ meltrout_109_warmelt_macro_LAMBDA___26__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5410:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5415:/ getarg"); /*_.BX__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -9159,14 +9159,14 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:5411:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5416:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.BX__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5411:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5416:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9176,7 +9176,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5412:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5417:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) (( /*~LOC */ meltfclos->tabval[0])), @@ -9189,7 +9189,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5410:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5415:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -9198,7 +9198,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.BX__V2*/ meltfptr[1];; { - MELT_LOCATION ("warmelt-macro.melt:5410:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5415:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9312,7 +9312,7 @@ meltrout_110_warmelt_macro_LAMBDA___27__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5516:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5521:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -9353,7 +9353,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:5516:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5521:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -9467,7 +9467,7 @@ meltrout_111_warmelt_macro_MEXPAND_LAMBDA (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5538:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -9508,7 +9508,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5539:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5544:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9520,7 +9520,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5539:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5544:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9528,7 +9528,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5539:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5544:/ cond.else"); /*^block */ /*anyblock */ @@ -9542,7 +9542,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5539) ? (5539) : __LINE__, __FUNCTION__); + (5544) ? (5544) : __LINE__, __FUNCTION__); ; } ; @@ -9556,7 +9556,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5539:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5544:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -9569,7 +9569,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5540:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5545:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9581,7 +9581,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5540:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5545:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9589,7 +9589,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5540:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5545:/ cond.else"); /*^block */ /*anyblock */ @@ -9603,7 +9603,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5540) ? (5540) : __LINE__, __FUNCTION__); + (5545) ? (5545) : __LINE__, __FUNCTION__); ; } ; @@ -9617,7 +9617,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5540:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5545:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -9630,7 +9630,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5541:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5546:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9641,7 +9641,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:5541:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5546:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9649,7 +9649,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5541:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5546:/ cond.else"); /*^block */ /*anyblock */ @@ -9663,7 +9663,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5541) ? (5541) : __LINE__, __FUNCTION__); + (5546) ? (5546) : __LINE__, __FUNCTION__); ; } ; @@ -9677,7 +9677,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5541:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5546:/ clear"); /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -9690,7 +9690,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5542:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5547:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9701,7 +9701,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:5542:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5547:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9709,7 +9709,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5542:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5547:/ cond.else"); /*^block */ /*anyblock */ @@ -9723,7 +9723,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5542) ? (5542) : __LINE__, __FUNCTION__); + (5547) ? (5547) : __LINE__, __FUNCTION__); ; } ; @@ -9737,7 +9737,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5542:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5547:/ clear"); /*clear *//*_#IS_CLOSURE__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -9748,7 +9748,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5543:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5548:/ quasiblock"); /*^getslot */ @@ -9759,7 +9759,7 @@ lab_endgetargs:; /*_.CONT__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5544:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5549:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -9772,7 +9772,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V18*/ meltfptr[17] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));; - MELT_LOCATION ("warmelt-macro.melt:5546:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5551:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9787,7 +9787,7 @@ lab_endgetargs:; ; /*_.FORMALS__V20*/ meltfptr[19] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:5550:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5555:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -9795,7 +9795,7 @@ lab_endgetargs:; ; /*_#NOTNULL__L5*/ meltfnum[0] = (( /*_.FORMALS__V20*/ meltfptr[19]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:5550:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5555:/ cond"); /*cond */ if ( /*_#NOTNULL__L5*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -9812,7 +9812,7 @@ lab_endgetargs:; /*_#IF___L6*/ meltfnum[5] = /*_#IS_NOT_A__L7*/ meltfnum[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5550:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5555:/ clear"); /*clear *//*_#IS_NOT_A__L7*/ meltfnum[6] = 0; } ; @@ -9823,7 +9823,7 @@ lab_endgetargs:; /*_#IF___L6*/ meltfnum[5] = 0;; } ; - MELT_LOCATION ("warmelt-macro.melt:5550:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5555:/ cond"); /*cond */ if ( /*_#IF___L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -9833,7 +9833,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5551:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5556:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("missing formal argument list in (LAMBDA (arglist...) body...)"), @@ -9845,7 +9845,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5552:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5557:/ quasiblock"); /*^checksignal */ @@ -9868,7 +9868,7 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V23*/ meltfptr[22] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:5553:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5558:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V24*/ meltfptr[23] = /*_.PAIR_TAIL__V23*/ meltfptr[22];; /*citerblock FOREACH_IN_MULTIPLE */ @@ -9889,7 +9889,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5557:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5562:/ cppif.then"); /*^block */ /*anyblock */ { @@ -9901,7 +9901,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.LB__V25*/ meltfptr[24]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:5557:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5562:/ cond"); /*cond */ if ( /*_#IS_A__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -9909,7 +9909,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5557:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5562:/ cond.else"); /*^block */ /*anyblock */ @@ -9923,7 +9923,7 @@ lab_endgetargs:; melt_assert_failed (("check lb"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5557) ? (5557) : __LINE__, + (5562) ? (5562) : __LINE__, __FUNCTION__); ; } @@ -9938,7 +9938,7 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[25] = /*_.IFELSE___V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5557:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5562:/ clear"); /*clear *//*_#IS_A__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IFELSE___V27*/ meltfptr[26] = 0; @@ -9949,7 +9949,7 @@ lab_endgetargs:; /*_.IFCPP___V26*/ meltfptr[25] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5558:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5563:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -9974,7 +9974,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:5554:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5559:/ clear"); /*clear *//*_.LB__V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_#IX__L8*/ meltfnum[6] = 0; @@ -9984,10 +9984,10 @@ lab_endgetargs:; /*clear *//*_.PUT_ENV__V28*/ meltfptr[26] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-macro.melt:5559:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5564:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5561:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5566:/ quasiblock"); /*^newclosure */ @@ -10038,7 +10038,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]); ; /*_.LAMBDA___V30*/ meltfptr[29] = /*_.LAMBDA___V31*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:5559:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5564:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10060,7 +10060,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5563:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5568:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -10111,7 +10111,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.LAMBR__V33*/ meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; - MELT_LOCATION ("warmelt-macro.melt:5568:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5573:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -10120,7 +10120,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LAMBR__V33*/ meltfptr[32];; { - MELT_LOCATION ("warmelt-macro.melt:5568:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5573:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10135,7 +10135,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V29*/ meltfptr[28] = /*_.RETURN___V35*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:5559:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5564:/ clear"); /*clear *//*_.LAMBDA___V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.BODYTUP__V32*/ meltfptr[31] = 0; @@ -10145,7 +10145,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V35*/ meltfptr[34] = 0; /*_.LET___V21*/ meltfptr[20] = /*_.LET___V29*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:5552:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5557:/ clear"); /*clear *//*_.ARGTUP__V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.PAIR_TAIL__V23*/ meltfptr[22] = 0; @@ -10155,7 +10155,7 @@ lab_endgetargs:; /*clear *//*_.LET___V29*/ meltfptr[28] = 0; /*_.LET___V14*/ meltfptr[12] = /*_.LET___V21*/ meltfptr[20];; - MELT_LOCATION ("warmelt-macro.melt:5543:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5548:/ clear"); /*clear *//*_.CONT__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; @@ -10173,7 +10173,7 @@ lab_endgetargs:; /*clear *//*_#IF___L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.LET___V21*/ meltfptr[20] = 0; - MELT_LOCATION ("warmelt-macro.melt:5538:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -10182,7 +10182,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:5538:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10304,7 +10304,7 @@ meltrout_112_warmelt_macro_LAMBDA___28__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5561:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5566:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -10345,7 +10345,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:5561:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5566:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10461,7 +10461,7 @@ meltrout_113_warmelt_macro_MEXPAND_VARIADIC (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5589:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -10502,7 +10502,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5590:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5595:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10514,7 +10514,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5590:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5595:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10522,7 +10522,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5590:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5595:/ cond.else"); /*^block */ /*anyblock */ @@ -10536,7 +10536,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5590) ? (5590) : __LINE__, __FUNCTION__); + (5595) ? (5595) : __LINE__, __FUNCTION__); ; } ; @@ -10550,7 +10550,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5590:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5595:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -10563,7 +10563,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5591:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5596:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10575,7 +10575,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5591:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5596:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10583,7 +10583,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5591:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5596:/ cond.else"); /*^block */ /*anyblock */ @@ -10597,7 +10597,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5591) ? (5591) : __LINE__, __FUNCTION__); + (5596) ? (5596) : __LINE__, __FUNCTION__); ; } ; @@ -10611,7 +10611,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5591:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5596:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -10624,7 +10624,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5592:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5597:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10635,7 +10635,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:5592:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5597:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -10643,7 +10643,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5592:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5597:/ cond.else"); /*^block */ /*anyblock */ @@ -10657,7 +10657,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5592) ? (5592) : __LINE__, __FUNCTION__); + (5597) ? (5597) : __LINE__, __FUNCTION__); ; } ; @@ -10671,7 +10671,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5592:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5597:/ clear"); /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -10682,7 +10682,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5593:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5598:/ quasiblock"); /*^getslot */ @@ -10693,7 +10693,7 @@ lab_endgetargs:; /*_.CONT__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5594:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5599:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -10706,7 +10706,7 @@ lab_endgetargs:; /*^compute */ /*_.FIRSTPAIR__V16*/ meltfptr[15] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V15*/ meltfptr[14])));; - MELT_LOCATION ("warmelt-macro.melt:5596:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5601:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -10753,7 +10753,7 @@ lab_endgetargs:; (meltgc_new_mapobjects ((meltobject_ptr_t) (( /*!DISCR_MAP_OBJECTS */ meltfrout->tabval[3])), ( /*_#I__L6*/ meltfnum[5])));; - MELT_LOCATION ("warmelt-macro.melt:5598:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5603:/ quasiblock"); /*^newclosure */ @@ -10795,7 +10795,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5605:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5610:/ cppif.then"); /*^block */ /*anyblock */ { @@ -10821,7 +10821,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5605:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5610:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -10836,7 +10836,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5605:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5610:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -10850,7 +10850,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5605; + argtab[2].meltbp_long = 5610; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic curcase"; /*^apply.arg */ @@ -10871,7 +10871,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5605:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5610:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0; @@ -10884,7 +10884,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[24] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5605:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5610:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[25] = /*_.IF___V25*/ meltfptr[24];; @@ -10892,7 +10892,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[23] = /*_.PROGN___V27*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5605:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5610:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V25*/ meltfptr[24] = 0; @@ -10905,7 +10905,7 @@ lab_endgetargs:; /*_.IFCPP___V24*/ meltfptr[23] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5606:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5611:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L9*/ meltfnum[7] = @@ -10913,7 +10913,7 @@ lab_endgetargs:; ( /*_.CURCASE__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5606:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5611:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -10923,18 +10923,18 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5608:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5613:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("(VARIADIC variadic-case...) expects a list, so cannot have non-list\ components."), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5609:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5614:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:5609:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5614:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -10947,7 +10947,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5607:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5612:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = @@ -10956,7 +10956,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[24] = /*_.PROGN___V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5606:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5611:/ clear"); /*clear *//*_.RETURN___V29*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.PROGN___V30*/ meltfptr[29] = 0; @@ -10969,10 +10969,10 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[24] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5610:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5615:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5611:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5616:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CURCASE__V23*/ meltfptr[22]) /*=obj*/ ; @@ -10980,7 +10980,7 @@ lab_endgetargs:; /*_.CURCASELOC__V32*/ meltfptr[29] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5612:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5617:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.CURCASE__V23*/ meltfptr[22]) /*=obj*/ ; @@ -11001,7 +11001,7 @@ lab_endgetargs:; ((melt_ptr_t) ( /*_.CURCASEPAIR__V34*/ meltfptr[33])));; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5617:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5622:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11027,7 +11027,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5617:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5622:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -11042,7 +11042,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5617:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5622:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11056,7 +11056,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5617; + argtab[2].meltbp_long = 5622; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic casefirst="; /*^apply.arg */ @@ -11083,7 +11083,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5617:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5622:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0; @@ -11096,7 +11096,7 @@ lab_endgetargs:; /*_.IF___V38*/ meltfptr[37] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5617:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5622:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[38] = /*_.IF___V38*/ meltfptr[37];; @@ -11104,7 +11104,7 @@ lab_endgetargs:; /*_.IFCPP___V37*/ meltfptr[36] = /*_.PROGN___V40*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5617:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5622:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V38*/ meltfptr[37] = 0; @@ -11117,13 +11117,13 @@ lab_endgetargs:; /*_.IFCPP___V37*/ meltfptr[36] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5619:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5624:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#__L12*/ meltfnum[10] = (( /*_.CASEFIRST__V35*/ meltfptr[34]) == (( /*!konst_8_ELSE */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-macro.melt:5619:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5624:/ cond"); /*cond */ if ( /*_#__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -11131,13 +11131,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5620:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5625:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V42*/ meltfptr[38] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIRCASE__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:5620:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5625:/ cond"); /*cond */ if ( /*_.PAIR_TAIL__V42*/ meltfptr[38]) /*then */ { /*^cond.then */ @@ -11147,7 +11147,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5622:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5627:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.CURCASELOC__V32*/ @@ -11158,7 +11158,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:5623:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5628:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), @@ -11166,13 +11166,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5624:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5629:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:5624:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5629:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -11186,7 +11186,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5621:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5626:/ quasiblock"); /*_.PROGN___V45*/ meltfptr[44] = @@ -11196,7 +11196,7 @@ lab_endgetargs:; /*_.PROGN___V45*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5620:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5625:/ clear"); /*clear *//*_.RETURN___V44*/ meltfptr[43] = 0; /*^clear */ /*clear *//*_.PROGN___V45*/ meltfptr[44] = 0; @@ -11209,10 +11209,10 @@ lab_endgetargs:; /*_.IF___V43*/ meltfptr[42] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5625:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5630:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5628:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5633:/ quasiblock"); /*^newclosure */ @@ -11273,7 +11273,7 @@ lab_endgetargs:; ; /*_.LAMBDA___V47*/ meltfptr[44] = /*_.LAMBDA___V48*/ meltfptr[47];; - MELT_LOCATION ("warmelt-macro.melt:5625:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5630:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11300,7 +11300,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5630:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5635:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11326,7 +11326,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5630:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5635:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -11342,7 +11342,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:5630:/ checksignal"); + ("warmelt-macro.melt:5635:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11356,7 +11356,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5630; + argtab[2].meltbp_long = 5635; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic else bodytup before hookfun"; @@ -11378,7 +11378,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5630:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5635:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0; /*^clear */ @@ -11392,7 +11392,7 @@ lab_endgetargs:; /*_.IF___V51*/ meltfptr[50] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5630:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5635:/ quasiblock"); /*_.PROGN___V53*/ meltfptr[51] = @@ -11402,7 +11402,7 @@ lab_endgetargs:; /*_.PROGN___V53*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5630:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5635:/ clear"); /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V51*/ meltfptr[50] = 0; @@ -11417,7 +11417,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5631:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5636:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11443,7 +11443,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5631:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5636:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -11459,7 +11459,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:5631:/ checksignal"); + ("warmelt-macro.melt:5636:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11473,7 +11473,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5631; + argtab[2].meltbp_long = 5636; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic hookfun before"; @@ -11495,7 +11495,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V56*/ meltfptr[55];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5631:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5636:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[6] = 0; /*^clear */ @@ -11509,7 +11509,7 @@ lab_endgetargs:; /*_.IF___V55*/ meltfptr[51] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5631:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5636:/ quasiblock"); /*_.PROGN___V57*/ meltfptr[55] = @@ -11519,7 +11519,7 @@ lab_endgetargs:; /*_.PROGN___V57*/ meltfptr[55];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5631:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5636:/ clear"); /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V55*/ meltfptr[51] = 0; @@ -11534,7 +11534,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:5632:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5637:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -11543,7 +11543,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:5633:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5638:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11561,7 +11561,7 @@ lab_endgetargs:; /*_.LET___V46*/ meltfptr[43] = /*_.HOOKFUN__V58*/ meltfptr[51];; - MELT_LOCATION ("warmelt-macro.melt:5625:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5630:/ clear"); /*clear *//*_.LAMBDA___V47*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_.BODYTUP__V49*/ meltfptr[48] = 0; @@ -11571,7 +11571,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V54*/ meltfptr[50] = 0; /*^clear */ /*clear *//*_.HOOKFUN__V58*/ meltfptr[51] = 0; - MELT_LOCATION ("warmelt-macro.melt:5619:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5624:/ quasiblock"); /*_.PROGN___V59*/ meltfptr[55] = @@ -11581,7 +11581,7 @@ lab_endgetargs:; /*_.PROGN___V59*/ meltfptr[55];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5619:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5624:/ clear"); /*clear *//*_.PAIR_TAIL__V42*/ meltfptr[38] = 0; /*^clear */ /*clear *//*_.IF___V43*/ meltfptr[42] = 0; @@ -11599,12 +11599,12 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5636:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5641:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L17*/ meltfnum[6] = (( /*_.CASEFIRST__V35*/ meltfptr[34]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:5636:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5641:/ cond"); /*cond */ if ( /*_#NULL__L17*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -11613,7 +11613,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5636:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5641:/ cond.else"); /*^block */ /*anyblock */ @@ -11631,7 +11631,7 @@ lab_endgetargs:; /*_#IS_A__L19*/ meltfnum[18];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5636:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5641:/ clear"); /*clear *//*_#IS_A__L19*/ meltfnum[18] = 0; } ; @@ -11647,7 +11647,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5638:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5643:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11673,7 +11673,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5638:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5643:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -11689,7 +11689,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:5638:/ checksignal"); + ("warmelt-macro.melt:5643:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11704,7 +11704,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5638; + argtab[2].meltbp_long = 5643; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic casefirst="; @@ -11730,7 +11730,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:5638:/ clear"); + ("warmelt-macro.melt:5643:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[20] = 0; /*^clear */ @@ -11746,7 +11746,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:5638:/ quasiblock"); + ("warmelt-macro.melt:5643:/ quasiblock"); /*_.PROGN___V64*/ meltfptr[51] = @@ -11756,7 +11756,7 @@ lab_endgetargs:; /*_.PROGN___V64*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5638:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5643:/ clear"); /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.IF___V62*/ meltfptr[49] = 0; @@ -11769,7 +11769,7 @@ lab_endgetargs:; /*_.IFCPP___V61*/ meltfptr[48] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5639:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5644:/ quasiblock"); /*^checksignal */ @@ -11794,7 +11794,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5640:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5645:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11812,7 +11812,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5642:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5647:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11838,7 +11838,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5642:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5647:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -11854,7 +11854,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:5642:/ checksignal"); + ("warmelt-macro.melt:5647:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -11869,7 +11869,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5642; + argtab[2].meltbp_long = 5647; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic args"; @@ -11895,7 +11895,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:5642:/ clear"); + ("warmelt-macro.melt:5647:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[18] = 0; /*^clear */ @@ -11911,7 +11911,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:5642:/ quasiblock"); + ("warmelt-macro.melt:5647:/ quasiblock"); /*_.PROGN___V71*/ meltfptr[51] = @@ -11921,7 +11921,7 @@ lab_endgetargs:; /*_.PROGN___V71*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5642:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5647:/ clear"); /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.IF___V69*/ meltfptr[50] = 0; @@ -11957,7 +11957,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG MELT_LOCATION - ("warmelt-macro.melt:5646:/ cppif.then"); + ("warmelt-macro.melt:5651:/ cppif.then"); /*^block */ /*anyblock */ { @@ -11971,7 +11971,7 @@ lab_endgetargs:; meltfptr[49]), (melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[15])));; MELT_LOCATION - ("warmelt-macro.melt:5646:/ cond"); + ("warmelt-macro.melt:5651:/ cond"); /*cond */ if ( /*_#IS_A__L25*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -11981,7 +11981,7 @@ lab_endgetargs:; else { MELT_LOCATION - ("warmelt-macro.melt:5646:/ cond.else"); + ("warmelt-macro.melt:5651:/ cond.else"); /*^block */ /*anyblock */ @@ -11997,7 +11997,7 @@ lab_endgetargs:; ? ("warmelt-macro.melt") : __FILE__, - (5646) ? (5646) : + (5651) ? (5651) : __LINE__, __FUNCTION__); ; @@ -12016,7 +12016,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:5646:/ clear"); + ("warmelt-macro.melt:5651:/ clear"); /*clear *//*_#IS_A__L25*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.IFELSE___V74*/ meltfptr[51] = 0; @@ -12028,7 +12028,7 @@ lab_endgetargs:; #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION - ("warmelt-macro.melt:5647:/ quasiblock"); + ("warmelt-macro.melt:5652:/ quasiblock"); /*^cond */ @@ -12059,7 +12059,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:5649:/ checksignal"); + ("warmelt-macro.melt:5654:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12086,7 +12086,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:5650:/ checksignal"); + ("warmelt-macro.melt:5655:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.MAPOBJECT_GET__V78*/ meltfptr[77] = @@ -12095,7 +12095,7 @@ lab_endgetargs:; ( /*_.VARBINDMAP__V19*/ meltfptr[18]), (meltobject_ptr_t) ( /*_.FBISYMB__V76*/ meltfptr[75]));; - MELT_LOCATION ("warmelt-macro.melt:5650:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5655:/ cond"); /*cond */ if ( /*_.MAPOBJECT_GET__V78*/ meltfptr[77]) /*then */ { /*^cond.then */ @@ -12104,7 +12104,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5652:/ cond"); + ("warmelt-macro.melt:5657:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.FBISYMB__V76*/ meltfptr[75]), @@ -12136,7 +12136,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5652:/ locexp"); + ("warmelt-macro.melt:5657:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.CURCASELOC__V32*/ meltfptr[29]), @@ -12147,7 +12147,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:5650:/ clear"); + ("warmelt-macro.melt:5655:/ clear"); /*clear *//*_.NAMED_NAME__V79*/ meltfptr[78] = 0; } @@ -12157,7 +12157,7 @@ lab_endgetargs:; { MELT_LOCATION - ("warmelt-macro.melt:5654:/ locexp"); + ("warmelt-macro.melt:5659:/ locexp"); meltgc_put_mapobjects ((meltmapobjects_ptr_t) ( /*_.VARBINDMAP__V19*/ meltfptr[18]), @@ -12166,7 +12166,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:5655:/ checksignal"); + ("warmelt-macro.melt:5660:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12190,7 +12190,7 @@ lab_endgetargs:; /*_.LET___V75*/ meltfptr[51] = /*_.PUT_ENV__V80*/ meltfptr[78];; - MELT_LOCATION ("warmelt-macro.melt:5647:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5652:/ clear"); /*clear *//*_.FBISYMB__V76*/ meltfptr[75] = 0; /*^clear */ /*clear *//*_.WARN_IF_REDEFINED__V77*/ @@ -12206,7 +12206,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:5643:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5648:/ clear"); /*clear *//*_.FBI__V72*/ meltfptr[49] = 0; /*^clear */ /*clear *//*_#FIX__L24*/ meltfnum[18] = 0; @@ -12216,10 +12216,10 @@ lab_endgetargs:; /*clear *//*_.LET___V75*/ meltfptr[51] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-macro.melt:5657:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5662:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5659:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5664:/ quasiblock"); /*^newclosure */ @@ -12280,7 +12280,7 @@ lab_endgetargs:; ; /*_.LAMBDA___V82*/ meltfptr[76] = /*_.LAMBDA___V83*/ meltfptr[77];; - MELT_LOCATION ("warmelt-macro.melt:5657:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5662:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12305,7 +12305,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5660:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5665:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -12379,7 +12379,7 @@ lab_endgetargs:; /*_.INST__V86*/ meltfptr[85];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5666:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5671:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12405,7 +12405,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5666:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5671:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -12421,7 +12421,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:5666:/ checksignal"); + ("warmelt-macro.melt:5671:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12436,7 +12436,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5666; + argtab[2].meltbp_long = 5671; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic bodytup"; @@ -12462,7 +12462,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:5666:/ clear"); + ("warmelt-macro.melt:5671:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L27*/ meltfnum[26] = 0; /*^clear */ @@ -12478,7 +12478,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:5666:/ quasiblock"); + ("warmelt-macro.melt:5671:/ quasiblock"); /*_.PROGN___V90*/ meltfptr[88] = @@ -12488,7 +12488,7 @@ lab_endgetargs:; /*_.PROGN___V90*/ meltfptr[88];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5666:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5671:/ clear"); /*clear *//*_#MELT_NEED_DBG__L26*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.IF___V88*/ meltfptr[87] = 0; @@ -12503,7 +12503,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:5667:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5672:/ locexp"); #if MELT_HAVE_DEBUG if (melt_need_debug (0)) @@ -12512,7 +12512,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:5668:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5673:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12527,7 +12527,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5670:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5675:/ quasiblock"); /*^newclosure */ @@ -12556,14 +12556,14 @@ lab_endgetargs:; ; /*_.LAMBDA___V92*/ meltfptr[88] = /*_.LAMBDA___V93*/ meltfptr[92];; - MELT_LOCATION ("warmelt-macro.melt:5669:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5674:/ compute"); /*_.HOOKFUN__V20*/ meltfptr[19] = /*_.SETQ___V94*/ meltfptr[93] = /*_.LAMBDA___V92*/ meltfptr[88];; /*_.LET___V81*/ meltfptr[75] = /*_.SETQ___V94*/ meltfptr[93];; - MELT_LOCATION ("warmelt-macro.melt:5657:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5662:/ clear"); /*clear *//*_.LAMBDA___V82*/ meltfptr[76] = 0; /*^clear */ /*clear *//*_.BODYTUP__V84*/ meltfptr[78] = 0; @@ -12580,7 +12580,7 @@ lab_endgetargs:; /*_.LET___V65*/ meltfptr[38] = /*_.LET___V81*/ meltfptr[75];; - MELT_LOCATION ("warmelt-macro.melt:5639:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5644:/ clear"); /*clear *//*_.ARGS__V66*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_.NEWENV__V67*/ meltfptr[43] = 0; @@ -12588,7 +12588,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V68*/ meltfptr[55] = 0; /*^clear */ /*clear *//*_.LET___V81*/ meltfptr[75] = 0; - MELT_LOCATION ("warmelt-macro.melt:5636:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5641:/ quasiblock"); /*_.PROGN___V95*/ meltfptr[76] = @@ -12598,7 +12598,7 @@ lab_endgetargs:; /*_.PROGN___V95*/ meltfptr[76];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5636:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5641:/ clear"); /*clear *//*_.IFCPP___V61*/ meltfptr[48] = 0; /*^clear */ /*clear *//*_.LET___V65*/ meltfptr[38] = 0; @@ -12616,7 +12616,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5680:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5685:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12642,7 +12642,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5680:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5685:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L28*/ meltfnum[26]) /*then */ { /*^cond.then */ @@ -12658,7 +12658,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:5680:/ checksignal"); + ("warmelt-macro.melt:5685:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12673,7 +12673,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5680; + argtab[2].meltbp_long = 5685; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic invalid casefirst"; @@ -12699,7 +12699,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:5680:/ clear"); + ("warmelt-macro.melt:5685:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L29*/ meltfnum[20] = 0; /*^clear */ @@ -12715,7 +12715,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:5680:/ quasiblock"); + ("warmelt-macro.melt:5685:/ quasiblock"); /*_.PROGN___V99*/ meltfptr[87] = @@ -12725,7 +12725,7 @@ lab_endgetargs:; /*_.PROGN___V99*/ meltfptr[87];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5680:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5685:/ clear"); /*clear *//*_#MELT_NEED_DBG__L28*/ meltfnum[26] = 0; /*^clear */ /*clear *//*_.IF___V97*/ meltfptr[84] = 0; @@ -12740,7 +12740,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:5681:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5686:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.CURCASELOC__V32*/ @@ -12749,13 +12749,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5682:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5687:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:5682:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5687:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -12769,7 +12769,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5679:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5684:/ quasiblock"); /*_.PROGN___V101*/ meltfptr[93] = @@ -12779,7 +12779,7 @@ lab_endgetargs:; /*_.PROGN___V101*/ meltfptr[93];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5636:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5641:/ clear"); /*clear *//*_.IFCPP___V96*/ meltfptr[78] = 0; /*^clear */ /*clear *//*_.RETURN___V100*/ meltfptr[88] = 0; @@ -12793,7 +12793,7 @@ lab_endgetargs:; /*_.IFELSE___V60*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5619:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5624:/ clear"); /*clear *//*_#NULL__L17*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_#OR___L18*/ meltfnum[13] = 0; @@ -12805,7 +12805,7 @@ lab_endgetargs:; ; /*_.LET___V31*/ meltfptr[25] = /*_.IFELSE___V41*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:5610:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5615:/ clear"); /*clear *//*_.CURCASELOC__V32*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.CURCASECONT__V33*/ meltfptr[32] = 0; @@ -12823,7 +12823,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V41*/ meltfptr[37] = 0; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5686:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5691:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12849,7 +12849,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5686:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5691:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L30*/ meltfnum[20]) /*then */ { /*^cond.then */ @@ -12864,7 +12864,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5686:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5691:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -12878,7 +12878,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5686; + argtab[2].meltbp_long = 5691; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic done curcase"; @@ -12900,7 +12900,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V104*/ meltfptr[55];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5686:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5691:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L31*/ meltfnum[26] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V104*/ meltfptr[55] = 0; @@ -12913,7 +12913,7 @@ lab_endgetargs:; /*_.IF___V103*/ meltfptr[43] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5686:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5691:/ quasiblock"); /*_.PROGN___V105*/ meltfptr[75] = /*_.IF___V103*/ meltfptr[43];; @@ -12922,7 +12922,7 @@ lab_endgetargs:; /*_.PROGN___V105*/ meltfptr[75];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5686:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5691:/ clear"); /*clear *//*_#MELT_NEED_DBG__L30*/ meltfnum[20] = 0; /*^clear */ /*clear *//*_.IF___V103*/ meltfptr[43] = 0; @@ -12942,7 +12942,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:5602:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5607:/ clear"); /*clear *//*_.CURPAIRCASE__V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.CURCASE__V23*/ meltfptr[22] = 0; @@ -12960,7 +12960,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5688:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5693:/ cppif.then"); /*^block */ /*anyblock */ { @@ -12986,7 +12986,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5688:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5693:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L32*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -13001,7 +13001,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5688:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5693:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13015,7 +13015,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5688; + argtab[2].meltbp_long = 5693; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic rescont"; /*^apply.arg */ @@ -13035,7 +13035,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V108*/ meltfptr[76];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5688:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5693:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L33*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V108*/ meltfptr[76] = 0; @@ -13048,7 +13048,7 @@ lab_endgetargs:; /*_.IF___V107*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5688:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5693:/ quasiblock"); /*_.PROGN___V109*/ meltfptr[86] = /*_.IF___V107*/ meltfptr[38];; @@ -13056,7 +13056,7 @@ lab_endgetargs:; /*_.IFCPP___V106*/ meltfptr[48] = /*_.PROGN___V109*/ meltfptr[86];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5688:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5693:/ clear"); /*clear *//*_#MELT_NEED_DBG__L32*/ meltfnum[6] = 0; /*^clear */ /*clear *//*_.IF___V107*/ meltfptr[38] = 0; @@ -13069,7 +13069,7 @@ lab_endgetargs:; /*_.IFCPP___V106*/ meltfptr[48] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5689:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5694:/ quasiblock"); /*^cond */ @@ -13099,7 +13099,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5691:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5696:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13125,7 +13125,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5691:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5696:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L34*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -13140,7 +13140,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5691:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5696:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13154,7 +13154,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5691; + argtab[2].meltbp_long = 5696; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic result"; /*^apply.arg */ @@ -13174,7 +13174,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V114*/ meltfptr[93];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5691:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5696:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L35*/ meltfnum[26] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V114*/ meltfptr[93] = 0; @@ -13187,7 +13187,7 @@ lab_endgetargs:; /*_.IF___V113*/ meltfptr[88] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5691:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5696:/ quasiblock"); /*_.PROGN___V115*/ meltfptr[44] = /*_.IF___V113*/ meltfptr[88];; @@ -13195,7 +13195,7 @@ lab_endgetargs:; /*_.IFCPP___V112*/ meltfptr[78] = /*_.PROGN___V115*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5691:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5696:/ clear"); /*clear *//*_#MELT_NEED_DBG__L34*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V113*/ meltfptr[88] = 0; @@ -13208,7 +13208,7 @@ lab_endgetargs:; /*_.IFCPP___V112*/ meltfptr[78] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5692:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5697:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -13217,7 +13217,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V111*/ meltfptr[87];; { - MELT_LOCATION ("warmelt-macro.melt:5692:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5697:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13232,7 +13232,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V110*/ meltfptr[84] = /*_.RETURN___V116*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:5689:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5694:/ clear"); /*clear *//*_.RES__V111*/ meltfptr[87] = 0; /*^clear */ /*clear *//*_.IFCPP___V112*/ meltfptr[78] = 0; @@ -13240,7 +13240,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V116*/ meltfptr[29] = 0; /*_.LET___V12*/ meltfptr[10] = /*_.LET___V110*/ meltfptr[84];; - MELT_LOCATION ("warmelt-macro.melt:5593:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5598:/ clear"); /*clear *//*_.CONT__V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LOC__V14*/ meltfptr[13] = 0; @@ -13264,7 +13264,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V106*/ meltfptr[48] = 0; /*^clear */ /*clear *//*_.LET___V110*/ meltfptr[84] = 0; - MELT_LOCATION ("warmelt-macro.melt:5589:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -13273,7 +13273,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-macro.melt:5589:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13393,7 +13393,7 @@ meltrout_114_warmelt_macro_LAMBDA___29__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5598:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5603:/ getarg"); /*_.X__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -13405,7 +13405,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5599:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5604:/ cppif.then"); /*^block */ /*anyblock */ { @@ -13431,7 +13431,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5599:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5604:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -13446,7 +13446,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5599:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5604:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -13459,7 +13459,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5599; + argtab[2].meltbp_long = 5604; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic/hookfun rescont set to x"; @@ -13479,7 +13479,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5599:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5604:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0; @@ -13492,7 +13492,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5599:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5604:/ quasiblock"); /*_.PROGN___V6*/ meltfptr[4] = /*_.IF___V4*/ meltfptr[3];; @@ -13500,7 +13500,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.PROGN___V6*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5599:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5604:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V4*/ meltfptr[3] = 0; @@ -13513,7 +13513,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5600:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5605:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -13555,7 +13555,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5598:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5603:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ @@ -13659,7 +13659,7 @@ meltrout_115_warmelt_macro_LAMBDA___30__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5628:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5633:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -13700,7 +13700,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:5628:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5633:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13814,7 +13814,7 @@ meltrout_116_warmelt_macro_LAMBDA___31__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5659:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5664:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -13855,7 +13855,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:5659:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5664:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -13969,7 +13969,7 @@ meltrout_117_warmelt_macro_LAMBDA___32__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5670:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5675:/ getarg"); /*_.XTUP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -13981,7 +13981,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5671:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5676:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14007,7 +14007,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5671:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5676:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14022,7 +14022,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5671:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5676:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14035,7 +14035,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5671; + argtab[2].meltbp_long = 5676; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic/hookfun xtup"; /*^apply.arg */ @@ -14054,7 +14054,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5671:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5676:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 0; @@ -14067,7 +14067,7 @@ lab_endgetargs:; /*_.IF___V4*/ meltfptr[3] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5671:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5676:/ quasiblock"); /*_.PROGN___V6*/ meltfptr[4] = /*_.IF___V4*/ meltfptr[3];; @@ -14075,7 +14075,7 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = /*_.PROGN___V6*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5671:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5676:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V4*/ meltfptr[3] = 0; @@ -14088,10 +14088,10 @@ lab_endgetargs:; /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5672:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5677:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:5673:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5678:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE_OR_NULL__L3*/ meltfnum[1] = @@ -14099,7 +14099,7 @@ lab_endgetargs:; || (melt_unsafe_magic_discr ((melt_ptr_t) ( /*_.XTUP__V2*/ meltfptr[1])) == MELTOBMAG_MULTIPLE));; - MELT_LOCATION ("warmelt-macro.melt:5673:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5678:/ cond"); /*cond */ if ( /*_#IS_MULTIPLE_OR_NULL__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -14107,13 +14107,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5673:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5678:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5675:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:5680:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -14136,12 +14136,12 @@ lab_endgetargs:; /*^putuple */ /*putupl#11 */ - melt_assertmsg ("putupl [:5675] #11 checktup", + melt_assertmsg ("putupl [:5680] #11 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V9*/ meltfptr[8])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:5675] #11 checkoff", + melt_assertmsg ("putupl [:5680] #11 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -14156,7 +14156,7 @@ lab_endgetargs:; /*_.TUPLE___V8*/ meltfptr[4] = /*_.TUPLREC___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5675:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5680:/ clear"); /*clear *//*_.TUPLREC___V9*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.TUPLREC___V9*/ meltfptr[8] = 0; @@ -14165,13 +14165,13 @@ lab_endgetargs:; /*_.IFELSE___V7*/ meltfptr[3] = /*_.TUPLE___V8*/ meltfptr[4];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5673:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5678:/ clear"); /*clear *//*_.TUPLE___V8*/ meltfptr[4] = 0; } ; } ; - MELT_LOCATION ("warmelt-macro.melt:5672:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5677:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -14211,7 +14211,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5676:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5681:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14237,7 +14237,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5676:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5681:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14252,7 +14252,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5676:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5681:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14265,7 +14265,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5676; + argtab[2].meltbp_long = 5681; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_variadic/hookfun updated sifvariadic"; @@ -14286,7 +14286,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5676:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5681:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0; @@ -14299,7 +14299,7 @@ lab_endgetargs:; /*_.IF___V11*/ meltfptr[4] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5676:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5681:/ quasiblock"); /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[4];; @@ -14307,7 +14307,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5676:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5681:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V11*/ meltfptr[4] = 0; @@ -14320,7 +14320,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5670:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5675:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -14329,7 +14329,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.IFCPP___V10*/ meltfptr[8];; { - MELT_LOCATION ("warmelt-macro.melt:5670:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5675:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14451,7 +14451,7 @@ meltrout_118_warmelt_macro_MEXPAND_MULTICALL (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5712:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -14492,7 +14492,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5713:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5718:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14504,7 +14504,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5713:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5718:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14512,7 +14512,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5713:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5718:/ cond.else"); /*^block */ /*anyblock */ @@ -14526,7 +14526,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5713) ? (5713) : __LINE__, __FUNCTION__); + (5718) ? (5718) : __LINE__, __FUNCTION__); ; } ; @@ -14540,7 +14540,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5713:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5718:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -14553,7 +14553,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5714:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5719:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14565,7 +14565,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5714:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5719:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14573,7 +14573,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5714:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5719:/ cond.else"); /*^block */ /*anyblock */ @@ -14587,7 +14587,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5714) ? (5714) : __LINE__, __FUNCTION__); + (5719) ? (5719) : __LINE__, __FUNCTION__); ; } ; @@ -14601,7 +14601,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5714:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5719:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -14614,7 +14614,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5715:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5720:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14625,7 +14625,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:5715:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5720:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14633,7 +14633,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5715:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5720:/ cond.else"); /*^block */ /*anyblock */ @@ -14647,7 +14647,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5715) ? (5715) : __LINE__, __FUNCTION__); + (5720) ? (5720) : __LINE__, __FUNCTION__); ; } ; @@ -14661,7 +14661,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5715:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5720:/ clear"); /*clear *//*_#IS_CLOSURE__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -14674,7 +14674,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5716:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5721:/ cppif.then"); /*^block */ /*anyblock */ { @@ -14685,7 +14685,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:5716:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5721:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14693,7 +14693,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5716:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5721:/ cond.else"); /*^block */ /*anyblock */ @@ -14707,7 +14707,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5716) ? (5716) : __LINE__, __FUNCTION__); + (5721) ? (5721) : __LINE__, __FUNCTION__); ; } ; @@ -14721,7 +14721,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5716:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5721:/ clear"); /*clear *//*_#IS_OBJECT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -14732,7 +14732,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5717:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5722:/ quasiblock"); /*^getslot */ @@ -14743,7 +14743,7 @@ lab_endgetargs:; /*_.CONT__V15*/ meltfptr[14] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5718:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5723:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -14756,7 +14756,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V18*/ meltfptr[17] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));; - MELT_LOCATION ("warmelt-macro.melt:5720:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5725:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14769,12 +14769,12 @@ lab_endgetargs:; (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5723:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5728:/ quasiblock"); /*_.PAIR_HEAD__V21*/ meltfptr[20] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:5723:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5728:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -14792,13 +14792,13 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5725:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5730:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.RESTUP__V22*/ meltfptr[21]), (melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:5725:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5730:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -14808,20 +14808,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5727:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5732:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("MULTICALL cannot have variadic result"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5728:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5733:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:5728:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5733:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -14834,7 +14834,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5726:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5731:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[24] = /*_.RETURN___V24*/ meltfptr[23];; @@ -14842,7 +14842,7 @@ lab_endgetargs:; /*_.IF___V23*/ meltfptr[22] = /*_.PROGN___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5725:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5730:/ clear"); /*clear *//*_.RETURN___V24*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.PROGN___V25*/ meltfptr[24] = 0; @@ -14858,15 +14858,15 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V26*/ meltfptr[23] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:5729:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5734:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V27*/ meltfptr[24] = /*_.PAIR_TAIL__V26*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:5730:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5735:/ quasiblock"); /*_.CURCALLEXP__V29*/ meltfptr[28] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:5731:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5736:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L6*/ meltfnum[5] = @@ -14876,7 +14876,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L7*/ meltfnum[6] = (!( /*_#IS_A__L6*/ meltfnum[5]));; - MELT_LOCATION ("warmelt-macro.melt:5731:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5736:/ cond"); /*cond */ if ( /*_#NOT__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -14886,7 +14886,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5732:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5737:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("missing called expression in MULTICALL"), @@ -14900,10 +14900,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V30*/ meltfptr[29] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:5733:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5738:/ compute"); /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V31*/ meltfptr[30] = /*_.PAIR_TAIL__V30*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:5734:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5739:/ quasiblock"); /*^checksignal */ @@ -14928,14 +14928,14 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5737:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5742:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L8*/ meltfnum[7] = melt_is_instance_of ((melt_ptr_t) ( /*_.CURCALL__V33*/ meltfptr[32]), (melt_ptr_t) (( /*!CLASS_SOURCE_APPLY */ meltfrout->tabval[6])));; - MELT_LOCATION ("warmelt-macro.melt:5737:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5742:/ cond"); /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -14943,7 +14943,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5737:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5742:/ cond.else"); /*^block */ /*anyblock */ @@ -14958,7 +14958,7 @@ lab_endgetargs:; /*_#OR___L9*/ meltfnum[8] = /*_#IS_A__L10*/ meltfnum[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5737:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5742:/ clear"); /*clear *//*_#IS_A__L10*/ meltfnum[9] = 0; } ; @@ -14972,7 +14972,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5737:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5742:/ cond.else"); /*^block */ /*anyblock */ @@ -14980,7 +14980,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5741:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5746:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15006,7 +15006,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5741:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5746:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -15021,7 +15021,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5741:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5746:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15035,7 +15035,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5741; + argtab[2].meltbp_long = 5746; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_multicall bad curcall"; @@ -15057,7 +15057,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5741:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5746:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0; @@ -15070,7 +15070,7 @@ lab_endgetargs:; /*_.IF___V36*/ meltfptr[35] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5741:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5746:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[36] = /*_.IF___V36*/ meltfptr[35];; @@ -15078,7 +15078,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[34] = /*_.PROGN___V38*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5741:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5746:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V36*/ meltfptr[35] = 0; @@ -15093,18 +15093,18 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:5742:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5747:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]), ("called expression in MULTICALL is invalid, expecting application or\ send"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5743:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5748:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:5743:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5748:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15117,7 +15117,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5740:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5745:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[36] = /*_.RETURN___V39*/ meltfptr[35];; @@ -15125,7 +15125,7 @@ lab_endgetargs:; /*_.IFELSE___V34*/ meltfptr[33] = /*_.PROGN___V40*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5737:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5742:/ clear"); /*clear *//*_.IFCPP___V35*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.RETURN___V39*/ meltfptr[35] = 0; @@ -15135,7 +15135,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:5745:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5750:/ quasiblock"); /*^newclosure */ @@ -15160,7 +15160,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.NEWENV__V19*/ meltfptr[18]); ; /*_.LAMBDA___V41*/ meltfptr[34] = /*_.LAMBDA___V42*/ meltfptr[35];; - MELT_LOCATION ("warmelt-macro.melt:5744:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5749:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15179,10 +15179,10 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5747:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5752:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5749:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5754:/ quasiblock"); /*^newclosure */ @@ -15233,7 +15233,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]); ; /*_.LAMBDA___V45*/ meltfptr[44] = /*_.LAMBDA___V46*/ meltfptr[45];; - MELT_LOCATION ("warmelt-macro.melt:5747:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5752:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -15255,7 +15255,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5751:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5756:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -15315,7 +15315,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.MULCR__V48*/ meltfptr[47] = /*_.INST__V49*/ meltfptr[48];; - MELT_LOCATION ("warmelt-macro.melt:5758:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5763:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -15324,7 +15324,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MULCR__V48*/ meltfptr[47];; { - MELT_LOCATION ("warmelt-macro.melt:5758:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5763:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15339,7 +15339,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V44*/ meltfptr[43] = /*_.RETURN___V50*/ meltfptr[49];; - MELT_LOCATION ("warmelt-macro.melt:5747:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5752:/ clear"); /*clear *//*_.LAMBDA___V45*/ meltfptr[44] = 0; /*^clear */ /*clear *//*_.BODYTUP__V47*/ meltfptr[46] = 0; @@ -15349,7 +15349,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V50*/ meltfptr[49] = 0; /*_.LET___V32*/ meltfptr[31] = /*_.LET___V44*/ meltfptr[43];; - MELT_LOCATION ("warmelt-macro.melt:5734:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5739:/ clear"); /*clear *//*_.CURCALL__V33*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0; @@ -15365,7 +15365,7 @@ lab_endgetargs:; /*clear *//*_.LET___V44*/ meltfptr[43] = 0; /*_.LET___V28*/ meltfptr[27] = /*_.LET___V32*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:5730:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5735:/ clear"); /*clear *//*_.CURCALLEXP__V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_#IS_A__L6*/ meltfnum[5] = 0; @@ -15379,7 +15379,7 @@ lab_endgetargs:; /*clear *//*_.LET___V32*/ meltfptr[31] = 0; /*_.LET___V20*/ meltfptr[19] = /*_.LET___V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:5723:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5728:/ clear"); /*clear *//*_.PAIR_HEAD__V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.RESTUP__V22*/ meltfptr[21] = 0; @@ -15395,7 +15395,7 @@ lab_endgetargs:; /*clear *//*_.LET___V28*/ meltfptr[27] = 0; /*_.LET___V14*/ meltfptr[12] = /*_.LET___V20*/ meltfptr[19];; - MELT_LOCATION ("warmelt-macro.melt:5717:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5722:/ clear"); /*clear *//*_.CONT__V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.LOC__V16*/ meltfptr[15] = 0; @@ -15407,7 +15407,7 @@ lab_endgetargs:; /*clear *//*_.NEWENV__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LET___V20*/ meltfptr[19] = 0; - MELT_LOCATION ("warmelt-macro.melt:5712:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -15416,7 +15416,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:5712:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15538,7 +15538,7 @@ meltrout_119_warmelt_macro_LAMBDA___33__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5745:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5750:/ getarg"); /*_.LB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -15572,7 +15572,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:5745:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5750:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15686,7 +15686,7 @@ meltrout_120_warmelt_macro_LAMBDA___34__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5749:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5754:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -15727,7 +15727,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:5749:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5754:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -15841,7 +15841,7 @@ meltrout_121_warmelt_macro_MEXPAND_QUOTE (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5773:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5778:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -15882,7 +15882,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5774:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5779:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15894,7 +15894,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5774:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5779:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -15902,7 +15902,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5774:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5779:/ cond.else"); /*^block */ /*anyblock */ @@ -15916,7 +15916,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5774) ? (5774) : __LINE__, __FUNCTION__); + (5779) ? (5779) : __LINE__, __FUNCTION__); ; } ; @@ -15930,7 +15930,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5774:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5779:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -15943,7 +15943,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5775:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5780:/ cppif.then"); /*^block */ /*anyblock */ { @@ -15955,7 +15955,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5775:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5780:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -15963,7 +15963,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5775:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5780:/ cond.else"); /*^block */ /*anyblock */ @@ -15977,7 +15977,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5775) ? (5775) : __LINE__, __FUNCTION__); + (5780) ? (5780) : __LINE__, __FUNCTION__); ; } ; @@ -15991,7 +15991,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5775:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5780:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -16004,7 +16004,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5776:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5781:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16015,7 +16015,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:5776:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5781:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16023,7 +16023,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5776:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5781:/ cond.else"); /*^block */ /*anyblock */ @@ -16037,7 +16037,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5776) ? (5776) : __LINE__, __FUNCTION__); + (5781) ? (5781) : __LINE__, __FUNCTION__); ; } ; @@ -16051,7 +16051,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5776:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5781:/ clear"); /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -16062,7 +16062,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5777:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5782:/ quasiblock"); /*^getslot */ @@ -16073,7 +16073,7 @@ lab_endgetargs:; /*_.CONT__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5778:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5783:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -16089,12 +16089,12 @@ lab_endgetargs:; /*^compute */ /*_.QUOTED__V17*/ meltfptr[16] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-macro.melt:5782:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5787:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V18*/ meltfptr[17] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-macro.melt:5782:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5787:/ cond"); /*cond */ if ( /*_.PAIR_TAIL__V18*/ meltfptr[17]) /*then */ { /*^cond.then */ @@ -16104,7 +16104,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5783:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5788:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("QUOTE should have only one argument"), @@ -16116,14 +16116,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5784:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5789:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.QUOTED__V17*/ meltfptr[16]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:5784:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5789:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16131,19 +16131,19 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5784:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5789:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5787:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5792:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L5*/ meltfnum[4] = (melt_magic_discr ((melt_ptr_t) ( /*_.QUOTED__V17*/ meltfptr[16])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-macro.melt:5787:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5792:/ cond"); /*cond */ if ( /*_#IS_STRING__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -16151,20 +16151,20 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5787:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5792:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5790:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5795:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_INTEGERBOX__L6*/ meltfnum[5] = (melt_magic_discr ((melt_ptr_t) ( /*_.QUOTED__V17*/ meltfptr[16])) == MELTOBMAG_INT);; - MELT_LOCATION ("warmelt-macro.melt:5790:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5795:/ cond"); /*cond */ if ( /*_#IS_INTEGERBOX__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -16172,7 +16172,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5790:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5795:/ cond.else"); /*^block */ /*anyblock */ @@ -16180,7 +16180,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5794:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5799:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), @@ -16188,7 +16188,7 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5793:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5798:/ quasiblock"); /*epilog */ @@ -16200,7 +16200,7 @@ lab_endgetargs:; /*_.IFELSE___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5787:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5792:/ clear"); /*clear *//*_#IS_INTEGERBOX__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IFELSE___V21*/ meltfptr[20] = 0; @@ -16211,7 +16211,7 @@ lab_endgetargs:; /*_.IFELSE___V19*/ meltfptr[18] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5784:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5789:/ clear"); /*clear *//*_#IS_STRING__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.IFELSE___V20*/ meltfptr[19] = 0; @@ -16219,14 +16219,14 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:5796:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5801:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L7*/ meltfnum[5] = melt_is_instance_of ((melt_ptr_t) ( /*_.QUOTED__V17*/ meltfptr[16]), (melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:5796:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5801:/ cond"); /*cond */ if ( /*_#IS_A__L7*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -16234,7 +16234,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5797:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5802:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -16243,7 +16243,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.QUOTED__V17*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:5797:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5802:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16259,7 +16259,7 @@ lab_endgetargs:; /*_.IF___V22*/ meltfptr[20] = /*_.RETURN___V23*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5796:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5801:/ clear"); /*clear *//*_.RETURN___V23*/ meltfptr[19] = 0; } ; @@ -16270,7 +16270,7 @@ lab_endgetargs:; /*_.IF___V22*/ meltfptr[20] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5798:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5803:/ quasiblock"); /*^checksignal */ @@ -16315,7 +16315,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.SQU__V25*/ meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:5801:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5806:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -16324,7 +16324,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SQU__V25*/ meltfptr[24];; { - MELT_LOCATION ("warmelt-macro.melt:5801:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5806:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16339,13 +16339,13 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V24*/ meltfptr[19] = /*_.RETURN___V27*/ meltfptr[26];; - MELT_LOCATION ("warmelt-macro.melt:5798:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5803:/ clear"); /*clear *//*_.SQU__V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.RETURN___V27*/ meltfptr[26] = 0; /*_.LET___V12*/ meltfptr[10] = /*_.LET___V24*/ meltfptr[19];; - MELT_LOCATION ("warmelt-macro.melt:5777:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5782:/ clear"); /*clear *//*_.CONT__V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LOC__V14*/ meltfptr[13] = 0; @@ -16367,7 +16367,7 @@ lab_endgetargs:; /*clear *//*_.IF___V22*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.LET___V24*/ meltfptr[19] = 0; - MELT_LOCATION ("warmelt-macro.melt:5773:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5778:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -16376,7 +16376,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-macro.melt:5773:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5778:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16496,7 +16496,7 @@ meltrout_122_warmelt_macro_MEXPAND_COMMENT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5812:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5817:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -16537,7 +16537,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5813:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5818:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16549,7 +16549,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5813:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5818:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16557,7 +16557,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5813:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5818:/ cond.else"); /*^block */ /*anyblock */ @@ -16571,7 +16571,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5813) ? (5813) : __LINE__, __FUNCTION__); + (5818) ? (5818) : __LINE__, __FUNCTION__); ; } ; @@ -16585,7 +16585,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5813:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5818:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -16598,7 +16598,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5814:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5819:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16610,7 +16610,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5814:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5819:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16618,7 +16618,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5814:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5819:/ cond.else"); /*^block */ /*anyblock */ @@ -16632,7 +16632,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5814) ? (5814) : __LINE__, __FUNCTION__); + (5819) ? (5819) : __LINE__, __FUNCTION__); ; } ; @@ -16646,7 +16646,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5814:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5819:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -16659,7 +16659,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5815:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5820:/ cppif.then"); /*^block */ /*anyblock */ { @@ -16670,7 +16670,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:5815:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5820:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -16678,7 +16678,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5815:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5820:/ cond.else"); /*^block */ /*anyblock */ @@ -16692,7 +16692,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5815) ? (5815) : __LINE__, __FUNCTION__); + (5820) ? (5820) : __LINE__, __FUNCTION__); ; } ; @@ -16706,7 +16706,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5815:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5820:/ clear"); /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -16717,7 +16717,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5816:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5821:/ quasiblock"); /*^getslot */ @@ -16728,7 +16728,7 @@ lab_endgetargs:; /*_.CONT__V13*/ meltfptr[12] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5817:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5822:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -16744,12 +16744,12 @@ lab_endgetargs:; /*^compute */ /*_.COMSTR__V17*/ meltfptr[16] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-macro.melt:5821:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5826:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V18*/ meltfptr[17] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));; - MELT_LOCATION ("warmelt-macro.melt:5821:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5826:/ cond"); /*cond */ if ( /*_.PAIR_TAIL__V18*/ meltfptr[17]) /*then */ { /*^cond.then */ @@ -16759,7 +16759,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5822:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5827:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("COMMENT should have only one string argument"), (melt_ptr_t) 0); @@ -16770,7 +16770,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:5823:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5828:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L4*/ meltfnum[0] = @@ -16779,7 +16779,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L5*/ meltfnum[4] = (!( /*_#IS_STRING__L4*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:5823:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5828:/ cond"); /*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -16789,19 +16789,19 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5825:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5830:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]), ("COMMENT without string is ignored"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5826:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5831:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:5826:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5831:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16814,7 +16814,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5824:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5829:/ quasiblock"); /*_.PROGN___V21*/ meltfptr[20] = /*_.RETURN___V20*/ meltfptr[19];; @@ -16822,7 +16822,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = /*_.PROGN___V21*/ meltfptr[20];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5823:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5828:/ clear"); /*clear *//*_.RETURN___V20*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_.PROGN___V21*/ meltfptr[20] = 0; @@ -16835,7 +16835,7 @@ lab_endgetargs:; /*_.IF___V19*/ meltfptr[18] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5829:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5834:/ quasiblock"); /*^checksignal */ @@ -16880,7 +16880,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.SCOM__V23*/ meltfptr[20] = /*_.INST__V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:5832:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5837:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -16889,7 +16889,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SCOM__V23*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-macro.melt:5832:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5837:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -16904,13 +16904,13 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V22*/ meltfptr[19] = /*_.RETURN___V25*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:5829:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5834:/ clear"); /*clear *//*_.SCOM__V23*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.RETURN___V25*/ meltfptr[24] = 0; /*_.LET___V12*/ meltfptr[10] = /*_.LET___V22*/ meltfptr[19];; - MELT_LOCATION ("warmelt-macro.melt:5816:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5821:/ clear"); /*clear *//*_.CONT__V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LOC__V14*/ meltfptr[13] = 0; @@ -16930,7 +16930,7 @@ lab_endgetargs:; /*clear *//*_.IF___V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LET___V22*/ meltfptr[19] = 0; - MELT_LOCATION ("warmelt-macro.melt:5812:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5817:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -16939,7 +16939,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { - MELT_LOCATION ("warmelt-macro.melt:5812:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5817:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -17059,7 +17059,7 @@ meltrout_123_warmelt_macro_MEXPAND_CHEADER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5842:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5847:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -17100,7 +17100,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5843:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5848:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17126,7 +17126,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5843:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5848:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17141,7 +17141,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5843:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5848:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17154,7 +17154,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5843; + argtab[2].meltbp_long = 5848; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cheader sexpr="; /*^apply.arg */ @@ -17173,7 +17173,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5843:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5848:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -17186,7 +17186,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5843:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5848:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -17194,7 +17194,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5843:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5848:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -17209,7 +17209,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5844:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5849:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17221,7 +17221,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5844:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5849:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -17229,7 +17229,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5844:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5849:/ cond.else"); /*^block */ /*anyblock */ @@ -17243,7 +17243,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5844) ? (5844) : __LINE__, __FUNCTION__); + (5849) ? (5849) : __LINE__, __FUNCTION__); ; } ; @@ -17257,7 +17257,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5844:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5849:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -17270,7 +17270,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5845:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5850:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17282,7 +17282,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:5845:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5850:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17290,7 +17290,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5845:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5850:/ cond.else"); /*^block */ /*anyblock */ @@ -17304,7 +17304,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5845) ? (5845) : __LINE__, __FUNCTION__); + (5850) ? (5850) : __LINE__, __FUNCTION__); ; } ; @@ -17318,7 +17318,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5845:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5850:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -17331,7 +17331,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5846:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5851:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17342,7 +17342,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:5846:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5851:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -17350,7 +17350,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5846:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5851:/ cond.else"); /*^block */ /*anyblock */ @@ -17364,7 +17364,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5846) ? (5846) : __LINE__, __FUNCTION__); + (5851) ? (5851) : __LINE__, __FUNCTION__); ; } ; @@ -17378,7 +17378,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5846:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5851:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -17389,7 +17389,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5847:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5852:/ quasiblock"); /*^getslot */ @@ -17400,7 +17400,7 @@ lab_endgetargs:; /*_.CONT__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5848:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5853:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -17416,12 +17416,12 @@ lab_endgetargs:; /*^compute */ /*_.CHEAD__V21*/ meltfptr[20] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:5852:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5857:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V22*/ meltfptr[21] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:5852:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5857:/ cond"); /*cond */ if ( /*_.PAIR_TAIL__V22*/ meltfptr[21]) /*then */ { /*^cond.then */ @@ -17431,7 +17431,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5853:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5858:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("CHEADER should have only one argument"), (melt_ptr_t) 0); @@ -17444,7 +17444,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5854:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5859:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17470,7 +17470,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5854:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5859:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17485,7 +17485,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5854:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5859:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17498,7 +17498,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5854; + argtab[2].meltbp_long = 5859; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cheader chead="; /*^apply.arg */ @@ -17518,7 +17518,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5854:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5859:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0; @@ -17531,7 +17531,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5854:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5859:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[24] = /*_.IF___V24*/ meltfptr[23];; @@ -17539,7 +17539,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = /*_.PROGN___V26*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5854:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5859:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V24*/ meltfptr[23] = 0; @@ -17552,13 +17552,13 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5856:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5861:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L8*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.CHEAD__V21*/ meltfptr[20])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-macro.melt:5856:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5861:/ cond"); /*cond */ if ( /*_#IS_STRING__L8*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -17570,7 +17570,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5857:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5862:/ locexp"); /*void */ (void) 0; } ; @@ -17581,13 +17581,13 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5856:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5861:/ cond.else"); /*^block */ /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5859:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5864:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L9*/ meltfnum[0] = @@ -17595,7 +17595,7 @@ lab_endgetargs:; ( /*_.CHEAD__V21*/ meltfptr[20]), (melt_ptr_t) (( /*!CLASS_SEXPR_MACROSTRING */ meltfrout->tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:5859:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5864:/ cond"); /*cond */ if ( /*_#IS_A__L9*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17603,7 +17603,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:5860:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5865:/ quasiblock"); /*_.SBUF__V30*/ meltfptr[29] = @@ -17611,7 +17611,7 @@ lab_endgetargs:; meltgc_new_strbuf ((meltobject_ptr_t) (( /*!DISCR_STRBUF */ meltfrout-> tabval[4])), (const char *) 0);; - MELT_LOCATION ("warmelt-macro.melt:5861:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5866:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -17638,7 +17638,7 @@ lab_endgetargs:; /*_.SCONT__V31*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5862:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5867:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -17665,7 +17665,7 @@ lab_endgetargs:; /*_.SLOC__V32*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5864:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5869:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -17684,7 +17684,7 @@ lab_endgetargs:; /*_.SETQ___V34*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5864:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5869:/ clear"); /*clear *//*_.SETQ___V34*/ meltfptr[33] = 0; } ; @@ -17712,7 +17712,7 @@ lab_endgetargs:; meltfptr[33]); - MELT_LOCATION ("warmelt-macro.melt:5868:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5873:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17739,7 +17739,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:5865:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5870:/ clear"); /*clear *//*_.CURPAIR__V35*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.CURARG__V36*/ meltfptr[35] = 0; @@ -17753,13 +17753,13 @@ lab_endgetargs:; (( /*!DISCR_VERBATIM_STRING */ meltfrout->tabval[7])), melt_strbuf_str ((melt_ptr_t) ( /*_.SBUF__V30*/ meltfptr[29]))));; - MELT_LOCATION ("warmelt-macro.melt:5870:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:5875:/ compute"); /*_.CHEAD__V21*/ meltfptr[20] = /*_.SETQ___V39*/ meltfptr[38] = /*_.STRBUF2STRING__V38*/ meltfptr[37];; /*_.LET___V29*/ meltfptr[28] = /*_.SETQ___V39*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:5860:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5865:/ clear"); /*clear *//*_.SBUF__V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.SCONT__V31*/ meltfptr[30] = 0; @@ -17775,7 +17775,7 @@ lab_endgetargs:; /*_.LET___V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5859:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5864:/ clear"); /*clear *//*_.LET___V29*/ meltfptr[28] = 0; } ; @@ -17789,7 +17789,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5873:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5878:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), @@ -17797,13 +17797,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5874:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5879:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:5874:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5879:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -17816,7 +17816,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5872:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5877:/ quasiblock"); /*_.PROGN___V41*/ meltfptr[30] = @@ -17826,7 +17826,7 @@ lab_endgetargs:; /*_.PROGN___V41*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5859:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5864:/ clear"); /*clear *//*_.RETURN___V40*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.PROGN___V41*/ meltfptr[30] = 0; @@ -17837,7 +17837,7 @@ lab_endgetargs:; /*_.IFELSE___V27*/ meltfptr[23] = /*_.IFELSE___V28*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5856:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5861:/ clear"); /*clear *//*_#IS_A__L9*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V28*/ meltfptr[24] = 0; @@ -17845,7 +17845,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:5877:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5882:/ quasiblock"); /*^checksignal */ @@ -17893,7 +17893,7 @@ lab_endgetargs:; /*_.SCH__V43*/ meltfptr[32] = /*_.INST__V44*/ meltfptr[37];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5880:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5885:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17919,7 +17919,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5880:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5885:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17934,7 +17934,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5880:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5885:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17948,7 +17948,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5880; + argtab[2].meltbp_long = 5885; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_cheader gives sch="; /*^apply.arg */ @@ -17968,7 +17968,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V47*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5880:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5885:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V47*/ meltfptr[29] = 0; @@ -17981,7 +17981,7 @@ lab_endgetargs:; /*_.IF___V46*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5880:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5885:/ quasiblock"); /*_.PROGN___V48*/ meltfptr[30] = /*_.IF___V46*/ meltfptr[28];; @@ -17989,7 +17989,7 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[38] = /*_.PROGN___V48*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5880:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5885:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V46*/ meltfptr[28] = 0; @@ -18002,7 +18002,7 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[38] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5881:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5886:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -18011,7 +18011,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SCH__V43*/ meltfptr[32];; { - MELT_LOCATION ("warmelt-macro.melt:5881:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5886:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18026,7 +18026,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V42*/ meltfptr[31] = /*_.RETURN___V49*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:5877:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5882:/ clear"); /*clear *//*_.SCH__V43*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.IFCPP___V45*/ meltfptr[38] = 0; @@ -18034,7 +18034,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V49*/ meltfptr[24] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V42*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:5847:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5852:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -18054,7 +18054,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V27*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.LET___V42*/ meltfptr[31] = 0; - MELT_LOCATION ("warmelt-macro.melt:5842:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5847:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -18063,7 +18063,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:5842:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5847:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18184,7 +18184,7 @@ meltrout_124_warmelt_macro_MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5891:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5896:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -18225,7 +18225,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5892:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5897:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18251,7 +18251,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5892:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5897:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18266,7 +18266,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5892:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5897:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18279,7 +18279,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5892; + argtab[2].meltbp_long = 5897; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_use_package_from_pkg_config sexpr="; @@ -18299,7 +18299,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5892:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5897:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -18312,7 +18312,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5892:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5897:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -18320,7 +18320,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5892:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5897:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -18335,7 +18335,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5893:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5898:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18347,7 +18347,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:5893:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5898:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -18355,7 +18355,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5893:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5898:/ cond.else"); /*^block */ /*anyblock */ @@ -18369,7 +18369,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5893) ? (5893) : __LINE__, __FUNCTION__); + (5898) ? (5898) : __LINE__, __FUNCTION__); ; } ; @@ -18383,7 +18383,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5893:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5898:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -18396,7 +18396,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5894:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5899:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18408,7 +18408,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:5894:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5899:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18416,7 +18416,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5894:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5899:/ cond.else"); /*^block */ /*anyblock */ @@ -18430,7 +18430,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5894) ? (5894) : __LINE__, __FUNCTION__); + (5899) ? (5899) : __LINE__, __FUNCTION__); ; } ; @@ -18444,7 +18444,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5894:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5899:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -18457,7 +18457,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5895:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5900:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18468,7 +18468,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:5895:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5900:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -18476,7 +18476,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5895:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5900:/ cond.else"); /*^block */ /*anyblock */ @@ -18490,7 +18490,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5895) ? (5895) : __LINE__, __FUNCTION__); + (5900) ? (5900) : __LINE__, __FUNCTION__); ; } ; @@ -18504,7 +18504,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5895:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5900:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -18515,7 +18515,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5896:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5901:/ quasiblock"); /*^getslot */ @@ -18526,7 +18526,7 @@ lab_endgetargs:; /*_.CONT__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5897:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5902:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -18534,7 +18534,7 @@ lab_endgetargs:; /*_.LOC__V18*/ meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5898:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5903:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18564,7 +18564,7 @@ lab_endgetargs:; (const char *) 0);; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5901:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5906:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18590,7 +18590,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5901:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5906:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18605,7 +18605,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5901:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5906:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18618,7 +18618,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5901; + argtab[2].meltbp_long = 5906; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_use_package_from_pkg_config xargtup="; @@ -18639,7 +18639,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5901:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5906:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0; @@ -18652,7 +18652,7 @@ lab_endgetargs:; /*_.IF___V22*/ meltfptr[21] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5901:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5906:/ quasiblock"); /*_.PROGN___V24*/ meltfptr[22] = /*_.IF___V22*/ meltfptr[21];; @@ -18660,7 +18660,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = /*_.PROGN___V24*/ meltfptr[22];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5901:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5906:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V22*/ meltfptr[21] = 0; @@ -18673,7 +18673,7 @@ lab_endgetargs:; /*_.IFCPP___V21*/ meltfptr[20] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5902:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5907:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18708,14 +18708,14 @@ lab_endgetargs:; - MELT_LOCATION ("warmelt-macro.melt:5906:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5911:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L9*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURPKGNAME__V26*/ meltfptr[22])) == MELTOBMAG_STRING);; - MELT_LOCATION ("warmelt-macro.melt:5906:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5911:/ cond"); /*cond */ if ( /*_#IS_STRING__L9*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18723,7 +18723,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5906:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5911:/ cond.else"); /*^block */ /*anyblock */ @@ -18731,18 +18731,18 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5908:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5913:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("invalid argument to (USE_PACKAGE_FROM_PKG_CONFIG <pkg-name>...), expecting\ string"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5909:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5914:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:5909:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5914:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18755,7 +18755,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5906:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5911:/ quasiblock"); /*_.PROGN___V29*/ meltfptr[28] = @@ -18765,7 +18765,7 @@ lab_endgetargs:; /*_.PROGN___V29*/ meltfptr[28];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5906:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5911:/ clear"); /*clear *//*_.RETURN___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V29*/ meltfptr[28] = 0; @@ -18773,13 +18773,13 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:5911:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5916:/ quasiblock"); /*_#GOODPKGNAME__L10*/ meltfnum[9] = 1;; { - MELT_LOCATION ("warmelt-macro.melt:5913:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5918:/ locexp"); /* mexpand_use_package_from_pkg_config CHECKPKGNAME_CHK__1 */ { const char *pkgs_CHECKPKGNAME_CHK__1 @@ -18805,7 +18805,7 @@ lab_endgetargs:; } /* end mexpand_use_package_from_pkg_config CHECKPKGNAME_CHK__1 */ ; } ; - MELT_LOCATION ("warmelt-macro.melt:5930:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5935:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -18816,7 +18816,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5930:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5935:/ cond.else"); /*^block */ /*anyblock */ @@ -18824,20 +18824,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5931:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5936:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("invalid package name for (USE_PACKAGE_FROM_PKG_CONFIG ...)"), (melt_ptr_t) ( /*_.CURPKGNAME__V26*/ meltfptr[22])); } ; - MELT_LOCATION ("warmelt-macro.melt:5932:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5937:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:5932:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5937:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18850,7 +18850,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5930:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5935:/ quasiblock"); /*_.PROGN___V33*/ meltfptr[32] = @@ -18860,7 +18860,7 @@ lab_endgetargs:; /*_.PROGN___V33*/ meltfptr[32];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5930:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5935:/ clear"); /*clear *//*_.RETURN___V32*/ meltfptr[31] = 0; /*^clear */ /*clear *//*_.PROGN___V33*/ meltfptr[32] = 0; @@ -18868,7 +18868,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:5933:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5938:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18891,7 +18891,7 @@ lab_endgetargs:; ; /*_.LET___V30*/ meltfptr[27] = /*_.ADD2OUT__V34*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:5911:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5916:/ clear"); /*clear *//*_#GOODPKGNAME__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IFELSE___V31*/ meltfptr[28] = 0; @@ -18903,7 +18903,7 @@ lab_endgetargs:; /*citerepilog */ - MELT_LOCATION ("warmelt-macro.melt:5903:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5908:/ clear"); /*clear *//*_.CURPKGNAME__V26*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_#PKGIX__L8*/ meltfnum[1] = 0; @@ -18915,7 +18915,7 @@ lab_endgetargs:; /*clear *//*_.LET___V30*/ meltfptr[27] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; - MELT_LOCATION ("warmelt-macro.melt:5937:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5942:/ quasiblock"); /*_.CMDSTR__V36*/ meltfptr[28] = @@ -18926,7 +18926,7 @@ lab_endgetargs:; /*_#FAILCMD__L11*/ meltfnum[9] = 0;; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5940:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5945:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18952,7 +18952,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5940:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5945:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -18967,7 +18967,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5940:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5945:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18981,7 +18981,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5940; + argtab[2].meltbp_long = 5945; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_use_package_from_pkg_config cmdstr="; @@ -19002,7 +19002,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5940:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5945:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0; @@ -19015,7 +19015,7 @@ lab_endgetargs:; /*_.IF___V38*/ meltfptr[37] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5940:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5945:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[38] = /*_.IF___V38*/ meltfptr[37];; @@ -19023,7 +19023,7 @@ lab_endgetargs:; /*_.IFCPP___V37*/ meltfptr[31] = /*_.PROGN___V40*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5940:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5945:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V38*/ meltfptr[37] = 0; @@ -19038,7 +19038,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:5941:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5946:/ locexp"); /* mexpand_use_package_from_pkg_config TESTPKGCONFIG_CHK__1 */ { const char *cmd_TESTPKGCONFIG_CHK__1 = @@ -19055,7 +19055,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5950:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5955:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19081,7 +19081,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5950:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5955:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -19096,7 +19096,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5950:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5955:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19110,7 +19110,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5950; + argtab[2].meltbp_long = 5955; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_use_package_from_pkg_config failcmd="; @@ -19130,7 +19130,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5950:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5955:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = 0; @@ -19143,7 +19143,7 @@ lab_endgetargs:; /*_.IF___V42*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5950:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5955:/ quasiblock"); /*_.PROGN___V44*/ meltfptr[42] = /*_.IF___V42*/ meltfptr[38];; @@ -19151,7 +19151,7 @@ lab_endgetargs:; /*_.IFCPP___V41*/ meltfptr[37] = /*_.PROGN___V44*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5950:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5955:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IF___V42*/ meltfptr[38] = 0; @@ -19164,7 +19164,7 @@ lab_endgetargs:; /*_.IFCPP___V41*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5951:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5956:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -19177,19 +19177,19 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5952:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5957:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("unexistent package names for USE_PACKAGE_FROM_PKG_CONFIG "), (melt_ptr_t) ( /*_.CMDSTR__V36*/ meltfptr[28])); } ; - MELT_LOCATION ("warmelt-macro.melt:5953:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5958:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:5953:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5958:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19202,7 +19202,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5951:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5956:/ quasiblock"); /*_.PROGN___V47*/ meltfptr[46] = /*_.RETURN___V46*/ meltfptr[42];; @@ -19210,7 +19210,7 @@ lab_endgetargs:; /*_.IF___V45*/ meltfptr[38] = /*_.PROGN___V47*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5951:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5956:/ clear"); /*clear *//*_.RETURN___V46*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_.PROGN___V47*/ meltfptr[46] = 0; @@ -19226,7 +19226,7 @@ lab_endgetargs:; /*^compute */ /*_.LET___V35*/ meltfptr[32] = /*_.IF___V45*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:5937:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5942:/ clear"); /*clear *//*_.CMDSTR__V36*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_#FAILCMD__L11*/ meltfnum[9] = 0; @@ -19236,7 +19236,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V41*/ meltfptr[37] = 0; /*^clear */ /*clear *//*_.IF___V45*/ meltfptr[38] = 0; - MELT_LOCATION ("warmelt-macro.melt:5956:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5961:/ quasiblock"); /*^checksignal */ @@ -19282,7 +19282,7 @@ lab_endgetargs:; /*_.SUP__V49*/ meltfptr[46] = /*_.INST__V50*/ meltfptr[28];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5959:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5964:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19308,7 +19308,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5959:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5964:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -19323,7 +19323,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5959:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5964:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19337,7 +19337,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5959; + argtab[2].meltbp_long = 5964; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_use_package_from_pkg_config gives sup="; @@ -19358,7 +19358,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V53*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5959:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5964:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V53*/ meltfptr[38] = 0; @@ -19371,7 +19371,7 @@ lab_endgetargs:; /*_.IF___V52*/ meltfptr[37] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5959:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5964:/ quasiblock"); /*_.PROGN___V54*/ meltfptr[38] = /*_.IF___V52*/ meltfptr[37];; @@ -19379,7 +19379,7 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[31] = /*_.PROGN___V54*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5959:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5964:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V52*/ meltfptr[37] = 0; @@ -19392,7 +19392,7 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5960:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5965:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19401,7 +19401,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SUP__V49*/ meltfptr[46];; { - MELT_LOCATION ("warmelt-macro.melt:5960:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5965:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19416,7 +19416,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V48*/ meltfptr[42] = /*_.RETURN___V55*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:5956:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5961:/ clear"); /*clear *//*_.SUP__V49*/ meltfptr[46] = 0; /*^clear */ /*clear *//*_.IFCPP___V51*/ meltfptr[31] = 0; @@ -19424,7 +19424,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V55*/ meltfptr[37] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V48*/ meltfptr[42];; - MELT_LOCATION ("warmelt-macro.melt:5896:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5901:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -19440,7 +19440,7 @@ lab_endgetargs:; /*clear *//*_.LET___V35*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.LET___V48*/ meltfptr[42] = 0; - MELT_LOCATION ("warmelt-macro.melt:5891:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5896:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19449,7 +19449,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:5891:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5896:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19573,7 +19573,7 @@ meltrout_125_warmelt_macro_PAIRLIST_TO_RETURN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5981:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5986:/ getarg"); /*_.PAIR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19623,7 +19623,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5982:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5987:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19635,7 +19635,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5982:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5987:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19643,7 +19643,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5982:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5987:/ cond.else"); /*^block */ /*anyblock */ @@ -19657,7 +19657,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5982) ? (5982) : __LINE__, __FUNCTION__); + (5987) ? (5987) : __LINE__, __FUNCTION__); ; } ; @@ -19671,7 +19671,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5982:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5987:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -19684,7 +19684,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5983:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5988:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19695,7 +19695,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L2*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V5*/ meltfptr[4])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:5983:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5988:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19703,7 +19703,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5983:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5988:/ cond.else"); /*^block */ /*anyblock */ @@ -19717,7 +19717,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5983) ? (5983) : __LINE__, __FUNCTION__); + (5988) ? (5988) : __LINE__, __FUNCTION__); ; } ; @@ -19731,7 +19731,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5983:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5988:/ clear"); /*clear *//*_#IS_CLOSURE__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -19744,7 +19744,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5984:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5989:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19755,7 +19755,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V6*/ meltfptr[5])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:5984:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5989:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19763,7 +19763,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5984:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5989:/ cond.else"); /*^block */ /*anyblock */ @@ -19777,7 +19777,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5984) ? (5984) : __LINE__, __FUNCTION__); + (5989) ? (5989) : __LINE__, __FUNCTION__); ; } ; @@ -19791,7 +19791,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5984:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5989:/ clear"); /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -19802,10 +19802,10 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5985:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5990:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5989:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5994:/ quasiblock"); /*^newclosure */ @@ -19856,7 +19856,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODCTX__V6*/ meltfptr[5]); ; /*_.LAMBDA___V14*/ meltfptr[13] = /*_.LAMBDA___V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-macro.melt:5986:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5991:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19878,7 +19878,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5990:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5995:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19923,13 +19923,13 @@ lab_endgetargs:; /*^compute */ /*_.LET___V13*/ meltfptr[11] = /*_.INST___V17*/ meltfptr[16];; - MELT_LOCATION ("warmelt-macro.melt:5985:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5990:/ clear"); /*clear *//*_.LAMBDA___V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.BODYTUP__V16*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.INST___V17*/ meltfptr[16] = 0; - MELT_LOCATION ("warmelt-macro.melt:5981:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5986:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19938,7 +19938,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; { - MELT_LOCATION ("warmelt-macro.melt:5981:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5986:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20058,7 +20058,7 @@ meltrout_126_warmelt_macro_LAMBDA___35__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5989:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5994:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -20099,7 +20099,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:5989:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5994:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20213,7 +20213,7 @@ meltrout_127_warmelt_macro_MEXPAND_PROGN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5997:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6002:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -20254,7 +20254,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5998:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6003:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20266,7 +20266,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:5998:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6003:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20274,7 +20274,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5998:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6003:/ cond.else"); /*^block */ /*anyblock */ @@ -20288,7 +20288,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5998) ? (5998) : __LINE__, __FUNCTION__); + (6003) ? (6003) : __LINE__, __FUNCTION__); ; } ; @@ -20302,7 +20302,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5998:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6003:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -20313,7 +20313,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5999:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6004:/ quasiblock"); /*^getslot */ @@ -20324,7 +20324,7 @@ lab_endgetargs:; /*_.SLOC__V9*/ meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6001:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6006:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -20338,7 +20338,7 @@ lab_endgetargs:; /*^compute */ /*_.PAIRS__V12*/ meltfptr[11] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V11*/ meltfptr[10])));; - MELT_LOCATION ("warmelt-macro.melt:6003:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6008:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L2*/ meltfnum[0] = @@ -20347,7 +20347,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L3*/ meltfnum[2] = (!( /*_#IS_PAIR__L2*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:6003:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6008:/ cond"); /*cond */ if ( /*_#NOT__L3*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -20357,19 +20357,19 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6005:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6010:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V9*/ meltfptr[8]), ("empty PROGN"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6006:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6011:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6006:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6011:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20382,7 +20382,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6004:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6009:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[14] = /*_.RETURN___V14*/ meltfptr[13];; @@ -20390,7 +20390,7 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = /*_.PROGN___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6003:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6008:/ clear"); /*clear *//*_.RETURN___V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.PROGN___V15*/ meltfptr[14] = 0; @@ -20403,10 +20403,10 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6007:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6012:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6008:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6013:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20432,7 +20432,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6013:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6018:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20441,7 +20441,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PROGR__V17*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6013:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6018:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20456,13 +20456,13 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V16*/ meltfptr[13] = /*_.RETURN___V18*/ meltfptr[17];; - MELT_LOCATION ("warmelt-macro.melt:6007:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6012:/ clear"); /*clear *//*_.PROGR__V17*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.RETURN___V18*/ meltfptr[17] = 0; /*_.LET___V8*/ meltfptr[6] = /*_.LET___V16*/ meltfptr[13];; - MELT_LOCATION ("warmelt-macro.melt:5999:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6004:/ clear"); /*clear *//*_.SLOC__V9*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.SEXP_CONTENTS__V10*/ meltfptr[9] = 0; @@ -20478,7 +20478,7 @@ lab_endgetargs:; /*clear *//*_.IF___V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LET___V16*/ meltfptr[13] = 0; - MELT_LOCATION ("warmelt-macro.melt:5997:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6002:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20487,7 +20487,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { - MELT_LOCATION ("warmelt-macro.melt:5997:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6002:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20603,7 +20603,7 @@ meltrout_128_warmelt_macro_MEXPAND_RETURN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6022:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6027:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -20644,7 +20644,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6023:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6028:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20670,7 +20670,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6023:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6028:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20685,7 +20685,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6023:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6028:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20698,7 +20698,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6023; + argtab[2].meltbp_long = 6028; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_return sexpr="; /*^apply.arg */ @@ -20717,7 +20717,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6023:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6028:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -20730,7 +20730,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6023:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6028:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -20738,7 +20738,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6023:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6028:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -20753,7 +20753,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6024:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6029:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20765,7 +20765,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6024:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6029:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20773,7 +20773,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6024:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6029:/ cond.else"); /*^block */ /*anyblock */ @@ -20787,7 +20787,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6024) ? (6024) : __LINE__, __FUNCTION__); + (6029) ? (6029) : __LINE__, __FUNCTION__); ; } ; @@ -20801,7 +20801,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6024:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6029:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -20814,7 +20814,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6025:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6030:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20825,7 +20825,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:6025:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6030:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20833,7 +20833,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6025:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6030:/ cond.else"); /*^block */ /*anyblock */ @@ -20847,7 +20847,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6025) ? (6025) : __LINE__, __FUNCTION__); + (6030) ? (6030) : __LINE__, __FUNCTION__); ; } ; @@ -20861,7 +20861,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6025:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6030:/ clear"); /*clear *//*_#IS_CLOSURE__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -20874,7 +20874,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6026:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6031:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20885,7 +20885,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6026:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6031:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20893,7 +20893,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6026:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6031:/ cond.else"); /*^block */ /*anyblock */ @@ -20907,7 +20907,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6026) ? (6026) : __LINE__, __FUNCTION__); + (6031) ? (6031) : __LINE__, __FUNCTION__); ; } ; @@ -20921,7 +20921,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6026:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6031:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -20932,10 +20932,10 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6027:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6032:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6028:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6033:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -20949,7 +20949,7 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V19*/ meltfptr[18] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:6029:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -20957,7 +20957,7 @@ lab_endgetargs:; /*_.LOCA_LOCATION__V20*/ meltfptr[19] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6028:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6033:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20984,7 +20984,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6034:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6039:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20993,7 +20993,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETR__V21*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-macro.melt:6034:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6039:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21008,7 +21008,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V16*/ meltfptr[14] = /*_.RETURN___V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:6027:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6032:/ clear"); /*clear *//*_.SEXP_CONTENTS__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LIST_FIRST__V18*/ meltfptr[17] = 0; @@ -21020,7 +21020,7 @@ lab_endgetargs:; /*clear *//*_.RETR__V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.RETURN___V22*/ meltfptr[21] = 0; - MELT_LOCATION ("warmelt-macro.melt:6022:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6027:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21029,7 +21029,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6022:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6027:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21151,7 +21151,7 @@ meltrout_129_warmelt_macro_MEXPAND_FOREVER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6045:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21192,7 +21192,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6046:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6051:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21218,7 +21218,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6046:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6051:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21233,7 +21233,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6046:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6051:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21246,7 +21246,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6046; + argtab[2].meltbp_long = 6051; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_forever sexpr="; /*^apply.arg */ @@ -21265,7 +21265,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6046:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6051:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -21278,7 +21278,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6046:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6051:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -21286,7 +21286,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6046:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6051:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -21301,7 +21301,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6047:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6052:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21313,7 +21313,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6047:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6052:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21321,7 +21321,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6047:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6052:/ cond.else"); /*^block */ /*anyblock */ @@ -21335,7 +21335,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6047) ? (6047) : __LINE__, __FUNCTION__); + (6052) ? (6052) : __LINE__, __FUNCTION__); ; } ; @@ -21349,7 +21349,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6047:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6052:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -21362,7 +21362,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6048:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6053:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21373,7 +21373,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:6048:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6053:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21381,7 +21381,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6048:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6053:/ cond.else"); /*^block */ /*anyblock */ @@ -21395,7 +21395,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6048) ? (6048) : __LINE__, __FUNCTION__); + (6053) ? (6053) : __LINE__, __FUNCTION__); ; } ; @@ -21409,7 +21409,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6048:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6053:/ clear"); /*clear *//*_#IS_CLOSURE__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -21422,7 +21422,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6049:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6054:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21433,7 +21433,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6049:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6054:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21441,7 +21441,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6049:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6054:/ cond.else"); /*^block */ /*anyblock */ @@ -21455,7 +21455,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6049) ? (6049) : __LINE__, __FUNCTION__); + (6054) ? (6054) : __LINE__, __FUNCTION__); ; } ; @@ -21469,7 +21469,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6049:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6054:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -21480,7 +21480,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6050:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6055:/ quasiblock"); /*^getslot */ @@ -21491,7 +21491,7 @@ lab_endgetargs:; /*_.CONT__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6051:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6056:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -21507,7 +21507,7 @@ lab_endgetargs:; /*^compute */ /*_.SLABNAM__V21*/ meltfptr[20] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6054:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6059:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21529,7 +21529,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6055:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6060:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21542,14 +21542,14 @@ lab_endgetargs:; (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6057:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6062:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.XLABNAM__V22*/ meltfptr[21]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:6057:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6062:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21559,13 +21559,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6059:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6064:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("missing label in FOREVER"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6060:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6065:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21574,7 +21574,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:6060:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6065:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21587,7 +21587,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6058:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6063:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[25] = /*_.RETURN___V25*/ meltfptr[24];; @@ -21595,7 +21595,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = /*_.PROGN___V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6057:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6062:/ clear"); /*clear *//*_.RETURN___V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.PROGN___V26*/ meltfptr[25] = 0; @@ -21611,10 +21611,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V27*/ meltfptr[24] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6061:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6066:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V28*/ meltfptr[25] = /*_.PAIR_TAIL__V27*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:6062:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6067:/ quasiblock"); /*^checksignal */ @@ -21659,7 +21659,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.LABIND__V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:6065:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6070:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21677,10 +21677,10 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6066:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6071:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6069:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6074:/ quasiblock"); /*^newclosure */ @@ -21731,7 +21731,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]); ; /*_.LAMBDA___V34*/ meltfptr[33] = /*_.LAMBDA___V35*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:6066:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6071:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21753,7 +21753,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6071:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6076:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21804,7 +21804,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.FORR__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:6076:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6081:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21813,7 +21813,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.FORR__V37*/ meltfptr[36];; { - MELT_LOCATION ("warmelt-macro.melt:6076:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6081:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21828,7 +21828,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V33*/ meltfptr[32] = /*_.RETURN___V39*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:6066:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6071:/ clear"); /*clear *//*_.LAMBDA___V34*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.BODYTUP__V36*/ meltfptr[35] = 0; @@ -21838,7 +21838,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V39*/ meltfptr[38] = 0; /*_.LET___V29*/ meltfptr[28] = /*_.LET___V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:6062:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6067:/ clear"); /*clear *//*_.LABIND__V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.PUT_ENV__V32*/ meltfptr[31] = 0; @@ -21846,7 +21846,7 @@ lab_endgetargs:; /*clear *//*_.LET___V33*/ meltfptr[32] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V29*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:6050:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6055:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -21870,7 +21870,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V28*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.LET___V29*/ meltfptr[28] = 0; - MELT_LOCATION ("warmelt-macro.melt:6045:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21879,7 +21879,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6045:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22001,7 +22001,7 @@ meltrout_130_warmelt_macro_LAMBDA___36__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6069:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6074:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -22042,7 +22042,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:6069:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6074:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22155,7 +22155,7 @@ meltrout_131_warmelt_macro_MEXPAND_EXIT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6088:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -22196,7 +22196,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6089:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6094:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22222,7 +22222,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6089:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6094:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22237,7 +22237,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6089:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6094:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22250,7 +22250,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6089; + argtab[2].meltbp_long = 6094; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_exit sexpr="; /*^apply.arg */ @@ -22269,7 +22269,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6089:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6094:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -22282,7 +22282,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6089:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6094:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -22290,7 +22290,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6089:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6094:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -22305,7 +22305,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6090:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6095:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22317,7 +22317,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6090:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6095:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22325,7 +22325,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6090:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6095:/ cond.else"); /*^block */ /*anyblock */ @@ -22339,7 +22339,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6090) ? (6090) : __LINE__, __FUNCTION__); + (6095) ? (6095) : __LINE__, __FUNCTION__); ; } ; @@ -22353,7 +22353,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6090:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6095:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -22366,7 +22366,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6091:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6096:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22377,7 +22377,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6091:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6096:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22385,7 +22385,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6091:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6096:/ cond.else"); /*^block */ /*anyblock */ @@ -22399,7 +22399,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6091) ? (6091) : __LINE__, __FUNCTION__); + (6096) ? (6096) : __LINE__, __FUNCTION__); ; } ; @@ -22413,7 +22413,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6091:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6096:/ clear"); /*clear *//*_#IS_OBJECT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -22426,7 +22426,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6092:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6097:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22437,7 +22437,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:6092:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6097:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22445,7 +22445,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6092:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6097:/ cond.else"); /*^block */ /*anyblock */ @@ -22459,7 +22459,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6092) ? (6092) : __LINE__, __FUNCTION__); + (6097) ? (6097) : __LINE__, __FUNCTION__); ; } ; @@ -22473,7 +22473,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6092:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6097:/ clear"); /*clear *//*_#IS_CLOSURE__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -22484,7 +22484,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6093:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6098:/ quasiblock"); /*^getslot */ @@ -22495,7 +22495,7 @@ lab_endgetargs:; /*_.CONT__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6094:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6099:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -22511,7 +22511,7 @@ lab_endgetargs:; /*^compute */ /*_.SLABNAM__V21*/ meltfptr[20] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6097:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6102:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22533,7 +22533,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6098:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6103:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22546,14 +22546,14 @@ lab_endgetargs:; (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6100:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6105:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.XLABNAM__V22*/ meltfptr[21]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:6100:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6105:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22563,13 +22563,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6102:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6107:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("missing label in EXIT"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6103:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6108:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22578,7 +22578,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:6103:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6108:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22591,7 +22591,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6101:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6106:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[25] = /*_.RETURN___V25*/ meltfptr[24];; @@ -22599,7 +22599,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = /*_.PROGN___V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6100:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6105:/ clear"); /*clear *//*_.RETURN___V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.PROGN___V26*/ meltfptr[25] = 0; @@ -22615,10 +22615,10 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V27*/ meltfptr[24] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6104:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6109:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V28*/ meltfptr[25] = /*_.PAIR_TAIL__V27*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:6105:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6110:/ quasiblock"); /*^checksignal */ @@ -22640,14 +22640,14 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6106:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6111:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L7*/ meltfnum[1] = !melt_is_instance_of ((melt_ptr_t) ( /*_.LABIND__V30*/ meltfptr[29]), (melt_ptr_t) (( /*!CLASS_LABEL_BINDING */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:6106:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6111:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22655,7 +22655,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6109:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6114:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.XLABNAM__V22*/ meltfptr[21]) /*=obj*/ ; @@ -22665,14 +22665,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:6108:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6113:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("bad label in EXIT"), (melt_ptr_t) ( /*_.NAMED_NAME__V32*/ meltfptr[31])); } ; - MELT_LOCATION ("warmelt-macro.melt:6110:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6115:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22681,7 +22681,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:6110:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6115:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22694,7 +22694,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6107:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6112:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[33] = /*_.RETURN___V33*/ meltfptr[32];; @@ -22702,7 +22702,7 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[30] = /*_.PROGN___V34*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6106:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6111:/ clear"); /*clear *//*_.NAMED_NAME__V32*/ meltfptr[31] = 0; /*^clear */ /*clear *//*_.RETURN___V33*/ meltfptr[32] = 0; @@ -22717,10 +22717,10 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6111:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6116:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6114:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6119:/ quasiblock"); /*^newclosure */ @@ -22771,7 +22771,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]); ; /*_.LAMBDA___V36*/ meltfptr[32] = /*_.LAMBDA___V37*/ meltfptr[33];; - MELT_LOCATION ("warmelt-macro.melt:6111:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6116:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22793,7 +22793,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6116:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6121:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22844,7 +22844,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.EXR__V39*/ meltfptr[38] = /*_.INST__V40*/ meltfptr[39];; - MELT_LOCATION ("warmelt-macro.melt:6121:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6126:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22853,7 +22853,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXR__V39*/ meltfptr[38];; { - MELT_LOCATION ("warmelt-macro.melt:6121:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6126:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22868,7 +22868,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V35*/ meltfptr[31] = /*_.RETURN___V41*/ meltfptr[40];; - MELT_LOCATION ("warmelt-macro.melt:6111:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6116:/ clear"); /*clear *//*_.LAMBDA___V36*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.BODYTUP__V38*/ meltfptr[37] = 0; @@ -22878,7 +22878,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V41*/ meltfptr[40] = 0; /*_.LET___V29*/ meltfptr[28] = /*_.LET___V35*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:6105:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6110:/ clear"); /*clear *//*_.LABIND__V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L7*/ meltfnum[1] = 0; @@ -22888,7 +22888,7 @@ lab_endgetargs:; /*clear *//*_.LET___V35*/ meltfptr[31] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V29*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:6093:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6098:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -22912,7 +22912,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V28*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.LET___V29*/ meltfptr[28] = 0; - MELT_LOCATION ("warmelt-macro.melt:6088:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22921,7 +22921,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6088:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23043,7 +23043,7 @@ meltrout_132_warmelt_macro_LAMBDA___37__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6114:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6119:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -23084,7 +23084,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:6114:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6119:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23198,7 +23198,7 @@ meltrout_133_warmelt_macro_MEXPAND_AGAIN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6131:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6136:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -23239,7 +23239,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6132:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6137:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23265,7 +23265,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6132:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6137:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23280,7 +23280,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6132:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6137:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23293,7 +23293,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6132; + argtab[2].meltbp_long = 6137; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_again sexpr"; /*^apply.arg */ @@ -23312,7 +23312,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6132:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6137:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -23325,7 +23325,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6132:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6137:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -23333,7 +23333,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6132:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6137:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -23348,7 +23348,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6133:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6138:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23360,7 +23360,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6133:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6138:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -23368,7 +23368,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6133:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6138:/ cond.else"); /*^block */ /*anyblock */ @@ -23382,7 +23382,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6133) ? (6133) : __LINE__, __FUNCTION__); + (6138) ? (6138) : __LINE__, __FUNCTION__); ; } ; @@ -23396,7 +23396,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6133:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6138:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -23409,7 +23409,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6134:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6139:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23420,7 +23420,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:6134:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6139:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23428,7 +23428,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6134:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6139:/ cond.else"); /*^block */ /*anyblock */ @@ -23442,7 +23442,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6134) ? (6134) : __LINE__, __FUNCTION__); + (6139) ? (6139) : __LINE__, __FUNCTION__); ; } ; @@ -23456,7 +23456,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6134:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6139:/ clear"); /*clear *//*_#IS_CLOSURE__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -23469,7 +23469,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6135:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6140:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23480,7 +23480,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6135:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6140:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -23488,7 +23488,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6135:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6140:/ cond.else"); /*^block */ /*anyblock */ @@ -23502,7 +23502,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6135) ? (6135) : __LINE__, __FUNCTION__); + (6140) ? (6140) : __LINE__, __FUNCTION__); ; } ; @@ -23516,7 +23516,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6135:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6140:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -23527,7 +23527,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6136:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6141:/ quasiblock"); /*^getslot */ @@ -23538,7 +23538,7 @@ lab_endgetargs:; /*_.CONT__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6137:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6142:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -23554,7 +23554,7 @@ lab_endgetargs:; /*^compute */ /*_.SLABNAM__V21*/ meltfptr[20] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6140:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6145:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23578,17 +23578,17 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V23*/ meltfptr[22] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6142:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6147:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V24*/ meltfptr[23] = /*_.PAIR_TAIL__V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-macro.melt:6143:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6148:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L6*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.XLABNAM__V22*/ meltfptr[21]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:6143:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6148:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23598,20 +23598,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6145:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6150:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("bad label in (AGAIN <label>)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6146:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6151:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6146:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6151:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23624,7 +23624,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6144:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6149:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[26] = /*_.RETURN___V26*/ meltfptr[25];; @@ -23632,7 +23632,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[24] = /*_.PROGN___V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6143:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6148:/ clear"); /*clear *//*_.RETURN___V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.PROGN___V27*/ meltfptr[26] = 0; @@ -23645,7 +23645,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[24] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6147:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6152:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -23658,20 +23658,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6149:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6154:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("extra operands to (AGAIN <label>)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6150:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6155:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6150:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6155:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23684,7 +23684,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6148:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6153:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = /*_.RETURN___V29*/ meltfptr[26];; @@ -23692,7 +23692,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[25] = /*_.PROGN___V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6147:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6152:/ clear"); /*clear *//*_.RETURN___V29*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.PROGN___V30*/ meltfptr[29] = 0; @@ -23705,7 +23705,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6151:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6156:/ quasiblock"); /*^checksignal */ @@ -23727,14 +23727,14 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6152:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6157:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L7*/ meltfnum[1] = !melt_is_instance_of ((melt_ptr_t) ( /*_.LABIND__V32*/ meltfptr[29]), (melt_ptr_t) (( /*!CLASS_LABEL_BINDING */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:6152:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6157:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -23742,7 +23742,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6155:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6160:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.XLABNAM__V22*/ meltfptr[21]) /*=obj*/ ; @@ -23752,20 +23752,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:6154:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6159:/ locexp"); melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("bad label in AGAIN"), (melt_ptr_t) ( /*_.NAMED_NAME__V34*/ meltfptr[33])); } ; - MELT_LOCATION ("warmelt-macro.melt:6156:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6161:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6156:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6161:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23778,7 +23778,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6153:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6158:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[35] = /*_.RETURN___V35*/ meltfptr[34];; @@ -23786,7 +23786,7 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[32] = /*_.PROGN___V36*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6152:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6157:/ clear"); /*clear *//*_.NAMED_NAME__V34*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.RETURN___V35*/ meltfptr[34] = 0; @@ -23801,7 +23801,7 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6157:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6162:/ quasiblock"); /*^checksignal */ @@ -23848,7 +23848,7 @@ lab_endgetargs:; /*_.MAGAIN__V38*/ meltfptr[34] = /*_.INST__V39*/ meltfptr[35];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6162:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6167:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23874,7 +23874,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6162:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6167:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -23889,7 +23889,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6162:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6167:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23902,7 +23902,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6162; + argtab[2].meltbp_long = 6167; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_again result"; /*^apply.arg */ @@ -23922,7 +23922,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6162:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6167:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 0; @@ -23935,7 +23935,7 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[40] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6162:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6167:/ quasiblock"); /*_.PROGN___V43*/ meltfptr[41] = /*_.IF___V41*/ meltfptr[40];; @@ -23943,7 +23943,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[39] = /*_.PROGN___V43*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6162:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6167:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V41*/ meltfptr[40] = 0; @@ -23956,7 +23956,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[39] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6163:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6168:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -23965,7 +23965,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MAGAIN__V38*/ meltfptr[34];; { - MELT_LOCATION ("warmelt-macro.melt:6163:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6168:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23980,7 +23980,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V37*/ meltfptr[33] = /*_.RETURN___V44*/ meltfptr[40];; - MELT_LOCATION ("warmelt-macro.melt:6157:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6162:/ clear"); /*clear *//*_.MAGAIN__V38*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.IFCPP___V40*/ meltfptr[39] = 0; @@ -23988,7 +23988,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V44*/ meltfptr[40] = 0; /*_.LET___V31*/ meltfptr[26] = /*_.LET___V37*/ meltfptr[33];; - MELT_LOCATION ("warmelt-macro.melt:6151:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6156:/ clear"); /*clear *//*_.LABIND__V32*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L7*/ meltfnum[1] = 0; @@ -23998,7 +23998,7 @@ lab_endgetargs:; /*clear *//*_.LET___V37*/ meltfptr[33] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V31*/ meltfptr[26];; - MELT_LOCATION ("warmelt-macro.melt:6136:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6141:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -24022,7 +24022,7 @@ lab_endgetargs:; /*clear *//*_.IF___V28*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.LET___V31*/ meltfptr[26] = 0; - MELT_LOCATION ("warmelt-macro.melt:6131:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6136:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -24031,7 +24031,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6131:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6136:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -24156,7 +24156,7 @@ meltrout_134_warmelt_macro_MEXPAND_COMPILE_WARNING (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6175:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6180:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -24197,7 +24197,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6176:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6181:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24223,7 +24223,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6176:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6181:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -24238,7 +24238,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6176:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6181:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24251,7 +24251,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6176; + argtab[2].meltbp_long = 6181; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_compile_warning sexpr"; /*^apply.arg */ @@ -24270,7 +24270,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6176:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6181:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -24283,7 +24283,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6176:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6181:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -24291,7 +24291,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6176:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6181:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -24306,7 +24306,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6177:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6182:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24318,7 +24318,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6177:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6182:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -24326,7 +24326,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6177:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6182:/ cond.else"); /*^block */ /*anyblock */ @@ -24340,7 +24340,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6177) ? (6177) : __LINE__, __FUNCTION__); + (6182) ? (6182) : __LINE__, __FUNCTION__); ; } ; @@ -24354,7 +24354,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6177:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6182:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -24367,7 +24367,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6178:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6183:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24378,7 +24378,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L4*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6178:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6183:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -24386,7 +24386,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6178:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6183:/ cond.else"); /*^block */ /*anyblock */ @@ -24400,7 +24400,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6178) ? (6178) : __LINE__, __FUNCTION__); + (6183) ? (6183) : __LINE__, __FUNCTION__); ; } ; @@ -24414,7 +24414,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6178:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6183:/ clear"); /*clear *//*_#IS_OBJECT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -24425,12 +24425,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6179:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6184:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6179:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6184:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -24444,7 +24444,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6179:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6184:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -24455,7 +24455,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6180:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6185:/ quasiblock"); /*^getslot */ @@ -24466,7 +24466,7 @@ lab_endgetargs:; /*_.CONT__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6181:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6186:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -24482,7 +24482,7 @@ lab_endgetargs:; /*^compute */ /*_.SMSG__V21*/ meltfptr[20] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6184:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6189:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24504,7 +24504,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6186:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6191:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L6*/ meltfnum[0] = @@ -24513,7 +24513,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L7*/ meltfnum[6] = (!( /*_#IS_STRING__L6*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:6186:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6191:/ cond"); /*cond */ if ( /*_#NOT__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -24523,14 +24523,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6188:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6193:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("missing message string in (COMPILE_WARNING <msg> <exp>)"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6189:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6194:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -24539,7 +24539,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:6189:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6194:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -24552,7 +24552,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6187:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6192:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[24] = /*_.RETURN___V24*/ meltfptr[23];; @@ -24560,7 +24560,7 @@ lab_endgetargs:; /*_.IF___V23*/ meltfptr[22] = /*_.PROGN___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6186:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6191:/ clear"); /*clear *//*_.RETURN___V24*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.PROGN___V25*/ meltfptr[24] = 0; @@ -24576,15 +24576,15 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_TAIL__V26*/ meltfptr[23] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6190:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6195:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V27*/ meltfptr[24] = /*_.PAIR_TAIL__V26*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:6191:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6196:/ quasiblock"); /*_.SEXP__V29*/ meltfptr[28] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6192:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6197:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24608,15 +24608,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V31*/ meltfptr[30] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6194:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6199:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V32*/ meltfptr[31] = /*_.PAIR_TAIL__V31*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:6195:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6200:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOTNULL__L8*/ meltfnum[7] = (( /*_.CURPAIR__V20*/ meltfptr[19]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:6195:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6200:/ cond"); /*cond */ if ( /*_#NOTNULL__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -24626,7 +24626,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6196:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6201:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("too many arguments in (COMPILE_WARNING <msg> [<exp>])"), @@ -24638,7 +24638,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6197:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6202:/ quasiblock"); /*^checksignal */ @@ -24692,7 +24692,7 @@ lab_endgetargs:; /*_.RES__V34*/ meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6203:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24718,7 +24718,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6203:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -24733,7 +24733,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6203:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24747,7 +24747,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6203; + argtab[2].meltbp_long = 6208; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_compile_warning result"; /*^apply.arg */ @@ -24767,7 +24767,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6203:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0; @@ -24780,7 +24780,7 @@ lab_endgetargs:; /*_.IF___V37*/ meltfptr[36] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6203:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[37] = /*_.IF___V37*/ meltfptr[36];; @@ -24788,7 +24788,7 @@ lab_endgetargs:; /*_.IFCPP___V36*/ meltfptr[35] = /*_.PROGN___V39*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6203:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IF___V37*/ meltfptr[36] = 0; @@ -24801,7 +24801,7 @@ lab_endgetargs:; /*_.IFCPP___V36*/ meltfptr[35] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6204:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6209:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -24810,7 +24810,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V34*/ meltfptr[33];; { - MELT_LOCATION ("warmelt-macro.melt:6204:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6209:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -24825,7 +24825,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V33*/ meltfptr[32] = /*_.RETURN___V40*/ meltfptr[36];; - MELT_LOCATION ("warmelt-macro.melt:6197:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6202:/ clear"); /*clear *//*_.RES__V34*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.IFCPP___V36*/ meltfptr[35] = 0; @@ -24833,7 +24833,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V40*/ meltfptr[36] = 0; /*_.LET___V28*/ meltfptr[27] = /*_.LET___V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:6191:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6196:/ clear"); /*clear *//*_.SEXP__V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.XEXP__V30*/ meltfptr[29] = 0; @@ -24847,7 +24847,7 @@ lab_endgetargs:; /*clear *//*_.LET___V33*/ meltfptr[32] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:6180:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6185:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -24871,7 +24871,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V27*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.LET___V28*/ meltfptr[27] = 0; - MELT_LOCATION ("warmelt-macro.melt:6175:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6180:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -24880,7 +24880,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6175:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6180:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -25006,7 +25006,7 @@ meltrout_135_warmelt_macro_MEXPAND_ASSERT_MSG (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6218:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -25047,7 +25047,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6219:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6224:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25073,7 +25073,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6219:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6224:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -25088,7 +25088,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6219:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6224:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25101,7 +25101,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6219; + argtab[2].meltbp_long = 6224; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_assert_msg sexpr="; /*^apply.arg */ @@ -25120,7 +25120,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6219:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6224:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -25133,7 +25133,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6219:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6224:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -25141,7 +25141,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6219:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6224:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -25156,7 +25156,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6220:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6225:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25168,7 +25168,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6220:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6225:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -25176,7 +25176,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6220:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6225:/ cond.else"); /*^block */ /*anyblock */ @@ -25190,7 +25190,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6220) ? (6220) : __LINE__, __FUNCTION__); + (6225) ? (6225) : __LINE__, __FUNCTION__); ; } ; @@ -25204,7 +25204,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6220:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6225:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -25217,7 +25217,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6221:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6226:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25229,7 +25229,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:6221:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6226:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -25237,7 +25237,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6221:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6226:/ cond.else"); /*^block */ /*anyblock */ @@ -25251,7 +25251,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6221) ? (6221) : __LINE__, __FUNCTION__); + (6226) ? (6226) : __LINE__, __FUNCTION__); ; } ; @@ -25265,7 +25265,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6221:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6226:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -25276,12 +25276,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6222:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6227:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6222:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6227:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -25295,7 +25295,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6222:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6227:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -25308,7 +25308,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6223:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6228:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25319,7 +25319,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6223:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6228:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -25327,7 +25327,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6223:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6228:/ cond.else"); /*^block */ /*anyblock */ @@ -25341,7 +25341,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6223) ? (6223) : __LINE__, __FUNCTION__); + (6228) ? (6228) : __LINE__, __FUNCTION__); ; } ; @@ -25355,7 +25355,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6223:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6228:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -25366,10 +25366,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6224:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6229:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6225:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6230:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -25377,7 +25377,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6226:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6231:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -25393,7 +25393,7 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_HEAD__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6228:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6233:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25419,7 +25419,7 @@ lab_endgetargs:; /*^compute */ /*_.ASSFAIL_SYMB__V26*/ meltfptr[25] = ( /*!konst_4_ASSERT_FAILED */ meltfrout->tabval[4]);; - MELT_LOCATION ("warmelt-macro.melt:6231:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6236:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25438,7 +25438,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6233:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6238:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L7*/ meltfnum[0] = @@ -25447,7 +25447,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L8*/ meltfnum[7] = (!( /*_#IS_STRING__L7*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:6233:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6238:/ cond"); /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -25457,7 +25457,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6234:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6239:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("non string message in (ASSERT_MSG <msg> <test>)"), @@ -25471,16 +25471,16 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V28*/ meltfptr[27] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6235:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6240:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V29*/ meltfptr[28] = /*_.PAIR_TAIL__V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:6236:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6241:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L9*/ meltfnum[8] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-macro.melt:6236:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6241:/ cond"); /*cond */ if ( /*_#IS_PAIR__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -25488,13 +25488,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6237:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6242:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V31*/ meltfptr[30] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6237:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6242:/ cond"); /*cond */ if ( /*_.PAIR_TAIL__V31*/ meltfptr[30]) /*then */ { /*^cond.then */ @@ -25504,7 +25504,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6238:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6243:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -25520,7 +25520,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V32*/ meltfptr[31] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6239:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6244:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25548,7 +25548,7 @@ lab_endgetargs:; /*^compute */ /*_.XTEST__V25*/ meltfptr[24] = /*_.SETQ___V34*/ meltfptr[33] = /*_.MEXPANDER__V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:6236:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6241:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[34] = /*_.SETQ___V34*/ meltfptr[33];; @@ -25556,7 +25556,7 @@ lab_endgetargs:; /*_.IFELSE___V30*/ meltfptr[29] = /*_.PROGN___V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6236:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6241:/ clear"); /*clear *//*_.PAIR_TAIL__V31*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.PAIR_HEAD__V32*/ meltfptr[31] = 0; @@ -25576,37 +25576,37 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6241:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6246:/ compute"); /*_.XTEST__V25*/ meltfptr[24] = /*_.SETQ___V36*/ meltfptr[30] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:6242:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6247:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("empty ASSERT_MSG"), (melt_ptr_t) ( /*_.XMSG__V24*/ meltfptr[23])); } ; - MELT_LOCATION ("warmelt-macro.melt:6240:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6245:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6236:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6241:/ clear"); /*clear *//*_.SETQ___V36*/ meltfptr[30] = 0; } ; } ; - MELT_LOCATION ("warmelt-macro.melt:6244:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6249:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6247:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6252:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L10*/ meltfnum[9] = (( /*_.ASSFAIL_BINDING__V27*/ meltfptr[26]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6247:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6252:/ cond"); /*cond */ if ( /*_#NULL__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -25616,7 +25616,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6248:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6253:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("unbound ASSERT_FAILED in (ASSERT_MSG <msg> <test>)"), @@ -25625,7 +25625,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6249:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6254:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25651,7 +25651,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6249:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6254:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -25671,7 +25671,7 @@ lab_endgetargs:; ((melt_ptr_t) (melt_discr ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]))));; - MELT_LOCATION ("warmelt-macro.melt:6251:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6256:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25691,7 +25691,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6249:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6254:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25705,7 +25705,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6249; + argtab[2].meltbp_long = 6254; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_assert_msg without assert_failed env="; @@ -25745,7 +25745,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6249:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6254:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.DISCRIM__V41*/ meltfptr[30] = 0; @@ -25762,7 +25762,7 @@ lab_endgetargs:; /*_.IF___V40*/ meltfptr[34] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6249:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6254:/ quasiblock"); /*_.PROGN___V44*/ meltfptr[30] = /*_.IF___V40*/ meltfptr[34];; @@ -25770,7 +25770,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[33] = /*_.PROGN___V44*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6249:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6254:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V40*/ meltfptr[34] = 0; @@ -25785,7 +25785,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6253:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6258:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25801,7 +25801,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6253:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6258:/ cond.else"); /*^block */ /*anyblock */ @@ -25815,7 +25815,7 @@ lab_endgetargs:; melt_assert_failed (("assfail_binding nul! @@"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6253) ? (6253) : __LINE__, + (6258) ? (6258) : __LINE__, __FUNCTION__); ; } @@ -25830,7 +25830,7 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[41] = /*_.IFELSE___V46*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6253:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6258:/ clear"); /*clear *//*_.IFELSE___V46*/ meltfptr[42] = 0; } @@ -25839,13 +25839,13 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[41] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6254:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6259:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6254:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6259:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -25858,7 +25858,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6247:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6252:/ quasiblock"); /*_.PROGN___V48*/ meltfptr[30] = /*_.RETURN___V47*/ meltfptr[34];; @@ -25866,7 +25866,7 @@ lab_endgetargs:; /*_.AFPRIM__V38*/ meltfptr[32] = /*_.PROGN___V48*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6247:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6252:/ clear"); /*clear *//*_.IFCPP___V39*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.IFCPP___V45*/ meltfptr[41] = 0; @@ -25884,7 +25884,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6255:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6260:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L13*/ meltfnum[11] = @@ -25892,7 +25892,7 @@ lab_endgetargs:; ( /*_.ASSFAIL_BINDING__V27*/ meltfptr[26]), (melt_ptr_t) (( /*!CLASS_PRIMITIVE_BINDING */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-macro.melt:6255:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6260:/ cond"); /*cond */ if ( /*_#IS_A__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -25900,7 +25900,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6256:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6261:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -25914,7 +25914,7 @@ lab_endgetargs:; /*_.PBIND_PRIMITIVE__V50*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6255:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6260:/ clear"); /*clear *//*_.PBIND_PRIMITIVE__V50*/ meltfptr[33] = 0; } ; @@ -25926,7 +25926,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6257:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6262:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -25937,7 +25937,7 @@ lab_endgetargs:; ( /*_.ASSFAIL_BINDING__V27*/ meltfptr[26]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-macro.melt:6257:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6262:/ cond"); /*cond */ if ( /*_#IS_A__L14*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -25945,7 +25945,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6258:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6263:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -25965,7 +25965,7 @@ lab_endgetargs:; /*_#IS_A__L16*/ meltfnum[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6257:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6262:/ clear"); /*clear *//*_.VBIND_VALUE__V51*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_#IS_A__L16*/ meltfnum[15] = 0; @@ -25978,7 +25978,7 @@ lab_endgetargs:; /*_#IF___L15*/ meltfnum[14] = 0;; } ; - MELT_LOCATION ("warmelt-macro.melt:6257:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6262:/ cond"); /*cond */ if ( /*_#IF___L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -25986,7 +25986,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6260:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6265:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = @@ -26000,7 +26000,7 @@ lab_endgetargs:; /*_.VBIND_VALUE__V53*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6257:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6262:/ clear"); /*clear *//*_.VBIND_VALUE__V53*/ meltfptr[30] = 0; } ; @@ -26014,7 +26014,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6262:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6267:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26040,7 +26040,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6262:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6267:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -26056,7 +26056,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:6262:/ checksignal"); + ("warmelt-macro.melt:6267:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26071,7 +26071,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6262; + argtab[2].meltbp_long = 6267; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_assert_msg bad assfail_binding="; @@ -26097,7 +26097,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:6262:/ clear"); + ("warmelt-macro.melt:6267:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0; /*^clear */ @@ -26113,7 +26113,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:6262:/ quasiblock"); + ("warmelt-macro.melt:6267:/ quasiblock"); /*_.PROGN___V57*/ meltfptr[30] = @@ -26123,7 +26123,7 @@ lab_endgetargs:; /*_.PROGN___V57*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6262:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6267:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V55*/ meltfptr[41] = 0; @@ -26138,7 +26138,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:6263:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6268:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -26146,13 +26146,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6264:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6269:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6264:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6269:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -26166,7 +26166,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6261:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6266:/ quasiblock"); /*_.PROGN___V59*/ meltfptr[30] = @@ -26176,7 +26176,7 @@ lab_endgetargs:; /*_.PROGN___V59*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6257:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6262:/ clear"); /*clear *//*_.IFCPP___V54*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.RETURN___V58*/ meltfptr[41] = 0; @@ -26190,7 +26190,7 @@ lab_endgetargs:; /*_.IFELSE___V52*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6255:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6260:/ clear"); /*clear *//*_#IS_A__L14*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_#IF___L15*/ meltfnum[14] = 0; @@ -26203,7 +26203,7 @@ lab_endgetargs:; /*_.AFPRIM__V38*/ meltfptr[32] = /*_.IFELSE___V49*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6247:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6252:/ clear"); /*clear *//*_#IS_A__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IFELSE___V49*/ meltfptr[42] = 0; @@ -26211,13 +26211,13 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:6267:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6272:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MIXINT__L19*/ meltfnum[17] = (melt_magic_discr ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19])) == MELTOBMAG_MIXINT);; - MELT_LOCATION ("warmelt-macro.melt:6267:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6272:/ cond"); /*cond */ if ( /*_#IS_MIXINT__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -26232,7 +26232,7 @@ lab_endgetargs:; /*_.MIXINT_VAL__V61*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6267:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6272:/ clear"); /*clear *//*_.MIXINT_VAL__V61*/ meltfptr[41] = 0; } ; @@ -26244,13 +26244,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6268:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6273:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MIXLOC__L20*/ meltfnum[15] = (melt_magic_discr ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19])) == MELTOBMAG_MIXLOC);; - MELT_LOCATION ("warmelt-macro.melt:6268:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6273:/ cond"); /*cond */ if ( /*_#IS_MIXLOC__L20*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -26266,7 +26266,7 @@ lab_endgetargs:; /*_.MIXLOC_VAL__V63*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6268:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6273:/ clear"); /*clear *//*_.MIXLOC_VAL__V63*/ meltfptr[34] = 0; } ; @@ -26281,7 +26281,7 @@ lab_endgetargs:; /*_.FILNAM__V60*/ meltfptr[33] = /*_.IFELSE___V62*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6267:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6272:/ clear"); /*clear *//*_#IS_MIXLOC__L20*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IFELSE___V62*/ meltfptr[30] = 0; @@ -26289,7 +26289,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:6269:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6274:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#GET_INT__L21*/ meltfnum[10] = @@ -26299,7 +26299,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[11])), ( /*_#GET_INT__L21*/ meltfnum[10])));; - MELT_LOCATION ("warmelt-macro.melt:6273:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6278:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -26321,11 +26321,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#12 */ - melt_assertmsg ("putupl [:6273] #12 checktup", + melt_assertmsg ("putupl [:6278] #12 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V66*/ meltfptr[34])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6273] #12 checkoff", + melt_assertmsg ("putupl [:6278] #12 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -26336,11 +26336,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#13 */ - melt_assertmsg ("putupl [:6273] #13 checktup", + melt_assertmsg ("putupl [:6278] #13 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V66*/ meltfptr[34])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6273] #13 checkoff", + melt_assertmsg ("putupl [:6278] #13 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) @@ -26351,11 +26351,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#14 */ - melt_assertmsg ("putupl [:6273] #14 checktup", + melt_assertmsg ("putupl [:6278] #14 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V66*/ meltfptr[34])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6273] #14 checkoff", + melt_assertmsg ("putupl [:6278] #14 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) @@ -26370,13 +26370,13 @@ lab_endgetargs:; /*_.TUPLE___V65*/ meltfptr[41] = /*_.TUPLREC___V66*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6273:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6278:/ clear"); /*clear *//*_.TUPLREC___V66*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.TUPLREC___V66*/ meltfptr[34] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6269:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6274:/ quasiblock"); /*^rawallocobj */ @@ -26424,7 +26424,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.APRIM__V67*/ meltfptr[30] = /*_.INST__V68*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:6277:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6282:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26484,7 +26484,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.ATEST__V69*/ meltfptr[68] = /*_.INST__V70*/ meltfptr[69];; - MELT_LOCATION ("warmelt-macro.melt:6283:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6288:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26547,7 +26547,7 @@ lab_endgetargs:; /*_.ACPPIF__V71*/ meltfptr[70] = /*_.INST__V72*/ meltfptr[71];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6290:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6295:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26573,7 +26573,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6290:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6295:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -26588,7 +26588,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6290:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6295:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26602,7 +26602,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6290; + argtab[2].meltbp_long = 6295; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_assert_msg result acppif"; /*^apply.arg */ @@ -26622,7 +26622,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6290:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6295:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V75*/ meltfptr[74] = 0; @@ -26635,7 +26635,7 @@ lab_endgetargs:; /*_.IF___V74*/ meltfptr[73] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6290:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6295:/ quasiblock"); /*_.PROGN___V76*/ meltfptr[74] = /*_.IF___V74*/ meltfptr[73];; @@ -26643,7 +26643,7 @@ lab_endgetargs:; /*_.IFCPP___V73*/ meltfptr[72] = /*_.PROGN___V76*/ meltfptr[74];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6290:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6295:/ clear"); /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IF___V74*/ meltfptr[73] = 0; @@ -26656,7 +26656,7 @@ lab_endgetargs:; /*_.IFCPP___V73*/ meltfptr[72] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6291:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6296:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26665,7 +26665,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.ACPPIF__V71*/ meltfptr[70];; { - MELT_LOCATION ("warmelt-macro.melt:6291:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6296:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -26680,7 +26680,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V37*/ meltfptr[31] = /*_.RETURN___V77*/ meltfptr[73];; - MELT_LOCATION ("warmelt-macro.melt:6244:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6249:/ clear"); /*clear *//*_#NULL__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.AFPRIM__V38*/ meltfptr[32] = 0; @@ -26706,7 +26706,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V77*/ meltfptr[73] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V37*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:6224:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6229:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -26738,7 +26738,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.LET___V37*/ meltfptr[31] = 0; - MELT_LOCATION ("warmelt-macro.melt:6218:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26747,7 +26747,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6218:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -26875,7 +26875,7 @@ meltrout_136_warmelt_macro_MEXPAND_DEBUG_MSG (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6307:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -26916,7 +26916,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6308:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6313:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26942,7 +26942,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6308:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6313:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -26957,7 +26957,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6308:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6313:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26970,7 +26970,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6308; + argtab[2].meltbp_long = 6313; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_debug_msg sexpr"; /*^apply.arg */ @@ -26989,7 +26989,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6308:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6313:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -27002,7 +27002,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6308:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6313:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -27010,7 +27010,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6308:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6313:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -27025,7 +27025,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6309:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6314:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27037,7 +27037,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6309:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6314:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -27045,7 +27045,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6309:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6314:/ cond.else"); /*^block */ /*anyblock */ @@ -27059,7 +27059,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6309) ? (6309) : __LINE__, __FUNCTION__); + (6314) ? (6314) : __LINE__, __FUNCTION__); ; } ; @@ -27073,7 +27073,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6309:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6314:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -27086,7 +27086,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6310:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6315:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27098,7 +27098,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:6310:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6315:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -27106,7 +27106,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6310:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6315:/ cond.else"); /*^block */ /*anyblock */ @@ -27120,7 +27120,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6310) ? (6310) : __LINE__, __FUNCTION__); + (6315) ? (6315) : __LINE__, __FUNCTION__); ; } ; @@ -27134,7 +27134,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6310:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6315:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -27147,7 +27147,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6311:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6316:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27158,7 +27158,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6311:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6316:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -27166,7 +27166,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6311:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6316:/ cond.else"); /*^block */ /*anyblock */ @@ -27180,7 +27180,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6311) ? (6311) : __LINE__, __FUNCTION__); + (6316) ? (6316) : __LINE__, __FUNCTION__); ; } ; @@ -27194,7 +27194,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6311:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6316:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -27207,7 +27207,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6312:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6317:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27218,7 +27218,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:6312:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6317:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -27226,7 +27226,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6312:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6317:/ cond.else"); /*^block */ /*anyblock */ @@ -27240,7 +27240,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6312) ? (6312) : __LINE__, __FUNCTION__); + (6317) ? (6317) : __LINE__, __FUNCTION__); ; } ; @@ -27254,7 +27254,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6312:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6317:/ clear"); /*clear *//*_#IS_CLOSURE__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -27265,10 +27265,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6313:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6318:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6314:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6319:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -27276,7 +27276,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6315:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6320:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -27292,7 +27292,7 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_HEAD__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6317:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6322:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27319,7 +27319,7 @@ lab_endgetargs:; /*_.XCOUNT__V26*/ meltfptr[25] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:6321:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6326:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(DEBUG_MSG ....) is obsolete, use (DEBUG ...) variadically"), (melt_ptr_t) 0); @@ -27327,10 +27327,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V27*/ meltfptr[26] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6322:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6327:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V28*/ meltfptr[27] = /*_.PAIR_TAIL__V27*/ meltfptr[26];; - MELT_LOCATION ("warmelt-macro.melt:6323:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6328:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L7*/ meltfnum[1] = @@ -27339,7 +27339,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L8*/ meltfnum[0] = (!( /*_#IS_PAIR__L7*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-macro.melt:6323:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6328:/ cond"); /*cond */ if ( /*_#NOT__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -27349,7 +27349,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6324:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6329:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing message in DEBUG_MSG"), @@ -27363,7 +27363,7 @@ lab_endgetargs:; ; /*_.PAIR_HEAD__V29*/ meltfptr[28] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6325:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6330:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27390,16 +27390,16 @@ lab_endgetargs:; /*_.MEXPANDER__V30*/ meltfptr[29];; /*_.PAIR_TAIL__V32*/ meltfptr[31] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6326:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6331:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V33*/ meltfptr[32] = /*_.PAIR_TAIL__V32*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:6327:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6332:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L9*/ meltfnum[8] = (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) == MELTOBMAG_PAIR);; - MELT_LOCATION ("warmelt-macro.melt:6327:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6332:/ cond"); /*cond */ if ( /*_#IS_PAIR__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -27410,7 +27410,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V35*/ meltfptr[34] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6329:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6334:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27441,10 +27441,10 @@ lab_endgetargs:; /*_.PAIR_TAIL__V38*/ meltfptr[37] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6330:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6335:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V39*/ meltfptr[38] = /*_.PAIR_TAIL__V38*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:6328:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6333:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[39] = /*_.SETQ___V39*/ meltfptr[38];; @@ -27452,7 +27452,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = /*_.PROGN___V40*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6327:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6332:/ clear"); /*clear *//*_.PAIR_HEAD__V35*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.MEXPANDER__V36*/ meltfptr[35] = 0; @@ -27473,7 +27473,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6331:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6336:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -27486,7 +27486,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6332:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6337:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("too many arguments to DEBUG_MSG"), @@ -27498,7 +27498,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6333:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6338:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L10*/ meltfnum[9] = @@ -27507,7 +27507,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L11*/ meltfnum[10] = (!( /*_#IS_STRING__L10*/ meltfnum[9]));; - MELT_LOCATION ("warmelt-macro.melt:6333:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6338:/ cond"); /*cond */ if ( /*_#NOT__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -27517,7 +27517,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6334:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6339:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("message argument should be string in DEBUG_MSG"), @@ -27529,12 +27529,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6335:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6340:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L12*/ meltfnum[11] = (( /*_.XCOUNT__V26*/ meltfptr[25]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6335:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6340:/ cond"); /*cond */ if ( /*_#NULL__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -27542,7 +27542,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6336:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6341:/ quasiblock"); /*_.CONLIS__V43*/ meltfptr[36] = @@ -27551,13 +27551,13 @@ lab_endgetargs:; (( /*!DISCR_LIST */ meltfrout->tabval[3]))));; { - MELT_LOCATION ("warmelt-macro.melt:6337:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6342:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.CONLIS__V43*/ meltfptr[36]), (melt_ptr_t) (( /*!konst_4_THE_MELTCALLCOUNT */ meltfrout->tabval[4]))); } ; - MELT_LOCATION ("warmelt-macro.melt:6338:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6343:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -27601,7 +27601,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.INST___V44*/ meltfptr[37] = /*_.INST__V45*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:6338:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6343:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27628,7 +27628,7 @@ lab_endgetargs:; /*_.MACROEXPAND_1__V46*/ meltfptr[39];; /*_.LET___V42*/ meltfptr[35] = /*_.SETQ___V47*/ meltfptr[46];; - MELT_LOCATION ("warmelt-macro.melt:6336:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6341:/ clear"); /*clear *//*_.CONLIS__V43*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.INST___V44*/ meltfptr[37] = 0; @@ -27639,7 +27639,7 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[34] = /*_.LET___V42*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6335:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6340:/ clear"); /*clear *//*_.LET___V42*/ meltfptr[35] = 0; } ; @@ -27650,16 +27650,16 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[34] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6342:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6347:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6344:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6349:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MIXINT__L13*/ meltfnum[12] = (melt_magic_discr ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19])) == MELTOBMAG_MIXINT);; - MELT_LOCATION ("warmelt-macro.melt:6344:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6349:/ cond"); /*cond */ if ( /*_#IS_MIXINT__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -27674,7 +27674,7 @@ lab_endgetargs:; /*_.MIXINT_VAL__V50*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6344:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6349:/ clear"); /*clear *//*_.MIXINT_VAL__V50*/ meltfptr[39] = 0; } ; @@ -27686,13 +27686,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6345:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6350:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MIXLOC__L14*/ meltfnum[13] = (melt_magic_discr ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19])) == MELTOBMAG_MIXLOC);; - MELT_LOCATION ("warmelt-macro.melt:6345:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6350:/ cond"); /*cond */ if ( /*_#IS_MIXLOC__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -27708,7 +27708,7 @@ lab_endgetargs:; /*_.MIXLOC_VAL__V52*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6345:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6350:/ clear"); /*clear *//*_.MIXLOC_VAL__V52*/ meltfptr[35] = 0; } ; @@ -27723,7 +27723,7 @@ lab_endgetargs:; /*_.DFILNAM__V49*/ meltfptr[37] = /*_.IFELSE___V51*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6344:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6349:/ clear"); /*clear *//*_#IS_MIXLOC__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IFELSE___V51*/ meltfptr[46] = 0; @@ -27731,7 +27731,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:6346:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6351:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#GET_INT__L15*/ meltfnum[13] = @@ -27741,7 +27741,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[8])), ( /*_#GET_INT__L15*/ meltfnum[13])));; - MELT_LOCATION ("warmelt-macro.melt:6350:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6355:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -27763,11 +27763,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#15 */ - melt_assertmsg ("putupl [:6350] #15 checktup", + melt_assertmsg ("putupl [:6355] #15 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V55*/ meltfptr[46])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6350] #15 checkoff", + melt_assertmsg ("putupl [:6355] #15 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -27778,11 +27778,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#16 */ - melt_assertmsg ("putupl [:6350] #16 checktup", + melt_assertmsg ("putupl [:6355] #16 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V55*/ meltfptr[46])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6350] #16 checkoff", + melt_assertmsg ("putupl [:6355] #16 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) @@ -27793,11 +27793,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#17 */ - melt_assertmsg ("putupl [:6350] #17 checktup", + melt_assertmsg ("putupl [:6355] #17 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V55*/ meltfptr[46])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6350] #17 checkoff", + melt_assertmsg ("putupl [:6355] #17 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) @@ -27808,11 +27808,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#18 */ - melt_assertmsg ("putupl [:6350] #18 checktup", + melt_assertmsg ("putupl [:6355] #18 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V55*/ meltfptr[46])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6350] #18 checkoff", + melt_assertmsg ("putupl [:6355] #18 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) @@ -27823,11 +27823,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#19 */ - melt_assertmsg ("putupl [:6350] #19 checktup", + melt_assertmsg ("putupl [:6355] #19 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V55*/ meltfptr[46])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6350] #19 checkoff", + melt_assertmsg ("putupl [:6355] #19 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) @@ -27842,13 +27842,13 @@ lab_endgetargs:; /*_.TUPLE___V54*/ meltfptr[35] = /*_.TUPLREC___V55*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6350:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6355:/ clear"); /*clear *//*_.TUPLREC___V55*/ meltfptr[46] = 0; /*^clear */ /*clear *//*_.TUPLREC___V55*/ meltfptr[46] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6346:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6351:/ quasiblock"); /*^rawallocobj */ @@ -27897,7 +27897,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.DCALL__V56*/ meltfptr[46] = /*_.INST__V57*/ meltfptr[56];; - MELT_LOCATION ("warmelt-macro.melt:6356:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6361:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -27960,7 +27960,7 @@ lab_endgetargs:; /*_.DCPPIF__V58*/ meltfptr[57] = /*_.INST__V59*/ meltfptr[58];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6363:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6368:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27986,7 +27986,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6363:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6368:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -28001,7 +28001,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6363:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6368:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28015,7 +28015,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6363; + argtab[2].meltbp_long = 6368; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_debug_msg result dcppif"; /*^apply.arg */ @@ -28035,7 +28035,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6363:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6368:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V62*/ meltfptr[61] = 0; @@ -28048,7 +28048,7 @@ lab_endgetargs:; /*_.IF___V61*/ meltfptr[60] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6363:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6368:/ quasiblock"); /*_.PROGN___V63*/ meltfptr[61] = /*_.IF___V61*/ meltfptr[60];; @@ -28056,7 +28056,7 @@ lab_endgetargs:; /*_.IFCPP___V60*/ meltfptr[59] = /*_.PROGN___V63*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6363:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6368:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V61*/ meltfptr[60] = 0; @@ -28069,7 +28069,7 @@ lab_endgetargs:; /*_.IFCPP___V60*/ meltfptr[59] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6364:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -28078,7 +28078,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.DCPPIF__V58*/ meltfptr[57];; { - MELT_LOCATION ("warmelt-macro.melt:6364:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -28093,7 +28093,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V48*/ meltfptr[36] = /*_.RETURN___V64*/ meltfptr[60];; - MELT_LOCATION ("warmelt-macro.melt:6342:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6347:/ clear"); /*clear *//*_#IS_MIXINT__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.DFILNAM__V49*/ meltfptr[37] = 0; @@ -28113,7 +28113,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V64*/ meltfptr[60] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V48*/ meltfptr[36];; - MELT_LOCATION ("warmelt-macro.melt:6313:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6318:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -28161,7 +28161,7 @@ lab_endgetargs:; /*clear *//*_.IF___V41*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.LET___V48*/ meltfptr[36] = 0; - MELT_LOCATION ("warmelt-macro.melt:6307:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -28170,7 +28170,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6307:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -28294,7 +28294,7 @@ meltrout_137_warmelt_macro_MEXPAND_DEBUG (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6380:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -28335,7 +28335,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6381:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6386:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28361,7 +28361,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6381:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6386:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -28376,7 +28376,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6381:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6386:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28389,7 +28389,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6381; + argtab[2].meltbp_long = 6386; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_debug sexpr"; /*^apply.arg */ @@ -28408,7 +28408,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6381:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6386:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -28421,7 +28421,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6381:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6386:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -28429,7 +28429,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6381:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6386:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -28444,7 +28444,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6382:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6387:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28456,7 +28456,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6382:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6387:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -28464,7 +28464,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6382:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6387:/ cond.else"); /*^block */ /*anyblock */ @@ -28478,7 +28478,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6382) ? (6382) : __LINE__, __FUNCTION__); + (6387) ? (6387) : __LINE__, __FUNCTION__); ; } ; @@ -28492,7 +28492,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6382:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6387:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -28505,7 +28505,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6383:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6388:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28517,7 +28517,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:6383:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6388:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -28525,7 +28525,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6383:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6388:/ cond.else"); /*^block */ /*anyblock */ @@ -28539,7 +28539,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6383) ? (6383) : __LINE__, __FUNCTION__); + (6388) ? (6388) : __LINE__, __FUNCTION__); ; } ; @@ -28553,7 +28553,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6383:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6388:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -28566,7 +28566,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6384:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6389:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28577,7 +28577,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6384:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6389:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -28585,7 +28585,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6384:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6389:/ cond.else"); /*^block */ /*anyblock */ @@ -28599,7 +28599,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6384) ? (6384) : __LINE__, __FUNCTION__); + (6389) ? (6389) : __LINE__, __FUNCTION__); ; } ; @@ -28613,7 +28613,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6384:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6389:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -28624,10 +28624,10 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6385:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6390:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6386:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6391:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -28635,7 +28635,7 @@ lab_endgetargs:; /*_.CONT__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6387:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6392:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -28643,13 +28643,13 @@ lab_endgetargs:; /*_.LOC__V18*/ meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6389:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6394:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MIXINT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17])) == MELTOBMAG_MIXINT);; - MELT_LOCATION ("warmelt-macro.melt:6389:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6394:/ cond"); /*cond */ if ( /*_#IS_MIXINT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -28664,7 +28664,7 @@ lab_endgetargs:; /*_.MIXINT_VAL__V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6389:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6394:/ clear"); /*clear *//*_.MIXINT_VAL__V20*/ meltfptr[19] = 0; } ; @@ -28676,13 +28676,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6390:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6395:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_MIXLOC__L7*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17])) == MELTOBMAG_MIXLOC);; - MELT_LOCATION ("warmelt-macro.melt:6390:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6395:/ cond"); /*cond */ if ( /*_#IS_MIXLOC__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -28698,7 +28698,7 @@ lab_endgetargs:; /*_.MIXLOC_VAL__V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6390:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6395:/ clear"); /*clear *//*_.MIXLOC_VAL__V22*/ meltfptr[21] = 0; } ; @@ -28713,7 +28713,7 @@ lab_endgetargs:; /*_.DFILNAM__V19*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6389:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6394:/ clear"); /*clear *//*_#IS_MIXLOC__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V21*/ meltfptr[19] = 0; @@ -28723,7 +28723,7 @@ lab_endgetargs:; ; /*_#DLINE__L8*/ meltfnum[1] = (melt_get_int ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:6392:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6397:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28742,7 +28742,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6393:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6398:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28762,7 +28762,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6394:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6399:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28781,7 +28781,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6395:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6400:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28806,7 +28806,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V28*/ meltfptr[27] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V27*/ meltfptr[26])));; - MELT_LOCATION ("warmelt-macro.melt:6397:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6402:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28829,7 +28829,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6398:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6403:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -28885,7 +28885,7 @@ lab_endgetargs:; /*_.DBGARGLIST__V30*/ meltfptr[29] = /*_.LIST___V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6398:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6403:/ clear"); /*clear *//*_.PAIROFLIST__V31*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.LIST___V32*/ meltfptr[31] = 0; @@ -28895,7 +28895,7 @@ lab_endgetargs:; /*clear *//*_.LIST___V32*/ meltfptr[31] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6401:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6406:/ quasiblock"); /*^checksignal */ @@ -28913,12 +28913,12 @@ lab_endgetargs:; ; /*_#NBSEPW__L9*/ meltfnum[8] = (melt_get_int ((melt_ptr_t) ( /*_.SEXPW__V33*/ meltfptr[30])));; - MELT_LOCATION ("warmelt-macro.melt:6404:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6409:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L10*/ meltfnum[9] = (( /*_#NBSEPW__L9*/ meltfnum[8]) > (26));; - MELT_LOCATION ("warmelt-macro.melt:6404:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6409:/ cond"); /*cond */ if ( /*_#I__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -28926,7 +28926,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6404:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6409:/ cond.else"); /*^block */ /*anyblock */ @@ -28938,7 +28938,7 @@ lab_endgetargs:; /*_#OR___L11*/ meltfnum[10] = /*_#NULL__L12*/ meltfnum[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6404:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6409:/ clear"); /*clear *//*_#NULL__L12*/ meltfnum[11] = 0; } ; @@ -28952,7 +28952,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6409:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6414:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28976,7 +28976,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:6407:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6412:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("suspicious very heavy (DEBUG ....)"), (melt_ptr_t) ( /*_.STRING4OUT__V34*/ @@ -28985,14 +28985,14 @@ lab_endgetargs:; ; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6404:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6409:/ clear"); /*clear *//*_.STRING4OUT__V34*/ meltfptr[31] = 0; } ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6401:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6406:/ clear"); /*clear *//*_.SEXPW__V33*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_#NBSEPW__L9*/ meltfnum[8] = 0; @@ -29000,7 +29000,7 @@ lab_endgetargs:; /*clear *//*_#I__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_#OR___L11*/ meltfnum[10] = 0; - MELT_LOCATION ("warmelt-macro.melt:6411:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6416:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L13*/ meltfnum[11] = @@ -29009,7 +29009,7 @@ lab_endgetargs:; /*^compute */ /*_#NOT__L14*/ meltfnum[8] = (!( /*_#IS_STRING__L13*/ meltfnum[11]));; - MELT_LOCATION ("warmelt-macro.melt:6411:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6416:/ cond"); /*cond */ if ( /*_#NOT__L14*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -29019,20 +29019,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6413:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6418:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("(DEBUG ...) used without file location"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6414:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6419:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6414:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6419:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -29045,7 +29045,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6412:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6417:/ quasiblock"); /*_.PROGN___V37*/ meltfptr[36] = /*_.RETURN___V36*/ meltfptr[30];; @@ -29053,7 +29053,7 @@ lab_endgetargs:; /*_.IF___V35*/ meltfptr[31] = /*_.PROGN___V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6411:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6416:/ clear"); /*clear *//*_.RETURN___V36*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.PROGN___V37*/ meltfptr[36] = 0; @@ -29066,7 +29066,7 @@ lab_endgetargs:; /*_.IF___V35*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6415:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6420:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L15*/ meltfnum[9] = @@ -29074,7 +29074,7 @@ lab_endgetargs:; ( /*_.DEBUGFUNBIND__V23*/ meltfptr[21]), (melt_ptr_t) (( /*!CLASS_FUNCTION_BINDING */ meltfrout->tabval[13])));; - MELT_LOCATION ("warmelt-macro.melt:6415:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6420:/ cond"); /*cond */ if ( /*_#IS_A__L15*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -29082,7 +29082,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6415:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6420:/ cond.else"); /*^block */ /*anyblock */ @@ -29097,7 +29097,7 @@ lab_endgetargs:; /*_#OR___L16*/ meltfnum[10] = /*_#IS_A__L17*/ meltfnum[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6415:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6420:/ clear"); /*clear *//*_#IS_A__L17*/ meltfnum[16] = 0; } ; @@ -29105,7 +29105,7 @@ lab_endgetargs:; ; /*_#NOT__L18*/ meltfnum[16] = (!( /*_#OR___L16*/ meltfnum[10]));; - MELT_LOCATION ("warmelt-macro.melt:6415:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6420:/ cond"); /*cond */ if ( /*_#NOT__L18*/ meltfnum[16]) /*then */ { /*^cond.then */ @@ -29115,20 +29115,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6418:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6423:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("(DEBUG ...) used in context with bad MELT_DEBUG_FUN"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6419:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6424:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6419:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6424:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -29141,7 +29141,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6417:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6422:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[39] = /*_.RETURN___V39*/ meltfptr[36];; @@ -29149,7 +29149,7 @@ lab_endgetargs:; /*_.IF___V38*/ meltfptr[30] = /*_.PROGN___V40*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6415:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6420:/ clear"); /*clear *//*_.RETURN___V39*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.PROGN___V40*/ meltfptr[39] = 0; @@ -29162,10 +29162,10 @@ lab_endgetargs:; /*_.IF___V38*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6420:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6425:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6423:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6428:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L19*/ meltfnum[18] = @@ -29173,7 +29173,7 @@ lab_endgetargs:; ( /*_.THECOUNTBIND__V24*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_PRIMITIVE_BINDING */ meltfrout->tabval[14])));; - MELT_LOCATION ("warmelt-macro.melt:6423:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6428:/ cond"); /*cond */ if ( /*_#IS_A__L19*/ meltfnum[18]) /*then */ { /*^cond.then */ @@ -29181,7 +29181,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6424:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6429:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -29213,7 +29213,7 @@ lab_endgetargs:; /*_.PBIND_PRIMITIVE__V42*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6423:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6428:/ clear"); /*clear *//*_.PBIND_PRIMITIVE__V42*/ meltfptr[39] = 0; } ; @@ -29225,7 +29225,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6425:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6430:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L20*/ meltfnum[19] = @@ -29233,7 +29233,7 @@ lab_endgetargs:; ( /*_.THECOUNTBIND__V24*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[12])));; - MELT_LOCATION ("warmelt-macro.melt:6425:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6430:/ cond"); /*cond */ if ( /*_#IS_A__L20*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -29241,7 +29241,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6426:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6431:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -29273,7 +29273,7 @@ lab_endgetargs:; /*_.VBIND_VALUE__V44*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6425:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6430:/ clear"); /*clear *//*_.VBIND_VALUE__V44*/ meltfptr[43] = 0; } ; @@ -29287,7 +29287,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6428:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6433:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), @@ -29295,13 +29295,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6429:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6434:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6429:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6434:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -29314,7 +29314,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6427:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6432:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[45] = @@ -29324,7 +29324,7 @@ lab_endgetargs:; /*_.PROGN___V46*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6425:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6430:/ clear"); /*clear *//*_.RETURN___V45*/ meltfptr[43] = 0; /*^clear */ /*clear *//*_.PROGN___V46*/ meltfptr[45] = 0; @@ -29336,7 +29336,7 @@ lab_endgetargs:; /*_.IFELSE___V43*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6423:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6428:/ clear"); /*clear *//*_#IS_A__L20*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.IFELSE___V43*/ meltfptr[39] = 0; @@ -29344,10 +29344,10 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:6430:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6435:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:6433:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6438:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_2_st @@ -29373,13 +29373,13 @@ lab_endgetargs:; /*_.TUPLE___V47*/ meltfptr[43] = /*_.TUPLREC___V48*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6433:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6438:/ clear"); /*clear *//*_.TUPLREC___V48*/ meltfptr[45] = 0; /*^clear */ /*clear *//*_.TUPLREC___V48*/ meltfptr[45] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6430:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6435:/ quasiblock"); /*^rawallocobj */ @@ -29430,13 +29430,13 @@ lab_endgetargs:; /*_.DCOUNT__V49*/ meltfptr[39] = /*_.INST__V50*/ meltfptr[45];; { - MELT_LOCATION ("warmelt-macro.melt:6435:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6440:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.DBGARGLIST__V30*/ meltfptr[29]), (melt_ptr_t) ( /*_.DCOUNT__V49*/ meltfptr[39])); } ; - MELT_LOCATION ("warmelt-macro.melt:6420:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6425:/ clear"); /*clear *//*_#IS_A__L19*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.THECOUNTPRIM__V41*/ meltfptr[36] = 0; @@ -29446,7 +29446,7 @@ lab_endgetargs:; /*clear *//*_.DCOUNT__V49*/ meltfptr[39] = 0; { - MELT_LOCATION ("warmelt-macro.melt:6437:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6442:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.DBGARGLIST__V30*/ meltfptr[29]), (melt_ptr_t) ( /*_.DFILNAM__V19*/ meltfptr[18])); } @@ -29458,13 +29458,13 @@ lab_endgetargs:; ( /*_#DLINE__L8*/ meltfnum[1])));; { - MELT_LOCATION ("warmelt-macro.melt:6438:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6443:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.DBGARGLIST__V30*/ meltfptr[29]), (melt_ptr_t) ( /*_.MAKE_INTEGERBOX__V51*/ meltfptr[36])); } ; - MELT_LOCATION ("warmelt-macro.melt:6439:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6444:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29485,7 +29485,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6440:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6445:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29511,7 +29511,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6440:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6445:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -29526,7 +29526,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6440:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6445:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29540,7 +29540,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6440; + argtab[2].meltbp_long = 6445; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_debug dbgarglist"; /*^apply.arg */ @@ -29560,7 +29560,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V55*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6440:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6445:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0; @@ -29573,7 +29573,7 @@ lab_endgetargs:; /*_.IF___V54*/ meltfptr[53] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6440:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6445:/ quasiblock"); /*_.PROGN___V56*/ meltfptr[54] = /*_.IF___V54*/ meltfptr[53];; @@ -29581,7 +29581,7 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[39] = /*_.PROGN___V56*/ meltfptr[54];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6440:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6445:/ clear"); /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[19] = 0; /*^clear */ /*clear *//*_.IF___V54*/ meltfptr[53] = 0; @@ -29594,13 +29594,13 @@ lab_endgetargs:; /*_.IFCPP___V53*/ meltfptr[39] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6441:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6446:/ quasiblock"); /*_#NBDBGARG__L23*/ meltfnum[18] = (melt_list_length ((melt_ptr_t) ( /*_.DBGARGLIST__V30*/ meltfptr[29])));; - MELT_LOCATION ("warmelt-macro.melt:6445:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6450:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L24*/ meltfnum[19] = @@ -29608,7 +29608,7 @@ lab_endgetargs:; ( /*_.THENEEDDBGBIND__V25*/ meltfptr[24]), (melt_ptr_t) (( /*!CLASS_PRIMITIVE_BINDING */ meltfrout->tabval[14])));; - MELT_LOCATION ("warmelt-macro.melt:6445:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6450:/ cond"); /*cond */ if ( /*_#IS_A__L24*/ meltfnum[19]) /*then */ { /*^cond.then */ @@ -29616,7 +29616,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6446:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6451:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -29648,7 +29648,7 @@ lab_endgetargs:; /*_.PBIND_PRIMITIVE__V59*/ meltfptr[58];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6445:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6450:/ clear"); /*clear *//*_.PBIND_PRIMITIVE__V59*/ meltfptr[58] = 0; } ; @@ -29660,7 +29660,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6447:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6452:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L25*/ meltfnum[24] = @@ -29668,7 +29668,7 @@ lab_endgetargs:; ( /*_.THENEEDDBGBIND__V25*/ meltfptr[24]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[12])));; - MELT_LOCATION ("warmelt-macro.melt:6447:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6452:/ cond"); /*cond */ if ( /*_#IS_A__L25*/ meltfnum[24]) /*then */ { /*^cond.then */ @@ -29676,7 +29676,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6448:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6453:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -29707,7 +29707,7 @@ lab_endgetargs:; /*_.VBIND_VALUE__V61*/ meltfptr[60];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6447:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6452:/ clear"); /*clear *//*_.VBIND_VALUE__V61*/ meltfptr[60] = 0; } ; @@ -29721,7 +29721,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6450:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6455:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), @@ -29729,13 +29729,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6451:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6456:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6451:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6456:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -29748,7 +29748,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6449:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6454:/ quasiblock"); /*_.PROGN___V63*/ meltfptr[62] = @@ -29758,7 +29758,7 @@ lab_endgetargs:; /*_.PROGN___V63*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6447:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6452:/ clear"); /*clear *//*_.RETURN___V62*/ meltfptr[60] = 0; /*^clear */ /*clear *//*_.PROGN___V63*/ meltfptr[62] = 0; @@ -29770,7 +29770,7 @@ lab_endgetargs:; /*_.IFELSE___V60*/ meltfptr[58];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6445:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6450:/ clear"); /*clear *//*_#IS_A__L25*/ meltfnum[24] = 0; /*^clear */ /*clear *//*_.IFELSE___V60*/ meltfptr[58] = 0; @@ -29778,10 +29778,10 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:6452:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6457:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:6455:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6460:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_3_st @@ -29803,11 +29803,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#20 */ - melt_assertmsg ("putupl [:6455] #20 checktup", + melt_assertmsg ("putupl [:6460] #20 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V65*/ meltfptr[62])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6455] #20 checkoff", + melt_assertmsg ("putupl [:6460] #20 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -29822,13 +29822,13 @@ lab_endgetargs:; /*_.TUPLE___V64*/ meltfptr[60] = /*_.TUPLREC___V65*/ meltfptr[62];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6455:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6460:/ clear"); /*clear *//*_.TUPLREC___V65*/ meltfptr[62] = 0; /*^clear */ /*clear *//*_.TUPLREC___V65*/ meltfptr[62] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6452:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6457:/ quasiblock"); /*^rawallocobj */ @@ -29877,10 +29877,10 @@ lab_endgetargs:; "newly made instance"); ; /*_.DNEEDBG__V66*/ meltfptr[58] = /*_.INST__V67*/ meltfptr[62];; - MELT_LOCATION ("warmelt-macro.melt:6456:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6461:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:6460:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6465:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29899,7 +29899,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6456:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6461:/ quasiblock"); /*^rawallocobj */ @@ -29949,7 +29949,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.DCALL__V69*/ meltfptr[68] = /*_.INST__V70*/ meltfptr[69];; - MELT_LOCATION ("warmelt-macro.melt:6463:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6468:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L26*/ meltfnum[24] = @@ -29957,7 +29957,7 @@ lab_endgetargs:; ( /*_.THEINCRDBGBIND__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_PRIMITIVE_BINDING */ meltfrout->tabval[14])));; - MELT_LOCATION ("warmelt-macro.melt:6463:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6468:/ cond"); /*cond */ if ( /*_#IS_A__L26*/ meltfnum[24]) /*then */ { /*^cond.then */ @@ -29965,7 +29965,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6464:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6469:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -29997,7 +29997,7 @@ lab_endgetargs:; /*_.PBIND_PRIMITIVE__V72*/ meltfptr[71];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6463:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6468:/ clear"); /*clear *//*_.PBIND_PRIMITIVE__V72*/ meltfptr[71] = 0; } ; @@ -30009,7 +30009,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6465:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6470:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L27*/ meltfnum[26] = @@ -30017,7 +30017,7 @@ lab_endgetargs:; ( /*_.THEINCRDBGBIND__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[12])));; - MELT_LOCATION ("warmelt-macro.melt:6465:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6470:/ cond"); /*cond */ if ( /*_#IS_A__L27*/ meltfnum[26]) /*then */ { /*^cond.then */ @@ -30025,7 +30025,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6466:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6471:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -30056,7 +30056,7 @@ lab_endgetargs:; /*_.VBIND_VALUE__V74*/ meltfptr[73];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6465:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6470:/ clear"); /*clear *//*_.VBIND_VALUE__V74*/ meltfptr[73] = 0; } ; @@ -30070,7 +30070,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6468:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6473:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), @@ -30078,13 +30078,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6471:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6476:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6471:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6476:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -30097,7 +30097,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6467:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6472:/ quasiblock"); /*_.PROGN___V76*/ meltfptr[75] = @@ -30107,7 +30107,7 @@ lab_endgetargs:; /*_.PROGN___V76*/ meltfptr[75];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6465:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6470:/ clear"); /*clear *//*_.RETURN___V75*/ meltfptr[73] = 0; /*^clear */ /*clear *//*_.PROGN___V76*/ meltfptr[75] = 0; @@ -30119,7 +30119,7 @@ lab_endgetargs:; /*_.IFELSE___V73*/ meltfptr[71];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6463:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6468:/ clear"); /*clear *//*_#IS_A__L27*/ meltfnum[26] = 0; /*^clear */ /*clear *//*_.IFELSE___V73*/ meltfptr[71] = 0; @@ -30127,10 +30127,10 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:6472:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6477:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:6476:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6481:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_4_st @@ -30156,13 +30156,13 @@ lab_endgetargs:; /*_.TUPLE___V77*/ meltfptr[73] = /*_.TUPLREC___V78*/ meltfptr[75];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6476:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6481:/ clear"); /*clear *//*_.TUPLREC___V78*/ meltfptr[75] = 0; /*^clear */ /*clear *//*_.TUPLREC___V78*/ meltfptr[75] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6472:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6477:/ quasiblock"); /*^rawallocobj */ @@ -30211,7 +30211,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.DINCRDBG__V79*/ meltfptr[71] = /*_.INST__V80*/ meltfptr[75];; - MELT_LOCATION ("warmelt-macro.melt:6477:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6482:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -30262,10 +30262,10 @@ lab_endgetargs:; "newly made instance"); ; /*_.DIFDBG__V81*/ meltfptr[80] = /*_.INST__V82*/ meltfptr[81];; - MELT_LOCATION ("warmelt-macro.melt:6482:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6487:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:6485:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6490:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_5_st @@ -30287,11 +30287,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#21 */ - melt_assertmsg ("putupl [:6485] #21 checktup", + melt_assertmsg ("putupl [:6490] #21 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V84*/ meltfptr[83])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6485] #21 checkoff", + melt_assertmsg ("putupl [:6490] #21 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -30302,11 +30302,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#22 */ - melt_assertmsg ("putupl [:6485] #22 checktup", + melt_assertmsg ("putupl [:6490] #22 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V84*/ meltfptr[83])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6485] #22 checkoff", + melt_assertmsg ("putupl [:6490] #22 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) @@ -30321,13 +30321,13 @@ lab_endgetargs:; /*_.TUPLE___V83*/ meltfptr[82] = /*_.TUPLREC___V84*/ meltfptr[83];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6485:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6490:/ clear"); /*clear *//*_.TUPLREC___V84*/ meltfptr[83] = 0; /*^clear */ /*clear *//*_.TUPLREC___V84*/ meltfptr[83] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6482:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6487:/ quasiblock"); /*^rawallocobj */ @@ -30366,7 +30366,7 @@ lab_endgetargs:; "newly made instance"); ; /*_.DPROGN__V85*/ meltfptr[83] = /*_.INST__V86*/ meltfptr[85];; - MELT_LOCATION ("warmelt-macro.melt:6487:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6492:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -30427,12 +30427,12 @@ lab_endgetargs:; "newly made instance"); ; /*_.DCPPIF__V87*/ meltfptr[86] = /*_.INST__V88*/ meltfptr[87];; - MELT_LOCATION ("warmelt-macro.melt:6495:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6500:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#I__L28*/ meltfnum[26] = (( /*_#NBDBGARG__L23*/ meltfnum[18]) >= (15));; - MELT_LOCATION ("warmelt-macro.melt:6495:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6500:/ cond"); /*cond */ if ( /*_#I__L28*/ meltfnum[26]) /*then */ { /*^cond.then */ @@ -30440,7 +30440,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6496:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6501:/ quasiblock"); /*^checksignal */ @@ -30463,7 +30463,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:6498:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6503:/ locexp"); melt_inform_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("quite long (DEBUG ...), perhaps consider splitting it"), (melt_ptr_t) ( /*_.STRNBARG__V89*/ @@ -30471,7 +30471,7 @@ lab_endgetargs:; } ; - MELT_LOCATION ("warmelt-macro.melt:6496:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6501:/ clear"); /*clear *//*_.STRNBARG__V89*/ meltfptr[88] = 0; /*epilog */ } @@ -30480,7 +30480,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6501:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6506:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30506,7 +30506,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6501:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6506:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L29*/ meltfnum[28]) /*then */ { /*^cond.then */ @@ -30521,7 +30521,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6501:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6506:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30535,7 +30535,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6501; + argtab[2].meltbp_long = 6506; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_debug dcall="; /*^apply.arg */ @@ -30561,7 +30561,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V92*/ meltfptr[91];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6501:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6506:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L30*/ meltfnum[29] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V92*/ meltfptr[91] = 0; @@ -30574,7 +30574,7 @@ lab_endgetargs:; /*_.IF___V91*/ meltfptr[90] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6501:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6506:/ quasiblock"); /*_.PROGN___V93*/ meltfptr[91] = /*_.IF___V91*/ meltfptr[90];; @@ -30582,7 +30582,7 @@ lab_endgetargs:; /*_.IFCPP___V90*/ meltfptr[88] = /*_.PROGN___V93*/ meltfptr[91];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6501:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6506:/ clear"); /*clear *//*_#MELT_NEED_DBG__L29*/ meltfnum[28] = 0; /*^clear */ /*clear *//*_.IF___V91*/ meltfptr[90] = 0; @@ -30595,7 +30595,7 @@ lab_endgetargs:; /*_.IFCPP___V90*/ meltfptr[88] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6502:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6507:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -30604,7 +30604,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.DCPPIF__V87*/ meltfptr[86];; { - MELT_LOCATION ("warmelt-macro.melt:6502:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6507:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -30619,7 +30619,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V57*/ meltfptr[53] = /*_.RETURN___V94*/ meltfptr[90];; - MELT_LOCATION ("warmelt-macro.melt:6441:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6446:/ clear"); /*clear *//*_#NBDBGARG__L23*/ meltfnum[18] = 0; /*^clear */ /*clear *//*_#IS_A__L24*/ meltfnum[19] = 0; @@ -30657,7 +30657,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V94*/ meltfptr[90] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V57*/ meltfptr[53];; - MELT_LOCATION ("warmelt-macro.melt:6385:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6390:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -30705,7 +30705,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V53*/ meltfptr[39] = 0; /*^clear */ /*clear *//*_.LET___V57*/ meltfptr[53] = 0; - MELT_LOCATION ("warmelt-macro.melt:6380:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -30714,7 +30714,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6380:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -30839,7 +30839,7 @@ meltrout_138_warmelt_macro_MEXPAND_EXPORT_VALUES (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6520:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -30880,7 +30880,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6521:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6526:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30906,7 +30906,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6521:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6526:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -30921,7 +30921,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6521:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6526:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30934,7 +30934,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6521; + argtab[2].meltbp_long = 6526; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_values sexpr"; /*^apply.arg */ @@ -30953,7 +30953,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6521:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6526:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -30966,7 +30966,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6521:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6526:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -30974,7 +30974,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6521:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6526:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -30989,7 +30989,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6522:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6527:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31001,7 +31001,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6522:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6527:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -31009,7 +31009,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6522:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6527:/ cond.else"); /*^block */ /*anyblock */ @@ -31023,7 +31023,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6522) ? (6522) : __LINE__, __FUNCTION__); + (6527) ? (6527) : __LINE__, __FUNCTION__); ; } ; @@ -31037,7 +31037,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6522:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6527:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -31050,7 +31050,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6523:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6528:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31062,7 +31062,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:6523:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6528:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31070,7 +31070,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6523:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6528:/ cond.else"); /*^block */ /*anyblock */ @@ -31084,7 +31084,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6523) ? (6523) : __LINE__, __FUNCTION__); + (6528) ? (6528) : __LINE__, __FUNCTION__); ; } ; @@ -31098,7 +31098,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6523:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6528:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -31111,7 +31111,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6524:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6529:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31122,7 +31122,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:6524:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6529:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -31130,7 +31130,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6524:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6529:/ cond.else"); /*^block */ /*anyblock */ @@ -31144,7 +31144,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6524) ? (6524) : __LINE__, __FUNCTION__); + (6529) ? (6529) : __LINE__, __FUNCTION__); ; } ; @@ -31158,7 +31158,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6524:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6529:/ clear"); /*clear *//*_#IS_CLOSURE__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -31171,7 +31171,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6525:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6530:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31182,7 +31182,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6525:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6530:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31190,7 +31190,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6525:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6530:/ cond.else"); /*^block */ /*anyblock */ @@ -31204,7 +31204,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6525) ? (6525) : __LINE__, __FUNCTION__); + (6530) ? (6530) : __LINE__, __FUNCTION__); ; } ; @@ -31218,7 +31218,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6525:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6530:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -31229,10 +31229,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6526:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6531:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6527:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6532:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -31240,7 +31240,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6528:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6533:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -31253,7 +31253,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V22*/ meltfptr[21] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:6532:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6537:/ quasiblock"); /*^newclosure */ @@ -31317,7 +31317,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]); ; /*_.LAMBDA___V23*/ meltfptr[22] = /*_.LAMBDA___V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:6530:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6535:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31339,7 +31339,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6540:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6545:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -31384,7 +31384,7 @@ lab_endgetargs:; /*_.RES__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6544:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6549:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31410,7 +31410,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6544:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6549:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -31425,7 +31425,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6544:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6549:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31438,7 +31438,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6544; + argtab[2].meltbp_long = 6549; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_values result res"; /*^apply.arg */ @@ -31458,7 +31458,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6544:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6549:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; @@ -31471,7 +31471,7 @@ lab_endgetargs:; /*_.IF___V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6544:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6549:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[28];; @@ -31479,7 +31479,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6544:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6549:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V29*/ meltfptr[28] = 0; @@ -31492,7 +31492,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6545:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6550:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -31501,7 +31501,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V26*/ meltfptr[25];; { - MELT_LOCATION ("warmelt-macro.melt:6545:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6550:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -31516,7 +31516,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V18*/ meltfptr[16] = /*_.RETURN___V32*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:6526:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6531:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -31534,7 +31534,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.RETURN___V32*/ meltfptr[28] = 0; - MELT_LOCATION ("warmelt-macro.melt:6520:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -31543,7 +31543,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6520:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -31667,7 +31667,7 @@ meltrout_139_warmelt_macro_LAMBDA___38__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6532:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6537:/ getarg"); /*_.S__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -31677,7 +31677,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:6533:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6538:/ quasiblock"); /*^checksignal */ @@ -31705,14 +31705,14 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6534:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6539:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SYM__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:6534:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6539:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31722,7 +31722,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6536:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6541:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31748,7 +31748,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6536:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6541:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -31763,7 +31763,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6536:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6541:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31777,7 +31777,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6536; + argtab[2].meltbp_long = 6541; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_values bad sym"; @@ -31799,7 +31799,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6536:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6541:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0; @@ -31812,7 +31812,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6536:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6541:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[6] = /*_.IF___V6*/ meltfptr[5];; @@ -31820,7 +31820,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6536:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6541:/ clear"); /*clear *//*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V6*/ meltfptr[5] = 0; @@ -31835,7 +31835,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:6537:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6542:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) (( /*~LOC */ meltfclos->tabval[3])), @@ -31843,12 +31843,12 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6535:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6540:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6534:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6539:/ clear"); /*clear *//*_.IFCPP___V5*/ meltfptr[4] = 0; } ; @@ -31856,17 +31856,17 @@ lab_endgetargs:; ; /*_.LET___V3*/ meltfptr[2] = /*_.SYM__V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-macro.melt:6533:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6538:/ clear"); /*clear *//*_.SYM__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L1*/ meltfnum[0] = 0; - MELT_LOCATION ("warmelt-macro.melt:6532:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6537:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:6532:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6537:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -31982,7 +31982,7 @@ meltrout_140_warmelt_macro_MEXPAND_EXPORT_MACRO (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6558:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6563:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -32023,7 +32023,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6559:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6564:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32049,7 +32049,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6559:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6564:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -32064,7 +32064,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6559:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6564:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32077,7 +32077,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6559; + argtab[2].meltbp_long = 6564; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_macro sexpr"; /*^apply.arg */ @@ -32096,7 +32096,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6559:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6564:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -32109,7 +32109,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6559:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6564:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -32117,7 +32117,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6559:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6564:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -32132,7 +32132,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6560:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6565:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32144,7 +32144,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6560:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6565:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -32152,7 +32152,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6560:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6565:/ cond.else"); /*^block */ /*anyblock */ @@ -32166,7 +32166,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6560) ? (6560) : __LINE__, __FUNCTION__); + (6565) ? (6565) : __LINE__, __FUNCTION__); ; } ; @@ -32180,7 +32180,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6560:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6565:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -32193,7 +32193,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6561:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6566:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32205,7 +32205,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:6561:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6566:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -32213,7 +32213,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6561:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6566:/ cond.else"); /*^block */ /*anyblock */ @@ -32227,7 +32227,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6561) ? (6561) : __LINE__, __FUNCTION__); + (6566) ? (6566) : __LINE__, __FUNCTION__); ; } ; @@ -32241,7 +32241,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6561:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6566:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -32254,7 +32254,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6562:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6567:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32265,7 +32265,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:6562:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6567:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -32273,7 +32273,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6562:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6567:/ cond.else"); /*^block */ /*anyblock */ @@ -32287,7 +32287,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6562) ? (6562) : __LINE__, __FUNCTION__); + (6567) ? (6567) : __LINE__, __FUNCTION__); ; } ; @@ -32301,7 +32301,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6562:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6567:/ clear"); /*clear *//*_#IS_CLOSURE__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -32314,7 +32314,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6563:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6568:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32325,7 +32325,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6563:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6568:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -32333,7 +32333,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6563:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6568:/ cond.else"); /*^block */ /*anyblock */ @@ -32347,7 +32347,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6563) ? (6563) : __LINE__, __FUNCTION__); + (6568) ? (6568) : __LINE__, __FUNCTION__); ; } ; @@ -32361,7 +32361,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6563:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6568:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -32372,10 +32372,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6564:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6569:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6565:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6570:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -32383,7 +32383,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6566:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6571:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -32399,7 +32399,7 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_HEAD__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6568:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6573:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32422,14 +32422,14 @@ lab_endgetargs:; } ; /*_.DOC__V25*/ meltfptr[24] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:6571:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6576:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L7*/ meltfnum[1] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V24*/ meltfptr[23]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:6571:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6576:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -32439,7 +32439,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6572:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6577:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(EXPORT_MACRO <sym> <expander>) expecting symbol"), @@ -32453,15 +32453,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V26*/ meltfptr[25] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6573:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6578:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V27*/ meltfptr[26] = /*_.PAIR_TAIL__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:6574:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6579:/ quasiblock"); /*_.PAIR_HEAD__V29*/ meltfptr[28] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6574:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6579:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32485,10 +32485,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V31*/ meltfptr[30] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6576:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6581:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V32*/ meltfptr[31] = /*_.PAIR_TAIL__V31*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:6577:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6582:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V33*/ meltfptr[32] = @@ -32497,7 +32497,7 @@ lab_endgetargs:; /*_#__L8*/ meltfnum[0] = (( /*_.PAIR_HEAD__V33*/ meltfptr[32]) == (( /*!konst_4_DOC */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:6577:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6582:/ cond"); /*cond */ if ( /*_#__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -32508,16 +32508,16 @@ lab_endgetargs:; /*_.PAIR_TAIL__V35*/ meltfptr[34] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6579:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6584:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V36*/ meltfptr[35] = /*_.PAIR_TAIL__V35*/ meltfptr[34];; /*_.PAIR_HEAD__V37*/ meltfptr[36] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6580:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6585:/ compute"); /*_.DOC__V25*/ meltfptr[24] = /*_.SETQ___V38*/ meltfptr[37] = /*_.PAIR_HEAD__V37*/ meltfptr[36];; - MELT_LOCATION ("warmelt-macro.melt:6578:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6583:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[38] = /*_.SETQ___V38*/ meltfptr[37];; @@ -32525,7 +32525,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = /*_.PROGN___V39*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6577:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6582:/ clear"); /*clear *//*_.PAIR_TAIL__V35*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.SETQ___V36*/ meltfptr[35] = 0; @@ -32544,12 +32544,12 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6581:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6586:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L9*/ meltfnum[8] = (( /*_.EXPV__V30*/ meltfptr[29]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6581:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6586:/ cond"); /*cond */ if ( /*_#NULL__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -32559,7 +32559,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6582:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6587:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(EXPORT_MACRO <sym> <expander> [:doc <docum>]) expecting expander"), @@ -32571,7 +32571,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6583:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6588:/ quasiblock"); /*^checksignal */ @@ -32636,7 +32636,7 @@ lab_endgetargs:; /*_.RES__V41*/ meltfptr[35] = /*_.INST__V42*/ meltfptr[36];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6590:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6595:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32662,7 +32662,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6590:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6595:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -32677,7 +32677,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6590:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6595:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32691,7 +32691,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6590; + argtab[2].meltbp_long = 6595; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_macro result res"; /*^apply.arg */ @@ -32711,7 +32711,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6590:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6595:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = 0; @@ -32724,7 +32724,7 @@ lab_endgetargs:; /*_.IF___V44*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6590:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6595:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[44] = /*_.IF___V44*/ meltfptr[38];; @@ -32732,7 +32732,7 @@ lab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[37] = /*_.PROGN___V46*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6590:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6595:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V44*/ meltfptr[38] = 0; @@ -32745,7 +32745,7 @@ lab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6591:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6596:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -32754,7 +32754,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V41*/ meltfptr[35];; { - MELT_LOCATION ("warmelt-macro.melt:6591:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6596:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -32769,7 +32769,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V40*/ meltfptr[34] = /*_.RETURN___V47*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:6583:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6588:/ clear"); /*clear *//*_.RES__V41*/ meltfptr[35] = 0; /*^clear */ /*clear *//*_.IFCPP___V43*/ meltfptr[37] = 0; @@ -32777,7 +32777,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V47*/ meltfptr[38] = 0; /*_.LET___V28*/ meltfptr[27] = /*_.LET___V40*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:6574:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6579:/ clear"); /*clear *//*_.PAIR_HEAD__V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.EXPV__V30*/ meltfptr[29] = 0; @@ -32797,7 +32797,7 @@ lab_endgetargs:; /*clear *//*_.LET___V40*/ meltfptr[34] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:6564:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6569:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -32819,7 +32819,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.LET___V28*/ meltfptr[27] = 0; - MELT_LOCATION ("warmelt-macro.melt:6558:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6563:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -32828,7 +32828,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6558:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6563:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -32955,7 +32955,7 @@ meltrout_141_warmelt_macro_MEXPAND_EXPORT_PATMACRO (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6602:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -32996,7 +32996,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6603:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6608:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33022,7 +33022,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6603:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6608:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -33037,7 +33037,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6603:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6608:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33050,7 +33050,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6603; + argtab[2].meltbp_long = 6608; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_patmacro sexpr"; /*^apply.arg */ @@ -33069,7 +33069,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6603:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6608:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -33082,7 +33082,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6603:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6608:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -33090,7 +33090,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6603:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6608:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -33105,7 +33105,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6604:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6609:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33117,7 +33117,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6604:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6609:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -33125,7 +33125,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6604:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6609:/ cond.else"); /*^block */ /*anyblock */ @@ -33139,7 +33139,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6604) ? (6604) : __LINE__, __FUNCTION__); + (6609) ? (6609) : __LINE__, __FUNCTION__); ; } ; @@ -33153,7 +33153,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6604:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6609:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -33166,7 +33166,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6605:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6610:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33178,7 +33178,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:6605:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6610:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -33186,7 +33186,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6605:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6610:/ cond.else"); /*^block */ /*anyblock */ @@ -33200,7 +33200,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6605) ? (6605) : __LINE__, __FUNCTION__); + (6610) ? (6610) : __LINE__, __FUNCTION__); ; } ; @@ -33214,7 +33214,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6605:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6610:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -33227,7 +33227,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6606:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6611:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33238,7 +33238,7 @@ lab_endgetargs:; /*_#IS_CLOSURE__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; - MELT_LOCATION ("warmelt-macro.melt:6606:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6611:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -33246,7 +33246,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6606:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6611:/ cond.else"); /*^block */ /*anyblock */ @@ -33260,7 +33260,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6606) ? (6606) : __LINE__, __FUNCTION__); + (6611) ? (6611) : __LINE__, __FUNCTION__); ; } ; @@ -33274,7 +33274,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6606:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6611:/ clear"); /*clear *//*_#IS_CLOSURE__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -33287,7 +33287,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6607:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6612:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33298,7 +33298,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6607:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6612:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -33306,7 +33306,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6607:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6612:/ cond.else"); /*^block */ /*anyblock */ @@ -33320,7 +33320,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6607) ? (6607) : __LINE__, __FUNCTION__); + (6612) ? (6612) : __LINE__, __FUNCTION__); ; } ; @@ -33334,7 +33334,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6607:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6612:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -33345,10 +33345,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6608:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6613:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6609:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6614:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -33356,7 +33356,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6610:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6615:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -33372,7 +33372,7 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_HEAD__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6612:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6617:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33399,14 +33399,14 @@ lab_endgetargs:; /*_.MACEXPV__V26*/ meltfptr[25] = ( /*nil */ NULL);; /*^compute */ /*_.DOC__V27*/ meltfptr[26] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:6617:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6622:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L7*/ meltfnum[1] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V24*/ meltfptr[23]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[3])));; - MELT_LOCATION ("warmelt-macro.melt:6617:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6622:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -33416,7 +33416,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6618:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6623:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>])\ expecting symbol"), (melt_ptr_t) 0); } @@ -33428,12 +33428,12 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V28*/ meltfptr[27] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6619:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6624:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V29*/ meltfptr[28] = /*_.PAIR_TAIL__V28*/ meltfptr[27];; /*_.PAIR_HEAD__V30*/ meltfptr[29] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6620:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6625:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33458,12 +33458,12 @@ lab_endgetargs:; /*^compute */ /*_.PATEXPV__V25*/ meltfptr[24] = /*_.SETQ___V32*/ meltfptr[31] = /*_.MEXPANDER__V31*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:6621:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6626:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L8*/ meltfnum[0] = (( /*_.PATEXPV__V25*/ meltfptr[24]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6621:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6626:/ cond"); /*cond */ if ( /*_#NULL__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -33473,7 +33473,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6622:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6627:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>])\ expecting patexpander"), (melt_ptr_t) 0); } @@ -33485,12 +33485,12 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V33*/ meltfptr[32] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6623:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6628:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V34*/ meltfptr[33] = /*_.PAIR_TAIL__V33*/ meltfptr[32];; /*_.PAIR_HEAD__V35*/ meltfptr[34] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6624:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6629:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33515,12 +33515,12 @@ lab_endgetargs:; /*^compute */ /*_.MACEXPV__V26*/ meltfptr[25] = /*_.SETQ___V37*/ meltfptr[36] = /*_.MEXPANDER__V36*/ meltfptr[35];; - MELT_LOCATION ("warmelt-macro.melt:6625:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6630:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L9*/ meltfnum[8] = (( /*_.MACEXPV__V26*/ meltfptr[25]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6625:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6630:/ cond"); /*cond */ if ( /*_#NULL__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -33530,7 +33530,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6626:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6631:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>])\ expecting macexpander"), (melt_ptr_t) 0); } @@ -33542,10 +33542,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V38*/ meltfptr[37] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6627:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6632:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V39*/ meltfptr[38] = /*_.PAIR_TAIL__V38*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:6628:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6633:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V40*/ meltfptr[39] = @@ -33554,7 +33554,7 @@ lab_endgetargs:; /*_#__L10*/ meltfnum[9] = (( /*_.PAIR_HEAD__V40*/ meltfptr[39]) == (( /*!konst_4_DOC */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:6628:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6633:/ cond"); /*cond */ if ( /*_#__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -33565,16 +33565,16 @@ lab_endgetargs:; /*_.PAIR_TAIL__V42*/ meltfptr[41] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6630:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6635:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V43*/ meltfptr[42] = /*_.PAIR_TAIL__V42*/ meltfptr[41];; /*_.PAIR_HEAD__V44*/ meltfptr[43] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6631:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6636:/ compute"); /*_.DOC__V27*/ meltfptr[26] = /*_.SETQ___V45*/ meltfptr[44] = /*_.PAIR_HEAD__V44*/ meltfptr[43];; - MELT_LOCATION ("warmelt-macro.melt:6629:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6634:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[45] = /*_.SETQ___V45*/ meltfptr[44];; @@ -33582,7 +33582,7 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[40] = /*_.PROGN___V46*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6628:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6633:/ clear"); /*clear *//*_.PAIR_TAIL__V42*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_.SETQ___V43*/ meltfptr[42] = 0; @@ -33601,7 +33601,7 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[40] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6634:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6639:/ quasiblock"); /*^checksignal */ @@ -33673,7 +33673,7 @@ lab_endgetargs:; /*_.RES__V48*/ meltfptr[42] = /*_.INST__V49*/ meltfptr[43];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6642:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6647:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33699,7 +33699,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6642:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6647:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -33714,7 +33714,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6642:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6647:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33728,7 +33728,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6642; + argtab[2].meltbp_long = 6647; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_patmacro result res"; /*^apply.arg */ @@ -33748,7 +33748,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6642:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6647:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = 0; @@ -33761,7 +33761,7 @@ lab_endgetargs:; /*_.IF___V51*/ meltfptr[45] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6642:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6647:/ quasiblock"); /*_.PROGN___V53*/ meltfptr[51] = /*_.IF___V51*/ meltfptr[45];; @@ -33769,7 +33769,7 @@ lab_endgetargs:; /*_.IFCPP___V50*/ meltfptr[44] = /*_.PROGN___V53*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6642:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6647:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V51*/ meltfptr[45] = 0; @@ -33782,7 +33782,7 @@ lab_endgetargs:; /*_.IFCPP___V50*/ meltfptr[44] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6643:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6648:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -33791,7 +33791,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V48*/ meltfptr[42];; { - MELT_LOCATION ("warmelt-macro.melt:6643:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6648:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -33806,7 +33806,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V47*/ meltfptr[41] = /*_.RETURN___V54*/ meltfptr[45];; - MELT_LOCATION ("warmelt-macro.melt:6634:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6639:/ clear"); /*clear *//*_.RES__V48*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_.IFCPP___V50*/ meltfptr[44] = 0; @@ -33814,7 +33814,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V54*/ meltfptr[45] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V47*/ meltfptr[41];; - MELT_LOCATION ("warmelt-macro.melt:6608:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6613:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -33870,7 +33870,7 @@ lab_endgetargs:; /*clear *//*_.IF___V41*/ meltfptr[40] = 0; /*^clear */ /*clear *//*_.LET___V47*/ meltfptr[41] = 0; - MELT_LOCATION ("warmelt-macro.melt:6602:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -33879,7 +33879,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6602:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -34005,7 +34005,7 @@ meltrout_142_warmelt_macro_MEXPAND_EXPORT_CLASS (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6652:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -34046,7 +34046,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6653:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6658:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34058,7 +34058,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:6653:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6658:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -34066,7 +34066,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6653:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6658:/ cond.else"); /*^block */ /*anyblock */ @@ -34080,7 +34080,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6653) ? (6653) : __LINE__, __FUNCTION__); + (6658) ? (6658) : __LINE__, __FUNCTION__); ; } ; @@ -34094,7 +34094,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6653:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6658:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -34107,7 +34107,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6654:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6659:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34119,7 +34119,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6654:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6659:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -34127,7 +34127,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6654:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6659:/ cond.else"); /*^block */ /*anyblock */ @@ -34141,7 +34141,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6654) ? (6654) : __LINE__, __FUNCTION__); + (6659) ? (6659) : __LINE__, __FUNCTION__); ; } ; @@ -34155,7 +34155,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6654:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6659:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -34166,12 +34166,12 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6655:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6660:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[0] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6655:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6660:/ cond"); /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -34185,7 +34185,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6655:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6660:/ clear"); /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0; } ; @@ -34198,7 +34198,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6656:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6661:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34209,7 +34209,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6656:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6661:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -34217,7 +34217,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6656:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6661:/ cond.else"); /*^block */ /*anyblock */ @@ -34231,7 +34231,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6656) ? (6656) : __LINE__, __FUNCTION__); + (6661) ? (6661) : __LINE__, __FUNCTION__); ; } ; @@ -34245,7 +34245,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6656:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6661:/ clear"); /*clear *//*_#IS_OBJECT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -34258,7 +34258,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6657:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6662:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34284,7 +34284,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6657:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6662:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -34299,7 +34299,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6657:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6662:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34312,7 +34312,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6657; + argtab[2].meltbp_long = 6662; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_class sexpr"; /*^apply.arg */ @@ -34332,7 +34332,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6657:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6662:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0; @@ -34345,7 +34345,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6657:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6662:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[15] = /*_.IF___V15*/ meltfptr[14];; @@ -34353,7 +34353,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.PROGN___V17*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6657:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6662:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V15*/ meltfptr[14] = 0; @@ -34366,10 +34366,10 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6658:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6663:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6659:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6664:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -34377,7 +34377,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6660:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6665:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -34390,7 +34390,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V22*/ meltfptr[21] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:6664:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6669:/ quasiblock"); /*^newclosure */ @@ -34454,7 +34454,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]); ; /*_.LAMBDA___V23*/ meltfptr[22] = /*_.LAMBDA___V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:6662:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6667:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34476,7 +34476,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6670:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6675:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -34521,7 +34521,7 @@ lab_endgetargs:; /*_.RES__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6674:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6679:/ cppif.then"); /*^block */ /*anyblock */ { @@ -34547,7 +34547,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6674:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6679:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -34562,7 +34562,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6674:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6679:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -34575,7 +34575,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6674; + argtab[2].meltbp_long = 6679; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_class result res"; /*^apply.arg */ @@ -34595,7 +34595,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6674:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6679:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; @@ -34608,7 +34608,7 @@ lab_endgetargs:; /*_.IF___V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6674:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6679:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[28];; @@ -34616,7 +34616,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6674:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6679:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IF___V29*/ meltfptr[28] = 0; @@ -34629,7 +34629,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6675:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6680:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -34638,7 +34638,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V26*/ meltfptr[25];; { - MELT_LOCATION ("warmelt-macro.melt:6675:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6680:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -34653,7 +34653,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V18*/ meltfptr[14] = /*_.RETURN___V32*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:6658:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6663:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -34671,7 +34671,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.RETURN___V32*/ meltfptr[28] = 0; - MELT_LOCATION ("warmelt-macro.melt:6652:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -34680,7 +34680,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6652:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) diff --git a/gcc/melt/generated/warmelt-macro+05.c b/gcc/melt/generated/warmelt-macro+05.c index f147257315a..982fc73d312 100644 --- a/gcc/melt/generated/warmelt-macro+05.c +++ b/gcc/melt/generated/warmelt-macro+05.c @@ -2393,7 +2393,7 @@ meltrout_143_warmelt_macro_LAMBDA___39__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6664:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6669:/ getarg"); /*_.S__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -2403,7 +2403,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:6665:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6670:/ quasiblock"); /*^checksignal */ @@ -2431,14 +2431,14 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6666:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6671:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L1*/ meltfnum[0] = !melt_is_instance_of ((melt_ptr_t) ( /*_.SYM__V4*/ meltfptr[3]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:6666:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6671:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2448,7 +2448,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6667:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6672:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) (( /*~LOC */ meltfclos->tabval[3])), @@ -2463,17 +2463,17 @@ lab_endgetargs:; ; /*_.LET___V3*/ meltfptr[2] = /*_.SYM__V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-macro.melt:6665:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6670:/ clear"); /*clear *//*_.SYM__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L1*/ meltfnum[0] = 0; - MELT_LOCATION ("warmelt-macro.melt:6664:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6669:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:6664:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6669:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2590,7 +2590,7 @@ meltrout_144_warmelt_macro_MEXPAND_EXPORT_SYNONYM (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6684:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6689:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -2631,7 +2631,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6685:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6690:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2657,7 +2657,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6685:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6690:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2672,7 +2672,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6685:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6690:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2685,7 +2685,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6685; + argtab[2].meltbp_long = 6690; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_synonym sexpr"; /*^apply.arg */ @@ -2704,7 +2704,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6685:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6690:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -2717,7 +2717,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6685:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6690:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -2725,7 +2725,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6685:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6690:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -2740,7 +2740,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6686:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6691:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2752,7 +2752,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6686:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6691:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2760,7 +2760,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6686:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6691:/ cond.else"); /*^block */ /*anyblock */ @@ -2774,7 +2774,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6686) ? (6686) : __LINE__, __FUNCTION__); + (6691) ? (6691) : __LINE__, __FUNCTION__); ; } ; @@ -2788,7 +2788,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6686:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6691:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -2801,7 +2801,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6687:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6692:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2813,7 +2813,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:6687:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6692:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2821,7 +2821,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6687:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6692:/ cond.else"); /*^block */ /*anyblock */ @@ -2835,7 +2835,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6687) ? (6687) : __LINE__, __FUNCTION__); + (6692) ? (6692) : __LINE__, __FUNCTION__); ; } ; @@ -2849,7 +2849,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6687:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6692:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -2860,12 +2860,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6688:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6693:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6688:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6693:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -2879,7 +2879,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6688:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6693:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -2892,7 +2892,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6689:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6694:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2903,7 +2903,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6689:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6694:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2911,7 +2911,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6689:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6694:/ cond.else"); /*^block */ /*anyblock */ @@ -2925,7 +2925,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6689) ? (6689) : __LINE__, __FUNCTION__); + (6694) ? (6694) : __LINE__, __FUNCTION__); ; } ; @@ -2939,7 +2939,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6689:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6694:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -2950,10 +2950,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6690:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6695:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6691:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6696:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -2961,7 +2961,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6692:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6697:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -2983,7 +2983,7 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_HEAD__V26*/ meltfptr[25] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6699:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6704:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3010,7 +3010,7 @@ lab_endgetargs:; /*_.MEXPANDER__V27*/ meltfptr[26];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6700:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6705:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3036,7 +3036,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6700:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6705:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3051,7 +3051,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6700:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6705:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3064,7 +3064,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6700; + argtab[2].meltbp_long = 6705; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpander_export_synonym newsymb"; /*^apply.arg */ @@ -3084,7 +3084,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6700:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6705:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0; @@ -3097,7 +3097,7 @@ lab_endgetargs:; /*_.IF___V30*/ meltfptr[29] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6700:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6705:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[30] = /*_.IF___V30*/ meltfptr[29];; @@ -3105,7 +3105,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[28] = /*_.PROGN___V32*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6700:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6705:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V30*/ meltfptr[29] = 0; @@ -3118,14 +3118,14 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[28] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6701:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6706:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L9*/ meltfnum[7] = !melt_is_instance_of ((melt_ptr_t) ( /*_.NEWSYMB__V23*/ meltfptr[22]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:6701:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6706:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -3135,7 +3135,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6702:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6707:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("bad new name in (EXPORT_SYNONYM <newname> <oldname> [:doc <docum>])"), @@ -3149,12 +3149,12 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V33*/ meltfptr[29] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6703:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6708:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V34*/ meltfptr[30] = /*_.PAIR_TAIL__V33*/ meltfptr[29];; /*_.PAIR_HEAD__V35*/ meltfptr[34] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6705:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6710:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3181,7 +3181,7 @@ lab_endgetargs:; /*_.MEXPANDER__V36*/ meltfptr[35];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6706:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6711:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3207,7 +3207,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6706:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6711:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3222,7 +3222,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6706:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6711:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3236,7 +3236,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6706; + argtab[2].meltbp_long = 6711; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpander_export_synonym oldsymb"; /*^apply.arg */ @@ -3256,7 +3256,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6706:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6711:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0; @@ -3269,7 +3269,7 @@ lab_endgetargs:; /*_.IF___V39*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6706:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6711:/ quasiblock"); /*_.PROGN___V41*/ meltfptr[39] = /*_.IF___V39*/ meltfptr[38];; @@ -3277,7 +3277,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = /*_.PROGN___V41*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6706:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6711:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V39*/ meltfptr[38] = 0; @@ -3290,14 +3290,14 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6707:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6712:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_NOT_A__L12*/ meltfnum[10] = !melt_is_instance_of ((melt_ptr_t) ( /*_.OLDSYMB__V24*/ meltfptr[23]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:6707:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6712:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -3307,7 +3307,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6708:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6713:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("bad old name in (EXPORT_SYNONYM <newname> <oldname> [:doc <docum>])"), @@ -3321,10 +3321,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V42*/ meltfptr[38] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6709:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6714:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V43*/ meltfptr[39] = /*_.PAIR_TAIL__V42*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:6710:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6715:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V44*/ meltfptr[43] = @@ -3333,7 +3333,7 @@ lab_endgetargs:; /*_#__L13*/ meltfnum[0] = (( /*_.PAIR_HEAD__V44*/ meltfptr[43]) == (( /*!konst_5_DOC */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:6710:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6715:/ cond"); /*cond */ if ( /*_#__L13*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3344,16 +3344,16 @@ lab_endgetargs:; /*_.PAIR_TAIL__V46*/ meltfptr[45] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6712:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6717:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V47*/ meltfptr[46] = /*_.PAIR_TAIL__V46*/ meltfptr[45];; /*_.PAIR_HEAD__V48*/ meltfptr[47] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6713:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6718:/ compute"); /*_.DOC__V25*/ meltfptr[24] = /*_.SETQ___V49*/ meltfptr[48] = /*_.PAIR_HEAD__V48*/ meltfptr[47];; - MELT_LOCATION ("warmelt-macro.melt:6711:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6716:/ quasiblock"); /*_.PROGN___V50*/ meltfptr[49] = /*_.SETQ___V49*/ meltfptr[48];; @@ -3361,7 +3361,7 @@ lab_endgetargs:; /*_.IF___V45*/ meltfptr[44] = /*_.PROGN___V50*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6710:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6715:/ clear"); /*clear *//*_.PAIR_TAIL__V46*/ meltfptr[45] = 0; /*^clear */ /*clear *//*_.SETQ___V47*/ meltfptr[46] = 0; @@ -3382,7 +3382,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6715:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6720:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3408,7 +3408,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6715:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6720:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -3423,7 +3423,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6715:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6720:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3437,7 +3437,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6715; + argtab[2].meltbp_long = 6720; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpander_export_synonym doc"; /*^apply.arg */ @@ -3457,7 +3457,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V53*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6715:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6720:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V53*/ meltfptr[47] = 0; @@ -3470,7 +3470,7 @@ lab_endgetargs:; /*_.IF___V52*/ meltfptr[46] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6715:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6720:/ quasiblock"); /*_.PROGN___V54*/ meltfptr[48] = /*_.IF___V52*/ meltfptr[46];; @@ -3478,7 +3478,7 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[45] = /*_.PROGN___V54*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6715:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6720:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V52*/ meltfptr[46] = 0; @@ -3491,10 +3491,10 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[45] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6716:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6721:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6717:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6722:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3556,7 +3556,7 @@ lab_endgetargs:; /*_.RES__V56*/ meltfptr[47] = /*_.INST__V57*/ meltfptr[46];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6723:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6728:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3582,7 +3582,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6723:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6728:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -3597,7 +3597,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6723:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6728:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3611,7 +3611,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6723; + argtab[2].meltbp_long = 6728; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpander_export_synonym result"; /*^apply.arg */ @@ -3631,7 +3631,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6723:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6728:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V60*/ meltfptr[59] = 0; @@ -3644,7 +3644,7 @@ lab_endgetargs:; /*_.IF___V59*/ meltfptr[58] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6723:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6728:/ quasiblock"); /*_.PROGN___V61*/ meltfptr[59] = /*_.IF___V59*/ meltfptr[58];; @@ -3652,7 +3652,7 @@ lab_endgetargs:; /*_.IFCPP___V58*/ meltfptr[48] = /*_.PROGN___V61*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6723:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6728:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IF___V59*/ meltfptr[58] = 0; @@ -3665,7 +3665,7 @@ lab_endgetargs:; /*_.IFCPP___V58*/ meltfptr[48] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6724:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6729:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3674,7 +3674,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V56*/ meltfptr[47];; { - MELT_LOCATION ("warmelt-macro.melt:6724:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6729:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3689,7 +3689,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V55*/ meltfptr[49] = /*_.RETURN___V62*/ meltfptr[58];; - MELT_LOCATION ("warmelt-macro.melt:6716:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6721:/ clear"); /*clear *//*_.RES__V56*/ meltfptr[47] = 0; /*^clear */ /*clear *//*_.IFCPP___V58*/ meltfptr[48] = 0; @@ -3697,7 +3697,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V62*/ meltfptr[58] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V55*/ meltfptr[49];; - MELT_LOCATION ("warmelt-macro.melt:6690:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6695:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -3749,7 +3749,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V51*/ meltfptr[45] = 0; /*^clear */ /*clear *//*_.LET___V55*/ meltfptr[49] = 0; - MELT_LOCATION ("warmelt-macro.melt:6684:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6689:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3758,7 +3758,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6684:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6689:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3884,7 +3884,7 @@ meltrout_145_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6736:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -3925,7 +3925,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6737:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6742:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3937,7 +3937,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:6737:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6742:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3945,7 +3945,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6737:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6742:/ cond.else"); /*^block */ /*anyblock */ @@ -3959,7 +3959,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6737) ? (6737) : __LINE__, __FUNCTION__); + (6742) ? (6742) : __LINE__, __FUNCTION__); ; } ; @@ -3973,7 +3973,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6737:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6742:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -3986,7 +3986,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6738:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6743:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3998,7 +3998,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6738:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6743:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4006,7 +4006,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6738:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6743:/ cond.else"); /*^block */ /*anyblock */ @@ -4020,7 +4020,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6738) ? (6738) : __LINE__, __FUNCTION__); + (6743) ? (6743) : __LINE__, __FUNCTION__); ; } ; @@ -4034,7 +4034,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6738:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6743:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -4047,7 +4047,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6739:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6744:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4058,7 +4058,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L3*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6739:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6744:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4066,7 +4066,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6739:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6744:/ cond.else"); /*^block */ /*anyblock */ @@ -4080,7 +4080,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6739) ? (6739) : __LINE__, __FUNCTION__); + (6744) ? (6744) : __LINE__, __FUNCTION__); ; } ; @@ -4094,7 +4094,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6739:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6744:/ clear"); /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -4107,7 +4107,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6740:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6745:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4133,7 +4133,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6740:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6745:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4148,7 +4148,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6740:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6745:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4161,7 +4161,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6740; + argtab[2].meltbp_long = 6745; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_current_module_environment_container sexpr"; @@ -4182,7 +4182,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6740:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6745:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0; @@ -4195,7 +4195,7 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6740:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6745:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[13] = /*_.IF___V13*/ meltfptr[12];; @@ -4203,7 +4203,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6740:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6745:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V13*/ meltfptr[12] = 0; @@ -4216,10 +4216,10 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6741:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6746:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6742:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6747:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -4227,7 +4227,7 @@ lab_endgetargs:; /*_.CONT__V17*/ meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6743:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6748:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -4240,7 +4240,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V20*/ meltfptr[19] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V19*/ meltfptr[18])));; - MELT_LOCATION ("warmelt-macro.melt:6745:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6750:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4271,12 +4271,12 @@ lab_endgetargs:; "newly made instance"); ; /*_.RES__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:6748:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6753:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOTNULL__L6*/ meltfnum[4] = (( /*_.CURPAIR__V20*/ meltfptr[19]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:6748:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6753:/ cond"); /*cond */ if ( /*_#NOTNULL__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -4286,7 +4286,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6749:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6754:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("(CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), @@ -4300,7 +4300,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6750:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6755:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4326,7 +4326,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6750:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6755:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4341,7 +4341,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6750:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6755:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4354,7 +4354,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6750; + argtab[2].meltbp_long = 6755; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_current_module_environment_container return res"; @@ -4375,7 +4375,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6750:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6755:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0; @@ -4388,7 +4388,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6750:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6755:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[24] = /*_.IF___V24*/ meltfptr[23];; @@ -4396,7 +4396,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = /*_.PROGN___V26*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6750:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6755:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V24*/ meltfptr[23] = 0; @@ -4409,7 +4409,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6751:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6756:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4418,7 +4418,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V21*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-macro.melt:6751:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6756:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4433,7 +4433,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V16*/ meltfptr[12] = /*_.RETURN___V27*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:6741:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6746:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -4449,7 +4449,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.RETURN___V27*/ meltfptr[23] = 0; - MELT_LOCATION ("warmelt-macro.melt:6736:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4458,7 +4458,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:6736:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4580,7 +4580,7 @@ meltrout_146_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6765:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6770:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -4621,7 +4621,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6766:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6771:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4633,7 +4633,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[0])));; - MELT_LOCATION ("warmelt-macro.melt:6766:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6771:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4641,7 +4641,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6766:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6771:/ cond.else"); /*^block */ /*anyblock */ @@ -4655,7 +4655,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6766) ? (6766) : __LINE__, __FUNCTION__); + (6771) ? (6771) : __LINE__, __FUNCTION__); ; } ; @@ -4669,7 +4669,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6766:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6771:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -4682,7 +4682,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6767:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6772:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4694,7 +4694,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6767:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6772:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4702,7 +4702,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6767:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6772:/ cond.else"); /*^block */ /*anyblock */ @@ -4716,7 +4716,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6767) ? (6767) : __LINE__, __FUNCTION__); + (6772) ? (6772) : __LINE__, __FUNCTION__); ; } ; @@ -4730,7 +4730,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6767:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6772:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -4741,12 +4741,12 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6768:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6773:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[0] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6768:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6773:/ cond"); /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4760,7 +4760,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6768:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6773:/ clear"); /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0; } ; @@ -4773,7 +4773,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6769:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6774:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4784,7 +4784,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L4*/ meltfnum[3] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6769:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6774:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -4792,7 +4792,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6769:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6774:/ cond.else"); /*^block */ /*anyblock */ @@ -4806,7 +4806,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6769) ? (6769) : __LINE__, __FUNCTION__); + (6774) ? (6774) : __LINE__, __FUNCTION__); ; } ; @@ -4820,7 +4820,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6769:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6774:/ clear"); /*clear *//*_#IS_OBJECT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -4833,7 +4833,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6770:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6775:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4859,7 +4859,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6770:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6775:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -4874,7 +4874,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6770:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6775:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4887,7 +4887,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6770; + argtab[2].meltbp_long = 6775; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_parent_module_environment sexpr"; @@ -4908,7 +4908,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6770:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6775:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0; @@ -4921,7 +4921,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6770:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6775:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[15] = /*_.IF___V15*/ meltfptr[14];; @@ -4929,7 +4929,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.PROGN___V17*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6770:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6775:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V15*/ meltfptr[14] = 0; @@ -4942,10 +4942,10 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6771:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6776:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6772:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6777:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -4953,7 +4953,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6773:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6778:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -4966,7 +4966,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V22*/ meltfptr[21] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:6775:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6780:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4997,12 +4997,12 @@ lab_endgetargs:; "newly made instance"); ; /*_.RES__V23*/ meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:6778:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6783:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOTNULL__L7*/ meltfnum[5] = (( /*_.CURPAIR__V22*/ meltfptr[21]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:6778:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6783:/ cond"); /*cond */ if ( /*_#NOTNULL__L7*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -5012,7 +5012,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6779:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6784:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(PARENT_MODULE_ENVIRONMENT) should not have any argument"), @@ -5026,7 +5026,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6780:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6785:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5052,7 +5052,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6780:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6785:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -5067,7 +5067,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6780:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6785:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5080,7 +5080,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6780; + argtab[2].meltbp_long = 6785; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_parent_module_environment return res"; @@ -5101,7 +5101,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6780:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6785:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0; @@ -5114,7 +5114,7 @@ lab_endgetargs:; /*_.IF___V26*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6780:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6785:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[26] = /*_.IF___V26*/ meltfptr[25];; @@ -5122,7 +5122,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[24] = /*_.PROGN___V28*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6780:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6785:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V26*/ meltfptr[25] = 0; @@ -5135,7 +5135,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[24] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6781:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6786:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5144,7 +5144,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V23*/ meltfptr[22];; { - MELT_LOCATION ("warmelt-macro.melt:6781:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6786:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5159,7 +5159,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V18*/ meltfptr[14] = /*_.RETURN___V29*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:6771:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6776:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -5175,7 +5175,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.RETURN___V29*/ meltfptr[25] = 0; - MELT_LOCATION ("warmelt-macro.melt:6765:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6770:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5184,7 +5184,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6765:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6770:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5310,7 +5310,7 @@ meltrout_147_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6794:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6799:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -5351,7 +5351,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6795:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6800:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5377,7 +5377,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6795:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6800:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5392,7 +5392,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6795:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6800:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5405,7 +5405,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6795; + argtab[2].meltbp_long = 6800; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_update_current_module_environment_container sexpr"; @@ -5425,7 +5425,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6795:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6800:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -5438,7 +5438,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6795:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6800:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -5446,7 +5446,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6795:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6800:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -5461,7 +5461,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6796:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6801:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5473,7 +5473,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6796:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6801:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5481,7 +5481,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6796:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6801:/ cond.else"); /*^block */ /*anyblock */ @@ -5495,7 +5495,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6796) ? (6796) : __LINE__, __FUNCTION__); + (6801) ? (6801) : __LINE__, __FUNCTION__); ; } ; @@ -5509,7 +5509,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6796:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6801:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -5522,7 +5522,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6797:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6802:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5534,7 +5534,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:6797:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6802:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5542,7 +5542,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6797:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6802:/ cond.else"); /*^block */ /*anyblock */ @@ -5556,7 +5556,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6797) ? (6797) : __LINE__, __FUNCTION__); + (6802) ? (6802) : __LINE__, __FUNCTION__); ; } ; @@ -5570,7 +5570,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6797:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6802:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -5583,7 +5583,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6798:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6803:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5594,7 +5594,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L5*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6798:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6803:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5602,7 +5602,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6798:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6803:/ cond.else"); /*^block */ /*anyblock */ @@ -5616,7 +5616,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6798) ? (6798) : __LINE__, __FUNCTION__); + (6803) ? (6803) : __LINE__, __FUNCTION__); ; } ; @@ -5630,7 +5630,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6798:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6803:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -5641,10 +5641,10 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6799:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6804:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6800:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6805:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -5652,7 +5652,7 @@ lab_endgetargs:; /*_.LOC__V17*/ meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6801:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6806:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -5665,7 +5665,7 @@ lab_endgetargs:; /*^compute */ /*_.CURPAIR__V20*/ meltfptr[19] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V19*/ meltfptr[18])));; - MELT_LOCATION ("warmelt-macro.melt:6803:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6808:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5696,12 +5696,12 @@ lab_endgetargs:; "newly made instance"); ; /*_.RES__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:6806:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6811:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOTNULL__L6*/ meltfnum[0] = (( /*_.CURPAIR__V20*/ meltfptr[19]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:6806:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6811:/ cond"); /*cond */ if ( /*_#NOTNULL__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5711,7 +5711,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6807:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6812:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("(UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), @@ -5725,7 +5725,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6808:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6813:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5751,7 +5751,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6808:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6813:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5766,7 +5766,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6808:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6813:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5779,7 +5779,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6808; + argtab[2].meltbp_long = 6813; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_update_current_module_environment_container return res"; @@ -5800,7 +5800,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6808:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6813:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0; @@ -5813,7 +5813,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6808:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6813:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[24] = /*_.IF___V24*/ meltfptr[23];; @@ -5821,7 +5821,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = /*_.PROGN___V26*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6808:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6813:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V24*/ meltfptr[23] = 0; @@ -5834,7 +5834,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6809:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6814:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5843,7 +5843,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V21*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-macro.melt:6809:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6814:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5858,7 +5858,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V16*/ meltfptr[14] = /*_.RETURN___V27*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:6799:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6804:/ clear"); /*clear *//*_.LOC__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.CONT__V18*/ meltfptr[17] = 0; @@ -5874,7 +5874,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.RETURN___V27*/ meltfptr[23] = 0; - MELT_LOCATION ("warmelt-macro.melt:6794:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6799:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5883,7 +5883,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6794:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6799:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6012,7 +6012,7 @@ meltrout_148_warmelt_macro_MEXPAND_FETCH_PREDEFINED (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6825:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6830:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -6053,7 +6053,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6826:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6831:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6079,7 +6079,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6826:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6831:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6094,7 +6094,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6826:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6831:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6107,7 +6107,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6826; + argtab[2].meltbp_long = 6831; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_fetch_predefined sexpr"; /*^apply.arg */ @@ -6126,7 +6126,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6826:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6831:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -6139,7 +6139,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6826:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6831:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -6147,7 +6147,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6826:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6831:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -6162,7 +6162,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6827:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6832:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6174,7 +6174,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6827:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6832:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6182,7 +6182,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6827:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6832:/ cond.else"); /*^block */ /*anyblock */ @@ -6196,7 +6196,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6827) ? (6827) : __LINE__, __FUNCTION__); + (6832) ? (6832) : __LINE__, __FUNCTION__); ; } ; @@ -6210,7 +6210,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6827:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6832:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -6223,7 +6223,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6828:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6833:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6235,7 +6235,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:6828:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6833:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6243,7 +6243,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6828:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6833:/ cond.else"); /*^block */ /*anyblock */ @@ -6257,7 +6257,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6828) ? (6828) : __LINE__, __FUNCTION__); + (6833) ? (6833) : __LINE__, __FUNCTION__); ; } ; @@ -6271,7 +6271,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6828:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6833:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -6282,12 +6282,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6829:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6834:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6829:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6834:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -6301,7 +6301,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6829:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6834:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -6314,7 +6314,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6830:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6835:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6325,7 +6325,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6830:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6835:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6333,7 +6333,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6830:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6835:/ cond.else"); /*^block */ /*anyblock */ @@ -6347,7 +6347,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6830) ? (6830) : __LINE__, __FUNCTION__); + (6835) ? (6835) : __LINE__, __FUNCTION__); ; } ; @@ -6361,7 +6361,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6830:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6835:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -6372,10 +6372,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6831:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6836:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6832:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6837:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -6383,7 +6383,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6833:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6838:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -6399,7 +6399,7 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_HEAD__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6835:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6840:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6421,12 +6421,12 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6837:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6842:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L7*/ meltfnum[0] = (( /*_.CURPAIR__V22*/ meltfptr[21]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6837:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6842:/ cond"); /*cond */ if ( /*_#NULL__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6436,7 +6436,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6838:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6843:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(FETCH_PREDEFINED <predef-name-or-rank>) missing argument"), @@ -6448,7 +6448,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6839:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6844:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V25*/ meltfptr[24] = @@ -6456,7 +6456,7 @@ lab_endgetargs:; /*^compute */ /*_#NOTNULL__L8*/ meltfnum[7] = (( /*_.PAIR_TAIL__V25*/ meltfptr[24]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:6839:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6844:/ cond"); /*cond */ if ( /*_#NOTNULL__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -6466,7 +6466,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6840:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6845:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(FETCH_PREDEFINED <predef-name-or-rank>) extra argument"), @@ -6478,14 +6478,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6841:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6846:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L9*/ meltfnum[8] = melt_is_instance_of ((melt_ptr_t) ( /*_.SPREDEF__V24*/ meltfptr[23]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:6841:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6846:/ cond"); /*cond */ if ( /*_#IS_A__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -6493,7 +6493,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6841:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6846:/ cond.else"); /*^block */ /*anyblock */ @@ -6507,7 +6507,7 @@ lab_endgetargs:; /*_#OR___L10*/ meltfnum[9] = /*_#IS_INTEGERBOX__L11*/ meltfnum[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6841:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6846:/ clear"); /*clear *//*_#IS_INTEGERBOX__L11*/ meltfnum[10] = 0; } ; @@ -6515,7 +6515,7 @@ lab_endgetargs:; ; /*_#NOT__L12*/ meltfnum[10] = (!( /*_#OR___L10*/ meltfnum[9]));; - MELT_LOCATION ("warmelt-macro.melt:6841:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6846:/ cond"); /*cond */ if ( /*_#NOT__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -6525,7 +6525,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6842:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6847:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(FETCH_PREDEFINED <predef-name-or-rank>) invalid argument"), @@ -6537,7 +6537,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6843:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6848:/ quasiblock"); /*^checksignal */ @@ -6582,7 +6582,7 @@ lab_endgetargs:; /*_.RES__V27*/ meltfptr[26] = /*_.INST__V28*/ meltfptr[27];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6846:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6851:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6608,7 +6608,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6846:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6851:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -6623,7 +6623,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6846:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6851:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6637,7 +6637,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6846; + argtab[2].meltbp_long = 6851; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_fetch_predefined result"; /*^apply.arg */ @@ -6657,7 +6657,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6846:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6851:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0; @@ -6670,7 +6670,7 @@ lab_endgetargs:; /*_.IF___V30*/ meltfptr[29] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6846:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6851:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[30] = /*_.IF___V30*/ meltfptr[29];; @@ -6678,7 +6678,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[28] = /*_.PROGN___V32*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6846:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6851:/ clear"); /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IF___V30*/ meltfptr[29] = 0; @@ -6691,7 +6691,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[28] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6847:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6852:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -6700,7 +6700,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V27*/ meltfptr[26];; { - MELT_LOCATION ("warmelt-macro.melt:6847:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6852:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6715,7 +6715,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V26*/ meltfptr[25] = /*_.RETURN___V33*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:6843:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6848:/ clear"); /*clear *//*_.RES__V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.IFCPP___V29*/ meltfptr[28] = 0; @@ -6723,7 +6723,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V33*/ meltfptr[29] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:6831:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6836:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -6749,7 +6749,7 @@ lab_endgetargs:; /*clear *//*_#NOT__L12*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.LET___V26*/ meltfptr[25] = 0; - MELT_LOCATION ("warmelt-macro.melt:6825:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6830:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -6758,7 +6758,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6825:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6830:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6890,7 +6890,7 @@ meltrout_149_warmelt_macro_MEXPAND_STORE_PREDEFINED (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6854:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6859:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -6931,7 +6931,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6855:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6860:/ cppif.then"); /*^block */ /*anyblock */ { @@ -6957,7 +6957,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6855:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6860:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -6972,7 +6972,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6855:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6860:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6985,7 +6985,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6855; + argtab[2].meltbp_long = 6860; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_store_predefined sexpr"; /*^apply.arg */ @@ -7004,7 +7004,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6855:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6860:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -7017,7 +7017,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6855:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6860:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -7025,7 +7025,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6855:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6860:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -7040,7 +7040,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6856:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6861:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7052,7 +7052,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout-> tabval[1])));; - MELT_LOCATION ("warmelt-macro.melt:6856:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6861:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -7060,7 +7060,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6856:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6861:/ cond.else"); /*^block */ /*anyblock */ @@ -7074,7 +7074,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6856) ? (6856) : __LINE__, __FUNCTION__); + (6861) ? (6861) : __LINE__, __FUNCTION__); ; } ; @@ -7088,7 +7088,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6856:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6861:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -7101,7 +7101,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6857:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6862:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7113,7 +7113,7 @@ lab_endgetargs:; melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[2])));; - MELT_LOCATION ("warmelt-macro.melt:6857:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6862:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7121,7 +7121,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6857:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6862:/ cond.else"); /*^block */ /*anyblock */ @@ -7135,7 +7135,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6857) ? (6857) : __LINE__, __FUNCTION__); + (6862) ? (6862) : __LINE__, __FUNCTION__); ; } ; @@ -7149,7 +7149,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6857:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6862:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -7160,12 +7160,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6858:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6863:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6858:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6863:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -7179,7 +7179,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6858:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6863:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -7192,7 +7192,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6859:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6864:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7203,7 +7203,7 @@ lab_endgetargs:; /*_#IS_OBJECT__L6*/ meltfnum[0] = (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; - MELT_LOCATION ("warmelt-macro.melt:6859:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6864:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7211,7 +7211,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6859:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6864:/ cond.else"); /*^block */ /*anyblock */ @@ -7225,7 +7225,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6859) ? (6859) : __LINE__, __FUNCTION__); + (6864) ? (6864) : __LINE__, __FUNCTION__); ; } ; @@ -7239,7 +7239,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6859:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6864:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -7250,10 +7250,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6860:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6865:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6861:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6866:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -7261,7 +7261,7 @@ lab_endgetargs:; /*_.CONT__V19*/ meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6862:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6867:/ getslot"); { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]) /*=obj*/ ; @@ -7277,7 +7277,7 @@ lab_endgetargs:; /*^compute */ /*_.PAIR_HEAD__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6864:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6869:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7300,12 +7300,12 @@ lab_endgetargs:; } ; /*_.SVAL__V25*/ meltfptr[24] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:6867:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6872:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L7*/ meltfnum[0] = (( /*_.CURPAIR__V22*/ meltfptr[21]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6867:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6872:/ cond"); /*cond */ if ( /*_#NULL__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -7315,7 +7315,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6868:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6873:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), @@ -7329,15 +7329,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V26*/ meltfptr[25] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6869:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6874:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V27*/ meltfptr[26] = /*_.PAIR_TAIL__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:6870:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6875:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L8*/ meltfnum[7] = (( /*_.CURPAIR__V22*/ meltfptr[21]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6870:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6875:/ cond"); /*cond */ if ( /*_#NULL__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -7347,7 +7347,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6871:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6876:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), @@ -7361,7 +7361,7 @@ lab_endgetargs:; ; /*_.PAIR_HEAD__V28*/ meltfptr[27] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6872:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6877:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7386,7 +7386,7 @@ lab_endgetargs:; /*^compute */ /*_.SVAL__V25*/ meltfptr[24] = /*_.SETQ___V30*/ meltfptr[29] = /*_.MEXPANDER__V29*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:6873:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6878:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V31*/ meltfptr[30] = @@ -7394,7 +7394,7 @@ lab_endgetargs:; /*^compute */ /*_#NOTNULL__L9*/ meltfnum[8] = (( /*_.PAIR_TAIL__V31*/ meltfptr[30]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:6873:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6878:/ cond"); /*cond */ if ( /*_#NOTNULL__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -7404,7 +7404,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6874:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6879:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(STORE_PREDEFINED <predef-name-or-rank> <value>) extra argument"), @@ -7416,14 +7416,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6875:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6880:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L10*/ meltfnum[9] = melt_is_instance_of ((melt_ptr_t) ( /*_.SPREDEF__V24*/ meltfptr[23]), (melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout-> tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:6875:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6880:/ cond"); /*cond */ if ( /*_#IS_A__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -7431,7 +7431,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6875:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6880:/ cond.else"); /*^block */ /*anyblock */ @@ -7446,7 +7446,7 @@ lab_endgetargs:; /*_#IS_INTEGERBOX__L12*/ meltfnum[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6875:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6880:/ clear"); /*clear *//*_#IS_INTEGERBOX__L12*/ meltfnum[11] = 0; } ; @@ -7454,7 +7454,7 @@ lab_endgetargs:; ; /*_#NOT__L13*/ meltfnum[11] = (!( /*_#OR___L11*/ meltfnum[10]));; - MELT_LOCATION ("warmelt-macro.melt:6875:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6880:/ cond"); /*cond */ if ( /*_#NOT__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -7464,7 +7464,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6876:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6881:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(STORE_PREDEFINED <predef-name-or-rank> <value>) invalid predef"), @@ -7476,7 +7476,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6877:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6882:/ quasiblock"); /*^checksignal */ @@ -7530,7 +7530,7 @@ lab_endgetargs:; /*_.RES__V33*/ meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6882:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6887:/ cppif.then"); /*^block */ /*anyblock */ { @@ -7556,7 +7556,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6882:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6887:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -7571,7 +7571,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6882:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6887:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -7585,7 +7585,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6882; + argtab[2].meltbp_long = 6887; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_store_predefined result"; /*^apply.arg */ @@ -7605,7 +7605,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6882:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6887:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0; @@ -7618,7 +7618,7 @@ lab_endgetargs:; /*_.IF___V36*/ meltfptr[35] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6882:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6887:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[36] = /*_.IF___V36*/ meltfptr[35];; @@ -7626,7 +7626,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[34] = /*_.PROGN___V38*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6882:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6887:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V36*/ meltfptr[35] = 0; @@ -7639,7 +7639,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[34] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6883:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6888:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -7648,7 +7648,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V33*/ meltfptr[32];; { - MELT_LOCATION ("warmelt-macro.melt:6883:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6888:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -7663,7 +7663,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V32*/ meltfptr[31] = /*_.RETURN___V39*/ meltfptr[35];; - MELT_LOCATION ("warmelt-macro.melt:6877:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6882:/ clear"); /*clear *//*_.RES__V33*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.IFCPP___V35*/ meltfptr[34] = 0; @@ -7671,7 +7671,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V39*/ meltfptr[35] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V32*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:6860:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6865:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -7711,7 +7711,7 @@ lab_endgetargs:; /*clear *//*_#NOT__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.LET___V32*/ meltfptr[31] = 0; - MELT_LOCATION ("warmelt-macro.melt:6854:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6859:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -7720,7 +7720,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6854:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6859:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) diff --git a/gcc/melt/generated/warmelt-macro+meltdesc.c b/gcc/melt/generated/warmelt-macro+meltdesc.c index 9e9336efcf5..6f5e90c1fc5 100644 --- a/gcc/melt/generated/warmelt-macro+meltdesc.c +++ b/gcc/melt/generated/warmelt-macro+meltdesc.c @@ -19,8 +19,8 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revision 192289] MELT_0\ -.9.7-rc4" +const char melt_genversionstr[]="4.8.0 20121018 (experimental) [melt-branch revision 192558] MELT_0\ +.9.7-post" #ifdef __cplusplus " (in C++)" @@ -29,27 +29,27 @@ const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.7-rc4 [melt-branch_revision_192289]"; +const char melt_versionmeltstr[]="0.9.7-post [melt-branch_revision_192555]"; /* source name & real path of the module */ /*MELTMODULENAME meltbuild-sources/warmelt-macro */ const char melt_modulename[]="warmelt-macro"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt\ --modules/0.9.7-rc4/warmelt-macro"; +-modules/0.9.7-post/warmelt-macro"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="f66a30d9bc2c10de00b1532482ad91ed"; +const char melt_prepromd5meltrun[]="fbc0deb09a63b777e215f0636e7b4e16"; /* hexmd5checksum of primary C file */ -const char melt_primaryhexmd5[]="3963a75e111a8a8ab2dacdf71168934b"; +const char melt_primaryhexmd5[]="8279618b83bdbf15c79ba2bc0562cee1"; /* hexmd5checksum of secondary C files */ const char* const melt_secondaryhexmd5tab[]={ /*nosecfile*/ (const char*)0, - /*sechexmd5checksum meltbuild-sources/warmelt-macro+01.c #1 */ "4fe7073a43faed7324233c24aa304b5f", - /*sechexmd5checksum meltbuild-sources/warmelt-macro+02.c #2 */ "19ba13a6ffbe5034ff5cd1acea88a990", - /*sechexmd5checksum meltbuild-sources/warmelt-macro+03.c #3 */ "f390c7589e67ae929d6f08017bbb9e57", - /*sechexmd5checksum meltbuild-sources/warmelt-macro+04.c #4 */ "917e42da7a97157560ded925dd34306d", - /*sechexmd5checksum meltbuild-sources/warmelt-macro+05.c #5 */ "be65aa91df47058d7bd06aca6d6dfbef", + /*sechexmd5checksum meltbuild-sources/warmelt-macro+01.c #1 */ "5524e33cba72061e9f53161aceac4519", + /*sechexmd5checksum meltbuild-sources/warmelt-macro+02.c #2 */ "6f3afc6ba9635cdfebc01c07a7463068", + /*sechexmd5checksum meltbuild-sources/warmelt-macro+03.c #3 */ "1eb8df6f8e3557da9d3f9591d6a28eff", + /*sechexmd5checksum meltbuild-sources/warmelt-macro+04.c #4 */ "06bd731499f636a6a3e39acd92b4bf17", + /*sechexmd5checksum meltbuild-sources/warmelt-macro+05.c #5 */ "fd92fe7b96beca1c7ae2d56c2fa03925", /*nosecfile*/ (const char*)0, (const char*)0 }; @@ -57,10 +57,10 @@ const char* const melt_secondaryhexmd5tab[]={ const int melt_lastsecfileindex=5; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="c1444a96ec0081bca6c9674216b679d1" ; +const char melt_cumulated_hexmd5[]="ab6b3d4e3672b9bac0aa625a8b7383da" ; /* include the timestamp file */ -#define meltmod_warmelt_macro_mds__c1444a96ec0081bca6c9674216b679d1 1 +#define meltmod_warmelt_macro_mds__ab6b3d4e3672b9bac0aa625a8b7383da 1 #include "warmelt-macro+melttime.h" diff --git a/gcc/melt/generated/warmelt-macro+melttime.h b/gcc/melt/generated/warmelt-macro+melttime.h index 9e09e8d6f6e..26da4897108 100644 --- a/gcc/melt/generated/warmelt-macro+melttime.h +++ b/gcc/melt/generated/warmelt-macro+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-macro+melttime.h is included from warmelt-macro+meltdesc.c only. */ -#if meltmod_warmelt_macro_mds__c1444a96ec0081bca6c9674216b679d1 +#if meltmod_warmelt_macro_mds__ab6b3d4e3672b9bac0aa625a8b7383da /* MELT generation timestamp for meltbuild-sources/warmelt-macro */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Wed Oct 10 13:49:40 2012 CEST"; -const long long melt_gen_timenum=1349869780; +const char melt_gen_timestamp[]="Thu Oct 18 16:21:06 2012 CEST"; +const long long melt_gen_timenum=1350570066; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1349869780; } /* end extern C timestamp */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_macro_mds__c1444a96ec0081bca6c9674216b679d1 */ + #else /* ! meltmod_warmelt_macro_mds__ab6b3d4e3672b9bac0aa625a8b7383da */ #error invalid timestamp file for meltbuild-sources/warmelt-macro - #endif /* meltmod_warmelt_macro_mds__c1444a96ec0081bca6c9674216b679d1 */ + #endif /* meltmod_warmelt_macro_mds__ab6b3d4e3672b9bac0aa625a8b7383da */ diff --git a/gcc/melt/generated/warmelt-macro.c b/gcc/melt/generated/warmelt-macro.c index 65daf7ccecc..aaabdf7cad4 100644 --- a/gcc/melt/generated/warmelt-macro.c +++ b/gcc/melt/generated/warmelt-macro.c @@ -6199,81 +6199,81 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, struct MELT_ROUTINE_STRUCT (1) drout_1050__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1051__PUT_ENV; struct MELT_STRING_STRUCT (7) dstr_1052__PUT_ENV; - struct MELT_ROUTINE_STRUCT (6) drout_1053__EXPAND_CMATCHEXPR; + struct MELT_ROUTINE_STRUCT (8) drout_1053__EXPAND_CMATCHEXPR; struct MELT_CLOSURE_STRUCT (0) dclo_1054__EXPAND_CMATCHEXPR; struct MELT_OBJECT_STRUCT (3) dsym_1055__CLASS_CMATCHER; struct MELT_STRING_STRUCT (14) dstr_1056__CLASS_CMATCHER; - struct MELT_ROUTINE_STRUCT (6) drout_1057__EXPAND_FUNMATCHEXPR; - struct MELT_CLOSURE_STRUCT (0) dclo_1058__EXPAND_FUNMATCHEXPR; - struct MELT_OBJECT_STRUCT (3) dsym_1059__CLASS_FUNMATCHER; - struct MELT_STRING_STRUCT (16) dstr_1060__CLASS_FUNMATCHER; - struct MELT_ROUTINE_STRUCT (5) drout_1061__EXPAND_KEYWORDFUN; - struct MELT_CLOSURE_STRUCT (0) dclo_1062__EXPAND_KEYWORDFUN; - struct MELT_ROUTINE_STRUCT (34) drout_1063__MACROEXPAND_1; - struct MELT_CLOSURE_STRUCT (0) dclo_1064__MACROEXPAND_1; - struct MELT_OBJECT_STRUCT (3) dsym_1065__FIND_ENV; - struct MELT_STRING_STRUCT (8) dstr_1066__FIND_ENV; - struct MELT_OBJECT_STRUCT (3) dsym_1067__CLASS_MACRO_BINDING; - struct MELT_STRING_STRUCT (19) dstr_1068__CLASS_MACRO_BIND; - struct MELT_OBJECT_STRUCT (3) dsym_1069__CLASS_SELECTOR_BINDING; - struct MELT_STRING_STRUCT (22) dstr_1070__CLASS_SELECTOR_B; - struct MELT_OBJECT_STRUCT (3) dsym_1071__CLASS_PRIMITIVE_BINDING; - struct MELT_STRING_STRUCT (23) dstr_1072__CLASS_PRIMITIVE_; - struct MELT_OBJECT_STRUCT (3) dsym_1073__CLASS_CITERATOR_BINDING; - struct MELT_STRING_STRUCT (23) dstr_1074__CLASS_CITERATOR_; - struct MELT_OBJECT_STRUCT (3) dsym_1075__CLASS_CMATCHER_BINDING; - struct MELT_STRING_STRUCT (22) dstr_1076__CLASS_CMATCHER_B; - struct MELT_OBJECT_STRUCT (3) dsym_1077__CLASS_FUNMATCHER_BINDING; - struct MELT_STRING_STRUCT (24) dstr_1078__CLASS_FUNMATCHER; - struct MELT_OBJECT_STRUCT (3) dsym_1079__CLASS_FIELD_BINDING; - struct MELT_STRING_STRUCT (19) dstr_1080__CLASS_FIELD_BIND; - struct MELT_OBJECT_STRUCT (3) dsym_1081__CLASS_FORMAL_BINDING; - struct MELT_STRING_STRUCT (20) dstr_1082__CLASS_FORMAL_BIN; - struct MELT_OBJECT_STRUCT (3) dsym_1083__CLASS_LET_BINDING; - struct MELT_STRING_STRUCT (17) dstr_1084__CLASS_LET_BINDIN; - struct MELT_OBJECT_STRUCT (3) dsym_1085__CLASS_VALUE_BINDING; - struct MELT_STRING_STRUCT (19) dstr_1086__CLASS_VALUE_BIND; - struct MELT_OBJECT_STRUCT (3) dsym_1087__CLASS_PRIMITIVE; - struct MELT_STRING_STRUCT (15) dstr_1088__CLASS_PRIMITIVE; - struct MELT_ROUTINE_STRUCT (0) drout_1089__LAMBDA_; - struct MELT_ROUTINE_STRUCT (5) drout_1090__EXPAND_PRIMITIVE; - struct MELT_CLOSURE_STRUCT (0) dclo_1091__EXPAND_PRIMITIVE; - struct MELT_OBJECT_STRUCT (3) dsym_1092__CLASS_PATTERN_EXPANSION_CONTEXT; - struct MELT_STRING_STRUCT (31) dstr_1093__CLASS_PATTERN_EX; - struct MELT_OBJECT_STRUCT (3) dsym_1094__CLASS_ROOT; - struct MELT_STRING_STRUCT (10) dstr_1095__CLASS_ROOT; - struct MELT_OBJECT_STRUCT (8) dobj_1096__CLASS_PATTERN_EXPANSION_CONTEXT; - struct MELT_STRING_STRUCT (31) dstr_1097__CLASS_PATTERN_EX; + struct MELT_OBJECT_STRUCT (3) dsym_1057__CLASS_ANY_MATCHER; + struct MELT_STRING_STRUCT (17) dstr_1058__CLASS_ANY_MATCHE; + struct MELT_ROUTINE_STRUCT (6) drout_1059__EXPAND_FUNMATCHEXPR; + struct MELT_CLOSURE_STRUCT (0) dclo_1060__EXPAND_FUNMATCHEXPR; + struct MELT_OBJECT_STRUCT (3) dsym_1061__CLASS_FUNMATCHER; + struct MELT_STRING_STRUCT (16) dstr_1062__CLASS_FUNMATCHER; + struct MELT_ROUTINE_STRUCT (5) drout_1063__EXPAND_KEYWORDFUN; + struct MELT_CLOSURE_STRUCT (0) dclo_1064__EXPAND_KEYWORDFUN; + struct MELT_ROUTINE_STRUCT (34) drout_1065__MACROEXPAND_1; + struct MELT_CLOSURE_STRUCT (0) dclo_1066__MACROEXPAND_1; + struct MELT_OBJECT_STRUCT (3) dsym_1067__FIND_ENV; + struct MELT_STRING_STRUCT (8) dstr_1068__FIND_ENV; + struct MELT_OBJECT_STRUCT (3) dsym_1069__CLASS_MACRO_BINDING; + struct MELT_STRING_STRUCT (19) dstr_1070__CLASS_MACRO_BIND; + struct MELT_OBJECT_STRUCT (3) dsym_1071__CLASS_SELECTOR_BINDING; + struct MELT_STRING_STRUCT (22) dstr_1072__CLASS_SELECTOR_B; + struct MELT_OBJECT_STRUCT (3) dsym_1073__CLASS_PRIMITIVE_BINDING; + struct MELT_STRING_STRUCT (23) dstr_1074__CLASS_PRIMITIVE_; + struct MELT_OBJECT_STRUCT (3) dsym_1075__CLASS_CITERATOR_BINDING; + struct MELT_STRING_STRUCT (23) dstr_1076__CLASS_CITERATOR_; + struct MELT_OBJECT_STRUCT (3) dsym_1077__CLASS_CMATCHER_BINDING; + struct MELT_STRING_STRUCT (22) dstr_1078__CLASS_CMATCHER_B; + struct MELT_OBJECT_STRUCT (3) dsym_1079__CLASS_FUNMATCHER_BINDING; + struct MELT_STRING_STRUCT (24) dstr_1080__CLASS_FUNMATCHER; + struct MELT_OBJECT_STRUCT (3) dsym_1081__CLASS_FIELD_BINDING; + struct MELT_STRING_STRUCT (19) dstr_1082__CLASS_FIELD_BIND; + struct MELT_OBJECT_STRUCT (3) dsym_1083__CLASS_FORMAL_BINDING; + struct MELT_STRING_STRUCT (20) dstr_1084__CLASS_FORMAL_BIN; + struct MELT_OBJECT_STRUCT (3) dsym_1085__CLASS_LET_BINDING; + struct MELT_STRING_STRUCT (17) dstr_1086__CLASS_LET_BINDIN; + struct MELT_OBJECT_STRUCT (3) dsym_1087__CLASS_VALUE_BINDING; + struct MELT_STRING_STRUCT (19) dstr_1088__CLASS_VALUE_BIND; + struct MELT_OBJECT_STRUCT (3) dsym_1089__CLASS_PRIMITIVE; + struct MELT_STRING_STRUCT (15) dstr_1090__CLASS_PRIMITIVE; + struct MELT_ROUTINE_STRUCT (0) drout_1091__LAMBDA_; + struct MELT_ROUTINE_STRUCT (5) drout_1092__EXPAND_PRIMITIVE; + struct MELT_CLOSURE_STRUCT (0) dclo_1093__EXPAND_PRIMITIVE; + struct MELT_OBJECT_STRUCT (3) dsym_1094__CLASS_PATTERN_EXPANSION_CONTEXT; + struct MELT_STRING_STRUCT (31) dstr_1095__CLASS_PATTERN_EX; + struct MELT_OBJECT_STRUCT (3) dsym_1096__CLASS_ROOT; + struct MELT_STRING_STRUCT (10) dstr_1097__CLASS_ROOT; + struct MELT_OBJECT_STRUCT (8) dobj_1098__CLASS_PATTERN_EXPANSION_CONTEXT; + struct MELT_STRING_STRUCT (31) dstr_1099__CLASS_PATTERN_EX; struct MELT_MULTIPLE_STRUCT (1) - dtup_1098__CLASS_PATTERN_EXPANSION_CONTEXT; + dtup_1100__CLASS_PATTERN_EXPANSION_CONTEXT; struct MELT_MULTIPLE_STRUCT (4) - dtup_1099__CLASS_PATTERN_EXPANSION_CONTEXT; - struct MELT_OBJECT_STRUCT (3) dsym_1100__PCTX_MEXPANDER; - struct MELT_STRING_STRUCT (14) dstr_1101__PCTX_MEXPANDER; - struct MELT_OBJECT_STRUCT (4) dobj_1102__PCTX_MEXPANDER; + dtup_1101__CLASS_PATTERN_EXPANSION_CONTEXT; + struct MELT_OBJECT_STRUCT (3) dsym_1102__PCTX_MEXPANDER; struct MELT_STRING_STRUCT (14) dstr_1103__PCTX_MEXPANDER; - struct MELT_OBJECT_STRUCT (3) dsym_1104__PCTX_PEXPANDER; - struct MELT_STRING_STRUCT (14) dstr_1105__PCTX_PEXPANDER; - struct MELT_OBJECT_STRUCT (4) dobj_1106__PCTX_PEXPANDER; + struct MELT_OBJECT_STRUCT (4) dobj_1104__PCTX_MEXPANDER; + struct MELT_STRING_STRUCT (14) dstr_1105__PCTX_MEXPANDER; + struct MELT_OBJECT_STRUCT (3) dsym_1106__PCTX_PEXPANDER; struct MELT_STRING_STRUCT (14) dstr_1107__PCTX_PEXPANDER; - struct MELT_OBJECT_STRUCT (3) dsym_1108__PCTX_VARMAP; - struct MELT_STRING_STRUCT (11) dstr_1109__PCTX_VARMAP; - struct MELT_OBJECT_STRUCT (4) dobj_1110__PCTX_VARMAP; + struct MELT_OBJECT_STRUCT (4) dobj_1108__PCTX_PEXPANDER; + struct MELT_STRING_STRUCT (14) dstr_1109__PCTX_PEXPANDER; + struct MELT_OBJECT_STRUCT (3) dsym_1110__PCTX_VARMAP; struct MELT_STRING_STRUCT (11) dstr_1111__PCTX_VARMAP; - struct MELT_OBJECT_STRUCT (3) dsym_1112__PCTX_MODCTX; - struct MELT_STRING_STRUCT (11) dstr_1113__PCTX_MODCTX; - struct MELT_OBJECT_STRUCT (4) dobj_1114__PCTX_MODCTX; + struct MELT_OBJECT_STRUCT (4) dobj_1112__PCTX_VARMAP; + struct MELT_STRING_STRUCT (11) dstr_1113__PCTX_VARMAP; + struct MELT_OBJECT_STRUCT (3) dsym_1114__PCTX_MODCTX; struct MELT_STRING_STRUCT (11) dstr_1115__PCTX_MODCTX; + struct MELT_OBJECT_STRUCT (4) dobj_1116__PCTX_MODCTX; + struct MELT_STRING_STRUCT (11) dstr_1117__PCTX_MODCTX; struct MELT_ROUTINE_STRUCT (5) - drout_1116__PATTERNEXPAND_PAIRLIST_AS_TUPLE; - struct MELT_CLOSURE_STRUCT (0) dclo_1117__PATTERNEXPAND_PAIRLIST_AS_TUPLE; - struct MELT_OBJECT_STRUCT (3) dsym_1118__PAIRLIST_TO_MULTIPLE; - struct MELT_STRING_STRUCT (20) dstr_1119__PAIRLIST_TO_MULT; - struct MELT_ROUTINE_STRUCT (1) drout_1120__LAMBDA_; - struct MELT_ROUTINE_STRUCT (15) drout_1121__PATMACEXPAND_FOR_MATCHER; - struct MELT_CLOSURE_STRUCT (0) dclo_1122__PATMACEXPAND_FOR_MATCHER; - struct MELT_OBJECT_STRUCT (3) dsym_1123__CLASS_ANY_MATCHER; - struct MELT_STRING_STRUCT (17) dstr_1124__CLASS_ANY_MATCHE; + drout_1118__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + struct MELT_CLOSURE_STRUCT (0) dclo_1119__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + struct MELT_OBJECT_STRUCT (3) dsym_1120__PAIRLIST_TO_MULTIPLE; + struct MELT_STRING_STRUCT (20) dstr_1121__PAIRLIST_TO_MULT; + struct MELT_ROUTINE_STRUCT (1) drout_1122__LAMBDA_; + struct MELT_ROUTINE_STRUCT (15) drout_1123__PATMACEXPAND_FOR_MATCHER; + struct MELT_CLOSURE_STRUCT (0) dclo_1124__PATMACEXPAND_FOR_MATCHER; struct MELT_OBJECT_STRUCT (3) dsym_1125__CLASS_REFERENCE; struct MELT_STRING_STRUCT (15) dstr_1126__CLASS_REFERENCE; struct MELT_OBJECT_STRUCT (3) dsym_1127__MULTIPLE_MAP; @@ -6787,7 +6787,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, (void *) iniframp__); (void) meltpredefinited; /* avoid warning if non-used. */ melt_assertmsg ("check module initial frame", - iniframp__->mcfr_nbvar == /*minihash */ -2174); + iniframp__->mcfr_nbvar == /*minihash */ -1034); cdat = (struct cdata_st *) meltgc_allocate (sizeof (*cdat), 0); melt_prohibit_garbcoll = TRUE; /*initial routine predef */ @@ -6910,7 +6910,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_7.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_7.obj_num = 0; - cdat->dobj_7.obj_hash = 612324937; + cdat->dobj_7.obj_hash = 376244908; cdat->dobj_7.obj_len = 2; /*inimult dtup_8__IS_RECURSIVELY_CONSTRUCTIBLE */ @@ -6936,7 +6936,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_SELECTOR__V7*/ meltfptr[6]); - cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_hash = 873998467; + cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_hash = 142291482; cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_len = 4; @@ -7038,7 +7038,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_15__CLASS_SOURCE_GENERATOR_DEVICE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_15__CLASS_SOURCE_GENERATOR_DEVICE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_15__CLASS_SOURCE_GENERATOR_DEVICE.obj_hash = 49043128; + cdat->dobj_15__CLASS_SOURCE_GENERATOR_DEVICE.obj_hash = 296787860; cdat->dobj_15__CLASS_SOURCE_GENERATOR_DEVICE.obj_len = 8; @@ -7118,7 +7118,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_21__SRCGEN_DEFIN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_21__SRCGEN_DEFIN.obj_num = 2; - cdat->dobj_21__SRCGEN_DEFIN.obj_hash = 874795420; + cdat->dobj_21__SRCGEN_DEFIN.obj_hash = 925326999; cdat->dobj_21__SRCGEN_DEFIN.obj_len = 4; @@ -7184,7 +7184,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_25__SRCGEN_REPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_25__SRCGEN_REPR.obj_num = 3; - cdat->dobj_25__SRCGEN_REPR.obj_hash = 180387236; + cdat->dobj_25__SRCGEN_REPR.obj_hash = 193847907; cdat->dobj_25__SRCGEN_REPR.obj_len = 4; @@ -7250,7 +7250,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_hash = 193847907; + cdat->dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_hash = 459722678; cdat->dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_len = 8; @@ -7331,7 +7331,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_35__SLAZYMACRO_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_35__SLAZYMACRO_FUN.obj_num = 2; - cdat->dobj_35__SLAZYMACRO_FUN.obj_hash = 718427559; + cdat->dobj_35__SLAZYMACRO_FUN.obj_hash = 537210709; cdat->dobj_35__SLAZYMACRO_FUN.obj_len = 4; @@ -7400,7 +7400,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_39__SLAZYMACRO_OPER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_39__SLAZYMACRO_OPER.obj_num = 3; - cdat->dobj_39__SLAZYMACRO_OPER.obj_hash = 236693091; + cdat->dobj_39__SLAZYMACRO_OPER.obj_hash = 4322264; cdat->dobj_39__SLAZYMACRO_OPER.obj_len = 4; @@ -7469,7 +7469,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_hash = 4322264; + cdat->dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_hash = 791837060; cdat->dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_len = 8; @@ -7548,7 +7548,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_49__SARGOP_ARGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_49__SARGOP_ARGS.obj_num = 2; - cdat->dobj_49__SARGOP_ARGS.obj_hash = 444324371; + cdat->dobj_49__SARGOP_ARGS.obj_hash = 199182248; cdat->dobj_49__SARGOP_ARGS.obj_len = 4; @@ -7615,7 +7615,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_53__CLASS_SOURCE_APPLY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_53__CLASS_SOURCE_APPLY.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_53__CLASS_SOURCE_APPLY.obj_hash = 199182248; + cdat->dobj_53__CLASS_SOURCE_APPLY.obj_hash = 1048871745; cdat->dobj_53__CLASS_SOURCE_APPLY.obj_len = 8; @@ -7692,7 +7692,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_59__SAPP_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_59__SAPP_FUN.obj_num = 3; - cdat->dobj_59__SAPP_FUN.obj_hash = 230792057; + cdat->dobj_59__SAPP_FUN.obj_hash = 239780846; cdat->dobj_59__SAPP_FUN.obj_len = 4; @@ -7758,7 +7758,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_63__CLASS_SOURCE_MSEND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_63__CLASS_SOURCE_MSEND.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_63__CLASS_SOURCE_MSEND.obj_hash = 239780846; + cdat->dobj_63__CLASS_SOURCE_MSEND.obj_hash = 628726542; cdat->dobj_63__CLASS_SOURCE_MSEND.obj_len = 8; @@ -7839,7 +7839,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_69__MSEND_SELSYMB.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_69__MSEND_SELSYMB.obj_num = 3; - cdat->dobj_69__MSEND_SELSYMB.obj_hash = 604247069; + cdat->dobj_69__MSEND_SELSYMB.obj_hash = 741814451; cdat->dobj_69__MSEND_SELSYMB.obj_len = 4; @@ -7906,7 +7906,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_73__MSEND_RECV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_73__MSEND_RECV.obj_num = 4; - cdat->dobj_73__MSEND_RECV.obj_hash = 485996753; + cdat->dobj_73__MSEND_RECV.obj_hash = 28620105; cdat->dobj_73__MSEND_RECV.obj_len = 4; @@ -7973,7 +7973,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_77__CLASS_SOURCE_PRIMITIVE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_77__CLASS_SOURCE_PRIMITIVE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_77__CLASS_SOURCE_PRIMITIVE.obj_hash = 28620105; + cdat->dobj_77__CLASS_SOURCE_PRIMITIVE.obj_hash = 432032996; cdat->dobj_77__CLASS_SOURCE_PRIMITIVE.obj_len = 8; @@ -8052,7 +8052,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_83__SPRIM_OPER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_83__SPRIM_OPER.obj_num = 3; - cdat->dobj_83__SPRIM_OPER.obj_hash = 103914219; + cdat->dobj_83__SPRIM_OPER.obj_hash = 801264731; cdat->dobj_83__SPRIM_OPER.obj_len = 4; @@ -8119,7 +8119,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_87__CLASS_SOURCE_CITERATION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_87__CLASS_SOURCE_CITERATION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_87__CLASS_SOURCE_CITERATION.obj_hash = 801264731; + cdat->dobj_87__CLASS_SOURCE_CITERATION.obj_hash = 733541896; cdat->dobj_87__CLASS_SOURCE_CITERATION.obj_len = 8; @@ -8198,7 +8198,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_93__SCITER_OPER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_93__SCITER_OPER.obj_num = 3; - cdat->dobj_93__SCITER_OPER.obj_hash = 930781047; + cdat->dobj_93__SCITER_OPER.obj_hash = 920286524; cdat->dobj_93__SCITER_OPER.obj_len = 4; @@ -8265,7 +8265,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_97__SCITER_VARBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_97__SCITER_VARBIND.obj_num = 4; - cdat->dobj_97__SCITER_VARBIND.obj_hash = 683653369; + cdat->dobj_97__SCITER_VARBIND.obj_hash = 644955489; cdat->dobj_97__SCITER_VARBIND.obj_len = 4; @@ -8333,7 +8333,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_101__SCITER_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_101__SCITER_BODY.obj_num = 5; - cdat->dobj_101__SCITER_BODY.obj_hash = 978454436; + cdat->dobj_101__SCITER_BODY.obj_hash = 642588646; cdat->dobj_101__SCITER_BODY.obj_len = 4; @@ -8401,7 +8401,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_105__CLASS_SOURCE_CMATCHEXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_105__CLASS_SOURCE_CMATCHEXPR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_105__CLASS_SOURCE_CMATCHEXPR.obj_hash = 642588646; + cdat->dobj_105__CLASS_SOURCE_CMATCHEXPR.obj_hash = 133846511; cdat->dobj_105__CLASS_SOURCE_CMATCHEXPR.obj_len = 8; @@ -8482,7 +8482,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_111__SCMATX_CMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_111__SCMATX_CMATCHER.obj_num = 3; - cdat->dobj_111__SCMATX_CMATCHER.obj_hash = 230917589; + cdat->dobj_111__SCMATX_CMATCHER.obj_hash = 671026399; cdat->dobj_111__SCMATX_CMATCHER.obj_len = 4; @@ -8551,7 +8551,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_115__CLASS_SOURCE_FUNMATCHEXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_115__CLASS_SOURCE_FUNMATCHEXPR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_115__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 671026399; + cdat->dobj_115__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 1004400148; cdat->dobj_115__CLASS_SOURCE_FUNMATCHEXPR.obj_len = 8; @@ -8632,7 +8632,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_121__SFMATX_FMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_121__SFMATX_FMATCHER.obj_num = 3; - cdat->dobj_121__SFMATX_FMATCHER.obj_hash = 403011986; + cdat->dobj_121__SFMATX_FMATCHER.obj_hash = 898967499; cdat->dobj_121__SFMATX_FMATCHER.obj_len = 4; @@ -8701,7 +8701,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_125__SFMATX_FMATBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_125__SFMATX_FMATBIND.obj_num = 4; - cdat->dobj_125__SFMATX_FMATBIND.obj_hash = 607947941; + cdat->dobj_125__SFMATX_FMATBIND.obj_hash = 1039100250; cdat->dobj_125__SFMATX_FMATBIND.obj_len = 4; @@ -8770,7 +8770,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_129__CLASS_SOURCE_TUPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_129__CLASS_SOURCE_TUPLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_129__CLASS_SOURCE_TUPLE.obj_hash = 1039100250; + cdat->dobj_129__CLASS_SOURCE_TUPLE.obj_hash = 850781225; cdat->dobj_129__CLASS_SOURCE_TUPLE.obj_len = 8; @@ -8851,7 +8851,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_135__CLASS_SOURCE_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_135__CLASS_SOURCE_LIST.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_135__CLASS_SOURCE_LIST.obj_hash = 850781225; + cdat->dobj_135__CLASS_SOURCE_LIST.obj_hash = 721233985; cdat->dobj_135__CLASS_SOURCE_LIST.obj_len = 8; @@ -8932,7 +8932,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_141__CLASS_SOURCE_PROGN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_141__CLASS_SOURCE_PROGN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_141__CLASS_SOURCE_PROGN.obj_hash = 721233985; + cdat->dobj_141__CLASS_SOURCE_PROGN.obj_hash = 430007770; cdat->dobj_141__CLASS_SOURCE_PROGN.obj_len = 8; @@ -9012,7 +9012,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_147__SPROGN_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_147__SPROGN_BODY.obj_num = 2; - cdat->dobj_147__SPROGN_BODY.obj_hash = 814240618; + cdat->dobj_147__SPROGN_BODY.obj_hash = 855187088; cdat->dobj_147__SPROGN_BODY.obj_len = 4; @@ -9080,7 +9080,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_151__CLASS_SOURCE_RETURN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_151__CLASS_SOURCE_RETURN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_151__CLASS_SOURCE_RETURN.obj_hash = 855187088; + cdat->dobj_151__CLASS_SOURCE_RETURN.obj_hash = 340232711; cdat->dobj_151__CLASS_SOURCE_RETURN.obj_len = 8; @@ -9161,7 +9161,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_157__CLASS_SOURCE_SETQ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_157__CLASS_SOURCE_SETQ.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_157__CLASS_SOURCE_SETQ.obj_hash = 340232711; + cdat->dobj_157__CLASS_SOURCE_SETQ.obj_hash = 992051817; cdat->dobj_157__CLASS_SOURCE_SETQ.obj_len = 8; @@ -9239,7 +9239,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_163__SSTQ_VAR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_163__SSTQ_VAR.obj_num = 2; - cdat->dobj_163__SSTQ_VAR.obj_hash = 358397837; + cdat->dobj_163__SSTQ_VAR.obj_hash = 107339879; cdat->dobj_163__SSTQ_VAR.obj_len = 4; @@ -9303,7 +9303,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_167__SSTQ_EXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_167__SSTQ_EXPR.obj_num = 3; - cdat->dobj_167__SSTQ_EXPR.obj_hash = 280586215; + cdat->dobj_167__SSTQ_EXPR.obj_hash = 39557258; cdat->dobj_167__SSTQ_EXPR.obj_len = 4; @@ -9370,7 +9370,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_171__CLASS_SOURCE_COMMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_171__CLASS_SOURCE_COMMENT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_171__CLASS_SOURCE_COMMENT.obj_hash = 39557258; + cdat->dobj_171__CLASS_SOURCE_COMMENT.obj_hash = 879440799; cdat->dobj_171__CLASS_SOURCE_COMMENT.obj_len = 8; @@ -9449,7 +9449,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_177__SCOMM_STR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_177__SCOMM_STR.obj_num = 2; - cdat->dobj_177__SCOMM_STR.obj_hash = 847023918; + cdat->dobj_177__SCOMM_STR.obj_hash = 896059834; cdat->dobj_177__SCOMM_STR.obj_len = 4; @@ -9516,7 +9516,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_181__CLASS_SOURCE_CHEADER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_181__CLASS_SOURCE_CHEADER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_181__CLASS_SOURCE_CHEADER.obj_hash = 896059834; + cdat->dobj_181__CLASS_SOURCE_CHEADER.obj_hash = 698445721; cdat->dobj_181__CLASS_SOURCE_CHEADER.obj_len = 8; @@ -9597,7 +9597,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_187__SCHEADER_CODESTRING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_187__SCHEADER_CODESTRING.obj_num = 2; - cdat->dobj_187__SCHEADER_CODESTRING.obj_hash = 895491867; + cdat->dobj_187__SCHEADER_CODESTRING.obj_hash = 90822062; cdat->dobj_187__SCHEADER_CODESTRING.obj_len = 4; @@ -9669,7 +9669,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_191__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.obj_num = MELTOBMAG_OBJECT; cdat->dobj_191__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.obj_hash = - 90822062; + 666052255; cdat->dobj_191__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.obj_len = 8; @@ -9750,7 +9750,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_197__SUSEPACKAGE_PKGTUPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_197__SUSEPACKAGE_PKGTUPLE.obj_num = 2; - cdat->dobj_197__SUSEPACKAGE_PKGTUPLE.obj_hash = 988310303; + cdat->dobj_197__SUSEPACKAGE_PKGTUPLE.obj_hash = 786175678; cdat->dobj_197__SUSEPACKAGE_PKGTUPLE.obj_len = 4; @@ -9819,7 +9819,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_201__CLASS_SOURCE_QUOTE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_201__CLASS_SOURCE_QUOTE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_201__CLASS_SOURCE_QUOTE.obj_hash = 786175678; + cdat->dobj_201__CLASS_SOURCE_QUOTE.obj_hash = 199587067; cdat->dobj_201__CLASS_SOURCE_QUOTE.obj_len = 8; @@ -9896,7 +9896,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_207__SQUOTED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_207__SQUOTED.obj_num = 2; - cdat->dobj_207__SQUOTED.obj_hash = 756603586; + cdat->dobj_207__SQUOTED.obj_hash = 329181665; cdat->dobj_207__SQUOTED.obj_len = 4; @@ -9962,7 +9962,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_211__CLASS_SOURCE_EXPORTCOMMON.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_211__CLASS_SOURCE_EXPORTCOMMON.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_211__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 329181665; + cdat->dobj_211__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 384499419; cdat->dobj_211__CLASS_SOURCE_EXPORTCOMMON.obj_len = 8; @@ -10043,7 +10043,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_217__SEXPORT_NAMES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_217__SEXPORT_NAMES.obj_num = 2; - cdat->dobj_217__SEXPORT_NAMES.obj_hash = 574194245; + cdat->dobj_217__SEXPORT_NAMES.obj_hash = 198577971; cdat->dobj_217__SEXPORT_NAMES.obj_len = 4; @@ -10112,7 +10112,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_221__CLASS_SOURCE_EXPORT_VALUES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_221__CLASS_SOURCE_EXPORT_VALUES.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_221__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 198577971; + cdat->dobj_221__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 1025201640; cdat->dobj_221__CLASS_SOURCE_EXPORT_VALUES.obj_len = 8; @@ -10193,7 +10193,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_227__CLASS_SOURCE_EXPORT_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_227__CLASS_SOURCE_EXPORT_CLASS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_227__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 1025201640; + cdat->dobj_227__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 152720230; cdat->dobj_227__CLASS_SOURCE_EXPORT_CLASS.obj_len = 8; @@ -10274,7 +10274,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_233__CLASS_SOURCE_EXPORT_MACRO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_233__CLASS_SOURCE_EXPORT_MACRO.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_233__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 152720230; + cdat->dobj_233__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 930712722; cdat->dobj_233__CLASS_SOURCE_EXPORT_MACRO.obj_len = 8; @@ -10355,7 +10355,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_239__SEXPMAC_MNAME.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_239__SEXPMAC_MNAME.obj_num = 2; - cdat->dobj_239__SEXPMAC_MNAME.obj_hash = 684000235; + cdat->dobj_239__SEXPMAC_MNAME.obj_hash = 803464390; cdat->dobj_239__SEXPMAC_MNAME.obj_len = 4; @@ -10424,7 +10424,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_243__SEXPMAC_MVAL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_243__SEXPMAC_MVAL.obj_num = 3; - cdat->dobj_243__SEXPMAC_MVAL.obj_hash = 522584430; + cdat->dobj_243__SEXPMAC_MVAL.obj_hash = 149617405; cdat->dobj_243__SEXPMAC_MVAL.obj_len = 4; @@ -10492,7 +10492,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_247__SEXPMAC_DOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_247__SEXPMAC_DOC.obj_num = 4; - cdat->dobj_247__SEXPMAC_DOC.obj_hash = 144692162; + cdat->dobj_247__SEXPMAC_DOC.obj_hash = 650550465; cdat->dobj_247__SEXPMAC_DOC.obj_len = 4; @@ -10560,7 +10560,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_251__CLASS_SOURCE_EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_251__CLASS_SOURCE_EXPORT_PATMACRO.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_251__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 650550465; + cdat->dobj_251__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 411526040; cdat->dobj_251__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 8; @@ -10641,7 +10641,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_257__SEXPPAT_PVAL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_257__SEXPPAT_PVAL.obj_num = 5; - cdat->dobj_257__SEXPPAT_PVAL.obj_hash = 937739367; + cdat->dobj_257__SEXPPAT_PVAL.obj_hash = 401488759; cdat->dobj_257__SEXPPAT_PVAL.obj_len = 4; @@ -10710,7 +10710,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_261__CLASS_SOURCE_EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_261__CLASS_SOURCE_EXPORT_SYNONYM.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_261__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 401488759; + cdat->dobj_261__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 7743372; cdat->dobj_261__CLASS_SOURCE_EXPORT_SYNONYM.obj_len = 8; @@ -10791,7 +10791,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_267__SEXPSYN_NEWNAME.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_267__SEXPSYN_NEWNAME.obj_num = 2; - cdat->dobj_267__SEXPSYN_NEWNAME.obj_hash = 720767860; + cdat->dobj_267__SEXPSYN_NEWNAME.obj_hash = 280560797; cdat->dobj_267__SEXPSYN_NEWNAME.obj_len = 4; @@ -10860,7 +10860,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_271__SEXPSYN_OLDNAME.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_271__SEXPSYN_OLDNAME.obj_num = 3; - cdat->dobj_271__SEXPSYN_OLDNAME.obj_hash = 368476447; + cdat->dobj_271__SEXPSYN_OLDNAME.obj_hash = 852928606; cdat->dobj_271__SEXPSYN_OLDNAME.obj_len = 4; @@ -10928,7 +10928,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_275__SEXPSYN_DOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_275__SEXPSYN_DOC.obj_num = 4; - cdat->dobj_275__SEXPSYN_DOC.obj_hash = 14625764; + cdat->dobj_275__SEXPSYN_DOC.obj_hash = 743929727; cdat->dobj_275__SEXPSYN_DOC.obj_len = 4; @@ -10996,7 +10996,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_279__CLASS_SOURCE_DEFINITION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_279__CLASS_SOURCE_DEFINITION.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_279__CLASS_SOURCE_DEFINITION.obj_hash = 743929727; + cdat->dobj_279__CLASS_SOURCE_DEFINITION.obj_hash = 474869856; cdat->dobj_279__CLASS_SOURCE_DEFINITION.obj_len = 8; @@ -11075,7 +11075,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_285__SDEF_NAME.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_285__SDEF_NAME.obj_num = 2; - cdat->dobj_285__SDEF_NAME.obj_hash = 50074280; + cdat->dobj_285__SDEF_NAME.obj_hash = 779119154; cdat->dobj_285__SDEF_NAME.obj_len = 4; @@ -11139,7 +11139,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_289__SDEF_DOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_289__SDEF_DOC.obj_num = 3; - cdat->dobj_289__SDEF_DOC.obj_hash = 97398868; + cdat->dobj_289__SDEF_DOC.obj_hash = 382515675; cdat->dobj_289__SDEF_DOC.obj_len = 4; @@ -11205,7 +11205,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_293__CLASS_SOURCE_DEFINE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_293__CLASS_SOURCE_DEFINE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_293__CLASS_SOURCE_DEFINE.obj_hash = 382515675; + cdat->dobj_293__CLASS_SOURCE_DEFINE.obj_hash = 111547049; cdat->dobj_293__CLASS_SOURCE_DEFINE.obj_len = 8; @@ -11286,7 +11286,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_299__SDEFINE_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_299__SDEFINE_BODY.obj_num = 4; - cdat->dobj_299__SDEFINE_BODY.obj_hash = 143092574; + cdat->dobj_299__SDEFINE_BODY.obj_hash = 669452002; cdat->dobj_299__SDEFINE_BODY.obj_len = 4; @@ -11355,7 +11355,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_303__CLASS_SOURCE_DEFINITION_FORMAL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_303__CLASS_SOURCE_DEFINITION_FORMAL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_303__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 669452002; + cdat->dobj_303__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 173104783; cdat->dobj_303__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 8; @@ -11436,7 +11436,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_309__SFORMAL_ARGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_309__SFORMAL_ARGS.obj_num = 4; - cdat->dobj_309__SFORMAL_ARGS.obj_hash = 215297251; + cdat->dobj_309__SFORMAL_ARGS.obj_hash = 865401146; cdat->dobj_309__SFORMAL_ARGS.obj_len = 4; @@ -11505,7 +11505,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_313__CLASS_SOURCE_DEFUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_313__CLASS_SOURCE_DEFUN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_313__CLASS_SOURCE_DEFUN.obj_hash = 865401146; + cdat->dobj_313__CLASS_SOURCE_DEFUN.obj_hash = 839497740; cdat->dobj_313__CLASS_SOURCE_DEFUN.obj_len = 8; @@ -11584,7 +11584,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_319__SFUN_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_319__SFUN_BODY.obj_num = 5; - cdat->dobj_319__SFUN_BODY.obj_hash = 303332405; + cdat->dobj_319__SFUN_BODY.obj_hash = 20215251; cdat->dobj_319__SFUN_BODY.obj_len = 4; @@ -11651,7 +11651,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_323__CLASS_SOURCE_DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_323__CLASS_SOURCE_DEFPRIMITIVE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_323__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 20215251; + cdat->dobj_323__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 570206778; cdat->dobj_323__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 8; @@ -11730,7 +11730,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_329__SPRIM_TYPE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_329__SPRIM_TYPE.obj_num = 5; - cdat->dobj_329__SPRIM_TYPE.obj_hash = 494388258; + cdat->dobj_329__SPRIM_TYPE.obj_hash = 179931564; cdat->dobj_329__SPRIM_TYPE.obj_len = 4; @@ -11797,7 +11797,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_333__SPRIM_EXPANSION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_333__SPRIM_EXPANSION.obj_num = 6; - cdat->dobj_333__SPRIM_EXPANSION.obj_hash = 342690568; + cdat->dobj_333__SPRIM_EXPANSION.obj_hash = 766120647; cdat->dobj_333__SPRIM_EXPANSION.obj_len = 4; @@ -11866,7 +11866,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_337__SPRIM_EXPLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_337__SPRIM_EXPLOC.obj_num = 7; - cdat->dobj_337__SPRIM_EXPLOC.obj_hash = 54444106; + cdat->dobj_337__SPRIM_EXPLOC.obj_hash = 907568297; cdat->dobj_337__SPRIM_EXPLOC.obj_len = 4; @@ -11935,7 +11935,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_341__CLASS_SOURCE_DEFCITERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_341__CLASS_SOURCE_DEFCITERATOR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_341__CLASS_SOURCE_DEFCITERATOR.obj_hash = 907568297; + cdat->dobj_341__CLASS_SOURCE_DEFCITERATOR.obj_hash = 532886194; cdat->dobj_341__CLASS_SOURCE_DEFCITERATOR.obj_len = 8; @@ -12016,7 +12016,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_347__SCITERDEF_CITERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_347__SCITERDEF_CITERATOR.obj_num = 5; - cdat->dobj_347__SCITERDEF_CITERATOR.obj_hash = 379962106; + cdat->dobj_347__SCITERDEF_CITERATOR.obj_hash = 808914183; cdat->dobj_347__SCITERDEF_CITERATOR.obj_len = 4; @@ -12085,7 +12085,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_351__SCITERDEF_BEFORELOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_351__SCITERDEF_BEFORELOC.obj_num = 6; - cdat->dobj_351__SCITERDEF_BEFORELOC.obj_hash = 787124835; + cdat->dobj_351__SCITERDEF_BEFORELOC.obj_hash = 290924710; cdat->dobj_351__SCITERDEF_BEFORELOC.obj_len = 4; @@ -12154,7 +12154,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_355__SCITERDEF_AFTERLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_355__SCITERDEF_AFTERLOC.obj_num = 7; - cdat->dobj_355__SCITERDEF_AFTERLOC.obj_hash = 305632878; + cdat->dobj_355__SCITERDEF_AFTERLOC.obj_hash = 573542898; cdat->dobj_355__SCITERDEF_AFTERLOC.obj_len = 4; @@ -12223,7 +12223,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_359__CLASS_SOURCE_DEFCMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_359__CLASS_SOURCE_DEFCMATCHER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_359__CLASS_SOURCE_DEFCMATCHER.obj_hash = 573542898; + cdat->dobj_359__CLASS_SOURCE_DEFCMATCHER.obj_hash = 565496603; cdat->dobj_359__CLASS_SOURCE_DEFCMATCHER.obj_len = 8; @@ -12304,7 +12304,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_365__SCMATDEF_CMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_365__SCMATDEF_CMATCHER.obj_num = 5; - cdat->dobj_365__SCMATDEF_CMATCHER.obj_hash = 197184091; + cdat->dobj_365__SCMATDEF_CMATCHER.obj_hash = 940855249; cdat->dobj_365__SCMATDEF_CMATCHER.obj_len = 4; @@ -12373,7 +12373,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_369__SCMATDEF_TESTLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_369__SCMATDEF_TESTLOC.obj_num = 6; - cdat->dobj_369__SCMATDEF_TESTLOC.obj_hash = 930769119; + cdat->dobj_369__SCMATDEF_TESTLOC.obj_hash = 254277301; cdat->dobj_369__SCMATDEF_TESTLOC.obj_len = 4; @@ -12442,7 +12442,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_373__SCMATDEF_FILLLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_373__SCMATDEF_FILLLOC.obj_num = 7; - cdat->dobj_373__SCMATDEF_FILLLOC.obj_hash = 391793228; + cdat->dobj_373__SCMATDEF_FILLLOC.obj_hash = 519903674; cdat->dobj_373__SCMATDEF_FILLLOC.obj_len = 4; @@ -12511,7 +12511,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_377__SCMATDEF_OPERLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_377__SCMATDEF_OPERLOC.obj_num = 8; - cdat->dobj_377__SCMATDEF_OPERLOC.obj_hash = 634896259; + cdat->dobj_377__SCMATDEF_OPERLOC.obj_hash = 727072914; cdat->dobj_377__SCMATDEF_OPERLOC.obj_len = 4; @@ -12580,7 +12580,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_381__CLASS_SOURCE_DEFUNMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_381__CLASS_SOURCE_DEFUNMATCHER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_381__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 727072914; + cdat->dobj_381__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 455714314; cdat->dobj_381__CLASS_SOURCE_DEFUNMATCHER.obj_len = 8; @@ -12661,7 +12661,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_387__SFUMATDEF_INS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_387__SFUMATDEF_INS.obj_num = 5; - cdat->dobj_387__SFUMATDEF_INS.obj_hash = 470864717; + cdat->dobj_387__SFUMATDEF_INS.obj_hash = 175105490; cdat->dobj_387__SFUMATDEF_INS.obj_len = 4; @@ -12730,7 +12730,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_391__SFUMATDEF_OUTS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_391__SFUMATDEF_OUTS.obj_num = 6; - cdat->dobj_391__SFUMATDEF_OUTS.obj_hash = 34322599; + cdat->dobj_391__SFUMATDEF_OUTS.obj_hash = 222486649; cdat->dobj_391__SFUMATDEF_OUTS.obj_len = 4; @@ -12799,7 +12799,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_395__SFUMATDEF_MATCHF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_395__SFUMATDEF_MATCHF.obj_num = 7; - cdat->dobj_395__SFUMATDEF_MATCHF.obj_hash = 672351812; + cdat->dobj_395__SFUMATDEF_MATCHF.obj_hash = 271338440; cdat->dobj_395__SFUMATDEF_MATCHF.obj_len = 4; @@ -12868,7 +12868,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_399__SFUMATDEF_APPLYF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_399__SFUMATDEF_APPLYF.obj_num = 8; - cdat->dobj_399__SFUMATDEF_APPLYF.obj_hash = 849288382; + cdat->dobj_399__SFUMATDEF_APPLYF.obj_hash = 717397063; cdat->dobj_399__SFUMATDEF_APPLYF.obj_len = 4; @@ -12937,7 +12937,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_403__SFUMATDEF_DATA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_403__SFUMATDEF_DATA.obj_num = 9; - cdat->dobj_403__SFUMATDEF_DATA.obj_hash = 936375817; + cdat->dobj_403__SFUMATDEF_DATA.obj_hash = 912167057; cdat->dobj_403__SFUMATDEF_DATA.obj_len = 4; @@ -13006,7 +13006,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_407__CLASS_SOURCE_DEFOBJCOMMON.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_407__CLASS_SOURCE_DEFOBJCOMMON.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_407__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 912167057; + cdat->dobj_407__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 247354383; cdat->dobj_407__CLASS_SOURCE_DEFOBJCOMMON.obj_len = 8; @@ -13086,7 +13086,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_413__SOBJ_PREDEF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_413__SOBJ_PREDEF.obj_num = 4; - cdat->dobj_413__SOBJ_PREDEF.obj_hash = 502324042; + cdat->dobj_413__SOBJ_PREDEF.obj_hash = 92167478; cdat->dobj_413__SOBJ_PREDEF.obj_len = 4; @@ -13154,7 +13154,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_417__CLASS_SOURCE_DEFCLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_417__CLASS_SOURCE_DEFCLASS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_417__CLASS_SOURCE_DEFCLASS.obj_hash = 92167478; + cdat->dobj_417__CLASS_SOURCE_DEFCLASS.obj_hash = 925239938; cdat->dobj_417__CLASS_SOURCE_DEFCLASS.obj_len = 8; @@ -13235,7 +13235,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_423__SCLASS_CLABIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_423__SCLASS_CLABIND.obj_num = 5; - cdat->dobj_423__SCLASS_CLABIND.obj_hash = 990127326; + cdat->dobj_423__SCLASS_CLABIND.obj_hash = 23231316; cdat->dobj_423__SCLASS_CLABIND.obj_len = 4; @@ -13304,7 +13304,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_427__SCLASS_SUPERBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_427__SCLASS_SUPERBIND.obj_num = 6; - cdat->dobj_427__SCLASS_SUPERBIND.obj_hash = 399011519; + cdat->dobj_427__SCLASS_SUPERBIND.obj_hash = 543805263; cdat->dobj_427__SCLASS_SUPERBIND.obj_len = 4; @@ -13373,7 +13373,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_431__SCLASS_FLDBINDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_431__SCLASS_FLDBINDS.obj_num = 7; - cdat->dobj_431__SCLASS_FLDBINDS.obj_hash = 1014938287; + cdat->dobj_431__SCLASS_FLDBINDS.obj_hash = 642036068; cdat->dobj_431__SCLASS_FLDBINDS.obj_len = 4; @@ -13442,7 +13442,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_435__CLASS_SOURCE_DEFINSTANCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_435__CLASS_SOURCE_DEFINSTANCE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_435__CLASS_SOURCE_DEFINSTANCE.obj_hash = 642036068; + cdat->dobj_435__CLASS_SOURCE_DEFINSTANCE.obj_hash = 716179317; cdat->dobj_435__CLASS_SOURCE_DEFINSTANCE.obj_len = 8; @@ -13522,7 +13522,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_441__SINST_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_441__SINST_CLASS.obj_num = 5; - cdat->dobj_441__SINST_CLASS.obj_hash = 740453818; + cdat->dobj_441__SINST_CLASS.obj_hash = 1033470403; cdat->dobj_441__SINST_CLASS.obj_len = 4; @@ -13590,7 +13590,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_445__SINST_CLABIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_445__SINST_CLABIND.obj_num = 6; - cdat->dobj_445__SINST_CLABIND.obj_hash = 76105179; + cdat->dobj_445__SINST_CLABIND.obj_hash = 540119382; cdat->dobj_445__SINST_CLABIND.obj_len = 4; @@ -13659,7 +13659,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_449__SINST_OBJNUM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_449__SINST_OBJNUM.obj_num = 7; - cdat->dobj_449__SINST_OBJNUM.obj_hash = 76586278; + cdat->dobj_449__SINST_OBJNUM.obj_hash = 129323304; cdat->dobj_449__SINST_OBJNUM.obj_len = 4; @@ -13728,7 +13728,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_453__SINST_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_453__SINST_FIELDS.obj_num = 8; - cdat->dobj_453__SINST_FIELDS.obj_hash = 449315673; + cdat->dobj_453__SINST_FIELDS.obj_hash = 883612870; cdat->dobj_453__SINST_FIELDS.obj_len = 4; @@ -13797,7 +13797,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_457__CLASS_SOURCE_DEFSELECTOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_457__CLASS_SOURCE_DEFSELECTOR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_457__CLASS_SOURCE_DEFSELECTOR.obj_hash = 883612870; + cdat->dobj_457__CLASS_SOURCE_DEFSELECTOR.obj_hash = 877165787; cdat->dobj_457__CLASS_SOURCE_DEFSELECTOR.obj_len = 8; @@ -13878,7 +13878,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_463__SDEFSEL_FORMALS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_463__SDEFSEL_FORMALS.obj_num = 9; - cdat->dobj_463__SDEFSEL_FORMALS.obj_hash = 946019496; + cdat->dobj_463__SDEFSEL_FORMALS.obj_hash = 390331005; cdat->dobj_463__SDEFSEL_FORMALS.obj_len = 4; @@ -13947,7 +13947,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_467__CLASS_SOURCE_FIELDASSIGN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_467__CLASS_SOURCE_FIELDASSIGN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_467__CLASS_SOURCE_FIELDASSIGN.obj_hash = 390331005; + cdat->dobj_467__CLASS_SOURCE_FIELDASSIGN.obj_hash = 775191454; cdat->dobj_467__CLASS_SOURCE_FIELDASSIGN.obj_len = 8; @@ -14026,7 +14026,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_473__SFLA_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_473__SFLA_FIELD.obj_num = 2; - cdat->dobj_473__SFLA_FIELD.obj_hash = 67452529; + cdat->dobj_473__SFLA_FIELD.obj_hash = 297242168; cdat->dobj_473__SFLA_FIELD.obj_len = 4; @@ -14091,7 +14091,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_477__SFLA_EXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_477__SFLA_EXPR.obj_num = 3; - cdat->dobj_477__SFLA_EXPR.obj_hash = 557962260; + cdat->dobj_477__SFLA_EXPR.obj_hash = 905934205; cdat->dobj_477__SFLA_EXPR.obj_len = 4; @@ -14158,7 +14158,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_481__CLASS_SOURCE_INSTANCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_481__CLASS_SOURCE_INSTANCE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_481__CLASS_SOURCE_INSTANCE.obj_hash = 905934205; + cdat->dobj_481__CLASS_SOURCE_INSTANCE.obj_hash = 717385459; cdat->dobj_481__CLASS_SOURCE_INSTANCE.obj_len = 8; @@ -14238,7 +14238,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_487__SMINS_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_487__SMINS_CLASS.obj_num = 2; - cdat->dobj_487__SMINS_CLASS.obj_hash = 573091896; + cdat->dobj_487__SMINS_CLASS.obj_hash = 965983672; cdat->dobj_487__SMINS_CLASS.obj_len = 4; @@ -14306,7 +14306,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_491__SMINS_CLABIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_491__SMINS_CLABIND.obj_num = 3; - cdat->dobj_491__SMINS_CLABIND.obj_hash = 805672081; + cdat->dobj_491__SMINS_CLABIND.obj_hash = 1001195765; cdat->dobj_491__SMINS_CLABIND.obj_len = 4; @@ -14375,7 +14375,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_495__SMINS_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_495__SMINS_FIELDS.obj_num = 4; - cdat->dobj_495__SMINS_FIELDS.obj_hash = 850075141; + cdat->dobj_495__SMINS_FIELDS.obj_hash = 1053546639; cdat->dobj_495__SMINS_FIELDS.obj_len = 4; @@ -14444,7 +14444,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_499__CLASS_SOURCE_GET_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_499__CLASS_SOURCE_GET_FIELD.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_499__CLASS_SOURCE_GET_FIELD.obj_hash = 1053546639; + cdat->dobj_499__CLASS_SOURCE_GET_FIELD.obj_hash = 829490976; cdat->dobj_499__CLASS_SOURCE_GET_FIELD.obj_len = 8; @@ -14523,7 +14523,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_505__SUGET_OBJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_505__SUGET_OBJ.obj_num = 2; - cdat->dobj_505__SUGET_OBJ.obj_hash = 103524164; + cdat->dobj_505__SUGET_OBJ.obj_hash = 925136282; cdat->dobj_505__SUGET_OBJ.obj_len = 4; @@ -14589,7 +14589,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_509__SUGET_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_509__SUGET_FIELD.obj_num = 3; - cdat->dobj_509__SUGET_FIELD.obj_hash = 163555899; + cdat->dobj_509__SUGET_FIELD.obj_hash = 27009049; cdat->dobj_509__SUGET_FIELD.obj_len = 4; @@ -14657,7 +14657,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 27009049; + cdat->dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 60447189; cdat->dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_len = 8; @@ -14738,7 +14738,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_519__CLASS_SOURCE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_519__CLASS_SOURCE_PUT_FIELDS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_519__CLASS_SOURCE_PUT_FIELDS.obj_hash = 60447189; + cdat->dobj_519__CLASS_SOURCE_PUT_FIELDS.obj_hash = 572859839; cdat->dobj_519__CLASS_SOURCE_PUT_FIELDS.obj_len = 8; @@ -14817,7 +14817,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_525__SUPUT_OBJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_525__SUPUT_OBJ.obj_num = 2; - cdat->dobj_525__SUPUT_OBJ.obj_hash = 718528458; + cdat->dobj_525__SUPUT_OBJ.obj_hash = 989097337; cdat->dobj_525__SUPUT_OBJ.obj_len = 4; @@ -14884,7 +14884,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_529__SUPUT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_529__SUPUT_FIELDS.obj_num = 3; - cdat->dobj_529__SUPUT_FIELDS.obj_hash = 653024069; + cdat->dobj_529__SUPUT_FIELDS.obj_hash = 388214304; cdat->dobj_529__SUPUT_FIELDS.obj_len = 4; @@ -14953,7 +14953,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 388214304; + cdat->dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 641959604; cdat->dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_len = 8; @@ -15034,7 +15034,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_539__CLASS_SOURCE_IF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_539__CLASS_SOURCE_IF.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_539__CLASS_SOURCE_IF.obj_hash = 641959604; + cdat->dobj_539__CLASS_SOURCE_IF.obj_hash = 754982968; cdat->dobj_539__CLASS_SOURCE_IF.obj_len = 8; @@ -15112,7 +15112,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_545__SIF_TEST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_545__SIF_TEST.obj_num = 2; - cdat->dobj_545__SIF_TEST.obj_hash = 99128730; + cdat->dobj_545__SIF_TEST.obj_hash = 752341393; cdat->dobj_545__SIF_TEST.obj_len = 4; @@ -15175,7 +15175,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_549__SIF_THEN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_549__SIF_THEN.obj_num = 3; - cdat->dobj_549__SIF_THEN.obj_hash = 1026667645; + cdat->dobj_549__SIF_THEN.obj_hash = 890060649; cdat->dobj_549__SIF_THEN.obj_len = 4; @@ -15241,7 +15241,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_553__CLASS_SOURCE_IFELSE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_553__CLASS_SOURCE_IFELSE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_553__CLASS_SOURCE_IFELSE.obj_hash = 890060649; + cdat->dobj_553__CLASS_SOURCE_IFELSE.obj_hash = 230594197; cdat->dobj_553__CLASS_SOURCE_IFELSE.obj_len = 8; @@ -15319,7 +15319,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_559__SIF_ELSE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_559__SIF_ELSE.obj_num = 4; - cdat->dobj_559__SIF_ELSE.obj_hash = 663309937; + cdat->dobj_559__SIF_ELSE.obj_hash = 431372338; cdat->dobj_559__SIF_ELSE.obj_len = 4; @@ -15385,7 +15385,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_563__CLASS_SOURCE_OR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_563__CLASS_SOURCE_OR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_563__CLASS_SOURCE_OR.obj_hash = 431372338; + cdat->dobj_563__CLASS_SOURCE_OR.obj_hash = 329762670; cdat->dobj_563__CLASS_SOURCE_OR.obj_len = 8; @@ -15463,7 +15463,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_569__SOR_DISJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_569__SOR_DISJ.obj_num = 2; - cdat->dobj_569__SOR_DISJ.obj_hash = 864990501; + cdat->dobj_569__SOR_DISJ.obj_hash = 47238125; cdat->dobj_569__SOR_DISJ.obj_len = 4; @@ -15529,7 +15529,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_573__CLASS_SOURCE_CPPIF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_573__CLASS_SOURCE_CPPIF.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_573__CLASS_SOURCE_CPPIF.obj_hash = 47238125; + cdat->dobj_573__CLASS_SOURCE_CPPIF.obj_hash = 691471058; cdat->dobj_573__CLASS_SOURCE_CPPIF.obj_len = 8; @@ -15608,7 +15608,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_579__SIFP_COND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_579__SIFP_COND.obj_num = 2; - cdat->dobj_579__SIFP_COND.obj_hash = 335013257; + cdat->dobj_579__SIFP_COND.obj_hash = 957113648; cdat->dobj_579__SIFP_COND.obj_len = 4; @@ -15673,7 +15673,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_583__SIFP_THEN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_583__SIFP_THEN.obj_num = 3; - cdat->dobj_583__SIFP_THEN.obj_hash = 397635936; + cdat->dobj_583__SIFP_THEN.obj_hash = 988560882; cdat->dobj_583__SIFP_THEN.obj_len = 4; @@ -15738,7 +15738,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_587__SIFP_ELSE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_587__SIFP_ELSE.obj_num = 4; - cdat->dobj_587__SIFP_ELSE.obj_hash = 517160963; + cdat->dobj_587__SIFP_ELSE.obj_hash = 419700940; cdat->dobj_587__SIFP_ELSE.obj_len = 4; @@ -15805,7 +15805,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_591__CLASS_SOURCE_MATCH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_591__CLASS_SOURCE_MATCH.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_591__CLASS_SOURCE_MATCH.obj_hash = 419700940; + cdat->dobj_591__CLASS_SOURCE_MATCH.obj_hash = 599048554; cdat->dobj_591__CLASS_SOURCE_MATCH.obj_len = 8; @@ -15886,7 +15886,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_597__SMAT_MATCHEDX.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_597__SMAT_MATCHEDX.obj_num = 2; - cdat->dobj_597__SMAT_MATCHEDX.obj_hash = 929018972; + cdat->dobj_597__SMAT_MATCHEDX.obj_hash = 766004838; cdat->dobj_597__SMAT_MATCHEDX.obj_len = 4; @@ -15953,7 +15953,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_601__SMAT_CASES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_601__SMAT_CASES.obj_num = 3; - cdat->dobj_601__SMAT_CASES.obj_hash = 152182004; + cdat->dobj_601__SMAT_CASES.obj_hash = 314421588; cdat->dobj_601__SMAT_CASES.obj_len = 4; @@ -16020,7 +16020,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_605__CLASS_SOURCE_MATCH_CASE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_605__CLASS_SOURCE_MATCH_CASE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_605__CLASS_SOURCE_MATCH_CASE.obj_hash = 314421588; + cdat->dobj_605__CLASS_SOURCE_MATCH_CASE.obj_hash = 417978384; cdat->dobj_605__CLASS_SOURCE_MATCH_CASE.obj_len = 8; @@ -16099,7 +16099,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_611__SCAM_PATT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_611__SCAM_PATT.obj_num = 2; - cdat->dobj_611__SCAM_PATT.obj_hash = 693971034; + cdat->dobj_611__SCAM_PATT.obj_hash = 10518410; cdat->dobj_611__SCAM_PATT.obj_len = 4; @@ -16164,7 +16164,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_615__SCAM_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_615__SCAM_BODY.obj_num = 3; - cdat->dobj_615__SCAM_BODY.obj_hash = 789466879; + cdat->dobj_615__SCAM_BODY.obj_hash = 644792658; cdat->dobj_615__SCAM_BODY.obj_len = 4; @@ -16231,7 +16231,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_619__CLASS_SOURCE_LET_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_619__CLASS_SOURCE_LET_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_619__CLASS_SOURCE_LET_BINDING.obj_hash = 644792658; + cdat->dobj_619__CLASS_SOURCE_LET_BINDING.obj_hash = 965529183; cdat->dobj_619__CLASS_SOURCE_LET_BINDING.obj_len = 8; @@ -16310,7 +16310,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_625__SLETB_TYPE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_625__SLETB_TYPE.obj_num = 2; - cdat->dobj_625__SLETB_TYPE.obj_hash = 131902196; + cdat->dobj_625__SLETB_TYPE.obj_hash = 242067029; cdat->dobj_625__SLETB_TYPE.obj_len = 4; @@ -16377,7 +16377,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_629__SLETB_BINDER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_629__SLETB_BINDER.obj_num = 3; - cdat->dobj_629__SLETB_BINDER.obj_hash = 822233777; + cdat->dobj_629__SLETB_BINDER.obj_hash = 64839954; cdat->dobj_629__SLETB_BINDER.obj_len = 4; @@ -16444,7 +16444,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_633__SLETB_EXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_633__SLETB_EXPR.obj_num = 4; - cdat->dobj_633__SLETB_EXPR.obj_hash = 603173473; + cdat->dobj_633__SLETB_EXPR.obj_hash = 156282512; cdat->dobj_633__SLETB_EXPR.obj_len = 4; @@ -16511,7 +16511,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_637__CLASS_SOURCE_LETREC_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_637__CLASS_SOURCE_LETREC_BINDING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_637__CLASS_SOURCE_LETREC_BINDING.obj_hash = 156282512; + cdat->dobj_637__CLASS_SOURCE_LETREC_BINDING.obj_hash = 622667971; cdat->dobj_637__CLASS_SOURCE_LETREC_BINDING.obj_len = 8; @@ -16592,7 +16592,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_643__CLASS_SOURCE_LET.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_643__CLASS_SOURCE_LET.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_643__CLASS_SOURCE_LET.obj_hash = 622667971; + cdat->dobj_643__CLASS_SOURCE_LET.obj_hash = 592402726; cdat->dobj_643__CLASS_SOURCE_LET.obj_len = 8; @@ -16673,7 +16673,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_649__SLET_BINDINGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_649__SLET_BINDINGS.obj_num = 2; - cdat->dobj_649__SLET_BINDINGS.obj_hash = 1069454711; + cdat->dobj_649__SLET_BINDINGS.obj_hash = 804415170; cdat->dobj_649__SLET_BINDINGS.obj_len = 4; @@ -16740,7 +16740,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_653__SLET_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_653__SLET_BODY.obj_num = 3; - cdat->dobj_653__SLET_BODY.obj_hash = 13629087; + cdat->dobj_653__SLET_BODY.obj_hash = 379252179; cdat->dobj_653__SLET_BODY.obj_len = 4; @@ -16807,7 +16807,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_657__CLASS_SOURCE_LETREC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_657__CLASS_SOURCE_LETREC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_657__CLASS_SOURCE_LETREC.obj_hash = 379252179; + cdat->dobj_657__CLASS_SOURCE_LETREC.obj_hash = 452772766; cdat->dobj_657__CLASS_SOURCE_LETREC.obj_len = 8; @@ -16888,7 +16888,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_663__CLASS_SOURCE_LAMBDA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_663__CLASS_SOURCE_LAMBDA.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_663__CLASS_SOURCE_LAMBDA.obj_hash = 452772766; + cdat->dobj_663__CLASS_SOURCE_LAMBDA.obj_hash = 1059073517; cdat->dobj_663__CLASS_SOURCE_LAMBDA.obj_len = 8; @@ -16969,7 +16969,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_669__SLAM_ARGBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_669__SLAM_ARGBIND.obj_num = 2; - cdat->dobj_669__SLAM_ARGBIND.obj_hash = 771222022; + cdat->dobj_669__SLAM_ARGBIND.obj_hash = 68674264; cdat->dobj_669__SLAM_ARGBIND.obj_len = 4; @@ -17036,7 +17036,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_673__SLAM_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_673__SLAM_BODY.obj_num = 3; - cdat->dobj_673__SLAM_BODY.obj_hash = 666514012; + cdat->dobj_673__SLAM_BODY.obj_hash = 589924500; cdat->dobj_673__SLAM_BODY.obj_len = 4; @@ -17103,7 +17103,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_677__CLASS_SOURCE_IFVARIADIC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_677__CLASS_SOURCE_IFVARIADIC.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_677__CLASS_SOURCE_IFVARIADIC.obj_hash = 589924500; + cdat->dobj_677__CLASS_SOURCE_IFVARIADIC.obj_hash = 194780367; cdat->dobj_677__CLASS_SOURCE_IFVARIADIC.obj_len = 8; @@ -17184,7 +17184,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_683__SIFVARIADIC_ARGBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_683__SIFVARIADIC_ARGBIND.obj_num = 2; - cdat->dobj_683__SIFVARIADIC_ARGBIND.obj_hash = 818374395; + cdat->dobj_683__SIFVARIADIC_ARGBIND.obj_hash = 1036659413; cdat->dobj_683__SIFVARIADIC_ARGBIND.obj_len = 4; @@ -17253,7 +17253,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_687__SIFVARIADIC_THEN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_687__SIFVARIADIC_THEN.obj_num = 3; - cdat->dobj_687__SIFVARIADIC_THEN.obj_hash = 232103389; + cdat->dobj_687__SIFVARIADIC_THEN.obj_hash = 370117743; cdat->dobj_687__SIFVARIADIC_THEN.obj_len = 4; @@ -17322,7 +17322,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_691__SIFVARIADIC_ELSE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_691__SIFVARIADIC_ELSE.obj_num = 4; - cdat->dobj_691__SIFVARIADIC_ELSE.obj_hash = 860040135; + cdat->dobj_691__SIFVARIADIC_ELSE.obj_hash = 669027323; cdat->dobj_691__SIFVARIADIC_ELSE.obj_len = 4; @@ -17391,7 +17391,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_695__CLASS_SOURCE_MULTICALL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_695__CLASS_SOURCE_MULTICALL.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_695__CLASS_SOURCE_MULTICALL.obj_hash = 669027323; + cdat->dobj_695__CLASS_SOURCE_MULTICALL.obj_hash = 955498838; cdat->dobj_695__CLASS_SOURCE_MULTICALL.obj_len = 8; @@ -17472,7 +17472,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_701__SMULC_RESBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_701__SMULC_RESBIND.obj_num = 2; - cdat->dobj_701__SMULC_RESBIND.obj_hash = 74305629; + cdat->dobj_701__SMULC_RESBIND.obj_hash = 414441026; cdat->dobj_701__SMULC_RESBIND.obj_len = 4; @@ -17539,7 +17539,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_705__SMULC_CALL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_705__SMULC_CALL.obj_num = 3; - cdat->dobj_705__SMULC_CALL.obj_hash = 9951251; + cdat->dobj_705__SMULC_CALL.obj_hash = 266030864; cdat->dobj_705__SMULC_CALL.obj_len = 4; @@ -17604,7 +17604,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_709__SMULC_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_709__SMULC_BODY.obj_num = 4; - cdat->dobj_709__SMULC_BODY.obj_hash = 753501021; + cdat->dobj_709__SMULC_BODY.obj_hash = 215811473; cdat->dobj_709__SMULC_BODY.obj_len = 4; @@ -17671,7 +17671,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_713__CLASS_SOURCE_LABELLED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_713__CLASS_SOURCE_LABELLED.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_713__CLASS_SOURCE_LABELLED.obj_hash = 215811473; + cdat->dobj_713__CLASS_SOURCE_LABELLED.obj_hash = 681984575; cdat->dobj_713__CLASS_SOURCE_LABELLED.obj_len = 8; @@ -17751,7 +17751,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_719__SLABEL_BIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_719__SLABEL_BIND.obj_num = 2; - cdat->dobj_719__SLABEL_BIND.obj_hash = 993818966; + cdat->dobj_719__SLABEL_BIND.obj_hash = 198701937; cdat->dobj_719__SLABEL_BIND.obj_len = 4; @@ -17819,7 +17819,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_723__CLASS_SOURCE_FOREVER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_723__CLASS_SOURCE_FOREVER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_723__CLASS_SOURCE_FOREVER.obj_hash = 198701937; + cdat->dobj_723__CLASS_SOURCE_FOREVER.obj_hash = 843120883; cdat->dobj_723__CLASS_SOURCE_FOREVER.obj_len = 8; @@ -17898,7 +17898,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_729__SFRV_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_729__SFRV_BODY.obj_num = 3; - cdat->dobj_729__SFRV_BODY.obj_hash = 672250857; + cdat->dobj_729__SFRV_BODY.obj_hash = 182274644; cdat->dobj_729__SFRV_BODY.obj_len = 4; @@ -17965,7 +17965,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_733__CLASS_SOURCE_AGAIN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_733__CLASS_SOURCE_AGAIN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_733__CLASS_SOURCE_AGAIN.obj_hash = 182274644; + cdat->dobj_733__CLASS_SOURCE_AGAIN.obj_hash = 439927548; cdat->dobj_733__CLASS_SOURCE_AGAIN.obj_len = 8; @@ -18046,7 +18046,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_739__CLASS_SOURCE_EXIT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_739__CLASS_SOURCE_EXIT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_739__CLASS_SOURCE_EXIT.obj_hash = 439927548; + cdat->dobj_739__CLASS_SOURCE_EXIT.obj_hash = 957640222; cdat->dobj_739__CLASS_SOURCE_EXIT.obj_len = 8; @@ -18125,7 +18125,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_745__SEXI_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_745__SEXI_BODY.obj_num = 3; - cdat->dobj_745__SEXI_BODY.obj_hash = 97812441; + cdat->dobj_745__SEXI_BODY.obj_hash = 135172485; cdat->dobj_745__SEXI_BODY.obj_len = 4; @@ -18192,7 +18192,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_749__CLASS_SOURCE_COMPILEWARNING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_749__CLASS_SOURCE_COMPILEWARNING.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_749__CLASS_SOURCE_COMPILEWARNING.obj_hash = 269462780; + cdat->dobj_749__CLASS_SOURCE_COMPILEWARNING.obj_hash = 343911491; cdat->dobj_749__CLASS_SOURCE_COMPILEWARNING.obj_len = 8; @@ -18271,7 +18271,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_755__SCWARN_MSG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_755__SCWARN_MSG.obj_num = 2; - cdat->dobj_755__SCWARN_MSG.obj_hash = 273120208; + cdat->dobj_755__SCWARN_MSG.obj_hash = 259953969; cdat->dobj_755__SCWARN_MSG.obj_len = 4; @@ -18337,7 +18337,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_759__SCWARN_EXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_759__SCWARN_EXPR.obj_num = 3; - cdat->dobj_759__SCWARN_EXPR.obj_hash = 503972089; + cdat->dobj_759__SCWARN_EXPR.obj_hash = 334242323; cdat->dobj_759__SCWARN_EXPR.obj_len = 4; @@ -18413,7 +18413,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_763__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = MELTOBMAG_OBJECT; cdat->dobj_763__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = - 334242323; + 455702915; cdat->dobj_763__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; @@ -18497,7 +18497,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_769__CMEC_COMMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_769__CMEC_COMMENT.obj_num = 2; - cdat->dobj_769__CMEC_COMMENT.obj_hash = 14487411; + cdat->dobj_769__CMEC_COMMENT.obj_hash = 932093144; cdat->dobj_769__CMEC_COMMENT.obj_len = 4; @@ -18567,7 +18567,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_773__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_773__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 932093144; + cdat->dobj_773__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 105663078; cdat->dobj_773__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_len = 8; @@ -18656,7 +18656,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_779__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. obj_num = MELTOBMAG_OBJECT; cdat->dobj_779__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. - obj_hash = 105663078; + obj_hash = 41525162; cdat->dobj_779__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. obj_len = 8; @@ -18744,7 +18744,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_785__SUCME_COMMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_785__SUCME_COMMENT.obj_num = 2; - cdat->dobj_785__SUCME_COMMENT.obj_hash = 325481143; + cdat->dobj_785__SUCME_COMMENT.obj_hash = 864259545; cdat->dobj_785__SUCME_COMMENT.obj_len = 4; @@ -18813,7 +18813,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_789__CLASS_SOURCE_FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_789__CLASS_SOURCE_FETCH_PREDEFINED.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_789__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 864259545; + cdat->dobj_789__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 754598237; cdat->dobj_789__CLASS_SOURCE_FETCH_PREDEFINED.obj_len = 8; @@ -18894,7 +18894,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_795__SFEPD_PREDEF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_795__SFEPD_PREDEF.obj_num = 2; - cdat->dobj_795__SFEPD_PREDEF.obj_hash = 1060895328; + cdat->dobj_795__SFEPD_PREDEF.obj_hash = 540046520; cdat->dobj_795__SFEPD_PREDEF.obj_len = 4; @@ -18963,7 +18963,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_799__CLASS_SOURCE_STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_799__CLASS_SOURCE_STORE_PREDEFINED.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_799__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 540046520; + cdat->dobj_799__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 862647150; cdat->dobj_799__CLASS_SOURCE_STORE_PREDEFINED.obj_len = 8; @@ -19044,7 +19044,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_805__SSTPD_PREDEF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_805__SSTPD_PREDEF.obj_num = 2; - cdat->dobj_805__SSTPD_PREDEF.obj_hash = 786739846; + cdat->dobj_805__SSTPD_PREDEF.obj_hash = 627189726; cdat->dobj_805__SSTPD_PREDEF.obj_len = 4; @@ -19112,7 +19112,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_809__SSTPD_VALUE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_809__SSTPD_VALUE.obj_num = 3; - cdat->dobj_809__SSTPD_VALUE.obj_hash = 698027798; + cdat->dobj_809__SSTPD_VALUE.obj_hash = 180124205; cdat->dobj_809__SSTPD_VALUE.obj_len = 4; @@ -19180,7 +19180,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_813__CLASS_SOURCE_CODECHUNK.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_813__CLASS_SOURCE_CODECHUNK.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_813__CLASS_SOURCE_CODECHUNK.obj_hash = 180124205; + cdat->dobj_813__CLASS_SOURCE_CODECHUNK.obj_hash = 377653767; cdat->dobj_813__CLASS_SOURCE_CODECHUNK.obj_len = 8; @@ -19259,7 +19259,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_819__SCH_GENSYM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_819__SCH_GENSYM.obj_num = 2; - cdat->dobj_819__SCH_GENSYM.obj_hash = 71735609; + cdat->dobj_819__SCH_GENSYM.obj_hash = 1040741140; cdat->dobj_819__SCH_GENSYM.obj_len = 4; @@ -19324,7 +19324,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_823__SCH_CHUNKS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_823__SCH_CHUNKS.obj_num = 3; - cdat->dobj_823__SCH_CHUNKS.obj_hash = 488940125; + cdat->dobj_823__SCH_CHUNKS.obj_hash = 85158044; cdat->dobj_823__SCH_CHUNKS.obj_len = 4; @@ -19391,7 +19391,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_827__CLASS_SOURCE_PATTERN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_827__CLASS_SOURCE_PATTERN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_827__CLASS_SOURCE_PATTERN.obj_hash = 85158044; + cdat->dobj_827__CLASS_SOURCE_PATTERN.obj_hash = 104576025; cdat->dobj_827__CLASS_SOURCE_PATTERN.obj_len = 8; @@ -19470,7 +19470,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_833__PAT_WEIGHT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_833__PAT_WEIGHT.obj_num = 2; - cdat->dobj_833__PAT_WEIGHT.obj_hash = 144929570; + cdat->dobj_833__PAT_WEIGHT.obj_hash = 1025293563; cdat->dobj_833__PAT_WEIGHT.obj_len = 4; @@ -19537,7 +19537,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_837__CLASS_SOURCE_PATTERN_OR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_837__CLASS_SOURCE_PATTERN_OR.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_837__CLASS_SOURCE_PATTERN_OR.obj_hash = 1025293563; + cdat->dobj_837__CLASS_SOURCE_PATTERN_OR.obj_hash = 438245447; cdat->dobj_837__CLASS_SOURCE_PATTERN_OR.obj_len = 8; @@ -19616,7 +19616,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_843__ORPAT_DISJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_843__ORPAT_DISJ.obj_num = 3; - cdat->dobj_843__ORPAT_DISJ.obj_hash = 570212653; + cdat->dobj_843__ORPAT_DISJ.obj_hash = 597068096; cdat->dobj_843__ORPAT_DISJ.obj_len = 4; @@ -19683,7 +19683,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_847__CLASS_SOURCE_PATTERN_AND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_847__CLASS_SOURCE_PATTERN_AND.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_847__CLASS_SOURCE_PATTERN_AND.obj_hash = 597068096; + cdat->dobj_847__CLASS_SOURCE_PATTERN_AND.obj_hash = 538776434; cdat->dobj_847__CLASS_SOURCE_PATTERN_AND.obj_len = 8; @@ -19763,7 +19763,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_853__ANDPAT_CONJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_853__ANDPAT_CONJ.obj_num = 3; - cdat->dobj_853__ANDPAT_CONJ.obj_hash = 209330522; + cdat->dobj_853__ANDPAT_CONJ.obj_hash = 831956170; cdat->dobj_853__ANDPAT_CONJ.obj_len = 4; @@ -19831,7 +19831,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_857__CLASS_SOURCE_PATTERN_WHEN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_857__CLASS_SOURCE_PATTERN_WHEN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_857__CLASS_SOURCE_PATTERN_WHEN.obj_hash = 831956170; + cdat->dobj_857__CLASS_SOURCE_PATTERN_WHEN.obj_hash = 842835969; cdat->dobj_857__CLASS_SOURCE_PATTERN_WHEN.obj_len = 8; @@ -19912,7 +19912,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_863__WHENPAT_SUBPAT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_863__WHENPAT_SUBPAT.obj_num = 3; - cdat->dobj_863__WHENPAT_SUBPAT.obj_hash = 70547810; + cdat->dobj_863__WHENPAT_SUBPAT.obj_hash = 77554955; cdat->dobj_863__WHENPAT_SUBPAT.obj_len = 4; @@ -19981,7 +19981,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_867__WHENPAT_COND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_867__WHENPAT_COND.obj_num = 4; - cdat->dobj_867__WHENPAT_COND.obj_hash = 992628450; + cdat->dobj_867__WHENPAT_COND.obj_hash = 905967641; cdat->dobj_867__WHENPAT_COND.obj_len = 4; @@ -20050,7 +20050,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_871__CLASS_SOURCE_PATTERN_VARIABLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_871__CLASS_SOURCE_PATTERN_VARIABLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_871__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 905967641; + cdat->dobj_871__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 950504749; cdat->dobj_871__CLASS_SOURCE_PATTERN_VARIABLE.obj_len = 8; @@ -20131,7 +20131,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_877__SPATVAR_SYMB.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_877__SPATVAR_SYMB.obj_num = 3; - cdat->dobj_877__SPATVAR_SYMB.obj_hash = 160323419; + cdat->dobj_877__SPATVAR_SYMB.obj_hash = 595945230; cdat->dobj_877__SPATVAR_SYMB.obj_len = 4; @@ -20200,7 +20200,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_881__SPATVAR_NBOCC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_881__SPATVAR_NBOCC.obj_num = 4; - cdat->dobj_881__SPATVAR_NBOCC.obj_hash = 270026616; + cdat->dobj_881__SPATVAR_NBOCC.obj_hash = 439735083; cdat->dobj_881__SPATVAR_NBOCC.obj_len = 4; @@ -20301,7 +20301,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_887__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_887__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 189247773; + cdat->dobj_887__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 169287939; cdat->dobj_887__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_len = 8; @@ -20382,7 +20382,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_893__CLASS_SOURCE_PATTERN_CONSTANT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_893__CLASS_SOURCE_PATTERN_CONSTANT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_893__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 169287939; + cdat->dobj_893__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 540489974; cdat->dobj_893__CLASS_SOURCE_PATTERN_CONSTANT.obj_len = 8; @@ -20462,7 +20462,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_899__SPAT_CONSTX.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_899__SPAT_CONSTX.obj_num = 3; - cdat->dobj_899__SPAT_CONSTX.obj_hash = 471408132; + cdat->dobj_899__SPAT_CONSTX.obj_hash = 755624074; cdat->dobj_899__SPAT_CONSTX.obj_len = 4; @@ -20530,7 +20530,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 755624074; + cdat->dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 223287523; cdat->dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_len = 8; @@ -20610,7 +20610,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_909__CTPAT_SUBPA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_909__CTPAT_SUBPA.obj_num = 3; - cdat->dobj_909__CTPAT_SUBPA.obj_hash = 49535820; + cdat->dobj_909__CTPAT_SUBPA.obj_hash = 783546476; cdat->dobj_909__CTPAT_SUBPA.obj_len = 4; @@ -20678,7 +20678,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_913__CLASS_SOURCE_PATTERN_TUPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_913__CLASS_SOURCE_PATTERN_TUPLE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_913__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 783546476; + cdat->dobj_913__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 246124133; cdat->dobj_913__CLASS_SOURCE_PATTERN_TUPLE.obj_len = 8; @@ -20759,7 +20759,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_919__CLASS_SOURCE_PATTERN_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_919__CLASS_SOURCE_PATTERN_LIST.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_919__CLASS_SOURCE_PATTERN_LIST.obj_hash = 246124133; + cdat->dobj_919__CLASS_SOURCE_PATTERN_LIST.obj_hash = 287716033; cdat->dobj_919__CLASS_SOURCE_PATTERN_LIST.obj_len = 8; @@ -20840,7 +20840,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_925__CLASS_SOURCE_PATTERN_OBJECT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_925__CLASS_SOURCE_PATTERN_OBJECT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_925__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 287716033; + cdat->dobj_925__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 765351944; cdat->dobj_925__CLASS_SOURCE_PATTERN_OBJECT.obj_len = 8; @@ -20919,7 +20919,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_931__SPAT_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_931__SPAT_CLASS.obj_num = 3; - cdat->dobj_931__SPAT_CLASS.obj_hash = 47928109; + cdat->dobj_931__SPAT_CLASS.obj_hash = 268370266; cdat->dobj_931__SPAT_CLASS.obj_len = 4; @@ -20985,7 +20985,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_935__SPAT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_935__SPAT_FIELDS.obj_num = 4; - cdat->dobj_935__SPAT_FIELDS.obj_hash = 988721676; + cdat->dobj_935__SPAT_FIELDS.obj_hash = 833378866; cdat->dobj_935__SPAT_FIELDS.obj_len = 4; @@ -21053,7 +21053,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_939__CLASS_SOURCE_PATTERN_INSTANCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_939__CLASS_SOURCE_PATTERN_INSTANCE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_939__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 833378866; + cdat->dobj_939__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 612460978; cdat->dobj_939__CLASS_SOURCE_PATTERN_INSTANCE.obj_len = 8; @@ -21134,7 +21134,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_945__CLASS_SOURCE_FIELD_PATTERN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_945__CLASS_SOURCE_FIELD_PATTERN.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_945__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 612460978; + cdat->dobj_945__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 390035970; cdat->dobj_945__CLASS_SOURCE_FIELD_PATTERN.obj_len = 8; @@ -21213,7 +21213,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_951__SPAF_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_951__SPAF_FIELD.obj_num = 2; - cdat->dobj_951__SPAF_FIELD.obj_hash = 191154281; + cdat->dobj_951__SPAF_FIELD.obj_hash = 179857504; cdat->dobj_951__SPAF_FIELD.obj_len = 4; @@ -21280,7 +21280,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_955__SPAF_PATTERN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_955__SPAF_PATTERN.obj_num = 3; - cdat->dobj_955__SPAF_PATTERN.obj_hash = 745699359; + cdat->dobj_955__SPAF_PATTERN.obj_hash = 156580809; cdat->dobj_955__SPAF_PATTERN.obj_len = 4; @@ -21349,7 +21349,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 156580809; + cdat->dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 139490231; cdat->dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE.obj_len = 8; @@ -21430,7 +21430,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_965__SPAC_OPERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_965__SPAC_OPERATOR.obj_num = 5; - cdat->dobj_965__SPAC_OPERATOR.obj_hash = 794109270; + cdat->dobj_965__SPAC_OPERATOR.obj_hash = 269440952; cdat->dobj_965__SPAC_OPERATOR.obj_len = 4; @@ -21499,7 +21499,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_969__SPAC_OPERBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_969__SPAC_OPERBIND.obj_num = 6; - cdat->dobj_969__SPAC_OPERBIND.obj_hash = 307666462; + cdat->dobj_969__SPAC_OPERBIND.obj_hash = 137360936; cdat->dobj_969__SPAC_OPERBIND.obj_len = 4; @@ -21567,7 +21567,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_973__SPAC_INARGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_973__SPAC_INARGS.obj_num = 7; - cdat->dobj_973__SPAC_INARGS.obj_hash = 95438281; + cdat->dobj_973__SPAC_INARGS.obj_hash = 141684157; cdat->dobj_973__SPAC_INARGS.obj_len = 4; @@ -21635,7 +21635,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_977__SPAC_OUTARGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_977__SPAC_OUTARGS.obj_num = 8; - cdat->dobj_977__SPAC_OUTARGS.obj_hash = 387713729; + cdat->dobj_977__SPAC_OUTARGS.obj_hash = 231881646; cdat->dobj_977__SPAC_OUTARGS.obj_len = 4; @@ -21704,7 +21704,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_981__CLASS_SOURCE_PATTERN_MATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_981__CLASS_SOURCE_PATTERN_MATCHER.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_981__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 231881646; + cdat->dobj_981__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 461912199; cdat->dobj_981__CLASS_SOURCE_PATTERN_MATCHER.obj_len = 8; @@ -21785,7 +21785,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_987__CLASS_SOURCE_PATTERN_C_MATCH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_987__CLASS_SOURCE_PATTERN_C_MATCH.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_987__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 461912199; + cdat->dobj_987__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 878760674; cdat->dobj_987__CLASS_SOURCE_PATTERN_C_MATCH.obj_len = 8; @@ -21866,7 +21866,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 878760674; + cdat->dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 608709901; cdat->dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_len = 8; @@ -22682,7 +22682,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, strncpy (cdat->drout_1053__EXPAND_CMATCHEXPR.routdescr, "EXPAND_CMATCHEXPR @warmelt-macro.melt:1192", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1053__EXPAND_CMATCHEXPR.nbval = 6; + cdat->drout_1053__EXPAND_CMATCHEXPR.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1053__EXPAND_CMATCHEXPR, meltrout_13_warmelt_macro_EXPAND_CMATCHEXPR); @@ -22727,1038 +22727,1038 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dstr_1056__CLASS_CMATCHER.val[14] = (char) 0; cdat->dstr_1056__CLASS_CMATCHER.slen = 14; - /*inirout drout_1057__EXPAND_FUNMATCHEXPR */ + +/*iniobj dsym_1057__CLASS_ANY_MATCHER*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1146*/ meltfptr[1145]) +/*_.VALDATA___V1146*/ meltfptr[1145] = + (melt_ptr_t) & cdat->dsym_1057__CLASS_ANY_MATCHER; + if (MELT_LIKELY (!melt_prohibit_garbcoll)) + melt_assertmsg ("iniobj check.discr isobj dsym_1057__CLASS_ANY_MATCHER", + melt_magic_discr ((melt_ptr_t) + (((melt_ptr_t) + (MELT_PREDEF (CLASS_SYMBOL))))) == + MELTOBMAG_OBJECT); + if (MELT_LIKELY (!melt_prohibit_garbcoll)) + melt_assertmsg + ("iniobj check.discr objmagic dsym_1057__CLASS_ANY_MATCHER", + ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> + meltobj_magic == MELTOBMAG_OBJECT); + cdat->dsym_1057__CLASS_ANY_MATCHER.meltobj_class = + (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); + cdat->dsym_1057__CLASS_ANY_MATCHER.obj_hash = 781265508; + cdat->dsym_1057__CLASS_ANY_MATCHER.obj_len = 3; + + +/*inistring dstr_1058__CLASS_ANY_MATCHE*/ + /*_.VALSTR___V1147*/ meltfptr[1146] = + (melt_ptr_t) & cdat->dstr_1058__CLASS_ANY_MATCHE; + cdat->dstr_1058__CLASS_ANY_MATCHE.discr = + (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); + /*small inistring */ strncpy (cdat->dstr_1058__CLASS_ANY_MATCHE.val, + "CLASS_ANY_MATCHER", + sizeof (cdat->dstr_1058__CLASS_ANY_MATCHE. + val) - 1); + cdat->dstr_1058__CLASS_ANY_MATCHE.val[17] = (char) 0; + cdat->dstr_1058__CLASS_ANY_MATCHE.slen = 17; + + /*inirout drout_1059__EXPAND_FUNMATCHEXPR */ /*_.VALROUT___V1124*/ meltfptr[1123] = - (melt_ptr_t) & cdat->drout_1057__EXPAND_FUNMATCHEXPR; - cdat->drout_1057__EXPAND_FUNMATCHEXPR.discr = + (melt_ptr_t) & cdat->drout_1059__EXPAND_FUNMATCHEXPR; + cdat->drout_1059__EXPAND_FUNMATCHEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); - strncpy (cdat->drout_1057__EXPAND_FUNMATCHEXPR.routdescr, - "EXPAND_FUNMATCHEXPR @warmelt-macro.melt:1235", + strncpy (cdat->drout_1059__EXPAND_FUNMATCHEXPR.routdescr, + "EXPAND_FUNMATCHEXPR @warmelt-macro.melt:1240", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1057__EXPAND_FUNMATCHEXPR.nbval = 6; - MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1057__EXPAND_FUNMATCHEXPR, + cdat->drout_1059__EXPAND_FUNMATCHEXPR.nbval = 6; + MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1059__EXPAND_FUNMATCHEXPR, meltrout_14_warmelt_macro_EXPAND_FUNMATCHEXPR); - /*iniclos dclo_1058__EXPAND_FUNMATCHEXPR */ + /*iniclos dclo_1060__EXPAND_FUNMATCHEXPR */ /*_.VALCLO___V1123*/ meltfptr[1122] = - (melt_ptr_t) & cdat->dclo_1058__EXPAND_FUNMATCHEXPR; - cdat->dclo_1058__EXPAND_FUNMATCHEXPR.discr = + (melt_ptr_t) & cdat->dclo_1060__EXPAND_FUNMATCHEXPR; + cdat->dclo_1060__EXPAND_FUNMATCHEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); - cdat->dclo_1058__EXPAND_FUNMATCHEXPR.nbval = 0; + cdat->dclo_1060__EXPAND_FUNMATCHEXPR.nbval = 0; -/*iniobj dsym_1059__CLASS_FUNMATCHER*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1146*/ meltfptr[1145]) -/*_.VALDATA___V1146*/ meltfptr[1145] = - (melt_ptr_t) & cdat->dsym_1059__CLASS_FUNMATCHER; +/*iniobj dsym_1061__CLASS_FUNMATCHER*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1148*/ meltfptr[1147]) +/*_.VALDATA___V1148*/ meltfptr[1147] = + (melt_ptr_t) & cdat->dsym_1061__CLASS_FUNMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dsym_1059__CLASS_FUNMATCHER", + melt_assertmsg ("iniobj check.discr isobj dsym_1061__CLASS_FUNMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr objmagic dsym_1059__CLASS_FUNMATCHER", + melt_assertmsg ("iniobj check.discr objmagic dsym_1061__CLASS_FUNMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1059__CLASS_FUNMATCHER.meltobj_class = + cdat->dsym_1061__CLASS_FUNMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1059__CLASS_FUNMATCHER.obj_hash = 197743893; - cdat->dsym_1059__CLASS_FUNMATCHER.obj_len = 3; + cdat->dsym_1061__CLASS_FUNMATCHER.obj_hash = 197743893; + cdat->dsym_1061__CLASS_FUNMATCHER.obj_len = 3; -/*inistring dstr_1060__CLASS_FUNMATCHER*/ - /*_.VALSTR___V1147*/ meltfptr[1146] = - (melt_ptr_t) & cdat->dstr_1060__CLASS_FUNMATCHER; - cdat->dstr_1060__CLASS_FUNMATCHER.discr = +/*inistring dstr_1062__CLASS_FUNMATCHER*/ + /*_.VALSTR___V1149*/ meltfptr[1148] = + (melt_ptr_t) & cdat->dstr_1062__CLASS_FUNMATCHER; + cdat->dstr_1062__CLASS_FUNMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1060__CLASS_FUNMATCHER.val, + /*small inistring */ strncpy (cdat->dstr_1062__CLASS_FUNMATCHER.val, "CLASS_FUNMATCHER", - sizeof (cdat->dstr_1060__CLASS_FUNMATCHER. + sizeof (cdat->dstr_1062__CLASS_FUNMATCHER. val) - 1); - cdat->dstr_1060__CLASS_FUNMATCHER.val[16] = (char) 0; - cdat->dstr_1060__CLASS_FUNMATCHER.slen = 16; + cdat->dstr_1062__CLASS_FUNMATCHER.val[16] = (char) 0; + cdat->dstr_1062__CLASS_FUNMATCHER.slen = 16; - /*inirout drout_1061__EXPAND_KEYWORDFUN */ + /*inirout drout_1063__EXPAND_KEYWORDFUN */ /*_.VALROUT___V1110*/ meltfptr[1109] = - (melt_ptr_t) & cdat->drout_1061__EXPAND_KEYWORDFUN; - cdat->drout_1061__EXPAND_KEYWORDFUN.discr = + (melt_ptr_t) & cdat->drout_1063__EXPAND_KEYWORDFUN; + cdat->drout_1063__EXPAND_KEYWORDFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); - strncpy (cdat->drout_1061__EXPAND_KEYWORDFUN.routdescr, - "EXPAND_KEYWORDFUN @warmelt-macro.melt:1267", + strncpy (cdat->drout_1063__EXPAND_KEYWORDFUN.routdescr, + "EXPAND_KEYWORDFUN @warmelt-macro.melt:1272", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1061__EXPAND_KEYWORDFUN.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1061__EXPAND_KEYWORDFUN, + cdat->drout_1063__EXPAND_KEYWORDFUN.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1063__EXPAND_KEYWORDFUN, meltrout_15_warmelt_macro_EXPAND_KEYWORDFUN); - /*iniclos dclo_1062__EXPAND_KEYWORDFUN */ + /*iniclos dclo_1064__EXPAND_KEYWORDFUN */ /*_.VALCLO___V1109*/ meltfptr[1108] = - (melt_ptr_t) & cdat->dclo_1062__EXPAND_KEYWORDFUN; - cdat->dclo_1062__EXPAND_KEYWORDFUN.discr = + (melt_ptr_t) & cdat->dclo_1064__EXPAND_KEYWORDFUN; + cdat->dclo_1064__EXPAND_KEYWORDFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); - cdat->dclo_1062__EXPAND_KEYWORDFUN.nbval = 0; + cdat->dclo_1064__EXPAND_KEYWORDFUN.nbval = 0; - /*inirout drout_1063__MACROEXPAND_1 */ + /*inirout drout_1065__MACROEXPAND_1 */ /*_.VALROUT___V1108*/ meltfptr[1107] = - (melt_ptr_t) & cdat->drout_1063__MACROEXPAND_1; - cdat->drout_1063__MACROEXPAND_1.discr = + (melt_ptr_t) & cdat->drout_1065__MACROEXPAND_1; + cdat->drout_1065__MACROEXPAND_1.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); - strncpy (cdat->drout_1063__MACROEXPAND_1.routdescr, - "MACROEXPAND_1 @warmelt-macro.melt:1285", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1063__MACROEXPAND_1.nbval = 34; - MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1063__MACROEXPAND_1, + strncpy (cdat->drout_1065__MACROEXPAND_1.routdescr, + "MACROEXPAND_1 @warmelt-macro.melt:1290", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1065__MACROEXPAND_1.nbval = 34; + MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1065__MACROEXPAND_1, meltrout_16_warmelt_macro_MACROEXPAND_1); - /*iniclos dclo_1064__MACROEXPAND_1 */ + /*iniclos dclo_1066__MACROEXPAND_1 */ /*_.VALCLO___V1107*/ meltfptr[1106] = - (melt_ptr_t) & cdat->dclo_1064__MACROEXPAND_1; - cdat->dclo_1064__MACROEXPAND_1.discr = + (melt_ptr_t) & cdat->dclo_1066__MACROEXPAND_1; + cdat->dclo_1066__MACROEXPAND_1.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); - cdat->dclo_1064__MACROEXPAND_1.nbval = 0; + cdat->dclo_1066__MACROEXPAND_1.nbval = 0; -/*iniobj dsym_1065__FIND_ENV*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1148*/ meltfptr[1147]) -/*_.VALDATA___V1148*/ meltfptr[1147] = - (melt_ptr_t) & cdat->dsym_1065__FIND_ENV; +/*iniobj dsym_1067__FIND_ENV*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1150*/ meltfptr[1149]) +/*_.VALDATA___V1150*/ meltfptr[1149] = + (melt_ptr_t) & cdat->dsym_1067__FIND_ENV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dsym_1065__FIND_ENV", + melt_assertmsg ("iniobj check.discr isobj dsym_1067__FIND_ENV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr objmagic dsym_1065__FIND_ENV", + melt_assertmsg ("iniobj check.discr objmagic dsym_1067__FIND_ENV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1065__FIND_ENV.meltobj_class = + cdat->dsym_1067__FIND_ENV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1065__FIND_ENV.obj_hash = 233459738; - cdat->dsym_1065__FIND_ENV.obj_len = 3; + cdat->dsym_1067__FIND_ENV.obj_hash = 233459738; + cdat->dsym_1067__FIND_ENV.obj_len = 3; -/*inistring dstr_1066__FIND_ENV*/ - /*_.VALSTR___V1149*/ meltfptr[1148] = - (melt_ptr_t) & cdat->dstr_1066__FIND_ENV; - cdat->dstr_1066__FIND_ENV.discr = +/*inistring dstr_1068__FIND_ENV*/ + /*_.VALSTR___V1151*/ meltfptr[1150] = + (melt_ptr_t) & cdat->dstr_1068__FIND_ENV; + cdat->dstr_1068__FIND_ENV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1066__FIND_ENV.val, "FIND_ENV", - sizeof (cdat->dstr_1066__FIND_ENV.val) - 1); - cdat->dstr_1066__FIND_ENV.val[8] = (char) 0; - cdat->dstr_1066__FIND_ENV.slen = 8; + /*small inistring */ strncpy (cdat->dstr_1068__FIND_ENV.val, "FIND_ENV", + sizeof (cdat->dstr_1068__FIND_ENV.val) - 1); + cdat->dstr_1068__FIND_ENV.val[8] = (char) 0; + cdat->dstr_1068__FIND_ENV.slen = 8; -/*iniobj dsym_1067__CLASS_MACRO_BINDING*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1150*/ meltfptr[1149]) -/*_.VALDATA___V1150*/ meltfptr[1149] = - (melt_ptr_t) & cdat->dsym_1067__CLASS_MACRO_BINDING; +/*iniobj dsym_1069__CLASS_MACRO_BINDING*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1152*/ meltfptr[1151]) +/*_.VALDATA___V1152*/ meltfptr[1151] = + (melt_ptr_t) & cdat->dsym_1069__CLASS_MACRO_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dsym_1067__CLASS_MACRO_BINDING", + melt_assertmsg ("iniobj check.discr isobj dsym_1069__CLASS_MACRO_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr objmagic dsym_1067__CLASS_MACRO_BINDING", + ("iniobj check.discr objmagic dsym_1069__CLASS_MACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1067__CLASS_MACRO_BINDING.meltobj_class = + cdat->dsym_1069__CLASS_MACRO_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1067__CLASS_MACRO_BINDING.obj_hash = 628198824; - cdat->dsym_1067__CLASS_MACRO_BINDING.obj_len = 3; + cdat->dsym_1069__CLASS_MACRO_BINDING.obj_hash = 628198824; + cdat->dsym_1069__CLASS_MACRO_BINDING.obj_len = 3; -/*inistring dstr_1068__CLASS_MACRO_BIND*/ - /*_.VALSTR___V1151*/ meltfptr[1150] = - (melt_ptr_t) & cdat->dstr_1068__CLASS_MACRO_BIND; - cdat->dstr_1068__CLASS_MACRO_BIND.discr = +/*inistring dstr_1070__CLASS_MACRO_BIND*/ + /*_.VALSTR___V1153*/ meltfptr[1152] = + (melt_ptr_t) & cdat->dstr_1070__CLASS_MACRO_BIND; + cdat->dstr_1070__CLASS_MACRO_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1068__CLASS_MACRO_BIND.val, + /*small inistring */ strncpy (cdat->dstr_1070__CLASS_MACRO_BIND.val, "CLASS_MACRO_BINDING", - sizeof (cdat->dstr_1068__CLASS_MACRO_BIND. + sizeof (cdat->dstr_1070__CLASS_MACRO_BIND. val) - 1); - cdat->dstr_1068__CLASS_MACRO_BIND.val[19] = (char) 0; - cdat->dstr_1068__CLASS_MACRO_BIND.slen = 19; + cdat->dstr_1070__CLASS_MACRO_BIND.val[19] = (char) 0; + cdat->dstr_1070__CLASS_MACRO_BIND.slen = 19; -/*iniobj dsym_1069__CLASS_SELECTOR_BINDING*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1152*/ meltfptr[1151]) -/*_.VALDATA___V1152*/ meltfptr[1151] = - (melt_ptr_t) & cdat->dsym_1069__CLASS_SELECTOR_BINDING; +/*iniobj dsym_1071__CLASS_SELECTOR_BINDING*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1154*/ meltfptr[1153]) +/*_.VALDATA___V1154*/ meltfptr[1153] = + (melt_ptr_t) & cdat->dsym_1071__CLASS_SELECTOR_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr isobj dsym_1069__CLASS_SELECTOR_BINDING", + ("iniobj check.discr isobj dsym_1071__CLASS_SELECTOR_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr objmagic dsym_1069__CLASS_SELECTOR_BINDING", + ("iniobj check.discr objmagic dsym_1071__CLASS_SELECTOR_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1069__CLASS_SELECTOR_BINDING.meltobj_class = + cdat->dsym_1071__CLASS_SELECTOR_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1069__CLASS_SELECTOR_BINDING.obj_hash = 80713028; - cdat->dsym_1069__CLASS_SELECTOR_BINDING.obj_len = 3; + cdat->dsym_1071__CLASS_SELECTOR_BINDING.obj_hash = 80713028; + cdat->dsym_1071__CLASS_SELECTOR_BINDING.obj_len = 3; -/*inistring dstr_1070__CLASS_SELECTOR_B*/ - /*_.VALSTR___V1153*/ meltfptr[1152] = - (melt_ptr_t) & cdat->dstr_1070__CLASS_SELECTOR_B; - cdat->dstr_1070__CLASS_SELECTOR_B.discr = +/*inistring dstr_1072__CLASS_SELECTOR_B*/ + /*_.VALSTR___V1155*/ meltfptr[1154] = + (melt_ptr_t) & cdat->dstr_1072__CLASS_SELECTOR_B; + cdat->dstr_1072__CLASS_SELECTOR_B.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1070__CLASS_SELECTOR_B.val, + /*small inistring */ strncpy (cdat->dstr_1072__CLASS_SELECTOR_B.val, "CLASS_SELECTOR_BINDING", - sizeof (cdat->dstr_1070__CLASS_SELECTOR_B. + sizeof (cdat->dstr_1072__CLASS_SELECTOR_B. val) - 1); - cdat->dstr_1070__CLASS_SELECTOR_B.val[22] = (char) 0; - cdat->dstr_1070__CLASS_SELECTOR_B.slen = 22; + cdat->dstr_1072__CLASS_SELECTOR_B.val[22] = (char) 0; + cdat->dstr_1072__CLASS_SELECTOR_B.slen = 22; -/*iniobj dsym_1071__CLASS_PRIMITIVE_BINDING*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1154*/ meltfptr[1153]) -/*_.VALDATA___V1154*/ meltfptr[1153] = - (melt_ptr_t) & cdat->dsym_1071__CLASS_PRIMITIVE_BINDING; +/*iniobj dsym_1073__CLASS_PRIMITIVE_BINDING*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1156*/ meltfptr[1155]) +/*_.VALDATA___V1156*/ meltfptr[1155] = + (melt_ptr_t) & cdat->dsym_1073__CLASS_PRIMITIVE_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr isobj dsym_1071__CLASS_PRIMITIVE_BINDING", + ("iniobj check.discr isobj dsym_1073__CLASS_PRIMITIVE_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr objmagic dsym_1071__CLASS_PRIMITIVE_BINDING", + ("iniobj check.discr objmagic dsym_1073__CLASS_PRIMITIVE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1071__CLASS_PRIMITIVE_BINDING.meltobj_class = + cdat->dsym_1073__CLASS_PRIMITIVE_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1071__CLASS_PRIMITIVE_BINDING.obj_hash = 648418829; - cdat->dsym_1071__CLASS_PRIMITIVE_BINDING.obj_len = 3; + cdat->dsym_1073__CLASS_PRIMITIVE_BINDING.obj_hash = 648418829; + cdat->dsym_1073__CLASS_PRIMITIVE_BINDING.obj_len = 3; -/*inistring dstr_1072__CLASS_PRIMITIVE_*/ - /*_.VALSTR___V1155*/ meltfptr[1154] = - (melt_ptr_t) & cdat->dstr_1072__CLASS_PRIMITIVE_; - cdat->dstr_1072__CLASS_PRIMITIVE_.discr = +/*inistring dstr_1074__CLASS_PRIMITIVE_*/ + /*_.VALSTR___V1157*/ meltfptr[1156] = + (melt_ptr_t) & cdat->dstr_1074__CLASS_PRIMITIVE_; + cdat->dstr_1074__CLASS_PRIMITIVE_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1072__CLASS_PRIMITIVE_.val, + /*small inistring */ strncpy (cdat->dstr_1074__CLASS_PRIMITIVE_.val, "CLASS_PRIMITIVE_BINDING", - sizeof (cdat->dstr_1072__CLASS_PRIMITIVE_. + sizeof (cdat->dstr_1074__CLASS_PRIMITIVE_. val) - 1); - cdat->dstr_1072__CLASS_PRIMITIVE_.val[23] = (char) 0; - cdat->dstr_1072__CLASS_PRIMITIVE_.slen = 23; + cdat->dstr_1074__CLASS_PRIMITIVE_.val[23] = (char) 0; + cdat->dstr_1074__CLASS_PRIMITIVE_.slen = 23; -/*iniobj dsym_1073__CLASS_CITERATOR_BINDING*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1156*/ meltfptr[1155]) -/*_.VALDATA___V1156*/ meltfptr[1155] = - (melt_ptr_t) & cdat->dsym_1073__CLASS_CITERATOR_BINDING; +/*iniobj dsym_1075__CLASS_CITERATOR_BINDING*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1158*/ meltfptr[1157]) +/*_.VALDATA___V1158*/ meltfptr[1157] = + (melt_ptr_t) & cdat->dsym_1075__CLASS_CITERATOR_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr isobj dsym_1073__CLASS_CITERATOR_BINDING", + ("iniobj check.discr isobj dsym_1075__CLASS_CITERATOR_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr objmagic dsym_1073__CLASS_CITERATOR_BINDING", + ("iniobj check.discr objmagic dsym_1075__CLASS_CITERATOR_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1073__CLASS_CITERATOR_BINDING.meltobj_class = + cdat->dsym_1075__CLASS_CITERATOR_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1073__CLASS_CITERATOR_BINDING.obj_hash = 241925087; - cdat->dsym_1073__CLASS_CITERATOR_BINDING.obj_len = 3; + cdat->dsym_1075__CLASS_CITERATOR_BINDING.obj_hash = 241925087; + cdat->dsym_1075__CLASS_CITERATOR_BINDING.obj_len = 3; -/*inistring dstr_1074__CLASS_CITERATOR_*/ - /*_.VALSTR___V1157*/ meltfptr[1156] = - (melt_ptr_t) & cdat->dstr_1074__CLASS_CITERATOR_; - cdat->dstr_1074__CLASS_CITERATOR_.discr = +/*inistring dstr_1076__CLASS_CITERATOR_*/ + /*_.VALSTR___V1159*/ meltfptr[1158] = + (melt_ptr_t) & cdat->dstr_1076__CLASS_CITERATOR_; + cdat->dstr_1076__CLASS_CITERATOR_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1074__CLASS_CITERATOR_.val, + /*small inistring */ strncpy (cdat->dstr_1076__CLASS_CITERATOR_.val, "CLASS_CITERATOR_BINDING", - sizeof (cdat->dstr_1074__CLASS_CITERATOR_. + sizeof (cdat->dstr_1076__CLASS_CITERATOR_. val) - 1); - cdat->dstr_1074__CLASS_CITERATOR_.val[23] = (char) 0; - cdat->dstr_1074__CLASS_CITERATOR_.slen = 23; + cdat->dstr_1076__CLASS_CITERATOR_.val[23] = (char) 0; + cdat->dstr_1076__CLASS_CITERATOR_.slen = 23; -/*iniobj dsym_1075__CLASS_CMATCHER_BINDING*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1158*/ meltfptr[1157]) -/*_.VALDATA___V1158*/ meltfptr[1157] = - (melt_ptr_t) & cdat->dsym_1075__CLASS_CMATCHER_BINDING; +/*iniobj dsym_1077__CLASS_CMATCHER_BINDING*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1160*/ meltfptr[1159]) +/*_.VALDATA___V1160*/ meltfptr[1159] = + (melt_ptr_t) & cdat->dsym_1077__CLASS_CMATCHER_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr isobj dsym_1075__CLASS_CMATCHER_BINDING", + ("iniobj check.discr isobj dsym_1077__CLASS_CMATCHER_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr objmagic dsym_1075__CLASS_CMATCHER_BINDING", + ("iniobj check.discr objmagic dsym_1077__CLASS_CMATCHER_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1075__CLASS_CMATCHER_BINDING.meltobj_class = + cdat->dsym_1077__CLASS_CMATCHER_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1075__CLASS_CMATCHER_BINDING.obj_hash = 386982082; - cdat->dsym_1075__CLASS_CMATCHER_BINDING.obj_len = 3; + cdat->dsym_1077__CLASS_CMATCHER_BINDING.obj_hash = 386982082; + cdat->dsym_1077__CLASS_CMATCHER_BINDING.obj_len = 3; -/*inistring dstr_1076__CLASS_CMATCHER_B*/ - /*_.VALSTR___V1159*/ meltfptr[1158] = - (melt_ptr_t) & cdat->dstr_1076__CLASS_CMATCHER_B; - cdat->dstr_1076__CLASS_CMATCHER_B.discr = +/*inistring dstr_1078__CLASS_CMATCHER_B*/ + /*_.VALSTR___V1161*/ meltfptr[1160] = + (melt_ptr_t) & cdat->dstr_1078__CLASS_CMATCHER_B; + cdat->dstr_1078__CLASS_CMATCHER_B.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1076__CLASS_CMATCHER_B.val, + /*small inistring */ strncpy (cdat->dstr_1078__CLASS_CMATCHER_B.val, "CLASS_CMATCHER_BINDING", - sizeof (cdat->dstr_1076__CLASS_CMATCHER_B. + sizeof (cdat->dstr_1078__CLASS_CMATCHER_B. val) - 1); - cdat->dstr_1076__CLASS_CMATCHER_B.val[22] = (char) 0; - cdat->dstr_1076__CLASS_CMATCHER_B.slen = 22; + cdat->dstr_1078__CLASS_CMATCHER_B.val[22] = (char) 0; + cdat->dstr_1078__CLASS_CMATCHER_B.slen = 22; -/*iniobj dsym_1077__CLASS_FUNMATCHER_BINDING*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1160*/ meltfptr[1159]) -/*_.VALDATA___V1160*/ meltfptr[1159] = - (melt_ptr_t) & cdat->dsym_1077__CLASS_FUNMATCHER_BINDING; +/*iniobj dsym_1079__CLASS_FUNMATCHER_BINDING*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1162*/ meltfptr[1161]) +/*_.VALDATA___V1162*/ meltfptr[1161] = + (melt_ptr_t) & cdat->dsym_1079__CLASS_FUNMATCHER_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr isobj dsym_1077__CLASS_FUNMATCHER_BINDING", + ("iniobj check.discr isobj dsym_1079__CLASS_FUNMATCHER_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr objmagic dsym_1077__CLASS_FUNMATCHER_BINDING", + ("iniobj check.discr objmagic dsym_1079__CLASS_FUNMATCHER_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1077__CLASS_FUNMATCHER_BINDING.meltobj_class = + cdat->dsym_1079__CLASS_FUNMATCHER_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1077__CLASS_FUNMATCHER_BINDING.obj_hash = 81554237; - cdat->dsym_1077__CLASS_FUNMATCHER_BINDING.obj_len = 3; + cdat->dsym_1079__CLASS_FUNMATCHER_BINDING.obj_hash = 81554237; + cdat->dsym_1079__CLASS_FUNMATCHER_BINDING.obj_len = 3; -/*inistring dstr_1078__CLASS_FUNMATCHER*/ - /*_.VALSTR___V1161*/ meltfptr[1160] = - (melt_ptr_t) & cdat->dstr_1078__CLASS_FUNMATCHER; - cdat->dstr_1078__CLASS_FUNMATCHER.discr = +/*inistring dstr_1080__CLASS_FUNMATCHER*/ + /*_.VALSTR___V1163*/ meltfptr[1162] = + (melt_ptr_t) & cdat->dstr_1080__CLASS_FUNMATCHER; + cdat->dstr_1080__CLASS_FUNMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1078__CLASS_FUNMATCHER.val, + /*small inistring */ strncpy (cdat->dstr_1080__CLASS_FUNMATCHER.val, "CLASS_FUNMATCHER_BINDING", - sizeof (cdat->dstr_1078__CLASS_FUNMATCHER. + sizeof (cdat->dstr_1080__CLASS_FUNMATCHER. val) - 1); - cdat->dstr_1078__CLASS_FUNMATCHER.val[24] = (char) 0; - cdat->dstr_1078__CLASS_FUNMATCHER.slen = 24; + cdat->dstr_1080__CLASS_FUNMATCHER.val[24] = (char) 0; + cdat->dstr_1080__CLASS_FUNMATCHER.slen = 24; -/*iniobj dsym_1079__CLASS_FIELD_BINDING*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1162*/ meltfptr[1161]) -/*_.VALDATA___V1162*/ meltfptr[1161] = - (melt_ptr_t) & cdat->dsym_1079__CLASS_FIELD_BINDING; +/*iniobj dsym_1081__CLASS_FIELD_BINDING*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1164*/ meltfptr[1163]) +/*_.VALDATA___V1164*/ meltfptr[1163] = + (melt_ptr_t) & cdat->dsym_1081__CLASS_FIELD_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dsym_1079__CLASS_FIELD_BINDING", + melt_assertmsg ("iniobj check.discr isobj dsym_1081__CLASS_FIELD_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr objmagic dsym_1079__CLASS_FIELD_BINDING", + ("iniobj check.discr objmagic dsym_1081__CLASS_FIELD_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1079__CLASS_FIELD_BINDING.meltobj_class = + cdat->dsym_1081__CLASS_FIELD_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1079__CLASS_FIELD_BINDING.obj_hash = 412002748; - cdat->dsym_1079__CLASS_FIELD_BINDING.obj_len = 3; + cdat->dsym_1081__CLASS_FIELD_BINDING.obj_hash = 412002748; + cdat->dsym_1081__CLASS_FIELD_BINDING.obj_len = 3; -/*inistring dstr_1080__CLASS_FIELD_BIND*/ - /*_.VALSTR___V1163*/ meltfptr[1162] = - (melt_ptr_t) & cdat->dstr_1080__CLASS_FIELD_BIND; - cdat->dstr_1080__CLASS_FIELD_BIND.discr = +/*inistring dstr_1082__CLASS_FIELD_BIND*/ + /*_.VALSTR___V1165*/ meltfptr[1164] = + (melt_ptr_t) & cdat->dstr_1082__CLASS_FIELD_BIND; + cdat->dstr_1082__CLASS_FIELD_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1080__CLASS_FIELD_BIND.val, + /*small inistring */ strncpy (cdat->dstr_1082__CLASS_FIELD_BIND.val, "CLASS_FIELD_BINDING", - sizeof (cdat->dstr_1080__CLASS_FIELD_BIND. + sizeof (cdat->dstr_1082__CLASS_FIELD_BIND. val) - 1); - cdat->dstr_1080__CLASS_FIELD_BIND.val[19] = (char) 0; - cdat->dstr_1080__CLASS_FIELD_BIND.slen = 19; + cdat->dstr_1082__CLASS_FIELD_BIND.val[19] = (char) 0; + cdat->dstr_1082__CLASS_FIELD_BIND.slen = 19; -/*iniobj dsym_1081__CLASS_FORMAL_BINDING*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1164*/ meltfptr[1163]) -/*_.VALDATA___V1164*/ meltfptr[1163] = - (melt_ptr_t) & cdat->dsym_1081__CLASS_FORMAL_BINDING; +/*iniobj dsym_1083__CLASS_FORMAL_BINDING*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1166*/ meltfptr[1165]) +/*_.VALDATA___V1166*/ meltfptr[1165] = + (melt_ptr_t) & cdat->dsym_1083__CLASS_FORMAL_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr isobj dsym_1081__CLASS_FORMAL_BINDING", + ("iniobj check.discr isobj dsym_1083__CLASS_FORMAL_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr objmagic dsym_1081__CLASS_FORMAL_BINDING", + ("iniobj check.discr objmagic dsym_1083__CLASS_FORMAL_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1081__CLASS_FORMAL_BINDING.meltobj_class = + cdat->dsym_1083__CLASS_FORMAL_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1081__CLASS_FORMAL_BINDING.obj_hash = 3733780; - cdat->dsym_1081__CLASS_FORMAL_BINDING.obj_len = 3; + cdat->dsym_1083__CLASS_FORMAL_BINDING.obj_hash = 3733780; + cdat->dsym_1083__CLASS_FORMAL_BINDING.obj_len = 3; -/*inistring dstr_1082__CLASS_FORMAL_BIN*/ - /*_.VALSTR___V1165*/ meltfptr[1164] = - (melt_ptr_t) & cdat->dstr_1082__CLASS_FORMAL_BIN; - cdat->dstr_1082__CLASS_FORMAL_BIN.discr = +/*inistring dstr_1084__CLASS_FORMAL_BIN*/ + /*_.VALSTR___V1167*/ meltfptr[1166] = + (melt_ptr_t) & cdat->dstr_1084__CLASS_FORMAL_BIN; + cdat->dstr_1084__CLASS_FORMAL_BIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1082__CLASS_FORMAL_BIN.val, + /*small inistring */ strncpy (cdat->dstr_1084__CLASS_FORMAL_BIN.val, "CLASS_FORMAL_BINDING", - sizeof (cdat->dstr_1082__CLASS_FORMAL_BIN. + sizeof (cdat->dstr_1084__CLASS_FORMAL_BIN. val) - 1); - cdat->dstr_1082__CLASS_FORMAL_BIN.val[20] = (char) 0; - cdat->dstr_1082__CLASS_FORMAL_BIN.slen = 20; + cdat->dstr_1084__CLASS_FORMAL_BIN.val[20] = (char) 0; + cdat->dstr_1084__CLASS_FORMAL_BIN.slen = 20; -/*iniobj dsym_1083__CLASS_LET_BINDING*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1166*/ meltfptr[1165]) -/*_.VALDATA___V1166*/ meltfptr[1165] = - (melt_ptr_t) & cdat->dsym_1083__CLASS_LET_BINDING; +/*iniobj dsym_1085__CLASS_LET_BINDING*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1168*/ meltfptr[1167]) +/*_.VALDATA___V1168*/ meltfptr[1167] = + (melt_ptr_t) & cdat->dsym_1085__CLASS_LET_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dsym_1083__CLASS_LET_BINDING", + melt_assertmsg ("iniobj check.discr isobj dsym_1085__CLASS_LET_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr objmagic dsym_1083__CLASS_LET_BINDING", + ("iniobj check.discr objmagic dsym_1085__CLASS_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1083__CLASS_LET_BINDING.meltobj_class = + cdat->dsym_1085__CLASS_LET_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1083__CLASS_LET_BINDING.obj_hash = 373730517; - cdat->dsym_1083__CLASS_LET_BINDING.obj_len = 3; + cdat->dsym_1085__CLASS_LET_BINDING.obj_hash = 373730517; + cdat->dsym_1085__CLASS_LET_BINDING.obj_len = 3; -/*inistring dstr_1084__CLASS_LET_BINDIN*/ - /*_.VALSTR___V1167*/ meltfptr[1166] = - (melt_ptr_t) & cdat->dstr_1084__CLASS_LET_BINDIN; - cdat->dstr_1084__CLASS_LET_BINDIN.discr = +/*inistring dstr_1086__CLASS_LET_BINDIN*/ + /*_.VALSTR___V1169*/ meltfptr[1168] = + (melt_ptr_t) & cdat->dstr_1086__CLASS_LET_BINDIN; + cdat->dstr_1086__CLASS_LET_BINDIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1084__CLASS_LET_BINDIN.val, + /*small inistring */ strncpy (cdat->dstr_1086__CLASS_LET_BINDIN.val, "CLASS_LET_BINDING", - sizeof (cdat->dstr_1084__CLASS_LET_BINDIN. + sizeof (cdat->dstr_1086__CLASS_LET_BINDIN. val) - 1); - cdat->dstr_1084__CLASS_LET_BINDIN.val[17] = (char) 0; - cdat->dstr_1084__CLASS_LET_BINDIN.slen = 17; + cdat->dstr_1086__CLASS_LET_BINDIN.val[17] = (char) 0; + cdat->dstr_1086__CLASS_LET_BINDIN.slen = 17; -/*iniobj dsym_1085__CLASS_VALUE_BINDING*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1168*/ meltfptr[1167]) -/*_.VALDATA___V1168*/ meltfptr[1167] = - (melt_ptr_t) & cdat->dsym_1085__CLASS_VALUE_BINDING; +/*iniobj dsym_1087__CLASS_VALUE_BINDING*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1170*/ meltfptr[1169]) +/*_.VALDATA___V1170*/ meltfptr[1169] = + (melt_ptr_t) & cdat->dsym_1087__CLASS_VALUE_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dsym_1085__CLASS_VALUE_BINDING", + melt_assertmsg ("iniobj check.discr isobj dsym_1087__CLASS_VALUE_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr objmagic dsym_1085__CLASS_VALUE_BINDING", + ("iniobj check.discr objmagic dsym_1087__CLASS_VALUE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1085__CLASS_VALUE_BINDING.meltobj_class = + cdat->dsym_1087__CLASS_VALUE_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1085__CLASS_VALUE_BINDING.obj_hash = 952021086; - cdat->dsym_1085__CLASS_VALUE_BINDING.obj_len = 3; + cdat->dsym_1087__CLASS_VALUE_BINDING.obj_hash = 952021086; + cdat->dsym_1087__CLASS_VALUE_BINDING.obj_len = 3; -/*inistring dstr_1086__CLASS_VALUE_BIND*/ - /*_.VALSTR___V1169*/ meltfptr[1168] = - (melt_ptr_t) & cdat->dstr_1086__CLASS_VALUE_BIND; - cdat->dstr_1086__CLASS_VALUE_BIND.discr = +/*inistring dstr_1088__CLASS_VALUE_BIND*/ + /*_.VALSTR___V1171*/ meltfptr[1170] = + (melt_ptr_t) & cdat->dstr_1088__CLASS_VALUE_BIND; + cdat->dstr_1088__CLASS_VALUE_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1086__CLASS_VALUE_BIND.val, + /*small inistring */ strncpy (cdat->dstr_1088__CLASS_VALUE_BIND.val, "CLASS_VALUE_BINDING", - sizeof (cdat->dstr_1086__CLASS_VALUE_BIND. + sizeof (cdat->dstr_1088__CLASS_VALUE_BIND. val) - 1); - cdat->dstr_1086__CLASS_VALUE_BIND.val[19] = (char) 0; - cdat->dstr_1086__CLASS_VALUE_BIND.slen = 19; + cdat->dstr_1088__CLASS_VALUE_BIND.val[19] = (char) 0; + cdat->dstr_1088__CLASS_VALUE_BIND.slen = 19; -/*iniobj dsym_1087__CLASS_PRIMITIVE*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1170*/ meltfptr[1169]) -/*_.VALDATA___V1170*/ meltfptr[1169] = - (melt_ptr_t) & cdat->dsym_1087__CLASS_PRIMITIVE; +/*iniobj dsym_1089__CLASS_PRIMITIVE*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1172*/ meltfptr[1171]) +/*_.VALDATA___V1172*/ meltfptr[1171] = + (melt_ptr_t) & cdat->dsym_1089__CLASS_PRIMITIVE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dsym_1087__CLASS_PRIMITIVE", + melt_assertmsg ("iniobj check.discr isobj dsym_1089__CLASS_PRIMITIVE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr objmagic dsym_1087__CLASS_PRIMITIVE", + melt_assertmsg ("iniobj check.discr objmagic dsym_1089__CLASS_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1087__CLASS_PRIMITIVE.meltobj_class = + cdat->dsym_1089__CLASS_PRIMITIVE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1087__CLASS_PRIMITIVE.obj_hash = 102527506; - cdat->dsym_1087__CLASS_PRIMITIVE.obj_len = 3; + cdat->dsym_1089__CLASS_PRIMITIVE.obj_hash = 102527506; + cdat->dsym_1089__CLASS_PRIMITIVE.obj_len = 3; -/*inistring dstr_1088__CLASS_PRIMITIVE*/ - /*_.VALSTR___V1171*/ meltfptr[1170] = - (melt_ptr_t) & cdat->dstr_1088__CLASS_PRIMITIVE; - cdat->dstr_1088__CLASS_PRIMITIVE.discr = +/*inistring dstr_1090__CLASS_PRIMITIVE*/ + /*_.VALSTR___V1173*/ meltfptr[1172] = + (melt_ptr_t) & cdat->dstr_1090__CLASS_PRIMITIVE; + cdat->dstr_1090__CLASS_PRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1088__CLASS_PRIMITIVE.val, + /*small inistring */ strncpy (cdat->dstr_1090__CLASS_PRIMITIVE.val, "CLASS_PRIMITIVE", - sizeof (cdat->dstr_1088__CLASS_PRIMITIVE. + sizeof (cdat->dstr_1090__CLASS_PRIMITIVE. val) - 1); - cdat->dstr_1088__CLASS_PRIMITIVE.val[15] = (char) 0; - cdat->dstr_1088__CLASS_PRIMITIVE.slen = 15; + cdat->dstr_1090__CLASS_PRIMITIVE.val[15] = (char) 0; + cdat->dstr_1090__CLASS_PRIMITIVE.slen = 15; - /*inirout drout_1089__LAMBDA_ */ + /*inirout drout_1091__LAMBDA_ */ /*_.VALROUT___V1127*/ meltfptr[1126] = - (melt_ptr_t) & cdat->drout_1089__LAMBDA_; - cdat->drout_1089__LAMBDA_.discr = + (melt_ptr_t) & cdat->drout_1091__LAMBDA_; + cdat->drout_1091__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); - strncpy (cdat->drout_1089__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:1405", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1089__LAMBDA_.nbval = 0; - MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1089__LAMBDA_, + strncpy (cdat->drout_1091__LAMBDA_.routdescr, + "LAMBDA_ @warmelt-macro.melt:1410", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1091__LAMBDA_.nbval = 0; + MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1091__LAMBDA_, meltrout_17_warmelt_macro_LAMBDA___3__); - /*inirout drout_1090__EXPAND_PRIMITIVE */ + /*inirout drout_1092__EXPAND_PRIMITIVE */ /*_.VALROUT___V1113*/ meltfptr[1112] = - (melt_ptr_t) & cdat->drout_1090__EXPAND_PRIMITIVE; - cdat->drout_1090__EXPAND_PRIMITIVE.discr = + (melt_ptr_t) & cdat->drout_1092__EXPAND_PRIMITIVE; + cdat->drout_1092__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); - strncpy (cdat->drout_1090__EXPAND_PRIMITIVE.routdescr, - "EXPAND_PRIMITIVE @warmelt-macro.melt:1445", + strncpy (cdat->drout_1092__EXPAND_PRIMITIVE.routdescr, + "EXPAND_PRIMITIVE @warmelt-macro.melt:1450", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1090__EXPAND_PRIMITIVE.nbval = 5; - MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1090__EXPAND_PRIMITIVE, + cdat->drout_1092__EXPAND_PRIMITIVE.nbval = 5; + MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1092__EXPAND_PRIMITIVE, meltrout_18_warmelt_macro_EXPAND_PRIMITIVE); - /*iniclos dclo_1091__EXPAND_PRIMITIVE */ + /*iniclos dclo_1093__EXPAND_PRIMITIVE */ /*_.VALCLO___V1112*/ meltfptr[1111] = - (melt_ptr_t) & cdat->dclo_1091__EXPAND_PRIMITIVE; - cdat->dclo_1091__EXPAND_PRIMITIVE.discr = + (melt_ptr_t) & cdat->dclo_1093__EXPAND_PRIMITIVE; + cdat->dclo_1093__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); - cdat->dclo_1091__EXPAND_PRIMITIVE.nbval = 0; + cdat->dclo_1093__EXPAND_PRIMITIVE.nbval = 0; -/*iniobj dsym_1092__CLASS_PATTERN_EXPANSION_CONTEXT*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1172*/ meltfptr[1171]) -/*_.VALDATA___V1172*/ meltfptr[1171] = - (melt_ptr_t) & cdat->dsym_1092__CLASS_PATTERN_EXPANSION_CONTEXT; +/*iniobj dsym_1094__CLASS_PATTERN_EXPANSION_CONTEXT*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1174*/ meltfptr[1173]) +/*_.VALDATA___V1174*/ meltfptr[1173] = + (melt_ptr_t) & cdat->dsym_1094__CLASS_PATTERN_EXPANSION_CONTEXT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr isobj dsym_1092__CLASS_PATTERN_EXPANSION_CONTEXT", + ("iniobj check.discr isobj dsym_1094__CLASS_PATTERN_EXPANSION_CONTEXT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr objmagic dsym_1092__CLASS_PATTERN_EXPANSION_CONTEXT", + ("iniobj check.discr objmagic dsym_1094__CLASS_PATTERN_EXPANSION_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1092__CLASS_PATTERN_EXPANSION_CONTEXT.meltobj_class = + cdat->dsym_1094__CLASS_PATTERN_EXPANSION_CONTEXT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1092__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 532078431; - cdat->dsym_1092__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 3; + cdat->dsym_1094__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 532078431; + cdat->dsym_1094__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 3; -/*inistring dstr_1093__CLASS_PATTERN_EX*/ - /*_.VALSTR___V1173*/ meltfptr[1172] = - (melt_ptr_t) & cdat->dstr_1093__CLASS_PATTERN_EX; - cdat->dstr_1093__CLASS_PATTERN_EX.discr = +/*inistring dstr_1095__CLASS_PATTERN_EX*/ + /*_.VALSTR___V1175*/ meltfptr[1174] = + (melt_ptr_t) & cdat->dstr_1095__CLASS_PATTERN_EX; + cdat->dstr_1095__CLASS_PATTERN_EX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1093__CLASS_PATTERN_EX.val, + /*small inistring */ strncpy (cdat->dstr_1095__CLASS_PATTERN_EX.val, "CLASS_PATTERN_EXPANSION_CONTEXT", - sizeof (cdat->dstr_1093__CLASS_PATTERN_EX. + sizeof (cdat->dstr_1095__CLASS_PATTERN_EX. val) - 1); - cdat->dstr_1093__CLASS_PATTERN_EX.val[31] = (char) 0; - cdat->dstr_1093__CLASS_PATTERN_EX.slen = 31; + cdat->dstr_1095__CLASS_PATTERN_EX.val[31] = (char) 0; + cdat->dstr_1095__CLASS_PATTERN_EX.slen = 31; -/*iniobj dsym_1094__CLASS_ROOT*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1174*/ meltfptr[1173]) -/*_.VALDATA___V1174*/ meltfptr[1173] = - (melt_ptr_t) & cdat->dsym_1094__CLASS_ROOT; +/*iniobj dsym_1096__CLASS_ROOT*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1176*/ meltfptr[1175]) +/*_.VALDATA___V1176*/ meltfptr[1175] = + (melt_ptr_t) & cdat->dsym_1096__CLASS_ROOT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dsym_1094__CLASS_ROOT", + melt_assertmsg ("iniobj check.discr isobj dsym_1096__CLASS_ROOT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr objmagic dsym_1094__CLASS_ROOT", + melt_assertmsg ("iniobj check.discr objmagic dsym_1096__CLASS_ROOT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1094__CLASS_ROOT.meltobj_class = + cdat->dsym_1096__CLASS_ROOT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1094__CLASS_ROOT.obj_hash = 60568825; - cdat->dsym_1094__CLASS_ROOT.obj_len = 3; + cdat->dsym_1096__CLASS_ROOT.obj_hash = 60568825; + cdat->dsym_1096__CLASS_ROOT.obj_len = 3; -/*inistring dstr_1095__CLASS_ROOT*/ - /*_.VALSTR___V1175*/ meltfptr[1174] = - (melt_ptr_t) & cdat->dstr_1095__CLASS_ROOT; - cdat->dstr_1095__CLASS_ROOT.discr = +/*inistring dstr_1097__CLASS_ROOT*/ + /*_.VALSTR___V1177*/ meltfptr[1176] = + (melt_ptr_t) & cdat->dstr_1097__CLASS_ROOT; + cdat->dstr_1097__CLASS_ROOT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1095__CLASS_ROOT.val, "CLASS_ROOT", - sizeof (cdat->dstr_1095__CLASS_ROOT.val) - 1); - cdat->dstr_1095__CLASS_ROOT.val[10] = (char) 0; - cdat->dstr_1095__CLASS_ROOT.slen = 10; + /*small inistring */ strncpy (cdat->dstr_1097__CLASS_ROOT.val, "CLASS_ROOT", + sizeof (cdat->dstr_1097__CLASS_ROOT.val) - 1); + cdat->dstr_1097__CLASS_ROOT.val[10] = (char) 0; + cdat->dstr_1097__CLASS_ROOT.slen = 10; - MELT_LOCATION ("warmelt-macro.melt:1463:/ iniobj"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ iniobj"); -/*iniobj dobj_1096__CLASS_PATTERN_EXPANSION_CONTEXT*/ -/*_.VALDATA___V1176*/ meltfptr[1175] = - (melt_ptr_t) & cdat->dobj_1096__CLASS_PATTERN_EXPANSION_CONTEXT; +/*iniobj dobj_1098__CLASS_PATTERN_EXPANSION_CONTEXT*/ +/*_.VALDATA___V1178*/ meltfptr[1177] = + (melt_ptr_t) & cdat->dobj_1098__CLASS_PATTERN_EXPANSION_CONTEXT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr isobj dobj_1096__CLASS_PATTERN_EXPANSION_CONTEXT", + ("iniobj check.discr isobj dobj_1098__CLASS_PATTERN_EXPANSION_CONTEXT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr objmagic dobj_1096__CLASS_PATTERN_EXPANSION_CONTEXT", + ("iniobj check.discr objmagic dobj_1098__CLASS_PATTERN_EXPANSION_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_1096__CLASS_PATTERN_EXPANSION_CONTEXT.meltobj_class = + cdat->dobj_1098__CLASS_PATTERN_EXPANSION_CONTEXT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); - cdat->dobj_1096__CLASS_PATTERN_EXPANSION_CONTEXT.obj_num = MELTOBMAG_OBJECT; - cdat->dobj_1096__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 831311114; - cdat->dobj_1096__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 8; + cdat->dobj_1098__CLASS_PATTERN_EXPANSION_CONTEXT.obj_num = MELTOBMAG_OBJECT; + cdat->dobj_1098__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 16722192; + cdat->dobj_1098__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 8; -/*inistring dstr_1097__CLASS_PATTERN_EX*/ - /*_.VALSTR___V1177*/ meltfptr[1176] = - (melt_ptr_t) & cdat->dstr_1097__CLASS_PATTERN_EX; - cdat->dstr_1097__CLASS_PATTERN_EX.discr = +/*inistring dstr_1099__CLASS_PATTERN_EX*/ + /*_.VALSTR___V1179*/ meltfptr[1178] = + (melt_ptr_t) & cdat->dstr_1099__CLASS_PATTERN_EX; + cdat->dstr_1099__CLASS_PATTERN_EX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1097__CLASS_PATTERN_EX.val, + /*small inistring */ strncpy (cdat->dstr_1099__CLASS_PATTERN_EX.val, "CLASS_PATTERN_EXPANSION_CONTEXT", - sizeof (cdat->dstr_1097__CLASS_PATTERN_EX. + sizeof (cdat->dstr_1099__CLASS_PATTERN_EX. val) - 1); - cdat->dstr_1097__CLASS_PATTERN_EX.val[31] = (char) 0; - cdat->dstr_1097__CLASS_PATTERN_EX.slen = 31; + cdat->dstr_1099__CLASS_PATTERN_EX.val[31] = (char) 0; + cdat->dstr_1099__CLASS_PATTERN_EX.slen = 31; - /*inimult dtup_1098__CLASS_PATTERN_EXPANSION_CONTEXT */ - /*_.VALTUP___V1178*/ meltfptr[1177] = - (melt_ptr_t) & cdat->dtup_1098__CLASS_PATTERN_EXPANSION_CONTEXT; - cdat->dtup_1098__CLASS_PATTERN_EXPANSION_CONTEXT.discr = + /*inimult dtup_1100__CLASS_PATTERN_EXPANSION_CONTEXT */ + /*_.VALTUP___V1180*/ meltfptr[1179] = + (melt_ptr_t) & cdat->dtup_1100__CLASS_PATTERN_EXPANSION_CONTEXT; + cdat->dtup_1100__CLASS_PATTERN_EXPANSION_CONTEXT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); - cdat->dtup_1098__CLASS_PATTERN_EXPANSION_CONTEXT.nbval = 1; - /*inimult dtup_1099__CLASS_PATTERN_EXPANSION_CONTEXT */ - /*_.VALTUP___V1187*/ meltfptr[1186] = - (melt_ptr_t) & cdat->dtup_1099__CLASS_PATTERN_EXPANSION_CONTEXT; - cdat->dtup_1099__CLASS_PATTERN_EXPANSION_CONTEXT.discr = + cdat->dtup_1100__CLASS_PATTERN_EXPANSION_CONTEXT.nbval = 1; + /*inimult dtup_1101__CLASS_PATTERN_EXPANSION_CONTEXT */ + /*_.VALTUP___V1189*/ meltfptr[1188] = + (melt_ptr_t) & cdat->dtup_1101__CLASS_PATTERN_EXPANSION_CONTEXT; + cdat->dtup_1101__CLASS_PATTERN_EXPANSION_CONTEXT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); - cdat->dtup_1099__CLASS_PATTERN_EXPANSION_CONTEXT.nbval = 4; + cdat->dtup_1101__CLASS_PATTERN_EXPANSION_CONTEXT.nbval = 4; -/*iniobj dsym_1100__PCTX_MEXPANDER*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1188*/ meltfptr[1187]) -/*_.VALDATA___V1188*/ meltfptr[1187] = - (melt_ptr_t) & cdat->dsym_1100__PCTX_MEXPANDER; +/*iniobj dsym_1102__PCTX_MEXPANDER*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1190*/ meltfptr[1189]) +/*_.VALDATA___V1190*/ meltfptr[1189] = + (melt_ptr_t) & cdat->dsym_1102__PCTX_MEXPANDER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dsym_1100__PCTX_MEXPANDER", + melt_assertmsg ("iniobj check.discr isobj dsym_1102__PCTX_MEXPANDER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr objmagic dsym_1100__PCTX_MEXPANDER", + melt_assertmsg ("iniobj check.discr objmagic dsym_1102__PCTX_MEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1100__PCTX_MEXPANDER.meltobj_class = + cdat->dsym_1102__PCTX_MEXPANDER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1100__PCTX_MEXPANDER.obj_hash = 715065668; - cdat->dsym_1100__PCTX_MEXPANDER.obj_len = 3; + cdat->dsym_1102__PCTX_MEXPANDER.obj_hash = 715065668; + cdat->dsym_1102__PCTX_MEXPANDER.obj_len = 3; -/*inistring dstr_1101__PCTX_MEXPANDER*/ - /*_.VALSTR___V1189*/ meltfptr[1188] = - (melt_ptr_t) & cdat->dstr_1101__PCTX_MEXPANDER; - cdat->dstr_1101__PCTX_MEXPANDER.discr = +/*inistring dstr_1103__PCTX_MEXPANDER*/ + /*_.VALSTR___V1191*/ meltfptr[1190] = + (melt_ptr_t) & cdat->dstr_1103__PCTX_MEXPANDER; + cdat->dstr_1103__PCTX_MEXPANDER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1101__PCTX_MEXPANDER.val, + /*small inistring */ strncpy (cdat->dstr_1103__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", - sizeof (cdat->dstr_1101__PCTX_MEXPANDER.val) - + sizeof (cdat->dstr_1103__PCTX_MEXPANDER.val) - 1); - cdat->dstr_1101__PCTX_MEXPANDER.val[14] = (char) 0; - cdat->dstr_1101__PCTX_MEXPANDER.slen = 14; + cdat->dstr_1103__PCTX_MEXPANDER.val[14] = (char) 0; + cdat->dstr_1103__PCTX_MEXPANDER.slen = 14; /*^iniobj */ -/*iniobj dobj_1102__PCTX_MEXPANDER*/ -/*_.VALDATA___V1179*/ meltfptr[1178] = - (melt_ptr_t) & cdat->dobj_1102__PCTX_MEXPANDER; +/*iniobj dobj_1104__PCTX_MEXPANDER*/ +/*_.VALDATA___V1181*/ meltfptr[1180] = + (melt_ptr_t) & cdat->dobj_1104__PCTX_MEXPANDER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dobj_1102__PCTX_MEXPANDER", + melt_assertmsg ("iniobj check.discr isobj dobj_1104__PCTX_MEXPANDER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr objmagic dobj_1102__PCTX_MEXPANDER", + melt_assertmsg ("iniobj check.discr objmagic dobj_1104__PCTX_MEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_1102__PCTX_MEXPANDER.meltobj_class = + cdat->dobj_1104__PCTX_MEXPANDER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); - cdat->dobj_1102__PCTX_MEXPANDER.obj_num = 0; - cdat->dobj_1102__PCTX_MEXPANDER.obj_hash = 612254499; - cdat->dobj_1102__PCTX_MEXPANDER.obj_len = 4; + cdat->dobj_1104__PCTX_MEXPANDER.obj_num = 0; + cdat->dobj_1104__PCTX_MEXPANDER.obj_hash = 1002515663; + cdat->dobj_1104__PCTX_MEXPANDER.obj_len = 4; -/*inistring dstr_1103__PCTX_MEXPANDER*/ - /*_.VALSTR___V1180*/ meltfptr[1179] = - (melt_ptr_t) & cdat->dstr_1103__PCTX_MEXPANDER; - cdat->dstr_1103__PCTX_MEXPANDER.discr = +/*inistring dstr_1105__PCTX_MEXPANDER*/ + /*_.VALSTR___V1182*/ meltfptr[1181] = + (melt_ptr_t) & cdat->dstr_1105__PCTX_MEXPANDER; + cdat->dstr_1105__PCTX_MEXPANDER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1103__PCTX_MEXPANDER.val, + /*small inistring */ strncpy (cdat->dstr_1105__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", - sizeof (cdat->dstr_1103__PCTX_MEXPANDER.val) - + sizeof (cdat->dstr_1105__PCTX_MEXPANDER.val) - 1); - cdat->dstr_1103__PCTX_MEXPANDER.val[14] = (char) 0; - cdat->dstr_1103__PCTX_MEXPANDER.slen = 14; + cdat->dstr_1105__PCTX_MEXPANDER.val[14] = (char) 0; + cdat->dstr_1105__PCTX_MEXPANDER.slen = 14; -/*iniobj dsym_1104__PCTX_PEXPANDER*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1190*/ meltfptr[1189]) -/*_.VALDATA___V1190*/ meltfptr[1189] = - (melt_ptr_t) & cdat->dsym_1104__PCTX_PEXPANDER; +/*iniobj dsym_1106__PCTX_PEXPANDER*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1192*/ meltfptr[1191]) +/*_.VALDATA___V1192*/ meltfptr[1191] = + (melt_ptr_t) & cdat->dsym_1106__PCTX_PEXPANDER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dsym_1104__PCTX_PEXPANDER", + melt_assertmsg ("iniobj check.discr isobj dsym_1106__PCTX_PEXPANDER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr objmagic dsym_1104__PCTX_PEXPANDER", + melt_assertmsg ("iniobj check.discr objmagic dsym_1106__PCTX_PEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1104__PCTX_PEXPANDER.meltobj_class = + cdat->dsym_1106__PCTX_PEXPANDER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1104__PCTX_PEXPANDER.obj_hash = 169945608; - cdat->dsym_1104__PCTX_PEXPANDER.obj_len = 3; + cdat->dsym_1106__PCTX_PEXPANDER.obj_hash = 169945608; + cdat->dsym_1106__PCTX_PEXPANDER.obj_len = 3; -/*inistring dstr_1105__PCTX_PEXPANDER*/ - /*_.VALSTR___V1191*/ meltfptr[1190] = - (melt_ptr_t) & cdat->dstr_1105__PCTX_PEXPANDER; - cdat->dstr_1105__PCTX_PEXPANDER.discr = +/*inistring dstr_1107__PCTX_PEXPANDER*/ + /*_.VALSTR___V1193*/ meltfptr[1192] = + (melt_ptr_t) & cdat->dstr_1107__PCTX_PEXPANDER; + cdat->dstr_1107__PCTX_PEXPANDER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1105__PCTX_PEXPANDER.val, + /*small inistring */ strncpy (cdat->dstr_1107__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", - sizeof (cdat->dstr_1105__PCTX_PEXPANDER.val) - + sizeof (cdat->dstr_1107__PCTX_PEXPANDER.val) - 1); - cdat->dstr_1105__PCTX_PEXPANDER.val[14] = (char) 0; - cdat->dstr_1105__PCTX_PEXPANDER.slen = 14; + cdat->dstr_1107__PCTX_PEXPANDER.val[14] = (char) 0; + cdat->dstr_1107__PCTX_PEXPANDER.slen = 14; /*^iniobj */ -/*iniobj dobj_1106__PCTX_PEXPANDER*/ -/*_.VALDATA___V1181*/ meltfptr[1180] = - (melt_ptr_t) & cdat->dobj_1106__PCTX_PEXPANDER; +/*iniobj dobj_1108__PCTX_PEXPANDER*/ +/*_.VALDATA___V1183*/ meltfptr[1182] = + (melt_ptr_t) & cdat->dobj_1108__PCTX_PEXPANDER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dobj_1106__PCTX_PEXPANDER", + melt_assertmsg ("iniobj check.discr isobj dobj_1108__PCTX_PEXPANDER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr objmagic dobj_1106__PCTX_PEXPANDER", + melt_assertmsg ("iniobj check.discr objmagic dobj_1108__PCTX_PEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_1106__PCTX_PEXPANDER.meltobj_class = + cdat->dobj_1108__PCTX_PEXPANDER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); - cdat->dobj_1106__PCTX_PEXPANDER.obj_num = 1; - cdat->dobj_1106__PCTX_PEXPANDER.obj_hash = 207565014; - cdat->dobj_1106__PCTX_PEXPANDER.obj_len = 4; + cdat->dobj_1108__PCTX_PEXPANDER.obj_num = 1; + cdat->dobj_1108__PCTX_PEXPANDER.obj_hash = 340614571; + cdat->dobj_1108__PCTX_PEXPANDER.obj_len = 4; -/*inistring dstr_1107__PCTX_PEXPANDER*/ - /*_.VALSTR___V1182*/ meltfptr[1181] = - (melt_ptr_t) & cdat->dstr_1107__PCTX_PEXPANDER; - cdat->dstr_1107__PCTX_PEXPANDER.discr = +/*inistring dstr_1109__PCTX_PEXPANDER*/ + /*_.VALSTR___V1184*/ meltfptr[1183] = + (melt_ptr_t) & cdat->dstr_1109__PCTX_PEXPANDER; + cdat->dstr_1109__PCTX_PEXPANDER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1107__PCTX_PEXPANDER.val, + /*small inistring */ strncpy (cdat->dstr_1109__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", - sizeof (cdat->dstr_1107__PCTX_PEXPANDER.val) - + sizeof (cdat->dstr_1109__PCTX_PEXPANDER.val) - 1); - cdat->dstr_1107__PCTX_PEXPANDER.val[14] = (char) 0; - cdat->dstr_1107__PCTX_PEXPANDER.slen = 14; + cdat->dstr_1109__PCTX_PEXPANDER.val[14] = (char) 0; + cdat->dstr_1109__PCTX_PEXPANDER.slen = 14; -/*iniobj dsym_1108__PCTX_VARMAP*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1192*/ meltfptr[1191]) -/*_.VALDATA___V1192*/ meltfptr[1191] = - (melt_ptr_t) & cdat->dsym_1108__PCTX_VARMAP; +/*iniobj dsym_1110__PCTX_VARMAP*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1194*/ meltfptr[1193]) +/*_.VALDATA___V1194*/ meltfptr[1193] = + (melt_ptr_t) & cdat->dsym_1110__PCTX_VARMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dsym_1108__PCTX_VARMAP", + melt_assertmsg ("iniobj check.discr isobj dsym_1110__PCTX_VARMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr objmagic dsym_1108__PCTX_VARMAP", + melt_assertmsg ("iniobj check.discr objmagic dsym_1110__PCTX_VARMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1108__PCTX_VARMAP.meltobj_class = + cdat->dsym_1110__PCTX_VARMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1108__PCTX_VARMAP.obj_hash = 83805471; - cdat->dsym_1108__PCTX_VARMAP.obj_len = 3; + cdat->dsym_1110__PCTX_VARMAP.obj_hash = 83805471; + cdat->dsym_1110__PCTX_VARMAP.obj_len = 3; -/*inistring dstr_1109__PCTX_VARMAP*/ - /*_.VALSTR___V1193*/ meltfptr[1192] = - (melt_ptr_t) & cdat->dstr_1109__PCTX_VARMAP; - cdat->dstr_1109__PCTX_VARMAP.discr = +/*inistring dstr_1111__PCTX_VARMAP*/ + /*_.VALSTR___V1195*/ meltfptr[1194] = + (melt_ptr_t) & cdat->dstr_1111__PCTX_VARMAP; + cdat->dstr_1111__PCTX_VARMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1109__PCTX_VARMAP.val, + /*small inistring */ strncpy (cdat->dstr_1111__PCTX_VARMAP.val, "PCTX_VARMAP", - sizeof (cdat->dstr_1109__PCTX_VARMAP.val) - + sizeof (cdat->dstr_1111__PCTX_VARMAP.val) - 1); - cdat->dstr_1109__PCTX_VARMAP.val[11] = (char) 0; - cdat->dstr_1109__PCTX_VARMAP.slen = 11; + cdat->dstr_1111__PCTX_VARMAP.val[11] = (char) 0; + cdat->dstr_1111__PCTX_VARMAP.slen = 11; /*^iniobj */ -/*iniobj dobj_1110__PCTX_VARMAP*/ -/*_.VALDATA___V1183*/ meltfptr[1182] = - (melt_ptr_t) & cdat->dobj_1110__PCTX_VARMAP; +/*iniobj dobj_1112__PCTX_VARMAP*/ +/*_.VALDATA___V1185*/ meltfptr[1184] = + (melt_ptr_t) & cdat->dobj_1112__PCTX_VARMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dobj_1110__PCTX_VARMAP", + melt_assertmsg ("iniobj check.discr isobj dobj_1112__PCTX_VARMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr objmagic dobj_1110__PCTX_VARMAP", + melt_assertmsg ("iniobj check.discr objmagic dobj_1112__PCTX_VARMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_1110__PCTX_VARMAP.meltobj_class = + cdat->dobj_1112__PCTX_VARMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); - cdat->dobj_1110__PCTX_VARMAP.obj_num = 2; - cdat->dobj_1110__PCTX_VARMAP.obj_hash = 972797237; - cdat->dobj_1110__PCTX_VARMAP.obj_len = 4; + cdat->dobj_1112__PCTX_VARMAP.obj_num = 2; + cdat->dobj_1112__PCTX_VARMAP.obj_hash = 871346560; + cdat->dobj_1112__PCTX_VARMAP.obj_len = 4; -/*inistring dstr_1111__PCTX_VARMAP*/ - /*_.VALSTR___V1184*/ meltfptr[1183] = - (melt_ptr_t) & cdat->dstr_1111__PCTX_VARMAP; - cdat->dstr_1111__PCTX_VARMAP.discr = +/*inistring dstr_1113__PCTX_VARMAP*/ + /*_.VALSTR___V1186*/ meltfptr[1185] = + (melt_ptr_t) & cdat->dstr_1113__PCTX_VARMAP; + cdat->dstr_1113__PCTX_VARMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1111__PCTX_VARMAP.val, + /*small inistring */ strncpy (cdat->dstr_1113__PCTX_VARMAP.val, "PCTX_VARMAP", - sizeof (cdat->dstr_1111__PCTX_VARMAP.val) - + sizeof (cdat->dstr_1113__PCTX_VARMAP.val) - 1); - cdat->dstr_1111__PCTX_VARMAP.val[11] = (char) 0; - cdat->dstr_1111__PCTX_VARMAP.slen = 11; + cdat->dstr_1113__PCTX_VARMAP.val[11] = (char) 0; + cdat->dstr_1113__PCTX_VARMAP.slen = 11; -/*iniobj dsym_1112__PCTX_MODCTX*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1194*/ meltfptr[1193]) -/*_.VALDATA___V1194*/ meltfptr[1193] = - (melt_ptr_t) & cdat->dsym_1112__PCTX_MODCTX; +/*iniobj dsym_1114__PCTX_MODCTX*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1196*/ meltfptr[1195]) +/*_.VALDATA___V1196*/ meltfptr[1195] = + (melt_ptr_t) & cdat->dsym_1114__PCTX_MODCTX; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dsym_1112__PCTX_MODCTX", + melt_assertmsg ("iniobj check.discr isobj dsym_1114__PCTX_MODCTX", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr objmagic dsym_1112__PCTX_MODCTX", + melt_assertmsg ("iniobj check.discr objmagic dsym_1114__PCTX_MODCTX", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1112__PCTX_MODCTX.meltobj_class = + cdat->dsym_1114__PCTX_MODCTX.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1112__PCTX_MODCTX.obj_hash = 770769253; - cdat->dsym_1112__PCTX_MODCTX.obj_len = 3; + cdat->dsym_1114__PCTX_MODCTX.obj_hash = 770769253; + cdat->dsym_1114__PCTX_MODCTX.obj_len = 3; -/*inistring dstr_1113__PCTX_MODCTX*/ - /*_.VALSTR___V1195*/ meltfptr[1194] = - (melt_ptr_t) & cdat->dstr_1113__PCTX_MODCTX; - cdat->dstr_1113__PCTX_MODCTX.discr = +/*inistring dstr_1115__PCTX_MODCTX*/ + /*_.VALSTR___V1197*/ meltfptr[1196] = + (melt_ptr_t) & cdat->dstr_1115__PCTX_MODCTX; + cdat->dstr_1115__PCTX_MODCTX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1113__PCTX_MODCTX.val, + /*small inistring */ strncpy (cdat->dstr_1115__PCTX_MODCTX.val, "PCTX_MODCTX", - sizeof (cdat->dstr_1113__PCTX_MODCTX.val) - + sizeof (cdat->dstr_1115__PCTX_MODCTX.val) - 1); - cdat->dstr_1113__PCTX_MODCTX.val[11] = (char) 0; - cdat->dstr_1113__PCTX_MODCTX.slen = 11; + cdat->dstr_1115__PCTX_MODCTX.val[11] = (char) 0; + cdat->dstr_1115__PCTX_MODCTX.slen = 11; /*^iniobj */ -/*iniobj dobj_1114__PCTX_MODCTX*/ -/*_.VALDATA___V1185*/ meltfptr[1184] = - (melt_ptr_t) & cdat->dobj_1114__PCTX_MODCTX; +/*iniobj dobj_1116__PCTX_MODCTX*/ +/*_.VALDATA___V1187*/ meltfptr[1186] = + (melt_ptr_t) & cdat->dobj_1116__PCTX_MODCTX; if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dobj_1114__PCTX_MODCTX", + melt_assertmsg ("iniobj check.discr isobj dobj_1116__PCTX_MODCTX", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr objmagic dobj_1114__PCTX_MODCTX", + melt_assertmsg ("iniobj check.discr objmagic dobj_1116__PCTX_MODCTX", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dobj_1114__PCTX_MODCTX.meltobj_class = + cdat->dobj_1116__PCTX_MODCTX.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); - cdat->dobj_1114__PCTX_MODCTX.obj_num = 3; - cdat->dobj_1114__PCTX_MODCTX.obj_hash = 216953838; - cdat->dobj_1114__PCTX_MODCTX.obj_len = 4; + cdat->dobj_1116__PCTX_MODCTX.obj_num = 3; + cdat->dobj_1116__PCTX_MODCTX.obj_hash = 900385256; + cdat->dobj_1116__PCTX_MODCTX.obj_len = 4; -/*inistring dstr_1115__PCTX_MODCTX*/ - /*_.VALSTR___V1186*/ meltfptr[1185] = - (melt_ptr_t) & cdat->dstr_1115__PCTX_MODCTX; - cdat->dstr_1115__PCTX_MODCTX.discr = +/*inistring dstr_1117__PCTX_MODCTX*/ + /*_.VALSTR___V1188*/ meltfptr[1187] = + (melt_ptr_t) & cdat->dstr_1117__PCTX_MODCTX; + cdat->dstr_1117__PCTX_MODCTX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1115__PCTX_MODCTX.val, + /*small inistring */ strncpy (cdat->dstr_1117__PCTX_MODCTX.val, "PCTX_MODCTX", - sizeof (cdat->dstr_1115__PCTX_MODCTX.val) - + sizeof (cdat->dstr_1117__PCTX_MODCTX.val) - 1); - cdat->dstr_1115__PCTX_MODCTX.val[11] = (char) 0; - cdat->dstr_1115__PCTX_MODCTX.slen = 11; + cdat->dstr_1117__PCTX_MODCTX.val[11] = (char) 0; + cdat->dstr_1117__PCTX_MODCTX.slen = 11; - /*inirout drout_1116__PATTERNEXPAND_PAIRLIST_AS_TUPLE */ - /*_.VALROUT___V1196*/ meltfptr[1195] = - (melt_ptr_t) & cdat->drout_1116__PATTERNEXPAND_PAIRLIST_AS_TUPLE; - cdat->drout_1116__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = + /*inirout drout_1118__PATTERNEXPAND_PAIRLIST_AS_TUPLE */ + /*_.VALROUT___V1198*/ meltfptr[1197] = + (melt_ptr_t) & cdat->drout_1118__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + cdat->drout_1118__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); - strncpy (cdat->drout_1116__PATTERNEXPAND_PAIRLIST_AS_TUPLE.routdescr, - "PATTERNEXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.melt:1476", + strncpy (cdat->drout_1118__PATTERNEXPAND_PAIRLIST_AS_TUPLE.routdescr, + "PATTERNEXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.melt:1481", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1116__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 5; + cdat->drout_1118__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> - drout_1116__PATTERNEXPAND_PAIRLIST_AS_TUPLE, + drout_1118__PATTERNEXPAND_PAIRLIST_AS_TUPLE, meltrout_19_warmelt_macro_PATTERNEXPAND_PAIRLIST_AS_TUPLE); - /*iniclos dclo_1117__PATTERNEXPAND_PAIRLIST_AS_TUPLE */ - /*_.VALCLO___V1217*/ meltfptr[1216] = - (melt_ptr_t) & cdat->dclo_1117__PATTERNEXPAND_PAIRLIST_AS_TUPLE; - cdat->dclo_1117__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = + /*iniclos dclo_1119__PATTERNEXPAND_PAIRLIST_AS_TUPLE */ + /*_.VALCLO___V1219*/ meltfptr[1218] = + (melt_ptr_t) & cdat->dclo_1119__PATTERNEXPAND_PAIRLIST_AS_TUPLE; + cdat->dclo_1119__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); - cdat->dclo_1117__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 0; + cdat->dclo_1119__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 0; -/*iniobj dsym_1118__PAIRLIST_TO_MULTIPLE*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1218*/ meltfptr[1217]) -/*_.VALDATA___V1218*/ meltfptr[1217] = - (melt_ptr_t) & cdat->dsym_1118__PAIRLIST_TO_MULTIPLE; +/*iniobj dsym_1120__PAIRLIST_TO_MULTIPLE*/ + /*uniqueobj*/ if (! /*_.VALDATA___V1220*/ meltfptr[1219]) +/*_.VALDATA___V1220*/ meltfptr[1219] = + (melt_ptr_t) & cdat->dsym_1120__PAIRLIST_TO_MULTIPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr isobj dsym_1118__PAIRLIST_TO_MULTIPLE", + ("iniobj check.discr isobj dsym_1120__PAIRLIST_TO_MULTIPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg - ("iniobj check.discr objmagic dsym_1118__PAIRLIST_TO_MULTIPLE", + ("iniobj check.discr objmagic dsym_1120__PAIRLIST_TO_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1118__PAIRLIST_TO_MULTIPLE.meltobj_class = + cdat->dsym_1120__PAIRLIST_TO_MULTIPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1118__PAIRLIST_TO_MULTIPLE.obj_hash = 205669322; - cdat->dsym_1118__PAIRLIST_TO_MULTIPLE.obj_len = 3; + cdat->dsym_1120__PAIRLIST_TO_MULTIPLE.obj_hash = 205669322; + cdat->dsym_1120__PAIRLIST_TO_MULTIPLE.obj_len = 3; -/*inistring dstr_1119__PAIRLIST_TO_MULT*/ - /*_.VALSTR___V1219*/ meltfptr[1218] = - (melt_ptr_t) & cdat->dstr_1119__PAIRLIST_TO_MULT; - cdat->dstr_1119__PAIRLIST_TO_MULT.discr = +/*inistring dstr_1121__PAIRLIST_TO_MULT*/ + /*_.VALSTR___V1221*/ meltfptr[1220] = + (melt_ptr_t) & cdat->dstr_1121__PAIRLIST_TO_MULT; + cdat->dstr_1121__PAIRLIST_TO_MULT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1119__PAIRLIST_TO_MULT.val, + /*small inistring */ strncpy (cdat->dstr_1121__PAIRLIST_TO_MULT.val, "PAIRLIST_TO_MULTIPLE", - sizeof (cdat->dstr_1119__PAIRLIST_TO_MULT. + sizeof (cdat->dstr_1121__PAIRLIST_TO_MULT. val) - 1); - cdat->dstr_1119__PAIRLIST_TO_MULT.val[20] = (char) 0; - cdat->dstr_1119__PAIRLIST_TO_MULT.slen = 20; + cdat->dstr_1121__PAIRLIST_TO_MULT.val[20] = (char) 0; + cdat->dstr_1121__PAIRLIST_TO_MULT.slen = 20; - /*inirout drout_1120__LAMBDA_ */ - /*_.VALROUT___V1216*/ meltfptr[1215] = - (melt_ptr_t) & cdat->drout_1120__LAMBDA_; - cdat->drout_1120__LAMBDA_.discr = + /*inirout drout_1122__LAMBDA_ */ + /*_.VALROUT___V1218*/ meltfptr[1217] = + (melt_ptr_t) & cdat->drout_1122__LAMBDA_; + cdat->drout_1122__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); - strncpy (cdat->drout_1120__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:1480", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1120__LAMBDA_.nbval = 1; - MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1120__LAMBDA_, + strncpy (cdat->drout_1122__LAMBDA_.routdescr, + "LAMBDA_ @warmelt-macro.melt:1485", MELT_ROUTDESCR_LEN - 1); + cdat->drout_1122__LAMBDA_.nbval = 1; + MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1122__LAMBDA_, meltrout_20_warmelt_macro_LAMBDA___4__); - /*inirout drout_1121__PATMACEXPAND_FOR_MATCHER */ - /*_.VALROUT___V1209*/ meltfptr[1208] = - (melt_ptr_t) & cdat->drout_1121__PATMACEXPAND_FOR_MATCHER; - cdat->drout_1121__PATMACEXPAND_FOR_MATCHER.discr = + /*inirout drout_1123__PATMACEXPAND_FOR_MATCHER */ + /*_.VALROUT___V1211*/ meltfptr[1210] = + (melt_ptr_t) & cdat->drout_1123__PATMACEXPAND_FOR_MATCHER; + cdat->drout_1123__PATMACEXPAND_FOR_MATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); - strncpy (cdat->drout_1121__PATMACEXPAND_FOR_MATCHER.routdescr, - "PATMACEXPAND_FOR_MATCHER @warmelt-macro.melt:1490", + strncpy (cdat->drout_1123__PATMACEXPAND_FOR_MATCHER.routdescr, + "PATMACEXPAND_FOR_MATCHER @warmelt-macro.melt:1495", MELT_ROUTDESCR_LEN - 1); - cdat->drout_1121__PATMACEXPAND_FOR_MATCHER.nbval = 15; - MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1121__PATMACEXPAND_FOR_MATCHER, + cdat->drout_1123__PATMACEXPAND_FOR_MATCHER.nbval = 15; + MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1123__PATMACEXPAND_FOR_MATCHER, meltrout_21_warmelt_macro_PATMACEXPAND_FOR_MATCHER); - /*iniclos dclo_1122__PATMACEXPAND_FOR_MATCHER */ - /*_.VALCLO___V1208*/ meltfptr[1207] = - (melt_ptr_t) & cdat->dclo_1122__PATMACEXPAND_FOR_MATCHER; - cdat->dclo_1122__PATMACEXPAND_FOR_MATCHER.discr = + /*iniclos dclo_1124__PATMACEXPAND_FOR_MATCHER */ + /*_.VALCLO___V1210*/ meltfptr[1209] = + (melt_ptr_t) & cdat->dclo_1124__PATMACEXPAND_FOR_MATCHER; + cdat->dclo_1124__PATMACEXPAND_FOR_MATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); - cdat->dclo_1122__PATMACEXPAND_FOR_MATCHER.nbval = 0; - - -/*iniobj dsym_1123__CLASS_ANY_MATCHER*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1220*/ meltfptr[1219]) -/*_.VALDATA___V1220*/ meltfptr[1219] = - (melt_ptr_t) & cdat->dsym_1123__CLASS_ANY_MATCHER; - if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg ("iniobj check.discr isobj dsym_1123__CLASS_ANY_MATCHER", - melt_magic_discr ((melt_ptr_t) - (((melt_ptr_t) - (MELT_PREDEF (CLASS_SYMBOL))))) == - MELTOBMAG_OBJECT); - if (MELT_LIKELY (!melt_prohibit_garbcoll)) - melt_assertmsg - ("iniobj check.discr objmagic dsym_1123__CLASS_ANY_MATCHER", - ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> - meltobj_magic == MELTOBMAG_OBJECT); - cdat->dsym_1123__CLASS_ANY_MATCHER.meltobj_class = - (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); - cdat->dsym_1123__CLASS_ANY_MATCHER.obj_hash = 781265508; - cdat->dsym_1123__CLASS_ANY_MATCHER.obj_len = 3; - - -/*inistring dstr_1124__CLASS_ANY_MATCHE*/ - /*_.VALSTR___V1221*/ meltfptr[1220] = - (melt_ptr_t) & cdat->dstr_1124__CLASS_ANY_MATCHE; - cdat->dstr_1124__CLASS_ANY_MATCHE.discr = - (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); - /*small inistring */ strncpy (cdat->dstr_1124__CLASS_ANY_MATCHE.val, - "CLASS_ANY_MATCHER", - sizeof (cdat->dstr_1124__CLASS_ANY_MATCHE. - val) - 1); - cdat->dstr_1124__CLASS_ANY_MATCHE.val[17] = (char) 0; - cdat->dstr_1124__CLASS_ANY_MATCHE.slen = 17; + cdat->dclo_1124__PATMACEXPAND_FOR_MATCHER.nbval = 0; /*iniobj dsym_1125__CLASS_REFERENCE*/ @@ -23829,41 +23829,41 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dstr_1128__MULTIPLE_MAP.slen = 12; /*inirout drout_1129__LAMBDA_ */ - /*_.VALROUT___V1210*/ meltfptr[1209] = + /*_.VALROUT___V1212*/ meltfptr[1211] = (melt_ptr_t) & cdat->drout_1129__LAMBDA_; cdat->drout_1129__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1129__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:1503", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:1508", MELT_ROUTDESCR_LEN - 1); cdat->drout_1129__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1129__LAMBDA_, meltrout_22_warmelt_macro_LAMBDA___5__); /*inirout drout_1130__LAMBDA_ */ - /*_.VALROUT___V1211*/ meltfptr[1210] = + /*_.VALROUT___V1213*/ meltfptr[1212] = (melt_ptr_t) & cdat->drout_1130__LAMBDA_; cdat->drout_1130__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1130__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:1515", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:1520", MELT_ROUTDESCR_LEN - 1); cdat->drout_1130__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1130__LAMBDA_, meltrout_23_warmelt_macro_LAMBDA___6__); /*inirout drout_1131__PATTERN_WEIGHT_TUPLE */ - /*_.VALROUT___V1213*/ meltfptr[1212] = + /*_.VALROUT___V1215*/ meltfptr[1214] = (melt_ptr_t) & cdat->drout_1131__PATTERN_WEIGHT_TUPLE; cdat->drout_1131__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1131__PATTERN_WEIGHT_TUPLE.routdescr, - "PATTERN_WEIGHT_TUPLE @warmelt-macro.melt:1534", + "PATTERN_WEIGHT_TUPLE @warmelt-macro.melt:1539", MELT_ROUTDESCR_LEN - 1); cdat->drout_1131__PATTERN_WEIGHT_TUPLE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1131__PATTERN_WEIGHT_TUPLE, meltrout_24_warmelt_macro_PATTERN_WEIGHT_TUPLE); /*iniclos dclo_1132__PATTERN_WEIGHT_TUPLE */ - /*_.VALCLO___V1212*/ meltfptr[1211] = + /*_.VALCLO___V1214*/ meltfptr[1213] = (melt_ptr_t) & cdat->dclo_1132__PATTERN_WEIGHT_TUPLE; cdat->dclo_1132__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); @@ -23904,30 +23904,30 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dstr_1134__DISCR_INTEGER.slen = 13; /*inirout drout_1135__LAMBDA_ */ - /*_.VALROUT___V1214*/ meltfptr[1213] = + /*_.VALROUT___V1216*/ meltfptr[1215] = (melt_ptr_t) & cdat->drout_1135__LAMBDA_; cdat->drout_1135__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1135__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:1547", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:1552", MELT_ROUTDESCR_LEN - 1); cdat->drout_1135__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1135__LAMBDA_, meltrout_25_warmelt_macro_LAMBDA___7__); /*inirout drout_1136__PATTERNEXPAND_EXPR */ - /*_.VALROUT___V1207*/ meltfptr[1206] = + /*_.VALROUT___V1209*/ meltfptr[1208] = (melt_ptr_t) & cdat->drout_1136__PATTERNEXPAND_EXPR; cdat->drout_1136__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1136__PATTERNEXPAND_EXPR.routdescr, - "PATTERNEXPAND_EXPR @warmelt-macro.melt:1568", + "PATTERNEXPAND_EXPR @warmelt-macro.melt:1573", MELT_ROUTDESCR_LEN - 1); cdat->drout_1136__PATTERNEXPAND_EXPR.nbval = 19; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1136__PATTERNEXPAND_EXPR, meltrout_26_warmelt_macro_PATTERNEXPAND_EXPR); /*iniclos dclo_1137__PATTERNEXPAND_EXPR */ - /*_.VALCLO___V1206*/ meltfptr[1205] = + /*_.VALCLO___V1208*/ meltfptr[1207] = (melt_ptr_t) & cdat->dclo_1137__PATTERNEXPAND_EXPR; cdat->dclo_1137__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); @@ -23968,19 +23968,19 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dstr_1139__CLASS_PATMACRO_B.slen = 22; /*inirout drout_1140__PATTERNEXPAND_1 */ - /*_.VALROUT___V1198*/ meltfptr[1197] = + /*_.VALROUT___V1200*/ meltfptr[1199] = (melt_ptr_t) & cdat->drout_1140__PATTERNEXPAND_1; cdat->drout_1140__PATTERNEXPAND_1.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1140__PATTERNEXPAND_1.routdescr, - "PATTERNEXPAND_1 @warmelt-macro.melt:1721", + "PATTERNEXPAND_1 @warmelt-macro.melt:1726", MELT_ROUTDESCR_LEN - 1); cdat->drout_1140__PATTERNEXPAND_1.nbval = 16; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1140__PATTERNEXPAND_1, meltrout_27_warmelt_macro_PATTERNEXPAND_1); /*iniclos dclo_1141__PATTERNEXPAND_1 */ - /*_.VALCLO___V1197*/ meltfptr[1196] = + /*_.VALCLO___V1199*/ meltfptr[1198] = (melt_ptr_t) & cdat->dclo_1141__PATTERNEXPAND_1; cdat->dclo_1141__PATTERNEXPAND_1.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); @@ -23988,8 +23988,8 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, /*iniobj dsym_1142__QUESTION*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1199*/ meltfptr[1198]) -/*_.VALDATA___V1199*/ meltfptr[1198] = + /*uniqueobj*/ if (! /*_.VALDATA___V1201*/ meltfptr[1200]) +/*_.VALDATA___V1201*/ meltfptr[1200] = (melt_ptr_t) & cdat->dsym_1142__QUESTION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1142__QUESTION", @@ -24009,7 +24009,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, /*inistring dstr_1143__QUESTION*/ - /*_.VALSTR___V1200*/ meltfptr[1199] = + /*_.VALSTR___V1202*/ meltfptr[1201] = (melt_ptr_t) & cdat->dstr_1143__QUESTION; cdat->dstr_1143__QUESTION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); @@ -24019,7 +24019,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dstr_1143__QUESTION.slen = 8; /*iniboxint dint_1144__ */ - /*_.VALBXINT___V1201*/ meltfptr[1200] = (melt_ptr_t) & cdat->dint_1144__; + /*_.VALBXINT___V1203*/ meltfptr[1202] = (melt_ptr_t) & cdat->dint_1144__; cdat->dint_1144__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); @@ -24027,8 +24027,8 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, /*iniobj dsym_1145__*/ - /*uniqueobj*/ if (! /*_.VALDATA___V1202*/ meltfptr[1201]) -/*_.VALDATA___V1202*/ meltfptr[1201] = (melt_ptr_t) & cdat->dsym_1145__; + /*uniqueobj*/ if (! /*_.VALDATA___V1204*/ meltfptr[1203]) +/*_.VALDATA___V1204*/ meltfptr[1203] = (melt_ptr_t) & cdat->dsym_1145__; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1145__", melt_magic_discr ((melt_ptr_t) @@ -24047,7 +24047,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, /*inistring dstr_1146__*/ - /*_.VALSTR___V1203*/ meltfptr[1202] = (melt_ptr_t) & cdat->dstr_1146__; + /*_.VALSTR___V1205*/ meltfptr[1204] = (melt_ptr_t) & cdat->dstr_1146__; cdat->dstr_1146__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1146__.val, "_", @@ -24056,21 +24056,21 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dstr_1146__.slen = 1; /*iniboxint dint_1147__ */ - /*_.VALBXINT___V1204*/ meltfptr[1203] = (melt_ptr_t) & cdat->dint_1147__; + /*_.VALBXINT___V1206*/ meltfptr[1205] = (melt_ptr_t) & cdat->dint_1147__; cdat->dint_1147__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_1147__.val = 1; /*iniboxint dint_1148__ */ - /*_.VALBXINT___V1205*/ meltfptr[1204] = (melt_ptr_t) & cdat->dint_1148__; + /*_.VALBXINT___V1207*/ meltfptr[1206] = (melt_ptr_t) & cdat->dint_1148__; cdat->dint_1148__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_1148__.val = 1; /*iniboxint dint_1149__ */ - /*_.VALBXINT___V1215*/ meltfptr[1214] = (melt_ptr_t) & cdat->dint_1149__; + /*_.VALBXINT___V1217*/ meltfptr[1216] = (melt_ptr_t) & cdat->dint_1149__; cdat->dint_1149__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); @@ -24082,7 +24082,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1150__MACROEXPAND_TOPLEVEL_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1150__MACROEXPAND_TOPLEVEL_LIST.routdescr, - "MACROEXPAND_TOPLEVEL_LIST @warmelt-macro.melt:1812", + "MACROEXPAND_TOPLEVEL_LIST @warmelt-macro.melt:1817", MELT_ROUTDESCR_LEN - 1); cdat->drout_1150__MACROEXPAND_TOPLEVEL_LIST.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1150__MACROEXPAND_TOPLEVEL_LIST, @@ -24133,7 +24133,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1154__LAMBDA_ARG_BINDINGS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1154__LAMBDA_ARG_BINDINGS.routdescr, - "LAMBDA_ARG_BINDINGS @warmelt-macro.melt:1885", + "LAMBDA_ARG_BINDINGS @warmelt-macro.melt:1890", MELT_ROUTDESCR_LEN - 1); cdat->drout_1154__LAMBDA_ARG_BINDINGS.nbval = 15; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1154__LAMBDA_ARG_BINDINGS, @@ -24387,7 +24387,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1170__INSTALL_INITIAL_MACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1170__INSTALL_INITIAL_MACRO.routdescr, - "INSTALL_INITIAL_MACRO @warmelt-macro.melt:1989", + "INSTALL_INITIAL_MACRO @warmelt-macro.melt:1994", MELT_ROUTDESCR_LEN - 1); cdat->drout_1170__INSTALL_INITIAL_MACRO.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1170__INSTALL_INITIAL_MACRO, @@ -24440,7 +24440,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1174__INSTALL_INITIAL_PATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1174__INSTALL_INITIAL_PATMACRO.routdescr, - "INSTALL_INITIAL_PATMACRO @warmelt-macro.melt:2002", + "INSTALL_INITIAL_PATMACRO @warmelt-macro.melt:2007", MELT_ROUTDESCR_LEN - 1); cdat->drout_1174__INSTALL_INITIAL_PATMACRO.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1174__INSTALL_INITIAL_PATMACRO, @@ -24487,7 +24487,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->dstr_1177__WARN_SHADOW.val[11] = (char) 0; cdat->dstr_1177__WARN_SHADOW.slen = 11; - MELT_LOCATION ("warmelt-macro.melt:2020:/ iniobj"); + MELT_LOCATION ("warmelt-macro.melt:2025:/ iniobj"); /*iniobj dobj_1178__WARN_SHADOW*/ /*_.VALDATA___V1254*/ meltfptr[1253] = @@ -24505,7 +24505,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1178__WARN_SHADOW.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE)))); - cdat->dobj_1178__WARN_SHADOW.obj_hash = 683703301; + cdat->dobj_1178__WARN_SHADOW.obj_hash = 645069746; cdat->dobj_1178__WARN_SHADOW.obj_len = 5; /*inimult dtup_1179__WARN_SHADOW */ @@ -24552,7 +24552,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1183__WARN_IF_REDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1183__WARN_IF_REDEFINED.routdescr, - "WARN_IF_REDEFINED @warmelt-macro.melt:2024", + "WARN_IF_REDEFINED @warmelt-macro.melt:2029", MELT_ROUTDESCR_LEN - 1); cdat->drout_1183__WARN_IF_REDEFINED.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1183__WARN_IF_REDEFINED, @@ -24571,7 +24571,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1185__FLATTEN_FOR_C_CODE_EXPANSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1185__FLATTEN_FOR_C_CODE_EXPANSION.routdescr, - "FLATTEN_FOR_C_CODE_EXPANSION @warmelt-macro.melt:2037", + "FLATTEN_FOR_C_CODE_EXPANSION @warmelt-macro.melt:2042", MELT_ROUTDESCR_LEN - 1); cdat->drout_1185__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1185__FLATTEN_FOR_C_CODE_EXPANSION, @@ -24624,7 +24624,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1189__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1189__PARSE_PAIRLIST_C_CODE_EXPANSION.routdescr, - "PARSE_PAIRLIST_C_CODE_EXPANSION @warmelt-macro.melt:2083", + "PARSE_PAIRLIST_C_CODE_EXPANSION @warmelt-macro.melt:2088", MELT_ROUTDESCR_LEN - 1); cdat->drout_1189__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -24644,7 +24644,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1191__CHECK_C_EXPANSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1191__CHECK_C_EXPANSION.routdescr, - "CHECK_C_EXPANSION @warmelt-macro.melt:2104", + "CHECK_C_EXPANSION @warmelt-macro.melt:2109", MELT_ROUTDESCR_LEN - 1); cdat->drout_1191__CHECK_C_EXPANSION.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1191__CHECK_C_EXPANSION, @@ -24663,7 +24663,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1193__MEXPAND_DEFPRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1193__MEXPAND_DEFPRIMITIVE.routdescr, - "MEXPAND_DEFPRIMITIVE @warmelt-macro.melt:2139", + "MEXPAND_DEFPRIMITIVE @warmelt-macro.melt:2144", MELT_ROUTDESCR_LEN - 1); cdat->drout_1193__MEXPAND_DEFPRIMITIVE.nbval = 22; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1193__MEXPAND_DEFPRIMITIVE, @@ -24747,7 +24747,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1199__MEXPAND_DEFCITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1199__MEXPAND_DEFCITERATOR.routdescr, - "MEXPAND_DEFCITERATOR @warmelt-macro.melt:2262", + "MEXPAND_DEFCITERATOR @warmelt-macro.melt:2267", MELT_ROUTDESCR_LEN - 1); cdat->drout_1199__MEXPAND_DEFCITERATOR.nbval = 19; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1199__MEXPAND_DEFCITERATOR, @@ -24800,7 +24800,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1203__MEXPAND_DEFCMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1203__MEXPAND_DEFCMATCHER.routdescr, - "MEXPAND_DEFCMATCHER @warmelt-macro.melt:2415", + "MEXPAND_DEFCMATCHER @warmelt-macro.melt:2420", MELT_ROUTDESCR_LEN - 1); cdat->drout_1203__MEXPAND_DEFCMATCHER.nbval = 21; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1203__MEXPAND_DEFCMATCHER, @@ -24819,7 +24819,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1205__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1205__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:2466", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:2471", MELT_ROUTDESCR_LEN - 1); cdat->drout_1205__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1205__LAMBDA_, meltrout_39_warmelt_macro_LAMBDA___8__); @@ -24864,7 +24864,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1208__MEXPAND_DEFUNMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1208__MEXPAND_DEFUNMATCHER.routdescr, - "MEXPAND_DEFUNMATCHER @warmelt-macro.melt:2611", + "MEXPAND_DEFUNMATCHER @warmelt-macro.melt:2616", MELT_ROUTDESCR_LEN - 1); cdat->drout_1208__MEXPAND_DEFUNMATCHER.nbval = 15; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1208__MEXPAND_DEFUNMATCHER, @@ -24883,7 +24883,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1210__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1210__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:2658", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:2663", MELT_ROUTDESCR_LEN - 1); cdat->drout_1210__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1210__LAMBDA_, meltrout_41_warmelt_macro_LAMBDA___9__); @@ -24928,7 +24928,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1213__MEXPAND_DEFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1213__MEXPAND_DEFUN.routdescr, - "MEXPAND_DEFUN @warmelt-macro.melt:2758", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_DEFUN @warmelt-macro.melt:2763", MELT_ROUTDESCR_LEN - 1); cdat->drout_1213__MEXPAND_DEFUN.nbval = 16; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1213__MEXPAND_DEFUN, meltrout_42_warmelt_macro_MEXPAND_DEFUN); @@ -24980,7 +24980,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1217__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1217__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:2797", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:2802", MELT_ROUTDESCR_LEN - 1); cdat->drout_1217__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1217__LAMBDA_, meltrout_43_warmelt_macro_LAMBDA___10__); @@ -25022,7 +25022,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1220__MEXPAND_DEFINE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1220__MEXPAND_DEFINE.routdescr, - "MEXPAND_DEFINE @warmelt-macro.melt:2843", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_DEFINE @warmelt-macro.melt:2848", MELT_ROUTDESCR_LEN - 1); cdat->drout_1220__MEXPAND_DEFINE.nbval = 22; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1220__MEXPAND_DEFINE, meltrout_44_warmelt_macro_MEXPAND_DEFINE); @@ -25074,7 +25074,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1224__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1224__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:2938", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:2943", MELT_ROUTDESCR_LEN - 1); cdat->drout_1224__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1224__LAMBDA_, meltrout_45_warmelt_macro_LAMBDA___11__); @@ -25117,7 +25117,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1227__SCAN_DEFCLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1227__SCAN_DEFCLASS.routdescr, - "SCAN_DEFCLASS @warmelt-macro.melt:2964", MELT_ROUTDESCR_LEN - 1); + "SCAN_DEFCLASS @warmelt-macro.melt:2969", MELT_ROUTDESCR_LEN - 1); cdat->drout_1227__SCAN_DEFCLASS.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1227__SCAN_DEFCLASS, meltrout_46_warmelt_macro_SCAN_DEFCLASS); @@ -25298,7 +25298,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1239__MEXPAND_DEFCLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1239__MEXPAND_DEFCLASS.routdescr, - "MEXPAND_DEFCLASS @warmelt-macro.melt:3084", + "MEXPAND_DEFCLASS @warmelt-macro.melt:3089", MELT_ROUTDESCR_LEN - 1); cdat->drout_1239__MEXPAND_DEFCLASS.nbval = 27; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1239__MEXPAND_DEFCLASS, @@ -25419,7 +25419,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1247__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1247__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:3146", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:3151", MELT_ROUTDESCR_LEN - 1); cdat->drout_1247__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1247__LAMBDA_, meltrout_48_warmelt_macro_LAMBDA___12__); @@ -25430,7 +25430,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1248__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1248__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:3155", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:3160", MELT_ROUTDESCR_LEN - 1); cdat->drout_1248__LAMBDA_.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1248__LAMBDA_, meltrout_49_warmelt_macro_LAMBDA___13__); @@ -25473,7 +25473,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1251__PARSE_FIELD_ASSIGNMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1251__PARSE_FIELD_ASSIGNMENT.routdescr, - "PARSE_FIELD_ASSIGNMENT @warmelt-macro.melt:3233", + "PARSE_FIELD_ASSIGNMENT @warmelt-macro.melt:3238", MELT_ROUTDESCR_LEN - 1); cdat->drout_1251__PARSE_FIELD_ASSIGNMENT.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1251__PARSE_FIELD_ASSIGNMENT, @@ -25526,7 +25526,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1255__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1255__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:3257", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:3262", MELT_ROUTDESCR_LEN - 1); cdat->drout_1255__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1255__LAMBDA_, meltrout_51_warmelt_macro_LAMBDA___14__); @@ -25537,7 +25537,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1256__MEXPAND_DEFINSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1256__MEXPAND_DEFINSTANCE.routdescr, - "MEXPAND_DEFINSTANCE @warmelt-macro.melt:3330", + "MEXPAND_DEFINSTANCE @warmelt-macro.melt:3335", MELT_ROUTDESCR_LEN - 1); cdat->drout_1256__MEXPAND_DEFINSTANCE.nbval = 20; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1256__MEXPAND_DEFINSTANCE, @@ -25656,7 +25656,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1264__MEXPAND_DEFSELECTOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1264__MEXPAND_DEFSELECTOR.routdescr, - "MEXPAND_DEFSELECTOR @warmelt-macro.melt:3444", + "MEXPAND_DEFSELECTOR @warmelt-macro.melt:3449", MELT_ROUTDESCR_LEN - 1); cdat->drout_1264__MEXPAND_DEFSELECTOR.nbval = 28; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1264__MEXPAND_DEFSELECTOR, @@ -25775,7 +25775,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1272__MEXPAND_INSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1272__MEXPAND_INSTANCE.routdescr, - "MEXPAND_INSTANCE @warmelt-macro.melt:3591", + "MEXPAND_INSTANCE @warmelt-macro.melt:3596", MELT_ROUTDESCR_LEN - 1); cdat->drout_1272__MEXPAND_INSTANCE.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1272__MEXPAND_INSTANCE, @@ -25826,7 +25826,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1276__MEXPAND_LOAD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1276__MEXPAND_LOAD.routdescr, - "MEXPAND_LOAD @warmelt-macro.melt:3659", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_LOAD @warmelt-macro.melt:3664", MELT_ROUTDESCR_LEN - 1); cdat->drout_1276__MEXPAND_LOAD.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1276__MEXPAND_LOAD, meltrout_55_warmelt_macro_MEXPAND_LOAD); @@ -25875,7 +25875,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1280__PARSE_FIELD_PATTERN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1280__PARSE_FIELD_PATTERN.routdescr, - "PARSE_FIELD_PATTERN @warmelt-macro.melt:3700", + "PARSE_FIELD_PATTERN @warmelt-macro.melt:3705", MELT_ROUTDESCR_LEN - 1); cdat->drout_1280__PARSE_FIELD_PATTERN.nbval = 13; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1280__PARSE_FIELD_PATTERN, @@ -25894,7 +25894,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1282__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1282__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:3715", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:3720", MELT_ROUTDESCR_LEN - 1); cdat->drout_1282__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1282__LAMBDA_, meltrout_57_warmelt_macro_LAMBDA___15__); @@ -25905,7 +25905,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1283__PATEXPAND_INSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1283__PATEXPAND_INSTANCE.routdescr, - "PATEXPAND_INSTANCE @warmelt-macro.melt:3744", + "PATEXPAND_INSTANCE @warmelt-macro.melt:3749", MELT_ROUTDESCR_LEN - 1); cdat->drout_1283__PATEXPAND_INSTANCE.nbval = 20; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1283__PATEXPAND_INSTANCE, @@ -25924,7 +25924,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1285__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1285__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:3802", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:3807", MELT_ROUTDESCR_LEN - 1); cdat->drout_1285__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1285__LAMBDA_, meltrout_59_warmelt_macro_LAMBDA___16__); @@ -25935,7 +25935,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1286__PATEXPAND_OBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1286__PATEXPAND_OBJECT.routdescr, - "PATEXPAND_OBJECT @warmelt-macro.melt:3839", + "PATEXPAND_OBJECT @warmelt-macro.melt:3844", MELT_ROUTDESCR_LEN - 1); cdat->drout_1286__PATEXPAND_OBJECT.nbval = 20; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1286__PATEXPAND_OBJECT, @@ -25954,7 +25954,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1288__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1288__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:3897", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:3902", MELT_ROUTDESCR_LEN - 1); cdat->drout_1288__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1288__LAMBDA_, meltrout_61_warmelt_macro_LAMBDA___17__); @@ -25965,7 +25965,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1289__MEXPAND_OBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1289__MEXPAND_OBJECT.routdescr, - "MEXPAND_OBJECT @warmelt-macro.melt:3916", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_OBJECT @warmelt-macro.melt:3921", MELT_ROUTDESCR_LEN - 1); cdat->drout_1289__MEXPAND_OBJECT.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1289__MEXPAND_OBJECT, meltrout_62_warmelt_macro_MEXPAND_OBJECT); @@ -26015,7 +26015,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1293__MEXPAND_CODE_CHUNK.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1293__MEXPAND_CODE_CHUNK.routdescr, - "MEXPAND_CODE_CHUNK @warmelt-macro.melt:3939", + "MEXPAND_CODE_CHUNK @warmelt-macro.melt:3944", MELT_ROUTDESCR_LEN - 1); cdat->drout_1293__MEXPAND_CODE_CHUNK.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1293__MEXPAND_CODE_CHUNK, @@ -26066,7 +26066,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1297__MEXPAND_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1297__MEXPAND_UNSAFE_PUT_FIELDS.routdescr, - "MEXPAND_UNSAFE_PUT_FIELDS @warmelt-macro.melt:3990", + "MEXPAND_UNSAFE_PUT_FIELDS @warmelt-macro.melt:3995", MELT_ROUTDESCR_LEN - 1); cdat->drout_1297__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1297__MEXPAND_UNSAFE_PUT_FIELDS, @@ -26119,7 +26119,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1301__MEXPAND_PUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1301__MEXPAND_PUT_FIELDS.routdescr, - "MEXPAND_PUT_FIELDS @warmelt-macro.melt:4038", + "MEXPAND_PUT_FIELDS @warmelt-macro.melt:4043", MELT_ROUTDESCR_LEN - 1); cdat->drout_1301__MEXPAND_PUT_FIELDS.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1301__MEXPAND_PUT_FIELDS, @@ -26170,7 +26170,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1305__MEXPAND_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1305__MEXPAND_UNSAFE_GET_FIELD.routdescr, - "MEXPAND_UNSAFE_GET_FIELD @warmelt-macro.melt:4085", + "MEXPAND_UNSAFE_GET_FIELD @warmelt-macro.melt:4090", MELT_ROUTDESCR_LEN - 1); cdat->drout_1305__MEXPAND_UNSAFE_GET_FIELD.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1305__MEXPAND_UNSAFE_GET_FIELD, @@ -26223,7 +26223,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1309__MEXPAND_GET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1309__MEXPAND_GET_FIELD.routdescr, - "MEXPAND_GET_FIELD @warmelt-macro.melt:4126", + "MEXPAND_GET_FIELD @warmelt-macro.melt:4131", MELT_ROUTDESCR_LEN - 1); cdat->drout_1309__MEXPAND_GET_FIELD.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1309__MEXPAND_GET_FIELD, @@ -26274,7 +26274,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1313__PAIRLIST_TO_PROGN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1313__PAIRLIST_TO_PROGN.routdescr, - "PAIRLIST_TO_PROGN @warmelt-macro.melt:4167", + "PAIRLIST_TO_PROGN @warmelt-macro.melt:4172", MELT_ROUTDESCR_LEN - 1); cdat->drout_1313__PAIRLIST_TO_PROGN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1313__PAIRLIST_TO_PROGN, @@ -26293,7 +26293,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1315__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1315__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:4175", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:4180", MELT_ROUTDESCR_LEN - 1); cdat->drout_1315__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1315__LAMBDA_, meltrout_69_warmelt_macro_LAMBDA___18__); @@ -26304,7 +26304,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1316__MEXPAND_SETQ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1316__MEXPAND_SETQ.routdescr, - "MEXPAND_SETQ @warmelt-macro.melt:4186", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_SETQ @warmelt-macro.melt:4191", MELT_ROUTDESCR_LEN - 1); cdat->drout_1316__MEXPAND_SETQ.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1316__MEXPAND_SETQ, meltrout_70_warmelt_macro_MEXPAND_SETQ); @@ -26353,7 +26353,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1320__MEXPAND_IF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1320__MEXPAND_IF.routdescr, - "MEXPAND_IF @warmelt-macro.melt:4217", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_IF @warmelt-macro.melt:4222", MELT_ROUTDESCR_LEN - 1); cdat->drout_1320__MEXPAND_IF.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1320__MEXPAND_IF, meltrout_71_warmelt_macro_MEXPAND_IF); @@ -26401,7 +26401,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1324__MEXPAND_WHEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1324__MEXPAND_WHEN.routdescr, - "MEXPAND_WHEN @warmelt-macro.melt:4271", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_WHEN @warmelt-macro.melt:4276", MELT_ROUTDESCR_LEN - 1); cdat->drout_1324__MEXPAND_WHEN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1324__MEXPAND_WHEN, meltrout_72_warmelt_macro_MEXPAND_WHEN); @@ -26450,7 +26450,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1328__MEXPAND_UNLESS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1328__MEXPAND_UNLESS.routdescr, - "MEXPAND_UNLESS @warmelt-macro.melt:4307", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_UNLESS @warmelt-macro.melt:4312", MELT_ROUTDESCR_LEN - 1); cdat->drout_1328__MEXPAND_UNLESS.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1328__MEXPAND_UNLESS, meltrout_73_warmelt_macro_MEXPAND_UNLESS); @@ -26500,7 +26500,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1332__MEXPAND_CPPIF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1332__MEXPAND_CPPIF.routdescr, - "MEXPAND_CPPIF @warmelt-macro.melt:4343", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_CPPIF @warmelt-macro.melt:4348", MELT_ROUTDESCR_LEN - 1); cdat->drout_1332__MEXPAND_CPPIF.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1332__MEXPAND_CPPIF, meltrout_74_warmelt_macro_MEXPAND_CPPIF); @@ -26549,7 +26549,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1336__FILTERGCCVERSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1336__FILTERGCCVERSION.routdescr, - "FILTERGCCVERSION @warmelt-macro.melt:4400", + "FILTERGCCVERSION @warmelt-macro.melt:4405", MELT_ROUTDESCR_LEN - 1); cdat->drout_1336__FILTERGCCVERSION.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1336__FILTERGCCVERSION, @@ -26568,7 +26568,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1338__MEXPAND_GCCIF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1338__MEXPAND_GCCIF.routdescr, - "MEXPAND_GCCIF @warmelt-macro.melt:4415", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_GCCIF @warmelt-macro.melt:4420", MELT_ROUTDESCR_LEN - 1); cdat->drout_1338__MEXPAND_GCCIF.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1338__MEXPAND_GCCIF, meltrout_76_warmelt_macro_MEXPAND_GCCIF); @@ -26617,7 +26617,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1342__MEXPAND_COND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1342__MEXPAND_COND.routdescr, - "MEXPAND_COND @warmelt-macro.melt:4478", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_COND @warmelt-macro.melt:4483", MELT_ROUTDESCR_LEN - 1); cdat->drout_1342__MEXPAND_COND.nbval = 11; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1342__MEXPAND_COND, meltrout_77_warmelt_macro_MEXPAND_COND); @@ -26635,7 +26635,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1344__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1344__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:4488", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:4493", MELT_ROUTDESCR_LEN - 1); cdat->drout_1344__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1344__LAMBDA_, meltrout_78_warmelt_macro_LAMBDA___19__); @@ -26708,7 +26708,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1349__MEXPAND_AND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1349__MEXPAND_AND.routdescr, - "MEXPAND_AND @warmelt-macro.melt:4583", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_AND @warmelt-macro.melt:4588", MELT_ROUTDESCR_LEN - 1); cdat->drout_1349__MEXPAND_AND.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1349__MEXPAND_AND, meltrout_79_warmelt_macro_MEXPAND_AND); @@ -26726,7 +26726,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1351__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1351__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:4596", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:4601", MELT_ROUTDESCR_LEN - 1); cdat->drout_1351__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1351__LAMBDA_, meltrout_80_warmelt_macro_LAMBDA___20__); @@ -26737,7 +26737,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1352__PATEXPAND_AS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1352__PATEXPAND_AS.routdescr, - "PATEXPAND_AS @warmelt-macro.melt:4624", MELT_ROUTDESCR_LEN - 1); + "PATEXPAND_AS @warmelt-macro.melt:4629", MELT_ROUTDESCR_LEN - 1); cdat->drout_1352__PATEXPAND_AS.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1352__PATEXPAND_AS, meltrout_81_warmelt_macro_PATEXPAND_AS); @@ -26755,7 +26755,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1354__MEXPAND_AS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1354__MEXPAND_AS.routdescr, - "MEXPAND_AS @warmelt-macro.melt:4662", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_AS @warmelt-macro.melt:4667", MELT_ROUTDESCR_LEN - 1); cdat->drout_1354__MEXPAND_AS.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1354__MEXPAND_AS, meltrout_82_warmelt_macro_MEXPAND_AS); @@ -26803,7 +26803,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1358__PATEXPAND_WHEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1358__PATEXPAND_WHEN.routdescr, - "PATEXPAND_WHEN @warmelt-macro.melt:4676", MELT_ROUTDESCR_LEN - 1); + "PATEXPAND_WHEN @warmelt-macro.melt:4681", MELT_ROUTDESCR_LEN - 1); cdat->drout_1358__PATEXPAND_WHEN.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1358__PATEXPAND_WHEN, meltrout_83_warmelt_macro_PATEXPAND_WHEN); @@ -26821,7 +26821,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1360__MEXPAND_WHEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1360__MEXPAND_WHEN.routdescr, - "MEXPAND_WHEN @warmelt-macro.melt:4691", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_WHEN @warmelt-macro.melt:4696", MELT_ROUTDESCR_LEN - 1); cdat->drout_1360__MEXPAND_WHEN.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1360__MEXPAND_WHEN, meltrout_84_warmelt_macro_MEXPAND_WHEN); @@ -26839,7 +26839,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1362__PATEXPAND_AND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1362__PATEXPAND_AND.routdescr, - "PATEXPAND_AND @warmelt-macro.melt:4706", MELT_ROUTDESCR_LEN - 1); + "PATEXPAND_AND @warmelt-macro.melt:4711", MELT_ROUTDESCR_LEN - 1); cdat->drout_1362__PATEXPAND_AND.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1362__PATEXPAND_AND, meltrout_85_warmelt_macro_PATEXPAND_AND); @@ -26888,7 +26888,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1366__MEXPAND_OR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1366__MEXPAND_OR.routdescr, - "MEXPAND_OR @warmelt-macro.melt:4743", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_OR @warmelt-macro.melt:4748", MELT_ROUTDESCR_LEN - 1); cdat->drout_1366__MEXPAND_OR.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1366__MEXPAND_OR, meltrout_86_warmelt_macro_MEXPAND_OR); @@ -26906,7 +26906,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1368__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1368__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:4755", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:4760", MELT_ROUTDESCR_LEN - 1); cdat->drout_1368__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1368__LAMBDA_, meltrout_87_warmelt_macro_LAMBDA___21__); @@ -26917,7 +26917,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1369__PATEXPAND_OR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1369__PATEXPAND_OR.routdescr, - "PATEXPAND_OR @warmelt-macro.melt:4773", MELT_ROUTDESCR_LEN - 1); + "PATEXPAND_OR @warmelt-macro.melt:4778", MELT_ROUTDESCR_LEN - 1); cdat->drout_1369__PATEXPAND_OR.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1369__PATEXPAND_OR, meltrout_88_warmelt_macro_PATEXPAND_OR); @@ -26965,7 +26965,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1373__MEXPAND_REFERENCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1373__MEXPAND_REFERENCE.routdescr, - "MEXPAND_REFERENCE @warmelt-macro.melt:4811", + "MEXPAND_REFERENCE @warmelt-macro.melt:4816", MELT_ROUTDESCR_LEN - 1); cdat->drout_1373__MEXPAND_REFERENCE.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1373__MEXPAND_REFERENCE, @@ -27018,7 +27018,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1377__PATEXPAND_REFERENCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1377__PATEXPAND_REFERENCE.routdescr, - "PATEXPAND_REFERENCE @warmelt-macro.melt:4853", + "PATEXPAND_REFERENCE @warmelt-macro.melt:4858", MELT_ROUTDESCR_LEN - 1); cdat->drout_1377__PATEXPAND_REFERENCE.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1377__PATEXPAND_REFERENCE, @@ -27076,7 +27076,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1382__MEXPANDOBSOLETE_CONTAINER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1382__MEXPANDOBSOLETE_CONTAINER.routdescr, - "MEXPANDOBSOLETE_CONTAINER @warmelt-macro.melt:4893", + "MEXPANDOBSOLETE_CONTAINER @warmelt-macro.melt:4898", MELT_ROUTDESCR_LEN - 1); cdat->drout_1382__MEXPANDOBSOLETE_CONTAINER.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1382__MEXPANDOBSOLETE_CONTAINER, @@ -27095,7 +27095,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1384__PATEXPANDOBSOLETE_CONTAINER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1384__PATEXPANDOBSOLETE_CONTAINER.routdescr, - "PATEXPANDOBSOLETE_CONTAINER @warmelt-macro.melt:4900", + "PATEXPANDOBSOLETE_CONTAINER @warmelt-macro.melt:4905", MELT_ROUTDESCR_LEN - 1); cdat->drout_1384__PATEXPANDOBSOLETE_CONTAINER.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1384__PATEXPANDOBSOLETE_CONTAINER, @@ -27146,7 +27146,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1388__MEXPAND_DEREF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1388__MEXPAND_DEREF.routdescr, - "MEXPAND_DEREF @warmelt-macro.melt:4914", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_DEREF @warmelt-macro.melt:4919", MELT_ROUTDESCR_LEN - 1); cdat->drout_1388__MEXPAND_DEREF.nbval = 13; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1388__MEXPAND_DEREF, meltrout_93_warmelt_macro_MEXPAND_DEREF); @@ -27229,7 +27229,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1394__MEXPANDOBSOLETE_CONTENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1394__MEXPANDOBSOLETE_CONTENT.routdescr, - "MEXPANDOBSOLETE_CONTENT @warmelt-macro.melt:4958", + "MEXPANDOBSOLETE_CONTENT @warmelt-macro.melt:4963", MELT_ROUTDESCR_LEN - 1); cdat->drout_1394__MEXPANDOBSOLETE_CONTENT.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1394__MEXPANDOBSOLETE_CONTENT, @@ -27312,7 +27312,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1400__MEXPAND_SET_REF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1400__MEXPAND_SET_REF.routdescr, - "MEXPAND_SET_REF @warmelt-macro.melt:4980", + "MEXPAND_SET_REF @warmelt-macro.melt:4985", MELT_ROUTDESCR_LEN - 1); cdat->drout_1400__MEXPAND_SET_REF.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1400__MEXPAND_SET_REF, @@ -27363,7 +27363,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1404__MEXPAND_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1404__MEXPAND_TUPLE.routdescr, - "MEXPAND_TUPLE @warmelt-macro.melt:5032", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_TUPLE @warmelt-macro.melt:5037", MELT_ROUTDESCR_LEN - 1); cdat->drout_1404__MEXPAND_TUPLE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1404__MEXPAND_TUPLE, meltrout_96_warmelt_macro_MEXPAND_TUPLE); @@ -27381,7 +27381,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1406__PATEXPAND_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1406__PATEXPAND_TUPLE.routdescr, - "PATEXPAND_TUPLE @warmelt-macro.melt:5049", + "PATEXPAND_TUPLE @warmelt-macro.melt:5054", MELT_ROUTDESCR_LEN - 1); cdat->drout_1406__PATEXPAND_TUPLE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1406__PATEXPAND_TUPLE, @@ -27431,7 +27431,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1410__MEXPAND_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1410__MEXPAND_LIST.routdescr, - "MEXPAND_LIST @warmelt-macro.melt:5079", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_LIST @warmelt-macro.melt:5084", MELT_ROUTDESCR_LEN - 1); cdat->drout_1410__MEXPAND_LIST.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1410__MEXPAND_LIST, meltrout_98_warmelt_macro_MEXPAND_LIST); @@ -27449,7 +27449,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1412__PATEXPAND_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1412__PATEXPAND_LIST.routdescr, - "PATEXPAND_LIST @warmelt-macro.melt:5096", MELT_ROUTDESCR_LEN - 1); + "PATEXPAND_LIST @warmelt-macro.melt:5101", MELT_ROUTDESCR_LEN - 1); cdat->drout_1412__PATEXPAND_LIST.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1412__PATEXPAND_LIST, meltrout_99_warmelt_macro_PATEXPAND_LIST); @@ -27498,7 +27498,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1416__MEXPAND_MATCH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1416__MEXPAND_MATCH.routdescr, - "MEXPAND_MATCH @warmelt-macro.melt:5127", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_MATCH @warmelt-macro.melt:5132", MELT_ROUTDESCR_LEN - 1); cdat->drout_1416__MEXPAND_MATCH.nbval = 17; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1416__MEXPAND_MATCH, meltrout_100_warmelt_macro_MEXPAND_MATCH); @@ -27516,7 +27516,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1418__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1418__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5141", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5146", MELT_ROUTDESCR_LEN - 1); cdat->drout_1418__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1418__LAMBDA_, meltrout_101_warmelt_macro_LAMBDA___22__); @@ -27558,7 +27558,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1421__MEXPAND_LETBINDING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1421__MEXPAND_LETBINDING.routdescr, - "MEXPAND_LETBINDING @warmelt-macro.melt:5219", + "MEXPAND_LETBINDING @warmelt-macro.melt:5224", MELT_ROUTDESCR_LEN - 1); cdat->drout_1421__MEXPAND_LETBINDING.nbval = 13; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1421__MEXPAND_LETBINDING, @@ -27611,7 +27611,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1425__MEXPAND_LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1425__MEXPAND_LET.routdescr, - "MEXPAND_LET @warmelt-macro.melt:5303", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_LET @warmelt-macro.melt:5308", MELT_ROUTDESCR_LEN - 1); cdat->drout_1425__MEXPAND_LET.nbval = 17; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1425__MEXPAND_LET, meltrout_103_warmelt_macro_MEXPAND_LET); @@ -27629,7 +27629,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1427__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1427__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5325", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5330", MELT_ROUTDESCR_LEN - 1); cdat->drout_1427__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1427__LAMBDA_, meltrout_104_warmelt_macro_LAMBDA___23__); @@ -27640,7 +27640,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1428__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1428__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5333", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5338", MELT_ROUTDESCR_LEN - 1); cdat->drout_1428__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1428__LAMBDA_, meltrout_105_warmelt_macro_LAMBDA___24__); @@ -27651,7 +27651,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1429__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1429__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5346", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5351", MELT_ROUTDESCR_LEN - 1); cdat->drout_1429__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1429__LAMBDA_, meltrout_106_warmelt_macro_LAMBDA___25__); @@ -27693,7 +27693,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1432__YES_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1432__YES_RECURSIVELY_CONSTRUCTIBLE.routdescr, - "YES_RECURSIVELY_CONSTRUCTIBLE @warmelt-macro.melt:5370", + "YES_RECURSIVELY_CONSTRUCTIBLE @warmelt-macro.melt:5375", MELT_ROUTDESCR_LEN - 1); cdat->drout_1432__YES_RECURSIVELY_CONSTRUCTIBLE.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1432__YES_RECURSIVELY_CONSTRUCTIBLE, @@ -27746,7 +27746,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1436__MEXPAND_LETREC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1436__MEXPAND_LETREC.routdescr, - "MEXPAND_LETREC @warmelt-macro.melt:5383", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_LETREC @warmelt-macro.melt:5388", MELT_ROUTDESCR_LEN - 1); cdat->drout_1436__MEXPAND_LETREC.nbval = 20; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1436__MEXPAND_LETREC, meltrout_108_warmelt_macro_MEXPAND_LETREC); @@ -27764,7 +27764,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1438__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1438__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5410", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5415", MELT_ROUTDESCR_LEN - 1); cdat->drout_1438__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1438__LAMBDA_, meltrout_109_warmelt_macro_LAMBDA___26__); @@ -27809,7 +27809,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1441__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1441__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5516", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5521", MELT_ROUTDESCR_LEN - 1); cdat->drout_1441__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1441__LAMBDA_, meltrout_110_warmelt_macro_LAMBDA___27__); @@ -27852,7 +27852,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1444__MEXPAND_LAMBDA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1444__MEXPAND_LAMBDA.routdescr, - "MEXPAND_LAMBDA @warmelt-macro.melt:5538", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_LAMBDA @warmelt-macro.melt:5543", MELT_ROUTDESCR_LEN - 1); cdat->drout_1444__MEXPAND_LAMBDA.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1444__MEXPAND_LAMBDA, meltrout_111_warmelt_macro_MEXPAND_LAMBDA); @@ -27870,7 +27870,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1446__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1446__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5561", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5566", MELT_ROUTDESCR_LEN - 1); cdat->drout_1446__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1446__LAMBDA_, meltrout_112_warmelt_macro_LAMBDA___28__); @@ -27913,7 +27913,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1449__MEXPAND_VARIADIC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1449__MEXPAND_VARIADIC.routdescr, - "MEXPAND_VARIADIC @warmelt-macro.melt:5589", + "MEXPAND_VARIADIC @warmelt-macro.melt:5594", MELT_ROUTDESCR_LEN - 1); cdat->drout_1449__MEXPAND_VARIADIC.nbval = 25; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1449__MEXPAND_VARIADIC, @@ -27932,7 +27932,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1451__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1451__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5598", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5603", MELT_ROUTDESCR_LEN - 1); cdat->drout_1451__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1451__LAMBDA_, meltrout_114_warmelt_macro_LAMBDA___29__); @@ -27943,7 +27943,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1452__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1452__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5628", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5633", MELT_ROUTDESCR_LEN - 1); cdat->drout_1452__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1452__LAMBDA_, meltrout_115_warmelt_macro_LAMBDA___30__); @@ -27954,7 +27954,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1453__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1453__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5659", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5664", MELT_ROUTDESCR_LEN - 1); cdat->drout_1453__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1453__LAMBDA_, meltrout_116_warmelt_macro_LAMBDA___31__); @@ -27965,7 +27965,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1454__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1454__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5670", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5675", MELT_ROUTDESCR_LEN - 1); cdat->drout_1454__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1454__LAMBDA_, meltrout_117_warmelt_macro_LAMBDA___32__); @@ -28008,7 +28008,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1457__MEXPAND_MULTICALL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1457__MEXPAND_MULTICALL.routdescr, - "MEXPAND_MULTICALL @warmelt-macro.melt:5712", + "MEXPAND_MULTICALL @warmelt-macro.melt:5717", MELT_ROUTDESCR_LEN - 1); cdat->drout_1457__MEXPAND_MULTICALL.nbval = 15; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1457__MEXPAND_MULTICALL, @@ -28027,7 +28027,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1459__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1459__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5745", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5750", MELT_ROUTDESCR_LEN - 1); cdat->drout_1459__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1459__LAMBDA_, meltrout_119_warmelt_macro_LAMBDA___33__); @@ -28038,7 +28038,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1460__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1460__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5749", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5754", MELT_ROUTDESCR_LEN - 1); cdat->drout_1460__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1460__LAMBDA_, meltrout_120_warmelt_macro_LAMBDA___34__); @@ -28081,7 +28081,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1463__MEXPAND_QUOTE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1463__MEXPAND_QUOTE.routdescr, - "MEXPAND_QUOTE @warmelt-macro.melt:5773", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_QUOTE @warmelt-macro.melt:5778", MELT_ROUTDESCR_LEN - 1); cdat->drout_1463__MEXPAND_QUOTE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1463__MEXPAND_QUOTE, meltrout_121_warmelt_macro_MEXPAND_QUOTE); @@ -28130,7 +28130,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1467__MEXPAND_COMMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1467__MEXPAND_COMMENT.routdescr, - "MEXPAND_COMMENT @warmelt-macro.melt:5812", + "MEXPAND_COMMENT @warmelt-macro.melt:5817", MELT_ROUTDESCR_LEN - 1); cdat->drout_1467__MEXPAND_COMMENT.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1467__MEXPAND_COMMENT, @@ -28181,7 +28181,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1471__MEXPAND_CHEADER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1471__MEXPAND_CHEADER.routdescr, - "MEXPAND_CHEADER @warmelt-macro.melt:5842", + "MEXPAND_CHEADER @warmelt-macro.melt:5847", MELT_ROUTDESCR_LEN - 1); cdat->drout_1471__MEXPAND_CHEADER.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1471__MEXPAND_CHEADER, @@ -28332,7 +28332,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1481__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1481__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.routdescr, - "MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG @warmelt-macro.melt:5891", + "MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG @warmelt-macro.melt:5896", MELT_ROUTDESCR_LEN - 1); cdat->drout_1481__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -28454,7 +28454,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1489__PAIRLIST_TO_RETURN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1489__PAIRLIST_TO_RETURN.routdescr, - "PAIRLIST_TO_RETURN @warmelt-macro.melt:5981", + "PAIRLIST_TO_RETURN @warmelt-macro.melt:5986", MELT_ROUTDESCR_LEN - 1); cdat->drout_1489__PAIRLIST_TO_RETURN.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1489__PAIRLIST_TO_RETURN, @@ -28473,7 +28473,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1491__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1491__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5989", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5994", MELT_ROUTDESCR_LEN - 1); cdat->drout_1491__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1491__LAMBDA_, meltrout_126_warmelt_macro_LAMBDA___35__); @@ -28484,7 +28484,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1492__MEXPAND_PROGN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1492__MEXPAND_PROGN.routdescr, - "MEXPAND_PROGN @warmelt-macro.melt:5997", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_PROGN @warmelt-macro.melt:6002", MELT_ROUTDESCR_LEN - 1); cdat->drout_1492__MEXPAND_PROGN.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1492__MEXPAND_PROGN, meltrout_127_warmelt_macro_MEXPAND_PROGN); @@ -28533,7 +28533,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1496__MEXPAND_RETURN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1496__MEXPAND_RETURN.routdescr, - "MEXPAND_RETURN @warmelt-macro.melt:6022", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_RETURN @warmelt-macro.melt:6027", MELT_ROUTDESCR_LEN - 1); cdat->drout_1496__MEXPAND_RETURN.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1496__MEXPAND_RETURN, meltrout_128_warmelt_macro_MEXPAND_RETURN); @@ -28583,7 +28583,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1500__MEXPAND_FOREVER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1500__MEXPAND_FOREVER.routdescr, - "MEXPAND_FOREVER @warmelt-macro.melt:6045", + "MEXPAND_FOREVER @warmelt-macro.melt:6050", MELT_ROUTDESCR_LEN - 1); cdat->drout_1500__MEXPAND_FOREVER.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1500__MEXPAND_FOREVER, @@ -28636,7 +28636,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1504__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1504__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:6069", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:6074", MELT_ROUTDESCR_LEN - 1); cdat->drout_1504__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1504__LAMBDA_, meltrout_130_warmelt_macro_LAMBDA___36__); @@ -28679,7 +28679,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1507__MEXPAND_EXIT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1507__MEXPAND_EXIT.routdescr, - "MEXPAND_EXIT @warmelt-macro.melt:6088", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_EXIT @warmelt-macro.melt:6093", MELT_ROUTDESCR_LEN - 1); cdat->drout_1507__MEXPAND_EXIT.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1507__MEXPAND_EXIT, meltrout_131_warmelt_macro_MEXPAND_EXIT); @@ -28697,7 +28697,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1509__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1509__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:6114", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:6119", MELT_ROUTDESCR_LEN - 1); cdat->drout_1509__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1509__LAMBDA_, meltrout_132_warmelt_macro_LAMBDA___37__); @@ -28739,7 +28739,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1512__MEXPAND_AGAIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1512__MEXPAND_AGAIN.routdescr, - "MEXPAND_AGAIN @warmelt-macro.melt:6131", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_AGAIN @warmelt-macro.melt:6136", MELT_ROUTDESCR_LEN - 1); cdat->drout_1512__MEXPAND_AGAIN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1512__MEXPAND_AGAIN, meltrout_133_warmelt_macro_MEXPAND_AGAIN); @@ -28788,7 +28788,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1516__MEXPAND_COMPILE_WARNING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1516__MEXPAND_COMPILE_WARNING.routdescr, - "MEXPAND_COMPILE_WARNING @warmelt-macro.melt:6175", + "MEXPAND_COMPILE_WARNING @warmelt-macro.melt:6180", MELT_ROUTDESCR_LEN - 1); cdat->drout_1516__MEXPAND_COMPILE_WARNING.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1516__MEXPAND_COMPILE_WARNING, @@ -28841,7 +28841,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1520__MEXPAND_ASSERT_MSG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1520__MEXPAND_ASSERT_MSG.routdescr, - "MEXPAND_ASSERT_MSG @warmelt-macro.melt:6218", + "MEXPAND_ASSERT_MSG @warmelt-macro.melt:6223", MELT_ROUTDESCR_LEN - 1); cdat->drout_1520__MEXPAND_ASSERT_MSG.nbval = 15; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1520__MEXPAND_ASSERT_MSG, @@ -28994,7 +28994,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1530__MEXPAND_DEBUG_MSG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1530__MEXPAND_DEBUG_MSG.routdescr, - "MEXPAND_DEBUG_MSG @warmelt-macro.melt:6307", + "MEXPAND_DEBUG_MSG @warmelt-macro.melt:6312", MELT_ROUTDESCR_LEN - 1); cdat->drout_1530__MEXPAND_DEBUG_MSG.nbval = 11; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1530__MEXPAND_DEBUG_MSG, @@ -29113,7 +29113,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1538__MEXPAND_DEBUG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1538__MEXPAND_DEBUG.routdescr, - "MEXPAND_DEBUG @warmelt-macro.melt:6380", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_DEBUG @warmelt-macro.melt:6385", MELT_ROUTDESCR_LEN - 1); cdat->drout_1538__MEXPAND_DEBUG.nbval = 27; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1538__MEXPAND_DEBUG, meltrout_137_warmelt_macro_MEXPAND_DEBUG); @@ -29303,7 +29303,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1551__MEXPAND_EXPORT_VALUES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1551__MEXPAND_EXPORT_VALUES.routdescr, - "MEXPAND_EXPORT_VALUES @warmelt-macro.melt:6520", + "MEXPAND_EXPORT_VALUES @warmelt-macro.melt:6525", MELT_ROUTDESCR_LEN - 1); cdat->drout_1551__MEXPAND_EXPORT_VALUES.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1551__MEXPAND_EXPORT_VALUES, @@ -29322,7 +29322,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1553__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1553__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:6532", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:6537", MELT_ROUTDESCR_LEN - 1); cdat->drout_1553__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1553__LAMBDA_, meltrout_139_warmelt_macro_LAMBDA___38__); @@ -29367,7 +29367,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1556__MEXPAND_EXPORT_MACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1556__MEXPAND_EXPORT_MACRO.routdescr, - "MEXPAND_EXPORT_MACRO @warmelt-macro.melt:6558", + "MEXPAND_EXPORT_MACRO @warmelt-macro.melt:6563", MELT_ROUTDESCR_LEN - 1); cdat->drout_1556__MEXPAND_EXPORT_MACRO.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1556__MEXPAND_EXPORT_MACRO, @@ -29420,7 +29420,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1560__MEXPAND_EXPORT_PATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1560__MEXPAND_EXPORT_PATMACRO.routdescr, - "MEXPAND_EXPORT_PATMACRO @warmelt-macro.melt:6602", + "MEXPAND_EXPORT_PATMACRO @warmelt-macro.melt:6607", MELT_ROUTDESCR_LEN - 1); cdat->drout_1560__MEXPAND_EXPORT_PATMACRO.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1560__MEXPAND_EXPORT_PATMACRO, @@ -29473,7 +29473,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1564__MEXPAND_EXPORT_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1564__MEXPAND_EXPORT_CLASS.routdescr, - "MEXPAND_EXPORT_CLASS @warmelt-macro.melt:6652", + "MEXPAND_EXPORT_CLASS @warmelt-macro.melt:6657", MELT_ROUTDESCR_LEN - 1); cdat->drout_1564__MEXPAND_EXPORT_CLASS.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1564__MEXPAND_EXPORT_CLASS, @@ -29492,7 +29492,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1566__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1566__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:6664", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:6669", MELT_ROUTDESCR_LEN - 1); cdat->drout_1566__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1566__LAMBDA_, meltrout_143_warmelt_macro_LAMBDA___39__); @@ -29537,7 +29537,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1569__MEXPAND_EXPORT_SYNONYM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1569__MEXPAND_EXPORT_SYNONYM.routdescr, - "MEXPAND_EXPORT_SYNONYM @warmelt-macro.melt:6684", + "MEXPAND_EXPORT_SYNONYM @warmelt-macro.melt:6689", MELT_ROUTDESCR_LEN - 1); cdat->drout_1569__MEXPAND_EXPORT_SYNONYM.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1569__MEXPAND_EXPORT_SYNONYM, @@ -29592,7 +29592,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1573__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER. routdescr, - "MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:6736", + "MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:6741", MELT_ROUTDESCR_LEN - 1); cdat->drout_1573__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -29647,7 +29647,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1577__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1577__MEXPAND_PARENT_MODULE_ENVIRONMENT.routdescr, - "MEXPAND_PARENT_MODULE_ENVIRONMENT @warmelt-macro.melt:6765", + "MEXPAND_PARENT_MODULE_ENVIRONMENT @warmelt-macro.melt:6770", MELT_ROUTDESCR_LEN - 1); cdat->drout_1577__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -29704,7 +29704,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, strncpy (cdat-> drout_1581__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. routdescr, - "MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:6794", + "MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:6799", MELT_ROUTDESCR_LEN - 1); cdat->drout_1581__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. nbval = 4; @@ -29763,7 +29763,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1585__MEXPAND_FETCH_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1585__MEXPAND_FETCH_PREDEFINED.routdescr, - "MEXPAND_FETCH_PREDEFINED @warmelt-macro.melt:6825", + "MEXPAND_FETCH_PREDEFINED @warmelt-macro.melt:6830", MELT_ROUTDESCR_LEN - 1); cdat->drout_1585__MEXPAND_FETCH_PREDEFINED.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1585__MEXPAND_FETCH_PREDEFINED, @@ -29816,7 +29816,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1589__MEXPAND_STORE_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1589__MEXPAND_STORE_PREDEFINED.routdescr, - "MEXPAND_STORE_PREDEFINED @warmelt-macro.melt:6854", + "MEXPAND_STORE_PREDEFINED @warmelt-macro.melt:6859", MELT_ROUTDESCR_LEN - 1); cdat->drout_1589__MEXPAND_STORE_PREDEFINED.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1589__MEXPAND_STORE_PREDEFINED, @@ -30375,8 +30375,8 @@ melt_start_this_module (void *modargp_) /*melt_start_this_module is initial declstructinit */ memset (&meltfram__, 0, sizeof (meltfram__)); -/* declstructinit initial routine melt_start_this_module minihash 2174*/ - meltfram__.mcfr_nbvar = -2174 /*minihash */ ; +/* declstructinit initial routine melt_start_this_module minihash 1034*/ + meltfram__.mcfr_nbvar = -1034 /*minihash */ ; ((struct melt_callframe_st *) &meltfram__)->mcfr_forwmarkrout = meltmarking_melt_start_this_module; @@ -30385,7 +30385,7 @@ melt_start_this_module (void *modargp_) /**initial routine prologue**/ /* set initial frame marking */ ((struct melt_callframe_st *) &meltfram__)->mcfr_nbvar = - /*minihash */ -2174; + /*minihash */ -1034; ((struct melt_callframe_st *) &meltfram__)->mcfr_forwmarkrout = meltmod__warmelt_macro__forward_or_mark_module_start_frame; /**COMMENT: get previous environment **/ ; @@ -32571,20 +32571,30 @@ melt_start_this_module (void *modargp_) } /*^getnamedsymbol */ + /*getnamedsym:CLASS_ANY_MATCHER */ + { + melt_ptr_t sy_CLASS_ANY_MATCHER = + meltgc_named_symbol ("CLASS_ANY_MATCHER", MELT_GET); + if (sy_CLASS_ANY_MATCHER && NULL == /*_.VALDATA___V1146*/ meltfptr[1145]) + /*_.VALDATA___V1146*/ meltfptr[1145] = + (melt_ptr_t) sy_CLASS_ANY_MATCHER; + } + + /*^getnamedsymbol */ /*getnamedsym:CLASS_FUNMATCHER */ { melt_ptr_t sy_CLASS_FUNMATCHER = meltgc_named_symbol ("CLASS_FUNMATCHER", MELT_GET); - if (sy_CLASS_FUNMATCHER && NULL == /*_.VALDATA___V1146*/ meltfptr[1145]) - /*_.VALDATA___V1146*/ meltfptr[1145] = (melt_ptr_t) sy_CLASS_FUNMATCHER; + if (sy_CLASS_FUNMATCHER && NULL == /*_.VALDATA___V1148*/ meltfptr[1147]) + /*_.VALDATA___V1148*/ meltfptr[1147] = (melt_ptr_t) sy_CLASS_FUNMATCHER; } /*^getnamedsymbol */ /*getnamedsym:FIND_ENV */ { melt_ptr_t sy_FIND_ENV = meltgc_named_symbol ("FIND_ENV", MELT_GET); - if (sy_FIND_ENV && NULL == /*_.VALDATA___V1148*/ meltfptr[1147]) - /*_.VALDATA___V1148*/ meltfptr[1147] = (melt_ptr_t) sy_FIND_ENV; + if (sy_FIND_ENV && NULL == /*_.VALDATA___V1150*/ meltfptr[1149]) + /*_.VALDATA___V1150*/ meltfptr[1149] = (melt_ptr_t) sy_FIND_ENV; } /*^getnamedsymbol */ @@ -32593,8 +32603,8 @@ melt_start_this_module (void *modargp_) melt_ptr_t sy_CLASS_MACRO_BINDING = meltgc_named_symbol ("CLASS_MACRO_BINDING", MELT_GET); if (sy_CLASS_MACRO_BINDING - && NULL == /*_.VALDATA___V1150*/ meltfptr[1149]) - /*_.VALDATA___V1150*/ meltfptr[1149] = + && NULL == /*_.VALDATA___V1152*/ meltfptr[1151]) + /*_.VALDATA___V1152*/ meltfptr[1151] = (melt_ptr_t) sy_CLASS_MACRO_BINDING; } @@ -32604,8 +32614,8 @@ melt_start_this_module (void *modargp_) melt_ptr_t sy_CLASS_SELECTOR_BINDING = meltgc_named_symbol ("CLASS_SELECTOR_BINDING", MELT_GET); if (sy_CLASS_SELECTOR_BINDING - && NULL == /*_.VALDATA___V1152*/ meltfptr[1151]) - /*_.VALDATA___V1152*/ meltfptr[1151] = + && NULL == /*_.VALDATA___V1154*/ meltfptr[1153]) + /*_.VALDATA___V1154*/ meltfptr[1153] = (melt_ptr_t) sy_CLASS_SELECTOR_BINDING; } @@ -32615,8 +32625,8 @@ melt_start_this_module (void *modargp_) melt_ptr_t sy_CLASS_PRIMITIVE_BINDING = meltgc_named_symbol ("CLASS_PRIMITIVE_BINDING", MELT_GET); if (sy_CLASS_PRIMITIVE_BINDING - && NULL == /*_.VALDATA___V1154*/ meltfptr[1153]) - /*_.VALDATA___V1154*/ meltfptr[1153] = + && NULL == /*_.VALDATA___V1156*/ meltfptr[1155]) + /*_.VALDATA___V1156*/ meltfptr[1155] = (melt_ptr_t) sy_CLASS_PRIMITIVE_BINDING; } @@ -32626,8 +32636,8 @@ melt_start_this_module (void *modargp_) melt_ptr_t sy_CLASS_CITERATOR_BINDING = meltgc_named_symbol ("CLASS_CITERATOR_BINDING", MELT_GET); if (sy_CLASS_CITERATOR_BINDING - && NULL == /*_.VALDATA___V1156*/ meltfptr[1155]) - /*_.VALDATA___V1156*/ meltfptr[1155] = + && NULL == /*_.VALDATA___V1158*/ meltfptr[1157]) + /*_.VALDATA___V1158*/ meltfptr[1157] = (melt_ptr_t) sy_CLASS_CITERATOR_BINDING; } @@ -32637,8 +32647,8 @@ melt_start_this_module (void *modargp_) melt_ptr_t sy_CLASS_CMATCHER_BINDING = meltgc_named_symbol ("CLASS_CMATCHER_BINDING", MELT_GET); if (sy_CLASS_CMATCHER_BINDING - && NULL == /*_.VALDATA___V1158*/ meltfptr[1157]) - /*_.VALDATA___V1158*/ meltfptr[1157] = + && NULL == /*_.VALDATA___V1160*/ meltfptr[1159]) + /*_.VALDATA___V1160*/ meltfptr[1159] = (melt_ptr_t) sy_CLASS_CMATCHER_BINDING; } @@ -32648,8 +32658,8 @@ melt_start_this_module (void *modargp_) melt_ptr_t sy_CLASS_FUNMATCHER_BINDING = meltgc_named_symbol ("CLASS_FUNMATCHER_BINDING", MELT_GET); if (sy_CLASS_FUNMATCHER_BINDING - && NULL == /*_.VALDATA___V1160*/ meltfptr[1159]) - /*_.VALDATA___V1160*/ meltfptr[1159] = + && NULL == /*_.VALDATA___V1162*/ meltfptr[1161]) + /*_.VALDATA___V1162*/ meltfptr[1161] = (melt_ptr_t) sy_CLASS_FUNMATCHER_BINDING; } @@ -32659,8 +32669,8 @@ melt_start_this_module (void *modargp_) melt_ptr_t sy_CLASS_FIELD_BINDING = meltgc_named_symbol ("CLASS_FIELD_BINDING", MELT_GET); if (sy_CLASS_FIELD_BINDING - && NULL == /*_.VALDATA___V1162*/ meltfptr[1161]) - /*_.VALDATA___V1162*/ meltfptr[1161] = + && NULL == /*_.VALDATA___V1164*/ meltfptr[1163]) + /*_.VALDATA___V1164*/ meltfptr[1163] = (melt_ptr_t) sy_CLASS_FIELD_BINDING; } @@ -32670,8 +32680,8 @@ melt_start_this_module (void *modargp_) melt_ptr_t sy_CLASS_FORMAL_BINDING = meltgc_named_symbol ("CLASS_FORMAL_BINDING", MELT_GET); if (sy_CLASS_FORMAL_BINDING - && NULL == /*_.VALDATA___V1164*/ meltfptr[1163]) - /*_.VALDATA___V1164*/ meltfptr[1163] = + && NULL == /*_.VALDATA___V1166*/ meltfptr[1165]) + /*_.VALDATA___V1166*/ meltfptr[1165] = (melt_ptr_t) sy_CLASS_FORMAL_BINDING; } @@ -32680,8 +32690,8 @@ melt_start_this_module (void *modargp_) { melt_ptr_t sy_CLASS_LET_BINDING = meltgc_named_symbol ("CLASS_LET_BINDING", MELT_GET); - if (sy_CLASS_LET_BINDING && NULL == /*_.VALDATA___V1166*/ meltfptr[1165]) - /*_.VALDATA___V1166*/ meltfptr[1165] = + if (sy_CLASS_LET_BINDING && NULL == /*_.VALDATA___V1168*/ meltfptr[1167]) + /*_.VALDATA___V1168*/ meltfptr[1167] = (melt_ptr_t) sy_CLASS_LET_BINDING; } @@ -32691,8 +32701,8 @@ melt_start_this_module (void *modargp_) melt_ptr_t sy_CLASS_VALUE_BINDING = meltgc_named_symbol ("CLASS_VALUE_BINDING", MELT_GET); if (sy_CLASS_VALUE_BINDING - && NULL == /*_.VALDATA___V1168*/ meltfptr[1167]) - /*_.VALDATA___V1168*/ meltfptr[1167] = + && NULL == /*_.VALDATA___V1170*/ meltfptr[1169]) + /*_.VALDATA___V1170*/ meltfptr[1169] = (melt_ptr_t) sy_CLASS_VALUE_BINDING; } @@ -32701,8 +32711,8 @@ melt_start_this_module (void *modargp_) { melt_ptr_t sy_CLASS_PRIMITIVE = meltgc_named_symbol ("CLASS_PRIMITIVE", MELT_GET); - if (sy_CLASS_PRIMITIVE && NULL == /*_.VALDATA___V1170*/ meltfptr[1169]) - /*_.VALDATA___V1170*/ meltfptr[1169] = (melt_ptr_t) sy_CLASS_PRIMITIVE; + if (sy_CLASS_PRIMITIVE && NULL == /*_.VALDATA___V1172*/ meltfptr[1171]) + /*_.VALDATA___V1172*/ meltfptr[1171] = (melt_ptr_t) sy_CLASS_PRIMITIVE; } /*^getnamedsymbol */ @@ -32711,8 +32721,8 @@ melt_start_this_module (void *modargp_) melt_ptr_t sy_CLASS_PATTERN_EXPANSION_CONTEXT = meltgc_named_symbol ("CLASS_PATTERN_EXPANSION_CONTEXT", MELT_GET); if (sy_CLASS_PATTERN_EXPANSION_CONTEXT - && NULL == /*_.VALDATA___V1172*/ meltfptr[1171]) - /*_.VALDATA___V1172*/ meltfptr[1171] = + && NULL == /*_.VALDATA___V1174*/ meltfptr[1173]) + /*_.VALDATA___V1174*/ meltfptr[1173] = (melt_ptr_t) sy_CLASS_PATTERN_EXPANSION_CONTEXT; } @@ -32720,8 +32730,8 @@ melt_start_this_module (void *modargp_) /*getnamedsym:CLASS_ROOT */ { melt_ptr_t sy_CLASS_ROOT = meltgc_named_symbol ("CLASS_ROOT", MELT_GET); - if (sy_CLASS_ROOT && NULL == /*_.VALDATA___V1174*/ meltfptr[1173]) - /*_.VALDATA___V1174*/ meltfptr[1173] = (melt_ptr_t) sy_CLASS_ROOT; + if (sy_CLASS_ROOT && NULL == /*_.VALDATA___V1176*/ meltfptr[1175]) + /*_.VALDATA___V1176*/ meltfptr[1175] = (melt_ptr_t) sy_CLASS_ROOT; } /*^getnamedsymbol */ @@ -32729,8 +32739,8 @@ melt_start_this_module (void *modargp_) { melt_ptr_t sy_PCTX_MEXPANDER = meltgc_named_symbol ("PCTX_MEXPANDER", MELT_GET); - if (sy_PCTX_MEXPANDER && NULL == /*_.VALDATA___V1188*/ meltfptr[1187]) - /*_.VALDATA___V1188*/ meltfptr[1187] = (melt_ptr_t) sy_PCTX_MEXPANDER; + if (sy_PCTX_MEXPANDER && NULL == /*_.VALDATA___V1190*/ meltfptr[1189]) + /*_.VALDATA___V1190*/ meltfptr[1189] = (melt_ptr_t) sy_PCTX_MEXPANDER; } /*^getnamedsymbol */ @@ -32738,24 +32748,24 @@ melt_start_this_module (void *modargp_) { melt_ptr_t sy_PCTX_PEXPANDER = meltgc_named_symbol ("PCTX_PEXPANDER", MELT_GET); - if (sy_PCTX_PEXPANDER && NULL == /*_.VALDATA___V1190*/ meltfptr[1189]) - /*_.VALDATA___V1190*/ meltfptr[1189] = (melt_ptr_t) sy_PCTX_PEXPANDER; + if (sy_PCTX_PEXPANDER && NULL == /*_.VALDATA___V1192*/ meltfptr[1191]) + /*_.VALDATA___V1192*/ meltfptr[1191] = (melt_ptr_t) sy_PCTX_PEXPANDER; } /*^getnamedsymbol */ /*getnamedsym:PCTX_VARMAP */ { melt_ptr_t sy_PCTX_VARMAP = meltgc_named_symbol ("PCTX_VARMAP", MELT_GET); - if (sy_PCTX_VARMAP && NULL == /*_.VALDATA___V1192*/ meltfptr[1191]) - /*_.VALDATA___V1192*/ meltfptr[1191] = (melt_ptr_t) sy_PCTX_VARMAP; + if (sy_PCTX_VARMAP && NULL == /*_.VALDATA___V1194*/ meltfptr[1193]) + /*_.VALDATA___V1194*/ meltfptr[1193] = (melt_ptr_t) sy_PCTX_VARMAP; } /*^getnamedsymbol */ /*getnamedsym:PCTX_MODCTX */ { melt_ptr_t sy_PCTX_MODCTX = meltgc_named_symbol ("PCTX_MODCTX", MELT_GET); - if (sy_PCTX_MODCTX && NULL == /*_.VALDATA___V1194*/ meltfptr[1193]) - /*_.VALDATA___V1194*/ meltfptr[1193] = (melt_ptr_t) sy_PCTX_MODCTX; + if (sy_PCTX_MODCTX && NULL == /*_.VALDATA___V1196*/ meltfptr[1195]) + /*_.VALDATA___V1196*/ meltfptr[1195] = (melt_ptr_t) sy_PCTX_MODCTX; } /*^getnamedsymbol */ @@ -32764,19 +32774,9 @@ melt_start_this_module (void *modargp_) melt_ptr_t sy_PAIRLIST_TO_MULTIPLE = meltgc_named_symbol ("PAIRLIST_TO_MULTIPLE", MELT_GET); if (sy_PAIRLIST_TO_MULTIPLE - && NULL == /*_.VALDATA___V1218*/ meltfptr[1217]) - /*_.VALDATA___V1218*/ meltfptr[1217] = - (melt_ptr_t) sy_PAIRLIST_TO_MULTIPLE; - } - - /*^getnamedsymbol */ - /*getnamedsym:CLASS_ANY_MATCHER */ - { - melt_ptr_t sy_CLASS_ANY_MATCHER = - meltgc_named_symbol ("CLASS_ANY_MATCHER", MELT_GET); - if (sy_CLASS_ANY_MATCHER && NULL == /*_.VALDATA___V1220*/ meltfptr[1219]) + && NULL == /*_.VALDATA___V1220*/ meltfptr[1219]) /*_.VALDATA___V1220*/ meltfptr[1219] = - (melt_ptr_t) sy_CLASS_ANY_MATCHER; + (melt_ptr_t) sy_PAIRLIST_TO_MULTIPLE; } /*^getnamedsymbol */ @@ -32821,16 +32821,16 @@ melt_start_this_module (void *modargp_) /*getnamedsym:QUESTION */ { melt_ptr_t sy_QUESTION = meltgc_named_symbol ("QUESTION", MELT_GET); - if (sy_QUESTION && NULL == /*_.VALDATA___V1199*/ meltfptr[1198]) - /*_.VALDATA___V1199*/ meltfptr[1198] = (melt_ptr_t) sy_QUESTION; + if (sy_QUESTION && NULL == /*_.VALDATA___V1201*/ meltfptr[1200]) + /*_.VALDATA___V1201*/ meltfptr[1200] = (melt_ptr_t) sy_QUESTION; } /*^getnamedsymbol */ /*getnamedsym:_ */ { melt_ptr_t sy_ = meltgc_named_symbol ("_", MELT_GET); - if (sy_ && NULL == /*_.VALDATA___V1202*/ meltfptr[1201]) - /*_.VALDATA___V1202*/ meltfptr[1201] = (melt_ptr_t) sy_; + if (sy_ && NULL == /*_.VALDATA___V1204*/ meltfptr[1203]) + /*_.VALDATA___V1204*/ meltfptr[1203] = (melt_ptr_t) sy_; } /*^getnamedsymbol */ @@ -34345,10 +34345,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_FUNMATCHER"; + argtab[1].meltbp_cstring = "CLASS_ANY_MATCHER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_FUNMATCHER__V26*/ meltfptr[25] = + /*_.CLASS_ANY_MATCHER__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1146*/ meltfptr[1145]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -34363,10 +34363,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "FIND_ENV"; + argtab[1].meltbp_cstring = "CLASS_FUNMATCHER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.FIND_ENV__V27*/ meltfptr[26] = + /*_.CLASS_FUNMATCHER__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1148*/ meltfptr[1147]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -34381,10 +34381,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_MACRO_BINDING"; + argtab[1].meltbp_cstring = "FIND_ENV"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_MACRO_BINDING__V28*/ meltfptr[27] = + /*_.FIND_ENV__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1150*/ meltfptr[1149]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -34399,10 +34399,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_SELECTOR_BINDING"; + argtab[1].meltbp_cstring = "CLASS_MACRO_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_SELECTOR_BINDING__V29*/ meltfptr[28] = + /*_.CLASS_MACRO_BINDING__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1152*/ meltfptr[1151]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -34417,10 +34417,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_PRIMITIVE_BINDING"; + argtab[1].meltbp_cstring = "CLASS_SELECTOR_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_PRIMITIVE_BINDING__V30*/ meltfptr[29] = + /*_.CLASS_SELECTOR_BINDING__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1154*/ meltfptr[1153]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -34435,10 +34435,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_CITERATOR_BINDING"; + argtab[1].meltbp_cstring = "CLASS_PRIMITIVE_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_CITERATOR_BINDING__V31*/ meltfptr[30] = + /*_.CLASS_PRIMITIVE_BINDING__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1156*/ meltfptr[1155]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -34453,10 +34453,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_CMATCHER_BINDING"; + argtab[1].meltbp_cstring = "CLASS_CITERATOR_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_CMATCHER_BINDING__V32*/ meltfptr[31] = + /*_.CLASS_CITERATOR_BINDING__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1158*/ meltfptr[1157]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -34471,10 +34471,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_FUNMATCHER_BINDING"; + argtab[1].meltbp_cstring = "CLASS_CMATCHER_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_FUNMATCHER_BINDING__V33*/ meltfptr[32] = + /*_.CLASS_CMATCHER_BINDING__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1160*/ meltfptr[1159]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -34489,10 +34489,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_FIELD_BINDING"; + argtab[1].meltbp_cstring = "CLASS_FUNMATCHER_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_FIELD_BINDING__V34*/ meltfptr[33] = + /*_.CLASS_FUNMATCHER_BINDING__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1162*/ meltfptr[1161]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -34507,10 +34507,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_FORMAL_BINDING"; + argtab[1].meltbp_cstring = "CLASS_FIELD_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34] = + /*_.CLASS_FIELD_BINDING__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1164*/ meltfptr[1163]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -34525,10 +34525,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_LET_BINDING"; + argtab[1].meltbp_cstring = "CLASS_FORMAL_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_LET_BINDING__V36*/ meltfptr[35] = + /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1166*/ meltfptr[1165]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -34543,10 +34543,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_VALUE_BINDING"; + argtab[1].meltbp_cstring = "CLASS_LET_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36] = + /*_.CLASS_LET_BINDING__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -34561,10 +34561,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_PRIMITIVE"; + argtab[1].meltbp_cstring = "CLASS_VALUE_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_PRIMITIVE__V38*/ meltfptr[37] = + /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1170*/ meltfptr[1169]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -34579,12 +34579,12 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_ROOT"; + argtab[1].meltbp_cstring = "CLASS_PRIMITIVE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_ROOT__V39*/ meltfptr[38] = + /*_.CLASS_PRIMITIVE__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), - (melt_ptr_t) ( /*_.VALDATA___V1174*/ meltfptr[1173]), + (melt_ptr_t) ( /*_.VALDATA___V1172*/ meltfptr[1171]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } @@ -34597,12 +34597,12 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "PAIRLIST_TO_MULTIPLE"; + argtab[1].meltbp_cstring = "CLASS_ROOT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39] = + /*_.CLASS_ROOT__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), - (melt_ptr_t) ( /*_.VALDATA___V1218*/ meltfptr[1217]), + (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } @@ -34615,10 +34615,10 @@ melt_start_this_module (void *modargp_) /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ - argtab[1].meltbp_cstring = "CLASS_ANY_MATCHER"; + argtab[1].meltbp_cstring = "PAIRLIST_TO_MULTIPLE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; - /*_.CLASS_ANY_MATCHER__V41*/ meltfptr[40] = + /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1220*/ meltfptr[1219]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING @@ -67033,7 +67033,7 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1106*/ meltfptr[1105])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -67045,7 +67045,7 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[0] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67054,12 +67054,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#1", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#1", NULL != ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67068,12 +67068,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#2", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#2", NULL != ( /*_.CLASS_SEXPR__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67082,12 +67082,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#3", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#3", NULL != ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67096,12 +67096,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#4", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#4", NULL != ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:1267:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1272:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67110,12 +67110,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1110*/ meltfptr[1109])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1061__EXPAND_KEYWORDFUN#0", + melt_checkmsg ("putroutconst constnull.drout_1063__EXPAND_KEYWORDFUN#0", NULL != ( /*_.CLASS_SEXPR__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1110*/ meltfptr[1109])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:1267:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1272:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67124,12 +67124,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1110*/ meltfptr[1109])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1061__EXPAND_KEYWORDFUN#1", + melt_checkmsg ("putroutconst constnull.drout_1063__EXPAND_KEYWORDFUN#1", NULL != ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1110*/ meltfptr[1109])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:1267:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1272:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67138,12 +67138,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1110*/ meltfptr[1109])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1061__EXPAND_KEYWORDFUN#2", + melt_checkmsg ("putroutconst constnull.drout_1063__EXPAND_KEYWORDFUN#2", NULL != ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1110*/ meltfptr[1109])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:1267:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1272:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67152,12 +67152,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1110*/ meltfptr[1109])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1061__EXPAND_KEYWORDFUN#3", + melt_checkmsg ("putroutconst constnull.drout_1063__EXPAND_KEYWORDFUN#3", NULL != ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1110*/ meltfptr[1109])->tabval[3] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:1267:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1272:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67166,12 +67166,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1110*/ meltfptr[1109])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1061__EXPAND_KEYWORDFUN#4", + melt_checkmsg ("putroutconst constnull.drout_1063__EXPAND_KEYWORDFUN#4", NULL != ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V1110*/ meltfptr[1109])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:1267:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1272:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1110*/ meltfptr[1109]); @@ -67191,7 +67191,7 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1109*/ meltfptr[1108]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -67203,7 +67203,7 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1109*/ meltfptr[1108]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67212,12 +67212,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#6", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#6", NULL != ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67226,12 +67226,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#7", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#7", + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[7] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67240,12 +67240,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#8", - NULL != ( /*_.CLASS_MACRO_BINDING__V28*/ meltfptr[27])); + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#8", + NULL != ( /*_.CLASS_MACRO_BINDING__V29*/ meltfptr[28])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[8] = - (melt_ptr_t) ( /*_.CLASS_MACRO_BINDING__V28*/ meltfptr[27]); + (melt_ptr_t) ( /*_.CLASS_MACRO_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67254,10 +67254,10 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#9", - NULL != ( /*_.CLASS_SELECTOR_BINDING__V29*/ meltfptr[28])); + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#9", + NULL != ( /*_.CLASS_SELECTOR_BINDING__V30*/ meltfptr[29])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[9] = - (melt_ptr_t) ( /*_.CLASS_SELECTOR_BINDING__V29*/ meltfptr[28]); + (melt_ptr_t) ( /*_.CLASS_SELECTOR_BINDING__V30*/ meltfptr[29]); /*putclosurout#10 */ melt_assertmsg ("putclosrout#10 checkclo", @@ -67274,7 +67274,7 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1111*/ meltfptr[1110]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -67286,7 +67286,7 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[10] = (melt_ptr_t) ( /*_.VALCLO___V1111*/ meltfptr[1110]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67295,13 +67295,13 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#11", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#11", NULL != - ( /*_.CLASS_PRIMITIVE_BINDING__V30*/ meltfptr[29])); + ( /*_.CLASS_PRIMITIVE_BINDING__V31*/ meltfptr[30])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[11] = - (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V30*/ meltfptr[29]); + (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-macro.melt:1445:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1450:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67310,12 +67310,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1090__EXPAND_PRIMITIVE#0", - NULL != ( /*_.CLASS_PRIMITIVE__V38*/ meltfptr[37])); + melt_checkmsg ("putroutconst constnull.drout_1092__EXPAND_PRIMITIVE#0", + NULL != ( /*_.CLASS_PRIMITIVE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1113*/ meltfptr[1112])->tabval[0] = - (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V38*/ meltfptr[37]); + (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V39*/ meltfptr[38]); - MELT_LOCATION ("warmelt-macro.melt:1445:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1450:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67324,12 +67324,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1090__EXPAND_PRIMITIVE#1", + melt_checkmsg ("putroutconst constnull.drout_1092__EXPAND_PRIMITIVE#1", NULL != ( /*_.CLASS_SEXPR__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1113*/ meltfptr[1112])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:1445:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1450:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67338,12 +67338,12 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1113*/ meltfptr[1112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1090__EXPAND_PRIMITIVE#2", + melt_checkmsg ("putroutconst constnull.drout_1092__EXPAND_PRIMITIVE#2", NULL != ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1113*/ meltfptr[1112])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:1445:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1450:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -67355,7 +67355,7 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1113*/ meltfptr[1112])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1087*/ meltfptr[1086]); - MELT_LOCATION ("warmelt-macro.melt:1445:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1450:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -67367,7 +67367,7 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1113*/ meltfptr[1112])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V153*/ meltfptr[152]); - MELT_LOCATION ("warmelt-macro.melt:1445:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1450:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1113*/ meltfptr[1112]); @@ -67387,7 +67387,7 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1112*/ meltfptr[1111]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -67399,7 +67399,7 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V1112*/ meltfptr[1111]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67408,11 +67408,11 @@ meltmod__warmelt_macro__initialmeltchunk_20 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#13", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#13", NULL != - ( /*_.CLASS_CITERATOR_BINDING__V31*/ meltfptr[30])); + ( /*_.CLASS_CITERATOR_BINDING__V32*/ meltfptr[31])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[13] = - (melt_ptr_t) ( /*_.CLASS_CITERATOR_BINDING__V31*/ meltfptr[30]); + (melt_ptr_t) ( /*_.CLASS_CITERATOR_BINDING__V32*/ meltfptr[31]); MELT_LOCATION ("warmelt-macro.melt:1129:/ initchunk"); /*^putroutconst */ @@ -67510,7 +67510,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1115*/ meltfptr[1114])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1095*/ meltfptr[1094]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67524,7 +67524,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[0] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67538,7 +67538,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67552,7 +67552,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[2] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67566,7 +67566,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67580,7 +67580,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67617,7 +67617,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1118*/ meltfptr[1117], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67631,7 +67631,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1118*/ meltfptr[1117]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67646,7 +67646,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67660,7 +67660,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67674,7 +67674,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V51*/ meltfptr[50]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67689,7 +67689,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67704,7 +67704,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67715,11 +67715,11 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1154__LAMBDA_ARG_BINDINGS#12", - NULL != ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34])); + NULL != ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[12] = - (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34]); + (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67734,7 +67734,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[13] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67749,7 +67749,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1117*/ meltfptr[1116])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51]); - MELT_LOCATION ("warmelt-macro.melt:1885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1890:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1117*/ meltfptr[1116]); @@ -67874,7 +67874,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1114*/ meltfptr[1113]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -67886,7 +67886,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[14] = (melt_ptr_t) ( /*_.VALCLO___V1114*/ meltfptr[1113]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -67895,10 +67895,10 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#15", - NULL != ( /*_.CLASS_CMATCHER_BINDING__V32*/ meltfptr[31])); + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#15", + NULL != ( /*_.CLASS_CMATCHER_BINDING__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[15] = - (melt_ptr_t) ( /*_.CLASS_CMATCHER_BINDING__V32*/ meltfptr[31]); + (melt_ptr_t) ( /*_.CLASS_CMATCHER_BINDING__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-macro.melt:1192:/ initchunk"); /*^putroutconst */ @@ -67969,6 +67969,34 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct (melt_ptr_t) ( /*_.VALCLO___V1087*/ meltfptr[1086]); MELT_LOCATION ("warmelt-macro.melt:1192:/ initchunk"); + /*^putroutconst */ + /*putroutconst */ + if (MELT_HAS_INITIAL_ENVIRONMENT) + melt_assertmsg ("putroutconst checkrout", + melt_magic_discr ((melt_ptr_t) + ( /*_.VALROUT___V1122*/ meltfptr[1121])) + == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) + melt_checkmsg ("putroutconst constnull.drout_1053__EXPAND_CMATCHEXPR#5", + NULL != ( /*_.CLASS_ANY_MATCHER__V26*/ meltfptr[25])); + ((meltroutine_ptr_t) /*_.VALROUT___V1122*/ meltfptr[1121])->tabval[5] = + (melt_ptr_t) ( /*_.CLASS_ANY_MATCHER__V26*/ meltfptr[25]); + + MELT_LOCATION ("warmelt-macro.melt:1192:/ initchunk"); + /*^putroutconst */ + /*putroutconst */ + if (MELT_HAS_INITIAL_ENVIRONMENT) + melt_assertmsg ("putroutconst checkrout", + melt_magic_discr ((melt_ptr_t) + ( /*_.VALROUT___V1122*/ meltfptr[1121])) + == MELTOBMAG_ROUTINE); + if (MELT_HAS_INITIAL_ENVIRONMENT) + melt_checkmsg ("putroutconst constnull.drout_1053__EXPAND_CMATCHEXPR#6", + NULL != ( /*_.CLASS_NAMED__V20*/ meltfptr[19])); + ((meltroutine_ptr_t) /*_.VALROUT___V1122*/ meltfptr[1121])->tabval[6] = + (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); + + MELT_LOCATION ("warmelt-macro.melt:1192:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -67977,7 +68005,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V181*/ meltfptr[180]); - ((meltroutine_ptr_t) /*_.VALROUT___V1122*/ meltfptr[1121])->tabval[5] = + ((meltroutine_ptr_t) /*_.VALROUT___V1122*/ meltfptr[1121])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V181*/ meltfptr[180]); MELT_LOCATION ("warmelt-macro.melt:1192:/ initchunk"); @@ -68000,7 +68028,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1121*/ meltfptr[1120]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -68012,7 +68040,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[16] = (melt_ptr_t) ( /*_.VALCLO___V1121*/ meltfptr[1120]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68021,13 +68049,13 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#17", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#17", NULL != - ( /*_.CLASS_FUNMATCHER_BINDING__V33*/ meltfptr[32])); + ( /*_.CLASS_FUNMATCHER_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[17] = - (melt_ptr_t) ( /*_.CLASS_FUNMATCHER_BINDING__V33*/ meltfptr[32]); + (melt_ptr_t) ( /*_.CLASS_FUNMATCHER_BINDING__V34*/ meltfptr[33]); - MELT_LOCATION ("warmelt-macro.melt:1235:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1240:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68036,12 +68064,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1124*/ meltfptr[1123])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1057__EXPAND_FUNMATCHEXPR#0", + melt_checkmsg ("putroutconst constnull.drout_1059__EXPAND_FUNMATCHEXPR#0", NULL != ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1124*/ meltfptr[1123])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:1235:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1240:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68050,12 +68078,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1124*/ meltfptr[1123])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1057__EXPAND_FUNMATCHEXPR#1", + melt_checkmsg ("putroutconst constnull.drout_1059__EXPAND_FUNMATCHEXPR#1", NULL != ( /*_.CLASS_SEXPR__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1124*/ meltfptr[1123])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:1235:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1240:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68064,12 +68092,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1124*/ meltfptr[1123])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1057__EXPAND_FUNMATCHEXPR#2", + melt_checkmsg ("putroutconst constnull.drout_1059__EXPAND_FUNMATCHEXPR#2", NULL != ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1124*/ meltfptr[1123])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:1235:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1240:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68078,12 +68106,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1124*/ meltfptr[1123])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1057__EXPAND_FUNMATCHEXPR#3", - NULL != ( /*_.CLASS_FUNMATCHER__V26*/ meltfptr[25])); + melt_checkmsg ("putroutconst constnull.drout_1059__EXPAND_FUNMATCHEXPR#3", + NULL != ( /*_.CLASS_FUNMATCHER__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V1124*/ meltfptr[1123])->tabval[3] = - (melt_ptr_t) ( /*_.CLASS_FUNMATCHER__V26*/ meltfptr[25]); + (melt_ptr_t) ( /*_.CLASS_FUNMATCHER__V27*/ meltfptr[26]); - MELT_LOCATION ("warmelt-macro.melt:1235:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1240:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -68095,7 +68123,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1124*/ meltfptr[1123])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1087*/ meltfptr[1086]); - MELT_LOCATION ("warmelt-macro.melt:1235:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1240:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -68107,7 +68135,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1124*/ meltfptr[1123])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V191*/ meltfptr[190]); - MELT_LOCATION ("warmelt-macro.melt:1235:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1240:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1124*/ meltfptr[1123]); @@ -68127,7 +68155,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1123*/ meltfptr[1122]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -68139,7 +68167,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[18] = (melt_ptr_t) ( /*_.VALCLO___V1123*/ meltfptr[1122]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68148,10 +68176,10 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#19", - NULL != ( /*_.CLASS_FIELD_BINDING__V34*/ meltfptr[33])); + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#19", + NULL != ( /*_.CLASS_FIELD_BINDING__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[19] = - (melt_ptr_t) ( /*_.CLASS_FIELD_BINDING__V34*/ meltfptr[33]); + (melt_ptr_t) ( /*_.CLASS_FIELD_BINDING__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-macro.melt:1071:/ initchunk"); /*^putroutconst */ @@ -68297,7 +68325,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1125*/ meltfptr[1124]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -68309,7 +68337,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[20] = (melt_ptr_t) ( /*_.VALCLO___V1125*/ meltfptr[1124]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68318,12 +68346,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#21", - NULL != ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34])); + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#21", + NULL != ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[21] = - (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34]); + (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -68335,7 +68363,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[22] = (melt_ptr_t) ( /*_.VALCLO___V1105*/ meltfptr[1104]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68344,12 +68372,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#23", - NULL != ( /*_.CLASS_LET_BINDING__V36*/ meltfptr[35])); + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#23", + NULL != ( /*_.CLASS_LET_BINDING__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[23] = - (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V36*/ meltfptr[35]); + (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V37*/ meltfptr[36]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68358,12 +68386,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#24", - NULL != ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36])); + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#24", + NULL != ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[24] = - (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36]); + (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68372,12 +68400,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#25", - NULL != ( /*_.CLASS_PRIMITIVE__V38*/ meltfptr[37])); + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#25", + NULL != ( /*_.CLASS_PRIMITIVE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[25] = - (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V38*/ meltfptr[37]); + (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V39*/ meltfptr[38]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68386,12 +68414,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#26", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#26", NULL != ( /*_.CLASS_SELECTOR__V7*/ meltfptr[6])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[26] = (melt_ptr_t) ( /*_.CLASS_SELECTOR__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68400,12 +68428,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#27", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#27", NULL != ( /*_.CLASS_CITERATOR__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[27] = (melt_ptr_t) ( /*_.CLASS_CITERATOR__V21*/ meltfptr[20]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68414,12 +68442,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#28", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#28", NULL != ( /*_.CLASS_CMATCHER__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[28] = (melt_ptr_t) ( /*_.CLASS_CMATCHER__V25*/ meltfptr[24]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68428,12 +68456,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#29", - NULL != ( /*_.CLASS_FUNMATCHER__V26*/ meltfptr[25])); + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#29", + NULL != ( /*_.CLASS_FUNMATCHER__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[29] = - (melt_ptr_t) ( /*_.CLASS_FUNMATCHER__V26*/ meltfptr[25]); + (melt_ptr_t) ( /*_.CLASS_FUNMATCHER__V27*/ meltfptr[26]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68442,12 +68470,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#30", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#30", NULL != ( /*_.CLASS_FIELD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[30] = (melt_ptr_t) ( /*_.CLASS_FIELD__V18*/ meltfptr[17]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68456,12 +68484,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#31", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#31", NULL != ( /*_.VALROUT___V1127*/ meltfptr[1126])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[31] = (melt_ptr_t) ( /*_.VALROUT___V1127*/ meltfptr[1126]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -68473,7 +68501,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[32] = (melt_ptr_t) ( /*_.VALDATA___V105*/ meltfptr[104]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -68482,12 +68510,12 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct ( /*_.VALROUT___V1108*/ meltfptr[1107])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) - melt_checkmsg ("putroutconst constnull.drout_1063__MACROEXPAND_1#33", + melt_checkmsg ("putroutconst constnull.drout_1065__MACROEXPAND_1#33", NULL != ( /*_.CLASS_NAMED__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V1108*/ meltfptr[1107])->tabval[33] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:1285:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1290:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1108*/ meltfptr[1107]); @@ -68835,6 +68863,20 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct meltgc_touch ( /*_.VALDATA___V1150*/ meltfptr[1149]); +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_21 */ + +void +meltmod__warmelt_macro__initialmeltchunk_22 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; + melt_dbgtrace_written_object ( /*_.VALDATA___V1150*/ meltfptr[1149], "new static instance"); @@ -68854,21 +68896,7 @@ meltmod__warmelt_macro__initialmeltchunk_21 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1153*/ meltfptr[1152]); - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_21 */ - -void -meltmod__warmelt_macro__initialmeltchunk_22 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; -/*touch:VALUEDATA_*/ + /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1152*/ meltfptr[1151]); @@ -69128,8 +69156,6 @@ meltmod__warmelt_macro__initialmeltchunk_22 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1174*/ meltfptr[1173], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); - /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) @@ -69146,107 +69172,85 @@ meltmod__warmelt_macro__initialmeltchunk_22 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1177*/ meltfptr[1176]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + /*touch:VALUEDATA_ */ + meltgc_touch ( /*_.VALDATA___V1176*/ meltfptr[1175]); + + + melt_dbgtrace_written_object ( /*_.VALDATA___V1176*/ meltfptr[1175], + "new static instance"); + + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) - ( /*_.VALDATA___V1176*/ meltfptr[1175])) + ( /*_.VALDATA___V1178*/ meltfptr[1177])) + == MELTOBMAG_OBJECT); + + melt_assertmsg ("putslot checkoff", + (1 >= 0 + && 1 < + melt_object_length ((melt_ptr_t) + ( /*_.VALDATA___V1178*/ + meltfptr[1177])))); + ((meltobject_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]))-> + obj_vartab[1] = (melt_ptr_t) ( + /*_.VALSTR___V1179*/ meltfptr[1178]); + + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); + /*^putslot */ + /*putslot */ + melt_assertmsg ("putslot checkobj", + melt_magic_discr ((melt_ptr_t) + ( /*_.VALDATA___V1178*/ meltfptr[1177])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) - ( /*_.VALDATA___V1176*/ - meltfptr[1175])))); - ((meltobject_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]))-> + ( /*_.VALDATA___V1178*/ + meltfptr[1177])))); + ((meltobject_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]))-> obj_vartab[4] = (melt_ptr_t) ( - /*_.CLASS_ROOT__V39*/ meltfptr[38]); + /*_.CLASS_ROOT__V40*/ meltfptr[39]); /*putupl#814 */ melt_assertmsg ("putupl #814 checktup", melt_magic_discr ((melt_ptr_t) - ( /*_.VALTUP___V1178*/ meltfptr[1177])) == + ( /*_.VALTUP___V1180*/ meltfptr[1179])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #814 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) - ( /*_.VALTUP___V1178*/ - meltfptr[1177])))); - ((meltmultiple_ptr_t) ( /*_.VALTUP___V1178*/ meltfptr[1177]))->tabval[0] = - (melt_ptr_t) ( /*_.CLASS_ROOT__V39*/ meltfptr[38]); + ( /*_.VALTUP___V1180*/ + meltfptr[1179])))); + ((meltmultiple_ptr_t) ( /*_.VALTUP___V1180*/ meltfptr[1179]))->tabval[0] = + (melt_ptr_t) ( /*_.CLASS_ROOT__V40*/ meltfptr[39]); /*touch:INITUP_ */ - meltgc_touch ( /*_.VALTUP___V1178*/ meltfptr[1177]); + meltgc_touch ( /*_.VALTUP___V1180*/ meltfptr[1179]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) - ( /*_.VALDATA___V1176*/ meltfptr[1175])) + ( /*_.VALDATA___V1178*/ meltfptr[1177])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) - ( /*_.VALDATA___V1176*/ - meltfptr[1175])))); - ((meltobject_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]))-> + ( /*_.VALDATA___V1178*/ + meltfptr[1177])))); + ((meltobject_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]))-> obj_vartab[5] = (melt_ptr_t) ( - /*_.VALTUP___V1178*/ meltfptr[1177]); - - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj", - melt_magic_discr ((melt_ptr_t) - ( /*_.VALDATA___V1179*/ meltfptr[1178])) - == MELTOBMAG_OBJECT); - - melt_assertmsg ("putslot checkoff", - (1 >= 0 - && 1 < - melt_object_length ((melt_ptr_t) - ( /*_.VALDATA___V1179*/ - meltfptr[1178])))); - ((meltobject_ptr_t) ( /*_.VALDATA___V1179*/ meltfptr[1178]))-> - obj_vartab[1] = (melt_ptr_t) ( - /*_.VALSTR___V1180*/ meltfptr[1179]); - - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); - /*^putslot */ - /*putslot */ - melt_assertmsg ("putslot checkobj", - melt_magic_discr ((melt_ptr_t) - ( /*_.VALDATA___V1179*/ meltfptr[1178])) - == MELTOBMAG_OBJECT); - - melt_assertmsg ("putslot checkoff", - (2 >= 0 - && 2 < - melt_object_length ((melt_ptr_t) - ( /*_.VALDATA___V1179*/ - meltfptr[1178])))); - ((meltobject_ptr_t) ( /*_.VALDATA___V1179*/ meltfptr[1178]))-> - obj_vartab[2] = (melt_ptr_t) ( - /*_.VALDATA___V1176*/ meltfptr[1175]); - - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); - /*^touch */ - /*touch:VALUEDATA_ */ - meltgc_touch ( /*_.VALDATA___V1179*/ meltfptr[1178]); + /*_.VALTUP___V1180*/ meltfptr[1179]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); - /*^touchobj */ - - melt_dbgtrace_written_object ( /*_.VALDATA___V1179*/ meltfptr[1178], - "new static instance"); - - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -69264,7 +69268,7 @@ meltmod__warmelt_macro__initialmeltchunk_22 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1182*/ meltfptr[1181]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -69280,20 +69284,20 @@ meltmod__warmelt_macro__initialmeltchunk_22 (struct meltfptr[1180])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1181*/ meltfptr[1180]))-> obj_vartab[2] = (melt_ptr_t) ( - /*_.VALDATA___V1176*/ meltfptr[1175]); + /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1181*/ meltfptr[1180]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V1181*/ meltfptr[1180], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -69311,7 +69315,7 @@ meltmod__warmelt_macro__initialmeltchunk_22 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1184*/ meltfptr[1183]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -69327,20 +69331,20 @@ meltmod__warmelt_macro__initialmeltchunk_22 (struct meltfptr[1182])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1183*/ meltfptr[1182]))-> obj_vartab[2] = (melt_ptr_t) ( - /*_.VALDATA___V1176*/ meltfptr[1175]); + /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1183*/ meltfptr[1182]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V1183*/ meltfptr[1182], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -69358,7 +69362,7 @@ meltmod__warmelt_macro__initialmeltchunk_22 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1186*/ meltfptr[1185]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -69374,128 +69378,152 @@ meltmod__warmelt_macro__initialmeltchunk_22 (struct meltfptr[1184])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1185*/ meltfptr[1184]))-> obj_vartab[2] = (melt_ptr_t) ( - /*_.VALDATA___V1176*/ meltfptr[1175]); + /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1185*/ meltfptr[1184]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V1185*/ meltfptr[1184], "new static instance"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); + /*^putslot */ + /*putslot */ + melt_assertmsg ("putslot checkobj", + melt_magic_discr ((melt_ptr_t) + ( /*_.VALDATA___V1187*/ meltfptr[1186])) + == MELTOBMAG_OBJECT); + + melt_assertmsg ("putslot checkoff", + (1 >= 0 + && 1 < + melt_object_length ((melt_ptr_t) + ( /*_.VALDATA___V1187*/ + meltfptr[1186])))); + ((meltobject_ptr_t) ( /*_.VALDATA___V1187*/ meltfptr[1186]))-> + obj_vartab[1] = (melt_ptr_t) ( + /*_.VALSTR___V1188*/ meltfptr[1187]); + + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); + /*^putslot */ + /*putslot */ + melt_assertmsg ("putslot checkobj", + melt_magic_discr ((melt_ptr_t) + ( /*_.VALDATA___V1187*/ meltfptr[1186])) + == MELTOBMAG_OBJECT); + + melt_assertmsg ("putslot checkoff", + (2 >= 0 + && 2 < + melt_object_length ((melt_ptr_t) + ( /*_.VALDATA___V1187*/ + meltfptr[1186])))); + ((meltobject_ptr_t) ( /*_.VALDATA___V1187*/ meltfptr[1186]))-> + obj_vartab[2] = (melt_ptr_t) ( + /*_.VALDATA___V1178*/ meltfptr[1177]); + + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); + /*^touch */ + /*touch:VALUEDATA_ */ + meltgc_touch ( /*_.VALDATA___V1187*/ meltfptr[1186]); + + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); + /*^touchobj */ + + melt_dbgtrace_written_object ( /*_.VALDATA___V1187*/ meltfptr[1186], + "new static instance"); + /*putupl#815 */ melt_assertmsg ("putupl #815 checktup", melt_magic_discr ((melt_ptr_t) - ( /*_.VALTUP___V1187*/ meltfptr[1186])) == + ( /*_.VALTUP___V1189*/ meltfptr[1188])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #815 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) - ( /*_.VALTUP___V1187*/ - meltfptr[1186])))); - ((meltmultiple_ptr_t) ( /*_.VALTUP___V1187*/ meltfptr[1186]))->tabval[0] = - (melt_ptr_t) ( /*_.VALDATA___V1179*/ meltfptr[1178]); + ( /*_.VALTUP___V1189*/ + meltfptr[1188])))); + ((meltmultiple_ptr_t) ( /*_.VALTUP___V1189*/ meltfptr[1188]))->tabval[0] = + (melt_ptr_t) ( /*_.VALDATA___V1181*/ meltfptr[1180]); /*putupl#816 */ melt_assertmsg ("putupl #816 checktup", melt_magic_discr ((melt_ptr_t) - ( /*_.VALTUP___V1187*/ meltfptr[1186])) == + ( /*_.VALTUP___V1189*/ meltfptr[1188])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #816 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) - ( /*_.VALTUP___V1187*/ - meltfptr[1186])))); - ((meltmultiple_ptr_t) ( /*_.VALTUP___V1187*/ meltfptr[1186]))->tabval[1] = - (melt_ptr_t) ( /*_.VALDATA___V1181*/ meltfptr[1180]); + ( /*_.VALTUP___V1189*/ + meltfptr[1188])))); + ((meltmultiple_ptr_t) ( /*_.VALTUP___V1189*/ meltfptr[1188]))->tabval[1] = + (melt_ptr_t) ( /*_.VALDATA___V1183*/ meltfptr[1182]); /*putupl#817 */ melt_assertmsg ("putupl #817 checktup", melt_magic_discr ((melt_ptr_t) - ( /*_.VALTUP___V1187*/ meltfptr[1186])) == + ( /*_.VALTUP___V1189*/ meltfptr[1188])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #817 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) - ( /*_.VALTUP___V1187*/ - meltfptr[1186])))); - ((meltmultiple_ptr_t) ( /*_.VALTUP___V1187*/ meltfptr[1186]))->tabval[2] = - (melt_ptr_t) ( /*_.VALDATA___V1183*/ meltfptr[1182]); + ( /*_.VALTUP___V1189*/ + meltfptr[1188])))); + ((meltmultiple_ptr_t) ( /*_.VALTUP___V1189*/ meltfptr[1188]))->tabval[2] = + (melt_ptr_t) ( /*_.VALDATA___V1185*/ meltfptr[1184]); /*putupl#818 */ melt_assertmsg ("putupl #818 checktup", melt_magic_discr ((melt_ptr_t) - ( /*_.VALTUP___V1187*/ meltfptr[1186])) == + ( /*_.VALTUP___V1189*/ meltfptr[1188])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #818 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) - ( /*_.VALTUP___V1187*/ - meltfptr[1186])))); - ((meltmultiple_ptr_t) ( /*_.VALTUP___V1187*/ meltfptr[1186]))->tabval[3] = - (melt_ptr_t) ( /*_.VALDATA___V1185*/ meltfptr[1184]); + ( /*_.VALTUP___V1189*/ + meltfptr[1188])))); + ((meltmultiple_ptr_t) ( /*_.VALTUP___V1189*/ meltfptr[1188]))->tabval[3] = + (melt_ptr_t) ( /*_.VALDATA___V1187*/ meltfptr[1186]); /*touch:INITUP_ */ - meltgc_touch ( /*_.VALTUP___V1187*/ meltfptr[1186]); + meltgc_touch ( /*_.VALTUP___V1189*/ meltfptr[1188]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) - ( /*_.VALDATA___V1176*/ meltfptr[1175])) + ( /*_.VALDATA___V1178*/ meltfptr[1177])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) - ( /*_.VALDATA___V1176*/ - meltfptr[1175])))); - ((meltobject_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]))-> + ( /*_.VALDATA___V1178*/ + meltfptr[1177])))); + ((meltobject_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]))-> obj_vartab[6] = (melt_ptr_t) ( - /*_.VALTUP___V1187*/ meltfptr[1186]); + /*_.VALTUP___V1189*/ meltfptr[1188]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ - meltgc_touch ( /*_.VALDATA___V1176*/ meltfptr[1175]); + meltgc_touch ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:1463:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1468:/ initchunk"); /*^touchobj */ - melt_dbgtrace_written_object ( /*_.VALDATA___V1176*/ meltfptr[1175], - "new static instance"); - - /*putslot */ - melt_assertmsg ("putslot checkobj", - melt_magic_discr ((melt_ptr_t) - ( /*_.VALDATA___V1188*/ meltfptr[1187])) - == MELTOBMAG_OBJECT); - - melt_assertmsg ("putslot checkoff", - (1 >= 0 - && 1 < - melt_object_length ((melt_ptr_t) - ( /*_.VALDATA___V1188*/ - meltfptr[1187])))); - ((meltobject_ptr_t) ( /*_.VALDATA___V1188*/ meltfptr[1187]))-> - obj_vartab[1] = (melt_ptr_t) ( - /*_.VALSTR___V1189*/ meltfptr[1188]); - - /*touch:VALUEDATA_ */ - meltgc_touch ( /*_.VALDATA___V1188*/ meltfptr[1187]); - - - melt_dbgtrace_written_object ( /*_.VALDATA___V1188*/ meltfptr[1187], + melt_dbgtrace_written_object ( /*_.VALDATA___V1178*/ meltfptr[1177], "new static instance"); /*putslot */ @@ -69567,1162 +69595,1162 @@ meltmod__warmelt_macro__initialmeltchunk_22 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1194*/ meltfptr[1193], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:1476:/ initchunk"); + /*putslot */ + melt_assertmsg ("putslot checkobj", + melt_magic_discr ((melt_ptr_t) + ( /*_.VALDATA___V1196*/ meltfptr[1195])) + == MELTOBMAG_OBJECT); + + melt_assertmsg ("putslot checkoff", + (1 >= 0 + && 1 < + melt_object_length ((melt_ptr_t) + ( /*_.VALDATA___V1196*/ + meltfptr[1195])))); + ((meltobject_ptr_t) ( /*_.VALDATA___V1196*/ meltfptr[1195]))-> + obj_vartab[1] = (melt_ptr_t) ( + /*_.VALSTR___V1197*/ meltfptr[1196]); + + /*touch:VALUEDATA_ */ + meltgc_touch ( /*_.VALDATA___V1196*/ meltfptr[1195]); + + + melt_dbgtrace_written_object ( /*_.VALDATA___V1196*/ meltfptr[1195], + "new static instance"); + + MELT_LOCATION ("warmelt-macro.melt:1481:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1196*/ meltfptr[1195])) + ( /*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1116__PATTERNEXPAND_PAIRLIST_AS_TUPLE#0", + ("putroutconst constnull.drout_1118__PATTERNEXPAND_PAIRLIST_AS_TUPLE#0", NULL != ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t) /*_.VALROUT___V1196*/ meltfptr[1195])->tabval[0] = + ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:1476:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1481:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1196*/ meltfptr[1195])) + ( /*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1116__PATTERNEXPAND_PAIRLIST_AS_TUPLE#1", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); - ((meltroutine_ptr_t) /*_.VALROUT___V1196*/ meltfptr[1195])->tabval[1] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + ("putroutconst constnull.drout_1118__PATTERNEXPAND_PAIRLIST_AS_TUPLE#1", + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); + ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[1] = + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:1476:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1481:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1196*/ meltfptr[1195])) + ( /*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1116__PATTERNEXPAND_PAIRLIST_AS_TUPLE#2", + ("putroutconst constnull.drout_1118__PATTERNEXPAND_PAIRLIST_AS_TUPLE#2", NULL != ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12])); - ((meltroutine_ptr_t) /*_.VALROUT___V1196*/ meltfptr[1195])->tabval[2] = + ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1140__PATTERNEXPAND_1#0", NULL != ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10])); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[0] = + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[1] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[1] = + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1140__PATTERNEXPAND_1#2", NULL != ( /*_.CLASS_SEXPR__V9*/ meltfptr[8])); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[2] = + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1140__PATTERNEXPAND_1#3", NULL != ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[3] = + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) - ( /*_.VALDATA___V1199*/ meltfptr[1198])) + ( /*_.VALDATA___V1201*/ meltfptr[1200])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) - ( /*_.VALDATA___V1199*/ - meltfptr[1198])))); - ((meltobject_ptr_t) ( /*_.VALDATA___V1199*/ meltfptr[1198]))-> + ( /*_.VALDATA___V1201*/ + meltfptr[1200])))); + ((meltobject_ptr_t) ( /*_.VALDATA___V1201*/ meltfptr[1200]))-> obj_vartab[1] = (melt_ptr_t) ( - /*_.VALSTR___V1200*/ meltfptr[1199]); + /*_.VALSTR___V1202*/ meltfptr[1201]); /*touch:VALUEDATA_ */ - meltgc_touch ( /*_.VALDATA___V1199*/ meltfptr[1198]); + meltgc_touch ( /*_.VALDATA___V1201*/ meltfptr[1200]); - melt_dbgtrace_written_object ( /*_.VALDATA___V1199*/ meltfptr[1198], + melt_dbgtrace_written_object ( /*_.VALDATA___V1201*/ meltfptr[1200], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1140__PATTERNEXPAND_1#4", - NULL != ( /*_.VALDATA___V1199*/ meltfptr[1198])); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[4] = - (melt_ptr_t) ( /*_.VALDATA___V1199*/ meltfptr[1198]); + NULL != ( /*_.VALDATA___V1201*/ meltfptr[1200])); + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[4] = + (melt_ptr_t) ( /*_.VALDATA___V1201*/ meltfptr[1200]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V969*/ meltfptr[968]); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[5] = + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V969*/ meltfptr[968]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1140__PATTERNEXPAND_1#6", - NULL != ( /*_.VALBXINT___V1201*/ meltfptr[1200])); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[6] = - (melt_ptr_t) ( /*_.VALBXINT___V1201*/ meltfptr[1200]); + NULL != ( /*_.VALBXINT___V1203*/ meltfptr[1202])); + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[6] = + (melt_ptr_t) ( /*_.VALBXINT___V1203*/ meltfptr[1202]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) - ( /*_.VALDATA___V1202*/ meltfptr[1201])) + ( /*_.VALDATA___V1204*/ meltfptr[1203])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) - ( /*_.VALDATA___V1202*/ - meltfptr[1201])))); - ((meltobject_ptr_t) ( /*_.VALDATA___V1202*/ meltfptr[1201]))-> + ( /*_.VALDATA___V1204*/ + meltfptr[1203])))); + ((meltobject_ptr_t) ( /*_.VALDATA___V1204*/ meltfptr[1203]))-> obj_vartab[1] = (melt_ptr_t) ( - /*_.VALSTR___V1203*/ meltfptr[1202]); + /*_.VALSTR___V1205*/ meltfptr[1204]); /*touch:VALUEDATA_ */ - meltgc_touch ( /*_.VALDATA___V1202*/ meltfptr[1201]); + meltgc_touch ( /*_.VALDATA___V1204*/ meltfptr[1203]); - melt_dbgtrace_written_object ( /*_.VALDATA___V1202*/ meltfptr[1201], + melt_dbgtrace_written_object ( /*_.VALDATA___V1204*/ meltfptr[1203], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1140__PATTERNEXPAND_1#7", - NULL != ( /*_.VALDATA___V1202*/ meltfptr[1201])); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[7] = - (melt_ptr_t) ( /*_.VALDATA___V1202*/ meltfptr[1201]); + NULL != ( /*_.VALDATA___V1204*/ meltfptr[1203])); + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[7] = + (melt_ptr_t) ( /*_.VALDATA___V1204*/ meltfptr[1203]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V963*/ meltfptr[962]); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[8] = + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V963*/ meltfptr[962]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1140__PATTERNEXPAND_1#9", - NULL != ( /*_.VALBXINT___V1204*/ meltfptr[1203])); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[9] = - (melt_ptr_t) ( /*_.VALBXINT___V1204*/ meltfptr[1203]); + NULL != ( /*_.VALBXINT___V1206*/ meltfptr[1205])); + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[9] = + (melt_ptr_t) ( /*_.VALBXINT___V1206*/ meltfptr[1205]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1140__PATTERNEXPAND_1#10", NULL != ( /*_.DISCR_INTEGER__V44*/ meltfptr[43])); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[10] = + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V44*/ meltfptr[43]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1140__PATTERNEXPAND_1#11", NULL != ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16])); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[11] = + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V947*/ meltfptr[946]); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[12] = + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V947*/ meltfptr[946]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1140__PATTERNEXPAND_1#13", - NULL != ( /*_.VALBXINT___V1205*/ meltfptr[1204])); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[13] = - (melt_ptr_t) ( /*_.VALBXINT___V1205*/ meltfptr[1204]); + NULL != ( /*_.VALBXINT___V1207*/ meltfptr[1206])); + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[13] = + (melt_ptr_t) ( /*_.VALBXINT___V1207*/ meltfptr[1206]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#0", NULL != ( /*_.CLASS_SEXPR__V9*/ meltfptr[8])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[0] = + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#1", NULL != ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[1] = + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[2] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[2] = + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#3", NULL != ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[3] = + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#4", NULL != ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[4] = + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#5", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[5] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[5] = + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#6", NULL != ( /*_.CLASS_PATMACRO_BINDING__V45*/ meltfptr[44])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[6] = + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_PATMACRO_BINDING__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#7", - NULL != ( /*_.CLASS_CMATCHER_BINDING__V32*/ meltfptr[31])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[7] = - (melt_ptr_t) ( /*_.CLASS_CMATCHER_BINDING__V32*/ meltfptr[31]); + NULL != ( /*_.CLASS_CMATCHER_BINDING__V33*/ meltfptr[32])); + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[7] = + (melt_ptr_t) ( /*_.CLASS_CMATCHER_BINDING__V33*/ meltfptr[32]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#8", NULL != ( /*_.CLASS_CMATCHER__V25*/ meltfptr[24])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[8] = + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_CMATCHER__V25*/ meltfptr[24]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1121__PATMACEXPAND_FOR_MATCHER#0", - NULL != ( /*_.CLASS_ANY_MATCHER__V41*/ meltfptr[40])); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[0] = - (melt_ptr_t) ( /*_.CLASS_ANY_MATCHER__V41*/ meltfptr[40]); + ("putroutconst constnull.drout_1123__PATMACEXPAND_FOR_MATCHER#0", + NULL != ( /*_.CLASS_ANY_MATCHER__V26*/ meltfptr[25])); + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[0] = + (melt_ptr_t) ( /*_.CLASS_ANY_MATCHER__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1121__PATMACEXPAND_FOR_MATCHER#1", + ("putroutconst constnull.drout_1123__PATMACEXPAND_FOR_MATCHER#1", NULL != ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10])); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[1] = + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[2] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[2] = + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1121__PATMACEXPAND_FOR_MATCHER#3", + ("putroutconst constnull.drout_1123__PATMACEXPAND_FOR_MATCHER#3", NULL != ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41])); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[3] = + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1121__PATMACEXPAND_FOR_MATCHER#4", + ("putroutconst constnull.drout_1123__PATMACEXPAND_FOR_MATCHER#4", NULL != ( /*_.MULTIPLE_MAP__V43*/ meltfptr[42])); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[4] = + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[4] = (melt_ptr_t) ( /*_.MULTIPLE_MAP__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1121__PATMACEXPAND_FOR_MATCHER#5", - NULL != ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34])); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[5] = - (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34]); + ("putroutconst constnull.drout_1123__PATMACEXPAND_FOR_MATCHER#5", + NULL != ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[5] = + (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1121__PATMACEXPAND_FOR_MATCHER#6", + ("putroutconst constnull.drout_1123__PATMACEXPAND_FOR_MATCHER#6", NULL != ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41])); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[6] = + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1121__PATMACEXPAND_FOR_MATCHER#7", + ("putroutconst constnull.drout_1123__PATMACEXPAND_FOR_MATCHER#7", NULL != ( /*_.CLASS_NAMED__V20*/ meltfptr[19])); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[7] = + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:1503:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1508:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1210*/ meltfptr[1209])) + ( /*_.VALROUT___V1212*/ meltfptr[1211])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1129__LAMBDA_#0", - NULL != ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34])); - ((meltroutine_ptr_t) /*_.VALROUT___V1210*/ meltfptr[1209])->tabval[0] = - (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34]); + NULL != ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); + ((meltroutine_ptr_t) /*_.VALROUT___V1212*/ meltfptr[1211])->tabval[0] = + (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION ("warmelt-macro.melt:1503:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1508:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1210*/ meltfptr[1209])) + ( /*_.VALROUT___V1212*/ meltfptr[1211])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1129__LAMBDA_#1", NULL != ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41])); - ((meltroutine_ptr_t) /*_.VALROUT___V1210*/ meltfptr[1209])->tabval[1] = + ((meltroutine_ptr_t) /*_.VALROUT___V1212*/ meltfptr[1211])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:1503:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1508:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1210*/ meltfptr[1209])) + ( /*_.VALROUT___V1212*/ meltfptr[1211])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1129__LAMBDA_#2", NULL != ( /*_.CLASS_NAMED__V20*/ meltfptr[19])); - ((meltroutine_ptr_t) /*_.VALROUT___V1210*/ meltfptr[1209])->tabval[2] = + ((meltroutine_ptr_t) /*_.VALROUT___V1212*/ meltfptr[1211])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:1503:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1508:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ - meltgc_touch ( /*_.VALROUT___V1210*/ meltfptr[1209]); + meltgc_touch ( /*_.VALROUT___V1212*/ meltfptr[1211]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1121__PATMACEXPAND_FOR_MATCHER#8", - NULL != ( /*_.VALROUT___V1210*/ meltfptr[1209])); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[8] = - (melt_ptr_t) ( /*_.VALROUT___V1210*/ meltfptr[1209]); + ("putroutconst constnull.drout_1123__PATMACEXPAND_FOR_MATCHER#8", + NULL != ( /*_.VALROUT___V1212*/ meltfptr[1211])); + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[8] = + (melt_ptr_t) ( /*_.VALROUT___V1212*/ meltfptr[1211]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1121__PATMACEXPAND_FOR_MATCHER#9", + ("putroutconst constnull.drout_1123__PATMACEXPAND_FOR_MATCHER#9", NULL != ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41])); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[9] = + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1197*/ meltfptr[1196]); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[10] = - (melt_ptr_t) ( /*_.VALCLO___V1197*/ meltfptr[1196]); + NULL != /*_.VALCLO___V1199*/ meltfptr[1198]); + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[10] = + (melt_ptr_t) ( /*_.VALCLO___V1199*/ meltfptr[1198]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_22 */ + +void +meltmod__warmelt_macro__initialmeltchunk_23 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1121__PATMACEXPAND_FOR_MATCHER#11", + ("putroutconst constnull.drout_1123__PATMACEXPAND_FOR_MATCHER#11", NULL != ( /*_.CLASS_NAMED__V20*/ meltfptr[19])); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[11] = + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:1515:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1520:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1211*/ meltfptr[1210])) + ( /*_.VALROUT___V1213*/ meltfptr[1212])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1130__LAMBDA_#0", NULL != ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41])); - ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[0] = + ((meltroutine_ptr_t) /*_.VALROUT___V1213*/ meltfptr[1212])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:1515:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1520:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1211*/ meltfptr[1210])) + ( /*_.VALROUT___V1213*/ meltfptr[1212])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1197*/ meltfptr[1196]); - ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[1] = - (melt_ptr_t) ( /*_.VALCLO___V1197*/ meltfptr[1196]); + NULL != /*_.VALCLO___V1199*/ meltfptr[1198]); + ((meltroutine_ptr_t) /*_.VALROUT___V1213*/ meltfptr[1212])->tabval[1] = + (melt_ptr_t) ( /*_.VALCLO___V1199*/ meltfptr[1198]); - MELT_LOCATION ("warmelt-macro.melt:1515:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1520:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1211*/ meltfptr[1210])) + ( /*_.VALROUT___V1213*/ meltfptr[1212])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1130__LAMBDA_#2", NULL != ( /*_.CLASS_NAMED__V20*/ meltfptr[19])); - ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[2] = + ((meltroutine_ptr_t) /*_.VALROUT___V1213*/ meltfptr[1212])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:1515:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1520:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ - meltgc_touch ( /*_.VALROUT___V1211*/ meltfptr[1210]); - - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_22 */ + meltgc_touch ( /*_.VALROUT___V1213*/ meltfptr[1212]); -void -meltmod__warmelt_macro__initialmeltchunk_23 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1121__PATMACEXPAND_FOR_MATCHER#12", - NULL != ( /*_.VALROUT___V1211*/ meltfptr[1210])); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[12] = - (melt_ptr_t) ( /*_.VALROUT___V1211*/ meltfptr[1210]); + ("putroutconst constnull.drout_1123__PATMACEXPAND_FOR_MATCHER#12", + NULL != ( /*_.VALROUT___V1213*/ meltfptr[1212])); + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[12] = + (melt_ptr_t) ( /*_.VALROUT___V1213*/ meltfptr[1212]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1121__PATMACEXPAND_FOR_MATCHER#13", + ("putroutconst constnull.drout_1123__PATMACEXPAND_FOR_MATCHER#13", NULL != ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13])); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[13] = + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[13] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1121__PATMACEXPAND_FOR_MATCHER#14", + ("putroutconst constnull.drout_1123__PATMACEXPAND_FOR_MATCHER#14", NULL != ( /*_.CLASS_NAMED__V20*/ meltfptr[19])); - ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[14] = + ((meltroutine_ptr_t) /*_.VALROUT___V1211*/ meltfptr[1210])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:1490:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1495:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ - meltgc_touch ( /*_.VALROUT___V1209*/ meltfptr[1208]); + meltgc_touch ( /*_.VALROUT___V1211*/ meltfptr[1210]); /*putclosurout#18 */ melt_assertmsg ("putclosrout#18 checkclo", melt_magic_discr ((melt_ptr_t) - ( /*_.VALCLO___V1208*/ meltfptr[1207])) == + ( /*_.VALCLO___V1210*/ meltfptr[1209])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#18 checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1209*/ meltfptr[1208])) + ( /*_.VALROUT___V1211*/ meltfptr[1210])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t) /*_.VALCLO___V1208*/ meltfptr[1207])->rout = - (meltroutine_ptr_t) ( /*_.VALROUT___V1209*/ meltfptr[1208]); + ((meltclosure_ptr_t) /*_.VALCLO___V1210*/ meltfptr[1209])->rout = + (meltroutine_ptr_t) ( /*_.VALROUT___V1211*/ meltfptr[1210]); /*touch:DATACLOSURE_ */ - meltgc_touch ( /*_.VALCLO___V1208*/ meltfptr[1207]); + meltgc_touch ( /*_.VALCLO___V1210*/ meltfptr[1209]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1208*/ meltfptr[1207]); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[9] = - (melt_ptr_t) ( /*_.VALCLO___V1208*/ meltfptr[1207]); + NULL != /*_.VALCLO___V1210*/ meltfptr[1209]); + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[9] = + (melt_ptr_t) ( /*_.VALCLO___V1210*/ meltfptr[1209]); - MELT_LOCATION ("warmelt-macro.melt:1534:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1539:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1213*/ meltfptr[1212])) + ( /*_.VALROUT___V1215*/ meltfptr[1214])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERN_WEIGHT_TUPLE#0", NULL != ( /*_.DISCR_INTEGER__V44*/ meltfptr[43])); - ((meltroutine_ptr_t) /*_.VALROUT___V1213*/ meltfptr[1212])->tabval[0] = + ((meltroutine_ptr_t) /*_.VALROUT___V1215*/ meltfptr[1214])->tabval[0] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V44*/ meltfptr[43]); - MELT_LOCATION ("warmelt-macro.melt:1534:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1539:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1213*/ meltfptr[1212])) + ( /*_.VALROUT___V1215*/ meltfptr[1214])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERN_WEIGHT_TUPLE#1", NULL != ( /*_.MULTIPLE_MAP__V43*/ meltfptr[42])); - ((meltroutine_ptr_t) /*_.VALROUT___V1213*/ meltfptr[1212])->tabval[1] = + ((meltroutine_ptr_t) /*_.VALROUT___V1215*/ meltfptr[1214])->tabval[1] = (melt_ptr_t) ( /*_.MULTIPLE_MAP__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-macro.melt:1534:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1539:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1213*/ meltfptr[1212])) + ( /*_.VALROUT___V1215*/ meltfptr[1214])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V903*/ meltfptr[902]); - ((meltroutine_ptr_t) /*_.VALROUT___V1213*/ meltfptr[1212])->tabval[2] = + ((meltroutine_ptr_t) /*_.VALROUT___V1215*/ meltfptr[1214])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V903*/ meltfptr[902]); - MELT_LOCATION ("warmelt-macro.melt:1534:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1539:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1213*/ meltfptr[1212])) + ( /*_.VALROUT___V1215*/ meltfptr[1214])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERN_WEIGHT_TUPLE#3", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V10*/ meltfptr[9])); - ((meltroutine_ptr_t) /*_.VALROUT___V1213*/ meltfptr[1212])->tabval[3] = + ((meltroutine_ptr_t) /*_.VALROUT___V1215*/ meltfptr[1214])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V10*/ meltfptr[9]); - MELT_LOCATION ("warmelt-macro.melt:1547:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1552:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1214*/ meltfptr[1213])) + ( /*_.VALROUT___V1216*/ meltfptr[1215])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V903*/ meltfptr[902]); - ((meltroutine_ptr_t) /*_.VALROUT___V1214*/ meltfptr[1213])->tabval[0] = + ((meltroutine_ptr_t) /*_.VALROUT___V1216*/ meltfptr[1215])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V903*/ meltfptr[902]); - MELT_LOCATION ("warmelt-macro.melt:1547:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1552:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1214*/ meltfptr[1213])) + ( /*_.VALROUT___V1216*/ meltfptr[1215])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1135__LAMBDA_#1", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V10*/ meltfptr[9])); - ((meltroutine_ptr_t) /*_.VALROUT___V1214*/ meltfptr[1213])->tabval[1] = + ((meltroutine_ptr_t) /*_.VALROUT___V1216*/ meltfptr[1215])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V10*/ meltfptr[9]); - MELT_LOCATION ("warmelt-macro.melt:1547:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1552:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ - meltgc_touch ( /*_.VALROUT___V1214*/ meltfptr[1213]); + meltgc_touch ( /*_.VALROUT___V1216*/ meltfptr[1215]); - MELT_LOCATION ("warmelt-macro.melt:1534:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1539:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1213*/ meltfptr[1212])) + ( /*_.VALROUT___V1215*/ meltfptr[1214])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERN_WEIGHT_TUPLE#4", - NULL != ( /*_.VALROUT___V1214*/ meltfptr[1213])); - ((meltroutine_ptr_t) /*_.VALROUT___V1213*/ meltfptr[1212])->tabval[4] = - (melt_ptr_t) ( /*_.VALROUT___V1214*/ meltfptr[1213]); + NULL != ( /*_.VALROUT___V1216*/ meltfptr[1215])); + ((meltroutine_ptr_t) /*_.VALROUT___V1215*/ meltfptr[1214])->tabval[4] = + (melt_ptr_t) ( /*_.VALROUT___V1216*/ meltfptr[1215]); - MELT_LOCATION ("warmelt-macro.melt:1534:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1539:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ - meltgc_touch ( /*_.VALROUT___V1213*/ meltfptr[1212]); + meltgc_touch ( /*_.VALROUT___V1215*/ meltfptr[1214]); /*putclosurout#19 */ melt_assertmsg ("putclosrout#19 checkclo", melt_magic_discr ((melt_ptr_t) - ( /*_.VALCLO___V1212*/ meltfptr[1211])) == + ( /*_.VALCLO___V1214*/ meltfptr[1213])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#19 checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1213*/ meltfptr[1212])) + ( /*_.VALROUT___V1215*/ meltfptr[1214])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t) /*_.VALCLO___V1212*/ meltfptr[1211])->rout = - (meltroutine_ptr_t) ( /*_.VALROUT___V1213*/ meltfptr[1212]); + ((meltclosure_ptr_t) /*_.VALCLO___V1214*/ meltfptr[1213])->rout = + (meltroutine_ptr_t) ( /*_.VALROUT___V1215*/ meltfptr[1214]); /*touch:DATACLOSURE_ */ - meltgc_touch ( /*_.VALCLO___V1212*/ meltfptr[1211]); + meltgc_touch ( /*_.VALCLO___V1214*/ meltfptr[1213]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1212*/ meltfptr[1211]); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[10] = - (melt_ptr_t) ( /*_.VALCLO___V1212*/ meltfptr[1211]); + NULL != /*_.VALCLO___V1214*/ meltfptr[1213]); + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[10] = + (melt_ptr_t) ( /*_.VALCLO___V1214*/ meltfptr[1213]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1063*/ meltfptr[1062]); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[11] = + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V1063*/ meltfptr[1062]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#12", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V10*/ meltfptr[9])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[12] = + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[12] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V10*/ meltfptr[9]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#13", NULL != - ( /*_.CLASS_FUNMATCHER_BINDING__V33*/ meltfptr[32])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[13] = - (melt_ptr_t) ( /*_.CLASS_FUNMATCHER_BINDING__V33*/ meltfptr[32]); + ( /*_.CLASS_FUNMATCHER_BINDING__V34*/ meltfptr[33])); + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[13] = + (melt_ptr_t) ( /*_.CLASS_FUNMATCHER_BINDING__V34*/ meltfptr[33]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#14", - NULL != ( /*_.CLASS_FUNMATCHER__V26*/ meltfptr[25])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[14] = - (melt_ptr_t) ( /*_.CLASS_FUNMATCHER__V26*/ meltfptr[25]); + NULL != ( /*_.CLASS_FUNMATCHER__V27*/ meltfptr[26])); + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[14] = + (melt_ptr_t) ( /*_.CLASS_FUNMATCHER__V27*/ meltfptr[26]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1069*/ meltfptr[1068]); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[15] = + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V1069*/ meltfptr[1068]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#16", - NULL != ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[16] = - (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36]); + NULL != ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37])); + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[16] = + (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#17", - NULL != ( /*_.CLASS_ANY_MATCHER__V41*/ meltfptr[40])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[17] = - (melt_ptr_t) ( /*_.CLASS_ANY_MATCHER__V41*/ meltfptr[40]); + NULL != ( /*_.CLASS_ANY_MATCHER__V26*/ meltfptr[25])); + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[17] = + (melt_ptr_t) ( /*_.CLASS_ANY_MATCHER__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1136__PATTERNEXPAND_EXPR#18", NULL != ( /*_.CLASS_NAMED__V20*/ meltfptr[19])); - ((meltroutine_ptr_t) /*_.VALROUT___V1207*/ meltfptr[1206])->tabval[18] = + ((meltroutine_ptr_t) /*_.VALROUT___V1209*/ meltfptr[1208])->tabval[18] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:1568:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1573:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ - meltgc_touch ( /*_.VALROUT___V1207*/ meltfptr[1206]); + meltgc_touch ( /*_.VALROUT___V1209*/ meltfptr[1208]); /*putclosurout#20 */ melt_assertmsg ("putclosrout#20 checkclo", melt_magic_discr ((melt_ptr_t) - ( /*_.VALCLO___V1206*/ meltfptr[1205])) == + ( /*_.VALCLO___V1208*/ meltfptr[1207])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#20 checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1207*/ meltfptr[1206])) + ( /*_.VALROUT___V1209*/ meltfptr[1208])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t) /*_.VALCLO___V1206*/ meltfptr[1205])->rout = - (meltroutine_ptr_t) ( /*_.VALROUT___V1207*/ meltfptr[1206]); + ((meltclosure_ptr_t) /*_.VALCLO___V1208*/ meltfptr[1207])->rout = + (meltroutine_ptr_t) ( /*_.VALROUT___V1209*/ meltfptr[1208]); /*touch:DATACLOSURE_ */ - meltgc_touch ( /*_.VALCLO___V1206*/ meltfptr[1205]); + meltgc_touch ( /*_.VALCLO___V1208*/ meltfptr[1207]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1206*/ meltfptr[1205]); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[14] = - (melt_ptr_t) ( /*_.VALCLO___V1206*/ meltfptr[1205]); + NULL != /*_.VALCLO___V1208*/ meltfptr[1207]); + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[14] = + (melt_ptr_t) ( /*_.VALCLO___V1208*/ meltfptr[1207]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1140__PATTERNEXPAND_1#15", - NULL != ( /*_.VALBXINT___V1215*/ meltfptr[1214])); - ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[15] = - (melt_ptr_t) ( /*_.VALBXINT___V1215*/ meltfptr[1214]); + NULL != ( /*_.VALBXINT___V1217*/ meltfptr[1216])); + ((meltroutine_ptr_t) /*_.VALROUT___V1200*/ meltfptr[1199])->tabval[15] = + (melt_ptr_t) ( /*_.VALBXINT___V1217*/ meltfptr[1216]); - MELT_LOCATION ("warmelt-macro.melt:1721:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1726:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ - meltgc_touch ( /*_.VALROUT___V1198*/ meltfptr[1197]); + meltgc_touch ( /*_.VALROUT___V1200*/ meltfptr[1199]); /*putclosurout#21 */ melt_assertmsg ("putclosrout#21 checkclo", melt_magic_discr ((melt_ptr_t) - ( /*_.VALCLO___V1197*/ meltfptr[1196])) == + ( /*_.VALCLO___V1199*/ meltfptr[1198])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#21 checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1198*/ meltfptr[1197])) + ( /*_.VALROUT___V1200*/ meltfptr[1199])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t) /*_.VALCLO___V1197*/ meltfptr[1196])->rout = - (meltroutine_ptr_t) ( /*_.VALROUT___V1198*/ meltfptr[1197]); + ((meltclosure_ptr_t) /*_.VALCLO___V1199*/ meltfptr[1198])->rout = + (meltroutine_ptr_t) ( /*_.VALROUT___V1200*/ meltfptr[1199]); /*touch:DATACLOSURE_ */ - meltgc_touch ( /*_.VALCLO___V1197*/ meltfptr[1196]); + meltgc_touch ( /*_.VALCLO___V1199*/ meltfptr[1198]); - MELT_LOCATION ("warmelt-macro.melt:1476:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1481:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1196*/ meltfptr[1195])) + ( /*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1197*/ meltfptr[1196]); - ((meltroutine_ptr_t) /*_.VALROUT___V1196*/ meltfptr[1195])->tabval[3] = - (melt_ptr_t) ( /*_.VALCLO___V1197*/ meltfptr[1196]); + NULL != /*_.VALCLO___V1199*/ meltfptr[1198]); + ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[3] = + (melt_ptr_t) ( /*_.VALCLO___V1199*/ meltfptr[1198]); - MELT_LOCATION ("warmelt-macro.melt:1480:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1485:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1216*/ meltfptr[1215])) + ( /*_.VALROUT___V1218*/ meltfptr[1217])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1197*/ meltfptr[1196]); - ((meltroutine_ptr_t) /*_.VALROUT___V1216*/ meltfptr[1215])->tabval[0] = - (melt_ptr_t) ( /*_.VALCLO___V1197*/ meltfptr[1196]); + NULL != /*_.VALCLO___V1199*/ meltfptr[1198]); + ((meltroutine_ptr_t) /*_.VALROUT___V1218*/ meltfptr[1217])->tabval[0] = + (melt_ptr_t) ( /*_.VALCLO___V1199*/ meltfptr[1198]); - MELT_LOCATION ("warmelt-macro.melt:1480:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1485:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ - meltgc_touch ( /*_.VALROUT___V1216*/ meltfptr[1215]); + meltgc_touch ( /*_.VALROUT___V1218*/ meltfptr[1217]); - MELT_LOCATION ("warmelt-macro.melt:1476:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1481:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1196*/ meltfptr[1195])) + ( /*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg - ("putroutconst constnull.drout_1116__PATTERNEXPAND_PAIRLIST_AS_TUPLE#4", - NULL != ( /*_.VALROUT___V1216*/ meltfptr[1215])); - ((meltroutine_ptr_t) /*_.VALROUT___V1196*/ meltfptr[1195])->tabval[4] = - (melt_ptr_t) ( /*_.VALROUT___V1216*/ meltfptr[1215]); + ("putroutconst constnull.drout_1118__PATTERNEXPAND_PAIRLIST_AS_TUPLE#4", + NULL != ( /*_.VALROUT___V1218*/ meltfptr[1217])); + ((meltroutine_ptr_t) /*_.VALROUT___V1198*/ meltfptr[1197])->tabval[4] = + (melt_ptr_t) ( /*_.VALROUT___V1218*/ meltfptr[1217]); - MELT_LOCATION ("warmelt-macro.melt:1476:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1481:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ - meltgc_touch ( /*_.VALROUT___V1196*/ meltfptr[1195]); + meltgc_touch ( /*_.VALROUT___V1198*/ meltfptr[1197]); /*putclosurout#22 */ melt_assertmsg ("putclosrout#22 checkclo", melt_magic_discr ((melt_ptr_t) - ( /*_.VALCLO___V1217*/ meltfptr[1216])) == + ( /*_.VALCLO___V1219*/ meltfptr[1218])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#22 checkrout", melt_magic_discr ((melt_ptr_t) - ( /*_.VALROUT___V1196*/ meltfptr[1195])) + ( /*_.VALROUT___V1198*/ meltfptr[1197])) == MELTOBMAG_ROUTINE); - ((meltclosure_ptr_t) /*_.VALCLO___V1217*/ meltfptr[1216])->rout = - (meltroutine_ptr_t) ( /*_.VALROUT___V1196*/ meltfptr[1195]); + ((meltclosure_ptr_t) /*_.VALCLO___V1219*/ meltfptr[1218])->rout = + (meltroutine_ptr_t) ( /*_.VALROUT___V1198*/ meltfptr[1197]); /*touch:DATACLOSURE_ */ - meltgc_touch ( /*_.VALCLO___V1217*/ meltfptr[1216]); - - /*putslot */ - melt_assertmsg ("putslot checkobj", - melt_magic_discr ((melt_ptr_t) - ( /*_.VALDATA___V1218*/ meltfptr[1217])) - == MELTOBMAG_OBJECT); - - melt_assertmsg ("putslot checkoff", - (1 >= 0 - && 1 < - melt_object_length ((melt_ptr_t) - ( /*_.VALDATA___V1218*/ - meltfptr[1217])))); - ((meltobject_ptr_t) ( /*_.VALDATA___V1218*/ meltfptr[1217]))-> - obj_vartab[1] = (melt_ptr_t) ( - /*_.VALSTR___V1219*/ meltfptr[1218]); - - /*touch:VALUEDATA_ */ - meltgc_touch ( /*_.VALDATA___V1218*/ meltfptr[1217]); - - - melt_dbgtrace_written_object ( /*_.VALDATA___V1218*/ meltfptr[1217], - "new static instance"); + meltgc_touch ( /*_.VALCLO___V1219*/ meltfptr[1218]); /*putslot */ melt_assertmsg ("putslot checkobj", @@ -70839,7 +70867,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1228*/ meltfptr[1227], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:1812:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1817:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -70854,7 +70882,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1230*/ meltfptr[1229])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:1812:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1817:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -70866,7 +70894,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1230*/ meltfptr[1229])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:1812:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1817:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -70881,7 +70909,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1230*/ meltfptr[1229])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:1812:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1817:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -70896,7 +70924,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1230*/ meltfptr[1229])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); - MELT_LOCATION ("warmelt-macro.melt:1812:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1817:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -70911,7 +70939,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1230*/ meltfptr[1229])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:1812:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1817:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1230*/ meltfptr[1229]); @@ -71092,7 +71120,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1244*/ meltfptr[1243], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:1989:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1994:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71107,7 +71135,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1246*/ meltfptr[1245])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:1989:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1994:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71122,7 +71150,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1246*/ meltfptr[1245])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:1989:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1994:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71133,11 +71161,11 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1170__INSTALL_INITIAL_MACRO#2", - NULL != ( /*_.CLASS_MACRO_BINDING__V28*/ meltfptr[27])); + NULL != ( /*_.CLASS_MACRO_BINDING__V29*/ meltfptr[28])); ((meltroutine_ptr_t) /*_.VALROUT___V1246*/ meltfptr[1245])->tabval[2] = - (melt_ptr_t) ( /*_.CLASS_MACRO_BINDING__V28*/ meltfptr[27]); + (melt_ptr_t) ( /*_.CLASS_MACRO_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION ("warmelt-macro.melt:1989:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1994:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71152,7 +71180,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1246*/ meltfptr[1245])->tabval[3] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:1989:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1994:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71167,7 +71195,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1246*/ meltfptr[1245])->tabval[4] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V53*/ meltfptr[52]); - MELT_LOCATION ("warmelt-macro.melt:1989:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:1994:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1246*/ meltfptr[1245]); @@ -71210,7 +71238,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1248*/ meltfptr[1247], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2002:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2007:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71225,7 +71253,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1250*/ meltfptr[1249])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:2002:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2007:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71240,7 +71268,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1250*/ meltfptr[1249])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:2002:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2007:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71255,7 +71283,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1250*/ meltfptr[1249])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_PATMACRO_BINDING__V45*/ meltfptr[44]); - MELT_LOCATION ("warmelt-macro.melt:2002:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2007:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71270,7 +71298,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1250*/ meltfptr[1249])->tabval[3] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:2002:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2007:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71285,7 +71313,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1250*/ meltfptr[1249])->tabval[4] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V53*/ meltfptr[52]); - MELT_LOCATION ("warmelt-macro.melt:2002:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2007:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1250*/ meltfptr[1249]); @@ -71328,7 +71356,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1252*/ meltfptr[1251], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2020:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2025:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -71349,7 +71377,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1256*/ meltfptr[1255]); - MELT_LOCATION ("warmelt-macro.melt:2020:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2025:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -71367,7 +71395,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V1256*/ meltfptr[1255]); - MELT_LOCATION ("warmelt-macro.melt:2020:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2025:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -71403,7 +71431,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1258*/ meltfptr[1257]); - MELT_LOCATION ("warmelt-macro.melt:2020:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2025:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", @@ -71421,18 +71449,18 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V1258*/ meltfptr[1257]); - MELT_LOCATION ("warmelt-macro.melt:2020:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2025:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1254*/ meltfptr[1253]); - MELT_LOCATION ("warmelt-macro.melt:2020:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2025:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V1254*/ meltfptr[1253], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2024:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2029:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71446,7 +71474,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1259*/ meltfptr[1258])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:2024:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2029:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71460,7 +71488,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1259*/ meltfptr[1258])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:2024:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2029:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71470,11 +71498,11 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1183__WARN_IF_REDEFINED#2", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1259*/ meltfptr[1258])->tabval[2] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:2024:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2029:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1259*/ meltfptr[1258]); @@ -71494,7 +71522,21 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1260*/ meltfptr[1259]); - MELT_LOCATION ("warmelt-macro.melt:2037:/ initchunk"); + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_23 */ + +void +meltmod__warmelt_macro__initialmeltchunk_24 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; + MELT_LOCATION ("warmelt-macro.melt:2042:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71509,7 +71551,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1261*/ meltfptr[1260])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:2037:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2042:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71524,21 +71566,7 @@ meltmod__warmelt_macro__initialmeltchunk_23 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1261*/ meltfptr[1260])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_VERBATIM_STRING__V54*/ meltfptr[53]); - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_23 */ - -void -meltmod__warmelt_macro__initialmeltchunk_24 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; -/*putclosurout#27*/ + /*putclosurout#27 */ melt_assertmsg ("putclosrout#27 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1262*/ meltfptr[1261])) == @@ -71553,7 +71581,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1262*/ meltfptr[1261]); - MELT_LOCATION ("warmelt-macro.melt:2037:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2042:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -71565,7 +71593,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1261*/ meltfptr[1260])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1262*/ meltfptr[1261]); - MELT_LOCATION ("warmelt-macro.melt:2037:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2042:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71580,7 +71608,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1261*/ meltfptr[1260])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:2037:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2042:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71595,7 +71623,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1261*/ meltfptr[1260])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:2037:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2042:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71610,7 +71638,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1261*/ meltfptr[1260])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:2037:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2042:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1261*/ meltfptr[1260]); @@ -71638,7 +71666,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1263*/ meltfptr[1262], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2083:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2088:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71653,7 +71681,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1265*/ meltfptr[1264])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:2083:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2088:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71668,7 +71696,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1265*/ meltfptr[1264])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); - MELT_LOCATION ("warmelt-macro.melt:2083:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2088:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -71680,7 +71708,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1265*/ meltfptr[1264])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1262*/ meltfptr[1261]); - MELT_LOCATION ("warmelt-macro.melt:2083:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2088:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71695,7 +71723,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1265*/ meltfptr[1264])->tabval[3] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:2083:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2088:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71710,7 +71738,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1265*/ meltfptr[1264])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:2083:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2088:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1265*/ meltfptr[1264]); @@ -71730,7 +71758,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1266*/ meltfptr[1265]); - MELT_LOCATION ("warmelt-macro.melt:2104:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71744,7 +71772,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1267*/ meltfptr[1266])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:2104:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71758,7 +71786,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1267*/ meltfptr[1266])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:2104:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71772,7 +71800,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1267*/ meltfptr[1266])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:2104:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71786,7 +71814,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1267*/ meltfptr[1266])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:2104:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2109:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1267*/ meltfptr[1266]); @@ -71806,7 +71834,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1268*/ meltfptr[1267]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71821,7 +71849,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71836,7 +71864,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71851,7 +71879,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71866,7 +71894,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -71878,7 +71906,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1116*/ meltfptr[1115]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71893,7 +71921,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71908,7 +71936,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71923,7 +71951,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71961,7 +71989,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1270*/ meltfptr[1269], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71976,7 +72004,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -71991,7 +72019,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72003,7 +72031,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V1266*/ meltfptr[1265]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72018,7 +72046,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[12] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72030,7 +72058,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V399*/ meltfptr[398]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72041,11 +72069,11 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1193__MEXPAND_DEFPRIMITIVE#14", - NULL != ( /*_.CLASS_PRIMITIVE__V38*/ meltfptr[37])); + NULL != ( /*_.CLASS_PRIMITIVE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[14] = - (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V38*/ meltfptr[37]); + (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V39*/ meltfptr[38]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72056,11 +72084,11 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1193__MEXPAND_DEFPRIMITIVE#15", - NULL != ( /*_.CLASS_PRIMITIVE_BINDING__V30*/ meltfptr[29])); + NULL != ( /*_.CLASS_PRIMITIVE_BINDING__V31*/ meltfptr[30])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[15] = - (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V30*/ meltfptr[29]); + (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72071,11 +72099,11 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1193__MEXPAND_DEFPRIMITIVE#16", - NULL != ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34])); + NULL != ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[16] = - (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34]); + (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72090,7 +72118,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72102,7 +72130,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[18] = (melt_ptr_t) ( /*_.VALCLO___V1268*/ meltfptr[1267]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72114,7 +72142,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[19] = (melt_ptr_t) ( /*_.VALCLO___V1260*/ meltfptr[1259]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72129,7 +72157,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[20] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72141,7 +72169,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[21] = (melt_ptr_t) ( /*_.VALCLO___V1097*/ meltfptr[1096]); - MELT_LOCATION ("warmelt-macro.melt:2139:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2144:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1269*/ meltfptr[1268]); @@ -72184,7 +72212,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1273*/ meltfptr[1272], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72199,7 +72227,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72214,7 +72242,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72229,7 +72257,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72244,7 +72272,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72256,7 +72284,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1116*/ meltfptr[1115]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72271,7 +72299,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72286,7 +72314,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72301,7 +72329,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72313,7 +72341,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V1266*/ meltfptr[1265]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72328,7 +72356,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72343,7 +72371,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_CITERATOR__V21*/ meltfptr[20]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72354,11 +72382,11 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1199__MEXPAND_DEFCITERATOR#11", - NULL != ( /*_.CLASS_CITERATOR_BINDING__V31*/ meltfptr[30])); + NULL != ( /*_.CLASS_CITERATOR_BINDING__V32*/ meltfptr[31])); ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[11] = - (melt_ptr_t) ( /*_.CLASS_CITERATOR_BINDING__V31*/ meltfptr[30]); + (melt_ptr_t) ( /*_.CLASS_CITERATOR_BINDING__V32*/ meltfptr[31]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72370,7 +72398,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V417*/ meltfptr[416]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72385,7 +72413,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[13] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72396,11 +72424,11 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1199__MEXPAND_DEFCITERATOR#14", - NULL != ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34])); + NULL != ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[14] = - (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34]); + (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72415,7 +72443,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72427,7 +72455,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[16] = (melt_ptr_t) ( /*_.VALCLO___V1268*/ meltfptr[1267]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72442,7 +72470,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[17] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72454,7 +72482,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1275*/ meltfptr[1274])->tabval[18] = (melt_ptr_t) ( /*_.VALCLO___V1097*/ meltfptr[1096]); - MELT_LOCATION ("warmelt-macro.melt:2262:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2267:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1275*/ meltfptr[1274]); @@ -72497,7 +72525,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1277*/ meltfptr[1276], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72511,7 +72539,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72525,7 +72553,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72539,7 +72567,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72553,7 +72581,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72565,7 +72593,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1116*/ meltfptr[1115]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72580,7 +72608,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72590,11 +72618,11 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFCMATCHER#6", - NULL != ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34])); + NULL != ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[6] = - (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34]); + (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72608,7 +72636,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72622,7 +72650,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[8] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V23*/ meltfptr[22]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72636,7 +72664,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[9] = (melt_ptr_t) ( /*_.VALROUT___V1280*/ meltfptr[1279]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72651,7 +72679,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72666,7 +72694,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72678,7 +72706,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V1266*/ meltfptr[1265]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72693,7 +72721,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_CMATCHER__V25*/ meltfptr[24]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72705,7 +72733,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V435*/ meltfptr[434]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72716,11 +72744,11 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFCMATCHER#15", - NULL != ( /*_.CLASS_CMATCHER_BINDING__V32*/ meltfptr[31])); + NULL != ( /*_.CLASS_CMATCHER_BINDING__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[15] = - (melt_ptr_t) ( /*_.CLASS_CMATCHER_BINDING__V32*/ meltfptr[31]); + (melt_ptr_t) ( /*_.CLASS_CMATCHER_BINDING__V33*/ meltfptr[32]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72735,7 +72763,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[16] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72750,7 +72778,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72762,7 +72790,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[18] = (melt_ptr_t) ( /*_.VALCLO___V1268*/ meltfptr[1267]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72777,7 +72805,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[19] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72789,7 +72817,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1279*/ meltfptr[1278])->tabval[20] = (melt_ptr_t) ( /*_.VALCLO___V1097*/ meltfptr[1096]); - MELT_LOCATION ("warmelt-macro.melt:2415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2420:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1279*/ meltfptr[1278]); @@ -72832,7 +72860,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1282*/ meltfptr[1281], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72847,7 +72875,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72862,7 +72890,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72877,7 +72905,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72892,7 +72920,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -72904,7 +72932,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1116*/ meltfptr[1115]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72919,7 +72947,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72934,7 +72962,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72949,7 +72977,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72964,7 +72992,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[8] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V23*/ meltfptr[22]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72979,7 +73007,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[9] = (melt_ptr_t) ( /*_.VALROUT___V1285*/ meltfptr[1284]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -72994,7 +73022,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -73006,7 +73034,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V457*/ meltfptr[456]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73017,11 +73045,11 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUNMATCHER#12", - NULL != ( /*_.CLASS_FUNMATCHER__V26*/ meltfptr[25])); + NULL != ( /*_.CLASS_FUNMATCHER__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[12] = - (melt_ptr_t) ( /*_.CLASS_FUNMATCHER__V26*/ meltfptr[25]); + (melt_ptr_t) ( /*_.CLASS_FUNMATCHER__V27*/ meltfptr[26]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73032,11 +73060,11 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUNMATCHER#13", - NULL != ( /*_.CLASS_FUNMATCHER_BINDING__V33*/ meltfptr[32])); + NULL != ( /*_.CLASS_FUNMATCHER_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[13] = - (melt_ptr_t) ( /*_.CLASS_FUNMATCHER_BINDING__V33*/ meltfptr[32]); + (melt_ptr_t) ( /*_.CLASS_FUNMATCHER_BINDING__V34*/ meltfptr[33]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73051,7 +73079,7 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[14] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:2611:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2616:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1284*/ meltfptr[1283]); @@ -73071,7 +73099,21 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1286*/ meltfptr[1285]); - /*putslot */ + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_24 */ + +void +meltmod__warmelt_macro__initialmeltchunk_25 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; +/*putslot*/ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1287*/ meltfptr[1286])) @@ -73091,24 +73133,10 @@ meltmod__warmelt_macro__initialmeltchunk_24 (struct meltgc_touch ( /*_.VALDATA___V1287*/ meltfptr[1286]); -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_24 */ - -void -meltmod__warmelt_macro__initialmeltchunk_25 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; - melt_dbgtrace_written_object ( /*_.VALDATA___V1287*/ meltfptr[1286], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73122,7 +73150,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73136,7 +73164,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73150,7 +73178,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73164,7 +73192,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[3] = (melt_ptr_t) ( /*_.FRESH_ENV__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73178,7 +73206,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_FUNCTION_BINDING__V55*/ meltfptr[54]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73192,7 +73220,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -73204,7 +73232,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V1260*/ meltfptr[1259]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73218,7 +73246,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[7] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73232,7 +73260,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -73244,7 +73272,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[9] = (melt_ptr_t) ( /*_.VALCLO___V1116*/ meltfptr[1115]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73258,7 +73286,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[10] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V23*/ meltfptr[22]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73272,7 +73300,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[11] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:2797:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2802:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73286,12 +73314,12 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[0] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:2797:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2802:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1290*/ meltfptr[1289]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73305,7 +73333,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[12] = (melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73319,7 +73347,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -73331,7 +73359,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[14] = (melt_ptr_t) ( /*_.VALCLO___V1095*/ meltfptr[1094]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -73343,7 +73371,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1289*/ meltfptr[1288])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V389*/ meltfptr[388]); - MELT_LOCATION ("warmelt-macro.melt:2758:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1289*/ meltfptr[1288]); @@ -73409,7 +73437,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1294*/ meltfptr[1293], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73423,7 +73451,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73437,7 +73465,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73451,7 +73479,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73465,7 +73493,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73480,7 +73508,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_DEFINED_VALUE_BINDING__V56*/ meltfptr[55]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -73492,7 +73520,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1260*/ meltfptr[1259]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73506,7 +73534,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[6] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73520,7 +73548,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -73532,7 +73560,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V1095*/ meltfptr[1094]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -73544,7 +73572,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V369*/ meltfptr[368]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -73556,7 +73584,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[10] = (melt_ptr_t) ( /*_.VALCLO___V1116*/ meltfptr[1115]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73570,7 +73598,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V1075*/ meltfptr[1074]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73584,7 +73612,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_FUNCTION_BINDING__V55*/ meltfptr[54]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73598,7 +73626,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73612,7 +73640,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[14] = (melt_ptr_t) ( /*_.FRESH_ENV__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -73624,7 +73652,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V389*/ meltfptr[388]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73634,11 +73662,11 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1220__MEXPAND_DEFINE#16", - NULL != ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34])); + NULL != ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[16] = - (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34]); + (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73652,7 +73680,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[17] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73666,7 +73694,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[18] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73680,7 +73708,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[19] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V23*/ meltfptr[22]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73694,7 +73722,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[20] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:2938:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2943:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73708,12 +73736,12 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1297*/ meltfptr[1296])->tabval[0] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:2938:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2943:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1297*/ meltfptr[1296]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73727,7 +73755,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1296*/ meltfptr[1295])->tabval[21] = (melt_ptr_t) ( /*_.VALROUT___V1297*/ meltfptr[1296]); - MELT_LOCATION ("warmelt-macro.melt:2843:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2848:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1296*/ meltfptr[1295]); @@ -73793,7 +73821,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1301*/ meltfptr[1300], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73807,7 +73835,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1303*/ meltfptr[1302])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73821,7 +73849,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1303*/ meltfptr[1302])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73858,7 +73886,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1304*/ meltfptr[1303], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73872,7 +73900,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1303*/ meltfptr[1302])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V1304*/ meltfptr[1303]); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73882,11 +73910,11 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1227__SCAN_DEFCLASS#4", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1303*/ meltfptr[1302])->tabval[4] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73900,7 +73928,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1303*/ meltfptr[1302])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73910,11 +73938,11 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1227__SCAN_DEFCLASS#6", - NULL != ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36])); + NULL != ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V1303*/ meltfptr[1302])->tabval[6] = - (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36]); + (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37]); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73951,7 +73979,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1306*/ meltfptr[1305], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73965,7 +73993,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1303*/ meltfptr[1302])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V1306*/ meltfptr[1305]); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -73979,7 +74007,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1303*/ meltfptr[1302])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74016,7 +74044,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1308*/ meltfptr[1307], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74030,7 +74058,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1303*/ meltfptr[1302])->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V1308*/ meltfptr[1307]); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74044,7 +74072,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1303*/ meltfptr[1302])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -74056,7 +74084,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1303*/ meltfptr[1302])->tabval[13] = (melt_ptr_t) ( /*_.VALCLO___V1260*/ meltfptr[1259]); - MELT_LOCATION ("warmelt-macro.melt:2964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2969:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1303*/ meltfptr[1302]); @@ -74122,7 +74150,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1313*/ meltfptr[1312], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74136,7 +74164,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74150,7 +74178,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74164,7 +74192,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -74176,7 +74204,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1310*/ meltfptr[1309]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74190,7 +74218,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74204,7 +74232,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_CLASS_SEQUENCE__V59*/ meltfptr[58]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74218,7 +74246,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74232,7 +74260,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V44*/ meltfptr[43]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74246,7 +74274,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_MAP_STRINGS__V60*/ meltfptr[59]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74260,7 +74288,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[9] = (melt_ptr_t) ( /*_.DISCR_FIELD_SEQUENCE__V61*/ meltfptr[60]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74274,7 +74302,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74288,7 +74316,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74302,7 +74330,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[12] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74316,7 +74344,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[13] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V23*/ meltfptr[22]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74330,7 +74358,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_FIELD__V18*/ meltfptr[17]); - MELT_LOCATION ("warmelt-macro.melt:3146:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3151:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74344,12 +74372,12 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1316*/ meltfptr[1315])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_FIELD__V18*/ meltfptr[17]); - MELT_LOCATION ("warmelt-macro.melt:3146:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3151:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1316*/ meltfptr[1315]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74363,7 +74391,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[15] = (melt_ptr_t) ( /*_.VALROUT___V1316*/ meltfptr[1315]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74377,7 +74405,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74387,11 +74415,11 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1239__MEXPAND_DEFCLASS#17", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[17] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74401,11 +74429,11 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1239__MEXPAND_DEFCLASS#18", - NULL != ( /*_.CLASS_FIELD_BINDING__V34*/ meltfptr[33])); + NULL != ( /*_.CLASS_FIELD_BINDING__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[18] = - (melt_ptr_t) ( /*_.CLASS_FIELD_BINDING__V34*/ meltfptr[33]); + (melt_ptr_t) ( /*_.CLASS_FIELD_BINDING__V35*/ meltfptr[34]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74419,7 +74447,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[19] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74429,11 +74457,11 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1239__MEXPAND_DEFCLASS#20", - NULL != ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36])); + NULL != ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[20] = - (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36]); + (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74447,7 +74475,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[21] = (melt_ptr_t) ( /*_.CLASS_FIELD__V18*/ meltfptr[17]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74461,7 +74489,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[22] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -74473,7 +74501,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[23] = (melt_ptr_t) ( /*_.VALCLO___V1260*/ meltfptr[1259]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74487,7 +74515,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[24] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:3155:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3160:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74501,7 +74529,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1317*/ meltfptr[1316])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:3155:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3160:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74511,11 +74539,11 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__LAMBDA_#1", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1317*/ meltfptr[1316])->tabval[1] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:3155:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3160:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74525,11 +74553,11 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__LAMBDA_#2", - NULL != ( /*_.CLASS_FIELD_BINDING__V34*/ meltfptr[33])); + NULL != ( /*_.CLASS_FIELD_BINDING__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V1317*/ meltfptr[1316])->tabval[2] = - (melt_ptr_t) ( /*_.CLASS_FIELD_BINDING__V34*/ meltfptr[33]); + (melt_ptr_t) ( /*_.CLASS_FIELD_BINDING__V35*/ meltfptr[34]); - MELT_LOCATION ("warmelt-macro.melt:3155:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3160:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74543,7 +74571,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1317*/ meltfptr[1316])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3155:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3160:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74553,11 +74581,11 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__LAMBDA_#4", - NULL != ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36])); + NULL != ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V1317*/ meltfptr[1316])->tabval[4] = - (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36]); + (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37]); - MELT_LOCATION ("warmelt-macro.melt:3155:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3160:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74571,7 +74599,21 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1317*/ meltfptr[1316])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_FIELD__V18*/ meltfptr[17]); - MELT_LOCATION ("warmelt-macro.melt:3155:/ initchunk"); + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_25 */ + +void +meltmod__warmelt_macro__initialmeltchunk_26 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; + MELT_LOCATION ("warmelt-macro.melt:3160:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74585,7 +74627,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1317*/ meltfptr[1316])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:3155:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3160:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -74597,21 +74639,7 @@ meltmod__warmelt_macro__initialmeltchunk_25 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1317*/ meltfptr[1316])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V1260*/ meltfptr[1259]); - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_25 */ - -void -meltmod__warmelt_macro__initialmeltchunk_26 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; - MELT_LOCATION ("warmelt-macro.melt:3155:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3160:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74625,12 +74653,12 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1317*/ meltfptr[1316])->tabval[8] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:3155:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3160:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1317*/ meltfptr[1316]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74644,7 +74672,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[25] = (melt_ptr_t) ( /*_.VALROUT___V1317*/ meltfptr[1316]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -74656,7 +74684,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1315*/ meltfptr[1314])->tabval[26] = (melt_ptr_t) ( /*_.VALDATA___V493*/ meltfptr[492]); - MELT_LOCATION ("warmelt-macro.melt:3084:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3089:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1315*/ meltfptr[1314]); @@ -74768,7 +74796,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1325*/ meltfptr[1324], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74783,7 +74811,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74798,7 +74826,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74813,7 +74841,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74828,7 +74856,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74843,7 +74871,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[4] = (melt_ptr_t) ( /*_.MULTIPLE_ITERATE_TEST__V62*/ meltfptr[61]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74858,7 +74886,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_FIELD__V18*/ meltfptr[17]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74873,7 +74901,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3257:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3262:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74887,7 +74915,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_FIELD__V18*/ meltfptr[17]); - MELT_LOCATION ("warmelt-macro.melt:3257:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3262:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74901,7 +74929,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[1] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3257:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3262:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74915,12 +74943,12 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1075*/ meltfptr[1074]); - MELT_LOCATION ("warmelt-macro.melt:3257:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3262:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1328*/ meltfptr[1327]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74935,7 +74963,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74950,7 +74978,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74961,11 +74989,11 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1251__PARSE_FIELD_ASSIGNMENT#9", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[9] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74976,11 +75004,11 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1251__PARSE_FIELD_ASSIGNMENT#10", - NULL != ( /*_.CLASS_FIELD_BINDING__V34*/ meltfptr[33])); + NULL != ( /*_.CLASS_FIELD_BINDING__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[10] = - (melt_ptr_t) ( /*_.CLASS_FIELD_BINDING__V34*/ meltfptr[33]); + (melt_ptr_t) ( /*_.CLASS_FIELD_BINDING__V35*/ meltfptr[34]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -74991,11 +75019,11 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1251__PARSE_FIELD_ASSIGNMENT#11", - NULL != ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36])); + NULL != ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[11] = - (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36]); + (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75010,7 +75038,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_FIELD__V18*/ meltfptr[17]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -75022,7 +75050,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1327*/ meltfptr[1326])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V543*/ meltfptr[542]); - MELT_LOCATION ("warmelt-macro.melt:3233:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3238:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1327*/ meltfptr[1326]); @@ -75065,7 +75093,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1330*/ meltfptr[1329], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75079,7 +75107,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75093,7 +75121,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75107,7 +75135,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75121,7 +75149,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75135,7 +75163,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_INSTANCE_BINDING__V63*/ meltfptr[62]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -75147,7 +75175,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1260*/ meltfptr[1259]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75161,7 +75189,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[6] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75171,11 +75199,11 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1256__MEXPAND_DEFINSTANCE#7", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[7] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75189,7 +75217,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75203,7 +75231,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75214,11 +75242,11 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1256__MEXPAND_DEFINSTANCE#10", - NULL != ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36])); + NULL != ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[10] = - (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36]); + (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75233,7 +75261,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75271,7 +75299,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1333*/ meltfptr[1332], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75286,7 +75314,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V1333*/ meltfptr[1332]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75301,7 +75329,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V1308*/ meltfptr[1307]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75316,7 +75344,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -75328,7 +75356,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[16] = (melt_ptr_t) ( /*_.VALCLO___V1329*/ meltfptr[1328]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75343,7 +75371,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[17] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75358,7 +75386,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[18] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -75370,7 +75398,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1332*/ meltfptr[1331])->tabval[19] = (melt_ptr_t) ( /*_.VALDATA___V511*/ meltfptr[510]); - MELT_LOCATION ("warmelt-macro.melt:3330:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3335:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1332*/ meltfptr[1331]); @@ -75436,7 +75464,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1338*/ meltfptr[1337], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75450,7 +75478,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75464,7 +75492,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -75476,7 +75504,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75490,7 +75518,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75504,7 +75532,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75514,11 +75542,11 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1264__MEXPAND_DEFSELECTOR#5", - NULL != ( /*_.CLASS_SELECTOR_BINDING__V29*/ meltfptr[28])); + NULL != ( /*_.CLASS_SELECTOR_BINDING__V30*/ meltfptr[29])); ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[5] = - (melt_ptr_t) ( /*_.CLASS_SELECTOR_BINDING__V29*/ meltfptr[28]); + (melt_ptr_t) ( /*_.CLASS_SELECTOR_BINDING__V30*/ meltfptr[29]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -75530,7 +75558,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V1260*/ meltfptr[1259]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75544,7 +75572,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[7] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75554,11 +75582,11 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1264__MEXPAND_DEFSELECTOR#8", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[8] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75572,7 +75600,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[9] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75587,7 +75615,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75598,11 +75626,11 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1264__MEXPAND_DEFSELECTOR#11", - NULL != ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36])); + NULL != ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[11] = - (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36]); + (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75617,7 +75645,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75632,7 +75660,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_SELECTOR__V7*/ meltfptr[6]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75647,7 +75675,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[14] = (melt_ptr_t) ( /*_.MELT_MODE_REFERENCE__V64*/ meltfptr[63]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75662,7 +75690,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75677,7 +75705,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75692,7 +75720,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[17] = (melt_ptr_t) ( /*_.VALDATA___V1333*/ meltfptr[1332]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75707,7 +75735,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[18] = (melt_ptr_t) ( /*_.VALDATA___V1308*/ meltfptr[1307]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75745,7 +75773,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1341*/ meltfptr[1340], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75760,7 +75788,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[20] = (melt_ptr_t) ( /*_.VALDATA___V1341*/ meltfptr[1340]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -75772,7 +75800,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[21] = (melt_ptr_t) ( /*_.VALCLO___V1116*/ meltfptr[1115]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75783,11 +75811,11 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1264__MEXPAND_DEFSELECTOR#22", - NULL != ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34])); + NULL != ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[22] = - (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34]); + (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75802,7 +75830,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[23] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -75814,7 +75842,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[24] = (melt_ptr_t) ( /*_.VALCLO___V1329*/ meltfptr[1328]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75829,7 +75857,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[25] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75844,7 +75872,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[26] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -75856,7 +75884,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1340*/ meltfptr[1339])->tabval[27] = (melt_ptr_t) ( /*_.VALDATA___V533*/ meltfptr[532]); - MELT_LOCATION ("warmelt-macro.melt:3444:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3449:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1340*/ meltfptr[1339]); @@ -75922,7 +75950,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1346*/ meltfptr[1345], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75936,7 +75964,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75950,7 +75978,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75964,7 +75992,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75978,7 +76006,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -75988,11 +76016,11 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1272__MEXPAND_INSTANCE#4", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[4] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76006,7 +76034,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76020,7 +76048,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76030,11 +76058,11 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1272__MEXPAND_INSTANCE#7", - NULL != ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36])); + NULL != ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[7] = - (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36]); + (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37]); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76048,7 +76076,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76062,7 +76090,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76074,7 +76102,21 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[10] = (melt_ptr_t) ( /*_.VALCLO___V1329*/ meltfptr[1328]); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_26 */ + +void +meltmod__warmelt_macro__initialmeltchunk_27 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76088,7 +76130,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[11] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76102,21 +76144,7 @@ meltmod__warmelt_macro__initialmeltchunk_26 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[12] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_26 */ - -void -meltmod__warmelt_macro__initialmeltchunk_27 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76128,7 +76156,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V557*/ meltfptr[556]); - MELT_LOCATION ("warmelt-macro.melt:3591:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3596:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1348*/ meltfptr[1347]); @@ -76171,7 +76199,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1350*/ meltfptr[1349], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:3659:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3664:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76185,7 +76213,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3659:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3664:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76199,7 +76227,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:3659:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3664:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76213,7 +76241,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:3659:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3664:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76225,7 +76253,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:3659:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3664:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76239,7 +76267,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:3659:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3664:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76251,7 +76279,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1231*/ meltfptr[1230]); - MELT_LOCATION ("warmelt-macro.melt:3659:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3664:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76265,7 +76293,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[6] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:3659:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3664:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76279,7 +76307,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:3659:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3664:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1352*/ meltfptr[1351]); @@ -76322,7 +76350,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1354*/ meltfptr[1353], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76336,7 +76364,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76350,7 +76378,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76364,7 +76392,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76372,11 +76400,11 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ( /*_.VALROUT___V1356*/ meltfptr[1355])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[3] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76390,7 +76418,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76404,7 +76432,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76412,11 +76440,11 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ( /*_.VALROUT___V1356*/ meltfptr[1355])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1197*/ meltfptr[1196]); + NULL != /*_.VALCLO___V1199*/ meltfptr[1198]); ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[6] = - (melt_ptr_t) ( /*_.VALCLO___V1197*/ meltfptr[1196]); + (melt_ptr_t) ( /*_.VALCLO___V1199*/ meltfptr[1198]); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76430,7 +76458,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[7] = (melt_ptr_t) ( /*_.MULTIPLE_ITERATE_TEST__V62*/ meltfptr[61]); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76444,7 +76472,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_FIELD__V18*/ meltfptr[17]); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76458,7 +76486,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:3715:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3720:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76472,7 +76500,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1357*/ meltfptr[1356])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_FIELD__V18*/ meltfptr[17]); - MELT_LOCATION ("warmelt-macro.melt:3715:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3720:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76486,12 +76514,12 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1357*/ meltfptr[1356])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:3715:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3720:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1357*/ meltfptr[1356]); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76506,7 +76534,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[10] = (melt_ptr_t) ( /*_.VALROUT___V1357*/ meltfptr[1356]); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76521,7 +76549,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_FIELD__V18*/ meltfptr[17]); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76533,7 +76561,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V1021*/ meltfptr[1020]); - MELT_LOCATION ("warmelt-macro.melt:3700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3705:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1356*/ meltfptr[1355]); @@ -76553,7 +76581,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1358*/ meltfptr[1357]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76567,7 +76595,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76581,7 +76609,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76589,11 +76617,11 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ( /*_.VALROUT___V1359*/ meltfptr[1358])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[2] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76607,7 +76635,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76621,7 +76649,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76631,11 +76659,11 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_INSTANCE#5", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[5] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76649,7 +76677,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[6] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76663,7 +76691,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76673,11 +76701,11 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_INSTANCE#8", - NULL != ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36])); + NULL != ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[8] = - (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36]); + (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76691,7 +76719,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76705,7 +76733,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76717,7 +76745,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V1358*/ meltfptr[1357]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76731,7 +76759,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[12] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76745,7 +76773,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[13] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76759,7 +76787,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[14] = (melt_ptr_t) ( /*_.MULTIPLE_MAP__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76771,7 +76799,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V1021*/ meltfptr[1020]); - MELT_LOCATION ("warmelt-macro.melt:3802:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3807:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76783,12 +76811,12 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1360*/ meltfptr[1359])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V1021*/ meltfptr[1020]); - MELT_LOCATION ("warmelt-macro.melt:3802:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3807:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1360*/ meltfptr[1359]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76802,7 +76830,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[16] = (melt_ptr_t) ( /*_.VALROUT___V1360*/ meltfptr[1359]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76814,7 +76842,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[17] = (melt_ptr_t) ( /*_.VALDATA___V1015*/ meltfptr[1014]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76822,11 +76850,11 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ( /*_.VALROUT___V1359*/ meltfptr[1358])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1212*/ meltfptr[1211]); + NULL != /*_.VALCLO___V1214*/ meltfptr[1213]); ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[18] = - (melt_ptr_t) ( /*_.VALCLO___V1212*/ meltfptr[1211]); + (melt_ptr_t) ( /*_.VALCLO___V1214*/ meltfptr[1213]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76840,7 +76868,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[19] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V10*/ meltfptr[9]); - MELT_LOCATION ("warmelt-macro.melt:3744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3749:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1359*/ meltfptr[1358]); @@ -76860,7 +76888,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1361*/ meltfptr[1360]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76874,7 +76902,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76888,7 +76916,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -76896,11 +76924,11 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ( /*_.VALROUT___V1362*/ meltfptr[1361])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[2] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76914,7 +76942,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76928,7 +76956,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76938,11 +76966,11 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1286__PATEXPAND_OBJECT#5", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[5] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76956,7 +76984,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[6] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76970,7 +76998,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76980,11 +77008,11 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1286__PATEXPAND_OBJECT#8", - NULL != ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36])); + NULL != ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[8] = - (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36]); + (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -76998,7 +77026,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77012,7 +77040,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77024,7 +77052,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V1358*/ meltfptr[1357]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77038,7 +77066,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[12] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77052,7 +77080,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[13] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77066,7 +77094,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[14] = (melt_ptr_t) ( /*_.MULTIPLE_MAP__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77078,7 +77106,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V1021*/ meltfptr[1020]); - MELT_LOCATION ("warmelt-macro.melt:3897:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3902:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77090,12 +77118,12 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1363*/ meltfptr[1362])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V1021*/ meltfptr[1020]); - MELT_LOCATION ("warmelt-macro.melt:3897:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3902:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1363*/ meltfptr[1362]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77109,7 +77137,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[16] = (melt_ptr_t) ( /*_.VALROUT___V1363*/ meltfptr[1362]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77121,7 +77149,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[17] = (melt_ptr_t) ( /*_.VALDATA___V1001*/ meltfptr[1000]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77129,11 +77157,11 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ( /*_.VALROUT___V1362*/ meltfptr[1361])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1212*/ meltfptr[1211]); + NULL != /*_.VALCLO___V1214*/ meltfptr[1213]); ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[18] = - (melt_ptr_t) ( /*_.VALCLO___V1212*/ meltfptr[1211]); + (melt_ptr_t) ( /*_.VALCLO___V1214*/ meltfptr[1213]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77147,7 +77175,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1362*/ meltfptr[1361])->tabval[19] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V10*/ meltfptr[9]); - MELT_LOCATION ("warmelt-macro.melt:3839:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3844:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1362*/ meltfptr[1361]); @@ -77167,7 +77195,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1364*/ meltfptr[1363]); - MELT_LOCATION ("warmelt-macro.melt:3916:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3921:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77181,7 +77209,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1365*/ meltfptr[1364])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:3916:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3921:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77195,7 +77223,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1365*/ meltfptr[1364])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:3916:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3921:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77209,7 +77237,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1365*/ meltfptr[1364])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3916:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3921:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1365*/ meltfptr[1364]); @@ -77252,7 +77280,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1367*/ meltfptr[1366], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:3939:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77266,7 +77294,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:3939:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77280,7 +77308,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:3939:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77294,7 +77322,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); - MELT_LOCATION ("warmelt-macro.melt:3939:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77308,7 +77336,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:3939:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77322,7 +77350,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:3939:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77336,7 +77364,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_VERBATIM_STRING__V54*/ meltfptr[53]); - MELT_LOCATION ("warmelt-macro.melt:3939:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77348,7 +77376,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V889*/ meltfptr[888]); - MELT_LOCATION ("warmelt-macro.melt:3939:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77362,7 +77390,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[7] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:3939:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77376,7 +77404,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:3939:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77390,7 +77418,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[9] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:3939:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3944:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1369*/ meltfptr[1368]); @@ -77433,7 +77461,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1371*/ meltfptr[1370], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:3990:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3995:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77448,7 +77476,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:3990:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3995:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77463,7 +77491,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:3990:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3995:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77475,7 +77503,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:3990:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3995:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77490,7 +77518,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); - MELT_LOCATION ("warmelt-macro.melt:3990:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3995:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77505,7 +77533,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:3990:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3995:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77517,7 +77545,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1329*/ meltfptr[1328]); - MELT_LOCATION ("warmelt-macro.melt:3990:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3995:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77532,7 +77560,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[6] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:3990:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3995:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77547,7 +77575,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:3990:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3995:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77559,7 +77587,7 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V609*/ meltfptr[608]); - MELT_LOCATION ("warmelt-macro.melt:3990:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3995:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1373*/ meltfptr[1372]); @@ -77576,7 +77604,21 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct ((meltclosure_ptr_t) /*_.VALCLO___V1374*/ meltfptr[1373])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1373*/ meltfptr[1372]); - /*touch:DATACLOSURE_ */ + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_27 */ + +void +meltmod__warmelt_macro__initialmeltchunk_28 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; +/*touch:DATACLOSURE_*/ meltgc_touch ( /*_.VALCLO___V1374*/ meltfptr[1373]); /*putslot */ @@ -77595,28 +77637,14 @@ meltmod__warmelt_macro__initialmeltchunk_27 (struct obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1376*/ meltfptr[1375]); - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_27 */ - -void -meltmod__warmelt_macro__initialmeltchunk_28 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; -/*touch:VALUEDATA_*/ + /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1375*/ meltfptr[1374]); melt_dbgtrace_written_object ( /*_.VALDATA___V1375*/ meltfptr[1374], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4038:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4043:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77630,7 +77658,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4038:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4043:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77644,7 +77672,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4038:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4043:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77656,7 +77684,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:4038:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4043:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77670,7 +77698,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); - MELT_LOCATION ("warmelt-macro.melt:4038:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4043:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77684,7 +77712,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:4038:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4043:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77696,7 +77724,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1329*/ meltfptr[1328]); - MELT_LOCATION ("warmelt-macro.melt:4038:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4043:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77710,7 +77738,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[6] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:4038:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4043:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77724,7 +77752,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:4038:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4043:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77736,7 +77764,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V595*/ meltfptr[594]); - MELT_LOCATION ("warmelt-macro.melt:4038:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4043:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1377*/ meltfptr[1376]); @@ -77779,7 +77807,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1379*/ meltfptr[1378], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4085:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4090:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77794,7 +77822,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1381*/ meltfptr[1380])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4085:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4090:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77809,7 +77837,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1381*/ meltfptr[1380])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4085:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4090:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77824,7 +77852,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1381*/ meltfptr[1380])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:4085:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4090:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77836,7 +77864,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1381*/ meltfptr[1380])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1329*/ meltfptr[1328]); - MELT_LOCATION ("warmelt-macro.melt:4085:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4090:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77848,7 +77876,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1381*/ meltfptr[1380])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V543*/ meltfptr[542]); - MELT_LOCATION ("warmelt-macro.melt:4085:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4090:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77860,7 +77888,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1381*/ meltfptr[1380])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V589*/ meltfptr[588]); - MELT_LOCATION ("warmelt-macro.melt:4085:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4090:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1381*/ meltfptr[1380]); @@ -77903,7 +77931,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1383*/ meltfptr[1382], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4126:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4131:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77917,7 +77945,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1385*/ meltfptr[1384])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4126:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4131:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77931,7 +77959,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1385*/ meltfptr[1384])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4126:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4131:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -77945,7 +77973,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1385*/ meltfptr[1384])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:4126:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4131:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77957,7 +77985,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1385*/ meltfptr[1384])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1329*/ meltfptr[1328]); - MELT_LOCATION ("warmelt-macro.melt:4126:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4131:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77969,7 +77997,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1385*/ meltfptr[1384])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V543*/ meltfptr[542]); - MELT_LOCATION ("warmelt-macro.melt:4126:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4131:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -77981,7 +78009,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1385*/ meltfptr[1384])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V575*/ meltfptr[574]); - MELT_LOCATION ("warmelt-macro.melt:4126:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4131:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1385*/ meltfptr[1384]); @@ -78024,7 +78052,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1387*/ meltfptr[1386], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4167:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4172:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78038,7 +78066,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1389*/ meltfptr[1388])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4167:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4172:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78052,7 +78080,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1389*/ meltfptr[1388])->tabval[1] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4167:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4172:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78062,11 +78090,11 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1313__PAIRLIST_TO_PROGN#2", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1389*/ meltfptr[1388])->tabval[2] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:4167:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4172:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78080,7 +78108,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1389*/ meltfptr[1388])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:4167:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4172:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78094,7 +78122,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1389*/ meltfptr[1388])->tabval[4] = (melt_ptr_t) ( /*_.VALROUT___V1390*/ meltfptr[1389]); - MELT_LOCATION ("warmelt-macro.melt:4167:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4172:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78106,7 +78134,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1389*/ meltfptr[1388])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V217*/ meltfptr[216]); - MELT_LOCATION ("warmelt-macro.melt:4167:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4172:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1389*/ meltfptr[1388]); @@ -78126,7 +78154,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1391*/ meltfptr[1390]); - MELT_LOCATION ("warmelt-macro.melt:4186:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4191:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78140,7 +78168,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1392*/ meltfptr[1391])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4186:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4191:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78154,7 +78182,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1392*/ meltfptr[1391])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4186:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4191:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78166,7 +78194,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1392*/ meltfptr[1391])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:4186:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4191:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78180,7 +78208,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1392*/ meltfptr[1391])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:4186:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4191:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78192,7 +78220,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1392*/ meltfptr[1391])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V233*/ meltfptr[232]); - MELT_LOCATION ("warmelt-macro.melt:4186:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4191:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1392*/ meltfptr[1391]); @@ -78235,7 +78263,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1394*/ meltfptr[1393], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4217:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4222:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78249,7 +78277,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1396*/ meltfptr[1395])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4217:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4222:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78263,7 +78291,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1396*/ meltfptr[1395])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4217:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4222:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78277,7 +78305,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1396*/ meltfptr[1395])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4217:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4222:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78289,7 +78317,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1396*/ meltfptr[1395])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:4217:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4222:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78301,7 +78329,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1396*/ meltfptr[1395])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V629*/ meltfptr[628]); - MELT_LOCATION ("warmelt-macro.melt:4217:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4222:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78313,7 +78341,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1396*/ meltfptr[1395])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V615*/ meltfptr[614]); - MELT_LOCATION ("warmelt-macro.melt:4217:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4222:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1396*/ meltfptr[1395]); @@ -78356,7 +78384,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1398*/ meltfptr[1397], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4271:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4276:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78370,7 +78398,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1400*/ meltfptr[1399])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4271:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4276:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78384,7 +78412,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1400*/ meltfptr[1399])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4271:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4276:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78398,7 +78426,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1400*/ meltfptr[1399])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4271:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4276:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78410,7 +78438,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1400*/ meltfptr[1399])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:4271:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4276:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78422,7 +78450,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1400*/ meltfptr[1399])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1391*/ meltfptr[1390]); - MELT_LOCATION ("warmelt-macro.melt:4271:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4276:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78434,7 +78462,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1400*/ meltfptr[1399])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V615*/ meltfptr[614]); - MELT_LOCATION ("warmelt-macro.melt:4271:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4276:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1400*/ meltfptr[1399]); @@ -78477,7 +78505,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1402*/ meltfptr[1401], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4312:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78491,7 +78519,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1404*/ meltfptr[1403])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4312:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78505,7 +78533,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1404*/ meltfptr[1403])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4312:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78519,7 +78547,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1404*/ meltfptr[1403])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4312:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78531,7 +78559,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1404*/ meltfptr[1403])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:4307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4312:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78543,7 +78571,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1404*/ meltfptr[1403])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1391*/ meltfptr[1390]); - MELT_LOCATION ("warmelt-macro.melt:4307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4312:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78555,7 +78583,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1404*/ meltfptr[1403])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V629*/ meltfptr[628]); - MELT_LOCATION ("warmelt-macro.melt:4307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4312:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1404*/ meltfptr[1403]); @@ -78598,7 +78626,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1406*/ meltfptr[1405], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78612,7 +78640,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1408*/ meltfptr[1407])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78626,7 +78654,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1408*/ meltfptr[1407])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4348:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78638,7 +78666,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1408*/ meltfptr[1407])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78652,7 +78680,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1408*/ meltfptr[1407])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78666,7 +78694,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1408*/ meltfptr[1407])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4348:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78678,7 +78706,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1408*/ meltfptr[1407])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V649*/ meltfptr[648]); - MELT_LOCATION ("warmelt-macro.melt:4343:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4348:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1408*/ meltfptr[1407]); @@ -78736,7 +78764,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1413*/ meltfptr[1412]); - MELT_LOCATION ("warmelt-macro.melt:4415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78750,7 +78778,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78764,7 +78792,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78778,7 +78806,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4420:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78790,7 +78818,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1413*/ meltfptr[1412]); - MELT_LOCATION ("warmelt-macro.melt:4415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4420:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -78802,7 +78830,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1095*/ meltfptr[1094]); - MELT_LOCATION ("warmelt-macro.melt:4415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4420:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78816,7 +78844,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1075*/ meltfptr[1074]); - MELT_LOCATION ("warmelt-macro.melt:4415:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4420:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1414*/ meltfptr[1413]); @@ -78859,7 +78887,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1416*/ meltfptr[1415], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4478:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78873,7 +78901,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1418*/ meltfptr[1417])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4478:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78887,7 +78915,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1418*/ meltfptr[1417])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4478:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78901,7 +78929,21 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1418*/ meltfptr[1417])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4478:/ initchunk"); + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_28 */ + +void +meltmod__warmelt_macro__initialmeltchunk_29 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; + MELT_LOCATION ("warmelt-macro.melt:4483:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78911,11 +78953,11 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1342__MEXPAND_COND#3", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1418*/ meltfptr[1417])->tabval[3] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:4478:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78929,21 +78971,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1418*/ meltfptr[1417])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_28 */ - -void -meltmod__warmelt_macro__initialmeltchunk_29 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; - MELT_LOCATION ("warmelt-macro.melt:4478:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78957,7 +78985,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1418*/ meltfptr[1417])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4488:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4493:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -78971,12 +78999,12 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1419*/ meltfptr[1418])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4488:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4493:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1419*/ meltfptr[1418]); - MELT_LOCATION ("warmelt-macro.melt:4478:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79013,7 +79041,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1420*/ meltfptr[1419], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4478:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79027,7 +79055,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1418*/ meltfptr[1417])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1420*/ meltfptr[1419]); - MELT_LOCATION ("warmelt-macro.melt:4478:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79039,7 +79067,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1418*/ meltfptr[1417])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V1391*/ meltfptr[1390]); - MELT_LOCATION ("warmelt-macro.melt:4478:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79051,7 +79079,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1418*/ meltfptr[1417])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V639*/ meltfptr[638]); - MELT_LOCATION ("warmelt-macro.melt:4478:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79063,7 +79091,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1418*/ meltfptr[1417])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V629*/ meltfptr[628]); - MELT_LOCATION ("warmelt-macro.melt:4478:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4483:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1418*/ meltfptr[1417]); @@ -79106,7 +79134,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1423*/ meltfptr[1422], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4583:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4588:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79120,7 +79148,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1425*/ meltfptr[1424])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4583:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4588:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79134,7 +79162,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1425*/ meltfptr[1424])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4583:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4588:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79148,7 +79176,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1425*/ meltfptr[1424])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4583:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4588:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79160,7 +79188,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1425*/ meltfptr[1424])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:4583:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4588:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79170,11 +79198,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1349__MEXPAND_AND#4", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1425*/ meltfptr[1424])->tabval[4] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:4583:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4588:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79188,7 +79216,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1425*/ meltfptr[1424])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:4583:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4588:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79202,7 +79230,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1425*/ meltfptr[1424])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V1426*/ meltfptr[1425]); - MELT_LOCATION ("warmelt-macro.melt:4583:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4588:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79214,7 +79242,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1425*/ meltfptr[1424])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V615*/ meltfptr[614]); - MELT_LOCATION ("warmelt-macro.melt:4583:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4588:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1425*/ meltfptr[1424]); @@ -79234,7 +79262,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1427*/ meltfptr[1426]); - MELT_LOCATION ("warmelt-macro.melt:4624:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79248,7 +79276,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1428*/ meltfptr[1427])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4624:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79262,7 +79290,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1428*/ meltfptr[1427])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4624:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79270,11 +79298,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ( /*_.VALROUT___V1428*/ meltfptr[1427])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); ((meltroutine_ptr_t) /*_.VALROUT___V1428*/ meltfptr[1427])->tabval[2] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:4624:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79288,7 +79316,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1428*/ meltfptr[1427])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4624:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79296,11 +79324,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ( /*_.VALROUT___V1428*/ meltfptr[1427])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1217*/ meltfptr[1216]); + NULL != /*_.VALCLO___V1219*/ meltfptr[1218]); ((meltroutine_ptr_t) /*_.VALROUT___V1428*/ meltfptr[1427])->tabval[4] = - (melt_ptr_t) ( /*_.VALCLO___V1217*/ meltfptr[1216]); + (melt_ptr_t) ( /*_.VALCLO___V1219*/ meltfptr[1218]); - MELT_LOCATION ("warmelt-macro.melt:4624:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79312,7 +79340,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1428*/ meltfptr[1427])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V963*/ meltfptr[962]); - MELT_LOCATION ("warmelt-macro.melt:4624:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79324,7 +79352,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1428*/ meltfptr[1427])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V947*/ meltfptr[946]); - MELT_LOCATION ("warmelt-macro.melt:4624:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79336,7 +79364,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1428*/ meltfptr[1427])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V903*/ meltfptr[902]); - MELT_LOCATION ("warmelt-macro.melt:4624:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79348,7 +79376,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1428*/ meltfptr[1427])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V923*/ meltfptr[922]); - MELT_LOCATION ("warmelt-macro.melt:4624:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79362,7 +79390,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1428*/ meltfptr[1427])->tabval[9] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V10*/ meltfptr[9]); - MELT_LOCATION ("warmelt-macro.melt:4624:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4629:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1428*/ meltfptr[1427]); @@ -79382,7 +79410,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1429*/ meltfptr[1428]); - MELT_LOCATION ("warmelt-macro.melt:4662:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4667:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79396,7 +79424,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1430*/ meltfptr[1429])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4662:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4667:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79410,7 +79438,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1430*/ meltfptr[1429])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4662:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4667:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79424,7 +79452,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1430*/ meltfptr[1429])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4662:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4667:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1430*/ meltfptr[1429]); @@ -79467,7 +79495,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1432*/ meltfptr[1431], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4676:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4681:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79481,7 +79509,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1434*/ meltfptr[1433])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4676:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4681:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79495,7 +79523,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1434*/ meltfptr[1433])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4676:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4681:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79503,11 +79531,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ( /*_.VALROUT___V1434*/ meltfptr[1433])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); ((meltroutine_ptr_t) /*_.VALROUT___V1434*/ meltfptr[1433])->tabval[2] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:4676:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4681:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79521,7 +79549,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1434*/ meltfptr[1433])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4676:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4681:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1434*/ meltfptr[1433]); @@ -79541,7 +79569,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1435*/ meltfptr[1434]); - MELT_LOCATION ("warmelt-macro.melt:4691:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4696:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79555,7 +79583,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1436*/ meltfptr[1435])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4691:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4696:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79569,7 +79597,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1436*/ meltfptr[1435])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4691:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4696:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79583,7 +79611,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1436*/ meltfptr[1435])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4691:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4696:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1436*/ meltfptr[1435]); @@ -79603,7 +79631,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1437*/ meltfptr[1436]); - MELT_LOCATION ("warmelt-macro.melt:4706:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4711:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79617,7 +79645,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4706:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4711:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79631,7 +79659,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4706:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4711:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79639,11 +79667,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ( /*_.VALROUT___V1438*/ meltfptr[1437])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[2] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:4706:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4711:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79657,7 +79685,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4706:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4711:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79665,11 +79693,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ( /*_.VALROUT___V1438*/ meltfptr[1437])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1217*/ meltfptr[1216]); + NULL != /*_.VALCLO___V1219*/ meltfptr[1218]); ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[4] = - (melt_ptr_t) ( /*_.VALCLO___V1217*/ meltfptr[1216]); + (melt_ptr_t) ( /*_.VALCLO___V1219*/ meltfptr[1218]); - MELT_LOCATION ("warmelt-macro.melt:4706:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4711:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79681,7 +79709,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V923*/ meltfptr[922]); - MELT_LOCATION ("warmelt-macro.melt:4706:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4711:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79689,11 +79717,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ( /*_.VALROUT___V1438*/ meltfptr[1437])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1212*/ meltfptr[1211]); + NULL != /*_.VALCLO___V1214*/ meltfptr[1213]); ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[6] = - (melt_ptr_t) ( /*_.VALCLO___V1212*/ meltfptr[1211]); + (melt_ptr_t) ( /*_.VALCLO___V1214*/ meltfptr[1213]); - MELT_LOCATION ("warmelt-macro.melt:4706:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4711:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79707,7 +79735,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V10*/ meltfptr[9]); - MELT_LOCATION ("warmelt-macro.melt:4706:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4711:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1438*/ meltfptr[1437]); @@ -79750,7 +79778,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1440*/ meltfptr[1439], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4743:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4748:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79764,7 +79792,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1442*/ meltfptr[1441])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4743:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4748:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79778,7 +79806,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1442*/ meltfptr[1441])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4743:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4748:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79792,7 +79820,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1442*/ meltfptr[1441])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4743:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4748:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79804,7 +79832,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1442*/ meltfptr[1441])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:4743:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4748:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79814,11 +79842,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1366__MEXPAND_OR#4", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1442*/ meltfptr[1441])->tabval[4] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:4743:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4748:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79832,7 +79860,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1442*/ meltfptr[1441])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:4743:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4748:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79846,7 +79874,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1442*/ meltfptr[1441])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V1443*/ meltfptr[1442]); - MELT_LOCATION ("warmelt-macro.melt:4743:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4748:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79858,7 +79886,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1442*/ meltfptr[1441])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V639*/ meltfptr[638]); - MELT_LOCATION ("warmelt-macro.melt:4743:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4748:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1442*/ meltfptr[1441]); @@ -79878,7 +79906,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1444*/ meltfptr[1443]); - MELT_LOCATION ("warmelt-macro.melt:4773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79892,7 +79920,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79906,7 +79934,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4778:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79914,11 +79942,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[2] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:4773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79932,7 +79960,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4778:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79940,11 +79968,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1217*/ meltfptr[1216]); + NULL != /*_.VALCLO___V1219*/ meltfptr[1218]); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[4] = - (melt_ptr_t) ( /*_.VALCLO___V1217*/ meltfptr[1216]); + (melt_ptr_t) ( /*_.VALCLO___V1219*/ meltfptr[1218]); - MELT_LOCATION ("warmelt-macro.melt:4773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4778:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79956,7 +79984,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V913*/ meltfptr[912]); - MELT_LOCATION ("warmelt-macro.melt:4773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4778:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79964,11 +79992,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1212*/ meltfptr[1211]); + NULL != /*_.VALCLO___V1214*/ meltfptr[1213]); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[6] = - (melt_ptr_t) ( /*_.VALCLO___V1212*/ meltfptr[1211]); + (melt_ptr_t) ( /*_.VALCLO___V1214*/ meltfptr[1213]); - MELT_LOCATION ("warmelt-macro.melt:4773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -79982,7 +80010,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V10*/ meltfptr[9]); - MELT_LOCATION ("warmelt-macro.melt:4773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4778:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1445*/ meltfptr[1444]); @@ -80025,7 +80053,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1447*/ meltfptr[1446], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80039,7 +80067,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80053,7 +80081,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80067,7 +80095,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80079,7 +80107,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80093,7 +80121,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80107,7 +80135,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80119,7 +80147,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V1087*/ meltfptr[1086]); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80131,7 +80159,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V865*/ meltfptr[864]); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80145,7 +80173,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V1222*/ meltfptr[1221]); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80155,11 +80183,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1373__MEXPAND_REFERENCE#9", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[9] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80173,7 +80201,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V1222*/ meltfptr[1221]); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80208,7 +80236,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1450*/ meltfptr[1449], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80222,7 +80250,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V1450*/ meltfptr[1449]); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80234,7 +80262,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V557*/ meltfptr[556]); - MELT_LOCATION ("warmelt-macro.melt:4811:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4816:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1449*/ meltfptr[1448]); @@ -80254,7 +80282,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1452*/ meltfptr[1451]); - MELT_LOCATION ("warmelt-macro.melt:4853:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4858:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80268,7 +80296,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1453*/ meltfptr[1452])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4853:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4858:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80282,7 +80310,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1453*/ meltfptr[1452])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4853:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4858:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80290,11 +80318,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ( /*_.VALROUT___V1453*/ meltfptr[1452])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); ((meltroutine_ptr_t) /*_.VALROUT___V1453*/ meltfptr[1452])->tabval[2] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:4853:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4858:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80308,7 +80336,21 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1453*/ meltfptr[1452])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4853:/ initchunk"); + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_29 */ + +void +meltmod__warmelt_macro__initialmeltchunk_30 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; + MELT_LOCATION ("warmelt-macro.melt:4858:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80316,11 +80358,11 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ( /*_.VALROUT___V1453*/ meltfptr[1452])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1217*/ meltfptr[1216]); + NULL != /*_.VALCLO___V1219*/ meltfptr[1218]); ((meltroutine_ptr_t) /*_.VALROUT___V1453*/ meltfptr[1452])->tabval[4] = - (melt_ptr_t) ( /*_.VALCLO___V1217*/ meltfptr[1216]); + (melt_ptr_t) ( /*_.VALCLO___V1219*/ meltfptr[1218]); - MELT_LOCATION ("warmelt-macro.melt:4853:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4858:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80332,21 +80374,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1453*/ meltfptr[1452])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1358*/ meltfptr[1357]); - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_29 */ - -void -meltmod__warmelt_macro__initialmeltchunk_30 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; - MELT_LOCATION ("warmelt-macro.melt:4853:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4858:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80360,7 +80388,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1453*/ meltfptr[1452])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1450*/ meltfptr[1449]); - MELT_LOCATION ("warmelt-macro.melt:4853:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4858:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80374,7 +80402,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1453*/ meltfptr[1452])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:4853:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4858:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80386,7 +80414,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1453*/ meltfptr[1452])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V1015*/ meltfptr[1014]); - MELT_LOCATION ("warmelt-macro.melt:4853:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4858:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80400,7 +80428,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1453*/ meltfptr[1452])->tabval[9] = (melt_ptr_t) ( /*_.VALBXINT___V1454*/ meltfptr[1453]); - MELT_LOCATION ("warmelt-macro.melt:4853:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4858:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1453*/ meltfptr[1452]); @@ -80443,7 +80471,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1456*/ meltfptr[1455], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4893:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4898:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80458,7 +80486,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1458*/ meltfptr[1457])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4893:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4898:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80473,7 +80501,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1458*/ meltfptr[1457])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4893:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4898:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80488,7 +80516,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1458*/ meltfptr[1457])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:4893:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4898:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80500,7 +80528,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1458*/ meltfptr[1457])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1452*/ meltfptr[1451]); - MELT_LOCATION ("warmelt-macro.melt:4893:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4898:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1458*/ meltfptr[1457]); @@ -80520,7 +80548,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1459*/ meltfptr[1458]); - MELT_LOCATION ("warmelt-macro.melt:4900:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4905:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80535,7 +80563,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4900:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4905:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80550,7 +80578,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:4900:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4905:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80562,7 +80590,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1455*/ meltfptr[1454]); - MELT_LOCATION ("warmelt-macro.melt:4900:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4905:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1460*/ meltfptr[1459]); @@ -80605,7 +80633,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1462*/ meltfptr[1461], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80619,7 +80647,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1464*/ meltfptr[1463])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80633,7 +80661,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1464*/ meltfptr[1463])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80647,7 +80675,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1464*/ meltfptr[1463])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80661,7 +80689,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1464*/ meltfptr[1463])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80675,7 +80703,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1464*/ meltfptr[1463])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80687,7 +80715,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1464*/ meltfptr[1463])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1087*/ meltfptr[1086]); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80699,7 +80727,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1464*/ meltfptr[1463])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V865*/ meltfptr[864]); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80713,7 +80741,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1464*/ meltfptr[1463])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1222*/ meltfptr[1221]); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80723,11 +80751,11 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1388__MEXPAND_DEREF#8", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1464*/ meltfptr[1463])->tabval[8] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80741,7 +80769,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1464*/ meltfptr[1463])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V1222*/ meltfptr[1221]); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80753,7 +80781,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1464*/ meltfptr[1463])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V575*/ meltfptr[574]); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80767,7 +80795,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1464*/ meltfptr[1463])->tabval[11] = (melt_ptr_t) ( /*_.REFERENCED_VALUE__V65*/ meltfptr[64]); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80781,7 +80809,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1464*/ meltfptr[1463])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_FIELD__V18*/ meltfptr[17]); - MELT_LOCATION ("warmelt-macro.melt:4914:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4919:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1464*/ meltfptr[1463]); @@ -80847,7 +80875,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1468*/ meltfptr[1467], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4958:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4963:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80862,7 +80890,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1470*/ meltfptr[1469])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4958:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4963:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80877,7 +80905,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1470*/ meltfptr[1469])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4958:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4963:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80892,7 +80920,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1470*/ meltfptr[1469])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:4958:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4963:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80904,7 +80932,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1470*/ meltfptr[1469])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1465*/ meltfptr[1464]); - MELT_LOCATION ("warmelt-macro.melt:4958:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4963:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1470*/ meltfptr[1469]); @@ -80970,7 +80998,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1474*/ meltfptr[1473], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80984,7 +81012,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -80998,7 +81026,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81012,7 +81040,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81026,7 +81054,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81040,7 +81068,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81052,7 +81080,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1087*/ meltfptr[1086]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81064,7 +81092,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V865*/ meltfptr[864]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81078,7 +81106,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1222*/ meltfptr[1221]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81088,11 +81116,11 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1400__MEXPAND_SET_REF#8", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[8] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81106,7 +81134,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V1222*/ meltfptr[1221]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81118,7 +81146,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V543*/ meltfptr[542]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81132,7 +81160,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[11] = (melt_ptr_t) ( /*_.REFERENCED_VALUE__V65*/ meltfptr[64]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81144,7 +81172,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V595*/ meltfptr[594]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81158,7 +81186,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_FIELD__V18*/ meltfptr[17]); - MELT_LOCATION ("warmelt-macro.melt:4980:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4985:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1476*/ meltfptr[1475]); @@ -81201,7 +81229,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1478*/ meltfptr[1477], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5037:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81215,7 +81243,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1480*/ meltfptr[1479])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5037:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81229,7 +81257,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1480*/ meltfptr[1479])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5037:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81243,7 +81271,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1480*/ meltfptr[1479])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5037:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81255,7 +81283,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1480*/ meltfptr[1479])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1087*/ meltfptr[1086]); - MELT_LOCATION ("warmelt-macro.melt:5032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5037:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81267,7 +81295,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1480*/ meltfptr[1479])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V205*/ meltfptr[204]); - MELT_LOCATION ("warmelt-macro.melt:5032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5037:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1480*/ meltfptr[1479]); @@ -81287,7 +81315,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1481*/ meltfptr[1480]); - MELT_LOCATION ("warmelt-macro.melt:5049:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5054:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81301,7 +81329,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1482*/ meltfptr[1481])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5049:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5054:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81315,7 +81343,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1482*/ meltfptr[1481])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5049:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5054:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81323,11 +81351,11 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ( /*_.VALROUT___V1482*/ meltfptr[1481])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); ((meltroutine_ptr_t) /*_.VALROUT___V1482*/ meltfptr[1481])->tabval[2] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:5049:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5054:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81341,7 +81369,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1482*/ meltfptr[1481])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5049:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5054:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81349,11 +81377,11 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ( /*_.VALROUT___V1482*/ meltfptr[1481])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1217*/ meltfptr[1216]); + NULL != /*_.VALCLO___V1219*/ meltfptr[1218]); ((meltroutine_ptr_t) /*_.VALROUT___V1482*/ meltfptr[1481])->tabval[4] = - (melt_ptr_t) ( /*_.VALCLO___V1217*/ meltfptr[1216]); + (melt_ptr_t) ( /*_.VALCLO___V1219*/ meltfptr[1218]); - MELT_LOCATION ("warmelt-macro.melt:5049:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5054:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81365,7 +81393,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1482*/ meltfptr[1481])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V989*/ meltfptr[988]); - MELT_LOCATION ("warmelt-macro.melt:5049:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5054:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1482*/ meltfptr[1481]); @@ -81408,7 +81436,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1484*/ meltfptr[1483], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5079:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5084:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81422,7 +81450,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1486*/ meltfptr[1485])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5079:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5084:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81436,7 +81464,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1486*/ meltfptr[1485])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5079:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5084:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81450,7 +81478,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1486*/ meltfptr[1485])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5079:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5084:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81462,7 +81490,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1486*/ meltfptr[1485])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1087*/ meltfptr[1086]); - MELT_LOCATION ("warmelt-macro.melt:5079:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5084:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81474,7 +81502,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1486*/ meltfptr[1485])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V211*/ meltfptr[210]); - MELT_LOCATION ("warmelt-macro.melt:5079:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5084:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1486*/ meltfptr[1485]); @@ -81494,7 +81522,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1487*/ meltfptr[1486]); - MELT_LOCATION ("warmelt-macro.melt:5096:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5101:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81508,7 +81536,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5096:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5101:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81522,7 +81550,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5096:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5101:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81530,11 +81558,11 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[2] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:5096:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5101:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81548,7 +81576,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5096:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5101:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81556,11 +81584,11 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1217*/ meltfptr[1216]); + NULL != /*_.VALCLO___V1219*/ meltfptr[1218]); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[4] = - (melt_ptr_t) ( /*_.VALCLO___V1217*/ meltfptr[1216]); + (melt_ptr_t) ( /*_.VALCLO___V1219*/ meltfptr[1218]); - MELT_LOCATION ("warmelt-macro.melt:5096:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5101:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81572,7 +81600,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V995*/ meltfptr[994]); - MELT_LOCATION ("warmelt-macro.melt:5096:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5101:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1488*/ meltfptr[1487]); @@ -81615,7 +81643,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1490*/ meltfptr[1489], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81629,7 +81657,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81643,7 +81671,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81655,7 +81683,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81669,7 +81697,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81679,11 +81707,25 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1416__MEXPAND_MATCH#4", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[4] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); + + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_30 */ - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); +void +meltmod__warmelt_macro__initialmeltchunk_31 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81697,7 +81739,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81711,21 +81753,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_30 */ - -void -meltmod__warmelt_macro__initialmeltchunk_31 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; - MELT_LOCATION ("warmelt-macro.melt:5141:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5146:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81739,12 +81767,12 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5141:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5146:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1493*/ meltfptr[1492]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81758,7 +81786,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81772,7 +81800,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81780,11 +81808,11 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ( /*_.VALROUT___V1492*/ meltfptr[1491])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALDATA___V1176*/ meltfptr[1175]); + NULL != /*_.VALDATA___V1178*/ meltfptr[1177]); ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[9] = - (melt_ptr_t) ( /*_.VALDATA___V1176*/ meltfptr[1175]); + (melt_ptr_t) ( /*_.VALDATA___V1178*/ meltfptr[1177]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81792,11 +81820,11 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ( /*_.VALROUT___V1492*/ meltfptr[1491])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", - NULL != /*_.VALCLO___V1197*/ meltfptr[1196]); + NULL != /*_.VALCLO___V1199*/ meltfptr[1198]); ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[10] = - (melt_ptr_t) ( /*_.VALCLO___V1197*/ meltfptr[1196]); + (melt_ptr_t) ( /*_.VALCLO___V1199*/ meltfptr[1198]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81810,7 +81838,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[11] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81822,7 +81850,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V1095*/ meltfptr[1094]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81834,7 +81862,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V681*/ meltfptr[680]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81848,7 +81876,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[14] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81860,7 +81888,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V667*/ meltfptr[666]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81872,7 +81900,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1492*/ meltfptr[1491])->tabval[16] = (melt_ptr_t) ( /*_.VALDATA___V963*/ meltfptr[962]); - MELT_LOCATION ("warmelt-macro.melt:5127:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5132:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1492*/ meltfptr[1491]); @@ -81915,7 +81943,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1495*/ meltfptr[1494], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81929,7 +81957,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81943,7 +81971,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81957,7 +81985,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81969,7 +81997,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81983,7 +82011,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[4] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -81997,7 +82025,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82011,7 +82039,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V51*/ meltfptr[50]); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82025,7 +82053,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82039,7 +82067,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82049,11 +82077,11 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1421__MEXPAND_LETBINDING#9", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[9] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82063,11 +82091,11 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1421__MEXPAND_LETBINDING#10", - NULL != ( /*_.CLASS_LET_BINDING__V36*/ meltfptr[35])); + NULL != ( /*_.CLASS_LET_BINDING__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[10] = - (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V36*/ meltfptr[35]); + (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V37*/ meltfptr[36]); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82081,7 +82109,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_FIXED_BINDING__V66*/ meltfptr[65]); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82093,7 +82121,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V695*/ meltfptr[694]); - MELT_LOCATION ("warmelt-macro.melt:5219:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5224:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1497*/ meltfptr[1496]); @@ -82136,7 +82164,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1499*/ meltfptr[1498], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82150,7 +82178,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82164,7 +82192,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82178,7 +82206,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82190,7 +82218,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82204,7 +82232,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[4] = (melt_ptr_t) ( /*_.FRESH_ENV__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82214,11 +82242,11 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1425__MEXPAND_LET#5", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[5] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82232,7 +82260,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[6] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82246,7 +82274,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82258,7 +82286,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V1498*/ meltfptr[1497]); - MELT_LOCATION ("warmelt-macro.melt:5325:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82272,7 +82300,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1502*/ meltfptr[1501])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5325:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5330:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82284,12 +82312,12 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1502*/ meltfptr[1501])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V1498*/ meltfptr[1497]); - MELT_LOCATION ("warmelt-macro.melt:5325:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5330:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1502*/ meltfptr[1501]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82303,7 +82331,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[9] = (melt_ptr_t) ( /*_.VALROUT___V1502*/ meltfptr[1501]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82317,7 +82345,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[10] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V23*/ meltfptr[22]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82329,7 +82357,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V695*/ meltfptr[694]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82339,11 +82367,11 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1425__MEXPAND_LET#12", - NULL != ( /*_.CLASS_LET_BINDING__V36*/ meltfptr[35])); + NULL != ( /*_.CLASS_LET_BINDING__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[12] = - (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V36*/ meltfptr[35]); + (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V37*/ meltfptr[36]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82357,7 +82385,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[13] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:5333:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5338:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82369,7 +82397,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1503*/ meltfptr[1502])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V695*/ meltfptr[694]); - MELT_LOCATION ("warmelt-macro.melt:5333:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5338:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82379,11 +82407,11 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1428__LAMBDA_#1", - NULL != ( /*_.CLASS_LET_BINDING__V36*/ meltfptr[35])); + NULL != ( /*_.CLASS_LET_BINDING__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V1503*/ meltfptr[1502])->tabval[1] = - (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V36*/ meltfptr[35]); + (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V37*/ meltfptr[36]); - MELT_LOCATION ("warmelt-macro.melt:5333:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5338:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82397,12 +82425,12 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1503*/ meltfptr[1502])->tabval[2] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:5333:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5338:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1503*/ meltfptr[1502]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82416,7 +82444,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[14] = (melt_ptr_t) ( /*_.VALROUT___V1503*/ meltfptr[1502]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82430,7 +82458,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[15] = (melt_ptr_t) ( /*_.VALROUT___V1504*/ meltfptr[1503]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82442,7 +82470,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1501*/ meltfptr[1500])->tabval[16] = (melt_ptr_t) ( /*_.VALDATA___V719*/ meltfptr[718]); - MELT_LOCATION ("warmelt-macro.melt:5303:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5308:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1501*/ meltfptr[1500]); @@ -82485,7 +82513,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1506*/ meltfptr[1505], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5370:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5375:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82500,7 +82528,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5370:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5375:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1508*/ meltfptr[1507]); @@ -82543,7 +82571,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1510*/ meltfptr[1509], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82557,7 +82585,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82571,7 +82599,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82585,7 +82613,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82599,7 +82627,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[3] = (melt_ptr_t) ( /*_.FRESH_ENV__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82609,11 +82637,11 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1436__MEXPAND_LETREC#4", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[4] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82627,7 +82655,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82641,7 +82669,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5410:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5415:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82655,12 +82683,12 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1513*/ meltfptr[1512])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5410:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5415:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1513*/ meltfptr[1512]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82674,7 +82702,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V1513*/ meltfptr[1512]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82688,7 +82716,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82702,7 +82730,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82716,7 +82744,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82730,7 +82758,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82744,7 +82772,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_LETREC_BINDING__V68*/ meltfptr[67]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82758,7 +82786,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[13] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82772,7 +82800,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[14] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82784,7 +82812,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V85*/ meltfptr[84]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82794,11 +82822,11 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1436__MEXPAND_LETREC#16", - NULL != ( /*_.CLASS_LET_BINDING__V36*/ meltfptr[35])); + NULL != ( /*_.CLASS_LET_BINDING__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[16] = - (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V36*/ meltfptr[35]); + (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V37*/ meltfptr[36]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82810,7 +82838,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[17] = (melt_ptr_t) ( /*_.VALDATA___V713*/ meltfptr[712]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82824,7 +82852,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[18] = (melt_ptr_t) ( /*_.VALROUT___V1514*/ meltfptr[1513]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82836,7 +82864,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1512*/ meltfptr[1511])->tabval[19] = (melt_ptr_t) ( /*_.VALDATA___V733*/ meltfptr[732]); - MELT_LOCATION ("warmelt-macro.melt:5383:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5388:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1512*/ meltfptr[1511]); @@ -82902,7 +82930,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1518*/ meltfptr[1517], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5538:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82916,7 +82944,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1520*/ meltfptr[1519])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5538:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82930,7 +82958,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1520*/ meltfptr[1519])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5538:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82944,7 +82972,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1520*/ meltfptr[1519])->tabval[2] = (melt_ptr_t) ( /*_.FRESH_ENV__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-macro.melt:5538:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82956,7 +82984,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1520*/ meltfptr[1519])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1116*/ meltfptr[1115]); - MELT_LOCATION ("warmelt-macro.melt:5538:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82966,11 +82994,11 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1444__MEXPAND_LAMBDA#4", - NULL != ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34])); + NULL != ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1520*/ meltfptr[1519])->tabval[4] = - (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34]); + (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION ("warmelt-macro.melt:5538:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82984,7 +83012,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1520*/ meltfptr[1519])->tabval[5] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:5538:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -82994,11 +83022,11 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1444__MEXPAND_LAMBDA#6", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1520*/ meltfptr[1519])->tabval[6] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:5538:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83012,7 +83040,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1520*/ meltfptr[1519])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:5538:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83026,7 +83054,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1520*/ meltfptr[1519])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520]); - MELT_LOCATION ("warmelt-macro.melt:5538:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -83038,7 +83066,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1520*/ meltfptr[1519])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V739*/ meltfptr[738]); - MELT_LOCATION ("warmelt-macro.melt:5538:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5543:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1520*/ meltfptr[1519]); @@ -83081,7 +83109,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1523*/ meltfptr[1522], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83095,7 +83123,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83109,7 +83137,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83123,7 +83151,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83137,7 +83165,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83151,7 +83179,21 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[4] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_31 */ + +void +meltmod__warmelt_macro__initialmeltchunk_32 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83165,7 +83207,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:5598:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5603:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83179,21 +83221,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1526*/ meltfptr[1525])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_31 */ - -void -meltmod__warmelt_macro__initialmeltchunk_32 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; - MELT_LOCATION ("warmelt-macro.melt:5598:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5603:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83207,12 +83235,12 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1526*/ meltfptr[1525])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V42*/ meltfptr[41]); - MELT_LOCATION ("warmelt-macro.melt:5598:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5603:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1526*/ meltfptr[1525]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83226,7 +83254,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V1526*/ meltfptr[1525]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83240,7 +83268,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[7] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83254,7 +83282,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V1420*/ meltfptr[1419]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83264,11 +83292,11 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1449__MEXPAND_VARIADIC#9", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[9] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83282,7 +83310,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83296,7 +83324,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[11] = (melt_ptr_t) ( /*_.VALROUT___V1527*/ meltfptr[1526]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -83308,7 +83336,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V1116*/ meltfptr[1115]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83322,7 +83350,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V1075*/ meltfptr[1074]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83336,7 +83364,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[14] = (melt_ptr_t) ( /*_.FRESH_ENV__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83346,11 +83374,11 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1449__MEXPAND_VARIADIC#15", - NULL != ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34])); + NULL != ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[15] = - (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V35*/ meltfptr[34]); + (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83364,7 +83392,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -83376,7 +83404,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[17] = (melt_ptr_t) ( /*_.VALCLO___V1260*/ meltfptr[1259]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83390,7 +83418,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[18] = (melt_ptr_t) ( /*_.CLASS_NAMED__V20*/ meltfptr[19]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83404,7 +83432,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[19] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83418,7 +83446,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[20] = (melt_ptr_t) ( /*_.VALROUT___V1528*/ meltfptr[1527]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -83430,7 +83458,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[21] = (melt_ptr_t) ( /*_.VALDATA___V753*/ meltfptr[752]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83444,7 +83472,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[22] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -83456,7 +83484,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[23] = (melt_ptr_t) ( /*_.VALDATA___V753*/ meltfptr[752]); - MELT_LOCATION ("warmelt-macro.melt:5670:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5675:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83470,7 +83498,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5670:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5675:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -83482,12 +83510,12 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V753*/ meltfptr[752]); - MELT_LOCATION ("warmelt-macro.melt:5670:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5675:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1529*/ meltfptr[1528]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83501,7 +83529,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[24] = (melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528]); - MELT_LOCATION ("warmelt-macro.melt:5589:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5594:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1525*/ meltfptr[1524]); @@ -83544,7 +83572,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1531*/ meltfptr[1530], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83558,7 +83586,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83572,7 +83600,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83586,7 +83614,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[2] = (melt_ptr_t) ( /*_.FRESH_ENV__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -83598,7 +83626,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1116*/ meltfptr[1115]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83613,7 +83641,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -83625,7 +83653,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V139*/ meltfptr[138]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -83637,7 +83665,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V129*/ meltfptr[128]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83651,7 +83679,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[7] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83665,7 +83693,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[8] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V23*/ meltfptr[22]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83679,7 +83707,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[9] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:5745:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5750:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83693,12 +83721,12 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1534*/ meltfptr[1533])->tabval[0] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:5745:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5750:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1534*/ meltfptr[1533]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83712,7 +83740,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[10] = (melt_ptr_t) ( /*_.VALROUT___V1534*/ meltfptr[1533]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83722,11 +83750,11 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1457__MEXPAND_MULTICALL#11", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[11] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83740,7 +83768,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[12] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83754,7 +83782,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[13] = (melt_ptr_t) ( /*_.VALROUT___V1535*/ meltfptr[1534]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -83766,7 +83794,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1533*/ meltfptr[1532])->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V771*/ meltfptr[770]); - MELT_LOCATION ("warmelt-macro.melt:5712:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5717:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1533*/ meltfptr[1532]); @@ -83809,7 +83837,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1537*/ meltfptr[1536], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83823,7 +83851,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1539*/ meltfptr[1538])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83837,7 +83865,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1539*/ meltfptr[1538])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83851,7 +83879,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1539*/ meltfptr[1538])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:5773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83865,7 +83893,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1539*/ meltfptr[1538])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V19*/ meltfptr[18]); - MELT_LOCATION ("warmelt-macro.melt:5773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5778:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -83877,7 +83905,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1539*/ meltfptr[1538])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V277*/ meltfptr[276]); - MELT_LOCATION ("warmelt-macro.melt:5773:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5778:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1539*/ meltfptr[1538]); @@ -83920,7 +83948,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1541*/ meltfptr[1540], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5812:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5817:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83934,7 +83962,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1543*/ meltfptr[1542])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5812:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5817:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -83948,7 +83976,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1543*/ meltfptr[1542])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5812:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5817:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -83960,7 +83988,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1543*/ meltfptr[1542])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V247*/ meltfptr[246]); - MELT_LOCATION ("warmelt-macro.melt:5812:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5817:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1543*/ meltfptr[1542]); @@ -84003,7 +84031,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1545*/ meltfptr[1544], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5842:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5847:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84017,7 +84045,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1547*/ meltfptr[1546])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5842:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5847:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84031,7 +84059,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1547*/ meltfptr[1546])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5842:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5847:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84045,7 +84073,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1547*/ meltfptr[1546])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5842:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5847:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84060,7 +84088,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1547*/ meltfptr[1546])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SEXPR_MACROSTRING__V69*/ meltfptr[68]); - MELT_LOCATION ("warmelt-macro.melt:5842:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5847:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84074,7 +84102,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1547*/ meltfptr[1546])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V70*/ meltfptr[69]); - MELT_LOCATION ("warmelt-macro.melt:5842:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5847:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84088,7 +84116,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1547*/ meltfptr[1546])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:5842:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5847:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84102,7 +84130,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1547*/ meltfptr[1546])->tabval[6] = (melt_ptr_t) ( /*_.ADD2OUT__V71*/ meltfptr[70]); - MELT_LOCATION ("warmelt-macro.melt:5842:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5847:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84116,7 +84144,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1547*/ meltfptr[1546])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_VERBATIM_STRING__V54*/ meltfptr[53]); - MELT_LOCATION ("warmelt-macro.melt:5842:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5847:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -84128,7 +84156,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1547*/ meltfptr[1546])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V257*/ meltfptr[256]); - MELT_LOCATION ("warmelt-macro.melt:5842:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5847:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1547*/ meltfptr[1546]); @@ -84240,7 +84268,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1555*/ meltfptr[1554], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5891:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5896:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84255,7 +84283,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1557*/ meltfptr[1556])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:5891:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5896:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84270,7 +84298,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1557*/ meltfptr[1556])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5891:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5896:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84285,7 +84313,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1557*/ meltfptr[1556])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5891:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5896:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -84297,7 +84325,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1557*/ meltfptr[1556])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1087*/ meltfptr[1086]); - MELT_LOCATION ("warmelt-macro.melt:5891:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5896:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84312,7 +84340,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1557*/ meltfptr[1556])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V70*/ meltfptr[69]); - MELT_LOCATION ("warmelt-macro.melt:5891:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5896:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84327,7 +84355,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1557*/ meltfptr[1556])->tabval[5] = (melt_ptr_t) ( /*_.ADD2OUT__V71*/ meltfptr[70]); - MELT_LOCATION ("warmelt-macro.melt:5891:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5896:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84342,7 +84370,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1557*/ meltfptr[1556])->tabval[6] = (melt_ptr_t) ( /*_.DISCR_STRING__V72*/ meltfptr[71]); - MELT_LOCATION ("warmelt-macro.melt:5891:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5896:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -84354,7 +84382,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1557*/ meltfptr[1556])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V267*/ meltfptr[266]); - MELT_LOCATION ("warmelt-macro.melt:5891:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5896:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1557*/ meltfptr[1556]); @@ -84443,7 +84471,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1563*/ meltfptr[1562], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:5981:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5986:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84457,7 +84485,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1565*/ meltfptr[1564])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5981:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5986:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84467,11 +84495,11 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1489__PAIRLIST_TO_RETURN#1", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1565*/ meltfptr[1564])->tabval[1] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:5981:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5986:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84485,7 +84513,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1565*/ meltfptr[1564])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:5981:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5986:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84499,7 +84527,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1565*/ meltfptr[1564])->tabval[3] = (melt_ptr_t) ( /*_.VALROUT___V1566*/ meltfptr[1565]); - MELT_LOCATION ("warmelt-macro.melt:5981:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5986:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -84511,7 +84539,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1565*/ meltfptr[1564])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V227*/ meltfptr[226]); - MELT_LOCATION ("warmelt-macro.melt:5981:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5986:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1565*/ meltfptr[1564]); @@ -84531,7 +84559,7 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1567*/ meltfptr[1566]); - MELT_LOCATION ("warmelt-macro.melt:5997:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6002:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84545,7 +84573,21 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1568*/ meltfptr[1567])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5997:/ initchunk"); + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_32 */ + +void +meltmod__warmelt_macro__initialmeltchunk_33 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; + MELT_LOCATION ("warmelt-macro.melt:6002:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -84557,26 +84599,12 @@ meltmod__warmelt_macro__initialmeltchunk_32 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1568*/ meltfptr[1567])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V1391*/ meltfptr[1390]); - MELT_LOCATION ("warmelt-macro.melt:5997:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6002:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1568*/ meltfptr[1567]); - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_32 */ - -void -meltmod__warmelt_macro__initialmeltchunk_33 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; -/*putclosurout#93*/ + /*putclosurout#93 */ melt_assertmsg ("putclosrout#93 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1569*/ meltfptr[1568])) == @@ -84614,7 +84642,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1570*/ meltfptr[1569], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6022:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6027:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84628,7 +84656,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6022:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6027:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84642,7 +84670,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6022:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6027:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -84654,7 +84682,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1567*/ meltfptr[1566]); - MELT_LOCATION ("warmelt-macro.melt:6022:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6027:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1572*/ meltfptr[1571]); @@ -84697,7 +84725,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1574*/ meltfptr[1573], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6045:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84711,7 +84739,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1576*/ meltfptr[1575])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6045:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84725,7 +84753,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1576*/ meltfptr[1575])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6045:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84739,7 +84767,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1576*/ meltfptr[1575])->tabval[2] = (melt_ptr_t) ( /*_.FRESH_ENV__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-macro.melt:6045:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84753,7 +84781,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1576*/ meltfptr[1575])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:6045:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84767,7 +84795,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1576*/ meltfptr[1575])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LABEL_BINDING__V73*/ meltfptr[72]); - MELT_LOCATION ("warmelt-macro.melt:6045:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84781,7 +84809,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1576*/ meltfptr[1575])->tabval[5] = (melt_ptr_t) ( /*_.PUT_ENV__V24*/ meltfptr[23]); - MELT_LOCATION ("warmelt-macro.melt:6045:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84791,11 +84819,11 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1500__MEXPAND_FOREVER#6", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1576*/ meltfptr[1575])->tabval[6] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:6045:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84809,7 +84837,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1576*/ meltfptr[1575])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:6045:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84823,7 +84851,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1576*/ meltfptr[1575])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V1577*/ meltfptr[1576]); - MELT_LOCATION ("warmelt-macro.melt:6045:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -84835,7 +84863,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1576*/ meltfptr[1575])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V799*/ meltfptr[798]); - MELT_LOCATION ("warmelt-macro.melt:6045:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1576*/ meltfptr[1575]); @@ -84901,7 +84929,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1581*/ meltfptr[1580], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6088:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84915,7 +84943,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1583*/ meltfptr[1582])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6088:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84929,7 +84957,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1583*/ meltfptr[1582])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6088:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84943,7 +84971,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1583*/ meltfptr[1582])->tabval[2] = (melt_ptr_t) ( /*_.FRESH_ENV__V22*/ meltfptr[21]); - MELT_LOCATION ("warmelt-macro.melt:6088:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84957,7 +84985,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1583*/ meltfptr[1582])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:6088:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84967,11 +84995,11 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1507__MEXPAND_EXIT#4", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1583*/ meltfptr[1582])->tabval[4] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:6088:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84985,7 +85013,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1583*/ meltfptr[1582])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_LABEL_BINDING__V73*/ meltfptr[72]); - MELT_LOCATION ("warmelt-macro.melt:6088:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -84995,11 +85023,11 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1507__MEXPAND_EXIT#6", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1583*/ meltfptr[1582])->tabval[6] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:6088:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85013,7 +85041,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1583*/ meltfptr[1582])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:6088:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85027,7 +85055,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1583*/ meltfptr[1582])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V1584*/ meltfptr[1583]); - MELT_LOCATION ("warmelt-macro.melt:6088:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -85039,7 +85067,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1583*/ meltfptr[1582])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V815*/ meltfptr[814]); - MELT_LOCATION ("warmelt-macro.melt:6088:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1583*/ meltfptr[1582]); @@ -85082,7 +85110,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1586*/ meltfptr[1585], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6131:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6136:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85096,7 +85124,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6131:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6136:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85110,7 +85138,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6131:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6136:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85124,7 +85152,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:6131:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6136:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85134,11 +85162,11 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1512__MEXPAND_AGAIN#3", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[3] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:6131:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6136:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85152,7 +85180,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LABEL_BINDING__V73*/ meltfptr[72]); - MELT_LOCATION ("warmelt-macro.melt:6131:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6136:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -85164,7 +85192,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V809*/ meltfptr[808]); - MELT_LOCATION ("warmelt-macro.melt:6131:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6136:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1588*/ meltfptr[1587]); @@ -85207,7 +85235,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1590*/ meltfptr[1589], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6175:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6180:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85222,7 +85250,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6175:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6180:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85237,7 +85265,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6175:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6180:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -85249,7 +85277,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:6175:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6180:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -85261,7 +85289,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V825*/ meltfptr[824]); - MELT_LOCATION ("warmelt-macro.melt:6175:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6180:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1592*/ meltfptr[1591]); @@ -85304,7 +85332,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1594*/ meltfptr[1593], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85318,7 +85346,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1596*/ meltfptr[1595])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85332,7 +85360,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1596*/ meltfptr[1595])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85346,7 +85374,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1596*/ meltfptr[1595])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -85381,7 +85409,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1597*/ meltfptr[1596], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85395,7 +85423,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1596*/ meltfptr[1595])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1597*/ meltfptr[1596]); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85405,11 +85433,11 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1520__MEXPAND_ASSERT_MSG#5", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1596*/ meltfptr[1595])->tabval[5] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85423,7 +85451,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1596*/ meltfptr[1595])->tabval[6] = (melt_ptr_t) ( /*_.FIND_ENV_DEBUG__V74*/ meltfptr[73]); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85434,11 +85462,11 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1520__MEXPAND_ASSERT_MSG#7", NULL != - ( /*_.CLASS_PRIMITIVE_BINDING__V30*/ meltfptr[29])); + ( /*_.CLASS_PRIMITIVE_BINDING__V31*/ meltfptr[30])); ((meltroutine_ptr_t) /*_.VALROUT___V1596*/ meltfptr[1595])->tabval[7] = - (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V30*/ meltfptr[29]); + (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85448,11 +85476,11 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1520__MEXPAND_ASSERT_MSG#8", - NULL != ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36])); + NULL != ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V1596*/ meltfptr[1595])->tabval[8] = - (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36]); + (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37]); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85462,11 +85490,11 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1520__MEXPAND_ASSERT_MSG#9", - NULL != ( /*_.CLASS_PRIMITIVE__V38*/ meltfptr[37])); + NULL != ( /*_.CLASS_PRIMITIVE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1596*/ meltfptr[1595])->tabval[9] = - (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V38*/ meltfptr[37]); + (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V39*/ meltfptr[38]); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -85478,7 +85506,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1596*/ meltfptr[1595])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V153*/ meltfptr[152]); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85492,7 +85520,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1596*/ meltfptr[1595])->tabval[11] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V44*/ meltfptr[43]); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -85504,7 +85532,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1596*/ meltfptr[1595])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V629*/ meltfptr[628]); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -85539,7 +85567,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1599*/ meltfptr[1598], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85553,7 +85581,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1596*/ meltfptr[1595])->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V1599*/ meltfptr[1598]); - MELT_LOCATION ("warmelt-macro.melt:6218:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1596*/ meltfptr[1595]); @@ -85619,7 +85647,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1604*/ meltfptr[1603], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85633,7 +85661,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1606*/ meltfptr[1605])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85647,7 +85675,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1606*/ meltfptr[1605])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85661,7 +85689,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1606*/ meltfptr[1605])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85698,7 +85726,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1607*/ meltfptr[1606], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85712,7 +85740,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1606*/ meltfptr[1605])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1607*/ meltfptr[1606]); - MELT_LOCATION ("warmelt-macro.melt:6307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -85724,7 +85752,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1606*/ meltfptr[1605])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:6307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -85759,7 +85787,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1609*/ meltfptr[1608], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85773,7 +85801,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1606*/ meltfptr[1605])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1609*/ meltfptr[1608]); - MELT_LOCATION ("warmelt-macro.melt:6307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85787,7 +85815,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1606*/ meltfptr[1605])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V44*/ meltfptr[43]); - MELT_LOCATION ("warmelt-macro.melt:6307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -85799,7 +85827,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1606*/ meltfptr[1605])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V649*/ meltfptr[648]); - MELT_LOCATION ("warmelt-macro.melt:6307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85813,7 +85841,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1606*/ meltfptr[1605])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V1599*/ meltfptr[1598]); - MELT_LOCATION ("warmelt-macro.melt:6307:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1606*/ meltfptr[1605]); @@ -85856,7 +85884,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1612*/ meltfptr[1611], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85870,7 +85898,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85884,7 +85912,21 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_33 */ + +void +meltmod__warmelt_macro__initialmeltchunk_34 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85898,7 +85940,7 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85908,25 +85950,11 @@ meltmod__warmelt_macro__initialmeltchunk_33 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1538__MEXPAND_DEBUG#3", - NULL != ( /*_.FIND_ENV__V27*/ meltfptr[26])); + NULL != ( /*_.FIND_ENV__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[3] = - (melt_ptr_t) ( /*_.FIND_ENV__V27*/ meltfptr[26]); - - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_33 */ + (melt_ptr_t) ( /*_.FIND_ENV__V28*/ meltfptr[27]); -void -meltmod__warmelt_macro__initialmeltchunk_34 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85940,7 +85968,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1098*/ meltfptr[1097]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -85977,7 +86005,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1615*/ meltfptr[1614], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86014,7 +86042,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1617*/ meltfptr[1616], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86028,7 +86056,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1617*/ meltfptr[1616]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -86040,7 +86068,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V1093*/ meltfptr[1092]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -86052,7 +86080,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[9] = (melt_ptr_t) ( /*_.VALCLO___V1077*/ meltfptr[1076]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86066,7 +86094,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[10] = (melt_ptr_t) ( /*_.STRING4OUT__V75*/ meltfptr[74]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86080,7 +86108,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[11] = (melt_ptr_t) ( /*_.DISCR_STRING__V72*/ meltfptr[71]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86090,11 +86118,11 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1538__MEXPAND_DEBUG#12", - NULL != ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36])); + NULL != ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[12] = - (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V37*/ meltfptr[36]); + (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V38*/ meltfptr[37]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86108,7 +86136,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_FUNCTION_BINDING__V55*/ meltfptr[54]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86119,11 +86147,11 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1538__MEXPAND_DEBUG#14", NULL != - ( /*_.CLASS_PRIMITIVE_BINDING__V30*/ meltfptr[29])); + ( /*_.CLASS_PRIMITIVE_BINDING__V31*/ meltfptr[30])); ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[14] = - (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V30*/ meltfptr[29]); + (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V31*/ meltfptr[30]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -86135,7 +86163,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V153*/ meltfptr[152]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86149,7 +86177,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[16] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V10*/ meltfptr[9]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86163,7 +86191,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[17] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V76*/ meltfptr[75]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86177,7 +86205,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[18] = (melt_ptr_t) ( /*_.VALBXINT___V1619*/ meltfptr[1618]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -86189,7 +86217,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[19] = (melt_ptr_t) ( /*_.VALDATA___V129*/ meltfptr[128]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86203,7 +86231,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[20] = (melt_ptr_t) ( /*_.VALDATA___V1098*/ meltfptr[1097]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86217,7 +86245,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[21] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86231,7 +86259,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[22] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -86243,7 +86271,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[23] = (melt_ptr_t) ( /*_.VALDATA___V615*/ meltfptr[614]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -86255,7 +86283,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[24] = (melt_ptr_t) ( /*_.VALDATA___V217*/ meltfptr[216]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -86267,7 +86295,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[25] = (melt_ptr_t) ( /*_.VALDATA___V649*/ meltfptr[648]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86281,7 +86309,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1614*/ meltfptr[1613])->tabval[26] = (melt_ptr_t) ( /*_.VALDATA___V1599*/ meltfptr[1598]); - MELT_LOCATION ("warmelt-macro.melt:6380:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6385:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1614*/ meltfptr[1613]); @@ -86370,7 +86398,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1625*/ meltfptr[1624], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6520:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86385,7 +86413,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1627*/ meltfptr[1626])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6520:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86400,7 +86428,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1627*/ meltfptr[1626])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6520:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86415,7 +86443,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1627*/ meltfptr[1626])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6520:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86426,11 +86454,11 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1551__MEXPAND_EXPORT_VALUES#3", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1627*/ meltfptr[1626])->tabval[3] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:6520:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86445,7 +86473,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1627*/ meltfptr[1626])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:6520:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86460,7 +86488,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1627*/ meltfptr[1626])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:6520:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86475,7 +86503,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1627*/ meltfptr[1626])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6532:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6537:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86489,7 +86517,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1628*/ meltfptr[1627])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:6532:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6537:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86503,12 +86531,12 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1628*/ meltfptr[1627])->tabval[1] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6532:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6537:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1628*/ meltfptr[1627]); - MELT_LOCATION ("warmelt-macro.melt:6520:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86523,7 +86551,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1627*/ meltfptr[1626])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V1628*/ meltfptr[1627]); - MELT_LOCATION ("warmelt-macro.melt:6520:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -86535,7 +86563,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1627*/ meltfptr[1626])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296]); - MELT_LOCATION ("warmelt-macro.melt:6520:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1627*/ meltfptr[1626]); @@ -86578,7 +86606,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1630*/ meltfptr[1629], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6558:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6563:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86593,7 +86621,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1632*/ meltfptr[1631])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6558:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6563:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86608,7 +86636,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1632*/ meltfptr[1631])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6558:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6563:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86623,7 +86651,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1632*/ meltfptr[1631])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6558:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6563:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86638,7 +86666,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1632*/ meltfptr[1631])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:6558:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6563:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86653,7 +86681,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1632*/ meltfptr[1631])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION ("warmelt-macro.melt:6558:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6563:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -86665,7 +86693,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1632*/ meltfptr[1631])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308]); - MELT_LOCATION ("warmelt-macro.melt:6558:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6563:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1632*/ meltfptr[1631]); @@ -86708,7 +86736,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1634*/ meltfptr[1633], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86723,7 +86751,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1636*/ meltfptr[1635])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86738,7 +86766,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1636*/ meltfptr[1635])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86753,7 +86781,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1636*/ meltfptr[1635])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86768,7 +86796,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1636*/ meltfptr[1635])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86783,7 +86811,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1636*/ meltfptr[1635])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -86795,7 +86823,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1636*/ meltfptr[1635])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V327*/ meltfptr[326]); - MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1636*/ meltfptr[1635]); @@ -86838,7 +86866,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1638*/ meltfptr[1637], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6652:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86853,7 +86881,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1640*/ meltfptr[1639])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6652:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86868,7 +86896,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1640*/ meltfptr[1639])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6652:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -86880,7 +86908,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1640*/ meltfptr[1639])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:6652:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86895,7 +86923,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1640*/ meltfptr[1639])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6652:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86906,11 +86934,11 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1564__MEXPAND_EXPORT_CLASS#4", - NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39])); + NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1640*/ meltfptr[1639])->tabval[4] = - (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V40*/ meltfptr[39]); + (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V41*/ meltfptr[40]); - MELT_LOCATION ("warmelt-macro.melt:6652:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86925,7 +86953,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1640*/ meltfptr[1639])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V13*/ meltfptr[12]); - MELT_LOCATION ("warmelt-macro.melt:6652:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86940,7 +86968,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1640*/ meltfptr[1639])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:6664:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6669:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86954,12 +86982,12 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1641*/ meltfptr[1640])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:6664:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6669:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1641*/ meltfptr[1640]); - MELT_LOCATION ("warmelt-macro.melt:6652:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -86974,7 +87002,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1640*/ meltfptr[1639])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V1641*/ meltfptr[1640]); - MELT_LOCATION ("warmelt-macro.melt:6652:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -86986,7 +87014,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1640*/ meltfptr[1639])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V303*/ meltfptr[302]); - MELT_LOCATION ("warmelt-macro.melt:6652:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1640*/ meltfptr[1639]); @@ -87029,7 +87057,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1643*/ meltfptr[1642], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6684:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6689:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87044,7 +87072,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1645*/ meltfptr[1644])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6684:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6689:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87059,7 +87087,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1645*/ meltfptr[1644])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6684:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6689:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87074,7 +87102,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1645*/ meltfptr[1644])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6684:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6689:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -87086,7 +87114,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1645*/ meltfptr[1644])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:6684:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6689:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87101,7 +87129,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1645*/ meltfptr[1644])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:6684:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6689:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87116,7 +87144,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1645*/ meltfptr[1644])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1270*/ meltfptr[1269]); - MELT_LOCATION ("warmelt-macro.melt:6684:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6689:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -87128,7 +87156,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1645*/ meltfptr[1644])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V337*/ meltfptr[336]); - MELT_LOCATION ("warmelt-macro.melt:6684:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6689:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1645*/ meltfptr[1644]); @@ -87171,7 +87199,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1647*/ meltfptr[1646], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6736:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87186,7 +87214,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1649*/ meltfptr[1648])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6736:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87201,7 +87229,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1649*/ meltfptr[1648])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6736:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87216,7 +87244,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1649*/ meltfptr[1648])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6736:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -87228,7 +87256,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1649*/ meltfptr[1648])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V839*/ meltfptr[838]); - MELT_LOCATION ("warmelt-macro.melt:6736:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1649*/ meltfptr[1648]); @@ -87271,7 +87299,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1651*/ meltfptr[1650], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6765:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6770:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87286,7 +87314,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1653*/ meltfptr[1652])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6765:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6770:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87301,7 +87329,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1653*/ meltfptr[1652])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6765:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6770:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -87313,7 +87341,21 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1653*/ meltfptr[1652])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:6765:/ initchunk"); + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_34 */ + +void +meltmod__warmelt_macro__initialmeltchunk_35 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; + MELT_LOCATION ("warmelt-macro.melt:6770:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87328,7 +87370,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1653*/ meltfptr[1652])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6765:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6770:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -87340,21 +87382,7 @@ meltmod__warmelt_macro__initialmeltchunk_34 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1653*/ meltfptr[1652])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V849*/ meltfptr[848]); - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_34 */ - -void -meltmod__warmelt_macro__initialmeltchunk_35 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; - MELT_LOCATION ("warmelt-macro.melt:6765:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6770:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1653*/ meltfptr[1652]); @@ -87397,7 +87425,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1655*/ meltfptr[1654], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6794:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6799:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87412,7 +87440,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1657*/ meltfptr[1656])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6794:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6799:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87427,7 +87455,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1657*/ meltfptr[1656])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6794:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6799:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87442,7 +87470,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1657*/ meltfptr[1656])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6794:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6799:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -87454,7 +87482,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1657*/ meltfptr[1656])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V855*/ meltfptr[854]); - MELT_LOCATION ("warmelt-macro.melt:6794:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6799:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1657*/ meltfptr[1656]); @@ -87497,7 +87525,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1659*/ meltfptr[1658], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6825:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6830:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87512,7 +87540,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1661*/ meltfptr[1660])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6825:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6830:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87527,7 +87555,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1661*/ meltfptr[1660])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6825:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6830:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87542,7 +87570,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1661*/ meltfptr[1660])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6825:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6830:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -87554,7 +87582,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1661*/ meltfptr[1660])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:6825:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6830:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87569,7 +87597,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1661*/ meltfptr[1660])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:6825:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6830:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -87581,7 +87609,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1661*/ meltfptr[1660])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V865*/ meltfptr[864]); - MELT_LOCATION ("warmelt-macro.melt:6825:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6830:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1661*/ meltfptr[1660]); @@ -87624,7 +87652,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct melt_dbgtrace_written_object ( /*_.VALDATA___V1663*/ meltfptr[1662], "new static instance"); - MELT_LOCATION ("warmelt-macro.melt:6854:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6859:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87639,7 +87667,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1665*/ meltfptr[1664])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13]); - MELT_LOCATION ("warmelt-macro.melt:6854:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6859:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87654,7 +87682,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1665*/ meltfptr[1664])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6854:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6859:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87669,7 +87697,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1665*/ meltfptr[1664])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6854:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6859:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -87681,7 +87709,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1665*/ meltfptr[1664])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1107*/ meltfptr[1106]); - MELT_LOCATION ("warmelt-macro.melt:6854:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6859:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) @@ -87696,7 +87724,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1665*/ meltfptr[1664])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V17*/ meltfptr[16]); - MELT_LOCATION ("warmelt-macro.melt:6854:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6859:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -87708,7 +87736,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct ((meltroutine_ptr_t) /*_.VALROUT___V1665*/ meltfptr[1664])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V875*/ meltfptr[874]); - MELT_LOCATION ("warmelt-macro.melt:6854:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6859:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1665*/ meltfptr[1664]); @@ -88190,7 +88218,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.VALUEXPORTER___V1700*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:2245:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2250:/ initchunk"); /*^block */ /*anyblock */ { @@ -88220,7 +88248,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1701*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:2246:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2251:/ initchunk"); /*^block */ /*anyblock */ { @@ -88260,7 +88288,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1702*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:2399:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2404:/ initchunk"); /*^block */ /*anyblock */ { @@ -88290,7 +88318,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1703*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:2400:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2405:/ initchunk"); /*^block */ /*anyblock */ { @@ -88330,7 +88358,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1704*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:2600:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2605:/ initchunk"); /*^block */ /*anyblock */ { @@ -88360,7 +88388,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1705*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:2601:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2606:/ initchunk"); /*^block */ /*anyblock */ { @@ -88400,7 +88428,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1706*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:2749:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2754:/ initchunk"); /*^block */ /*anyblock */ { @@ -88430,7 +88458,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1707*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:2750:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2755:/ initchunk"); /*^block */ /*anyblock */ { @@ -88470,7 +88498,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1708*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:2823:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2828:/ initchunk"); /*^block */ /*anyblock */ { @@ -88500,7 +88528,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1709*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:2824:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2829:/ initchunk"); /*^block */ /*anyblock */ { @@ -88540,7 +88568,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1710*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:2953:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2958:/ initchunk"); /*^block */ /*anyblock */ { @@ -88570,7 +88598,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1711*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:2954:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:2959:/ initchunk"); /*^block */ /*anyblock */ { @@ -88610,7 +88638,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1712*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3221:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3226:/ initchunk"); /*^block */ /*anyblock */ { @@ -88640,7 +88668,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1713*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3222:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3227:/ initchunk"); /*^block */ /*anyblock */ { @@ -88680,7 +88708,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1714*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3432:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3437:/ initchunk"); /*^block */ /*anyblock */ { @@ -88710,7 +88738,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1715*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3433:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3438:/ initchunk"); /*^block */ /*anyblock */ { @@ -88750,7 +88778,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1716*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3581:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3586:/ initchunk"); /*^block */ /*anyblock */ { @@ -88780,7 +88808,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1717*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3582:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3587:/ initchunk"); /*^block */ /*anyblock */ { @@ -88820,7 +88848,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1718*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3651:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3656:/ initchunk"); /*^block */ /*anyblock */ { @@ -88850,7 +88878,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1719*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3652:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3657:/ initchunk"); /*^block */ /*anyblock */ { @@ -88890,7 +88918,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1720*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3693:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3698:/ initchunk"); /*^block */ /*anyblock */ { @@ -88920,7 +88948,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1721*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3694:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3699:/ initchunk"); /*^block */ /*anyblock */ { @@ -88960,7 +88988,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1722*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3822:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3827:/ initchunk"); /*^block */ /*anyblock */ { @@ -88993,7 +89021,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1723*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3823:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3828:/ initchunk"); /*^block */ /*anyblock */ { @@ -89036,7 +89064,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.PATMACROXPORTER___V1724*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3927:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3932:/ initchunk"); /*^block */ /*anyblock */ { @@ -89069,7 +89097,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1725*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3928:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3933:/ initchunk"); /*^block */ /*anyblock */ { @@ -89112,7 +89140,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.PATMACROXPORTER___V1726*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3983:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3988:/ initchunk"); /*^block */ /*anyblock */ { @@ -89142,7 +89170,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1727*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:3984:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:3989:/ initchunk"); /*^block */ /*anyblock */ { @@ -89182,7 +89210,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1728*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4029:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4034:/ initchunk"); /*^block */ /*anyblock */ { @@ -89212,7 +89240,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1729*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4030:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4035:/ initchunk"); /*^block */ /*anyblock */ { @@ -89252,7 +89280,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1730*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4076:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4081:/ initchunk"); /*^block */ /*anyblock */ { @@ -89282,7 +89310,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1731*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4077:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4082:/ initchunk"); /*^block */ /*anyblock */ { @@ -89322,7 +89350,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1732*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4117:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4122:/ initchunk"); /*^block */ /*anyblock */ { @@ -89352,7 +89380,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1733*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4118:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4123:/ initchunk"); /*^block */ /*anyblock */ { @@ -89392,7 +89420,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1734*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4158:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4163:/ initchunk"); /*^block */ /*anyblock */ { @@ -89422,7 +89450,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1735*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4159:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4164:/ initchunk"); /*^block */ /*anyblock */ { @@ -89462,7 +89490,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1736*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4210:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4215:/ initchunk"); /*^block */ /*anyblock */ { @@ -89492,7 +89520,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1737*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4211:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4216:/ initchunk"); /*^block */ /*anyblock */ { @@ -89532,7 +89560,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1738*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4263:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4268:/ initchunk"); /*^block */ /*anyblock */ { @@ -89562,7 +89590,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1739*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4264:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4269:/ initchunk"); /*^block */ /*anyblock */ { @@ -89602,7 +89630,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1740*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4299:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4304:/ initchunk"); /*^block */ /*anyblock */ { @@ -89632,7 +89660,21 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1741*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4300:/ initchunk"); + +#undef meltfram__ +} /*end of meltmod__warmelt_macro__initialmeltchunk_35 */ + +void +meltmod__warmelt_macro__initialmeltchunk_36 (struct + frame_melt_start_this_module_st + *meltmeltframptr__, + char meltpredefinited[]) +{ +#define meltfram__ (*meltmeltframptr__) +#undef meltcallcount +#define meltcallcount 0L + (void) meltpredefinited; + MELT_LOCATION ("warmelt-macro.melt:4305:/ initchunk"); /*^block */ /*anyblock */ { @@ -89672,7 +89714,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.MACROXPORTER___V1742*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4336:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4341:/ initchunk"); /*^block */ /*anyblock */ { @@ -89702,21 +89744,7 @@ meltmod__warmelt_macro__initialmeltchunk_35 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1743*/ meltfptr[1698] = 0; } - -#undef meltfram__ -} /*end of meltmod__warmelt_macro__initialmeltchunk_35 */ - -void -meltmod__warmelt_macro__initialmeltchunk_36 (struct - frame_melt_start_this_module_st - *meltmeltframptr__, - char meltpredefinited[]) -{ -#define meltfram__ (*meltmeltframptr__) -#undef meltcallcount -#define meltcallcount 0L - (void) meltpredefinited; - MELT_LOCATION ("warmelt-macro.melt:4337:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4342:/ initchunk"); /*^block */ /*anyblock */ { @@ -89756,7 +89784,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1744*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4392:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4397:/ initchunk"); /*^block */ /*anyblock */ { @@ -89786,7 +89814,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1745*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4393:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4398:/ initchunk"); /*^block */ /*anyblock */ { @@ -89826,7 +89854,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1746*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4469:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4474:/ initchunk"); /*^block */ /*anyblock */ { @@ -89856,7 +89884,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1747*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4470:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4475:/ initchunk"); /*^block */ /*anyblock */ { @@ -89896,7 +89924,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1748*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4569:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4574:/ initchunk"); /*^block */ /*anyblock */ { @@ -89926,7 +89954,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1749*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4570:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4575:/ initchunk"); /*^block */ /*anyblock */ { @@ -89966,7 +89994,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1750*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4672:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4677:/ initchunk"); /*^block */ /*anyblock */ { @@ -89999,7 +90027,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1751*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4673:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4678:/ initchunk"); /*^block */ /*anyblock */ { @@ -90042,7 +90070,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.PATMACROXPORTER___V1752*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4701:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4706:/ initchunk"); /*^block */ /*anyblock */ { @@ -90075,7 +90103,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1753*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4702:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4707:/ initchunk"); /*^block */ /*anyblock */ { @@ -90118,7 +90146,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.PATMACROXPORTER___V1754*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4730:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4735:/ initchunk"); /*^block */ /*anyblock */ { @@ -90151,7 +90179,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1755*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4731:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4736:/ initchunk"); /*^block */ /*anyblock */ { @@ -90194,7 +90222,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.PATMACROXPORTER___V1756*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4796:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4801:/ initchunk"); /*^block */ /*anyblock */ { @@ -90227,7 +90255,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1757*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4797:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4802:/ initchunk"); /*^block */ /*anyblock */ { @@ -90270,7 +90298,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.PATMACROXPORTER___V1758*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4878:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4883:/ initchunk"); /*^block */ /*anyblock */ { @@ -90303,7 +90331,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1759*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4879:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4884:/ initchunk"); /*^block */ /*anyblock */ { @@ -90346,7 +90374,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.PATMACROXPORTER___V1760*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4906:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4911:/ initchunk"); /*^block */ /*anyblock */ { @@ -90379,7 +90407,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1761*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4907:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4912:/ initchunk"); /*^block */ /*anyblock */ { @@ -90422,7 +90450,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.PATMACROXPORTER___V1762*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4950:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4955:/ initchunk"); /*^block */ /*anyblock */ { @@ -90452,7 +90480,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1763*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4951:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4956:/ initchunk"); /*^block */ /*anyblock */ { @@ -90492,7 +90520,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1764*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4969:/ initchunk"); /*^block */ /*anyblock */ { @@ -90522,7 +90550,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1765*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4965:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4970:/ initchunk"); /*^block */ /*anyblock */ { @@ -90562,7 +90590,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1766*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4970:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4975:/ initchunk"); /*^block */ /*anyblock */ { @@ -90592,7 +90620,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1767*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:4971:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:4976:/ initchunk"); /*^block */ /*anyblock */ { @@ -90632,7 +90660,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1768*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5023:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5028:/ initchunk"); /*^block */ /*anyblock */ { @@ -90662,7 +90690,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1769*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5024:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5029:/ initchunk"); /*^block */ /*anyblock */ { @@ -90702,7 +90730,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1770*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5066:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5071:/ initchunk"); /*^block */ /*anyblock */ { @@ -90735,7 +90763,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1771*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5067:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5072:/ initchunk"); /*^block */ /*anyblock */ { @@ -90778,7 +90806,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.PATMACROXPORTER___V1772*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5113:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5118:/ initchunk"); /*^block */ /*anyblock */ { @@ -90811,7 +90839,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1773*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5114:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5119:/ initchunk"); /*^block */ /*anyblock */ { @@ -90854,7 +90882,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.PATMACROXPORTER___V1774*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5209:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5214:/ initchunk"); /*^block */ /*anyblock */ { @@ -90884,7 +90912,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1775*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5210:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5215:/ initchunk"); /*^block */ /*anyblock */ { @@ -90924,7 +90952,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1776*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5354:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5359:/ initchunk"); /*^block */ /*anyblock */ { @@ -90954,7 +90982,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1777*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5355:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5360:/ initchunk"); /*^block */ /*anyblock */ { @@ -90994,7 +91022,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1778*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5373:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5378:/ initchunk"); /*^block */ /*anyblock */ { @@ -91027,7 +91055,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_METHOD__V1779*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5374:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5379:/ initchunk"); /*^block */ /*anyblock */ { @@ -91060,7 +91088,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_METHOD__V1780*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5375:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5380:/ initchunk"); /*^block */ /*anyblock */ { @@ -91093,7 +91121,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_METHOD__V1781*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5376:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5381:/ initchunk"); /*^block */ /*anyblock */ { @@ -91126,7 +91154,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_METHOD__V1782*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5527:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5532:/ initchunk"); /*^block */ /*anyblock */ { @@ -91156,7 +91184,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1783*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5528:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5533:/ initchunk"); /*^block */ /*anyblock */ { @@ -91196,7 +91224,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1784*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5570:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5575:/ initchunk"); /*^block */ /*anyblock */ { @@ -91226,7 +91254,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1785*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5571:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5576:/ initchunk"); /*^block */ /*anyblock */ { @@ -91266,7 +91294,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1786*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5694:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5699:/ initchunk"); /*^block */ /*anyblock */ { @@ -91296,7 +91324,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1787*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5695:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5700:/ initchunk"); /*^block */ /*anyblock */ { @@ -91336,7 +91364,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1788*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5760:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5765:/ initchunk"); /*^block */ /*anyblock */ { @@ -91366,7 +91394,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1789*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5761:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5766:/ initchunk"); /*^block */ /*anyblock */ { @@ -91406,7 +91434,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1790*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5803:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5808:/ initchunk"); /*^block */ /*anyblock */ { @@ -91436,7 +91464,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1791*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5804:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5809:/ initchunk"); /*^block */ /*anyblock */ { @@ -91476,7 +91504,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1792*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5834:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5839:/ initchunk"); /*^block */ /*anyblock */ { @@ -91506,7 +91534,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1793*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5835:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5840:/ initchunk"); /*^block */ /*anyblock */ { @@ -91546,7 +91574,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1794*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5883:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5888:/ initchunk"); /*^block */ /*anyblock */ { @@ -91576,7 +91604,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1795*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5884:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5889:/ initchunk"); /*^block */ /*anyblock */ { @@ -91616,7 +91644,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1796*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5963:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5968:/ initchunk"); /*^block */ /*anyblock */ { @@ -91646,7 +91674,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1797*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5964:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5969:/ initchunk"); /*^block */ /*anyblock */ { @@ -91686,7 +91714,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1798*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5970:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5975:/ initchunk"); /*^block */ /*anyblock */ { @@ -91726,7 +91754,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1799*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6015:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6020:/ initchunk"); /*^block */ /*anyblock */ { @@ -91756,7 +91784,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1800*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6016:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6021:/ initchunk"); /*^block */ /*anyblock */ { @@ -91796,7 +91824,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1801*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6036:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6041:/ initchunk"); /*^block */ /*anyblock */ { @@ -91826,7 +91854,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1802*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6037:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6042:/ initchunk"); /*^block */ /*anyblock */ { @@ -91866,7 +91894,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1803*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6078:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6083:/ initchunk"); /*^block */ /*anyblock */ { @@ -91896,7 +91924,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1804*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6079:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6084:/ initchunk"); /*^block */ /*anyblock */ { @@ -91936,7 +91964,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1805*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6123:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6128:/ initchunk"); /*^block */ /*anyblock */ { @@ -91966,7 +91994,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1806*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6124:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6129:/ initchunk"); /*^block */ /*anyblock */ { @@ -92006,7 +92034,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1807*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6166:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6171:/ initchunk"); /*^block */ /*anyblock */ { @@ -92036,7 +92064,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1808*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6167:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6172:/ initchunk"); /*^block */ /*anyblock */ { @@ -92076,7 +92104,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1809*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6211:/ initchunk"); /*^block */ /*anyblock */ { @@ -92106,7 +92134,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1810*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6207:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6212:/ initchunk"); /*^block */ /*anyblock */ { @@ -92146,7 +92174,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1811*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6293:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6298:/ initchunk"); /*^block */ /*anyblock */ { @@ -92176,7 +92204,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1812*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6294:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6299:/ initchunk"); /*^block */ /*anyblock */ { @@ -92216,7 +92244,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1813*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6366:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6371:/ initchunk"); /*^block */ /*anyblock */ { @@ -92246,7 +92274,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1814*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6372:/ initchunk"); /*^block */ /*anyblock */ { @@ -92286,7 +92314,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1815*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6504:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6509:/ initchunk"); /*^block */ /*anyblock */ { @@ -92316,7 +92344,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1816*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6505:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6510:/ initchunk"); /*^block */ /*anyblock */ { @@ -92356,7 +92384,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1817*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6547:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6552:/ initchunk"); /*^block */ /*anyblock */ { @@ -92386,7 +92414,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1818*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6548:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6553:/ initchunk"); /*^block */ /*anyblock */ { @@ -92426,7 +92454,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1819*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6593:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6598:/ initchunk"); /*^block */ /*anyblock */ { @@ -92456,7 +92484,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1820*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6594:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6599:/ initchunk"); /*^block */ /*anyblock */ { @@ -92496,7 +92524,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1821*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6645:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6650:/ initchunk"); /*^block */ /*anyblock */ { @@ -92526,7 +92554,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1822*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6646:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6651:/ initchunk"); /*^block */ /*anyblock */ { @@ -92566,7 +92594,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1823*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6677:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6682:/ initchunk"); /*^block */ /*anyblock */ { @@ -92596,7 +92624,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1824*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6678:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6683:/ initchunk"); /*^block */ /*anyblock */ { @@ -92636,7 +92664,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1825*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6726:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6731:/ initchunk"); /*^block */ /*anyblock */ { @@ -92666,7 +92694,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1826*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6727:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6732:/ initchunk"); /*^block */ /*anyblock */ { @@ -92706,7 +92734,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1827*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6754:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6759:/ initchunk"); /*^block */ /*anyblock */ { @@ -92736,7 +92764,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1828*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6755:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6760:/ initchunk"); /*^block */ /*anyblock */ { @@ -92776,7 +92804,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1829*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6783:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6788:/ initchunk"); /*^block */ /*anyblock */ { @@ -92806,7 +92834,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1830*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6784:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6789:/ initchunk"); /*^block */ /*anyblock */ { @@ -92846,7 +92874,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1831*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6812:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6817:/ initchunk"); /*^block */ /*anyblock */ { @@ -92876,7 +92904,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1832*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6813:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6818:/ initchunk"); /*^block */ /*anyblock */ { @@ -92916,7 +92944,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1833*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6849:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6854:/ initchunk"); /*^block */ /*anyblock */ { @@ -92946,7 +92974,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1834*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6850:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6855:/ initchunk"); /*^block */ /*anyblock */ { @@ -92986,7 +93014,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1835*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6885:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6890:/ initchunk"); /*^block */ /*anyblock */ { @@ -93016,7 +93044,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.INSTALL_INITIAL_MACRO__V1836*/ meltfptr[1698] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6886:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6891:/ initchunk"); /*^block */ /*anyblock */ { @@ -93056,7 +93084,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.MACROXPORTER___V1837*/ meltfptr[1696] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6891:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6896:/ initchunk"); /*^block */ /*anyblock */ { @@ -93078,14 +93106,14 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.VALDATA___V1176*/ meltfptr[1175]; + (melt_ptr_t *) & /*_.VALDATA___V1178*/ meltfptr[1177]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PATTERN_EXPANSION_CONTEXT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1838*/ meltfptr[1697]), - (melt_ptr_t) ( /*_.VALDATA___V1172*/ meltfptr[1171]), + (melt_ptr_t) ( /*_.VALDATA___V1174*/ meltfptr[1173]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } @@ -93097,14 +93125,14 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.VALDATA___V1179*/ meltfptr[1178]; + (melt_ptr_t *) & /*_.VALDATA___V1181*/ meltfptr[1180]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : PCTX_MEXPANDER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1838*/ meltfptr[1697]), - (melt_ptr_t) ( /*_.VALDATA___V1188*/ meltfptr[1187]), + (melt_ptr_t) ( /*_.VALDATA___V1190*/ meltfptr[1189]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } @@ -93116,14 +93144,14 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.VALDATA___V1181*/ meltfptr[1180]; + (melt_ptr_t *) & /*_.VALDATA___V1183*/ meltfptr[1182]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : PCTX_PEXPANDER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1838*/ meltfptr[1697]), - (melt_ptr_t) ( /*_.VALDATA___V1190*/ meltfptr[1189]), + (melt_ptr_t) ( /*_.VALDATA___V1192*/ meltfptr[1191]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } @@ -93135,14 +93163,14 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.VALDATA___V1183*/ meltfptr[1182]; + (melt_ptr_t *) & /*_.VALDATA___V1185*/ meltfptr[1184]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : PCTX_VARMAP */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1838*/ meltfptr[1697]), - (melt_ptr_t) ( /*_.VALDATA___V1192*/ meltfptr[1191]), + (melt_ptr_t) ( /*_.VALDATA___V1194*/ meltfptr[1193]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } @@ -93154,14 +93182,14 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.VALDATA___V1185*/ meltfptr[1184]; + (melt_ptr_t *) & /*_.VALDATA___V1187*/ meltfptr[1186]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : PCTX_MODCTX */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1838*/ meltfptr[1697]), - (melt_ptr_t) ( /*_.VALDATA___V1194*/ meltfptr[1193]), + (melt_ptr_t) ( /*_.VALDATA___V1196*/ meltfptr[1195]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } @@ -96972,7 +97000,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct /*clear *//*_.VALUEXPORTER___V1838*/ meltfptr[1697] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6976:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6981:/ initchunk"); /*^block */ /*anyblock */ { @@ -97165,7 +97193,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.VALCLO___V1197*/ meltfptr[1196]; + (melt_ptr_t *) & /*_.VALCLO___V1199*/ meltfptr[1198]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : PATTERNEXPAND_1 */ @@ -97184,7 +97212,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.VALCLO___V1206*/ meltfptr[1205]; + (melt_ptr_t *) & /*_.VALCLO___V1208*/ meltfptr[1207]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : PATTERNEXPAND_EXPR */ @@ -97203,7 +97231,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.VALCLO___V1217*/ meltfptr[1216]; + (melt_ptr_t *) & /*_.VALCLO___V1219*/ meltfptr[1218]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : PATTERNEXPAND_PAIRLIST_AS_TUPLE */ @@ -97222,7 +97250,7 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = - (melt_ptr_t *) & /*_.VALCLO___V1212*/ meltfptr[1211]; + (melt_ptr_t *) & /*_.VALCLO___V1214*/ meltfptr[1213]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : PATTERN_WEIGHT_TUPLE */ @@ -97438,14 +97466,6 @@ meltmod__warmelt_macro__initialmeltchunk_36 (struct (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V189*/ meltfptr[188])); - /*internsym:SFMATX_FMATCHER */ - (void) - meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V199*/ meltfptr[198])); - - /*internsym:SFMATX_FMATBIND */ - (void) - meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V201*/ meltfptr[200])); - #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_36 */ @@ -97460,7 +97480,15 @@ meltmod__warmelt_macro__initialmeltchunk_37 (struct #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; -/*internsym:CLASS_SOURCE_TUPLE*/ +/*internsym:SFMATX_FMATCHER*/ + (void) + meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V199*/ meltfptr[198])); + + /*internsym:SFMATX_FMATBIND */ + (void) + meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V201*/ meltfptr[200])); + + /*internsym:CLASS_SOURCE_TUPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V203*/ meltfptr[202])); @@ -97964,14 +97992,6 @@ meltmod__warmelt_macro__initialmeltchunk_37 (struct (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V797*/ meltfptr[796])); - /*internsym:SFRV_BODY */ - (void) - meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V805*/ meltfptr[804])); - - /*internsym:CLASS_SOURCE_AGAIN */ - (void) - meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V807*/ meltfptr[806])); - #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_37 */ @@ -97986,7 +98006,15 @@ meltmod__warmelt_macro__initialmeltchunk_38 (struct #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; -/*internsym:CLASS_SOURCE_EXIT*/ +/*internsym:SFRV_BODY*/ + (void) + meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V805*/ meltfptr[804])); + + /*internsym:CLASS_SOURCE_AGAIN */ + (void) + meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V807*/ meltfptr[806])); + + /*internsym:CLASS_SOURCE_EXIT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V813*/ meltfptr[812])); @@ -98302,107 +98330,107 @@ meltmod__warmelt_macro__initialmeltchunk_38 (struct meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1144*/ meltfptr[1143])); - /*internsym:CLASS_FUNMATCHER */ + /*internsym:CLASS_ANY_MATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1146*/ meltfptr[1145])); - /*internsym:FIND_ENV */ + /*internsym:CLASS_FUNMATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1148*/ meltfptr[1147])); - /*internsym:CLASS_MACRO_BINDING */ + /*internsym:FIND_ENV */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1150*/ meltfptr[1149])); - /*internsym:CLASS_SELECTOR_BINDING */ + /*internsym:CLASS_MACRO_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1152*/ meltfptr[1151])); - /*internsym:CLASS_PRIMITIVE_BINDING */ + /*internsym:CLASS_SELECTOR_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1154*/ meltfptr[1153])); - /*internsym:CLASS_CITERATOR_BINDING */ + /*internsym:CLASS_PRIMITIVE_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1156*/ meltfptr[1155])); - /*internsym:CLASS_CMATCHER_BINDING */ + /*internsym:CLASS_CITERATOR_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1158*/ meltfptr[1157])); - /*internsym:CLASS_FUNMATCHER_BINDING */ + /*internsym:CLASS_CMATCHER_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1160*/ meltfptr[1159])); - /*internsym:CLASS_FIELD_BINDING */ + /*internsym:CLASS_FUNMATCHER_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1162*/ meltfptr[1161])); - /*internsym:CLASS_FORMAL_BINDING */ + /*internsym:CLASS_FIELD_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1164*/ meltfptr[1163])); - /*internsym:CLASS_LET_BINDING */ + /*internsym:CLASS_FORMAL_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1166*/ meltfptr[1165])); - /*internsym:CLASS_VALUE_BINDING */ + /*internsym:CLASS_LET_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167])); - /*internsym:CLASS_PRIMITIVE */ + /*internsym:CLASS_VALUE_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1170*/ meltfptr[1169])); - /*internsym:CLASS_PATTERN_EXPANSION_CONTEXT */ + /*internsym:CLASS_PRIMITIVE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1172*/ meltfptr[1171])); - /*internsym:CLASS_ROOT */ + /*internsym:CLASS_PATTERN_EXPANSION_CONTEXT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1174*/ meltfptr[1173])); - /*internsym:PCTX_MEXPANDER */ + /*internsym:CLASS_ROOT */ (void) meltgc_intern_symbol ((melt_ptr_t) - ( /*_.VALDATA___V1188*/ meltfptr[1187])); + ( /*_.VALDATA___V1176*/ meltfptr[1175])); - /*internsym:PCTX_PEXPANDER */ + /*internsym:PCTX_MEXPANDER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1190*/ meltfptr[1189])); - /*internsym:PCTX_VARMAP */ + /*internsym:PCTX_PEXPANDER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1192*/ meltfptr[1191])); - /*internsym:PCTX_MODCTX */ + /*internsym:PCTX_VARMAP */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1194*/ meltfptr[1193])); - /*internsym:PAIRLIST_TO_MULTIPLE */ + /*internsym:PCTX_MODCTX */ (void) meltgc_intern_symbol ((melt_ptr_t) - ( /*_.VALDATA___V1218*/ meltfptr[1217])); + ( /*_.VALDATA___V1196*/ meltfptr[1195])); - /*internsym:CLASS_ANY_MATCHER */ + /*internsym:PAIRLIST_TO_MULTIPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1220*/ meltfptr[1219])); @@ -98430,12 +98458,12 @@ meltmod__warmelt_macro__initialmeltchunk_38 (struct /*internsym:QUESTION */ (void) meltgc_intern_symbol ((melt_ptr_t) - ( /*_.VALDATA___V1199*/ meltfptr[1198])); + ( /*_.VALDATA___V1201*/ meltfptr[1200])); /*internsym:_ */ (void) meltgc_intern_symbol ((melt_ptr_t) - ( /*_.VALDATA___V1202*/ meltfptr[1201])); + ( /*_.VALDATA___V1204*/ meltfptr[1203])); /*internsym:DISCR_LIST */ (void) @@ -98577,16 +98605,6 @@ meltmod__warmelt_macro__initialmeltchunk_38 (struct meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1323*/ meltfptr[1322])); - /*internsym:DEFCLASS */ - (void) - meltgc_intern_symbol ((melt_ptr_t) - ( /*_.VALDATA___V1325*/ meltfptr[1324])); - - /*internsym:MULTIPLE_ITERATE_TEST */ - (void) - meltgc_intern_symbol ((melt_ptr_t) - ( /*_.VALDATA___V1330*/ meltfptr[1329])); - #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_38 */ @@ -98601,7 +98619,17 @@ meltmod__warmelt_macro__initialmeltchunk_39 (struct #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; -/*internsym:CLASS_INSTANCE_BINDING*/ +/*internsym:DEFCLASS*/ + (void) + meltgc_intern_symbol ((melt_ptr_t) + ( /*_.VALDATA___V1325*/ meltfptr[1324])); + + /*internsym:MULTIPLE_ITERATE_TEST */ + (void) + meltgc_intern_symbol ((melt_ptr_t) + ( /*_.VALDATA___V1330*/ meltfptr[1329])); + + /*internsym:CLASS_INSTANCE_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1336*/ meltfptr[1335])); @@ -99100,7 +99128,7 @@ meltmod__warmelt_macro__forward_or_mark_module_start_frame (struct int ix = 0; initial_frame_st *meltframptr_ = (initial_frame_st *) fp; melt_assertmsg ("check module frame", - meltframptr_->mcfr_nbvar == /*minihash */ -2174); + meltframptr_->mcfr_nbvar == /*minihash */ -1034); if (!marking && melt_is_forwarding) { dbgprintf diff --git a/gcc/melt/generated/warmelt-modes+meltdesc.c b/gcc/melt/generated/warmelt-modes+meltdesc.c index d82868fb5ce..7820b5d0d51 100644 --- a/gcc/melt/generated/warmelt-modes+meltdesc.c +++ b/gcc/melt/generated/warmelt-modes+meltdesc.c @@ -19,8 +19,8 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revision 192289] MELT_0\ -.9.7-rc4" +const char melt_genversionstr[]="4.8.0 20121018 (experimental) [melt-branch revision 192558] MELT_0\ +.9.7-post" #ifdef __cplusplus " (in C++)" @@ -29,16 +29,16 @@ const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.7-rc4 [melt-branch_revision_192289]"; +const char melt_versionmeltstr[]="0.9.7-post [melt-branch_revision_192555]"; /* source name & real path of the module */ /*MELTMODULENAME meltbuild-sources/warmelt-modes */ const char melt_modulename[]="warmelt-modes"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt\ --modules/0.9.7-rc4/warmelt-modes"; +-modules/0.9.7-post/warmelt-modes"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="f66a30d9bc2c10de00b1532482ad91ed"; +const char melt_prepromd5meltrun[]="fbc0deb09a63b777e215f0636e7b4e16"; /* hexmd5checksum of primary C file */ const char melt_primaryhexmd5[]="1a837d7c434ceb60e34771370cefda5d"; diff --git a/gcc/melt/generated/warmelt-modes+melttime.h b/gcc/melt/generated/warmelt-modes+melttime.h index 397bd9d7b89..5049fecdb65 100644 --- a/gcc/melt/generated/warmelt-modes+melttime.h +++ b/gcc/melt/generated/warmelt-modes+melttime.h @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Wed Oct 10 13:49:46 2012 CEST"; -const long long melt_gen_timenum=1349869786; +const char melt_gen_timestamp[]="Thu Oct 18 16:21:12 2012 CEST"; +const long long melt_gen_timenum=1350570072; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus diff --git a/gcc/melt/generated/warmelt-normal+meltdesc.c b/gcc/melt/generated/warmelt-normal+meltdesc.c index a46f1b8dce2..34ad8337b22 100644 --- a/gcc/melt/generated/warmelt-normal+meltdesc.c +++ b/gcc/melt/generated/warmelt-normal+meltdesc.c @@ -19,8 +19,8 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revision 192289] MELT_0\ -.9.7-rc4" +const char melt_genversionstr[]="4.8.0 20121018 (experimental) [melt-branch revision 192558] MELT_0\ +.9.7-post" #ifdef __cplusplus " (in C++)" @@ -29,16 +29,16 @@ const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.7-rc4 [melt-branch_revision_192289]"; +const char melt_versionmeltstr[]="0.9.7-post [melt-branch_revision_192555]"; /* source name & real path of the module */ /*MELTMODULENAME meltbuild-sources/warmelt-normal */ const char melt_modulename[]="warmelt-normal"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt\ --modules/0.9.7-rc4/warmelt-normal"; +-modules/0.9.7-post/warmelt-normal"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="f66a30d9bc2c10de00b1532482ad91ed"; +const char melt_prepromd5meltrun[]="fbc0deb09a63b777e215f0636e7b4e16"; /* hexmd5checksum of primary C file */ const char melt_primaryhexmd5[]="c02d5b836790a2c753518faeb8202bbe"; diff --git a/gcc/melt/generated/warmelt-normal+melttime.h b/gcc/melt/generated/warmelt-normal+melttime.h index aed3b5ac5c9..97d2506b99d 100644 --- a/gcc/melt/generated/warmelt-normal+melttime.h +++ b/gcc/melt/generated/warmelt-normal+melttime.h @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Wed Oct 10 13:49:42 2012 CEST"; -const long long melt_gen_timenum=1349869782; +const char melt_gen_timestamp[]="Thu Oct 18 16:21:07 2012 CEST"; +const long long melt_gen_timenum=1350570067; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus diff --git a/gcc/melt/generated/warmelt-normatch+meltdesc.c b/gcc/melt/generated/warmelt-normatch+meltdesc.c index 6c9dbc2711f..4c930593897 100644 --- a/gcc/melt/generated/warmelt-normatch+meltdesc.c +++ b/gcc/melt/generated/warmelt-normatch+meltdesc.c @@ -19,8 +19,8 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revision 192289] MELT_0\ -.9.7-rc4" +const char melt_genversionstr[]="4.8.0 20121018 (experimental) [melt-branch revision 192558] MELT_0\ +.9.7-post" #ifdef __cplusplus " (in C++)" @@ -29,16 +29,16 @@ const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.7-rc4 [melt-branch_revision_192289]"; +const char melt_versionmeltstr[]="0.9.7-post [melt-branch_revision_192555]"; /* source name & real path of the module */ /*MELTMODULENAME meltbuild-sources/warmelt-normatch */ const char melt_modulename[]="warmelt-normatch"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt\ --modules/0.9.7-rc4/warmelt-normatch"; +-modules/0.9.7-post/warmelt-normatch"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="f66a30d9bc2c10de00b1532482ad91ed"; +const char melt_prepromd5meltrun[]="fbc0deb09a63b777e215f0636e7b4e16"; /* hexmd5checksum of primary C file */ const char melt_primaryhexmd5[]="b98a0614b98803a42a6bdb946d553853"; diff --git a/gcc/melt/generated/warmelt-normatch+melttime.h b/gcc/melt/generated/warmelt-normatch+melttime.h index 179ceb34e33..4aa8d3754a0 100644 --- a/gcc/melt/generated/warmelt-normatch+melttime.h +++ b/gcc/melt/generated/warmelt-normatch+melttime.h @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Wed Oct 10 13:49:43 2012 CEST"; -const long long melt_gen_timenum=1349869783; +const char melt_gen_timestamp[]="Thu Oct 18 16:21:09 2012 CEST"; +const long long melt_gen_timenum=1350570069; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus diff --git a/gcc/melt/generated/warmelt-outobj+04.c b/gcc/melt/generated/warmelt-outobj+04.c index 8c72af19014..4fe3a63f047 100644 --- a/gcc/melt/generated/warmelt-outobj+04.c +++ b/gcc/melt/generated/warmelt-outobj+04.c @@ -15247,8 +15247,7 @@ ltstr[]\t ;\n\t extern \"C\" const char melt_genversionstr[\ argtab[0].meltbp_cstring = "\n\t #ifdef __cplusplus\n\t \" (in C++)\"\ \n\t #else\n\t \" (in C)\"\ -\n\t #endif\n\t\t\ -\t\t\t;\n\t "; +\n\t #endif\n\t\t\t\t\t;\n\t "; /*_.ADD2OUT__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t) (( /*!ADD2OUT */ meltfrout->tabval[13])), @@ -18438,8 +18437,7 @@ plus*/\n\t\t\t\t\t;\n\t\t "; /*^apply.arg */ argtab[0].meltbp_cstring = "\n\t\t #ifdef __cplusplus\n\t\t } /* end extern C timestamp */\ -\n\t\t #endif /*__cplusplus */\n\n\t\t #els\ -e /* ! "; +\n\t\t #endif /*__cplusplus */\n\n\t\t #else /* ! "; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MODIDNAM__V109*/ meltfptr[104]; @@ -18492,8 +18490,7 @@ e /* ! "; argtab[0].meltbp_cstring = "\n\t\t #ifdef __cplusplus\n\t\t }\t /* end extern C descriptor */\ \ -\n\t\t #endif /*__cplusplus\ - */\n\t\t "; +\n\t\t #endif /*__cplusplus */\n\t\t "; /*_.ADD2OUT__V143*/ meltfptr[142] = melt_apply ((meltclosure_ptr_t) (( /*!ADD2OUT */ meltfrout->tabval[13])), diff --git a/gcc/melt/generated/warmelt-outobj+meltdesc.c b/gcc/melt/generated/warmelt-outobj+meltdesc.c index f87fa760ddc..8728c9d5e7a 100644 --- a/gcc/melt/generated/warmelt-outobj+meltdesc.c +++ b/gcc/melt/generated/warmelt-outobj+meltdesc.c @@ -19,8 +19,8 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revision 192289] MELT_0\ -.9.7-rc4" +const char melt_genversionstr[]="4.8.0 20121018 (experimental) [melt-branch revision 192558] MELT_0\ +.9.7-post" #ifdef __cplusplus " (in C++)" @@ -29,16 +29,16 @@ const char melt_genversionstr[]="4.8.0 20121010 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.7-rc4 [melt-branch_revision_192289]"; +const char melt_versionmeltstr[]="0.9.7-post [melt-branch_revision_192555]"; /* source name & real path of the module */ /*MELTMODULENAME meltbuild-sources/warmelt-outobj */ const char melt_modulename[]="warmelt-outobj"; const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown-linux-gnu/4.8.0/melt\ --modules/0.9.7-rc4/warmelt-outobj"; +-modules/0.9.7-post/warmelt-outobj"; /* hash of preprocessed melt-run.h generating this */ -const char melt_prepromd5meltrun[]="f66a30d9bc2c10de00b1532482ad91ed"; +const char melt_prepromd5meltrun[]="fbc0deb09a63b777e215f0636e7b4e16"; /* hexmd5checksum of primary C file */ const char melt_primaryhexmd5[]="f11f9b0bf0b64d13ed61397a1e4d432c"; @@ -48,7 +48,7 @@ const char* const melt_secondaryhexmd5tab[]={ /*sechexmd5checksum meltbuild-sources/warmelt-outobj+01.c #1 */ "73ee2a953e41a402e1378fe957dc0a46", /*sechexmd5checksum meltbuild-sources/warmelt-outobj+02.c #2 */ "8a75e629aed59638bdc7704168e17942", /*sechexmd5checksum meltbuild-sources/warmelt-outobj+03.c #3 */ "536159cd2af33ba52420220f7e9b38cb", - /*sechexmd5checksum meltbuild-sources/warmelt-outobj+04.c #4 */ "930f45ce85e2f21982b35765ab9d6f78", + /*sechexmd5checksum meltbuild-sources/warmelt-outobj+04.c #4 */ "1412318edce5ba4c53c5b4aab0251851", /*sechexmd5checksum meltbuild-sources/warmelt-outobj+05.c #5 */ "a58268f8bb6de01c49bd4623638802bf", /*nosecfile*/ (const char*)0, (const char*)0 }; @@ -57,10 +57,10 @@ const char* const melt_secondaryhexmd5tab[]={ const int melt_lastsecfileindex=5; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="1f0ccb716eae60bdd32304454eb7ab4c" ; +const char melt_cumulated_hexmd5[]="83e614d98e1b34e9954799f1fc5c272e" ; /* include the timestamp file */ -#define meltmod_warmelt_outobj_mds__1f0ccb716eae60bdd32304454eb7ab4c 1 +#define meltmod_warmelt_outobj_mds__83e614d98e1b34e9954799f1fc5c272e 1 #include "warmelt-outobj+melttime.h" diff --git a/gcc/melt/generated/warmelt-outobj+melttime.h b/gcc/melt/generated/warmelt-outobj+melttime.h index 6c9cce35f7d..0b9c117d3a5 100644 --- a/gcc/melt/generated/warmelt-outobj+melttime.h +++ b/gcc/melt/generated/warmelt-outobj+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-outobj+melttime.h is included from warmelt-outobj+meltdesc.c only. */ -#if meltmod_warmelt_outobj_mds__1f0ccb716eae60bdd32304454eb7ab4c +#if meltmod_warmelt_outobj_mds__83e614d98e1b34e9954799f1fc5c272e /* MELT generation timestamp for meltbuild-sources/warmelt-outobj */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Wed Oct 10 13:49:45 2012 CEST"; -const long long melt_gen_timenum=1349869785; +const char melt_gen_timestamp[]="Thu Oct 18 16:21:11 2012 CEST"; +const long long melt_gen_timenum=1350570071; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1349869785; } /* end extern C timestamp */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_outobj_mds__1f0ccb716eae60bdd32304454eb7ab4c */ + #else /* ! meltmod_warmelt_outobj_mds__83e614d98e1b34e9954799f1fc5c272e */ #error invalid timestamp file for meltbuild-sources/warmelt-outobj - #endif /* meltmod_warmelt_outobj_mds__1f0ccb716eae60bdd32304454eb7ab4c */ + #endif /* meltmod_warmelt_outobj_mds__83e614d98e1b34e9954799f1fc5c272e */ |