diff options
25 files changed, 1614 insertions, 1587 deletions
diff --git a/gcc/ChangeLog.MELT b/gcc/ChangeLog.MELT index 058da5b46f7..4a2c33d5ee3 100644 --- a/gcc/ChangeLog.MELT +++ b/gcc/ChangeLog.MELT @@ -1,4 +1,31 @@ +2012-07-03 Basile Starynkevitch <basile@starynkevitch.net> + {{Regenerate all}} + * melt/generated/meltrunsup-inc.c: Regenerate. + * melt/generated/meltrunsup.h: 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+01.c: Regenerate. + * melt/generated/warmelt-first+meltdesc.c: Regenerate. + * melt/generated/warmelt-first+melttime.h: Regenerate. + * melt/generated/warmelt-genobj+meltdesc.c: Regenerate. + * melt/generated/warmelt-genobj+melttime.h: Regenerate. + * melt/generated/warmelt-macro+04.c: Regenerate. + * melt/generated/warmelt-macro+05.c: Regenerate. + * melt/generated/warmelt-macro+meltdesc.c: Regenerate. + * melt/generated/warmelt-macro+melttime.h: Regenerate. + * melt/generated/warmelt-macro.c: 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+meltdesc.c: Regenerate. + * melt/generated/warmelt-outobj+melttime.h: Regenerate. + 2012-07-04 Basile Starynkevitch <basile@starynkevitch.net> * melt/warmelt-macro.melt (mexpand_use_package_from_pkg_config): Add block in code chunk. diff --git a/gcc/melt/generated/meltrunsup-inc.c b/gcc/melt/generated/meltrunsup-inc.c index 47811d62efc..a7fd9462298 100644 --- a/gcc/melt/generated/meltrunsup-inc.c +++ b/gcc/melt/generated/meltrunsup-inc.c @@ -3189,5 +3189,5 @@ end: #undef compv -/*** End of code file meltrunsup-inc.c generated on 2012 Jul 03 - * by GCC MELT 4.8.0 20120702 (experimental) [melt-branch revision 189193] MELT_0.9.6-pre . ***/ +/*** End of code file meltrunsup-inc.c generated on 2012 Jul 04 + * by GCC MELT 4.8.0 20120702 (experimental) [melt-branch revision 189247] MELT_0.9.6-pre . ***/ diff --git a/gcc/melt/generated/meltrunsup.h b/gcc/melt/generated/meltrunsup.h index d7f46e671e4..61870cd887d 100644 --- a/gcc/melt/generated/meltrunsup.h +++ b/gcc/melt/generated/meltrunsup.h @@ -2548,5 +2548,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 meltrunsup.h generated on 2012 Jul 03 - * by GCC MELT 4.8.0 20120702 (experimental) [melt-branch revision 189193] MELT_0.9.6-pre . ***/ +/*** End of declaration file meltrunsup.h generated on 2012 Jul 04 + * by GCC MELT 4.8.0 20120702 (experimental) [melt-branch revision 189247] MELT_0.9.6-pre . ***/ diff --git a/gcc/melt/generated/warmelt-base+meltdesc.c b/gcc/melt/generated/warmelt-base+meltdesc.c index 8ee8143152b..598de42a7a5 100644 --- a/gcc/melt/generated/warmelt-base+meltdesc.c +++ b/gcc/melt/generated/warmelt-base+meltdesc.c @@ -19,7 +19,7 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189193] MELT_0.9.6-pre" +const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189247] MELT_0.9.6-pre" #ifdef __cplusplus " (in C++)" @@ -28,7 +28,7 @@ const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189193]"; +const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189247]"; /* source name & real path of the module */ /*MELTMODULENAME MELT-STAGE-ZERO/warmelt-base */ diff --git a/gcc/melt/generated/warmelt-base+melttime.h b/gcc/melt/generated/warmelt-base+melttime.h index bea348d6987..2be24671340 100644 --- a/gcc/melt/generated/warmelt-base+melttime.h +++ b/gcc/melt/generated/warmelt-base+melttime.h @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Tue Jul 3 16:19:23 2012 CEST"; -const long long melt_gen_timenum=1341325163; +const char melt_gen_timestamp[]="Wed Jul 4 11:29:26 2012 CEST"; +const long long melt_gen_timenum=1341394166; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus diff --git a/gcc/melt/generated/warmelt-debug+meltdesc.c b/gcc/melt/generated/warmelt-debug+meltdesc.c index 9774b3d11c8..4beb02f0615 100644 --- a/gcc/melt/generated/warmelt-debug+meltdesc.c +++ b/gcc/melt/generated/warmelt-debug+meltdesc.c @@ -19,7 +19,7 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189193] MELT_0.9.6-pre" +const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189247] MELT_0.9.6-pre" #ifdef __cplusplus " (in C++)" @@ -28,7 +28,7 @@ const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189193]"; +const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189247]"; /* source name & real path of the module */ /*MELTMODULENAME MELT-STAGE-ZERO/warmelt-debug */ diff --git a/gcc/melt/generated/warmelt-debug+melttime.h b/gcc/melt/generated/warmelt-debug+melttime.h index c1185249d5c..8a474aa7f7c 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[]="Tue Jul 3 16:19:23 2012 CEST"; -const long long melt_gen_timenum=1341325163; +const char melt_gen_timestamp[]="Wed Jul 4 11:29:27 2012 CEST"; +const long long melt_gen_timenum=1341394167; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus diff --git a/gcc/melt/generated/warmelt-first+01.c b/gcc/melt/generated/warmelt-first+01.c index 4f0657fd860..775d6fcf19f 100644 --- a/gcc/melt/generated/warmelt-first+01.c +++ b/gcc/melt/generated/warmelt-first+01.c @@ -12289,18 +12289,16 @@ lab_endgetargs:; for (i = 0; i < (int) /*_#NBSYMB__L2*/ meltfnum[1]; i += 2) { - char *n1 = - (char *) melt_string_str ((melt_ptr_t) - melt_multiple_nth ((melt_ptr_t) - /*_.SORTEDNAMETUP__V16*/ - meltfptr[15], - i)); - char *n2 = - (char *) melt_string_str ((melt_ptr_t) - melt_multiple_nth ((melt_ptr_t) - /*_.SORTEDNAMETUP__V16*/ - meltfptr[15], - i + 1)); + const char *n1 = + melt_string_str ((melt_ptr_t) + melt_multiple_nth ((melt_ptr_t) + /*_.SORTEDNAMETUP__V16*/ + meltfptr[15], i)); + const char *n2 = + melt_string_str ((melt_ptr_t) + melt_multiple_nth ((melt_ptr_t) + /*_.SORTEDNAMETUP__V16*/ + meltfptr[15], i + 1)); if (n1 && n2) inform (UNKNOWN_LOCATION, "possible MELT options: %s & %s", n1, n2); diff --git a/gcc/melt/generated/warmelt-first+meltdesc.c b/gcc/melt/generated/warmelt-first+meltdesc.c index c40f92a005a..6809c2db63c 100644 --- a/gcc/melt/generated/warmelt-first+meltdesc.c +++ b/gcc/melt/generated/warmelt-first+meltdesc.c @@ -19,7 +19,7 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189193] MELT_0.9.6-pre" +const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189247] MELT_0.9.6-pre" #ifdef __cplusplus " (in C++)" @@ -28,7 +28,7 @@ const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189193]"; +const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189247]"; /* source name & real path of the module */ /*MELTMODULENAME MELT-STAGE-ZERO/warmelt-first */ @@ -43,7 +43,7 @@ const char melt_primaryhexmd5[]="8074913db90f5a1fd15f4beed08adedc"; /* hexmd5checksum of secondary C files */ const char* const melt_secondaryhexmd5tab[]={ /*nosecfile*/ (const char*)0, - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-first+01.c #1 */ "0acc34310c702875a263005154290f4f", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-first+01.c #1 */ "3b42b7f2c91f65b86b6746e57f96dd29", /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-first+02.c #2 */ "d76eb11219f11f2a4e2b755d75915778", /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-first+03.c #3 */ "8483d307d7842e971f0d5bc2dc511bd2", (const char*)0 }; @@ -52,10 +52,10 @@ const char* const melt_secondaryhexmd5tab[]={ const int melt_lastsecfileindex=3; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="78417c74644a98efba559ecdd7c9ce17" ; +const char melt_cumulated_hexmd5[]="6e03d11823019f85c37a62eb3bf0cd84" ; /* include the timestamp file */ -#define meltmod_warmelt_first_mds__78417c74644a98efba559ecdd7c9ce17 1 +#define meltmod_warmelt_first_mds__6e03d11823019f85c37a62eb3bf0cd84 1 #include "warmelt-first+melttime.h" diff --git a/gcc/melt/generated/warmelt-first+melttime.h b/gcc/melt/generated/warmelt-first+melttime.h index 1a6a10a4176..33011fe51d4 100644 --- a/gcc/melt/generated/warmelt-first+melttime.h +++ b/gcc/melt/generated/warmelt-first+melttime.h @@ -5,7 +5,7 @@ /* This warmelt-first+melttime.h is included from warmelt-first+meltdesc.c only. */ -#if meltmod_warmelt_first_mds__78417c74644a98efba559ecdd7c9ce17 +#if meltmod_warmelt_first_mds__6e03d11823019f85c37a62eb3bf0cd84 /* MELT generation timestamp for MELT-STAGE-ZERO/warmelt-first */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Tue Jul 3 16:19:22 2012 CEST"; -const long long melt_gen_timenum=1341325162; +const char melt_gen_timestamp[]="Wed Jul 4 11:29:24 2012 CEST"; +const long long melt_gen_timenum=1341394164; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1341325162; } ; /* end extern C */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_first_mds__78417c74644a98efba559ecdd7c9ce17 */ + #else /* ! meltmod_warmelt_first_mds__6e03d11823019f85c37a62eb3bf0cd84 */ #error invalid timestamp file for MELT-STAGE-ZERO/warmelt-first - #endif /* meltmod_warmelt_first_mds__78417c74644a98efba559ecdd7c9ce17 */ + #endif /* meltmod_warmelt_first_mds__6e03d11823019f85c37a62eb3bf0cd84 */ diff --git a/gcc/melt/generated/warmelt-genobj+meltdesc.c b/gcc/melt/generated/warmelt-genobj+meltdesc.c index f397817e2a0..a96f3a154af 100644 --- a/gcc/melt/generated/warmelt-genobj+meltdesc.c +++ b/gcc/melt/generated/warmelt-genobj+meltdesc.c @@ -19,7 +19,7 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189193] MELT_0.9.6-pre" +const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189247] MELT_0.9.6-pre" #ifdef __cplusplus " (in C++)" @@ -28,7 +28,7 @@ const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189193]"; +const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189247]"; /* source name & real path of the module */ /*MELTMODULENAME MELT-STAGE-ZERO/warmelt-genobj */ diff --git a/gcc/melt/generated/warmelt-genobj+melttime.h b/gcc/melt/generated/warmelt-genobj+melttime.h index 009ebb207c2..f89b99e5ef6 100644 --- a/gcc/melt/generated/warmelt-genobj+melttime.h +++ b/gcc/melt/generated/warmelt-genobj+melttime.h @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Tue Jul 3 16:19:27 2012 CEST"; -const long long melt_gen_timenum=1341325167; +const char melt_gen_timestamp[]="Wed Jul 4 11:29:36 2012 CEST"; +const long long melt_gen_timenum=1341394176; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus diff --git a/gcc/melt/generated/warmelt-macro+04.c b/gcc/melt/generated/warmelt-macro+04.c index f6e7379e561..c46c182079f 100644 --- a/gcc/melt/generated/warmelt-macro+04.c +++ b/gcc/melt/generated/warmelt-macro+04.c @@ -17174,20 +17174,22 @@ lab_endgetargs:; { MELT_LOCATION ("warmelt-macro.melt:5926:/ locexp"); /* mexpand_use_package_from_pkg_config TESTPKGCONFIG_CHK__1 */ - const char *cmd_TESTPKGCONFIG_CHK__1 = - melt_string_str ((melt_ptr_t) /*_.CMDSTR__V36*/ meltfptr[28]); - fflush (NULL); + { + const char *cmd_TESTPKGCONFIG_CHK__1 = + melt_string_str ((melt_ptr_t) /*_.CMDSTR__V36*/ meltfptr[28]); + fflush (NULL); /*_#FAILCMD__L11*/ meltfnum[9] = (cmd_TESTPKGCONFIG_CHK__1 ? system (cmd_TESTPKGCONFIG_CHK__1) : 1000); + } /* end mexpand_use_package_from_pkg_config TESTPKGCONFIG_CHK__1 */ ; } ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5933:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5935:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17213,7 +17215,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5933:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5935:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -17228,7 +17230,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5933:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5935:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17242,7 +17244,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5933; + argtab[2].meltbp_long = 5935; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_use_package_from_pkg_config failcmd="; @@ -17262,7 +17264,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5933:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5935:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = 0; @@ -17275,7 +17277,7 @@ lab_endgetargs:; /*_.IF___V42*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5933:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5935:/ quasiblock"); /*_.PROGN___V44*/ meltfptr[42] = /*_.IF___V42*/ meltfptr[38];; @@ -17284,7 +17286,7 @@ lab_endgetargs:; /*_.IFCPP___V41*/ meltfptr[37] = /*_.PROGN___V44*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5933:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5935:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IF___V42*/ meltfptr[38] = 0; @@ -17297,7 +17299,7 @@ lab_endgetargs:; /*_.IFCPP___V41*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5934:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5936:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -17310,19 +17312,19 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5935:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5937:/ 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:5936:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5938:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:5936:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5938:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -17335,7 +17337,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5934:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5936:/ quasiblock"); /*_.PROGN___V47*/ meltfptr[46] = /*_.RETURN___V46*/ meltfptr[42];; @@ -17344,7 +17346,7 @@ lab_endgetargs:; /*_.IF___V45*/ meltfptr[38] = /*_.PROGN___V47*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5934:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5936:/ clear"); /*clear *//*_.RETURN___V46*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_.PROGN___V47*/ meltfptr[46] = 0; @@ -17371,7 +17373,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V41*/ meltfptr[37] = 0; /*^clear */ /*clear *//*_.IF___V45*/ meltfptr[38] = 0; - MELT_LOCATION ("warmelt-macro.melt:5939:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5941:/ quasiblock"); /*^checksignal */ @@ -17412,7 +17414,7 @@ lab_endgetargs:; /*_.SUP__V49*/ meltfptr[46] = /*_.INST__V50*/ meltfptr[28];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5942:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5944:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17438,7 +17440,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:5942:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5944:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -17453,7 +17455,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:5942:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5944:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -17467,7 +17469,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 5942; + argtab[2].meltbp_long = 5944; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_use_package_from_pkg_config gives sup="; @@ -17488,7 +17490,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V53*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5942:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5944:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V53*/ meltfptr[38] = 0; @@ -17501,7 +17503,7 @@ lab_endgetargs:; /*_.IF___V52*/ meltfptr[37] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5942:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5944:/ quasiblock"); /*_.PROGN___V54*/ meltfptr[38] = /*_.IF___V52*/ meltfptr[37];; @@ -17510,7 +17512,7 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[31] = /*_.PROGN___V54*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5942:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5944:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IF___V52*/ meltfptr[37] = 0; @@ -17523,7 +17525,7 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[31] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5943:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5945:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -17532,7 +17534,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.SUP__V49*/ meltfptr[46];; { - MELT_LOCATION ("warmelt-macro.melt:5943:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5945:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -17547,7 +17549,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V48*/ meltfptr[42] = /*_.RETURN___V55*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:5939:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5941:/ clear"); /*clear *//*_.SUP__V49*/ meltfptr[46] = 0; /*^clear */ /*clear *//*_.IFCPP___V51*/ meltfptr[31] = 0; @@ -17699,7 +17701,7 @@ meltrout_123_warmelt_macro_PAIRLIST_TO_RETURN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5966:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5968:/ getarg"); /*_.PAIR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -17749,7 +17751,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5967:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5969:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17761,7 +17763,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:5967:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5969:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17769,7 +17771,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5967:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5969:/ cond.else"); /*^block */ /*anyblock */ @@ -17783,7 +17785,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5967) ? (5967) : __LINE__, __FUNCTION__); + (5969) ? (5969) : __LINE__, __FUNCTION__); ; } ; @@ -17798,7 +17800,7 @@ lab_endgetargs:; /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5967:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5969:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0; @@ -17811,7 +17813,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5968:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5970:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17822,7 +17824,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:5968:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5970:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17830,7 +17832,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5968:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5970:/ cond.else"); /*^block */ /*anyblock */ @@ -17844,7 +17846,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5968) ? (5968) : __LINE__, __FUNCTION__); + (5970) ? (5970) : __LINE__, __FUNCTION__); ; } ; @@ -17859,7 +17861,7 @@ lab_endgetargs:; /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5968:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5970:/ clear"); /*clear *//*_#IS_CLOSURE__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0; @@ -17872,7 +17874,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5969:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5971:/ cppif.then"); /*^block */ /*anyblock */ { @@ -17883,7 +17885,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:5969:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5971:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -17891,7 +17893,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5969:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5971:/ cond.else"); /*^block */ /*anyblock */ @@ -17905,7 +17907,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5969) ? (5969) : __LINE__, __FUNCTION__); + (5971) ? (5971) : __LINE__, __FUNCTION__); ; } ; @@ -17920,7 +17922,7 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5969:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5971:/ clear"); /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V12*/ meltfptr[11] = 0; @@ -17931,10 +17933,10 @@ lab_endgetargs:; /*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5970:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5972:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5974:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5976:/ quasiblock"); /*^newclosure */ @@ -17985,7 +17987,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODCTX__V6*/ meltfptr[5]); ; /*_.LAMBDA___V14*/ meltfptr[13] = /*_.LAMBDA___V15*/ meltfptr[14];; - MELT_LOCATION ("warmelt-macro.melt:5971:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5973:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18007,7 +18009,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5975:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5977:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -18048,13 +18050,13 @@ lab_endgetargs:; /*_.LET___V13*/ meltfptr[11] = /*_.INST___V17*/ meltfptr[16];; - MELT_LOCATION ("warmelt-macro.melt:5970:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5972:/ 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:5966:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5968:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -18063,7 +18065,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V13*/ meltfptr[11];; { - MELT_LOCATION ("warmelt-macro.melt:5966:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5968:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18178,7 +18180,7 @@ meltrout_124_warmelt_macro_LAMBDA___34__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5974:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5976:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -18219,7 +18221,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:5974:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5976:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18328,7 +18330,7 @@ meltrout_125_warmelt_macro_MEXPAND_PROGN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:5982:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:5984:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -18369,7 +18371,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:5983:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:5985:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18381,7 +18383,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:5983:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5985:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18389,7 +18391,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:5983:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:5985:/ cond.else"); /*^block */ /*anyblock */ @@ -18403,7 +18405,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (5983) ? (5983) : __LINE__, __FUNCTION__); + (5985) ? (5985) : __LINE__, __FUNCTION__); ; } ; @@ -18418,7 +18420,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5983:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5985:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -18429,7 +18431,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:5984:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5986:/ quasiblock"); /*^getslot */ @@ -18440,7 +18442,7 @@ lab_endgetargs:; meltfptr[8] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:5986:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:5988:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -18455,7 +18457,7 @@ lab_endgetargs:; /*_.PAIRS__V12*/ meltfptr[11] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V11*/ meltfptr[10])));; - MELT_LOCATION ("warmelt-macro.melt:5988:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5990:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L2*/ meltfnum[0] = @@ -18465,7 +18467,7 @@ lab_endgetargs:; /*_#NOT__L3*/ meltfnum[2] = (!( /*_#IS_PAIR__L2*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:5988:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:5990:/ cond"); /*cond */ if ( /*_#NOT__L3*/ meltfnum[2]) /*then */ { /*^cond.then */ @@ -18475,19 +18477,19 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:5990:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5992:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.SLOC__V9*/ meltfptr[8]), ("empty PROGN"), (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5991:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5993:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:5991:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5993:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18500,7 +18502,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:5989:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5991:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[14] = /*_.RETURN___V14*/ meltfptr[13];; @@ -18509,7 +18511,7 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = /*_.PROGN___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:5988:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5990:/ clear"); /*clear *//*_.RETURN___V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.PROGN___V15*/ meltfptr[14] = 0; @@ -18522,10 +18524,10 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:5992:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:5994:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:5993:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5995:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18551,7 +18553,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:5998:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6000:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -18560,7 +18562,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.PROGR__V17*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:5998:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6000:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18575,13 +18577,13 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V16*/ meltfptr[13] = /*_.RETURN___V18*/ meltfptr[17];; - MELT_LOCATION ("warmelt-macro.melt:5992:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5994:/ 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:5984:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:5986:/ clear"); /*clear *//*_.SLOC__V9*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.SEXP_CONTENTS__V10*/ meltfptr[9] = 0; @@ -18597,7 +18599,7 @@ lab_endgetargs:; /*clear *//*_.IF___V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.LET___V16*/ meltfptr[13] = 0; - MELT_LOCATION ("warmelt-macro.melt:5982:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:5984:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -18606,7 +18608,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { - MELT_LOCATION ("warmelt-macro.melt:5982:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:5984:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -18717,7 +18719,7 @@ meltrout_126_warmelt_macro_MEXPAND_RETURN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6008:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6010:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -18758,7 +18760,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6009:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6011:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18784,7 +18786,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6009:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6011:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18799,7 +18801,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6009:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6011:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -18812,7 +18814,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6009; + argtab[2].meltbp_long = 6011; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_return sexpr="; /*^apply.arg */ @@ -18831,7 +18833,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6009:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6011:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -18844,7 +18846,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6009:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6011:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -18853,7 +18855,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6009:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6011:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -18868,7 +18870,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6010:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6012:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18880,7 +18882,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:6010:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6012:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -18888,7 +18890,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6010:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6012:/ cond.else"); /*^block */ /*anyblock */ @@ -18902,7 +18904,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6010) ? (6010) : __LINE__, __FUNCTION__); + (6012) ? (6012) : __LINE__, __FUNCTION__); ; } ; @@ -18917,7 +18919,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6010:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6012:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -18930,7 +18932,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6011:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6013:/ cppif.then"); /*^block */ /*anyblock */ { @@ -18941,7 +18943,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:6011:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6013:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -18949,7 +18951,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6011:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6013:/ cond.else"); /*^block */ /*anyblock */ @@ -18963,7 +18965,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6011) ? (6011) : __LINE__, __FUNCTION__); + (6013) ? (6013) : __LINE__, __FUNCTION__); ; } ; @@ -18978,7 +18980,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6011:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6013:/ clear"); /*clear *//*_#IS_CLOSURE__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -18991,7 +18993,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6012:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6014:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19002,7 +19004,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:6012:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6014:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19010,7 +19012,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6012:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6014:/ cond.else"); /*^block */ /*anyblock */ @@ -19024,7 +19026,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6012) ? (6012) : __LINE__, __FUNCTION__); + (6014) ? (6014) : __LINE__, __FUNCTION__); ; } ; @@ -19039,7 +19041,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6012:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6014:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -19050,10 +19052,10 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6013:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6015:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6014:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6016:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -19068,7 +19070,7 @@ lab_endgetargs:; /*_.PAIR_TAIL__V19*/ meltfptr[18] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:6015:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6017:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -19076,7 +19078,7 @@ lab_endgetargs:; meltfptr[19] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6014:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6016:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19103,7 +19105,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6020:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6022:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19112,7 +19114,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RETR__V21*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-macro.melt:6020:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6022:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19127,7 +19129,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V16*/ meltfptr[14] = /*_.RETURN___V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:6013:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6015:/ clear"); /*clear *//*_.SEXP_CONTENTS__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LIST_FIRST__V18*/ meltfptr[17] = 0; @@ -19139,7 +19141,7 @@ lab_endgetargs:; /*clear *//*_.RETR__V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.RETURN___V22*/ meltfptr[21] = 0; - MELT_LOCATION ("warmelt-macro.melt:6008:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6010:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19148,7 +19150,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6008:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6010:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19265,7 +19267,7 @@ meltrout_127_warmelt_macro_MEXPAND_FOREVER (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6032:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -19306,7 +19308,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6033:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6035:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19332,7 +19334,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6033:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6035:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19347,7 +19349,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6033:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6035:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19360,7 +19362,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6033; + argtab[2].meltbp_long = 6035; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_forever sexpr="; /*^apply.arg */ @@ -19379,7 +19381,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6033:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6035:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -19392,7 +19394,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6033:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6035:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -19401,7 +19403,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6033:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6035:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -19416,7 +19418,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6034:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6036:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19428,7 +19430,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:6034:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6036:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19436,7 +19438,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6034:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6036:/ cond.else"); /*^block */ /*anyblock */ @@ -19450,7 +19452,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6034) ? (6034) : __LINE__, __FUNCTION__); + (6036) ? (6036) : __LINE__, __FUNCTION__); ; } ; @@ -19465,7 +19467,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6034:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6036:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -19478,7 +19480,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6035:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6037:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19489,7 +19491,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:6035:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6037:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19497,7 +19499,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6035:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6037:/ cond.else"); /*^block */ /*anyblock */ @@ -19511,7 +19513,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6035) ? (6035) : __LINE__, __FUNCTION__); + (6037) ? (6037) : __LINE__, __FUNCTION__); ; } ; @@ -19526,7 +19528,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6035:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6037:/ clear"); /*clear *//*_#IS_CLOSURE__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -19539,7 +19541,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6036:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6038:/ cppif.then"); /*^block */ /*anyblock */ { @@ -19550,7 +19552,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:6036:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6038:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -19558,7 +19560,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6036:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6038:/ cond.else"); /*^block */ /*anyblock */ @@ -19572,7 +19574,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6036) ? (6036) : __LINE__, __FUNCTION__); + (6038) ? (6038) : __LINE__, __FUNCTION__); ; } ; @@ -19587,7 +19589,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6036:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6038:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -19598,7 +19600,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6037:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6039:/ quasiblock"); /*^getslot */ @@ -19609,7 +19611,7 @@ lab_endgetargs:; meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6038:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6040:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -19627,7 +19629,7 @@ lab_endgetargs:; /*_.SLABNAM__V21*/ meltfptr[20] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6041:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6043:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19649,7 +19651,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6042:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6044:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19662,14 +19664,14 @@ lab_endgetargs:; (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6044:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6046:/ 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:6044:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6046:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -19679,13 +19681,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6046:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6048:/ 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:6047:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6049:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19694,7 +19696,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:6047:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6049:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19707,7 +19709,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6045:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6047:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[25] = /*_.RETURN___V25*/ meltfptr[24];; @@ -19716,7 +19718,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = /*_.PROGN___V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6044:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6046:/ clear"); /*clear *//*_.RETURN___V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.PROGN___V26*/ meltfptr[25] = 0; @@ -19733,10 +19735,10 @@ lab_endgetargs:; /*_.PAIR_TAIL__V27*/ meltfptr[24] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6048:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6050:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V28*/ meltfptr[25] = /*_.PAIR_TAIL__V27*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:6049:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6051:/ quasiblock"); /*^checksignal */ @@ -19776,7 +19778,7 @@ lab_endgetargs:; ( /*_.LOC__V18*/ meltfptr[17]), "LABIND_LOC"); ; /*_.LABIND__V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:6052:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6054:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19794,10 +19796,10 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6053:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6055:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6056:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6058:/ quasiblock"); /*^newclosure */ @@ -19848,7 +19850,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]); ; /*_.LAMBDA___V34*/ meltfptr[33] = /*_.LAMBDA___V35*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:6053:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6055:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -19870,7 +19872,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6058:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6060:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19916,7 +19918,7 @@ lab_endgetargs:; ( /*_.BODYTUP__V36*/ meltfptr[35]), "SFRV_BODY"); ; /*_.FORR__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:6063:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6065:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19925,7 +19927,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.FORR__V37*/ meltfptr[36];; { - MELT_LOCATION ("warmelt-macro.melt:6063:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6065:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -19940,7 +19942,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V33*/ meltfptr[32] = /*_.RETURN___V39*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:6053:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6055:/ clear"); /*clear *//*_.LAMBDA___V34*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.BODYTUP__V36*/ meltfptr[35] = 0; @@ -19950,7 +19952,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V39*/ meltfptr[38] = 0; /*_.LET___V29*/ meltfptr[28] = /*_.LET___V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:6049:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6051:/ clear"); /*clear *//*_.LABIND__V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.PUT_ENV__V32*/ meltfptr[31] = 0; @@ -19958,7 +19960,7 @@ lab_endgetargs:; /*clear *//*_.LET___V33*/ meltfptr[32] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V29*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:6037:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6039:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -19982,7 +19984,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V28*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.LET___V29*/ meltfptr[28] = 0; - MELT_LOCATION ("warmelt-macro.melt:6032:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -19991,7 +19993,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6032:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20108,7 +20110,7 @@ meltrout_128_warmelt_macro_LAMBDA___35__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6056:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6058:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -20149,7 +20151,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:6056:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6058:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20257,7 +20259,7 @@ meltrout_129_warmelt_macro_MEXPAND_EXIT (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6075:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -20298,7 +20300,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6076:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6078:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20324,7 +20326,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6076:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6078:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20339,7 +20341,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6076:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6078:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20352,7 +20354,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6076; + argtab[2].meltbp_long = 6078; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_exit sexpr="; /*^apply.arg */ @@ -20371,7 +20373,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6076:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6078:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -20384,7 +20386,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6076:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6078:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -20393,7 +20395,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6076:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6078:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -20408,7 +20410,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6077:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6079:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20420,7 +20422,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:6077:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6079:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20428,7 +20430,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6077:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6079:/ cond.else"); /*^block */ /*anyblock */ @@ -20442,7 +20444,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6077) ? (6077) : __LINE__, __FUNCTION__); + (6079) ? (6079) : __LINE__, __FUNCTION__); ; } ; @@ -20457,7 +20459,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6077:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6079:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -20470,7 +20472,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6078:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6080:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20481,7 +20483,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:6078:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6080:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20489,7 +20491,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6078:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6080:/ cond.else"); /*^block */ /*anyblock */ @@ -20503,7 +20505,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6078) ? (6078) : __LINE__, __FUNCTION__); + (6080) ? (6080) : __LINE__, __FUNCTION__); ; } ; @@ -20518,7 +20520,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6078:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6080:/ clear"); /*clear *//*_#IS_OBJECT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -20531,7 +20533,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6079:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6081:/ cppif.then"); /*^block */ /*anyblock */ { @@ -20542,7 +20544,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:6079:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6081:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20550,7 +20552,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6079:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6081:/ cond.else"); /*^block */ /*anyblock */ @@ -20564,7 +20566,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6079) ? (6079) : __LINE__, __FUNCTION__); + (6081) ? (6081) : __LINE__, __FUNCTION__); ; } ; @@ -20579,7 +20581,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6079:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6081:/ clear"); /*clear *//*_#IS_CLOSURE__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -20590,7 +20592,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6080:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6082:/ quasiblock"); /*^getslot */ @@ -20601,7 +20603,7 @@ lab_endgetargs:; meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6081:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6083:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -20619,7 +20621,7 @@ lab_endgetargs:; /*_.SLABNAM__V21*/ meltfptr[20] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6084:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6086:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20641,7 +20643,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6085:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6087:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20654,14 +20656,14 @@ lab_endgetargs:; (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6087:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6089:/ 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:6087:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6089:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -20671,13 +20673,13 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6089:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6091:/ 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:6090:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6092:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20686,7 +20688,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:6090:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6092:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20699,7 +20701,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6088:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6090:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[25] = /*_.RETURN___V25*/ meltfptr[24];; @@ -20708,7 +20710,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = /*_.PROGN___V26*/ meltfptr[25];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6087:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6089:/ clear"); /*clear *//*_.RETURN___V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.PROGN___V26*/ meltfptr[25] = 0; @@ -20725,10 +20727,10 @@ lab_endgetargs:; /*_.PAIR_TAIL__V27*/ meltfptr[24] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6091:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6093:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V28*/ meltfptr[25] = /*_.PAIR_TAIL__V27*/ meltfptr[24];; - MELT_LOCATION ("warmelt-macro.melt:6092:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6094:/ quasiblock"); /*^checksignal */ @@ -20750,14 +20752,14 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6093:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6095:/ 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:6093:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6095:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -20765,7 +20767,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6096:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6098:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.XLABNAM__V22*/ meltfptr[21]), 1, "NAMED_NAME"); @@ -20775,14 +20777,14 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:6095:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6097:/ 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:6097:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6099:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20791,7 +20793,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:6097:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6099:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20804,7 +20806,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6094:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6096:/ quasiblock"); /*_.PROGN___V34*/ meltfptr[33] = /*_.RETURN___V33*/ meltfptr[32];; @@ -20813,7 +20815,7 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[30] = /*_.PROGN___V34*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6093:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6095:/ clear"); /*clear *//*_.NAMED_NAME__V32*/ meltfptr[31] = 0; /*^clear */ /*clear *//*_.RETURN___V33*/ meltfptr[32] = 0; @@ -20828,10 +20830,10 @@ lab_endgetargs:; /*_.IF___V31*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6098:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6100:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6101:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6103:/ quasiblock"); /*^newclosure */ @@ -20882,7 +20884,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4]); ; /*_.LAMBDA___V36*/ meltfptr[32] = /*_.LAMBDA___V37*/ meltfptr[33];; - MELT_LOCATION ("warmelt-macro.melt:6098:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6100:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -20904,7 +20906,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6103:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6105:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20950,7 +20952,7 @@ lab_endgetargs:; ( /*_.BODYTUP__V38*/ meltfptr[37]), "SEXI_BODY"); ; /*_.EXR__V39*/ meltfptr[38] = /*_.INST__V40*/ meltfptr[39];; - MELT_LOCATION ("warmelt-macro.melt:6108:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6110:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -20959,7 +20961,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXR__V39*/ meltfptr[38];; { - MELT_LOCATION ("warmelt-macro.melt:6108:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6110:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -20974,7 +20976,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V35*/ meltfptr[31] = /*_.RETURN___V41*/ meltfptr[40];; - MELT_LOCATION ("warmelt-macro.melt:6098:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6100:/ clear"); /*clear *//*_.LAMBDA___V36*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.BODYTUP__V38*/ meltfptr[37] = 0; @@ -20984,7 +20986,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V41*/ meltfptr[40] = 0; /*_.LET___V29*/ meltfptr[28] = /*_.LET___V35*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:6092:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6094:/ clear"); /*clear *//*_.LABIND__V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L7*/ meltfnum[1] = 0; @@ -20994,7 +20996,7 @@ lab_endgetargs:; /*clear *//*_.LET___V35*/ meltfptr[31] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V29*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:6080:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6082:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -21018,7 +21020,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V28*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.LET___V29*/ meltfptr[28] = 0; - MELT_LOCATION ("warmelt-macro.melt:6075:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -21027,7 +21029,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6075:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21144,7 +21146,7 @@ meltrout_130_warmelt_macro_LAMBDA___36__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6101:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6103:/ getarg"); /*_.E__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -21185,7 +21187,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MEXPANDER__V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:6101:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6103:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21294,7 +21296,7 @@ meltrout_131_warmelt_macro_MEXPAND_AGAIN (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6118:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6120:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -21335,7 +21337,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6119:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6121:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21361,7 +21363,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6119:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6121:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21376,7 +21378,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6119:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6121:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21389,7 +21391,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6119; + argtab[2].meltbp_long = 6121; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_again sexpr"; /*^apply.arg */ @@ -21408,7 +21410,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6119:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6121:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -21421,7 +21423,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6119:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6121:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -21430,7 +21432,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6119:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6121:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -21445,7 +21447,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6120:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6122:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21457,7 +21459,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:6120:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6122:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21465,7 +21467,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6120:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6122:/ cond.else"); /*^block */ /*anyblock */ @@ -21479,7 +21481,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6120) ? (6120) : __LINE__, __FUNCTION__); + (6122) ? (6122) : __LINE__, __FUNCTION__); ; } ; @@ -21494,7 +21496,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6120:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6122:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -21507,7 +21509,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6121:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6123:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21518,7 +21520,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:6121:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6123:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21526,7 +21528,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6121:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6123:/ cond.else"); /*^block */ /*anyblock */ @@ -21540,7 +21542,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6121) ? (6121) : __LINE__, __FUNCTION__); + (6123) ? (6123) : __LINE__, __FUNCTION__); ; } ; @@ -21555,7 +21557,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6121:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6123:/ clear"); /*clear *//*_#IS_CLOSURE__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -21568,7 +21570,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6122:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6124:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21579,7 +21581,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:6122:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6124:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21587,7 +21589,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6122:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6124:/ cond.else"); /*^block */ /*anyblock */ @@ -21601,7 +21603,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6122) ? (6122) : __LINE__, __FUNCTION__); + (6124) ? (6124) : __LINE__, __FUNCTION__); ; } ; @@ -21616,7 +21618,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6122:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6124:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -21627,7 +21629,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6123:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6125:/ quasiblock"); /*^getslot */ @@ -21638,7 +21640,7 @@ lab_endgetargs:; meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6124:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6126:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -21656,7 +21658,7 @@ lab_endgetargs:; /*_.SLABNAM__V21*/ meltfptr[20] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6127:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6129:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -21680,17 +21682,17 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V23*/ meltfptr[22] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6129:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6131:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V24*/ meltfptr[23] = /*_.PAIR_TAIL__V23*/ meltfptr[22];; - MELT_LOCATION ("warmelt-macro.melt:6130:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6132:/ 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:6130:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6132:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -21700,20 +21702,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6132:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6134:/ 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:6133:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6135:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6133:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6135:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21726,7 +21728,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6131:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6133:/ quasiblock"); /*_.PROGN___V27*/ meltfptr[26] = /*_.RETURN___V26*/ meltfptr[25];; @@ -21735,7 +21737,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[24] = /*_.PROGN___V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6130:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6132:/ clear"); /*clear *//*_.RETURN___V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.PROGN___V27*/ meltfptr[26] = 0; @@ -21748,7 +21750,7 @@ lab_endgetargs:; /*_.IF___V25*/ meltfptr[24] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6134:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6136:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -21761,20 +21763,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6136:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6138:/ 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:6137:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6139:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6137:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6139:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21787,7 +21789,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6135:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6137:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[29] = /*_.RETURN___V29*/ meltfptr[26];; @@ -21796,7 +21798,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[25] = /*_.PROGN___V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6134:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6136:/ clear"); /*clear *//*_.RETURN___V29*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.PROGN___V30*/ meltfptr[29] = 0; @@ -21809,7 +21811,7 @@ lab_endgetargs:; /*_.IF___V28*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6138:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6140:/ quasiblock"); /*^checksignal */ @@ -21831,14 +21833,14 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6139:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6141:/ 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:6139:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6141:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -21846,7 +21848,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6142:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6144:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.XLABNAM__V22*/ meltfptr[21]), 1, "NAMED_NAME"); @@ -21856,20 +21858,20 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:6141:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6143:/ 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:6143:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6145:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6143:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6145:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -21882,7 +21884,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6140:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6142:/ quasiblock"); /*_.PROGN___V36*/ meltfptr[35] = /*_.RETURN___V35*/ meltfptr[34];; @@ -21891,7 +21893,7 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[32] = /*_.PROGN___V36*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6139:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6141:/ clear"); /*clear *//*_.NAMED_NAME__V34*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.RETURN___V35*/ meltfptr[34] = 0; @@ -21906,7 +21908,7 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[32] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6144:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6146:/ quasiblock"); /*^checksignal */ @@ -21948,7 +21950,7 @@ lab_endgetargs:; /*_.MAGAIN__V38*/ meltfptr[34] = /*_.INST__V39*/ meltfptr[35];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6149:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6151:/ cppif.then"); /*^block */ /*anyblock */ { @@ -21974,7 +21976,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6149:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6151:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -21989,7 +21991,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6149:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6151:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22002,7 +22004,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6149; + argtab[2].meltbp_long = 6151; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_again result"; /*^apply.arg */ @@ -22022,7 +22024,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6149:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6151:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 0; @@ -22035,7 +22037,7 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[40] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6149:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6151:/ quasiblock"); /*_.PROGN___V43*/ meltfptr[41] = /*_.IF___V41*/ meltfptr[40];; @@ -22044,7 +22046,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[39] = /*_.PROGN___V43*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6149:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6151:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V41*/ meltfptr[40] = 0; @@ -22057,7 +22059,7 @@ lab_endgetargs:; /*_.IFCPP___V40*/ meltfptr[39] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6150:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6152:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22066,7 +22068,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.MAGAIN__V38*/ meltfptr[34];; { - MELT_LOCATION ("warmelt-macro.melt:6150:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6152:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22081,7 +22083,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V37*/ meltfptr[33] = /*_.RETURN___V44*/ meltfptr[40];; - MELT_LOCATION ("warmelt-macro.melt:6144:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6146:/ clear"); /*clear *//*_.MAGAIN__V38*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.IFCPP___V40*/ meltfptr[39] = 0; @@ -22089,7 +22091,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V44*/ meltfptr[40] = 0; /*_.LET___V31*/ meltfptr[26] = /*_.LET___V37*/ meltfptr[33];; - MELT_LOCATION ("warmelt-macro.melt:6138:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6140:/ clear"); /*clear *//*_.LABIND__V32*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L7*/ meltfnum[1] = 0; @@ -22099,7 +22101,7 @@ lab_endgetargs:; /*clear *//*_.LET___V37*/ meltfptr[33] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V31*/ meltfptr[26];; - MELT_LOCATION ("warmelt-macro.melt:6123:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6125:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -22123,7 +22125,7 @@ lab_endgetargs:; /*clear *//*_.IF___V28*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.LET___V31*/ meltfptr[26] = 0; - MELT_LOCATION ("warmelt-macro.melt:6118:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6120:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22132,7 +22134,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6118:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6120:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22252,7 +22254,7 @@ meltrout_132_warmelt_macro_MEXPAND_COMPILE_WARNING (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6162:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6164:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -22293,7 +22295,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6163:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6165:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22319,7 +22321,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6163:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6165:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22334,7 +22336,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6163:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6165:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22347,7 +22349,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6163; + argtab[2].meltbp_long = 6165; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_compile_warning sexpr"; /*^apply.arg */ @@ -22366,7 +22368,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6163:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6165:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -22379,7 +22381,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6163:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6165:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -22388,7 +22390,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6163:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6165:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -22403,7 +22405,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6164:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6166:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22415,7 +22417,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:6164:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6166:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22423,7 +22425,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6164:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6166:/ cond.else"); /*^block */ /*anyblock */ @@ -22437,7 +22439,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6164) ? (6164) : __LINE__, __FUNCTION__); + (6166) ? (6166) : __LINE__, __FUNCTION__); ; } ; @@ -22452,7 +22454,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6164:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6166:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -22465,7 +22467,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6165:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6167:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22476,7 +22478,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:6165:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6167:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -22484,7 +22486,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6165:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6167:/ cond.else"); /*^block */ /*anyblock */ @@ -22498,7 +22500,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6165) ? (6165) : __LINE__, __FUNCTION__); + (6167) ? (6167) : __LINE__, __FUNCTION__); ; } ; @@ -22513,7 +22515,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6165:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6167:/ clear"); /*clear *//*_#IS_OBJECT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -22524,12 +22526,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6166:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6168:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6166:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6168:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -22543,7 +22545,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6166:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6168:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -22554,7 +22556,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6167:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6169:/ quasiblock"); /*^getslot */ @@ -22565,7 +22567,7 @@ lab_endgetargs:; meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6168:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6170:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -22583,7 +22585,7 @@ lab_endgetargs:; /*_.SMSG__V21*/ meltfptr[20] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6171:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6173:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22605,7 +22607,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6173:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6175:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L6*/ meltfnum[0] = @@ -22615,7 +22617,7 @@ lab_endgetargs:; /*_#NOT__L7*/ meltfnum[6] = (!( /*_#IS_STRING__L6*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:6173:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6175:/ cond"); /*cond */ if ( /*_#NOT__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ @@ -22625,14 +22627,14 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6175:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6177:/ 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:6176:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6178:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22641,7 +22643,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:6176:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6178:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22654,7 +22656,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6174:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6176:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[24] = /*_.RETURN___V24*/ meltfptr[23];; @@ -22663,7 +22665,7 @@ lab_endgetargs:; /*_.IF___V23*/ meltfptr[22] = /*_.PROGN___V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6173:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6175:/ clear"); /*clear *//*_.RETURN___V24*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.PROGN___V25*/ meltfptr[24] = 0; @@ -22680,15 +22682,15 @@ lab_endgetargs:; /*_.PAIR_TAIL__V26*/ meltfptr[23] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6177:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6179:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V27*/ meltfptr[24] = /*_.PAIR_TAIL__V26*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:6178:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6180:/ quasiblock"); /*_.SEXP__V29*/ meltfptr[28] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6179:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6181:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22712,15 +22714,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V31*/ meltfptr[30] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));; - MELT_LOCATION ("warmelt-macro.melt:6181:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6183:/ compute"); /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V32*/ meltfptr[31] = /*_.PAIR_TAIL__V31*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:6182:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6184:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOTNULL__L8*/ meltfnum[7] = (( /*_.CURPAIR__V20*/ meltfptr[19]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:6182:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6184:/ cond"); /*cond */ if ( /*_#NOTNULL__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -22730,7 +22732,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6183:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6185:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("too many arguments in (COMPILE_WARNING <msg> [<exp>])"), @@ -22742,7 +22744,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6184:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6186:/ quasiblock"); /*^checksignal */ @@ -22791,7 +22793,7 @@ lab_endgetargs:; /*_.RES__V34*/ meltfptr[33] = /*_.INST__V35*/ meltfptr[34];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6190:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6192:/ cppif.then"); /*^block */ /*anyblock */ { @@ -22817,7 +22819,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6190:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6192:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -22832,7 +22834,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6190:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6192:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -22846,7 +22848,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6190; + argtab[2].meltbp_long = 6192; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_compile_warning result"; /*^apply.arg */ @@ -22866,7 +22868,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6190:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6192:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0; @@ -22879,7 +22881,7 @@ lab_endgetargs:; /*_.IF___V37*/ meltfptr[36] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6190:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6192:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[37] = /*_.IF___V37*/ meltfptr[36];; @@ -22888,7 +22890,7 @@ lab_endgetargs:; /*_.IFCPP___V36*/ meltfptr[35] = /*_.PROGN___V39*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6190:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6192:/ clear"); /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.IF___V37*/ meltfptr[36] = 0; @@ -22901,7 +22903,7 @@ lab_endgetargs:; /*_.IFCPP___V36*/ meltfptr[35] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6191:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6193:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22910,7 +22912,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V34*/ meltfptr[33];; { - MELT_LOCATION ("warmelt-macro.melt:6191:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6193:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -22925,7 +22927,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V33*/ meltfptr[32] = /*_.RETURN___V40*/ meltfptr[36];; - MELT_LOCATION ("warmelt-macro.melt:6184:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6186:/ clear"); /*clear *//*_.RES__V34*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.IFCPP___V36*/ meltfptr[35] = 0; @@ -22933,7 +22935,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V40*/ meltfptr[36] = 0; /*_.LET___V28*/ meltfptr[27] = /*_.LET___V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:6178:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6180:/ clear"); /*clear *//*_.SEXP__V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.XEXP__V30*/ meltfptr[29] = 0; @@ -22947,7 +22949,7 @@ lab_endgetargs:; /*clear *//*_.LET___V33*/ meltfptr[32] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:6167:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6169:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -22971,7 +22973,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V27*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.LET___V28*/ meltfptr[27] = 0; - MELT_LOCATION ("warmelt-macro.melt:6162:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6164:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -22980,7 +22982,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6162:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6164:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23101,7 +23103,7 @@ meltrout_133_warmelt_macro_MEXPAND_ASSERT_MSG (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6206:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -23142,7 +23144,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6207:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6209:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23168,7 +23170,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6207:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6209:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23183,7 +23185,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6207:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6209:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23196,7 +23198,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6207; + argtab[2].meltbp_long = 6209; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_assert_msg sexpr="; /*^apply.arg */ @@ -23215,7 +23217,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6207:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6209:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -23228,7 +23230,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6207:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6209:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -23237,7 +23239,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6207:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6209:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -23252,7 +23254,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6208:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6210:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23264,7 +23266,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:6208:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6210:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -23272,7 +23274,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6208:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6210:/ cond.else"); /*^block */ /*anyblock */ @@ -23286,7 +23288,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6208) ? (6208) : __LINE__, __FUNCTION__); + (6210) ? (6210) : __LINE__, __FUNCTION__); ; } ; @@ -23301,7 +23303,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6208:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6210:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -23314,7 +23316,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6209:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6211:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23326,7 +23328,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:6209:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6211:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23334,7 +23336,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6209:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6211:/ cond.else"); /*^block */ /*anyblock */ @@ -23348,7 +23350,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6209) ? (6209) : __LINE__, __FUNCTION__); + (6211) ? (6211) : __LINE__, __FUNCTION__); ; } ; @@ -23363,7 +23365,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6209:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6211:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -23374,12 +23376,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6210:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6212:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6210:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6212:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -23393,7 +23395,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6210:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6212:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -23406,7 +23408,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6211:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6213:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23417,7 +23419,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:6211:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6213:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -23425,7 +23427,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6211:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6213:/ cond.else"); /*^block */ /*anyblock */ @@ -23439,7 +23441,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6211) ? (6211) : __LINE__, __FUNCTION__); + (6213) ? (6213) : __LINE__, __FUNCTION__); ; } ; @@ -23454,7 +23456,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6211:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6213:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -23465,10 +23467,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6212:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6214:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6213:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6215:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -23476,7 +23478,7 @@ lab_endgetargs:; meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6214:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6216:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -23494,7 +23496,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6216:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6218:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23521,7 +23523,7 @@ lab_endgetargs:; /*_.ASSFAIL_SYMB__V26*/ meltfptr[25] = ( /*!konst_4_ASSERT_FAILED */ meltfrout->tabval[4]);; - MELT_LOCATION ("warmelt-macro.melt:6219:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6221:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23540,7 +23542,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6221:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L7*/ meltfnum[0] = @@ -23550,7 +23552,7 @@ lab_endgetargs:; /*_#NOT__L8*/ meltfnum[7] = (!( /*_#IS_STRING__L7*/ meltfnum[0]));; - MELT_LOCATION ("warmelt-macro.melt:6221:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6223:/ cond"); /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -23560,7 +23562,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6222:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6224:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("non string message in (ASSERT_MSG <msg> <test>)"), @@ -23574,16 +23576,16 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V28*/ meltfptr[27] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6223:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6225:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V29*/ meltfptr[28] = /*_.PAIR_TAIL__V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:6224:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6226:/ 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:6224:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6226:/ cond"); /*cond */ if ( /*_#IS_PAIR__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -23591,13 +23593,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6225:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6227:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V31*/ meltfptr[30] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6225:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6227:/ cond"); /*cond */ if ( /*_.PAIR_TAIL__V31*/ meltfptr[30]) /*then */ { /*^cond.then */ @@ -23607,7 +23609,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6226:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6228:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -23623,7 +23625,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V32*/ meltfptr[31] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6227:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6229:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23651,7 +23653,7 @@ lab_endgetargs:; /*^compute */ /*_.XTEST__V25*/ meltfptr[24] = /*_.SETQ___V34*/ meltfptr[33] = /*_.MEXPANDER__V33*/ meltfptr[32];; - MELT_LOCATION ("warmelt-macro.melt:6224:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6226:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[34] = /*_.SETQ___V34*/ meltfptr[33];; @@ -23660,7 +23662,7 @@ lab_endgetargs:; /*_.IFELSE___V30*/ meltfptr[29] = /*_.PROGN___V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6224:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6226:/ clear"); /*clear *//*_.PAIR_TAIL__V31*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.PAIR_HEAD__V32*/ meltfptr[31] = 0; @@ -23680,37 +23682,37 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6229:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6231:/ compute"); /*_.XTEST__V25*/ meltfptr[24] = /*_.SETQ___V36*/ meltfptr[30] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:6230:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6232:/ 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:6228:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6230:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6224:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6226:/ clear"); /*clear *//*_.SETQ___V36*/ meltfptr[30] = 0; } ; } ; - MELT_LOCATION ("warmelt-macro.melt:6232:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6234:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6235:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6237:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L10*/ meltfnum[9] = (( /*_.ASSFAIL_BINDING__V27*/ meltfptr[26]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6235:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6237:/ cond"); /*cond */ if ( /*_#NULL__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -23720,7 +23722,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6236:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6238:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("unbound ASSERT_FAILED in (ASSERT_MSG <msg> <test>)"), @@ -23729,7 +23731,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6237:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6239:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23755,7 +23757,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6237:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6239:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -23776,7 +23778,7 @@ lab_endgetargs:; ((melt_ptr_t) (melt_discr ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]))));; - MELT_LOCATION ("warmelt-macro.melt:6239:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6241:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23796,7 +23798,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6237:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6239:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -23810,7 +23812,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6237; + argtab[2].meltbp_long = 6239; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_assert_msg without assert_failed env="; @@ -23850,7 +23852,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6237:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6239:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.DISCRIM__V41*/ meltfptr[30] = 0; @@ -23867,7 +23869,7 @@ lab_endgetargs:; /*_.IF___V40*/ meltfptr[34] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6237:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6239:/ quasiblock"); /*_.PROGN___V44*/ meltfptr[30] = /*_.IF___V40*/ meltfptr[34];; @@ -23876,7 +23878,7 @@ lab_endgetargs:; /*_.IFCPP___V39*/ meltfptr[33] = /*_.PROGN___V44*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6237:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6239:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V40*/ meltfptr[34] = 0; @@ -23891,7 +23893,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6241:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6243:/ cppif.then"); /*^block */ /*anyblock */ { @@ -23907,7 +23909,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6241:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6243:/ cond.else"); /*^block */ /*anyblock */ @@ -23921,7 +23923,7 @@ lab_endgetargs:; melt_assert_failed (("assfail_binding nul! @@"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6241) ? (6241) : __LINE__, + (6243) ? (6243) : __LINE__, __FUNCTION__); ; } @@ -23937,7 +23939,7 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[41] = /*_.IFELSE___V46*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6241:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6243:/ clear"); /*clear *//*_.IFELSE___V46*/ meltfptr[42] = 0; } @@ -23946,13 +23948,13 @@ lab_endgetargs:; /*_.IFCPP___V45*/ meltfptr[41] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6242:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6244:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6242:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6244:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -23965,7 +23967,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6235:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6237:/ quasiblock"); /*_.PROGN___V48*/ meltfptr[30] = /*_.RETURN___V47*/ meltfptr[34];; @@ -23974,7 +23976,7 @@ lab_endgetargs:; /*_.AFPRIM__V38*/ meltfptr[32] = /*_.PROGN___V48*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6235:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6237:/ clear"); /*clear *//*_.IFCPP___V39*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.IFCPP___V45*/ meltfptr[41] = 0; @@ -23992,7 +23994,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6243:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6245:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L13*/ meltfnum[11] = @@ -24000,7 +24002,7 @@ lab_endgetargs:; ( /*_.ASSFAIL_BINDING__V27*/ meltfptr[26]), (melt_ptr_t) (( /*!CLASS_PRIMITIVE_BINDING */ meltfrout->tabval[7])));; - MELT_LOCATION ("warmelt-macro.melt:6243:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6245:/ cond"); /*cond */ if ( /*_#IS_A__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -24008,7 +24010,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6244:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6246:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ASSFAIL_BINDING__V27*/ meltfptr[26]), 3, "PBIND_PRIMITIVE"); @@ -24020,7 +24022,7 @@ lab_endgetargs:; /*_.PBIND_PRIMITIVE__V50*/ meltfptr[33];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6243:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6245:/ clear"); /*clear *//*_.PBIND_PRIMITIVE__V50*/ meltfptr[33] = 0; } ; @@ -24032,7 +24034,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6245:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6247:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^checksignal */ @@ -24043,7 +24045,7 @@ lab_endgetargs:; ( /*_.ASSFAIL_BINDING__V27*/ meltfptr[26]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[8])));; - MELT_LOCATION ("warmelt-macro.melt:6245:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6247:/ cond"); /*cond */ if ( /*_#IS_A__L14*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -24051,7 +24053,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6246:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6248:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ASSFAIL_BINDING__V27*/ meltfptr[26]), 1, "VBIND_VALUE"); @@ -24070,7 +24072,7 @@ lab_endgetargs:; /*_#IS_A__L16*/ meltfnum[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6245:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6247:/ clear"); /*clear *//*_.VBIND_VALUE__V51*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_#IS_A__L16*/ meltfnum[15] = 0; @@ -24083,7 +24085,7 @@ lab_endgetargs:; /*_#IF___L15*/ meltfnum[14] = 0;; } ; - MELT_LOCATION ("warmelt-macro.melt:6245:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6247:/ cond"); /*cond */ if ( /*_#IF___L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -24091,7 +24093,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6248:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6250:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.ASSFAIL_BINDING__V27*/ meltfptr[26]), 1, "VBIND_VALUE"); @@ -24103,7 +24105,7 @@ lab_endgetargs:; /*_.VBIND_VALUE__V53*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6245:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6247:/ clear"); /*clear *//*_.VBIND_VALUE__V53*/ meltfptr[30] = 0; } ; @@ -24117,7 +24119,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6250:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6252:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24143,7 +24145,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6250:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6252:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -24159,7 +24161,7 @@ lab_endgetargs:; #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION - ("warmelt-macro.melt:6250:/ checksignal"); + ("warmelt-macro.melt:6252:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24174,7 +24176,7 @@ lab_endgetargs:; argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6250; + argtab[2].meltbp_long = 6252; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_assert_msg bad assfail_binding="; @@ -24200,7 +24202,7 @@ lab_endgetargs:; /*epilog */ MELT_LOCATION - ("warmelt-macro.melt:6250:/ clear"); + ("warmelt-macro.melt:6252:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0; /*^clear */ @@ -24216,7 +24218,7 @@ lab_endgetargs:; } ; MELT_LOCATION - ("warmelt-macro.melt:6250:/ quasiblock"); + ("warmelt-macro.melt:6252:/ quasiblock"); /*_.PROGN___V57*/ meltfptr[30] = @@ -24227,7 +24229,7 @@ lab_endgetargs:; /*_.PROGN___V57*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6250:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6252:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V55*/ meltfptr[41] = 0; @@ -24242,7 +24244,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:6251:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6253:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), @@ -24250,13 +24252,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6252:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6254:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6252:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6254:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] @@ -24270,7 +24272,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6249:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6251:/ quasiblock"); /*_.PROGN___V59*/ meltfptr[30] = @@ -24281,7 +24283,7 @@ lab_endgetargs:; /*_.PROGN___V59*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6245:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6247:/ clear"); /*clear *//*_.IFCPP___V54*/ meltfptr[33] = 0; /*^clear */ /*clear *//*_.RETURN___V58*/ meltfptr[41] = 0; @@ -24295,7 +24297,7 @@ lab_endgetargs:; /*_.IFELSE___V52*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6243:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6245:/ clear"); /*clear *//*_#IS_A__L14*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_#IF___L15*/ meltfnum[14] = 0; @@ -24308,7 +24310,7 @@ lab_endgetargs:; /*_.AFPRIM__V38*/ meltfptr[32] = /*_.IFELSE___V49*/ meltfptr[42];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6235:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6237:/ clear"); /*clear *//*_#IS_A__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.IFELSE___V49*/ meltfptr[42] = 0; @@ -24316,13 +24318,13 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:6255:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6257:/ 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:6255:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6257:/ cond"); /*cond */ if ( /*_#IS_MIXINT__L19*/ meltfnum[17]) /*then */ { /*^cond.then */ @@ -24338,7 +24340,7 @@ lab_endgetargs:; /*_.MIXINT_VAL__V61*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6255:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6257:/ clear"); /*clear *//*_.MIXINT_VAL__V61*/ meltfptr[41] = 0; } ; @@ -24350,13 +24352,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6256:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6258:/ 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:6256:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6258:/ cond"); /*cond */ if ( /*_#IS_MIXLOC__L20*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -24373,7 +24375,7 @@ lab_endgetargs:; /*_.MIXLOC_VAL__V63*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6256:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6258:/ clear"); /*clear *//*_.MIXLOC_VAL__V63*/ meltfptr[34] = 0; } ; @@ -24389,7 +24391,7 @@ lab_endgetargs:; /*_.FILNAM__V60*/ meltfptr[33] = /*_.IFELSE___V62*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6255:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6257:/ clear"); /*clear *//*_#IS_MIXLOC__L20*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IFELSE___V62*/ meltfptr[30] = 0; @@ -24397,7 +24399,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:6257:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6259:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#GET_INT__L21*/ meltfnum[10] = @@ -24408,7 +24410,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[11])), ( /*_#GET_INT__L21*/ meltfnum[10])));; - MELT_LOCATION ("warmelt-macro.melt:6261:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6263:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -24430,11 +24432,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#12 */ - melt_assertmsg ("putupl [:6261] #12 checktup", + melt_assertmsg ("putupl [:6263] #12 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V66*/ meltfptr[34])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6261] #12 checkoff", + melt_assertmsg ("putupl [:6263] #12 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -24445,11 +24447,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#13 */ - melt_assertmsg ("putupl [:6261] #13 checktup", + melt_assertmsg ("putupl [:6263] #13 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V66*/ meltfptr[34])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6261] #13 checkoff", + melt_assertmsg ("putupl [:6263] #13 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) @@ -24460,11 +24462,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#14 */ - melt_assertmsg ("putupl [:6261] #14 checktup", + melt_assertmsg ("putupl [:6263] #14 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V66*/ meltfptr[34])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6261] #14 checkoff", + melt_assertmsg ("putupl [:6263] #14 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) @@ -24479,13 +24481,13 @@ lab_endgetargs:; /*_.TUPLE___V65*/ meltfptr[41] = /*_.TUPLREC___V66*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6261:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6263:/ clear"); /*clear *//*_.TUPLREC___V66*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.TUPLREC___V66*/ meltfptr[34] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6257:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6259:/ quasiblock"); /*^rawallocobj */ @@ -24528,7 +24530,7 @@ lab_endgetargs:; ( /*_.TUPLE___V65*/ meltfptr[41]), "SARGOP_ARGS"); ; /*_.APRIM__V67*/ meltfptr[30] = /*_.INST__V68*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:6265:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6267:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -24583,7 +24585,7 @@ lab_endgetargs:; ( /*_.APRIM__V67*/ meltfptr[30]), "SIF_ELSE"); ; /*_.ATEST__V69*/ meltfptr[68] = /*_.INST__V70*/ meltfptr[69];; - MELT_LOCATION ("warmelt-macro.melt:6271:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6273:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -24641,7 +24643,7 @@ lab_endgetargs:; /*_.ACPPIF__V71*/ meltfptr[70] = /*_.INST__V72*/ meltfptr[71];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6278:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6280:/ cppif.then"); /*^block */ /*anyblock */ { @@ -24667,7 +24669,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6278:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6280:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -24682,7 +24684,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6278:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6280:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -24696,7 +24698,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6278; + argtab[2].meltbp_long = 6280; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_assert_msg result acppif"; /*^apply.arg */ @@ -24716,7 +24718,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V75*/ meltfptr[74];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6278:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6280:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V75*/ meltfptr[74] = 0; @@ -24729,7 +24731,7 @@ lab_endgetargs:; /*_.IF___V74*/ meltfptr[73] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6278:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6280:/ quasiblock"); /*_.PROGN___V76*/ meltfptr[74] = /*_.IF___V74*/ meltfptr[73];; @@ -24738,7 +24740,7 @@ lab_endgetargs:; /*_.IFCPP___V73*/ meltfptr[72] = /*_.PROGN___V76*/ meltfptr[74];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6278:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6280:/ clear"); /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IF___V74*/ meltfptr[73] = 0; @@ -24751,7 +24753,7 @@ lab_endgetargs:; /*_.IFCPP___V73*/ meltfptr[72] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6279:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6281:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -24760,7 +24762,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.ACPPIF__V71*/ meltfptr[70];; { - MELT_LOCATION ("warmelt-macro.melt:6279:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6281:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -24775,7 +24777,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V37*/ meltfptr[31] = /*_.RETURN___V77*/ meltfptr[73];; - MELT_LOCATION ("warmelt-macro.melt:6232:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6234:/ clear"); /*clear *//*_#NULL__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.AFPRIM__V38*/ meltfptr[32] = 0; @@ -24801,7 +24803,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V77*/ meltfptr[73] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V37*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:6212:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6214:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -24833,7 +24835,7 @@ lab_endgetargs:; /*clear *//*_.IFELSE___V30*/ meltfptr[29] = 0; /*^clear */ /*clear *//*_.LET___V37*/ meltfptr[31] = 0; - MELT_LOCATION ("warmelt-macro.melt:6206:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -24842,7 +24844,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6206:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -24965,7 +24967,7 @@ meltrout_134_warmelt_macro_MEXPAND_DEBUG_MSG (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6295:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -25006,7 +25008,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6296:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6298:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25032,7 +25034,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6296:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6298:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -25047,7 +25049,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6296:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6298:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25060,7 +25062,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6296; + argtab[2].meltbp_long = 6298; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_debug_msg sexpr"; /*^apply.arg */ @@ -25079,7 +25081,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6296:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6298:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -25092,7 +25094,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6296:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6298:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -25101,7 +25103,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6296:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6298:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -25116,7 +25118,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6297:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6299:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25128,7 +25130,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:6297:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6299:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -25136,7 +25138,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6297:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6299:/ cond.else"); /*^block */ /*anyblock */ @@ -25150,7 +25152,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6297) ? (6297) : __LINE__, __FUNCTION__); + (6299) ? (6299) : __LINE__, __FUNCTION__); ; } ; @@ -25165,7 +25167,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6297:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6299:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -25178,7 +25180,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6298:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6300:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25190,7 +25192,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:6298:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6300:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -25198,7 +25200,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6298:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6300:/ cond.else"); /*^block */ /*anyblock */ @@ -25212,7 +25214,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6298) ? (6298) : __LINE__, __FUNCTION__); + (6300) ? (6300) : __LINE__, __FUNCTION__); ; } ; @@ -25227,7 +25229,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6298:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6300:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -25240,7 +25242,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6299:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6301:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25251,7 +25253,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:6299:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6301:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -25259,7 +25261,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6299:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6301:/ cond.else"); /*^block */ /*anyblock */ @@ -25273,7 +25275,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6299) ? (6299) : __LINE__, __FUNCTION__); + (6301) ? (6301) : __LINE__, __FUNCTION__); ; } ; @@ -25288,7 +25290,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6299:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6301:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -25301,7 +25303,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6300:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6302:/ cppif.then"); /*^block */ /*anyblock */ { @@ -25312,7 +25314,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:6300:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6302:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -25320,7 +25322,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6300:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6302:/ cond.else"); /*^block */ /*anyblock */ @@ -25334,7 +25336,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6300) ? (6300) : __LINE__, __FUNCTION__); + (6302) ? (6302) : __LINE__, __FUNCTION__); ; } ; @@ -25349,7 +25351,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6300:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6302:/ clear"); /*clear *//*_#IS_CLOSURE__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -25360,10 +25362,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6301:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6303:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6302:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6304:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -25371,7 +25373,7 @@ lab_endgetargs:; meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6303:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6305:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -25389,7 +25391,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6305:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6307:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25417,7 +25419,7 @@ lab_endgetargs:; /*_.XCOUNT__V26*/ meltfptr[25] = ( /*nil */ NULL);; { - MELT_LOCATION ("warmelt-macro.melt:6309:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6311:/ locexp"); melt_warning_str (0, (melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(DEBUG_MSG ....) is obsolete, use (DEBUG ...) variadically"), (melt_ptr_t) 0); @@ -25425,10 +25427,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V27*/ meltfptr[26] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6310:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6312:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V28*/ meltfptr[27] = /*_.PAIR_TAIL__V27*/ meltfptr[26];; - MELT_LOCATION ("warmelt-macro.melt:6311:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6313:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L7*/ meltfnum[1] = @@ -25438,7 +25440,7 @@ lab_endgetargs:; /*_#NOT__L8*/ meltfnum[0] = (!( /*_#IS_PAIR__L7*/ meltfnum[1]));; - MELT_LOCATION ("warmelt-macro.melt:6311:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6313:/ cond"); /*cond */ if ( /*_#NOT__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -25448,7 +25450,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6312:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6314:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("missing message in DEBUG_MSG"), @@ -25462,7 +25464,7 @@ lab_endgetargs:; ; /*_.PAIR_HEAD__V29*/ meltfptr[28] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6313:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6315:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25489,16 +25491,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:6314:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6316:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V33*/ meltfptr[32] = /*_.PAIR_TAIL__V32*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:6315:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6317:/ 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:6315:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6317:/ cond"); /*cond */ if ( /*_#IS_PAIR__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -25509,7 +25511,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V35*/ meltfptr[34] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6317:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6319:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25540,10 +25542,10 @@ lab_endgetargs:; /*_.PAIR_TAIL__V38*/ meltfptr[37] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6318:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6320:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V39*/ meltfptr[38] = /*_.PAIR_TAIL__V38*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:6316:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6318:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[39] = /*_.SETQ___V39*/ meltfptr[38];; @@ -25552,7 +25554,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = /*_.PROGN___V40*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6315:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6317:/ clear"); /*clear *//*_.PAIR_HEAD__V35*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.MEXPANDER__V36*/ meltfptr[35] = 0; @@ -25573,7 +25575,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6319:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6321:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^cond */ @@ -25586,7 +25588,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6320:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6322:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("too many arguments to DEBUG_MSG"), @@ -25598,7 +25600,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6321:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6323:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L10*/ meltfnum[9] = @@ -25608,7 +25610,7 @@ lab_endgetargs:; /*_#NOT__L11*/ meltfnum[10] = (!( /*_#IS_STRING__L10*/ meltfnum[9]));; - MELT_LOCATION ("warmelt-macro.melt:6321:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6323:/ cond"); /*cond */ if ( /*_#NOT__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -25618,7 +25620,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6322:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6324:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("message argument should be string in DEBUG_MSG"), @@ -25630,12 +25632,12 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6323:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6325:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L12*/ meltfnum[11] = (( /*_.XCOUNT__V26*/ meltfptr[25]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6323:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6325:/ cond"); /*cond */ if ( /*_#NULL__L12*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -25643,7 +25645,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6324:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6326:/ quasiblock"); /*_.CONLIS__V43*/ meltfptr[36] = @@ -25652,13 +25654,13 @@ lab_endgetargs:; (( /*!DISCR_LIST */ meltfrout->tabval[3]))));; { - MELT_LOCATION ("warmelt-macro.melt:6325:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6327:/ 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:6326:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6328:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -25697,7 +25699,7 @@ lab_endgetargs:; "LOCA_LOCATION"); ; /*_.INST___V44*/ meltfptr[37] = /*_.INST__V45*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:6326:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6328:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -25724,7 +25726,7 @@ lab_endgetargs:; /*_.MACROEXPAND_1__V46*/ meltfptr[39];; /*_.LET___V42*/ meltfptr[35] = /*_.SETQ___V47*/ meltfptr[46];; - MELT_LOCATION ("warmelt-macro.melt:6324:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6326:/ clear"); /*clear *//*_.CONLIS__V43*/ meltfptr[36] = 0; /*^clear */ /*clear *//*_.INST___V44*/ meltfptr[37] = 0; @@ -25735,7 +25737,7 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[34] = /*_.LET___V42*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6323:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6325:/ clear"); /*clear *//*_.LET___V42*/ meltfptr[35] = 0; } ; @@ -25746,16 +25748,16 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[34] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6330:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6332:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6332:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6334:/ 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:6332:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6334:/ cond"); /*cond */ if ( /*_#IS_MIXINT__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -25771,7 +25773,7 @@ lab_endgetargs:; /*_.MIXINT_VAL__V50*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6332:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6334:/ clear"); /*clear *//*_.MIXINT_VAL__V50*/ meltfptr[39] = 0; } ; @@ -25783,13 +25785,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6333:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6335:/ 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:6333:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6335:/ cond"); /*cond */ if ( /*_#IS_MIXLOC__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -25806,7 +25808,7 @@ lab_endgetargs:; /*_.MIXLOC_VAL__V52*/ meltfptr[35];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6333:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6335:/ clear"); /*clear *//*_.MIXLOC_VAL__V52*/ meltfptr[35] = 0; } ; @@ -25822,7 +25824,7 @@ lab_endgetargs:; /*_.DFILNAM__V49*/ meltfptr[37] = /*_.IFELSE___V51*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6332:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6334:/ clear"); /*clear *//*_#IS_MIXLOC__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IFELSE___V51*/ meltfptr[46] = 0; @@ -25830,7 +25832,7 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:6334:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6336:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#GET_INT__L15*/ meltfnum[13] = @@ -25841,7 +25843,7 @@ lab_endgetargs:; (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_INTEGER */ meltfrout->tabval[8])), ( /*_#GET_INT__L15*/ meltfnum[13])));; - MELT_LOCATION ("warmelt-macro.melt:6338:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6340:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -25863,11 +25865,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#15 */ - melt_assertmsg ("putupl [:6338] #15 checktup", + melt_assertmsg ("putupl [:6340] #15 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V55*/ meltfptr[46])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6338] #15 checkoff", + melt_assertmsg ("putupl [:6340] #15 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -25878,11 +25880,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#16 */ - melt_assertmsg ("putupl [:6338] #16 checktup", + melt_assertmsg ("putupl [:6340] #16 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V55*/ meltfptr[46])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6338] #16 checkoff", + melt_assertmsg ("putupl [:6340] #16 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) @@ -25893,11 +25895,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#17 */ - melt_assertmsg ("putupl [:6338] #17 checktup", + melt_assertmsg ("putupl [:6340] #17 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V55*/ meltfptr[46])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6338] #17 checkoff", + melt_assertmsg ("putupl [:6340] #17 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) @@ -25908,11 +25910,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#18 */ - melt_assertmsg ("putupl [:6338] #18 checktup", + melt_assertmsg ("putupl [:6340] #18 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V55*/ meltfptr[46])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6338] #18 checkoff", + melt_assertmsg ("putupl [:6340] #18 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) @@ -25923,11 +25925,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#19 */ - melt_assertmsg ("putupl [:6338] #19 checktup", + melt_assertmsg ("putupl [:6340] #19 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V55*/ meltfptr[46])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6338] #19 checkoff", + melt_assertmsg ("putupl [:6340] #19 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) @@ -25942,13 +25944,13 @@ lab_endgetargs:; /*_.TUPLE___V54*/ meltfptr[35] = /*_.TUPLREC___V55*/ meltfptr[46];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6338:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6340:/ clear"); /*clear *//*_.TUPLREC___V55*/ meltfptr[46] = 0; /*^clear */ /*clear *//*_.TUPLREC___V55*/ meltfptr[46] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6334:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6336:/ quasiblock"); /*^rawallocobj */ @@ -25992,7 +25994,7 @@ lab_endgetargs:; ( /*_.TUPLE___V54*/ meltfptr[35]), "SARGOP_ARGS"); ; /*_.DCALL__V56*/ meltfptr[46] = /*_.INST__V57*/ meltfptr[56];; - MELT_LOCATION ("warmelt-macro.melt:6344:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6346:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26050,7 +26052,7 @@ lab_endgetargs:; /*_.DCPPIF__V58*/ meltfptr[57] = /*_.INST__V59*/ meltfptr[58];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6351:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6353:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26076,7 +26078,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6351:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6353:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -26091,7 +26093,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6351:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6353:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26105,7 +26107,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6351; + argtab[2].meltbp_long = 6353; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_debug_msg result dcppif"; /*^apply.arg */ @@ -26125,7 +26127,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V62*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6351:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6353:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V62*/ meltfptr[61] = 0; @@ -26138,7 +26140,7 @@ lab_endgetargs:; /*_.IF___V61*/ meltfptr[60] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6351:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6353:/ quasiblock"); /*_.PROGN___V63*/ meltfptr[61] = /*_.IF___V61*/ meltfptr[60];; @@ -26147,7 +26149,7 @@ lab_endgetargs:; /*_.IFCPP___V60*/ meltfptr[59] = /*_.PROGN___V63*/ meltfptr[61];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6351:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6353:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V61*/ meltfptr[60] = 0; @@ -26160,7 +26162,7 @@ lab_endgetargs:; /*_.IFCPP___V60*/ meltfptr[59] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6352:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6354:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26169,7 +26171,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.DCPPIF__V58*/ meltfptr[57];; { - MELT_LOCATION ("warmelt-macro.melt:6352:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6354:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -26184,7 +26186,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V48*/ meltfptr[36] = /*_.RETURN___V64*/ meltfptr[60];; - MELT_LOCATION ("warmelt-macro.melt:6330:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6332:/ clear"); /*clear *//*_#IS_MIXINT__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.DFILNAM__V49*/ meltfptr[37] = 0; @@ -26204,7 +26206,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V64*/ meltfptr[60] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V48*/ meltfptr[36];; - MELT_LOCATION ("warmelt-macro.melt:6301:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6303:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -26252,7 +26254,7 @@ lab_endgetargs:; /*clear *//*_.IF___V41*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.LET___V48*/ meltfptr[36] = 0; - MELT_LOCATION ("warmelt-macro.melt:6295:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -26261,7 +26263,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6295:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -26380,7 +26382,7 @@ meltrout_135_warmelt_macro_MEXPAND_DEBUG (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6367:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -26421,7 +26423,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6368:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6370:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26447,7 +26449,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6368:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6370:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -26462,7 +26464,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6368:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6370:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26475,7 +26477,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6368; + argtab[2].meltbp_long = 6370; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_debug sexpr"; /*^apply.arg */ @@ -26494,7 +26496,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6368:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6370:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -26507,7 +26509,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6368:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6370:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -26516,7 +26518,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6368:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6370:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -26531,7 +26533,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6369:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6371:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26543,7 +26545,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:6369:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6371:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26551,7 +26553,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6369:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6371:/ cond.else"); /*^block */ /*anyblock */ @@ -26565,7 +26567,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6369) ? (6369) : __LINE__, __FUNCTION__); + (6371) ? (6371) : __LINE__, __FUNCTION__); ; } ; @@ -26580,7 +26582,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6369:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6371:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -26593,7 +26595,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6370:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6372:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26605,7 +26607,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:6370:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6372:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -26613,7 +26615,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6370:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6372:/ cond.else"); /*^block */ /*anyblock */ @@ -26627,7 +26629,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6370) ? (6370) : __LINE__, __FUNCTION__); + (6372) ? (6372) : __LINE__, __FUNCTION__); ; } ; @@ -26642,7 +26644,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6370:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6372:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -26655,7 +26657,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6371:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6373:/ cppif.then"); /*^block */ /*anyblock */ { @@ -26666,7 +26668,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:6371:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6373:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26674,7 +26676,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6371:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6373:/ cond.else"); /*^block */ /*anyblock */ @@ -26688,7 +26690,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6371) ? (6371) : __LINE__, __FUNCTION__); + (6373) ? (6373) : __LINE__, __FUNCTION__); ; } ; @@ -26703,7 +26705,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6371:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6373:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -26714,10 +26716,10 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6372:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6374:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6373:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6375:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -26725,7 +26727,7 @@ lab_endgetargs:; meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6374:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6376:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -26733,13 +26735,13 @@ lab_endgetargs:; meltfptr[17] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6376:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6378:/ 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:6376:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6378:/ cond"); /*cond */ if ( /*_#IS_MIXINT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -26755,7 +26757,7 @@ lab_endgetargs:; /*_.MIXINT_VAL__V20*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6376:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6378:/ clear"); /*clear *//*_.MIXINT_VAL__V20*/ meltfptr[19] = 0; } ; @@ -26767,13 +26769,13 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6377:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6379:/ 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:6377:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6379:/ cond"); /*cond */ if ( /*_#IS_MIXLOC__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -26790,7 +26792,7 @@ lab_endgetargs:; /*_.MIXLOC_VAL__V22*/ meltfptr[21];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6377:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6379:/ clear"); /*clear *//*_.MIXLOC_VAL__V22*/ meltfptr[21] = 0; } ; @@ -26806,7 +26808,7 @@ lab_endgetargs:; /*_.DFILNAM__V19*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[19];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6376:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6378:/ clear"); /*clear *//*_#IS_MIXLOC__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V21*/ meltfptr[19] = 0; @@ -26816,7 +26818,7 @@ lab_endgetargs:; ; /*_#DLINE__L8*/ meltfnum[1] = (melt_get_int ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17])));; - MELT_LOCATION ("warmelt-macro.melt:6379:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6381:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26835,7 +26837,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6380:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6382:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26855,7 +26857,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6381:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6383:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26874,7 +26876,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6382:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6384:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26900,7 +26902,7 @@ lab_endgetargs:; /*_.CURPAIR__V28*/ meltfptr[27] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V27*/ meltfptr[26])));; - MELT_LOCATION ("warmelt-macro.melt:6384:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6386:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -26923,7 +26925,7 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6385:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6387:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_1_st @@ -26979,7 +26981,7 @@ lab_endgetargs:; /*_.DBGARGLIST__V30*/ meltfptr[29] = /*_.LIST___V32*/ meltfptr[31];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6385:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6387:/ clear"); /*clear *//*_.PAIROFLIST__V31*/ meltfptr[30] = 0; /*^clear */ /*clear *//*_.LIST___V32*/ meltfptr[31] = 0; @@ -26989,7 +26991,7 @@ lab_endgetargs:; /*clear *//*_.LIST___V32*/ meltfptr[31] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6387:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6389:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L9*/ meltfnum[8] = @@ -26999,7 +27001,7 @@ lab_endgetargs:; /*_#NOT__L10*/ meltfnum[9] = (!( /*_#IS_STRING__L9*/ meltfnum[8]));; - MELT_LOCATION ("warmelt-macro.melt:6387:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6389:/ cond"); /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -27009,20 +27011,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6389:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6391:/ 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:6390:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6392:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6390:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6392:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -27035,7 +27037,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6388:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6390:/ quasiblock"); /*_.PROGN___V35*/ meltfptr[34] = /*_.RETURN___V34*/ meltfptr[31];; @@ -27044,7 +27046,7 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[30] = /*_.PROGN___V35*/ meltfptr[34];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6387:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6389:/ clear"); /*clear *//*_.RETURN___V34*/ meltfptr[31] = 0; /*^clear */ /*clear *//*_.PROGN___V35*/ meltfptr[34] = 0; @@ -27057,7 +27059,7 @@ lab_endgetargs:; /*_.IF___V33*/ meltfptr[30] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6391:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6393:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L11*/ meltfnum[10] = @@ -27065,7 +27067,7 @@ lab_endgetargs:; ( /*_.DEBUGFUNBIND__V23*/ meltfptr[21]), (melt_ptr_t) (( /*!CLASS_FUNCTION_BINDING */ meltfrout->tabval[10])));; - MELT_LOCATION ("warmelt-macro.melt:6391:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6393:/ cond"); /*cond */ if ( /*_#IS_A__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -27073,7 +27075,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6391:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6393:/ cond.else"); /*^block */ /*anyblock */ @@ -27089,7 +27091,7 @@ lab_endgetargs:; /*_#OR___L12*/ meltfnum[11] = /*_#IS_A__L13*/ meltfnum[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6391:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6393:/ clear"); /*clear *//*_#IS_A__L13*/ meltfnum[12] = 0; } ; @@ -27097,7 +27099,7 @@ lab_endgetargs:; ; /*_#NOT__L14*/ meltfnum[12] = (!( /*_#OR___L12*/ meltfnum[11]));; - MELT_LOCATION ("warmelt-macro.melt:6391:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6393:/ cond"); /*cond */ if ( /*_#NOT__L14*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -27107,20 +27109,20 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6394:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6396:/ 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:6395:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6397:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6395:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6397:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -27133,7 +27135,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6393:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6395:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[37] = /*_.RETURN___V37*/ meltfptr[34];; @@ -27142,7 +27144,7 @@ lab_endgetargs:; /*_.IF___V36*/ meltfptr[31] = /*_.PROGN___V38*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6391:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6393:/ clear"); /*clear *//*_.RETURN___V37*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.PROGN___V38*/ meltfptr[37] = 0; @@ -27155,10 +27157,10 @@ lab_endgetargs:; /*_.IF___V36*/ meltfptr[31] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6396:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6398:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6399:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6401:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L15*/ meltfnum[14] = @@ -27166,7 +27168,7 @@ lab_endgetargs:; ( /*_.THECOUNTBIND__V24*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_PRIMITIVE_BINDING */ meltfrout->tabval[11])));; - MELT_LOCATION ("warmelt-macro.melt:6399:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6401:/ cond"); /*cond */ if ( /*_#IS_A__L15*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -27174,7 +27176,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6400:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6402:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -27205,7 +27207,7 @@ lab_endgetargs:; /*_.PBIND_PRIMITIVE__V40*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6399:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6401:/ clear"); /*clear *//*_.PBIND_PRIMITIVE__V40*/ meltfptr[37] = 0; } ; @@ -27217,7 +27219,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6401:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6403:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L16*/ meltfnum[15] = @@ -27225,7 +27227,7 @@ lab_endgetargs:; ( /*_.THECOUNTBIND__V24*/ meltfptr[19]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-macro.melt:6401:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6403:/ cond"); /*cond */ if ( /*_#IS_A__L16*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -27233,7 +27235,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6402:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6404:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -27264,7 +27266,7 @@ lab_endgetargs:; /*_.VBIND_VALUE__V42*/ meltfptr[41];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6401:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6403:/ clear"); /*clear *//*_.VBIND_VALUE__V42*/ meltfptr[41] = 0; } ; @@ -27278,7 +27280,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6404:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6406:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), @@ -27286,13 +27288,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6405:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6407:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6405:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6407:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -27305,7 +27307,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6403:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6405:/ quasiblock"); /*_.PROGN___V44*/ meltfptr[43] = @@ -27316,7 +27318,7 @@ lab_endgetargs:; /*_.PROGN___V44*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6401:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6403:/ clear"); /*clear *//*_.RETURN___V43*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_.PROGN___V44*/ meltfptr[43] = 0; @@ -27328,7 +27330,7 @@ lab_endgetargs:; /*_.IFELSE___V41*/ meltfptr[37];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6399:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6401:/ clear"); /*clear *//*_#IS_A__L16*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IFELSE___V41*/ meltfptr[37] = 0; @@ -27336,10 +27338,10 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:6406:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6408:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:6409:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6411:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_2_st @@ -27365,13 +27367,13 @@ lab_endgetargs:; /*_.TUPLE___V45*/ meltfptr[41] = /*_.TUPLREC___V46*/ meltfptr[43];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6409:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6411:/ clear"); /*clear *//*_.TUPLREC___V46*/ meltfptr[43] = 0; /*^clear */ /*clear *//*_.TUPLREC___V46*/ meltfptr[43] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6406:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6408:/ quasiblock"); /*^rawallocobj */ @@ -27417,13 +27419,13 @@ lab_endgetargs:; /*_.DCOUNT__V47*/ meltfptr[37] = /*_.INST__V48*/ meltfptr[43];; { - MELT_LOCATION ("warmelt-macro.melt:6411:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6413:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.DBGARGLIST__V30*/ meltfptr[29]), (melt_ptr_t) ( /*_.DCOUNT__V47*/ meltfptr[37])); } ; - MELT_LOCATION ("warmelt-macro.melt:6396:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6398:/ clear"); /*clear *//*_#IS_A__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.THECOUNTPRIM__V39*/ meltfptr[34] = 0; @@ -27433,7 +27435,7 @@ lab_endgetargs:; /*clear *//*_.DCOUNT__V47*/ meltfptr[37] = 0; { - MELT_LOCATION ("warmelt-macro.melt:6413:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6415:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.DBGARGLIST__V30*/ meltfptr[29]), (melt_ptr_t) ( /*_.DFILNAM__V19*/ meltfptr[18])); } @@ -27445,13 +27447,13 @@ lab_endgetargs:; ( /*_#DLINE__L8*/ meltfnum[1])));; { - MELT_LOCATION ("warmelt-macro.melt:6414:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6416:/ locexp"); meltgc_append_list ((melt_ptr_t) ( /*_.DBGARGLIST__V30*/ meltfptr[29]), (melt_ptr_t) ( /*_.MAKE_INTEGERBOX__V49*/ meltfptr[34])); } ; - MELT_LOCATION ("warmelt-macro.melt:6415:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6417:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27472,7 +27474,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6416:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6418:/ cppif.then"); /*^block */ /*anyblock */ { @@ -27498,7 +27500,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6416:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6418:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -27513,7 +27515,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6416:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6418:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27527,7 +27529,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6416; + argtab[2].meltbp_long = 6418; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_debug dbgarglist"; /*^apply.arg */ @@ -27547,7 +27549,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6416:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6418:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] = 0; @@ -27560,7 +27562,7 @@ lab_endgetargs:; /*_.IF___V52*/ meltfptr[51] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6416:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6418:/ quasiblock"); /*_.PROGN___V54*/ meltfptr[52] = /*_.IF___V52*/ meltfptr[51];; @@ -27569,7 +27571,7 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[37] = /*_.PROGN___V54*/ meltfptr[52];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6416:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6418:/ clear"); /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IF___V52*/ meltfptr[51] = 0; @@ -27582,10 +27584,10 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6417:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6419:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6420:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6422:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L19*/ meltfnum[14] = @@ -27593,7 +27595,7 @@ lab_endgetargs:; ( /*_.THENEEDDBGBIND__V25*/ meltfptr[24]), (melt_ptr_t) (( /*!CLASS_PRIMITIVE_BINDING */ meltfrout->tabval[11])));; - MELT_LOCATION ("warmelt-macro.melt:6420:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6422:/ cond"); /*cond */ if ( /*_#IS_A__L19*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -27601,7 +27603,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6421:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6423:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -27632,7 +27634,7 @@ lab_endgetargs:; /*_.PBIND_PRIMITIVE__V57*/ meltfptr[56];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6420:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6422:/ clear"); /*clear *//*_.PBIND_PRIMITIVE__V57*/ meltfptr[56] = 0; } ; @@ -27644,7 +27646,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6422:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6424:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L20*/ meltfnum[15] = @@ -27652,7 +27654,7 @@ lab_endgetargs:; ( /*_.THENEEDDBGBIND__V25*/ meltfptr[24]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-macro.melt:6422:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6424:/ cond"); /*cond */ if ( /*_#IS_A__L20*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -27660,7 +27662,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6423:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6425:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -27690,7 +27692,7 @@ lab_endgetargs:; /*_.VBIND_VALUE__V59*/ meltfptr[58];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6422:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6424:/ clear"); /*clear *//*_.VBIND_VALUE__V59*/ meltfptr[58] = 0; } ; @@ -27704,7 +27706,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6425:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6427:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), @@ -27712,13 +27714,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6426:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6428:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6426:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6428:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -27731,7 +27733,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6424:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6426:/ quasiblock"); /*_.PROGN___V61*/ meltfptr[60] = @@ -27742,7 +27744,7 @@ lab_endgetargs:; /*_.PROGN___V61*/ meltfptr[60];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6422:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6424:/ clear"); /*clear *//*_.RETURN___V60*/ meltfptr[58] = 0; /*^clear */ /*clear *//*_.PROGN___V61*/ meltfptr[60] = 0; @@ -27754,7 +27756,7 @@ lab_endgetargs:; /*_.IFELSE___V58*/ meltfptr[56];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6420:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6422:/ clear"); /*clear *//*_#IS_A__L20*/ meltfnum[15] = 0; /*^clear */ /*clear *//*_.IFELSE___V58*/ meltfptr[56] = 0; @@ -27762,10 +27764,10 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:6427:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6429:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:6430:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6432:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_3_st @@ -27787,11 +27789,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#20 */ - melt_assertmsg ("putupl [:6430] #20 checktup", + melt_assertmsg ("putupl [:6432] #20 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V63*/ meltfptr[60])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6430] #20 checkoff", + melt_assertmsg ("putupl [:6432] #20 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -27806,13 +27808,13 @@ lab_endgetargs:; /*_.TUPLE___V62*/ meltfptr[58] = /*_.TUPLREC___V63*/ meltfptr[60];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6430:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6432:/ clear"); /*clear *//*_.TUPLREC___V63*/ meltfptr[60] = 0; /*^clear */ /*clear *//*_.TUPLREC___V63*/ meltfptr[60] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6427:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6429:/ quasiblock"); /*^rawallocobj */ @@ -27856,10 +27858,10 @@ lab_endgetargs:; ( /*_.TUPLE___V62*/ meltfptr[58]), "SARGOP_ARGS"); ; /*_.DNEEDBG__V64*/ meltfptr[56] = /*_.INST__V65*/ meltfptr[60];; - MELT_LOCATION ("warmelt-macro.melt:6431:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6433:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:6435:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6437:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -27878,7 +27880,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6431:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6433:/ quasiblock"); /*^rawallocobj */ @@ -27923,7 +27925,7 @@ lab_endgetargs:; "SARGOP_ARGS"); ; /*_.DCALL__V67*/ meltfptr[66] = /*_.INST__V68*/ meltfptr[67];; - MELT_LOCATION ("warmelt-macro.melt:6438:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6440:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L21*/ meltfnum[15] = @@ -27931,7 +27933,7 @@ lab_endgetargs:; ( /*_.THEINCRDBGBIND__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_PRIMITIVE_BINDING */ meltfrout->tabval[11])));; - MELT_LOCATION ("warmelt-macro.melt:6438:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6440:/ cond"); /*cond */ if ( /*_#IS_A__L21*/ meltfnum[15]) /*then */ { /*^cond.then */ @@ -27939,7 +27941,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6439:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6441:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -27970,7 +27972,7 @@ lab_endgetargs:; /*_.PBIND_PRIMITIVE__V70*/ meltfptr[69];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6438:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6440:/ clear"); /*clear *//*_.PBIND_PRIMITIVE__V70*/ meltfptr[69] = 0; } ; @@ -27982,7 +27984,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6440:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6442:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#IS_A__L22*/ meltfnum[21] = @@ -27990,7 +27992,7 @@ lab_endgetargs:; ( /*_.THEINCRDBGBIND__V26*/ meltfptr[25]), (melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[9])));; - MELT_LOCATION ("warmelt-macro.melt:6440:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6442:/ cond"); /*cond */ if ( /*_#IS_A__L22*/ meltfnum[21]) /*then */ { /*^cond.then */ @@ -27998,7 +28000,7 @@ lab_endgetargs:; /*anyblock */ { - MELT_LOCATION ("warmelt-macro.melt:6441:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6443:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) @@ -28028,7 +28030,7 @@ lab_endgetargs:; /*_.VBIND_VALUE__V72*/ meltfptr[71];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6440:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6442:/ clear"); /*clear *//*_.VBIND_VALUE__V72*/ meltfptr[71] = 0; } ; @@ -28042,7 +28044,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6443:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6445:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), @@ -28050,13 +28052,13 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6446:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6448:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { - MELT_LOCATION ("warmelt-macro.melt:6446:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6448:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -28069,7 +28071,7 @@ lab_endgetargs:; /*^finalreturn */ ; /*finalret */ goto labend_rout; - MELT_LOCATION ("warmelt-macro.melt:6442:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6444:/ quasiblock"); /*_.PROGN___V74*/ meltfptr[73] = @@ -28080,7 +28082,7 @@ lab_endgetargs:; /*_.PROGN___V74*/ meltfptr[73];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6440:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6442:/ clear"); /*clear *//*_.RETURN___V73*/ meltfptr[71] = 0; /*^clear */ /*clear *//*_.PROGN___V74*/ meltfptr[73] = 0; @@ -28092,7 +28094,7 @@ lab_endgetargs:; /*_.IFELSE___V71*/ meltfptr[69];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6438:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6440:/ clear"); /*clear *//*_#IS_A__L22*/ meltfnum[21] = 0; /*^clear */ /*clear *//*_.IFELSE___V71*/ meltfptr[69] = 0; @@ -28100,10 +28102,10 @@ lab_endgetargs:; ; } ; - MELT_LOCATION ("warmelt-macro.melt:6447:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6449:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:6451:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6453:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_4_st @@ -28129,13 +28131,13 @@ lab_endgetargs:; /*_.TUPLE___V75*/ meltfptr[71] = /*_.TUPLREC___V76*/ meltfptr[73];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6451:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6453:/ clear"); /*clear *//*_.TUPLREC___V76*/ meltfptr[73] = 0; /*^clear */ /*clear *//*_.TUPLREC___V76*/ meltfptr[73] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6447:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6449:/ quasiblock"); /*^rawallocobj */ @@ -28179,7 +28181,7 @@ lab_endgetargs:; ( /*_.TUPLE___V75*/ meltfptr[71]), "SARGOP_ARGS"); ; /*_.DINCRDBG__V77*/ meltfptr[69] = /*_.INST__V78*/ meltfptr[73];; - MELT_LOCATION ("warmelt-macro.melt:6452:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6454:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -28225,10 +28227,10 @@ lab_endgetargs:; ( /*_.DCALL__V67*/ meltfptr[66]), "SIF_THEN"); ; /*_.DIFDBG__V79*/ meltfptr[78] = /*_.INST__V80*/ meltfptr[79];; - MELT_LOCATION ("warmelt-macro.melt:6457:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6459:/ checksignal"); MELT_CHECK_SIGNAL (); ; - MELT_LOCATION ("warmelt-macro.melt:6460:/ blockmultialloc"); + MELT_LOCATION ("warmelt-macro.melt:6462:/ blockmultialloc"); /*multiallocblock */ { struct meltletrec_5_st @@ -28250,11 +28252,11 @@ lab_endgetargs:; /*^putuple */ /*putupl#21 */ - melt_assertmsg ("putupl [:6460] #21 checktup", + melt_assertmsg ("putupl [:6462] #21 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V82*/ meltfptr[81])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6460] #21 checkoff", + melt_assertmsg ("putupl [:6462] #21 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) @@ -28265,11 +28267,11 @@ lab_endgetargs:; ; /*^putuple */ /*putupl#22 */ - melt_assertmsg ("putupl [:6460] #22 checktup", + melt_assertmsg ("putupl [:6462] #22 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.TUPLREC___V82*/ meltfptr[81])) == MELTOBMAG_MULTIPLE); - melt_assertmsg ("putupl [:6460] #22 checkoff", + melt_assertmsg ("putupl [:6462] #22 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) @@ -28284,13 +28286,13 @@ lab_endgetargs:; /*_.TUPLE___V81*/ meltfptr[80] = /*_.TUPLREC___V82*/ meltfptr[81];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6460:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6462:/ clear"); /*clear *//*_.TUPLREC___V82*/ meltfptr[81] = 0; /*^clear */ /*clear *//*_.TUPLREC___V82*/ meltfptr[81] = 0; } /*end multiallocblock */ ; - MELT_LOCATION ("warmelt-macro.melt:6457:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6459:/ quasiblock"); /*^rawallocobj */ @@ -28324,7 +28326,7 @@ lab_endgetargs:; ( /*_.TUPLE___V81*/ meltfptr[80]), "SPROGN_BODY"); ; /*_.DPROGN__V83*/ meltfptr[81] = /*_.INST__V84*/ meltfptr[83];; - MELT_LOCATION ("warmelt-macro.melt:6462:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6464:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -28382,7 +28384,7 @@ lab_endgetargs:; /*_.DCPPIF__V85*/ meltfptr[84] = /*_.INST__V86*/ meltfptr[85];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6469:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6471:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28408,7 +28410,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6469:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6471:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L23*/ meltfnum[21]) /*then */ { /*^cond.then */ @@ -28423,7 +28425,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6469:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6471:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28437,7 +28439,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6469; + argtab[2].meltbp_long = 6471; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_debug dcall="; /*^apply.arg */ @@ -28463,7 +28465,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V89*/ meltfptr[88];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6469:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6471:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L24*/ meltfnum[23] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V89*/ meltfptr[88] = 0; @@ -28476,7 +28478,7 @@ lab_endgetargs:; /*_.IF___V88*/ meltfptr[87] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6469:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6471:/ quasiblock"); /*_.PROGN___V90*/ meltfptr[88] = /*_.IF___V88*/ meltfptr[87];; @@ -28485,7 +28487,7 @@ lab_endgetargs:; /*_.IFCPP___V87*/ meltfptr[86] = /*_.PROGN___V90*/ meltfptr[88];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6469:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6471:/ clear"); /*clear *//*_#MELT_NEED_DBG__L23*/ meltfnum[21] = 0; /*^clear */ /*clear *//*_.IF___V88*/ meltfptr[87] = 0; @@ -28498,7 +28500,7 @@ lab_endgetargs:; /*_.IFCPP___V87*/ meltfptr[86] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6470:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6472:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -28507,7 +28509,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.DCPPIF__V85*/ meltfptr[84];; { - MELT_LOCATION ("warmelt-macro.melt:6470:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6472:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -28522,7 +28524,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V55*/ meltfptr[51] = /*_.RETURN___V91*/ meltfptr[87];; - MELT_LOCATION ("warmelt-macro.melt:6417:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6419:/ clear"); /*clear *//*_#IS_A__L19*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.THENEEDDBG__V56*/ meltfptr[52] = 0; @@ -28556,7 +28558,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V91*/ meltfptr[87] = 0; /*_.LET___V16*/ meltfptr[14] = /*_.LET___V55*/ meltfptr[51];; - MELT_LOCATION ("warmelt-macro.melt:6372:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6374:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -28604,7 +28606,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V51*/ meltfptr[37] = 0; /*^clear */ /*clear *//*_.LET___V55*/ meltfptr[51] = 0; - MELT_LOCATION ("warmelt-macro.melt:6367:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -28613,7 +28615,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6367:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -28733,7 +28735,7 @@ meltrout_136_warmelt_macro_MEXPAND_EXPORT_VALUES (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6477:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6479:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -28774,7 +28776,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6478:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6480:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28800,7 +28802,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6478:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6480:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -28815,7 +28817,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6478:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6480:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -28828,7 +28830,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6478; + argtab[2].meltbp_long = 6480; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_values sexpr"; /*^apply.arg */ @@ -28847,7 +28849,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6478:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6480:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -28860,7 +28862,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6478:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6480:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -28869,7 +28871,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6478:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6480:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -28884,7 +28886,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6479:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6481:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28896,7 +28898,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:6479:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6481:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -28904,7 +28906,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6479:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6481:/ cond.else"); /*^block */ /*anyblock */ @@ -28918,7 +28920,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6479) ? (6479) : __LINE__, __FUNCTION__); + (6481) ? (6481) : __LINE__, __FUNCTION__); ; } ; @@ -28933,7 +28935,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6479:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6481:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -28946,7 +28948,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6480:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6482:/ cppif.then"); /*^block */ /*anyblock */ { @@ -28958,7 +28960,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:6480:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6482:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -28966,7 +28968,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6480:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6482:/ cond.else"); /*^block */ /*anyblock */ @@ -28980,7 +28982,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6480) ? (6480) : __LINE__, __FUNCTION__); + (6482) ? (6482) : __LINE__, __FUNCTION__); ; } ; @@ -28995,7 +28997,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6480:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6482:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -29008,7 +29010,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6481:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6483:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29019,7 +29021,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:6481:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6483:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -29027,7 +29029,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6481:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6483:/ cond.else"); /*^block */ /*anyblock */ @@ -29041,7 +29043,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6481) ? (6481) : __LINE__, __FUNCTION__); + (6483) ? (6483) : __LINE__, __FUNCTION__); ; } ; @@ -29056,7 +29058,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6481:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6483:/ clear"); /*clear *//*_#IS_CLOSURE__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -29069,7 +29071,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6482:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6484:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29080,7 +29082,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:6482:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6484:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -29088,7 +29090,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6482:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6484:/ cond.else"); /*^block */ /*anyblock */ @@ -29102,7 +29104,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6482) ? (6482) : __LINE__, __FUNCTION__); + (6484) ? (6484) : __LINE__, __FUNCTION__); ; } ; @@ -29117,7 +29119,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6482:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6484:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -29128,10 +29130,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6483:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6485:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6484:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6486:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -29139,7 +29141,7 @@ lab_endgetargs:; meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6485:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6487:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -29153,7 +29155,7 @@ lab_endgetargs:; /*_.CURPAIR__V22*/ meltfptr[21] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:6489:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6491:/ quasiblock"); /*^newclosure */ @@ -29217,7 +29219,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]); ; /*_.LAMBDA___V23*/ meltfptr[22] = /*_.LAMBDA___V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:6487:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6489:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29239,7 +29241,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6497:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6499:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -29279,7 +29281,7 @@ lab_endgetargs:; /*_.RES__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6501:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6503:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29305,7 +29307,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6501:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6503:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -29320,7 +29322,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6501:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6503:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29333,7 +29335,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6501; + argtab[2].meltbp_long = 6503; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_values result res"; /*^apply.arg */ @@ -29353,7 +29355,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6501:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6503:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; @@ -29366,7 +29368,7 @@ lab_endgetargs:; /*_.IF___V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6501:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6503:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[28];; @@ -29375,7 +29377,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6501:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6503:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V29*/ meltfptr[28] = 0; @@ -29388,7 +29390,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6502:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6504:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -29397,7 +29399,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V26*/ meltfptr[25];; { - MELT_LOCATION ("warmelt-macro.melt:6502:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6504:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -29412,7 +29414,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V18*/ meltfptr[16] = /*_.RETURN___V32*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:6483:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6485:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -29430,7 +29432,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.RETURN___V32*/ meltfptr[28] = 0; - MELT_LOCATION ("warmelt-macro.melt:6477:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6479:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -29439,7 +29441,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6477:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6479:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -29558,7 +29560,7 @@ meltrout_137_warmelt_macro_LAMBDA___37__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6489:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6491:/ getarg"); /*_.S__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -29568,7 +29570,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:6490:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6492:/ quasiblock"); /*^checksignal */ @@ -29596,14 +29598,14 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6491:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6493:/ 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:6491:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6493:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -29613,7 +29615,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6493:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6495:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29639,7 +29641,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6493:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6495:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -29654,7 +29656,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6493:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6495:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29668,7 +29670,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6493; + argtab[2].meltbp_long = 6495; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_values bad sym"; @@ -29690,7 +29692,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6493:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6495:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V7*/ meltfptr[6] = 0; @@ -29703,7 +29705,7 @@ lab_endgetargs:; /*_.IF___V6*/ meltfptr[5] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6493:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6495:/ quasiblock"); /*_.PROGN___V8*/ meltfptr[6] = /*_.IF___V6*/ meltfptr[5];; @@ -29712,7 +29714,7 @@ lab_endgetargs:; /*_.IFCPP___V5*/ meltfptr[4] = /*_.PROGN___V8*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6493:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6495:/ clear"); /*clear *//*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V6*/ meltfptr[5] = 0; @@ -29727,7 +29729,7 @@ lab_endgetargs:; ; { - MELT_LOCATION ("warmelt-macro.melt:6494:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6496:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) (( /*~LOC */ meltfclos->tabval[3])), @@ -29735,12 +29737,12 @@ lab_endgetargs:; (melt_ptr_t) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6492:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6494:/ quasiblock"); /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6491:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6493:/ clear"); /*clear *//*_.IFCPP___V5*/ meltfptr[4] = 0; } ; @@ -29748,17 +29750,17 @@ lab_endgetargs:; ; /*_.LET___V3*/ meltfptr[2] = /*_.SYM__V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-macro.melt:6490:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6492:/ clear"); /*clear *//*_.SYM__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L1*/ meltfnum[0] = 0; - MELT_LOCATION ("warmelt-macro.melt:6489:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6491:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:6489:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6491:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -29869,7 +29871,7 @@ meltrout_138_warmelt_macro_MEXPAND_EXPORT_MACRO (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6509:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6511:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -29910,7 +29912,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6510:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6512:/ cppif.then"); /*^block */ /*anyblock */ { @@ -29936,7 +29938,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6510:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6512:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -29951,7 +29953,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6510:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6512:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -29964,7 +29966,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6510; + argtab[2].meltbp_long = 6512; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_macro sexpr"; /*^apply.arg */ @@ -29983,7 +29985,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6510:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6512:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -29996,7 +29998,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6510:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6512:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -30005,7 +30007,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6510:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6512:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -30020,7 +30022,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6511:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6513:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30032,7 +30034,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:6511:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6513:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -30040,7 +30042,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6511:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6513:/ cond.else"); /*^block */ /*anyblock */ @@ -30054,7 +30056,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6511) ? (6511) : __LINE__, __FUNCTION__); + (6513) ? (6513) : __LINE__, __FUNCTION__); ; } ; @@ -30069,7 +30071,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6511:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6513:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -30082,7 +30084,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6512:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6514:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30094,7 +30096,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:6512:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6514:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -30102,7 +30104,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6512:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6514:/ cond.else"); /*^block */ /*anyblock */ @@ -30116,7 +30118,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6512) ? (6512) : __LINE__, __FUNCTION__); + (6514) ? (6514) : __LINE__, __FUNCTION__); ; } ; @@ -30131,7 +30133,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6512:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6514:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -30144,7 +30146,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6513:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6515:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30155,7 +30157,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:6513:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6515:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -30163,7 +30165,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6513:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6515:/ cond.else"); /*^block */ /*anyblock */ @@ -30177,7 +30179,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6513) ? (6513) : __LINE__, __FUNCTION__); + (6515) ? (6515) : __LINE__, __FUNCTION__); ; } ; @@ -30192,7 +30194,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6513:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6515:/ clear"); /*clear *//*_#IS_CLOSURE__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -30205,7 +30207,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6514:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6516:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30216,7 +30218,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:6514:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6516:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -30224,7 +30226,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6514:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6516:/ cond.else"); /*^block */ /*anyblock */ @@ -30238,7 +30240,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6514) ? (6514) : __LINE__, __FUNCTION__); + (6516) ? (6516) : __LINE__, __FUNCTION__); ; } ; @@ -30253,7 +30255,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6514:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6516:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -30264,10 +30266,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6515:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6517:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6516:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6518:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -30275,7 +30277,7 @@ lab_endgetargs:; meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6517:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6519:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -30293,7 +30295,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6519:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6521:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30316,14 +30318,14 @@ lab_endgetargs:; } ; /*_.DOC__V25*/ meltfptr[24] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:6522:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6524:/ 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:6522:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6524:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -30333,7 +30335,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6523:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6525:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(EXPORT_MACRO <sym> <expander>) expecting symbol"), @@ -30347,15 +30349,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V26*/ meltfptr[25] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6524:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6526:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V27*/ meltfptr[26] = /*_.PAIR_TAIL__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:6525:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6527:/ quasiblock"); /*_.PAIR_HEAD__V29*/ meltfptr[28] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6525:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6527:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30379,10 +30381,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V31*/ meltfptr[30] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6527:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6529:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V32*/ meltfptr[31] = /*_.PAIR_TAIL__V31*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:6528:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6530:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V33*/ meltfptr[32] = @@ -30392,7 +30394,7 @@ lab_endgetargs:; /*_#__L8*/ meltfnum[0] = (( /*_.PAIR_HEAD__V33*/ meltfptr[32]) == (( /*!konst_4_DOC */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:6528:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6530:/ cond"); /*cond */ if ( /*_#__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -30403,16 +30405,16 @@ lab_endgetargs:; /*_.PAIR_TAIL__V35*/ meltfptr[34] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6530:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6532:/ 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:6531:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6533:/ compute"); /*_.DOC__V25*/ meltfptr[24] = /*_.SETQ___V38*/ meltfptr[37] = /*_.PAIR_HEAD__V37*/ meltfptr[36];; - MELT_LOCATION ("warmelt-macro.melt:6529:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6531:/ quasiblock"); /*_.PROGN___V39*/ meltfptr[38] = /*_.SETQ___V38*/ meltfptr[37];; @@ -30421,7 +30423,7 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = /*_.PROGN___V39*/ meltfptr[38];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6528:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6530:/ clear"); /*clear *//*_.PAIR_TAIL__V35*/ meltfptr[34] = 0; /*^clear */ /*clear *//*_.SETQ___V36*/ meltfptr[35] = 0; @@ -30440,12 +30442,12 @@ lab_endgetargs:; /*_.IF___V34*/ meltfptr[33] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6532:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6534:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L9*/ meltfnum[8] = (( /*_.EXPV__V30*/ meltfptr[29]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6532:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6534:/ cond"); /*cond */ if ( /*_#NULL__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -30455,7 +30457,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6533:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6535:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(EXPORT_MACRO <sym> <expander> [:doc <docum>]) expecting expander"), @@ -30467,7 +30469,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6534:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6536:/ quasiblock"); /*^checksignal */ @@ -30527,7 +30529,7 @@ lab_endgetargs:; /*_.RES__V41*/ meltfptr[35] = /*_.INST__V42*/ meltfptr[36];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6541:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6543:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30553,7 +30555,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6541:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6543:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -30568,7 +30570,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6541:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6543:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30582,7 +30584,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6541; + argtab[2].meltbp_long = 6543; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_macro result res"; /*^apply.arg */ @@ -30602,7 +30604,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6541:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6543:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = 0; @@ -30615,7 +30617,7 @@ lab_endgetargs:; /*_.IF___V44*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6541:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6543:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[44] = /*_.IF___V44*/ meltfptr[38];; @@ -30624,7 +30626,7 @@ lab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[37] = /*_.PROGN___V46*/ meltfptr[44];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6541:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6543:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0; /*^clear */ /*clear *//*_.IF___V44*/ meltfptr[38] = 0; @@ -30637,7 +30639,7 @@ lab_endgetargs:; /*_.IFCPP___V43*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6542:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6544:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -30646,7 +30648,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V41*/ meltfptr[35];; { - MELT_LOCATION ("warmelt-macro.melt:6542:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6544:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -30661,7 +30663,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V40*/ meltfptr[34] = /*_.RETURN___V47*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:6534:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6536:/ clear"); /*clear *//*_.RES__V41*/ meltfptr[35] = 0; /*^clear */ /*clear *//*_.IFCPP___V43*/ meltfptr[37] = 0; @@ -30669,7 +30671,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V47*/ meltfptr[38] = 0; /*_.LET___V28*/ meltfptr[27] = /*_.LET___V40*/ meltfptr[34];; - MELT_LOCATION ("warmelt-macro.melt:6525:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6527:/ clear"); /*clear *//*_.PAIR_HEAD__V29*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.EXPV__V30*/ meltfptr[29] = 0; @@ -30689,7 +30691,7 @@ lab_endgetargs:; /*clear *//*_.LET___V40*/ meltfptr[34] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V28*/ meltfptr[27];; - MELT_LOCATION ("warmelt-macro.melt:6515:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6517:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -30711,7 +30713,7 @@ lab_endgetargs:; /*clear *//*_.SETQ___V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.LET___V28*/ meltfptr[27] = 0; - MELT_LOCATION ("warmelt-macro.melt:6509:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6511:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -30720,7 +30722,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6509:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6511:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -30842,7 +30844,7 @@ meltrout_139_warmelt_macro_MEXPAND_EXPORT_PATMACRO (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6552:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6554:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -30883,7 +30885,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6553:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6555:/ cppif.then"); /*^block */ /*anyblock */ { @@ -30909,7 +30911,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6553:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6555:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -30924,7 +30926,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6553:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6555:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -30937,7 +30939,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6553; + argtab[2].meltbp_long = 6555; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_patmacro sexpr"; /*^apply.arg */ @@ -30956,7 +30958,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6553:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6555:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -30969,7 +30971,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6553:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6555:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -30978,7 +30980,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6553:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6555:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -30993,7 +30995,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6554:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6556:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31005,7 +31007,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:6554:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6556:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -31013,7 +31015,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6554:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6556:/ cond.else"); /*^block */ /*anyblock */ @@ -31027,7 +31029,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6554) ? (6554) : __LINE__, __FUNCTION__); + (6556) ? (6556) : __LINE__, __FUNCTION__); ; } ; @@ -31042,7 +31044,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6554:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6556:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -31055,7 +31057,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6555:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6557:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31067,7 +31069,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:6555:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6557:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31075,7 +31077,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6555:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6557:/ cond.else"); /*^block */ /*anyblock */ @@ -31089,7 +31091,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6555) ? (6555) : __LINE__, __FUNCTION__); + (6557) ? (6557) : __LINE__, __FUNCTION__); ; } ; @@ -31104,7 +31106,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6555:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6557:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -31117,7 +31119,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6556:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6558:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31128,7 +31130,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:6556:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6558:/ cond"); /*cond */ if ( /*_#IS_CLOSURE__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -31136,7 +31138,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6556:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6558:/ cond.else"); /*^block */ /*anyblock */ @@ -31150,7 +31152,7 @@ lab_endgetargs:; melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6556) ? (6556) : __LINE__, __FUNCTION__); + (6558) ? (6558) : __LINE__, __FUNCTION__); ; } ; @@ -31165,7 +31167,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6556:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6558:/ clear"); /*clear *//*_#IS_CLOSURE__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -31178,7 +31180,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6557:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6559:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31189,7 +31191,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:6557:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6559:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31197,7 +31199,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6557:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6559:/ cond.else"); /*^block */ /*anyblock */ @@ -31211,7 +31213,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6557) ? (6557) : __LINE__, __FUNCTION__); + (6559) ? (6559) : __LINE__, __FUNCTION__); ; } ; @@ -31226,7 +31228,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6557:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6559:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -31237,10 +31239,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6558:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6560:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6559:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6561:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -31248,7 +31250,7 @@ lab_endgetargs:; meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6560:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6562:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -31266,7 +31268,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6562:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6564:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31295,14 +31297,14 @@ lab_endgetargs:; /*^compute */ /*_.DOC__V27*/ meltfptr[26] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:6567:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6569:/ 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:6567:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6569:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -31312,7 +31314,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6568:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6570:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>]) expecting symbol"), @@ -31326,12 +31328,12 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V28*/ meltfptr[27] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6569:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6571:/ 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:6570:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6572:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31356,12 +31358,12 @@ lab_endgetargs:; /*^compute */ /*_.PATEXPV__V25*/ meltfptr[24] = /*_.SETQ___V32*/ meltfptr[31] = /*_.MEXPANDER__V31*/ meltfptr[30];; - MELT_LOCATION ("warmelt-macro.melt:6571:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6573:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L8*/ meltfnum[0] = (( /*_.PATEXPV__V25*/ meltfptr[24]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6571:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6573:/ cond"); /*cond */ if ( /*_#NULL__L8*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31371,7 +31373,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6572:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6574:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>]) expecting patexpander"), @@ -31385,12 +31387,12 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V33*/ meltfptr[32] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6573:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6575:/ 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:6574:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6576:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31415,12 +31417,12 @@ lab_endgetargs:; /*^compute */ /*_.MACEXPV__V26*/ meltfptr[25] = /*_.SETQ___V37*/ meltfptr[36] = /*_.MEXPANDER__V36*/ meltfptr[35];; - MELT_LOCATION ("warmelt-macro.melt:6575:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6577:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L9*/ meltfnum[8] = (( /*_.MACEXPV__V26*/ meltfptr[25]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6575:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6577:/ cond"); /*cond */ if ( /*_#NULL__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -31430,7 +31432,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6576:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6578:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(EXPORT_PATMACRO <sym> <patexpander> <macexpander> [:doc <docum>]) expecting macexpander"), @@ -31444,10 +31446,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V38*/ meltfptr[37] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6577:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6579:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V39*/ meltfptr[38] = /*_.PAIR_TAIL__V38*/ meltfptr[37];; - MELT_LOCATION ("warmelt-macro.melt:6578:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6580:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V40*/ meltfptr[39] = @@ -31457,7 +31459,7 @@ lab_endgetargs:; /*_#__L10*/ meltfnum[9] = (( /*_.PAIR_HEAD__V40*/ meltfptr[39]) == (( /*!konst_4_DOC */ meltfrout->tabval[4])));; - MELT_LOCATION ("warmelt-macro.melt:6578:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6580:/ cond"); /*cond */ if ( /*_#__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -31468,16 +31470,16 @@ lab_endgetargs:; /*_.PAIR_TAIL__V42*/ meltfptr[41] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6580:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6582:/ 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:6581:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6583:/ compute"); /*_.DOC__V27*/ meltfptr[26] = /*_.SETQ___V45*/ meltfptr[44] = /*_.PAIR_HEAD__V44*/ meltfptr[43];; - MELT_LOCATION ("warmelt-macro.melt:6579:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6581:/ quasiblock"); /*_.PROGN___V46*/ meltfptr[45] = /*_.SETQ___V45*/ meltfptr[44];; @@ -31486,7 +31488,7 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[40] = /*_.PROGN___V46*/ meltfptr[45];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6578:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6580:/ clear"); /*clear *//*_.PAIR_TAIL__V42*/ meltfptr[41] = 0; /*^clear */ /*clear *//*_.SETQ___V43*/ meltfptr[42] = 0; @@ -31505,7 +31507,7 @@ lab_endgetargs:; /*_.IF___V41*/ meltfptr[40] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6584:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6586:/ quasiblock"); /*^checksignal */ @@ -31572,7 +31574,7 @@ lab_endgetargs:; /*_.RES__V48*/ meltfptr[42] = /*_.INST__V49*/ meltfptr[43];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6592:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6594:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31598,7 +31600,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6592:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6594:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -31613,7 +31615,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6592:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6594:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -31627,7 +31629,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6592; + argtab[2].meltbp_long = 6594; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_patmacro result res"; /*^apply.arg */ @@ -31647,7 +31649,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V52*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6592:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6594:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = 0; @@ -31660,7 +31662,7 @@ lab_endgetargs:; /*_.IF___V51*/ meltfptr[45] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6592:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6594:/ quasiblock"); /*_.PROGN___V53*/ meltfptr[51] = /*_.IF___V51*/ meltfptr[45];; @@ -31669,7 +31671,7 @@ lab_endgetargs:; /*_.IFCPP___V50*/ meltfptr[44] = /*_.PROGN___V53*/ meltfptr[51];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6592:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6594:/ clear"); /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V51*/ meltfptr[45] = 0; @@ -31682,7 +31684,7 @@ lab_endgetargs:; /*_.IFCPP___V50*/ meltfptr[44] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6593:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6595:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -31691,7 +31693,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V48*/ meltfptr[42];; { - MELT_LOCATION ("warmelt-macro.melt:6593:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6595:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -31706,7 +31708,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V47*/ meltfptr[41] = /*_.RETURN___V54*/ meltfptr[45];; - MELT_LOCATION ("warmelt-macro.melt:6584:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6586:/ clear"); /*clear *//*_.RES__V48*/ meltfptr[42] = 0; /*^clear */ /*clear *//*_.IFCPP___V50*/ meltfptr[44] = 0; @@ -31714,7 +31716,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V54*/ meltfptr[45] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V47*/ meltfptr[41];; - MELT_LOCATION ("warmelt-macro.melt:6558:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6560:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -31770,7 +31772,7 @@ lab_endgetargs:; /*clear *//*_.IF___V41*/ meltfptr[40] = 0; /*^clear */ /*clear *//*_.LET___V47*/ meltfptr[41] = 0; - MELT_LOCATION ("warmelt-macro.melt:6552:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6554:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -31779,7 +31781,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6552:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6554:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -31900,7 +31902,7 @@ meltrout_140_warmelt_macro_MEXPAND_EXPORT_CLASS (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6600:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6602:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -31941,7 +31943,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6601:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6603:/ cppif.then"); /*^block */ /*anyblock */ { @@ -31953,7 +31955,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:6601:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6603:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -31961,7 +31963,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6601:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6603:/ cond.else"); /*^block */ /*anyblock */ @@ -31975,7 +31977,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6601) ? (6601) : __LINE__, __FUNCTION__); + (6603) ? (6603) : __LINE__, __FUNCTION__); ; } ; @@ -31990,7 +31992,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6601:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6603:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -32003,7 +32005,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6602:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6604:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32015,7 +32017,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:6602:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6604:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -32023,7 +32025,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6602:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6604:/ cond.else"); /*^block */ /*anyblock */ @@ -32037,7 +32039,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6602) ? (6602) : __LINE__, __FUNCTION__); + (6604) ? (6604) : __LINE__, __FUNCTION__); ; } ; @@ -32052,7 +32054,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6602:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6604:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -32063,12 +32065,12 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6603:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6605:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[0] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6603:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6605:/ cond"); /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -32082,7 +32084,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6603:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6605:/ clear"); /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0; } ; @@ -32095,7 +32097,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6604:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6606:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32106,7 +32108,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:6604:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6606:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -32114,7 +32116,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6604:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6606:/ cond.else"); /*^block */ /*anyblock */ @@ -32128,7 +32130,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6604) ? (6604) : __LINE__, __FUNCTION__); + (6606) ? (6606) : __LINE__, __FUNCTION__); ; } ; @@ -32143,7 +32145,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6604:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6606:/ clear"); /*clear *//*_#IS_OBJECT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -32156,7 +32158,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6605:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32182,7 +32184,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6605:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -32197,7 +32199,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6605:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32210,7 +32212,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6605; + argtab[2].meltbp_long = 6607; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_class sexpr"; /*^apply.arg */ @@ -32230,7 +32232,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6605:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0; @@ -32243,7 +32245,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6605:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[15] = /*_.IF___V15*/ meltfptr[14];; @@ -32252,7 +32254,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.PROGN___V17*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6605:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6607:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V15*/ meltfptr[14] = 0; @@ -32265,10 +32267,10 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6606:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6608:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6607:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6609:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -32276,7 +32278,7 @@ lab_endgetargs:; meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6608:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6610:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -32290,7 +32292,7 @@ lab_endgetargs:; /*_.CURPAIR__V22*/ meltfptr[21] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:6612:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6614:/ quasiblock"); /*^newclosure */ @@ -32354,7 +32356,7 @@ lab_endgetargs:; (melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]); ; /*_.LAMBDA___V23*/ meltfptr[22] = /*_.LAMBDA___V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:6610:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6612:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32376,7 +32378,7 @@ lab_endgetargs:; (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6618:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6620:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -32416,7 +32418,7 @@ lab_endgetargs:; /*_.RES__V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6622:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6624:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32442,7 +32444,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6622:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6624:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -32457,7 +32459,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6622:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6624:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32470,7 +32472,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6622; + argtab[2].meltbp_long = 6624; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_class result res"; /*^apply.arg */ @@ -32490,7 +32492,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6622:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6624:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0; @@ -32503,7 +32505,7 @@ lab_endgetargs:; /*_.IF___V29*/ meltfptr[28] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6622:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6624:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[28];; @@ -32512,7 +32514,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = /*_.PROGN___V31*/ meltfptr[29];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6622:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6624:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.IF___V29*/ meltfptr[28] = 0; @@ -32525,7 +32527,7 @@ lab_endgetargs:; /*_.IFCPP___V28*/ meltfptr[27] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6623:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6625:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -32534,7 +32536,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V26*/ meltfptr[25];; { - MELT_LOCATION ("warmelt-macro.melt:6623:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6625:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -32549,7 +32551,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V18*/ meltfptr[14] = /*_.RETURN___V32*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:6606:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6608:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -32567,7 +32569,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.RETURN___V32*/ meltfptr[28] = 0; - MELT_LOCATION ("warmelt-macro.melt:6600:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6602:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -32576,7 +32578,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6600:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6602:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -32697,7 +32699,7 @@ meltrout_141_warmelt_macro_LAMBDA___38__ (meltclosure_ptr_t meltclosp_, /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6612:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6614:/ getarg"); /*_.S__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; @@ -32707,7 +32709,7 @@ lab_endgetargs:; /*anyblock*/ { - MELT_LOCATION ("warmelt-macro.melt:6613:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6615:/ quasiblock"); /*^checksignal */ @@ -32735,14 +32737,14 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6614:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6616:/ 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:6614:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6616:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -32752,7 +32754,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6615:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6617:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) (( /*~LOC */ meltfclos->tabval[3])), @@ -32767,17 +32769,17 @@ lab_endgetargs:; ; /*_.LET___V3*/ meltfptr[2] = /*_.SYM__V4*/ meltfptr[3];; - MELT_LOCATION ("warmelt-macro.melt:6613:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6615:/ clear"); /*clear *//*_.SYM__V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_#IS_NOT_A__L1*/ meltfnum[0] = 0; - MELT_LOCATION ("warmelt-macro.melt:6612:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6614:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V3*/ meltfptr[2];; { - MELT_LOCATION ("warmelt-macro.melt:6612:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6614:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -32889,7 +32891,7 @@ meltrout_142_warmelt_macro_MEXPAND_EXPORT_SYNONYM (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6629:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6631:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -32930,7 +32932,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6630:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6632:/ cppif.then"); /*^block */ /*anyblock */ { @@ -32956,7 +32958,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6630:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6632:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -32971,7 +32973,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6630:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6632:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -32984,7 +32986,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6630; + argtab[2].meltbp_long = 6632; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_export_synonym sexpr"; /*^apply.arg */ @@ -33003,7 +33005,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6630:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6632:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -33016,7 +33018,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6630:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6632:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -33025,7 +33027,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6630:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6632:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -33040,7 +33042,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6631:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6633:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33052,7 +33054,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:6631:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6633:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -33060,7 +33062,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6631:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6633:/ cond.else"); /*^block */ /*anyblock */ @@ -33074,7 +33076,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6631) ? (6631) : __LINE__, __FUNCTION__); + (6633) ? (6633) : __LINE__, __FUNCTION__); ; } ; @@ -33089,7 +33091,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6631:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6633:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -33102,7 +33104,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6632:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6634:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33114,7 +33116,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:6632:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6634:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -33122,7 +33124,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6632:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6634:/ cond.else"); /*^block */ /*anyblock */ @@ -33136,7 +33138,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6632) ? (6632) : __LINE__, __FUNCTION__); + (6634) ? (6634) : __LINE__, __FUNCTION__); ; } ; @@ -33151,7 +33153,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6632:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6634:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -33162,12 +33164,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6633:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6635:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6633:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6635:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -33181,7 +33183,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6633:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6635:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -33194,7 +33196,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6634:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6636:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33205,7 +33207,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:6634:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6636:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -33213,7 +33215,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6634:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6636:/ cond.else"); /*^block */ /*anyblock */ @@ -33227,7 +33229,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6634) ? (6634) : __LINE__, __FUNCTION__); + (6636) ? (6636) : __LINE__, __FUNCTION__); ; } ; @@ -33242,7 +33244,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6634:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6636:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -33253,10 +33255,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6635:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6637:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6636:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6638:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -33264,7 +33266,7 @@ lab_endgetargs:; meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6637:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6639:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -33291,7 +33293,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V26*/ meltfptr[25] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6644:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6646:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33318,7 +33320,7 @@ lab_endgetargs:; /*_.MEXPANDER__V27*/ meltfptr[26];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6645:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6647:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33344,7 +33346,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6645:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6647:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -33359,7 +33361,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6645:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6647:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33372,7 +33374,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6645; + argtab[2].meltbp_long = 6647; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpander_export_synonym newsymb"; /*^apply.arg */ @@ -33392,7 +33394,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6645:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6647:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0; @@ -33405,7 +33407,7 @@ lab_endgetargs:; /*_.IF___V30*/ meltfptr[29] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6645:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6647:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[30] = /*_.IF___V30*/ meltfptr[29];; @@ -33414,7 +33416,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[28] = /*_.PROGN___V32*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6645:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6647:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V30*/ meltfptr[29] = 0; @@ -33427,14 +33429,14 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[28] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6646:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6648:/ 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:6646:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6648:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -33444,7 +33446,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6647:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6649:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("bad new name in (EXPORT_SYNONYM <newname> <oldname> [:doc <docum>])"), @@ -33458,12 +33460,12 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V33*/ meltfptr[29] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6648:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6650:/ 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:6650:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6652:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33490,7 +33492,7 @@ lab_endgetargs:; /*_.MEXPANDER__V36*/ meltfptr[35];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6651:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6653:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33516,7 +33518,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6651:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6653:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -33531,7 +33533,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6651:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6653:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33545,7 +33547,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6651; + argtab[2].meltbp_long = 6653; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpander_export_synonym oldsymb"; /*^apply.arg */ @@ -33565,7 +33567,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6651:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6653:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0; @@ -33578,7 +33580,7 @@ lab_endgetargs:; /*_.IF___V39*/ meltfptr[38] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6651:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6653:/ quasiblock"); /*_.PROGN___V41*/ meltfptr[39] = /*_.IF___V39*/ meltfptr[38];; @@ -33587,7 +33589,7 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = /*_.PROGN___V41*/ meltfptr[39];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6651:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6653:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V39*/ meltfptr[38] = 0; @@ -33600,14 +33602,14 @@ lab_endgetargs:; /*_.IFCPP___V38*/ meltfptr[37] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6652:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6654:/ 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:6652:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6654:/ cond"); /*cond */ if ( /*_#IS_NOT_A__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -33617,7 +33619,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6653:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6655:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("bad old name in (EXPORT_SYNONYM <newname> <oldname> [:doc <docum>])"), @@ -33631,10 +33633,10 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V42*/ meltfptr[38] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6654:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6656:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V43*/ meltfptr[39] = /*_.PAIR_TAIL__V42*/ meltfptr[38];; - MELT_LOCATION ("warmelt-macro.melt:6655:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_HEAD__V44*/ meltfptr[43] = @@ -33644,7 +33646,7 @@ lab_endgetargs:; /*_#__L13*/ meltfnum[0] = (( /*_.PAIR_HEAD__V44*/ meltfptr[43]) == (( /*!konst_5_DOC */ meltfrout->tabval[5])));; - MELT_LOCATION ("warmelt-macro.melt:6655:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ cond"); /*cond */ if ( /*_#__L13*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -33655,16 +33657,16 @@ lab_endgetargs:; /*_.PAIR_TAIL__V46*/ meltfptr[45] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6657:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6659:/ 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:6658:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6660:/ compute"); /*_.DOC__V25*/ meltfptr[24] = /*_.SETQ___V49*/ meltfptr[48] = /*_.PAIR_HEAD__V48*/ meltfptr[47];; - MELT_LOCATION ("warmelt-macro.melt:6656:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6658:/ quasiblock"); /*_.PROGN___V50*/ meltfptr[49] = /*_.SETQ___V49*/ meltfptr[48];; @@ -33673,7 +33675,7 @@ lab_endgetargs:; /*_.IF___V45*/ meltfptr[44] = /*_.PROGN___V50*/ meltfptr[49];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6655:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6657:/ clear"); /*clear *//*_.PAIR_TAIL__V46*/ meltfptr[45] = 0; /*^clear */ /*clear *//*_.SETQ___V47*/ meltfptr[46] = 0; @@ -33694,7 +33696,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6660:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6662:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33720,7 +33722,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6660:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6662:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -33735,7 +33737,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6660:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6662:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33749,7 +33751,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6660; + argtab[2].meltbp_long = 6662; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpander_export_synonym doc"; /*^apply.arg */ @@ -33769,7 +33771,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V53*/ meltfptr[47];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6660:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6662:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V53*/ meltfptr[47] = 0; @@ -33782,7 +33784,7 @@ lab_endgetargs:; /*_.IF___V52*/ meltfptr[46] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6660:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6662:/ quasiblock"); /*_.PROGN___V54*/ meltfptr[48] = /*_.IF___V52*/ meltfptr[46];; @@ -33791,7 +33793,7 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[45] = /*_.PROGN___V54*/ meltfptr[48];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6660:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6662:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V52*/ meltfptr[46] = 0; @@ -33804,10 +33806,10 @@ lab_endgetargs:; /*_.IFCPP___V51*/ meltfptr[45] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6661:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6663:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6662:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6664:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -33864,7 +33866,7 @@ lab_endgetargs:; /*_.RES__V56*/ meltfptr[47] = /*_.INST__V57*/ meltfptr[46];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6668:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6670:/ cppif.then"); /*^block */ /*anyblock */ { @@ -33890,7 +33892,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6668:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6670:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then */ { /*^cond.then */ @@ -33905,7 +33907,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6668:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6670:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -33919,7 +33921,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6668; + argtab[2].meltbp_long = 6670; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpander_export_synonym result"; /*^apply.arg */ @@ -33939,7 +33941,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V60*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6668:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6670:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V60*/ meltfptr[59] = 0; @@ -33952,7 +33954,7 @@ lab_endgetargs:; /*_.IF___V59*/ meltfptr[58] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6668:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6670:/ quasiblock"); /*_.PROGN___V61*/ meltfptr[59] = /*_.IF___V59*/ meltfptr[58];; @@ -33961,7 +33963,7 @@ lab_endgetargs:; /*_.IFCPP___V58*/ meltfptr[48] = /*_.PROGN___V61*/ meltfptr[59];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6668:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6670:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.IF___V59*/ meltfptr[58] = 0; @@ -33974,7 +33976,7 @@ lab_endgetargs:; /*_.IFCPP___V58*/ meltfptr[48] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6669:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6671:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -33983,7 +33985,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V56*/ meltfptr[47];; { - MELT_LOCATION ("warmelt-macro.melt:6669:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6671:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -33998,7 +34000,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V55*/ meltfptr[49] = /*_.RETURN___V62*/ meltfptr[58];; - MELT_LOCATION ("warmelt-macro.melt:6661:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6663:/ clear"); /*clear *//*_.RES__V56*/ meltfptr[47] = 0; /*^clear */ /*clear *//*_.IFCPP___V58*/ meltfptr[48] = 0; @@ -34006,7 +34008,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V62*/ meltfptr[58] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V55*/ meltfptr[49];; - MELT_LOCATION ("warmelt-macro.melt:6635:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6637:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -34058,7 +34060,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V51*/ meltfptr[45] = 0; /*^clear */ /*clear *//*_.LET___V55*/ meltfptr[49] = 0; - MELT_LOCATION ("warmelt-macro.melt:6629:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6631:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -34067,7 +34069,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6629:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6631:/ 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 9ee79669d68..9a1bfd6e3b0 100644 --- a/gcc/melt/generated/warmelt-macro+05.c +++ b/gcc/melt/generated/warmelt-macro+05.c @@ -2321,7 +2321,7 @@ meltrout_143_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6676:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6678:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -2362,7 +2362,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6677:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6679:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2374,7 +2374,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:6677:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6679:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2382,7 +2382,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6677:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6679:/ cond.else"); /*^block */ /*anyblock */ @@ -2396,7 +2396,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6677) ? (6677) : __LINE__, __FUNCTION__); + (6679) ? (6679) : __LINE__, __FUNCTION__); ; } ; @@ -2411,7 +2411,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6677:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6679:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -2424,7 +2424,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6678:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6680:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2436,7 +2436,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:6678:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6680:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2444,7 +2444,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6678:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6680:/ cond.else"); /*^block */ /*anyblock */ @@ -2458,7 +2458,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6678) ? (6678) : __LINE__, __FUNCTION__); + (6680) ? (6680) : __LINE__, __FUNCTION__); ; } ; @@ -2473,7 +2473,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6678:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6680:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -2486,7 +2486,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6679:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6681:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2497,7 +2497,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:6679:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6681:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2505,7 +2505,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6679:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6681:/ cond.else"); /*^block */ /*anyblock */ @@ -2519,7 +2519,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6679) ? (6679) : __LINE__, __FUNCTION__); + (6681) ? (6681) : __LINE__, __FUNCTION__); ; } ; @@ -2534,7 +2534,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6679:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6681:/ clear"); /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; @@ -2547,7 +2547,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6680:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6682:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2573,7 +2573,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6680:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6682:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2588,7 +2588,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6680:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6682:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2601,7 +2601,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6680; + argtab[2].meltbp_long = 6682; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_current_module_environment_container sexpr"; @@ -2622,7 +2622,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6680:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6682:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0; @@ -2635,7 +2635,7 @@ lab_endgetargs:; /*_.IF___V13*/ meltfptr[12] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6680:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6682:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[13] = /*_.IF___V13*/ meltfptr[12];; @@ -2644,7 +2644,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[13];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6680:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6682:/ clear"); /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V13*/ meltfptr[12] = 0; @@ -2657,10 +2657,10 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6681:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6683:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6682:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6684:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -2668,7 +2668,7 @@ lab_endgetargs:; meltfptr[13] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6683:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6685:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -2682,7 +2682,7 @@ lab_endgetargs:; /*_.CURPAIR__V20*/ meltfptr[19] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V19*/ meltfptr[18])));; - MELT_LOCATION ("warmelt-macro.melt:6685:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6687:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -2708,12 +2708,12 @@ lab_endgetargs:; ( /*_.LOC__V18*/ meltfptr[17]), "LOCA_LOCATION"); ; /*_.RES__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:6688:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6690:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOTNULL__L6*/ meltfnum[4] = (( /*_.CURPAIR__V20*/ meltfptr[19]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:6688:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6690:/ cond"); /*cond */ if ( /*_#NOTNULL__L6*/ meltfnum[4]) /*then */ { /*^cond.then */ @@ -2723,7 +2723,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6689:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6691:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]), ("(CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), @@ -2737,7 +2737,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6690:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6692:/ cppif.then"); /*^block */ /*anyblock */ { @@ -2763,7 +2763,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6690:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6692:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -2778,7 +2778,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6690:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6692:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -2791,7 +2791,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6690; + argtab[2].meltbp_long = 6692; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_current_module_environment_container return res"; @@ -2812,7 +2812,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6690:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6692:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0; @@ -2825,7 +2825,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6690:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6692:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[24] = /*_.IF___V24*/ meltfptr[23];; @@ -2834,7 +2834,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = /*_.PROGN___V26*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6690:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6692:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V24*/ meltfptr[23] = 0; @@ -2847,7 +2847,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6691:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6693:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -2856,7 +2856,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V21*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-macro.melt:6691:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6693:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -2871,7 +2871,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V16*/ meltfptr[12] = /*_.RETURN___V27*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:6681:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6683:/ clear"); /*clear *//*_.CONT__V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0; @@ -2887,7 +2887,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.RETURN___V27*/ meltfptr[23] = 0; - MELT_LOCATION ("warmelt-macro.melt:6676:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6678:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -2896,7 +2896,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[12];; { - MELT_LOCATION ("warmelt-macro.melt:6676:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6678:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3013,7 +3013,7 @@ meltrout_144_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6700:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6702:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -3054,7 +3054,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6701:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6703:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3066,7 +3066,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:6701:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6703:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3074,7 +3074,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6701:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6703:/ cond.else"); /*^block */ /*anyblock */ @@ -3088,7 +3088,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6701) ? (6701) : __LINE__, __FUNCTION__); + (6703) ? (6703) : __LINE__, __FUNCTION__); ; } ; @@ -3103,7 +3103,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6701:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6703:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; @@ -3116,7 +3116,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6702:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6704:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3128,7 +3128,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:6702:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6704:/ cond"); /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3136,7 +3136,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6702:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6704:/ cond.else"); /*^block */ /*anyblock */ @@ -3150,7 +3150,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6702) ? (6702) : __LINE__, __FUNCTION__); + (6704) ? (6704) : __LINE__, __FUNCTION__); ; } ; @@ -3165,7 +3165,7 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6702:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6704:/ clear"); /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; @@ -3176,12 +3176,12 @@ lab_endgetargs:; /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6703:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6705:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L3*/ meltfnum[0] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6703:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6705:/ cond"); /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3195,7 +3195,7 @@ lab_endgetargs:; /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6703:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6705:/ clear"); /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0; } ; @@ -3208,7 +3208,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6704:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6706:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3219,7 +3219,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:6704:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6706:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -3227,7 +3227,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6704:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6706:/ cond.else"); /*^block */ /*anyblock */ @@ -3241,7 +3241,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6704) ? (6704) : __LINE__, __FUNCTION__); + (6706) ? (6706) : __LINE__, __FUNCTION__); ; } ; @@ -3256,7 +3256,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6704:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6706:/ clear"); /*clear *//*_#IS_OBJECT__L4*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -3269,7 +3269,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6705:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6707:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3295,7 +3295,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6705:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6707:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -3310,7 +3310,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6705:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6707:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3323,7 +3323,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6705; + argtab[2].meltbp_long = 6707; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_parent_module_environment sexpr"; @@ -3344,7 +3344,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6705:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6707:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0; @@ -3357,7 +3357,7 @@ lab_endgetargs:; /*_.IF___V15*/ meltfptr[14] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6705:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6707:/ quasiblock"); /*_.PROGN___V17*/ meltfptr[15] = /*_.IF___V15*/ meltfptr[14];; @@ -3366,7 +3366,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.PROGN___V17*/ meltfptr[15];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6705:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6707:/ clear"); /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V15*/ meltfptr[14] = 0; @@ -3379,10 +3379,10 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6706:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6708:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6707:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6709:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -3390,7 +3390,7 @@ lab_endgetargs:; meltfptr[15] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6708:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6710:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -3404,7 +3404,7 @@ lab_endgetargs:; /*_.CURPAIR__V22*/ meltfptr[21] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));; - MELT_LOCATION ("warmelt-macro.melt:6710:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6712:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3430,12 +3430,12 @@ lab_endgetargs:; ( /*_.LOC__V20*/ meltfptr[19]), "LOCA_LOCATION"); ; /*_.RES__V23*/ meltfptr[22] = /*_.INST__V24*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:6713:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6715:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOTNULL__L7*/ meltfnum[5] = (( /*_.CURPAIR__V22*/ meltfptr[21]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:6713:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6715:/ cond"); /*cond */ if ( /*_#NOTNULL__L7*/ meltfnum[5]) /*then */ { /*^cond.then */ @@ -3445,7 +3445,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6714:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6716:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(PARENT_MODULE_ENVIRONMENT) should not have any argument"), @@ -3459,7 +3459,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6715:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6717:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3485,7 +3485,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6715:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6717:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[3]) /*then */ { /*^cond.then */ @@ -3500,7 +3500,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6715:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6717:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3513,7 +3513,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6715; + argtab[2].meltbp_long = 6717; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_parent_module_environment return res"; @@ -3534,7 +3534,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6715:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6717:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0; @@ -3547,7 +3547,7 @@ lab_endgetargs:; /*_.IF___V26*/ meltfptr[25] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6715:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6717:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[26] = /*_.IF___V26*/ meltfptr[25];; @@ -3556,7 +3556,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[24] = /*_.PROGN___V28*/ meltfptr[26];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6715:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6717:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[3] = 0; /*^clear */ /*clear *//*_.IF___V26*/ meltfptr[25] = 0; @@ -3569,7 +3569,7 @@ lab_endgetargs:; /*_.IFCPP___V25*/ meltfptr[24] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6716:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6718:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3578,7 +3578,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V23*/ meltfptr[22];; { - MELT_LOCATION ("warmelt-macro.melt:6716:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6718:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3593,7 +3593,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V18*/ meltfptr[14] = /*_.RETURN___V29*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:6706:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6708:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -3609,7 +3609,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.RETURN___V29*/ meltfptr[25] = 0; - MELT_LOCATION ("warmelt-macro.melt:6700:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6702:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -3618,7 +3618,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6700:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6702:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -3739,7 +3739,7 @@ meltrout_145_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6725:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6727:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -3780,7 +3780,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6726:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6728:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3806,7 +3806,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6726:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6728:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3821,7 +3821,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6726:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6728:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -3834,7 +3834,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6726; + argtab[2].meltbp_long = 6728; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_update_current_module_environment_container sexpr"; @@ -3854,7 +3854,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6726:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6728:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -3867,7 +3867,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6726:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6728:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -3876,7 +3876,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6726:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6728:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -3891,7 +3891,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6727:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6729:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3903,7 +3903,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:6727:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6729:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -3911,7 +3911,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6727:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6729:/ cond.else"); /*^block */ /*anyblock */ @@ -3925,7 +3925,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6727) ? (6727) : __LINE__, __FUNCTION__); + (6729) ? (6729) : __LINE__, __FUNCTION__); ; } ; @@ -3940,7 +3940,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6727:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6729:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -3953,7 +3953,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6728:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6730:/ cppif.then"); /*^block */ /*anyblock */ { @@ -3965,7 +3965,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:6728:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6730:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -3973,7 +3973,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6728:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6730:/ cond.else"); /*^block */ /*anyblock */ @@ -3987,7 +3987,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6728) ? (6728) : __LINE__, __FUNCTION__); + (6730) ? (6730) : __LINE__, __FUNCTION__); ; } ; @@ -4002,7 +4002,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6728:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6730:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -4015,7 +4015,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6729:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6731:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4026,7 +4026,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:6729:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6731:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4034,7 +4034,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6729:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6731:/ cond.else"); /*^block */ /*anyblock */ @@ -4048,7 +4048,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6729) ? (6729) : __LINE__, __FUNCTION__); + (6731) ? (6731) : __LINE__, __FUNCTION__); ; } ; @@ -4063,7 +4063,7 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6729:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6731:/ clear"); /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0; @@ -4074,10 +4074,10 @@ lab_endgetargs:; /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6730:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6732:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6731:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6733:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -4085,7 +4085,7 @@ lab_endgetargs:; meltfptr[16] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6732:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6734:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -4099,7 +4099,7 @@ lab_endgetargs:; /*_.CURPAIR__V20*/ meltfptr[19] = (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V19*/ meltfptr[18])));; - MELT_LOCATION ("warmelt-macro.melt:6734:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6736:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4125,12 +4125,12 @@ lab_endgetargs:; ( /*_.LOC__V17*/ meltfptr[16]), "LOCA_LOCATION"); ; /*_.RES__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; - MELT_LOCATION ("warmelt-macro.melt:6737:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6739:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NOTNULL__L6*/ meltfnum[0] = (( /*_.CURPAIR__V20*/ meltfptr[19]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:6737:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6739:/ cond"); /*cond */ if ( /*_#NOTNULL__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4140,7 +4140,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6738:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6740:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]), ("(UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), @@ -4154,7 +4154,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6739:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4180,7 +4180,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6739:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4195,7 +4195,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6739:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4208,7 +4208,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6739; + argtab[2].meltbp_long = 6741; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_update_current_module_environment_container return res"; @@ -4229,7 +4229,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V25*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6739:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V25*/ meltfptr[24] = 0; @@ -4242,7 +4242,7 @@ lab_endgetargs:; /*_.IF___V24*/ meltfptr[23] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6739:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ quasiblock"); /*_.PROGN___V26*/ meltfptr[24] = /*_.IF___V24*/ meltfptr[23];; @@ -4251,7 +4251,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = /*_.PROGN___V26*/ meltfptr[24];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6739:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6741:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V24*/ meltfptr[23] = 0; @@ -4264,7 +4264,7 @@ lab_endgetargs:; /*_.IFCPP___V23*/ meltfptr[22] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6740:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6742:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4273,7 +4273,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V21*/ meltfptr[20];; { - MELT_LOCATION ("warmelt-macro.melt:6740:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6742:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4288,7 +4288,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V16*/ meltfptr[14] = /*_.RETURN___V27*/ meltfptr[23];; - MELT_LOCATION ("warmelt-macro.melt:6730:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6732:/ clear"); /*clear *//*_.LOC__V17*/ meltfptr[16] = 0; /*^clear */ /*clear *//*_.CONT__V18*/ meltfptr[17] = 0; @@ -4304,7 +4304,7 @@ lab_endgetargs:; /*clear *//*_.IFCPP___V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.RETURN___V27*/ meltfptr[23] = 0; - MELT_LOCATION ("warmelt-macro.melt:6725:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6727:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -4313,7 +4313,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];; { - MELT_LOCATION ("warmelt-macro.melt:6725:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6727:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -4437,7 +4437,7 @@ meltrout_146_warmelt_macro_MEXPAND_FETCH_PREDEFINED (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6750:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6752:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -4478,7 +4478,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6751:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6753:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4504,7 +4504,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6751:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6753:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4519,7 +4519,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6751:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6753:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4532,7 +4532,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6751; + argtab[2].meltbp_long = 6753; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_fetch_predefined sexpr"; /*^apply.arg */ @@ -4551,7 +4551,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6751:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6753:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -4564,7 +4564,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6751:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6753:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -4573,7 +4573,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6751:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6753:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -4588,7 +4588,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6752:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6754:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4600,7 +4600,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:6752:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6754:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4608,7 +4608,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6752:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6754:/ cond.else"); /*^block */ /*anyblock */ @@ -4622,7 +4622,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6752) ? (6752) : __LINE__, __FUNCTION__); + (6754) ? (6754) : __LINE__, __FUNCTION__); ; } ; @@ -4637,7 +4637,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6752:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6754:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -4650,7 +4650,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6753:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6755:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4662,7 +4662,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:6753:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6755:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4670,7 +4670,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6753:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6755:/ cond.else"); /*^block */ /*anyblock */ @@ -4684,7 +4684,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6753) ? (6753) : __LINE__, __FUNCTION__); + (6755) ? (6755) : __LINE__, __FUNCTION__); ; } ; @@ -4699,7 +4699,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6753:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6755:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -4710,12 +4710,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6754:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6756:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6754:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6756:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -4729,7 +4729,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6754:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6756:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -4742,7 +4742,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6755:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6757:/ cppif.then"); /*^block */ /*anyblock */ { @@ -4753,7 +4753,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:6755:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6757:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4761,7 +4761,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6755:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6757:/ cond.else"); /*^block */ /*anyblock */ @@ -4775,7 +4775,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6755) ? (6755) : __LINE__, __FUNCTION__); + (6757) ? (6757) : __LINE__, __FUNCTION__); ; } ; @@ -4790,7 +4790,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6755:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6757:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -4801,10 +4801,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6756:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6758:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6757:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6759:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -4812,7 +4812,7 @@ lab_endgetargs:; meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6758:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6760:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -4830,7 +4830,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6760:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6762:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -4852,12 +4852,12 @@ lab_endgetargs:; argtab, "", (union meltparam_un *) 0); } ; - MELT_LOCATION ("warmelt-macro.melt:6762:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6764:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L7*/ meltfnum[0] = (( /*_.CURPAIR__V22*/ meltfptr[21]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6762:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6764:/ cond"); /*cond */ if ( /*_#NULL__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -4867,7 +4867,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6763:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6765:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(FETCH_PREDEFINED <predef-name-or-rank>) missing argument"), @@ -4879,7 +4879,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6764:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6766:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V25*/ meltfptr[24] = @@ -4888,7 +4888,7 @@ lab_endgetargs:; /*_#NOTNULL__L8*/ meltfnum[7] = (( /*_.PAIR_TAIL__V25*/ meltfptr[24]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:6764:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6766:/ cond"); /*cond */ if ( /*_#NOTNULL__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -4898,7 +4898,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6765:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6767:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(FETCH_PREDEFINED <predef-name-or-rank>) extra argument"), @@ -4910,14 +4910,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6766:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6768:/ 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:6766:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6768:/ cond"); /*cond */ if ( /*_#IS_A__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -4925,7 +4925,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6766:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6768:/ cond.else"); /*^block */ /*anyblock */ @@ -4940,7 +4940,7 @@ lab_endgetargs:; /*_#OR___L10*/ meltfnum[9] = /*_#IS_INTEGERBOX__L11*/ meltfnum[10];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6766:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6768:/ clear"); /*clear *//*_#IS_INTEGERBOX__L11*/ meltfnum[10] = 0; } ; @@ -4948,7 +4948,7 @@ lab_endgetargs:; ; /*_#NOT__L12*/ meltfnum[10] = (!( /*_#OR___L10*/ meltfnum[9]));; - MELT_LOCATION ("warmelt-macro.melt:6766:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6768:/ cond"); /*cond */ if ( /*_#NOT__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ @@ -4958,7 +4958,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6767:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6769:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(FETCH_PREDEFINED <predef-name-or-rank>) invalid argument"), @@ -4970,7 +4970,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6768:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6770:/ quasiblock"); /*^checksignal */ @@ -5010,7 +5010,7 @@ lab_endgetargs:; /*_.RES__V27*/ meltfptr[26] = /*_.INST__V28*/ meltfptr[27];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6771:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6773:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5036,7 +5036,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6771:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6773:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then */ { /*^cond.then */ @@ -5051,7 +5051,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6771:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6773:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5065,7 +5065,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6771; + argtab[2].meltbp_long = 6773; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_fetch_predefined result"; /*^apply.arg */ @@ -5085,7 +5085,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V31*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6771:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6773:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V31*/ meltfptr[30] = 0; @@ -5098,7 +5098,7 @@ lab_endgetargs:; /*_.IF___V30*/ meltfptr[29] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6771:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6773:/ quasiblock"); /*_.PROGN___V32*/ meltfptr[30] = /*_.IF___V30*/ meltfptr[29];; @@ -5107,7 +5107,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[28] = /*_.PROGN___V32*/ meltfptr[30];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6771:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6773:/ clear"); /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[12] = 0; /*^clear */ /*clear *//*_.IF___V30*/ meltfptr[29] = 0; @@ -5120,7 +5120,7 @@ lab_endgetargs:; /*_.IFCPP___V29*/ meltfptr[28] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6772:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6774:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5129,7 +5129,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V27*/ meltfptr[26];; { - MELT_LOCATION ("warmelt-macro.melt:6772:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6774:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5144,7 +5144,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V26*/ meltfptr[25] = /*_.RETURN___V33*/ meltfptr[29];; - MELT_LOCATION ("warmelt-macro.melt:6768:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6770:/ clear"); /*clear *//*_.RES__V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.IFCPP___V29*/ meltfptr[28] = 0; @@ -5152,7 +5152,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V33*/ meltfptr[29] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:6756:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6758:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -5178,7 +5178,7 @@ lab_endgetargs:; /*clear *//*_#NOT__L12*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.LET___V26*/ meltfptr[25] = 0; - MELT_LOCATION ("warmelt-macro.melt:6750:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6752:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -5187,7 +5187,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6750:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6752:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -5314,7 +5314,7 @@ meltrout_147_warmelt_macro_MEXPAND_STORE_PREDEFINED (meltclosure_ptr_t /*getargs*/ /*getarg#0 */ - MELT_LOCATION ("warmelt-macro.melt:6778:/ getarg"); + MELT_LOCATION ("warmelt-macro.melt:6780:/ getarg"); /*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ @@ -5355,7 +5355,7 @@ lab_endgetargs:; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6779:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6781:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5381,7 +5381,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6779:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6781:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5396,7 +5396,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6779:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6781:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5409,7 +5409,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6779; + argtab[2].meltbp_long = 6781; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_store_predefined sexpr"; /*^apply.arg */ @@ -5428,7 +5428,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6779:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6781:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0; @@ -5441,7 +5441,7 @@ lab_endgetargs:; /*_.IF___V7*/ meltfptr[6] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6779:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6781:/ quasiblock"); /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];; @@ -5450,7 +5450,7 @@ lab_endgetargs:; /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6779:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6781:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V7*/ meltfptr[6] = 0; @@ -5465,7 +5465,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6780:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6782:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5477,7 +5477,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:6780:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6782:/ cond"); /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5485,7 +5485,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6780:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6782:/ cond.else"); /*^block */ /*anyblock */ @@ -5499,7 +5499,7 @@ lab_endgetargs:; melt_assert_failed (("check sexpr"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6780) ? (6780) : __LINE__, __FUNCTION__); + (6782) ? (6782) : __LINE__, __FUNCTION__); ; } ; @@ -5514,7 +5514,7 @@ lab_endgetargs:; /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6780:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6782:/ clear"); /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0; @@ -5527,7 +5527,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6781:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6783:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5539,7 +5539,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:6781:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6783:/ cond"); /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5547,7 +5547,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6781:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6783:/ cond.else"); /*^block */ /*anyblock */ @@ -5561,7 +5561,7 @@ lab_endgetargs:; melt_assert_failed (("check env"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6781) ? (6781) : __LINE__, __FUNCTION__); + (6783) ? (6783) : __LINE__, __FUNCTION__); ; } ; @@ -5576,7 +5576,7 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6781:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6783:/ clear"); /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; @@ -5587,12 +5587,12 @@ lab_endgetargs:; /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6782:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6784:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L5*/ meltfnum[1] = (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6782:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6784:/ cond"); /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */ { /*^cond.then */ @@ -5606,7 +5606,7 @@ lab_endgetargs:; /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6782:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6784:/ clear"); /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0; } ; @@ -5619,7 +5619,7 @@ lab_endgetargs:; ; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6783:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6785:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5630,7 +5630,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:6783:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6785:/ cond"); /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5638,7 +5638,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6783:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6785:/ cond.else"); /*^block */ /*anyblock */ @@ -5652,7 +5652,7 @@ lab_endgetargs:; melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, - (6783) ? (6783) : __LINE__, __FUNCTION__); + (6785) ? (6785) : __LINE__, __FUNCTION__); ; } ; @@ -5667,7 +5667,7 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6783:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6785:/ clear"); /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0; @@ -5678,10 +5678,10 @@ lab_endgetargs:; /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6784:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6786:/ quasiblock"); - MELT_LOCATION ("warmelt-macro.melt:6785:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6787:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS"); @@ -5689,7 +5689,7 @@ lab_endgetargs:; meltfptr[18] = slot; }; ; - MELT_LOCATION ("warmelt-macro.melt:6786:/ getslot"); + MELT_LOCATION ("warmelt-macro.melt:6788:/ getslot"); { melt_ptr_t slot = 0; melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION"); @@ -5707,7 +5707,7 @@ lab_endgetargs:; /*_.PAIR_HEAD__V23*/ meltfptr[22] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6788:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6790:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5730,12 +5730,12 @@ lab_endgetargs:; } ; /*_.SVAL__V25*/ meltfptr[24] = ( /*nil */ NULL);; - MELT_LOCATION ("warmelt-macro.melt:6791:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6793:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L7*/ meltfnum[0] = (( /*_.CURPAIR__V22*/ meltfptr[21]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6791:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6793:/ cond"); /*cond */ if ( /*_#NULL__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ @@ -5745,7 +5745,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6792:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6794:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), @@ -5759,15 +5759,15 @@ lab_endgetargs:; ; /*_.PAIR_TAIL__V26*/ meltfptr[25] = (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6793:/ compute"); + MELT_LOCATION ("warmelt-macro.melt:6795:/ compute"); /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V27*/ meltfptr[26] = /*_.PAIR_TAIL__V26*/ meltfptr[25];; - MELT_LOCATION ("warmelt-macro.melt:6794:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6796:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#NULL__L8*/ meltfnum[7] = (( /*_.CURPAIR__V22*/ meltfptr[21]) == NULL);; - MELT_LOCATION ("warmelt-macro.melt:6794:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6796:/ cond"); /*cond */ if ( /*_#NULL__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ @@ -5777,7 +5777,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6795:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6797:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), @@ -5791,7 +5791,7 @@ lab_endgetargs:; ; /*_.PAIR_HEAD__V28*/ meltfptr[27] = (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));; - MELT_LOCATION ("warmelt-macro.melt:6796:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6798:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -5816,7 +5816,7 @@ lab_endgetargs:; /*^compute */ /*_.SVAL__V25*/ meltfptr[24] = /*_.SETQ___V30*/ meltfptr[29] = /*_.MEXPANDER__V29*/ meltfptr[28];; - MELT_LOCATION ("warmelt-macro.melt:6797:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6799:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.PAIR_TAIL__V31*/ meltfptr[30] = @@ -5825,7 +5825,7 @@ lab_endgetargs:; /*_#NOTNULL__L9*/ meltfnum[8] = (( /*_.PAIR_TAIL__V31*/ meltfptr[30]) != NULL);; - MELT_LOCATION ("warmelt-macro.melt:6797:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6799:/ cond"); /*cond */ if ( /*_#NOTNULL__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ @@ -5835,7 +5835,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6798:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6800:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(STORE_PREDEFINED <predef-name-or-rank> <value>) extra argument"), @@ -5847,14 +5847,14 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6799:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6801:/ 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:6799:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6801:/ cond"); /*cond */ if ( /*_#IS_A__L10*/ meltfnum[9]) /*then */ { /*^cond.then */ @@ -5862,7 +5862,7 @@ lab_endgetargs:; } else { - MELT_LOCATION ("warmelt-macro.melt:6799:/ cond.else"); + MELT_LOCATION ("warmelt-macro.melt:6801:/ cond.else"); /*^block */ /*anyblock */ @@ -5878,7 +5878,7 @@ lab_endgetargs:; /*_#IS_INTEGERBOX__L12*/ meltfnum[11];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6799:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6801:/ clear"); /*clear *//*_#IS_INTEGERBOX__L12*/ meltfnum[11] = 0; } ; @@ -5886,7 +5886,7 @@ lab_endgetargs:; ; /*_#NOT__L13*/ meltfnum[11] = (!( /*_#OR___L11*/ meltfnum[10]));; - MELT_LOCATION ("warmelt-macro.melt:6799:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6801:/ cond"); /*cond */ if ( /*_#NOT__L13*/ meltfnum[11]) /*then */ { /*^cond.then */ @@ -5896,7 +5896,7 @@ lab_endgetargs:; { - MELT_LOCATION ("warmelt-macro.melt:6800:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6802:/ locexp"); /* error_plain */ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]), ("(STORE_PREDEFINED <predef-name-or-rank> <value>) invalid predef"), @@ -5908,7 +5908,7 @@ lab_endgetargs:; ; } /*noelse */ ; - MELT_LOCATION ("warmelt-macro.melt:6801:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6803:/ quasiblock"); /*^checksignal */ @@ -5957,7 +5957,7 @@ lab_endgetargs:; /*_.RES__V33*/ meltfptr[32] = /*_.INST__V34*/ meltfptr[33];; #if MELT_HAVE_DEBUG - MELT_LOCATION ("warmelt-macro.melt:6806:/ cppif.then"); + MELT_LOCATION ("warmelt-macro.melt:6808:/ cppif.then"); /*^block */ /*anyblock */ { @@ -5983,7 +5983,7 @@ lab_endgetargs:; 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; - MELT_LOCATION ("warmelt-macro.melt:6806:/ cond"); + MELT_LOCATION ("warmelt-macro.melt:6808:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then */ { /*^cond.then */ @@ -5998,7 +5998,7 @@ lab_endgetargs:; 0L #endif /* meltcallcount the_meltcallcount */ ;; - MELT_LOCATION ("warmelt-macro.melt:6806:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6808:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ @@ -6012,7 +6012,7 @@ lab_endgetargs:; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-macro.melt"; /*^apply.arg */ - argtab[2].meltbp_long = 6806; + argtab[2].meltbp_long = 6808; /*^apply.arg */ argtab[3].meltbp_cstring = "mexpand_store_predefined result"; /*^apply.arg */ @@ -6032,7 +6032,7 @@ lab_endgetargs:; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6806:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6808:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0; @@ -6045,7 +6045,7 @@ lab_endgetargs:; /*_.IF___V36*/ meltfptr[35] = NULL;; } ; - MELT_LOCATION ("warmelt-macro.melt:6806:/ quasiblock"); + MELT_LOCATION ("warmelt-macro.melt:6808:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[36] = /*_.IF___V36*/ meltfptr[35];; @@ -6054,7 +6054,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[34] = /*_.PROGN___V38*/ meltfptr[36];; /*epilog */ - MELT_LOCATION ("warmelt-macro.melt:6806:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6808:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0; /*^clear */ /*clear *//*_.IF___V36*/ meltfptr[35] = 0; @@ -6067,7 +6067,7 @@ lab_endgetargs:; /*_.IFCPP___V35*/ meltfptr[34] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; - MELT_LOCATION ("warmelt-macro.melt:6807:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6809:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -6076,7 +6076,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V33*/ meltfptr[32];; { - MELT_LOCATION ("warmelt-macro.melt:6807:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6809:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG if (meltxresdescr_ && meltxresdescr_[0] && meltxrestab_) @@ -6091,7 +6091,7 @@ lab_endgetargs:; /*finalret */ goto labend_rout; /*_.LET___V32*/ meltfptr[31] = /*_.RETURN___V39*/ meltfptr[35];; - MELT_LOCATION ("warmelt-macro.melt:6801:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6803:/ clear"); /*clear *//*_.RES__V33*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.IFCPP___V35*/ meltfptr[34] = 0; @@ -6099,7 +6099,7 @@ lab_endgetargs:; /*clear *//*_.RETURN___V39*/ meltfptr[35] = 0; /*_.LET___V18*/ meltfptr[16] = /*_.LET___V32*/ meltfptr[31];; - MELT_LOCATION ("warmelt-macro.melt:6784:/ clear"); + MELT_LOCATION ("warmelt-macro.melt:6786:/ clear"); /*clear *//*_.CONT__V19*/ meltfptr[18] = 0; /*^clear */ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0; @@ -6139,7 +6139,7 @@ lab_endgetargs:; /*clear *//*_#NOT__L13*/ meltfnum[11] = 0; /*^clear */ /*clear *//*_.LET___V32*/ meltfptr[31] = 0; - MELT_LOCATION ("warmelt-macro.melt:6778:/ checksignal"); + MELT_LOCATION ("warmelt-macro.melt:6780:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^quasiblock */ @@ -6148,7 +6148,7 @@ lab_endgetargs:; /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];; { - MELT_LOCATION ("warmelt-macro.melt:6778:/ locexp"); + MELT_LOCATION ("warmelt-macro.melt:6780:/ 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 157b1bc2915..e856c33e7f7 100644 --- a/gcc/melt/generated/warmelt-macro+meltdesc.c +++ b/gcc/melt/generated/warmelt-macro+meltdesc.c @@ -19,7 +19,7 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189193] MELT_0.9.6-pre" +const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189247] MELT_0.9.6-pre" #ifdef __cplusplus " (in C++)" @@ -28,7 +28,7 @@ const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189193]"; +const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189247]"; /* source name & real path of the module */ /*MELTMODULENAME MELT-STAGE-ZERO/warmelt-macro */ @@ -38,16 +38,16 @@ const char melt_modulerealpath[]="/usr/local/libexec/gcc-melt/gcc/x86_64-unknown /* hash of preprocessed melt-run.h generating this */ const char melt_prepromd5meltrun[]="a1812970e3503f555970e02ead913377"; /* hexmd5checksum of primary C file */ -const char melt_primaryhexmd5[]="906313265229a868f9e10ca4b69c0473"; +const char melt_primaryhexmd5[]="3c02a42a61de3a8fec7a0e92861b520c"; /* hexmd5checksum of secondary C files */ const char* const melt_secondaryhexmd5tab[]={ /*nosecfile*/ (const char*)0, - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+01.c #1 */ "cfdee5220e6cca256b148c509be42a7d", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+02.c #2 */ "51ee691e8cc75578f0231ad20307a83c", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+03.c #3 */ "f4b4c880e5e020283a851765c5761632", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+04.c #4 */ "c468573a4acc58e09abf01f88c0c4ac3", - /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+05.c #5 */ "4bf6ff5120e7940313d6d0274108a9ae", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+01.c #1 */ "7ee719bcf92dc86560a3ddc7e8bdec60", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+02.c #2 */ "c3ae72ccd7eb1ebf98b8b11dee55202a", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+03.c #3 */ "c911f9cab0f3c7a2eadf253a014db636", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+04.c #4 */ "0f8772027d66faf9eb234cd8bf79a636", + /*sechexmd5checksum MELT-STAGE-ZERO/warmelt-macro+05.c #5 */ "1c4a45218061897ffa90bbad69604187", /*nosecfile*/ (const char*)0, (const char*)0 }; @@ -55,10 +55,10 @@ const char* const melt_secondaryhexmd5tab[]={ const int melt_lastsecfileindex=5; /* cumulated checksum of primary & secondary files */ -const char melt_cumulated_hexmd5[]="6aedbc407099907cb8c96971c1ce290b" ; +const char melt_cumulated_hexmd5[]="b38ae1e7d431f25b680bb4b07100fa6f" ; /* include the timestamp file */ -#define meltmod_warmelt_macro_mds__6aedbc407099907cb8c96971c1ce290b 1 +#define meltmod_warmelt_macro_mds__b38ae1e7d431f25b680bb4b07100fa6f 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 224a634d5d8..889f6c6edde 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__6aedbc407099907cb8c96971c1ce290b +#if meltmod_warmelt_macro_mds__b38ae1e7d431f25b680bb4b07100fa6f /* MELT generation timestamp for MELT-STAGE-ZERO/warmelt-macro */ #ifdef __cplusplus @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Tue Jul 3 16:19:24 2012 CEST"; -const long long melt_gen_timenum=1341325164; +const char melt_gen_timestamp[]="Wed Jul 4 11:29:29 2012 CEST"; +const long long melt_gen_timenum=1341394169; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus @@ -34,7 +34,7 @@ const long long melt_gen_timenum=1341325164; } ; /* end extern C */ #endif /*__cplusplus */ - #else /* ! meltmod_warmelt_macro_mds__6aedbc407099907cb8c96971c1ce290b */ + #else /* ! meltmod_warmelt_macro_mds__b38ae1e7d431f25b680bb4b07100fa6f */ #error invalid timestamp file for MELT-STAGE-ZERO/warmelt-macro - #endif /* meltmod_warmelt_macro_mds__6aedbc407099907cb8c96971c1ce290b */ + #endif /* meltmod_warmelt_macro_mds__b38ae1e7d431f25b680bb4b07100fa6f */ diff --git a/gcc/melt/generated/warmelt-macro.c b/gcc/melt/generated/warmelt-macro.c index 02520cb0e92..a7965221be5 100644 --- a/gcc/melt/generated/warmelt-macro.c +++ b/gcc/melt/generated/warmelt-macro.c @@ -26402,7 +26402,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1486__PAIRLIST_TO_RETURN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1486__PAIRLIST_TO_RETURN.routdescr, - "PAIRLIST_TO_RETURN @warmelt-macro.melt:5966", + "PAIRLIST_TO_RETURN @warmelt-macro.melt:5968", MELT_ROUTDESCR_LEN - 1); cdat->drout_1486__PAIRLIST_TO_RETURN.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1486__PAIRLIST_TO_RETURN, @@ -26421,7 +26421,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1488__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1488__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:5974", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:5976", MELT_ROUTDESCR_LEN - 1); cdat->drout_1488__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1488__LAMBDA_, meltrout_124_warmelt_macro_LAMBDA___34__); @@ -26432,7 +26432,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1489__MEXPAND_PROGN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1489__MEXPAND_PROGN.routdescr, - "MEXPAND_PROGN @warmelt-macro.melt:5982", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_PROGN @warmelt-macro.melt:5984", MELT_ROUTDESCR_LEN - 1); cdat->drout_1489__MEXPAND_PROGN.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1489__MEXPAND_PROGN, meltrout_125_warmelt_macro_MEXPAND_PROGN); @@ -26478,7 +26478,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1493__MEXPAND_RETURN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1493__MEXPAND_RETURN.routdescr, - "MEXPAND_RETURN @warmelt-macro.melt:6008", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_RETURN @warmelt-macro.melt:6010", MELT_ROUTDESCR_LEN - 1); cdat->drout_1493__MEXPAND_RETURN.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1493__MEXPAND_RETURN, meltrout_126_warmelt_macro_MEXPAND_RETURN); @@ -26525,7 +26525,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1497__MEXPAND_FOREVER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1497__MEXPAND_FOREVER.routdescr, - "MEXPAND_FOREVER @warmelt-macro.melt:6032", + "MEXPAND_FOREVER @warmelt-macro.melt:6034", MELT_ROUTDESCR_LEN - 1); cdat->drout_1497__MEXPAND_FOREVER.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1497__MEXPAND_FOREVER, @@ -26575,7 +26575,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1501__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1501__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:6056", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:6058", MELT_ROUTDESCR_LEN - 1); cdat->drout_1501__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1501__LAMBDA_, meltrout_128_warmelt_macro_LAMBDA___35__); @@ -26615,7 +26615,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1504__MEXPAND_EXIT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1504__MEXPAND_EXIT.routdescr, - "MEXPAND_EXIT @warmelt-macro.melt:6075", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_EXIT @warmelt-macro.melt:6077", MELT_ROUTDESCR_LEN - 1); cdat->drout_1504__MEXPAND_EXIT.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1504__MEXPAND_EXIT, meltrout_129_warmelt_macro_MEXPAND_EXIT); @@ -26633,7 +26633,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1506__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1506__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:6101", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:6103", MELT_ROUTDESCR_LEN - 1); cdat->drout_1506__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1506__LAMBDA_, meltrout_130_warmelt_macro_LAMBDA___36__); @@ -26672,7 +26672,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1509__MEXPAND_AGAIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1509__MEXPAND_AGAIN.routdescr, - "MEXPAND_AGAIN @warmelt-macro.melt:6118", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_AGAIN @warmelt-macro.melt:6120", MELT_ROUTDESCR_LEN - 1); cdat->drout_1509__MEXPAND_AGAIN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1509__MEXPAND_AGAIN, meltrout_131_warmelt_macro_MEXPAND_AGAIN); @@ -26718,7 +26718,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1513__MEXPAND_COMPILE_WARNING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1513__MEXPAND_COMPILE_WARNING.routdescr, - "MEXPAND_COMPILE_WARNING @warmelt-macro.melt:6162", + "MEXPAND_COMPILE_WARNING @warmelt-macro.melt:6164", MELT_ROUTDESCR_LEN - 1); cdat->drout_1513__MEXPAND_COMPILE_WARNING.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1513__MEXPAND_COMPILE_WARNING, @@ -26768,7 +26768,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1517__MEXPAND_ASSERT_MSG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1517__MEXPAND_ASSERT_MSG.routdescr, - "MEXPAND_ASSERT_MSG @warmelt-macro.melt:6206", + "MEXPAND_ASSERT_MSG @warmelt-macro.melt:6208", MELT_ROUTDESCR_LEN - 1); cdat->drout_1517__MEXPAND_ASSERT_MSG.nbval = 15; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1517__MEXPAND_ASSERT_MSG, @@ -26909,7 +26909,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1527__MEXPAND_DEBUG_MSG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1527__MEXPAND_DEBUG_MSG.routdescr, - "MEXPAND_DEBUG_MSG @warmelt-macro.melt:6295", + "MEXPAND_DEBUG_MSG @warmelt-macro.melt:6297", MELT_ROUTDESCR_LEN - 1); cdat->drout_1527__MEXPAND_DEBUG_MSG.nbval = 11; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1527__MEXPAND_DEBUG_MSG, @@ -27019,7 +27019,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1535__MEXPAND_DEBUG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1535__MEXPAND_DEBUG.routdescr, - "MEXPAND_DEBUG @warmelt-macro.melt:6367", MELT_ROUTDESCR_LEN - 1); + "MEXPAND_DEBUG @warmelt-macro.melt:6369", MELT_ROUTDESCR_LEN - 1); cdat->drout_1535__MEXPAND_DEBUG.nbval = 24; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1535__MEXPAND_DEBUG, meltrout_135_warmelt_macro_MEXPAND_DEBUG); @@ -27165,7 +27165,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1546__MEXPAND_EXPORT_VALUES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1546__MEXPAND_EXPORT_VALUES.routdescr, - "MEXPAND_EXPORT_VALUES @warmelt-macro.melt:6477", + "MEXPAND_EXPORT_VALUES @warmelt-macro.melt:6479", MELT_ROUTDESCR_LEN - 1); cdat->drout_1546__MEXPAND_EXPORT_VALUES.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1546__MEXPAND_EXPORT_VALUES, @@ -27184,7 +27184,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1548__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1548__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:6489", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:6491", MELT_ROUTDESCR_LEN - 1); cdat->drout_1548__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1548__LAMBDA_, meltrout_137_warmelt_macro_LAMBDA___37__); @@ -27226,7 +27226,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1551__MEXPAND_EXPORT_MACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1551__MEXPAND_EXPORT_MACRO.routdescr, - "MEXPAND_EXPORT_MACRO @warmelt-macro.melt:6509", + "MEXPAND_EXPORT_MACRO @warmelt-macro.melt:6511", MELT_ROUTDESCR_LEN - 1); cdat->drout_1551__MEXPAND_EXPORT_MACRO.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1551__MEXPAND_EXPORT_MACRO, @@ -27276,7 +27276,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1555__MEXPAND_EXPORT_PATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1555__MEXPAND_EXPORT_PATMACRO.routdescr, - "MEXPAND_EXPORT_PATMACRO @warmelt-macro.melt:6552", + "MEXPAND_EXPORT_PATMACRO @warmelt-macro.melt:6554", MELT_ROUTDESCR_LEN - 1); cdat->drout_1555__MEXPAND_EXPORT_PATMACRO.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1555__MEXPAND_EXPORT_PATMACRO, @@ -27326,7 +27326,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1559__MEXPAND_EXPORT_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1559__MEXPAND_EXPORT_CLASS.routdescr, - "MEXPAND_EXPORT_CLASS @warmelt-macro.melt:6600", + "MEXPAND_EXPORT_CLASS @warmelt-macro.melt:6602", MELT_ROUTDESCR_LEN - 1); cdat->drout_1559__MEXPAND_EXPORT_CLASS.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1559__MEXPAND_EXPORT_CLASS, @@ -27345,7 +27345,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1561__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1561__LAMBDA_.routdescr, - "LAMBDA_ @warmelt-macro.melt:6612", MELT_ROUTDESCR_LEN - 1); + "LAMBDA_ @warmelt-macro.melt:6614", MELT_ROUTDESCR_LEN - 1); cdat->drout_1561__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1561__LAMBDA_, meltrout_141_warmelt_macro_LAMBDA___38__); @@ -27387,7 +27387,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1564__MEXPAND_EXPORT_SYNONYM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1564__MEXPAND_EXPORT_SYNONYM.routdescr, - "MEXPAND_EXPORT_SYNONYM @warmelt-macro.melt:6629", + "MEXPAND_EXPORT_SYNONYM @warmelt-macro.melt:6631", MELT_ROUTDESCR_LEN - 1); cdat->drout_1564__MEXPAND_EXPORT_SYNONYM.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1564__MEXPAND_EXPORT_SYNONYM, @@ -27439,7 +27439,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1568__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER. routdescr, - "MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:6676", + "MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:6678", MELT_ROUTDESCR_LEN - 1); cdat->drout_1568__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -27491,7 +27491,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1572__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1572__MEXPAND_PARENT_MODULE_ENVIRONMENT.routdescr, - "MEXPAND_PARENT_MODULE_ENVIRONMENT @warmelt-macro.melt:6700", + "MEXPAND_PARENT_MODULE_ENVIRONMENT @warmelt-macro.melt:6702", MELT_ROUTDESCR_LEN - 1); cdat->drout_1572__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> @@ -27545,7 +27545,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, strncpy (cdat-> drout_1576__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. routdescr, - "MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:6725", + "MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:6727", MELT_ROUTDESCR_LEN - 1); cdat->drout_1576__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. nbval = 4; @@ -27601,7 +27601,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1580__MEXPAND_FETCH_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1580__MEXPAND_FETCH_PREDEFINED.routdescr, - "MEXPAND_FETCH_PREDEFINED @warmelt-macro.melt:6750", + "MEXPAND_FETCH_PREDEFINED @warmelt-macro.melt:6752", MELT_ROUTDESCR_LEN - 1); cdat->drout_1580__MEXPAND_FETCH_PREDEFINED.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1580__MEXPAND_FETCH_PREDEFINED, @@ -27651,7 +27651,7 @@ initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, cdat->drout_1584__MEXPAND_STORE_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1584__MEXPAND_STORE_PREDEFINED.routdescr, - "MEXPAND_STORE_PREDEFINED @warmelt-macro.melt:6778", + "MEXPAND_STORE_PREDEFINED @warmelt-macro.melt:6780", MELT_ROUTDESCR_LEN - 1); cdat->drout_1584__MEXPAND_STORE_PREDEFINED.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1584__MEXPAND_STORE_PREDEFINED, @@ -79310,7 +79310,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1559*/ meltfptr[1558]); - MELT_LOCATION ("warmelt-macro.melt:5966:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5968:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79323,7 +79323,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1561*/ meltfptr[1560])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:5966:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5968:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79336,7 +79336,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1561*/ meltfptr[1560])->tabval[1] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); - MELT_LOCATION ("warmelt-macro.melt:5966:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5968:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79349,7 +79349,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1561*/ meltfptr[1560])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:5966:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5968:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79362,7 +79362,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1561*/ meltfptr[1560])->tabval[3] = (melt_ptr_t) ( /*_.VALROUT___V1562*/ meltfptr[1561]); - MELT_LOCATION ("warmelt-macro.melt:5966:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5968:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79374,7 +79374,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1561*/ meltfptr[1560])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225]); - MELT_LOCATION ("warmelt-macro.melt:5966:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5968:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1561*/ meltfptr[1560]); @@ -79394,7 +79394,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1563*/ meltfptr[1562]); - MELT_LOCATION ("warmelt-macro.melt:5982:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5984:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79407,7 +79407,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1564*/ meltfptr[1563])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:5982:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5984:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79419,7 +79419,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1564*/ meltfptr[1563])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V1387*/ meltfptr[1386]); - MELT_LOCATION ("warmelt-macro.melt:5982:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5984:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1564*/ meltfptr[1563]); @@ -79458,7 +79458,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1566*/ meltfptr[1565]); - MELT_LOCATION ("warmelt-macro.melt:6008:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6010:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79471,7 +79471,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1568*/ meltfptr[1567])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6008:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6010:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79484,7 +79484,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1568*/ meltfptr[1567])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6008:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6010:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79496,7 +79496,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1568*/ meltfptr[1567])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1563*/ meltfptr[1562]); - MELT_LOCATION ("warmelt-macro.melt:6008:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6010:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1568*/ meltfptr[1567]); @@ -79535,7 +79535,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1570*/ meltfptr[1569]); - MELT_LOCATION ("warmelt-macro.melt:6032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79548,7 +79548,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79561,7 +79561,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79574,7 +79574,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[2] = (melt_ptr_t) ( /*_.FRESH_ENV__V21*/ meltfptr[20]); - MELT_LOCATION ("warmelt-macro.melt:6032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79587,7 +79587,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:6032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79600,7 +79600,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LABEL_BINDING__V73*/ meltfptr[72]); - MELT_LOCATION ("warmelt-macro.melt:6032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79613,7 +79613,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[5] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); - MELT_LOCATION ("warmelt-macro.melt:6032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79626,7 +79626,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[6] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); - MELT_LOCATION ("warmelt-macro.melt:6032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79639,7 +79639,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79652,7 +79652,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V1573*/ meltfptr[1572]); - MELT_LOCATION ("warmelt-macro.melt:6032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79664,7 +79664,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797]); - MELT_LOCATION ("warmelt-macro.melt:6032:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6034:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1572*/ meltfptr[1571]); @@ -79722,7 +79722,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1577*/ meltfptr[1576]); - MELT_LOCATION ("warmelt-macro.melt:6075:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79735,7 +79735,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6075:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79748,7 +79748,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6075:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79761,7 +79761,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[2] = (melt_ptr_t) ( /*_.FRESH_ENV__V21*/ meltfptr[20]); - MELT_LOCATION ("warmelt-macro.melt:6075:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79774,7 +79774,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:6075:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79787,7 +79787,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[4] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-macro.melt:6075:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79800,7 +79800,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_LABEL_BINDING__V73*/ meltfptr[72]); - MELT_LOCATION ("warmelt-macro.melt:6075:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79813,7 +79813,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[6] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); - MELT_LOCATION ("warmelt-macro.melt:6075:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79826,7 +79826,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6075:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79839,7 +79839,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V1580*/ meltfptr[1579]); - MELT_LOCATION ("warmelt-macro.melt:6075:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79851,7 +79851,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813]); - MELT_LOCATION ("warmelt-macro.melt:6075:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6077:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1579*/ meltfptr[1578]); @@ -79890,7 +79890,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1582*/ meltfptr[1581]); - MELT_LOCATION ("warmelt-macro.melt:6118:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6120:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79903,7 +79903,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1584*/ meltfptr[1583])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6118:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6120:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79916,7 +79916,7 @@ meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1584*/ meltfptr[1583])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6118:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6120:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79942,7 +79942,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-macro.melt:6118:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6120:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79955,7 +79955,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1584*/ meltfptr[1583])->tabval[3] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-macro.melt:6118:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6120:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -79968,7 +79968,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1584*/ meltfptr[1583])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LABEL_BINDING__V73*/ meltfptr[72]); - MELT_LOCATION ("warmelt-macro.melt:6118:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6120:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -79980,7 +79980,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1584*/ meltfptr[1583])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807]); - MELT_LOCATION ("warmelt-macro.melt:6118:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6120:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1584*/ meltfptr[1583]); @@ -80019,7 +80019,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1586*/ meltfptr[1585]); - MELT_LOCATION ("warmelt-macro.melt:6162:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6164:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80033,7 +80033,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6162:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6164:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80047,7 +80047,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6162:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6164:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80059,7 +80059,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); - MELT_LOCATION ("warmelt-macro.melt:6162:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6164:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80071,7 +80071,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823]); - MELT_LOCATION ("warmelt-macro.melt:6162:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6164:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1588*/ meltfptr[1587]); @@ -80110,7 +80110,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1590*/ meltfptr[1589]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80123,7 +80123,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80136,7 +80136,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80149,7 +80149,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80180,7 +80180,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1593*/ meltfptr[1592]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80193,7 +80193,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1593*/ meltfptr[1592]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80206,7 +80206,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[5] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80219,7 +80219,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[6] = (melt_ptr_t) ( /*_.FIND_ENV_DEBUG__V74*/ meltfptr[73]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80233,7 +80233,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80246,7 +80246,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80259,7 +80259,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V37*/ meltfptr[36]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80271,7 +80271,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80284,7 +80284,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[11] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80296,7 +80296,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80327,7 +80327,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1595*/ meltfptr[1594]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80340,7 +80340,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V1595*/ meltfptr[1594]); - MELT_LOCATION ("warmelt-macro.melt:6206:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6208:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1592*/ meltfptr[1591]); @@ -80398,7 +80398,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1600*/ meltfptr[1599]); - MELT_LOCATION ("warmelt-macro.melt:6295:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80411,7 +80411,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6295:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80424,7 +80424,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6295:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80437,7 +80437,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6295:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80469,7 +80469,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1603*/ meltfptr[1602]); - MELT_LOCATION ("warmelt-macro.melt:6295:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80482,7 +80482,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1603*/ meltfptr[1602]); - MELT_LOCATION ("warmelt-macro.melt:6295:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80494,7 +80494,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); - MELT_LOCATION ("warmelt-macro.melt:6295:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80525,7 +80525,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1605*/ meltfptr[1604]); - MELT_LOCATION ("warmelt-macro.melt:6295:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80538,7 +80538,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1605*/ meltfptr[1604]); - MELT_LOCATION ("warmelt-macro.melt:6295:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80551,7 +80551,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V43*/ meltfptr[42]); - MELT_LOCATION ("warmelt-macro.melt:6295:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80563,7 +80563,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647]); - MELT_LOCATION ("warmelt-macro.melt:6295:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80576,7 +80576,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V1595*/ meltfptr[1594]); - MELT_LOCATION ("warmelt-macro.melt:6295:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6297:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1602*/ meltfptr[1601]); @@ -80615,7 +80615,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1608*/ meltfptr[1607]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80628,7 +80628,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80641,7 +80641,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80654,7 +80654,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80667,7 +80667,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[3] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80680,7 +80680,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1088*/ meltfptr[1087]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80712,7 +80712,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1611*/ meltfptr[1610]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80744,7 +80744,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1613*/ meltfptr[1612]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80757,7 +80757,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1613*/ meltfptr[1612]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80769,7 +80769,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V1083*/ meltfptr[1082]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80782,7 +80782,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80795,7 +80795,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_FUNCTION_BINDING__V55*/ meltfptr[54]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80809,7 +80809,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V29*/ meltfptr[28]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80821,7 +80821,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80834,7 +80834,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[13] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80847,7 +80847,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[14] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V75*/ meltfptr[74]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80860,7 +80860,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[15] = (melt_ptr_t) ( /*_.VALBXINT___V1615*/ meltfptr[1614]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80872,7 +80872,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[16] = (melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80885,7 +80885,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[17] = (melt_ptr_t) ( /*_.VALDATA___V1088*/ meltfptr[1087]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80898,7 +80898,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[18] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80911,7 +80911,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[19] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80923,7 +80923,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[20] = (melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80935,7 +80935,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[21] = (melt_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -80947,7 +80947,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[22] = (melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -80960,7 +80960,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[23] = (melt_ptr_t) ( /*_.VALDATA___V1595*/ meltfptr[1594]); - MELT_LOCATION ("warmelt-macro.melt:6367:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6369:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1610*/ meltfptr[1609]); @@ -81018,7 +81018,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1619*/ meltfptr[1618]); - MELT_LOCATION ("warmelt-macro.melt:6477:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6479:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81032,7 +81032,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6477:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6479:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81046,7 +81046,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6477:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6479:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81060,7 +81060,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6477:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6479:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81074,7 +81074,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[3] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); - MELT_LOCATION ("warmelt-macro.melt:6477:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6479:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81088,7 +81088,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6477:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6479:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81102,7 +81102,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:6477:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6479:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81116,7 +81116,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6489:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6491:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81129,7 +81129,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1622*/ meltfptr[1621])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:6489:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6491:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81142,12 +81142,12 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1622*/ meltfptr[1621])->tabval[1] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6489:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6491:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1622*/ meltfptr[1621]); - MELT_LOCATION ("warmelt-macro.melt:6477:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6479:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81161,7 +81161,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V1622*/ meltfptr[1621]); - MELT_LOCATION ("warmelt-macro.melt:6477:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6479:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81173,7 +81173,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295]); - MELT_LOCATION ("warmelt-macro.melt:6477:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6479:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1621*/ meltfptr[1620]); @@ -81212,7 +81212,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1624*/ meltfptr[1623]); - MELT_LOCATION ("warmelt-macro.melt:6509:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6511:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81226,7 +81226,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1626*/ meltfptr[1625])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6509:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6511:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81240,7 +81240,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1626*/ meltfptr[1625])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6509:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6511:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81254,7 +81254,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1626*/ meltfptr[1625])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6509:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6511:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81268,7 +81268,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1626*/ meltfptr[1625])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:6509:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6511:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81282,7 +81282,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1626*/ meltfptr[1625])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); - MELT_LOCATION ("warmelt-macro.melt:6509:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6511:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81294,7 +81294,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1626*/ meltfptr[1625])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307]); - MELT_LOCATION ("warmelt-macro.melt:6509:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6511:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1626*/ meltfptr[1625]); @@ -81333,7 +81333,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1628*/ meltfptr[1627]); - MELT_LOCATION ("warmelt-macro.melt:6552:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6554:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81347,7 +81347,7 @@ meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1630*/ meltfptr[1629])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6552:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6554:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81374,7 +81374,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; - MELT_LOCATION ("warmelt-macro.melt:6552:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6554:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81388,7 +81388,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1630*/ meltfptr[1629])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6552:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6554:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81402,7 +81402,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1630*/ meltfptr[1629])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:6552:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6554:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81416,7 +81416,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1630*/ meltfptr[1629])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); - MELT_LOCATION ("warmelt-macro.melt:6552:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6554:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81428,7 +81428,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1630*/ meltfptr[1629])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325]); - MELT_LOCATION ("warmelt-macro.melt:6552:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6554:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1630*/ meltfptr[1629]); @@ -81467,7 +81467,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1632*/ meltfptr[1631]); - MELT_LOCATION ("warmelt-macro.melt:6600:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81481,7 +81481,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6600:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81495,7 +81495,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6600:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81507,7 +81507,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); - MELT_LOCATION ("warmelt-macro.melt:6600:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81521,7 +81521,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6600:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81535,7 +81535,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[4] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); - MELT_LOCATION ("warmelt-macro.melt:6600:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81549,7 +81549,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); - MELT_LOCATION ("warmelt-macro.melt:6600:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81563,7 +81563,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:6612:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6614:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81576,12 +81576,12 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1635*/ meltfptr[1634])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:6612:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6614:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1635*/ meltfptr[1634]); - MELT_LOCATION ("warmelt-macro.melt:6600:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81595,7 +81595,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V1635*/ meltfptr[1634]); - MELT_LOCATION ("warmelt-macro.melt:6600:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81607,7 +81607,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301]); - MELT_LOCATION ("warmelt-macro.melt:6600:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6602:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1634*/ meltfptr[1633]); @@ -81646,7 +81646,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1637*/ meltfptr[1636]); - MELT_LOCATION ("warmelt-macro.melt:6629:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81660,7 +81660,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6629:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81674,7 +81674,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6629:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81688,7 +81688,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6629:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81700,7 +81700,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); - MELT_LOCATION ("warmelt-macro.melt:6629:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81714,7 +81714,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:6629:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81728,7 +81728,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); - MELT_LOCATION ("warmelt-macro.melt:6629:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81740,7 +81740,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335]); - MELT_LOCATION ("warmelt-macro.melt:6629:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1639*/ meltfptr[1638]); @@ -81779,7 +81779,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1641*/ meltfptr[1640]); - MELT_LOCATION ("warmelt-macro.melt:6676:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6678:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81793,7 +81793,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1643*/ meltfptr[1642])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6676:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6678:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81807,7 +81807,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1643*/ meltfptr[1642])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6676:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6678:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81821,7 +81821,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1643*/ meltfptr[1642])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6676:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6678:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81833,7 +81833,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1643*/ meltfptr[1642])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837]); - MELT_LOCATION ("warmelt-macro.melt:6676:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6678:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1643*/ meltfptr[1642]); @@ -81872,7 +81872,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1645*/ meltfptr[1644]); - MELT_LOCATION ("warmelt-macro.melt:6700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6702:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81886,7 +81886,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1647*/ meltfptr[1646])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6702:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81900,7 +81900,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1647*/ meltfptr[1646])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6702:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81912,7 +81912,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1647*/ meltfptr[1646])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); - MELT_LOCATION ("warmelt-macro.melt:6700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6702:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81926,7 +81926,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1647*/ meltfptr[1646])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6702:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -81938,7 +81938,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1647*/ meltfptr[1646])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847]); - MELT_LOCATION ("warmelt-macro.melt:6700:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6702:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1647*/ meltfptr[1646]); @@ -81977,7 +81977,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1649*/ meltfptr[1648]); - MELT_LOCATION ("warmelt-macro.melt:6725:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6727:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -81991,7 +81991,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1651*/ meltfptr[1650])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6725:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6727:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -82005,7 +82005,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1651*/ meltfptr[1650])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6725:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6727:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -82019,7 +82019,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1651*/ meltfptr[1650])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6725:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6727:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82031,7 +82031,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1651*/ meltfptr[1650])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853]); - MELT_LOCATION ("warmelt-macro.melt:6725:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6727:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1651*/ meltfptr[1650]); @@ -82070,7 +82070,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1653*/ meltfptr[1652]); - MELT_LOCATION ("warmelt-macro.melt:6750:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6752:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -82084,7 +82084,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1655*/ meltfptr[1654])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6750:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6752:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -82098,7 +82098,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1655*/ meltfptr[1654])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6750:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6752:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -82112,7 +82112,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1655*/ meltfptr[1654])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6750:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6752:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82124,7 +82124,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1655*/ meltfptr[1654])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); - MELT_LOCATION ("warmelt-macro.melt:6750:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6752:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -82138,7 +82138,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1655*/ meltfptr[1654])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:6750:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6752:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82150,7 +82150,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1655*/ meltfptr[1654])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863]); - MELT_LOCATION ("warmelt-macro.melt:6750:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6752:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1655*/ meltfptr[1654]); @@ -82189,7 +82189,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1657*/ meltfptr[1656]); - MELT_LOCATION ("warmelt-macro.melt:6778:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6780:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -82203,7 +82203,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1659*/ meltfptr[1658])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); - MELT_LOCATION ("warmelt-macro.melt:6778:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6780:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -82217,7 +82217,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1659*/ meltfptr[1658])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); - MELT_LOCATION ("warmelt-macro.melt:6778:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6780:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -82231,7 +82231,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1659*/ meltfptr[1658])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); - MELT_LOCATION ("warmelt-macro.melt:6778:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6780:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82243,7 +82243,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1659*/ meltfptr[1658])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); - MELT_LOCATION ("warmelt-macro.melt:6778:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6780:/ initchunk"); /*^putroutconst */ /*putroutconst */ melt_assertmsg ("putroutconst checkrout", @@ -82257,7 +82257,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1659*/ meltfptr[1658])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); - MELT_LOCATION ("warmelt-macro.melt:6778:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6780:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", @@ -82269,7 +82269,7 @@ meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st ((meltroutine_ptr_t) /*_.VALROUT___V1659*/ meltfptr[1658])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873]); - MELT_LOCATION ("warmelt-macro.melt:6778:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6780:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1659*/ meltfptr[1658]); @@ -86001,7 +86001,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1788*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5946:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5948:/ initchunk"); /*^block */ /*anyblock */ { @@ -86031,7 +86031,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1789*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5947:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5949:/ initchunk"); /*^block */ /*anyblock */ { @@ -86069,7 +86069,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1790*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:5954:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:5956:/ initchunk"); /*^block */ /*anyblock */ { @@ -86107,7 +86107,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1791*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6000:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6002:/ initchunk"); /*^block */ /*anyblock */ { @@ -86137,7 +86137,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1792*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6001:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6003:/ initchunk"); /*^block */ /*anyblock */ { @@ -86175,7 +86175,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1793*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6022:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6024:/ initchunk"); /*^block */ /*anyblock */ { @@ -86205,7 +86205,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1794*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6023:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6025:/ initchunk"); /*^block */ /*anyblock */ { @@ -86243,7 +86243,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1795*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6065:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6067:/ initchunk"); /*^block */ /*anyblock */ { @@ -86273,7 +86273,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1796*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6066:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6068:/ initchunk"); /*^block */ /*anyblock */ { @@ -86311,7 +86311,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1797*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6110:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6112:/ initchunk"); /*^block */ /*anyblock */ { @@ -86341,7 +86341,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1798*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6111:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6113:/ initchunk"); /*^block */ /*anyblock */ { @@ -86379,7 +86379,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1799*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6153:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6155:/ initchunk"); /*^block */ /*anyblock */ { @@ -86409,7 +86409,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1800*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6154:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6156:/ initchunk"); /*^block */ /*anyblock */ { @@ -86447,7 +86447,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1801*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6193:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6195:/ initchunk"); /*^block */ /*anyblock */ { @@ -86477,7 +86477,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1802*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6194:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6196:/ initchunk"); /*^block */ /*anyblock */ { @@ -86515,7 +86515,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1803*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6281:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6283:/ initchunk"); /*^block */ /*anyblock */ { @@ -86545,7 +86545,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1804*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6282:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6284:/ initchunk"); /*^block */ /*anyblock */ { @@ -86583,7 +86583,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1805*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6354:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6356:/ initchunk"); /*^block */ /*anyblock */ { @@ -86613,7 +86613,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1806*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6355:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6357:/ initchunk"); /*^block */ /*anyblock */ { @@ -86651,7 +86651,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1807*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6472:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6474:/ initchunk"); /*^block */ /*anyblock */ { @@ -86681,7 +86681,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1808*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6473:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6475:/ initchunk"); /*^block */ /*anyblock */ { @@ -86719,7 +86719,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1809*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6504:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6506:/ initchunk"); /*^block */ /*anyblock */ { @@ -86749,7 +86749,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1810*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6505:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6507:/ initchunk"); /*^block */ /*anyblock */ { @@ -86787,7 +86787,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1811*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6544:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6546:/ initchunk"); /*^block */ /*anyblock */ { @@ -86817,7 +86817,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1812*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6545:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6547:/ initchunk"); /*^block */ /*anyblock */ { @@ -86855,7 +86855,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1813*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6595:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6597:/ initchunk"); /*^block */ /*anyblock */ { @@ -86885,7 +86885,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1814*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6596:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6598:/ initchunk"); /*^block */ /*anyblock */ { @@ -86923,7 +86923,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1815*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6625:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6627:/ initchunk"); /*^block */ /*anyblock */ { @@ -86953,7 +86953,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1816*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6626:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6628:/ initchunk"); /*^block */ /*anyblock */ { @@ -86991,7 +86991,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1817*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6671:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6673:/ initchunk"); /*^block */ /*anyblock */ { @@ -87021,7 +87021,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1818*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6672:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6674:/ initchunk"); /*^block */ /*anyblock */ { @@ -87059,7 +87059,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1819*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6694:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6696:/ initchunk"); /*^block */ /*anyblock */ { @@ -87089,7 +87089,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1820*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6695:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6697:/ initchunk"); /*^block */ /*anyblock */ { @@ -87127,7 +87127,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1821*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6718:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6720:/ initchunk"); /*^block */ /*anyblock */ { @@ -87157,7 +87157,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1822*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6719:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6721:/ initchunk"); /*^block */ /*anyblock */ { @@ -87195,7 +87195,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1823*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6743:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6745:/ initchunk"); /*^block */ /*anyblock */ { @@ -87225,7 +87225,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1824*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6744:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6746:/ initchunk"); /*^block */ /*anyblock */ { @@ -87263,7 +87263,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1825*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6774:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6776:/ initchunk"); /*^block */ /*anyblock */ { @@ -87293,7 +87293,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1826*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6775:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6777:/ initchunk"); /*^block */ /*anyblock */ { @@ -87331,7 +87331,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1827*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6809:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6811:/ initchunk"); /*^block */ /*anyblock */ { @@ -87361,7 +87361,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.INSTALL_INITIAL_MACRO__V1828*/ meltfptr[1690] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6810:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6812:/ initchunk"); /*^block */ /*anyblock */ { @@ -87399,7 +87399,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.MACROXPORTER___V1829*/ meltfptr[1688] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6814:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6816:/ initchunk"); /*^block */ /*anyblock */ { @@ -91313,7 +91313,7 @@ meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st /*clear *//*_.VALUEXPORTER___V1830*/ meltfptr[1689] = 0; } - MELT_LOCATION ("warmelt-macro.melt:6899:/ initchunk"); + MELT_LOCATION ("warmelt-macro.melt:6901:/ initchunk"); /*^block */ /*anyblock */ { diff --git a/gcc/melt/generated/warmelt-modes+meltdesc.c b/gcc/melt/generated/warmelt-modes+meltdesc.c index 3762d4fea5d..968d632f3d6 100644 --- a/gcc/melt/generated/warmelt-modes+meltdesc.c +++ b/gcc/melt/generated/warmelt-modes+meltdesc.c @@ -19,7 +19,7 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189193] MELT_0.9.6-pre" +const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189247] MELT_0.9.6-pre" #ifdef __cplusplus " (in C++)" @@ -28,7 +28,7 @@ const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189193]"; +const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189247]"; /* source name & real path of the module */ /*MELTMODULENAME MELT-STAGE-ZERO/warmelt-modes */ diff --git a/gcc/melt/generated/warmelt-modes+melttime.h b/gcc/melt/generated/warmelt-modes+melttime.h index d1efd65f486..7f06ae80bd4 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[]="Tue Jul 3 16:19:30 2012 CEST"; -const long long melt_gen_timenum=1341325170; +const char melt_gen_timestamp[]="Wed Jul 4 11:29:39 2012 CEST"; +const long long melt_gen_timenum=1341394179; 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 4e16d183138..9fd3fc2abcd 100644 --- a/gcc/melt/generated/warmelt-normal+meltdesc.c +++ b/gcc/melt/generated/warmelt-normal+meltdesc.c @@ -19,7 +19,7 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189193] MELT_0.9.6-pre" +const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189247] MELT_0.9.6-pre" #ifdef __cplusplus " (in C++)" @@ -28,7 +28,7 @@ const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189193]"; +const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189247]"; /* source name & real path of the module */ /*MELTMODULENAME MELT-STAGE-ZERO/warmelt-normal */ diff --git a/gcc/melt/generated/warmelt-normal+melttime.h b/gcc/melt/generated/warmelt-normal+melttime.h index 605cec5d8e5..f5e468401cc 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[]="Tue Jul 3 16:19:25 2012 CEST"; -const long long melt_gen_timenum=1341325165; +const char melt_gen_timestamp[]="Wed Jul 4 11:29:31 2012 CEST"; +const long long melt_gen_timenum=1341394171; 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 be9ca031bff..29f6182c953 100644 --- a/gcc/melt/generated/warmelt-normatch+meltdesc.c +++ b/gcc/melt/generated/warmelt-normatch+meltdesc.c @@ -19,7 +19,7 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189193] MELT_0.9.6-pre" +const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189247] MELT_0.9.6-pre" #ifdef __cplusplus " (in C++)" @@ -28,7 +28,7 @@ const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189193]"; +const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189247]"; /* source name & real path of the module */ /*MELTMODULENAME MELT-STAGE-ZERO/warmelt-normatch */ diff --git a/gcc/melt/generated/warmelt-normatch+melttime.h b/gcc/melt/generated/warmelt-normatch+melttime.h index 6a0cf4be5c3..eb971775137 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[]="Tue Jul 3 16:19:26 2012 CEST"; -const long long melt_gen_timenum=1341325166; +const char melt_gen_timestamp[]="Wed Jul 4 11:29:34 2012 CEST"; +const long long melt_gen_timenum=1341394174; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus diff --git a/gcc/melt/generated/warmelt-outobj+meltdesc.c b/gcc/melt/generated/warmelt-outobj+meltdesc.c index 0f5a5abd507..8ee41844275 100644 --- a/gcc/melt/generated/warmelt-outobj+meltdesc.c +++ b/gcc/melt/generated/warmelt-outobj+meltdesc.c @@ -19,7 +19,7 @@ #endif /*__cplusplus */ /* version of the GCC compiler & MELT runtime generating this */ -const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189193] MELT_0.9.6-pre" +const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revision 189247] MELT_0.9.6-pre" #ifdef __cplusplus " (in C++)" @@ -28,7 +28,7 @@ const char melt_genversionstr[]="4.8.0 20120702 (experimental) [melt-branch revi #endif ; -const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189193]"; +const char melt_versionmeltstr[]="0.9.6-pre [melt-branch_revision_189247]"; /* source name & real path of the module */ /*MELTMODULENAME MELT-STAGE-ZERO/warmelt-outobj */ diff --git a/gcc/melt/generated/warmelt-outobj+melttime.h b/gcc/melt/generated/warmelt-outobj+melttime.h index 4e3e6885d99..e59a55adbee 100644 --- a/gcc/melt/generated/warmelt-outobj+melttime.h +++ b/gcc/melt/generated/warmelt-outobj+melttime.h @@ -18,8 +18,8 @@ extern "C" { /*MELT BOOTSTRAP*/ -const char melt_gen_timestamp[]="Tue Jul 3 16:19:29 2012 CEST"; -const long long melt_gen_timenum=1341325169; +const char melt_gen_timestamp[]="Wed Jul 4 11:29:38 2012 CEST"; +const long long melt_gen_timenum=1341394178; const char melt_build_timestamp[]= __DATE__ "@" __TIME__ #ifdef __cplusplus |