summaryrefslogtreecommitdiff
path: root/gcc/melt/generated/warmelt-macro+02.c
diff options
context:
space:
mode:
authorbstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>2012-02-24 11:45:13 +0000
committerbstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4>2012-02-24 11:45:13 +0000
commitf19966d4798850da1fa865fa1b5250001f1bbc8a (patch)
treee01b0a64631f9e840ee7efaf87cbba4a8eb0b923 /gcc/melt/generated/warmelt-macro+02.c
parentce7a4ede65f48c959d5190b4b30b25ae7f6d87b9 (diff)
downloadgcc-f19966d4798850da1fa865fa1b5250001f1bbc8a.tar.gz
2011-02-24 Basile Starynkevitch <basile@starynkevitch.net>
{{Regenerate}} * 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+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+01.c: Regenerate. * melt/generated/warmelt-macro+02.c: Regenerate. * melt/generated/warmelt-macro+03.c: Regenerate. * melt/generated/warmelt-macro+04.c: Regenerate. * melt/generated/warmelt-macro+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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@184551 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/generated/warmelt-macro+02.c')
-rw-r--r--gcc/melt/generated/warmelt-macro+02.c11486
1 files changed, 6183 insertions, 5303 deletions
diff --git a/gcc/melt/generated/warmelt-macro+02.c b/gcc/melt/generated/warmelt-macro+02.c
index 5ff0711516a..14aa0a3feb1 100644
--- a/gcc/melt/generated/warmelt-macro+02.c
+++ b/gcc/melt/generated/warmelt-macro+02.c
@@ -2155,7 +2155,7 @@ meltrout_36_warmelt_macro_LAMBDA___7__ (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:2358:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:2365:/ getarg");
/*_.COMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -2173,7 +2173,7 @@ lab_endgetargs:;
/*_#I__L2*/ meltfnum[1] =
(( /*_#IX__L1*/ meltfnum[0]) > (0));;
- MELT_LOCATION ("warmelt-macro.melt:2358:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2365:/ cond");
/*cond */ if ( /*_#I__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -2185,7 +2185,7 @@ lab_endgetargs:;
(( /*_#IX__L1*/ meltfnum[0]) - (1));;
{
- MELT_LOCATION ("warmelt-macro.melt:2358:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2365:/ locexp");
meltgc_multiple_put_nth ((melt_ptr_t)
(( /*~INFORMALS */ meltfclos->
tabval[0])),
@@ -2285,7 +2285,7 @@ meltrout_37_warmelt_macro_MEXPAND_DEFUNMATCHER (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:2495:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:2502:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -2326,7 +2326,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2496:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2503:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -2349,7 +2349,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2496:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2503:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -2359,7 +2359,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2496:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2503:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -2369,7 +2369,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2496;
+ argtab[2].meltbp_long = 2503;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_defunmatcher sexpr";
/*^apply.arg */
@@ -2388,7 +2388,7 @@ lab_endgetargs:;
/*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2496:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2503:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0;
@@ -2401,7 +2401,7 @@ lab_endgetargs:;
/*_.IF___V7*/ meltfptr[6] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2496:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2503:/ quasiblock");
/*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];;
@@ -2410,7 +2410,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2496:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2503:/ clear");
/*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V7*/ meltfptr[6] = 0;
@@ -2425,7 +2425,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2497:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2504:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -2434,7 +2434,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:2497:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2504:/ cond");
/*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -2442,7 +2442,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:2497:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:2504:/ cond.else");
/*^block */
/*anyblock */
@@ -2456,7 +2456,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (2497) ? (2497) : __LINE__, __FUNCTION__);
+ (2504) ? (2504) : __LINE__, __FUNCTION__);
;
}
;
@@ -2471,7 +2471,7 @@ lab_endgetargs:;
/*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2497:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2504:/ clear");
/*clear *//*_#IS_A__L3*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0;
@@ -2484,7 +2484,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2498:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2505:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -2493,7 +2493,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:2498:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2505:/ cond");
/*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -2501,7 +2501,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:2498:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:2505:/ cond.else");
/*^block */
/*anyblock */
@@ -2515,7 +2515,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (2498) ? (2498) : __LINE__, __FUNCTION__);
+ (2505) ? (2505) : __LINE__, __FUNCTION__);
;
}
;
@@ -2530,7 +2530,7 @@ lab_endgetargs:;
/*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2498:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2505:/ clear");
/*clear *//*_#IS_A__L4*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0;
@@ -2541,7 +2541,7 @@ lab_endgetargs:;
/*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:2499:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2506:/ quasiblock");
/*^getslot */
@@ -2552,7 +2552,7 @@ lab_endgetargs:;
meltfptr[14] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:2500:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:2507:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
@@ -2596,7 +2596,7 @@ lab_endgetargs:;
/*_.DOCV__V27*/ meltfptr[26] = ( /*nil */ NULL);;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2514:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2521:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -2619,7 +2619,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2514:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2521:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -2629,7 +2629,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2514:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2521:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -2639,7 +2639,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2514;
+ argtab[2].meltbp_long = 2521;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_defunmatcher symb";
/*^apply.arg */
@@ -2659,7 +2659,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2514:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2521:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0;
@@ -2672,7 +2672,7 @@ lab_endgetargs:;
/*_.IF___V29*/ meltfptr[28] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2514:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2521:/ quasiblock");
/*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[28];;
@@ -2681,7 +2681,7 @@ lab_endgetargs:;
/*_.IFCPP___V28*/ meltfptr[27] = /*_.PROGN___V31*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2514:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2521:/ clear");
/*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.IF___V29*/ meltfptr[28] = 0;
@@ -2700,7 +2700,7 @@ lab_endgetargs:;
!melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
tabval[3])));;
- MELT_LOCATION ("warmelt-macro.melt:2515:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2522:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -2710,20 +2710,20 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:2517:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2524:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
("symbol expected for (DEFUNMATCHER <symb> <ins> <outs> [:doc docum] <matchfun> <applyfun> [<data>])"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2520:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2527:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:2520:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2527:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:2516:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2523:/ quasiblock");
/*_.PROGN___V34*/ meltfptr[33] = /*_.RETURN___V33*/ meltfptr[29];;
@@ -2732,7 +2732,7 @@ lab_endgetargs:;
/*_.IF___V32*/ meltfptr[28] = /*_.PROGN___V34*/ meltfptr[33];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2515:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2522:/ clear");
/*clear *//*_.RETURN___V33*/ meltfptr[29] = 0;
/*^clear */
/*clear *//*_.PROGN___V34*/ meltfptr[33] = 0;
@@ -2749,15 +2749,15 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V35*/ meltfptr[29] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2521:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2528:/ compute");
/*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V36*/ meltfptr[33] =
/*_.PAIR_TAIL__V35*/ meltfptr[29];;
- MELT_LOCATION ("warmelt-macro.melt:2523:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2530:/ quasiblock");
/*_.PAIR_HEAD__V38*/ meltfptr[37] =
(melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2523:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2530:/ apply");
/*apply */
{
/*_.MATINFORMALS__V39*/ meltfptr[38] =
@@ -2774,7 +2774,7 @@ lab_endgetargs:;
/*_#I__L9*/ meltfnum[8] =
(( /*_#NBMATINFORMALS__L8*/ meltfnum[1]) < (1));;
- MELT_LOCATION ("warmelt-macro.melt:2526:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2533:/ cond");
/*cond */ if ( /*_#I__L9*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -2784,20 +2784,20 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:2528:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2535:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
("empty ins for (DEFUNMATCHER <symb> <ins> <outs> [:doc docum] <matchfun> <applyfun> [<data>])"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2529:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2536:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:2529:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2536:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:2527:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2534:/ quasiblock");
/*_.PROGN___V42*/ meltfptr[41] = /*_.RETURN___V41*/ meltfptr[40];;
@@ -2806,7 +2806,7 @@ lab_endgetargs:;
/*_.IF___V40*/ meltfptr[39] = /*_.PROGN___V42*/ meltfptr[41];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2526:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2533:/ clear");
/*clear *//*_.RETURN___V41*/ meltfptr[40] = 0;
/*^clear */
/*clear *//*_.PROGN___V42*/ meltfptr[41] = 0;
@@ -2825,7 +2825,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t)
( /*_.MATINFORMALS__V39*/ meltfptr[38]),
(melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[5])));;
- MELT_LOCATION ("warmelt-macro.melt:2530:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2537:/ cond");
/*cond */ if ( /*_#IS_A__L10*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -2833,7 +2833,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2533:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2540:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -2859,21 +2859,21 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:2532:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2539:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
("(DEFUNMATCHER <symb> <ins> ...) inputs cannot be variadic with last :rest formal"),
(melt_ptr_t) ( /*_.NAMED_NAME__V44*/
meltfptr[41]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:2534:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2541:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:2534:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2541:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:2531:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2538:/ quasiblock");
/*_.PROGN___V46*/ meltfptr[45] = /*_.RETURN___V45*/ meltfptr[44];;
@@ -2882,7 +2882,7 @@ lab_endgetargs:;
/*_.IF___V43*/ meltfptr[40] = /*_.PROGN___V46*/ meltfptr[45];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2530:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2537:/ clear");
/*clear *//*_.NAMED_NAME__V44*/ meltfptr[41] = 0;
/*^clear */
/*clear *//*_.RETURN___V45*/ meltfptr[44] = 0;
@@ -2897,18 +2897,18 @@ lab_endgetargs:;
/*_.IF___V43*/ meltfptr[40] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2536:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2543:/ compute");
/*_.SFORMALS__V20*/ meltfptr[19] = /*_.SETQ___V47*/ meltfptr[41] =
/*_.MATINFORMALS__V39*/ meltfptr[38];;
/*_.MULTIPLE_NTH__V48*/ meltfptr[44] =
(melt_multiple_nth
((melt_ptr_t) ( /*_.MATINFORMALS__V39*/ meltfptr[38]), (0)));;
- MELT_LOCATION ("warmelt-macro.melt:2537:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2544:/ compute");
/*_.MATCHFORMAL__V21*/ meltfptr[20] = /*_.SETQ___V49*/ meltfptr[45] =
/*_.MULTIPLE_NTH__V48*/ meltfptr[44];;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2538:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2545:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -2931,7 +2931,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2538:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2545:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */
{
/*^cond.then */
@@ -2941,7 +2941,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2538:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2545:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -2952,7 +2952,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2538;
+ argtab[2].meltbp_long = 2545;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_defunmatcher matchformal";
/*^apply.arg */
@@ -2972,7 +2972,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V52*/ meltfptr[51];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2538:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2545:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V52*/ meltfptr[51] = 0;
@@ -2985,7 +2985,7 @@ lab_endgetargs:;
/*_.IF___V51*/ meltfptr[50] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2538:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2545:/ quasiblock");
/*_.PROGN___V53*/ meltfptr[51] = /*_.IF___V51*/ meltfptr[50];;
@@ -2994,7 +2994,7 @@ lab_endgetargs:;
/*_.IFCPP___V50*/ meltfptr[49] = /*_.PROGN___V53*/ meltfptr[51];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2538:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2545:/ clear");
/*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0;
/*^clear */
/*clear *//*_.IF___V51*/ meltfptr[50] = 0;
@@ -3017,10 +3017,10 @@ lab_endgetargs:;
(meltgc_new_multiple
((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[7])),
( /*_#I__L13*/ meltfnum[11])));;
- MELT_LOCATION ("warmelt-macro.melt:2539:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2546:/ compute");
/*_.INFORMALS__V22*/ meltfptr[21] = /*_.SETQ___V55*/ meltfptr[51] =
/*_.MAKE_MULTIPLE__V54*/ meltfptr[50];;
- MELT_LOCATION ("warmelt-macro.melt:2542:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2549:/ quasiblock");
/*^newclosure */
@@ -3044,7 +3044,7 @@ lab_endgetargs:;
(melt_ptr_t) ( /*_.INFORMALS__V22*/ meltfptr[21]);
;
/*_.LAMBDA___V56*/ meltfptr[55] = /*_.LAMBDA___V57*/ meltfptr[56];;
- MELT_LOCATION ("warmelt-macro.melt:2540:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2547:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -3062,7 +3062,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2543:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2550:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -3085,7 +3085,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2543:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2550:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[10]) /*then */
{
/*^cond.then */
@@ -3095,7 +3095,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2543:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2550:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -3106,7 +3106,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2543;
+ argtab[2].meltbp_long = 2550;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_defunmatcher informals";
/*^apply.arg */
@@ -3126,7 +3126,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V61*/ meltfptr[60];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2543:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2550:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 0;
@@ -3139,7 +3139,7 @@ lab_endgetargs:;
/*_.IF___V60*/ meltfptr[59] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2543:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2550:/ quasiblock");
/*_.PROGN___V62*/ meltfptr[60] = /*_.IF___V60*/ meltfptr[59];;
@@ -3148,7 +3148,7 @@ lab_endgetargs:;
/*_.IFCPP___V59*/ meltfptr[58] = /*_.PROGN___V62*/ meltfptr[60];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2543:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2550:/ clear");
/*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[10] = 0;
/*^clear */
/*clear *//*_.IF___V60*/ meltfptr[59] = 0;
@@ -3165,7 +3165,7 @@ lab_endgetargs:;
/*_.LET___V37*/ meltfptr[36] = /*_.IFCPP___V59*/ meltfptr[58];;
- MELT_LOCATION ("warmelt-macro.melt:2523:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2530:/ clear");
/*clear *//*_.PAIR_HEAD__V38*/ meltfptr[37] = 0;
/*^clear */
/*clear *//*_.MATINFORMALS__V39*/ meltfptr[38] = 0;
@@ -3201,12 +3201,12 @@ lab_endgetargs:;
/*clear *//*_.IFCPP___V59*/ meltfptr[58] = 0;
/*_.PAIR_TAIL__V63*/ meltfptr[59] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2546:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2553:/ compute");
/*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V64*/ meltfptr[60] =
/*_.PAIR_TAIL__V63*/ meltfptr[59];;
/*_.PAIR_HEAD__V65*/ meltfptr[37] =
(melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2547:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2554:/ apply");
/*apply */
{
/*_.LAMBDA_ARG_BINDINGS__V66*/ meltfptr[38] =
@@ -3226,7 +3226,7 @@ lab_endgetargs:;
/*_#NOT__L17*/ meltfnum[10] =
(!( /*_#IS_MULTIPLE__L16*/ meltfnum[14]));;
- MELT_LOCATION ("warmelt-macro.melt:2548:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2555:/ cond");
/*cond */ if ( /*_#NOT__L17*/ meltfnum[10]) /*then */
{
/*^cond.then */
@@ -3236,20 +3236,20 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:2550:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2557:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
("bad outs for (DEFUNMATCHER <symb> <ins> <outs>[:doc docum] <matchfun> <applyfun> [<data>])"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2551:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2558:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:2551:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2558:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:2549:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2556:/ quasiblock");
/*_.PROGN___V70*/ meltfptr[44] = /*_.RETURN___V69*/ meltfptr[41];;
@@ -3258,7 +3258,7 @@ lab_endgetargs:;
/*_.IF___V68*/ meltfptr[40] = /*_.PROGN___V70*/ meltfptr[44];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2548:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2555:/ clear");
/*clear *//*_.RETURN___V69*/ meltfptr[41] = 0;
/*^clear */
/*clear *//*_.PROGN___V70*/ meltfptr[44] = 0;
@@ -3276,7 +3276,7 @@ lab_endgetargs:;
/*_#IS_A__L18*/ meltfnum[1] =
melt_is_instance_of ((melt_ptr_t) ( /*_.OUTFORMALS__V23*/ meltfptr[22]),
(melt_ptr_t) (( /*!DISCR_VARIADIC_FORMAL_SEQUENCE */ meltfrout->tabval[5])));;
- MELT_LOCATION ("warmelt-macro.melt:2552:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2559:/ cond");
/*cond */ if ( /*_#IS_A__L18*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -3284,7 +3284,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2555:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2562:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -3310,21 +3310,21 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:2554:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2561:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
("(DEFUNMATCHER <symb> <ins> <outs> ...) outputs cannot be variadic with last :rest formal"),
(melt_ptr_t) ( /*_.NAMED_NAME__V72*/
meltfptr[49]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:2556:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2563:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:2556:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2563:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:2553:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2560:/ quasiblock");
/*_.PROGN___V74*/ meltfptr[51] = /*_.RETURN___V73*/ meltfptr[50];;
@@ -3333,7 +3333,7 @@ lab_endgetargs:;
/*_.IF___V71*/ meltfptr[45] = /*_.PROGN___V74*/ meltfptr[51];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2552:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2559:/ clear");
/*clear *//*_.NAMED_NAME__V72*/ meltfptr[49] = 0;
/*^clear */
/*clear *//*_.RETURN___V73*/ meltfptr[50] = 0;
@@ -3352,7 +3352,7 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V75*/ meltfptr[55] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2558:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2565:/ compute");
/*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V76*/ meltfptr[57] =
/*_.PAIR_TAIL__V75*/ meltfptr[55];;
/*_.PAIR_HEAD__V77*/ meltfptr[58] =
@@ -3362,7 +3362,7 @@ lab_endgetargs:;
/*_#__L19*/ meltfnum[8] =
(( /*_.PAIR_HEAD__V77*/ meltfptr[58]) ==
(( /*!konst_10_DOC */ meltfrout->tabval[10])));;
- MELT_LOCATION ("warmelt-macro.melt:2560:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2567:/ cond");
/*cond */ if ( /*_#__L19*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -3373,10 +3373,10 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V79*/ meltfptr[44] =
(melt_pair_tail
((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2562:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2569:/ compute");
/*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V80*/ meltfptr[49] =
/*_.PAIR_TAIL__V79*/ meltfptr[44];;
- MELT_LOCATION ("warmelt-macro.melt:2563:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2570:/ cond");
/*cond */ if ( /*_.DOCV__V27*/ meltfptr[26]) /*then */
{
/*^cond.then */
@@ -3400,16 +3400,16 @@ lab_endgetargs:;
/*_.PAIR_HEAD__V81*/ meltfptr[50] =
(melt_pair_head
((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2564:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2571:/ compute");
/*_.DOCV__V27*/ meltfptr[26] = /*_.SETQ___V82*/ meltfptr[51] =
/*_.PAIR_HEAD__V81*/ meltfptr[50];;
/*_.PAIR_TAIL__V83*/ meltfptr[82] =
(melt_pair_tail
((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2565:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2572:/ compute");
/*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V84*/ meltfptr[83] =
/*_.PAIR_TAIL__V83*/ meltfptr[82];;
- MELT_LOCATION ("warmelt-macro.melt:2561:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2568:/ quasiblock");
/*_.PROGN___V85*/ meltfptr[84] = /*_.SETQ___V84*/ meltfptr[83];;
@@ -3418,7 +3418,7 @@ lab_endgetargs:;
/*_.IF___V78*/ meltfptr[41] = /*_.PROGN___V85*/ meltfptr[84];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2560:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2567:/ clear");
/*clear *//*_.PAIR_TAIL__V79*/ meltfptr[44] = 0;
/*^clear */
/*clear *//*_.SETQ___V80*/ meltfptr[49] = 0;
@@ -3441,12 +3441,12 @@ lab_endgetargs:;
/*_.IF___V78*/ meltfptr[41] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2568:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2575:/ quasiblock");
/*_.MFA__V87*/ meltfptr[49] =
(melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2569:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2576:/ cond");
/*cond */ if ( /*_.MFA__V87*/ meltfptr[49]) /*then */
{
/*^cond.then */
@@ -3454,10 +3454,10 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2570:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2577:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -3465,22 +3465,25 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.MACROEXPAND_1__V89*/ meltfptr[51] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.MEXPANDER__V89*/ meltfptr[51] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[11])),
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
(melt_ptr_t) ( /*_.MFA__V87*/ meltfptr[49]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
+ ""), argtab, "", (union meltparam_un *) 0);
}
;
/*^compute */
/*_.MATCHFUNX__V24*/ meltfptr[23] = /*_.SETQ___V90*/ meltfptr[82] =
- /*_.MACROEXPAND_1__V89*/ meltfptr[51];;
+ /*_.MEXPANDER__V89*/ meltfptr[51];;
/*_.IFELSE___V88*/ meltfptr[50] = /*_.SETQ___V90*/ meltfptr[82];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2569:/ clear");
- /*clear *//*_.MACROEXPAND_1__V89*/ meltfptr[51] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2576:/ clear");
+ /*clear *//*_.MEXPANDER__V89*/ meltfptr[51] = 0;
/*^clear */
/*clear *//*_.SETQ___V90*/ meltfptr[82] = 0;
}
@@ -3497,7 +3500,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:2571:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2578:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
("bad matchfun for (DEFUNMATCHER <symb> <ins> <outs> <matchfun> <applyfun> [<data>])"),
(melt_ptr_t) 0);
@@ -3513,13 +3516,13 @@ lab_endgetargs:;
/*_.LET___V86*/ meltfptr[44] = /*_.IFELSE___V88*/ meltfptr[50];;
- MELT_LOCATION ("warmelt-macro.melt:2568:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2575:/ clear");
/*clear *//*_.MFA__V87*/ meltfptr[49] = 0;
/*^clear */
/*clear *//*_.IFELSE___V88*/ meltfptr[50] = 0;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2573:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2580:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -3542,7 +3545,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2573:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2580:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -3552,7 +3555,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L21*/ meltfnum[11] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2573:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2580:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -3563,7 +3566,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2573;
+ argtab[2].meltbp_long = 2580;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_defunmatcher matchfunx";
/*^apply.arg */
@@ -3583,7 +3586,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V93*/ meltfptr[51];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2573:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2580:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[11] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V93*/ meltfptr[51] = 0;
@@ -3596,7 +3599,7 @@ lab_endgetargs:;
/*_.IF___V92*/ meltfptr[84] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2573:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2580:/ quasiblock");
/*_.PROGN___V94*/ meltfptr[82] = /*_.IF___V92*/ meltfptr[84];;
@@ -3605,7 +3608,7 @@ lab_endgetargs:;
/*_.IFCPP___V91*/ meltfptr[83] = /*_.PROGN___V94*/ meltfptr[82];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2573:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2580:/ clear");
/*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[9] = 0;
/*^clear */
/*clear *//*_.IF___V92*/ meltfptr[84] = 0;
@@ -3622,15 +3625,15 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V95*/ meltfptr[49] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2575:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2582:/ compute");
/*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V96*/ meltfptr[50] =
/*_.PAIR_TAIL__V95*/ meltfptr[49];;
- MELT_LOCATION ("warmelt-macro.melt:2576:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2583:/ quasiblock");
/*_.AFA__V98*/ meltfptr[84] =
(melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2577:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2584:/ cond");
/*cond */ if ( /*_.AFA__V98*/ meltfptr[84]) /*then */
{
/*^cond.then */
@@ -3638,10 +3641,10 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2578:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2585:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -3649,23 +3652,26 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.MACROEXPAND_1__V100*/ meltfptr[99] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.MEXPANDER__V100*/ meltfptr[99] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[11])),
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
(melt_ptr_t) ( /*_.AFA__V98*/ meltfptr[84]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
+ ""), argtab, "", (union meltparam_un *) 0);
}
;
/*^compute */
/*_.APPLYFUNX__V25*/ meltfptr[24] =
/*_.SETQ___V101*/ meltfptr[100] =
- /*_.MACROEXPAND_1__V100*/ meltfptr[99];;
+ /*_.MEXPANDER__V100*/ meltfptr[99];;
/*_.IF___V99*/ meltfptr[82] = /*_.SETQ___V101*/ meltfptr[100];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2577:/ clear");
- /*clear *//*_.MACROEXPAND_1__V100*/ meltfptr[99] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2584:/ clear");
+ /*clear *//*_.MEXPANDER__V100*/ meltfptr[99] = 0;
/*^clear */
/*clear *//*_.SETQ___V101*/ meltfptr[100] = 0;
}
@@ -3681,13 +3687,13 @@ lab_endgetargs:;
/*_.LET___V97*/ meltfptr[51] = /*_.IF___V99*/ meltfptr[82];;
- MELT_LOCATION ("warmelt-macro.melt:2576:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2583:/ clear");
/*clear *//*_.AFA__V98*/ meltfptr[84] = 0;
/*^clear */
/*clear *//*_.IF___V99*/ meltfptr[82] = 0;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2582:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2589:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -3710,7 +3716,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2582:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2589:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[11]) /*then */
{
/*^cond.then */
@@ -3720,7 +3726,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L23*/ meltfnum[9] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2582:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2589:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -3731,7 +3737,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2582;
+ argtab[2].meltbp_long = 2589;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_defunmatcher applyfunx";
/*^apply.arg */
@@ -3751,7 +3757,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V104*/ meltfptr[84];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2582:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2589:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[9] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V104*/ meltfptr[84] = 0;
@@ -3764,7 +3770,7 @@ lab_endgetargs:;
/*_.IF___V103*/ meltfptr[100] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2582:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2589:/ quasiblock");
/*_.PROGN___V105*/ meltfptr[82] = /*_.IF___V103*/ meltfptr[100];;
@@ -3773,7 +3779,7 @@ lab_endgetargs:;
/*_.IFCPP___V102*/ meltfptr[99] = /*_.PROGN___V105*/ meltfptr[82];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2582:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2589:/ clear");
/*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[11] = 0;
/*^clear */
/*clear *//*_.IF___V103*/ meltfptr[100] = 0;
@@ -3790,15 +3796,15 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V106*/ meltfptr[84] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2584:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2591:/ compute");
/*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V107*/ meltfptr[100] =
/*_.PAIR_TAIL__V106*/ meltfptr[84];;
- MELT_LOCATION ("warmelt-macro.melt:2585:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2592:/ quasiblock");
/*_.DTA__V109*/ meltfptr[108] =
(melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2586:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2593:/ cond");
/*cond */ if ( /*_.DTA__V109*/ meltfptr[108]) /*then */
{
/*^cond.then */
@@ -3806,10 +3812,10 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2587:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2594:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -3817,22 +3823,25 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.MACROEXPAND_1__V111*/ meltfptr[110] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.MEXPANDER__V111*/ meltfptr[110] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[11])),
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
(melt_ptr_t) ( /*_.DTA__V109*/ meltfptr[108]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
+ ""), argtab, "", (union meltparam_un *) 0);
}
;
/*^compute */
/*_.DATAX__V26*/ meltfptr[25] = /*_.SETQ___V112*/ meltfptr[111] =
- /*_.MACROEXPAND_1__V111*/ meltfptr[110];;
+ /*_.MEXPANDER__V111*/ meltfptr[110];;
/*_.IF___V110*/ meltfptr[109] = /*_.SETQ___V112*/ meltfptr[111];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2586:/ clear");
- /*clear *//*_.MACROEXPAND_1__V111*/ meltfptr[110] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2593:/ clear");
+ /*clear *//*_.MEXPANDER__V111*/ meltfptr[110] = 0;
/*^clear */
/*clear *//*_.SETQ___V112*/ meltfptr[111] = 0;
}
@@ -3848,13 +3857,13 @@ lab_endgetargs:;
/*_.LET___V108*/ meltfptr[82] = /*_.IF___V110*/ meltfptr[109];;
- MELT_LOCATION ("warmelt-macro.melt:2585:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2592:/ clear");
/*clear *//*_.DTA__V109*/ meltfptr[108] = 0;
/*^clear */
/*clear *//*_.IF___V110*/ meltfptr[109] = 0;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2590:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2597:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -3877,7 +3886,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2590:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2597:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L24*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -3887,7 +3896,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L25*/ meltfnum[11] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2590:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2597:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -3898,7 +3907,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2590;
+ argtab[2].meltbp_long = 2597;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_defunmatcher datax";
/*^apply.arg */
@@ -3918,7 +3927,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V115*/ meltfptr[108];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2590:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2597:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L25*/ meltfnum[11] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V115*/ meltfptr[108] = 0;
@@ -3931,7 +3940,7 @@ lab_endgetargs:;
/*_.IF___V114*/ meltfptr[111] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2590:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2597:/ quasiblock");
/*_.PROGN___V116*/ meltfptr[109] = /*_.IF___V114*/ meltfptr[111];;
@@ -3940,7 +3949,7 @@ lab_endgetargs:;
/*_.IFCPP___V113*/ meltfptr[110] = /*_.PROGN___V116*/ meltfptr[109];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2590:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2597:/ clear");
/*clear *//*_#MELT_NEED_DBG__L24*/ meltfnum[9] = 0;
/*^clear */
/*clear *//*_.IF___V114*/ meltfptr[111] = 0;
@@ -3957,10 +3966,10 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V117*/ meltfptr[108] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2592:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2599:/ compute");
/*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V118*/ meltfptr[111] =
/*_.PAIR_TAIL__V117*/ meltfptr[108];;
- MELT_LOCATION ("warmelt-macro.melt:2593:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2600:/ cond");
/*cond */ if ( /*_.CURPAIR__V18*/ meltfptr[17]) /*then */
{
/*^cond.then */
@@ -3970,7 +3979,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:2594:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2601:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
("extra for (DEFUNMATCHER <symb> <ins> <outs> <matchfun> [<applyfun> [<data>]])"),
(melt_ptr_t) 0);
@@ -3981,10 +3990,10 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:2595:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2602:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:2599:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2606:/ quasiblock");
/*^rawallocobj */
@@ -3993,7 +4002,7 @@ lab_endgetargs:;
melt_ptr_t newobj = 0;
melt_raw_object_create (newobj,
(melt_ptr_t) (( /*!CLASS_SOURCE_DEFUNMATCHER */
- meltfrout->tabval[12])), (10),
+ meltfrout->tabval[11])), (10),
"CLASS_SOURCE_DEFUNMATCHER");
/*_.INST__V121*/ meltfptr[120] =
newobj;
@@ -4086,7 +4095,7 @@ lab_endgetargs:;
( /*_.DATAX__V26*/ meltfptr[25]), "SFUMATDEF_DATA");
;
/*_.SDFUM__V120*/ meltfptr[119] = /*_.INST__V121*/ meltfptr[120];;
- MELT_LOCATION ("warmelt-macro.melt:2611:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:2618:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]), 1, "NAMED_NAME");
@@ -4094,7 +4103,7 @@ lab_endgetargs:;
meltfptr[121] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:2610:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2617:/ quasiblock");
/*^rawallocobj */
@@ -4103,7 +4112,7 @@ lab_endgetargs:;
melt_ptr_t newobj = 0;
melt_raw_object_create (newobj,
(melt_ptr_t) (( /*!CLASS_FUNMATCHER */
- meltfrout->tabval[13])), (8),
+ meltfrout->tabval[12])), (8),
"CLASS_FUNMATCHER");
/*_.INST__V124*/ meltfptr[123] =
newobj;
@@ -4176,7 +4185,7 @@ lab_endgetargs:;
(( /*nil */ NULL)), "FMATCH_DATA");
;
/*_.FUMA__V123*/ meltfptr[122] = /*_.INST__V124*/ meltfptr[123];;
- MELT_LOCATION ("warmelt-macro.melt:2620:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2627:/ quasiblock");
/*^rawallocobj */
@@ -4185,7 +4194,7 @@ lab_endgetargs:;
melt_ptr_t newobj = 0;
melt_raw_object_create (newobj,
(melt_ptr_t) (( /*!CLASS_FUNMATCHER_BINDING */
- meltfrout->tabval[14])), (4),
+ meltfrout->tabval[13])), (4),
"CLASS_FUNMATCHER_BINDING");
/*_.INST__V126*/ meltfptr[125] =
newobj;
@@ -4221,7 +4230,7 @@ lab_endgetargs:;
"FMBIND_DEFUNMATCHER");
;
/*_.FMBIND__V125*/ meltfptr[124] = /*_.INST__V126*/ meltfptr[125];;
- MELT_LOCATION ("warmelt-macro.melt:2626:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2633:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -4231,7 +4240,7 @@ lab_endgetargs:;
(melt_ptr_t *) & /*_.FMBIND__V125*/ meltfptr[124];
/*_.PUT_ENV__V127*/ meltfptr[126] =
melt_apply ((meltclosure_ptr_t)
- (( /*!PUT_ENV */ meltfrout->tabval[15])),
+ (( /*!PUT_ENV */ meltfrout->tabval[14])),
(melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]),
(MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
@@ -4239,7 +4248,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2627:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2634:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -4262,7 +4271,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2627:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2634:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[11]) /*then */
{
/*^cond.then */
@@ -4272,7 +4281,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L27*/ meltfnum[9] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2627:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2634:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -4283,7 +4292,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2627;
+ argtab[2].meltbp_long = 2634;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_defunmatcher made fuma";
/*^apply.arg */
@@ -4303,7 +4312,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V130*/ meltfptr[129];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2627:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2634:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L27*/ meltfnum[9] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V130*/ meltfptr[129] = 0;
@@ -4316,7 +4325,7 @@ lab_endgetargs:;
/*_.IF___V129*/ meltfptr[128] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2627:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2634:/ quasiblock");
/*_.PROGN___V131*/ meltfptr[129] = /*_.IF___V129*/ meltfptr[128];;
@@ -4325,7 +4334,7 @@ lab_endgetargs:;
/*_.IFCPP___V128*/ meltfptr[127] = /*_.PROGN___V131*/ meltfptr[129];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2627:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2634:/ clear");
/*clear *//*_#MELT_NEED_DBG__L26*/ meltfnum[11] = 0;
/*^clear */
/*clear *//*_.IF___V129*/ meltfptr[128] = 0;
@@ -4340,7 +4349,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2628:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2635:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -4363,7 +4372,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2628:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2635:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L28*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -4373,7 +4382,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L29*/ meltfnum[11] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2628:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2635:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -4384,7 +4393,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2628;
+ argtab[2].meltbp_long = 2635;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_defunmatcher fmbind";
/*^apply.arg */
@@ -4404,7 +4413,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V134*/ meltfptr[133];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2628:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2635:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L29*/ meltfnum[11] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V134*/ meltfptr[133] = 0;
@@ -4417,7 +4426,7 @@ lab_endgetargs:;
/*_.IF___V133*/ meltfptr[129] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2628:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2635:/ quasiblock");
/*_.PROGN___V135*/ meltfptr[133] = /*_.IF___V133*/ meltfptr[129];;
@@ -4426,7 +4435,7 @@ lab_endgetargs:;
/*_.IFCPP___V132*/ meltfptr[128] = /*_.PROGN___V135*/ meltfptr[133];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2628:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2635:/ clear");
/*clear *//*_#MELT_NEED_DBG__L28*/ meltfnum[9] = 0;
/*^clear */
/*clear *//*_.IF___V133*/ meltfptr[129] = 0;
@@ -4441,7 +4450,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2629:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2636:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -4464,7 +4473,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2629:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2636:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L30*/ meltfnum[11]) /*then */
{
/*^cond.then */
@@ -4474,7 +4483,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L31*/ meltfnum[9] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2629:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2636:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -4485,7 +4494,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2629;
+ argtab[2].meltbp_long = 2636;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_defunmatcher return sdfum";
/*^apply.arg */
@@ -4505,7 +4514,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V138*/ meltfptr[137];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2629:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2636:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L31*/ meltfnum[9] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V138*/ meltfptr[137] = 0;
@@ -4518,7 +4527,7 @@ lab_endgetargs:;
/*_.IF___V137*/ meltfptr[133] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2629:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2636:/ quasiblock");
/*_.PROGN___V139*/ meltfptr[137] = /*_.IF___V137*/ meltfptr[133];;
@@ -4527,7 +4536,7 @@ lab_endgetargs:;
/*_.IFCPP___V136*/ meltfptr[129] = /*_.PROGN___V139*/ meltfptr[137];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2629:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2636:/ clear");
/*clear *//*_#MELT_NEED_DBG__L30*/ meltfnum[11] = 0;
/*^clear */
/*clear *//*_.IF___V137*/ meltfptr[133] = 0;
@@ -4540,16 +4549,16 @@ lab_endgetargs:;
/*_.IFCPP___V136*/ meltfptr[129] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:2630:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2637:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.SDFUM__V120*/ meltfptr[119];;
- MELT_LOCATION ("warmelt-macro.melt:2630:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2637:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*_.LET___V119*/ meltfptr[109] = /*_.RETURN___V140*/ meltfptr[133];;
- MELT_LOCATION ("warmelt-macro.melt:2595:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2602:/ clear");
/*clear *//*_.SDFUM__V120*/ meltfptr[119] = 0;
/*^clear */
/*clear *//*_.NAMED_NAME__V122*/ meltfptr[121] = 0;
@@ -4569,7 +4578,7 @@ lab_endgetargs:;
/*clear *//*_.RETURN___V140*/ meltfptr[133] = 0;
/*_.LET___V14*/ meltfptr[12] = /*_.LET___V119*/ meltfptr[109];;
- MELT_LOCATION ("warmelt-macro.melt:2499:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2506:/ clear");
/*clear *//*_.CONT__V15*/ meltfptr[14] = 0;
/*^clear */
/*clear *//*_.LOC__V16*/ meltfptr[15] = 0;
@@ -4663,11 +4672,11 @@ lab_endgetargs:;
/*clear *//*_.SETQ___V118*/ meltfptr[111] = 0;
/*^clear */
/*clear *//*_.LET___V119*/ meltfptr[109] = 0;
- MELT_LOCATION ("warmelt-macro.melt:2495:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2502:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];;
- MELT_LOCATION ("warmelt-macro.melt:2495:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2502:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -4757,7 +4766,7 @@ meltrout_38_warmelt_macro_LAMBDA___8__ (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:2542:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:2549:/ getarg");
/*_.COMP__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -4775,7 +4784,7 @@ lab_endgetargs:;
/*_#I__L2*/ meltfnum[1] =
(( /*_#IX__L1*/ meltfnum[0]) > (0));;
- MELT_LOCATION ("warmelt-macro.melt:2542:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2549:/ cond");
/*cond */ if ( /*_#I__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -4787,7 +4796,7 @@ lab_endgetargs:;
(( /*_#IX__L1*/ meltfnum[0]) - (1));;
{
- MELT_LOCATION ("warmelt-macro.melt:2542:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2549:/ locexp");
meltgc_multiple_put_nth ((melt_ptr_t)
(( /*~INFORMALS */ meltfclos->
tabval[0])),
@@ -4857,10 +4866,10 @@ meltrout_39_warmelt_macro_MEXPAND_DEFUN (meltclosure_ptr_t meltclosp_,
struct meltclosure_st *mcfr_clos;
struct excepth_melt_st *mcfr_exh;
struct melt_callframe_st *mcfr_prev;
-#define MELTFRAM_NBVARPTR 61
- void *mcfr_varptr[61];
-#define MELTFRAM_NBVARNUM 14
- long mcfr_varnum[14];
+#define MELTFRAM_NBVARPTR 63
+ void *mcfr_varptr[63];
+#define MELTFRAM_NBVARNUM 15
+ long mcfr_varnum[15];
/*others*/
long _spare_;
}
@@ -4871,13 +4880,13 @@ meltrout_39_warmelt_macro_MEXPAND_DEFUN (meltclosure_ptr_t meltclosp_,
int ix = 0;
meltframptr_ = (void *) meltfirstargp_;
gt_ggc_mx_melt_un (meltframptr_->mcfr_clos);
- for (ix = 0; ix < 61; ix++)
+ for (ix = 0; ix < 63; ix++)
if (meltframptr_->mcfr_varptr[ix])
gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]);
return NULL;
} /*end markggc */ ;
memset (&meltfram__, 0, sizeof (meltfram__));
- meltfram__.mcfr_nbvar = 61;
+ meltfram__.mcfr_nbvar = 63;
meltfram__.mcfr_clos = meltclosp_;
meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe;
melt_topframe = (struct melt_callframe_st *) &meltfram__;
@@ -4885,7 +4894,7 @@ meltrout_39_warmelt_macro_MEXPAND_DEFUN (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:2641:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:2648:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -4926,7 +4935,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2642:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2649:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -4935,7 +4944,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:2642:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2649:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -4943,7 +4952,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:2642:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:2649:/ cond.else");
/*^block */
/*anyblock */
@@ -4957,7 +4966,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (2642) ? (2642) : __LINE__, __FUNCTION__);
+ (2649) ? (2649) : __LINE__, __FUNCTION__);
;
}
;
@@ -4972,7 +4981,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2642:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2649:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -4985,7 +4994,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2643:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2650:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -4994,7 +5003,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:2643:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2650:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -5002,7 +5011,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:2643:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:2650:/ cond.else");
/*^block */
/*anyblock */
@@ -5016,7 +5025,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (2643) ? (2643) : __LINE__, __FUNCTION__);
+ (2650) ? (2650) : __LINE__, __FUNCTION__);
;
}
;
@@ -5031,7 +5040,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2643:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2650:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -5044,7 +5053,65 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2644:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2651:/ cppif.then");
+ /*^block */
+ /*anyblock */
+ {
+
+ /*_#IS_OBJECT__L3*/ meltfnum[0] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) ==
+ MELTOBMAG_OBJECT);;
+ MELT_LOCATION ("warmelt-macro.melt:2651:/ cond");
+ /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */
+ {
+ /*^cond.then */
+ /*_.IFELSE___V11*/ meltfptr[10] = ( /*nil */ NULL);;
+ }
+ else
+ {
+ MELT_LOCATION ("warmelt-macro.melt:2651:/ cond.else");
+
+ /*^block */
+ /*anyblock */
+ {
+
+
+
+
+ {
+ /*^locexp */
+ melt_assert_failed (("check modctx"),
+ ("warmelt-macro.melt")
+ ? ("warmelt-macro.melt") : __FILE__,
+ (2651) ? (2651) : __LINE__, __FUNCTION__);
+ ;
+ }
+ ;
+ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0;
+ /*epilog */
+ }
+ ;
+ }
+ ;
+ /*^compute */
+
+ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:2651:/ clear");
+ /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0;
+ /*^clear */
+ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0;
+ }
+
+#else /*MELT_HAVE_DEBUG */
+ /*^cppif.else */
+ /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL);
+#endif /*MELT_HAVE_DEBUG */
+ ;
+
+#if MELT_HAVE_DEBUG
+ MELT_LOCATION ("warmelt-macro.melt:2652:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -5059,7 +5126,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L3*/ meltfnum[0] =
+ /*_#MELT_NEED_DBG__L4*/ meltfnum[0] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -5067,33 +5134,33 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2644:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:2652:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] =
+ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2644:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2652:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
- argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3];
+ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2644;
+ argtab[2].meltbp_long = 2652;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.defun sexpr";
/*^apply.arg */
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1];
- /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] =
+ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -5103,86 +5170,86 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V11*/ meltfptr[10] =
- /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];;
+ /*_.IF___V13*/ meltfptr[12] =
+ /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2644:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2652:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V11*/ meltfptr[10] = NULL;;
+ /*_.IF___V13*/ meltfptr[12] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2644:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2652:/ quasiblock");
- /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];;
+ /*_.PROGN___V15*/ meltfptr[13] = /*_.IF___V13*/ meltfptr[12];;
/*^compute */
- /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];;
+ /*_.IFCPP___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[13];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2644:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2652:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0;
/*^clear */
- /*clear *//*_.IF___V11*/ meltfptr[10] = 0;
+ /*clear *//*_.IF___V13*/ meltfptr[12] = 0;
/*^clear */
- /*clear *//*_.PROGN___V13*/ meltfptr[11] = 0;
+ /*clear *//*_.PROGN___V15*/ meltfptr[13] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL);
+ /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:2645:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2653:/ quasiblock");
/*^getslot */
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
- /*_.CONT__V15*/
- meltfptr[11] = slot;
+ /*_.CONT__V17*/
+ meltfptr[13] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:2646:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:2654:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
- /*_.LOC__V16*/
- meltfptr[15] = slot;
+ /*_.LOC__V18*/
+ meltfptr[17] = slot;
};
;
- /*_.LIST_FIRST__V17*/ meltfptr[16] =
- (melt_list_first ((melt_ptr_t) ( /*_.CONT__V15*/ meltfptr[11])));;
+ /*_.LIST_FIRST__V19*/ meltfptr[18] =
+ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V17*/ meltfptr[13])));;
/*^compute */
- /*_.CURPAIR__V18*/ meltfptr[17] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));;
+ /*_.CURPAIR__V20*/ meltfptr[19] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V19*/ meltfptr[18])));;
/*^compute */
- /*_.SYMB__V19*/ meltfptr[18] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2649:/ apply");
+ /*_.SYMB__V21*/ meltfptr[20] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));;
+ MELT_LOCATION ("warmelt-macro.melt:2657:/ apply");
/*apply */
{
- /*_.NEWENV__V20*/ meltfptr[19] =
+ /*_.NEWENV__V22*/ meltfptr[21] =
melt_apply ((meltclosure_ptr_t)
(( /*!FRESH_ENV */ meltfrout->tabval[3])),
(melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (""),
(union meltparam_un *) 0, "", (union meltparam_un *) 0);
}
;
- /*_.DOCV__V21*/ meltfptr[20] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:2652:/ quasiblock");
+ /*_.DOCV__V23*/ meltfptr[22] = ( /*nil */ NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:2660:/ quasiblock");
/*^rawallocobj */
@@ -5193,7 +5260,7 @@ lab_endgetargs:;
(melt_ptr_t) (( /*!CLASS_FUNCTION_BINDING */
meltfrout->tabval[4])), (3),
"CLASS_FUNCTION_BINDING");
- /*_.INST__V23*/ meltfptr[22] =
+ /*_.INST__V25*/ meltfptr[24] =
newobj;
};
;
@@ -5201,29 +5268,29 @@ lab_endgetargs:;
/*putslot */
melt_assertmsg ("putslot checkobj @BINDER",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V23*/ meltfptr[22])) ==
+ ( /*_.INST__V25*/ meltfptr[24])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V23*/ meltfptr[22]), (0),
- ( /*_.SYMB__V19*/ meltfptr[18]), "BINDER");
+ melt_putfield_object (( /*_.INST__V25*/ meltfptr[24]), (0),
+ ( /*_.SYMB__V21*/ meltfptr[20]), "BINDER");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @FUBIND_DEFUN",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V23*/ meltfptr[22])) ==
+ ( /*_.INST__V25*/ meltfptr[24])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V23*/ meltfptr[22]), (2),
+ melt_putfield_object (( /*_.INST__V25*/ meltfptr[24]), (2),
(( /*nil */ NULL)), "FUBIND_DEFUN");
;
- /*_.FBIND__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];;
+ /*_.FBIND__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];;
/*^compute */
- /*_#IS_NOT_A__L5*/ meltfnum[3] =
- !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]),
+ /*_#IS_NOT_A__L6*/ meltfnum[4] =
+ !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V21*/ meltfptr[20]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
tabval[5])));;
- MELT_LOCATION ("warmelt-macro.melt:2657:/ cond");
- /*cond */ if ( /*_#IS_NOT_A__L5*/ meltfnum[3]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:2665:/ cond");
+ /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[4]) /*then */
{
/*^cond.then */
/*^block */
@@ -5232,8 +5299,8 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:2658:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
+ MELT_LOCATION ("warmelt-macro.melt:2666:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]),
("missing symbol for DEFUN"), (melt_ptr_t) 0);
}
;
@@ -5242,7 +5309,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:2659:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2667:/ apply");
/*apply */
{
union meltparam_un argtab[2];
@@ -5250,23 +5317,23 @@ lab_endgetargs:;
/*^apply.arg */
argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2];
/*^apply.arg */
- argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V16*/ meltfptr[15];
- /*_.WARN_IF_REDEFINED__V24*/ meltfptr[23] =
+ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V18*/ meltfptr[17];
+ /*_.WARN_IF_REDEFINED__V26*/ meltfptr[25] =
melt_apply ((meltclosure_ptr_t)
(( /*!WARN_IF_REDEFINED */ meltfrout->tabval[6])),
- (melt_ptr_t) ( /*_.SYMB__V19*/ meltfptr[18]),
+ (melt_ptr_t) ( /*_.SYMB__V21*/ meltfptr[20]),
(MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2660:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2668:/ apply");
/*apply */
{
union meltparam_un argtab[1];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
- argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.FBIND__V22*/ meltfptr[21];
- /*_.PUT_ENV__V25*/ meltfptr[24] =
+ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.FBIND__V24*/ meltfptr[23];
+ /*_.PUT_ENV__V27*/ meltfptr[26] =
melt_apply ((meltclosure_ptr_t)
(( /*!PUT_ENV */ meltfrout->tabval[7])),
(melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]),
@@ -5274,40 +5341,40 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.PAIR_TAIL__V26*/ meltfptr[25] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2661:/ compute");
- /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V27*/ meltfptr[26] =
- /*_.PAIR_TAIL__V26*/ meltfptr[25];;
- MELT_LOCATION ("warmelt-macro.melt:2663:/ quasiblock");
+ /*_.PAIR_TAIL__V28*/ meltfptr[27] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));;
+ MELT_LOCATION ("warmelt-macro.melt:2669:/ compute");
+ /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V29*/ meltfptr[28] =
+ /*_.PAIR_TAIL__V28*/ meltfptr[27];;
+ MELT_LOCATION ("warmelt-macro.melt:2671:/ quasiblock");
- /*_.CURPAIRHEAD__V29*/ meltfptr[28] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
+ /*_.CURPAIRHEAD__V31*/ meltfptr[30] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));;
/*^compute */
- /*_#NULL__L6*/ meltfnum[0] =
- (( /*_.CURPAIRHEAD__V29*/ meltfptr[28]) == NULL);;
- MELT_LOCATION ("warmelt-macro.melt:2665:/ cond");
- /*cond */ if ( /*_#NULL__L6*/ meltfnum[0]) /*then */
+ /*_#NULL__L7*/ meltfnum[0] =
+ (( /*_.CURPAIRHEAD__V31*/ meltfptr[30]) == NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:2673:/ cond");
+ /*cond */ if ( /*_#NULL__L7*/ meltfnum[0]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_.MAKE_MULTIPLE__V31*/ meltfptr[30] =
+ /*_.MAKE_MULTIPLE__V33*/ meltfptr[32] =
(meltgc_new_multiple
((meltobject_ptr_t)
(( /*!DISCR_MULTIPLE */ meltfrout->tabval[8])), (0)));;
/*^compute */
- /*_.BTUP__V30*/ meltfptr[29] =
- /*_.MAKE_MULTIPLE__V31*/ meltfptr[30];;
+ /*_.BTUP__V32*/ meltfptr[31] =
+ /*_.MAKE_MULTIPLE__V33*/ meltfptr[32];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2665:/ clear");
- /*clear *//*_.MAKE_MULTIPLE__V31*/ meltfptr[30] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2673:/ clear");
+ /*clear *//*_.MAKE_MULTIPLE__V33*/ meltfptr[32] = 0;
}
;
}
@@ -5318,23 +5385,23 @@ lab_endgetargs:;
/*anyblock */
{
- /*_#IS_A__L7*/ meltfnum[6] =
+ /*_#IS_A__L8*/ meltfnum[7] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.CURPAIRHEAD__V29*/ meltfptr[28]),
+ ( /*_.CURPAIRHEAD__V31*/ meltfptr[30]),
(melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->
tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:2667:/ cond");
- /*cond */ if ( /*_#IS_A__L7*/ meltfnum[6]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:2675:/ cond");
+ /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_.PAIR_HEAD__V33*/ meltfptr[32] =
+ /*_.PAIR_HEAD__V35*/ meltfptr[34] =
(melt_pair_head
- ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2668:/ apply");
+ ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));;
+ MELT_LOCATION ("warmelt-macro.melt:2676:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -5342,24 +5409,24 @@ lab_endgetargs:;
/*^apply.arg */
argtab[0].meltbp_aptr =
(melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1];
- /*_.LAMBDA_ARG_BINDINGS__V34*/ meltfptr[33] =
+ /*_.LAMBDA_ARG_BINDINGS__V36*/ meltfptr[35] =
melt_apply ((meltclosure_ptr_t)
(( /*!LAMBDA_ARG_BINDINGS */ meltfrout->
tabval[9])),
- (melt_ptr_t) ( /*_.PAIR_HEAD__V33*/
- meltfptr[32]),
+ (melt_ptr_t) ( /*_.PAIR_HEAD__V35*/
+ meltfptr[34]),
(MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
- /*_.IFELSE___V32*/ meltfptr[30] =
- /*_.LAMBDA_ARG_BINDINGS__V34*/ meltfptr[33];;
+ /*_.IFELSE___V34*/ meltfptr[32] =
+ /*_.LAMBDA_ARG_BINDINGS__V36*/ meltfptr[35];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2667:/ clear");
- /*clear *//*_.PAIR_HEAD__V33*/ meltfptr[32] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2675:/ clear");
+ /*clear *//*_.PAIR_HEAD__V35*/ meltfptr[34] = 0;
/*^clear */
- /*clear *//*_.LAMBDA_ARG_BINDINGS__V34*/ meltfptr[33] = 0;
+ /*clear *//*_.LAMBDA_ARG_BINDINGS__V36*/ meltfptr[35] = 0;
}
;
}
@@ -5372,7 +5439,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2670:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2678:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -5387,7 +5454,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L8*/ meltfnum[7] =
+ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -5395,36 +5462,36 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2670:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:2678:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] =
+ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2670:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2678:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8];
+ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2670;
+ argtab[2].meltbp_long = 2678;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_defun strange arglist curpairhead";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.CURPAIRHEAD__V29*/
- meltfptr[28];
- /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] =
+ (melt_ptr_t *) & /*_.CURPAIRHEAD__V31*/
+ meltfptr[30];
+ /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
tabval[2])),
@@ -5435,93 +5502,94 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V36*/ meltfptr[33] =
- /*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];;
+ /*_.IF___V38*/ meltfptr[35] =
+ /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2670:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2678:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] =
+ 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V36*/ meltfptr[33] = NULL;;
+ /*_.IF___V38*/ meltfptr[35] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2670:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2678:/ quasiblock");
- /*_.PROGN___V38*/ meltfptr[36] =
- /*_.IF___V36*/ meltfptr[33];;
+ /*_.PROGN___V40*/ meltfptr[38] =
+ /*_.IF___V38*/ meltfptr[35];;
/*^compute */
- /*_.IFCPP___V35*/ meltfptr[32] =
- /*_.PROGN___V38*/ meltfptr[36];;
+ /*_.IFCPP___V37*/ meltfptr[34] =
+ /*_.PROGN___V40*/ meltfptr[38];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2670:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2678:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_.IF___V36*/ meltfptr[33] = 0;
+ /*clear *//*_.IF___V38*/ meltfptr[35] = 0;
/*^clear */
- /*clear *//*_.PROGN___V38*/ meltfptr[36] = 0;
+ /*clear *//*_.PROGN___V40*/ meltfptr[38] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V35*/ meltfptr[32] = ( /*nil */ NULL);
+ /*_.IFCPP___V37*/ meltfptr[34] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
{
- MELT_LOCATION ("warmelt-macro.melt:2671:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
+ MELT_LOCATION ("warmelt-macro.melt:2679:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]),
("missing or invalid arglist for DEFUN"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2669:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2677:/ quasiblock");
- /*_.PROGN___V39*/ meltfptr[33] = ( /*nil */ NULL);;
+ /*_.PROGN___V41*/ meltfptr[35] = ( /*nil */ NULL);;
/*^compute */
- /*_.IFELSE___V32*/ meltfptr[30] =
- /*_.PROGN___V39*/ meltfptr[33];;
+ /*_.IFELSE___V34*/ meltfptr[32] =
+ /*_.PROGN___V41*/ meltfptr[35];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2667:/ clear");
- /*clear *//*_.IFCPP___V35*/ meltfptr[32] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2675:/ clear");
+ /*clear *//*_.IFCPP___V37*/ meltfptr[34] = 0;
/*^clear */
- /*clear *//*_.PROGN___V39*/ meltfptr[33] = 0;
+ /*clear *//*_.PROGN___V41*/ meltfptr[35] = 0;
}
;
}
;
- /*_.BTUP__V30*/ meltfptr[29] = /*_.IFELSE___V32*/ meltfptr[30];;
+ /*_.BTUP__V32*/ meltfptr[31] = /*_.IFELSE___V34*/ meltfptr[32];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2665:/ clear");
- /*clear *//*_#IS_A__L7*/ meltfnum[6] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2673:/ clear");
+ /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V32*/ meltfptr[30] = 0;
+ /*clear *//*_.IFELSE___V34*/ meltfptr[32] = 0;
}
;
}
;
- /*_#IS_MULTIPLE__L10*/ meltfnum[8] =
- (melt_magic_discr ((melt_ptr_t) ( /*_.BTUP__V30*/ meltfptr[29])) ==
+ /*_#IS_MULTIPLE__L11*/ meltfnum[9] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.BTUP__V32*/ meltfptr[31])) ==
MELTOBMAG_MULTIPLE);;
/*^compute */
- /*_#NOT__L11*/ meltfnum[7] =
- (!( /*_#IS_MULTIPLE__L10*/ meltfnum[8]));;
- MELT_LOCATION ("warmelt-macro.melt:2675:/ cond");
- /*cond */ if ( /*_#NOT__L11*/ meltfnum[7]) /*then */
+ /*_#NOT__L12*/ meltfnum[8] =
+ (!( /*_#IS_MULTIPLE__L11*/ meltfnum[9]));;
+ MELT_LOCATION ("warmelt-macro.melt:2683:/ cond");
+ /*cond */ if ( /*_#NOT__L12*/ meltfnum[8]) /*then */
{
/*^cond.then */
/*^block */
@@ -5530,7 +5598,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2677:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2685:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -5545,7 +5613,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L12*/ meltfnum[6] =
+ /*_#MELT_NEED_DBG__L13*/ meltfnum[7] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -5553,34 +5621,34 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2677:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[6]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:2685:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[7]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] =
+ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2677:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2685:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12];
+ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2677;
+ argtab[2].meltbp_long = 2685;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_defun strange btup";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.BTUP__V30*/ meltfptr[29];
- /*_.MELT_DEBUG_FUN__V42*/ meltfptr[33] =
+ (melt_ptr_t *) & /*_.BTUP__V32*/ meltfptr[31];
+ /*_.MELT_DEBUG_FUN__V44*/ meltfptr[35] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
tabval[2])),
@@ -5591,69 +5659,69 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V41*/ meltfptr[32] =
- /*_.MELT_DEBUG_FUN__V42*/ meltfptr[33];;
+ /*_.IF___V43*/ meltfptr[34] =
+ /*_.MELT_DEBUG_FUN__V44*/ meltfptr[35];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2677:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2685:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V42*/ meltfptr[33] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V44*/ meltfptr[35] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V41*/ meltfptr[32] = NULL;;
+ /*_.IF___V43*/ meltfptr[34] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2677:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2685:/ quasiblock");
- /*_.PROGN___V43*/ meltfptr[30] = /*_.IF___V41*/ meltfptr[32];;
+ /*_.PROGN___V45*/ meltfptr[32] = /*_.IF___V43*/ meltfptr[34];;
/*^compute */
- /*_.IFCPP___V40*/ meltfptr[36] = /*_.PROGN___V43*/ meltfptr[30];;
+ /*_.IFCPP___V42*/ meltfptr[38] = /*_.PROGN___V45*/ meltfptr[32];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2677:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[6] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2685:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[7] = 0;
/*^clear */
- /*clear *//*_.IF___V41*/ meltfptr[32] = 0;
+ /*clear *//*_.IF___V43*/ meltfptr[34] = 0;
/*^clear */
- /*clear *//*_.PROGN___V43*/ meltfptr[30] = 0;
+ /*clear *//*_.PROGN___V45*/ meltfptr[32] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V40*/ meltfptr[36] = ( /*nil */ NULL);
+ /*_.IFCPP___V42*/ meltfptr[38] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
{
- MELT_LOCATION ("warmelt-macro.melt:2678:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
+ MELT_LOCATION ("warmelt-macro.melt:2686:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V18*/ meltfptr[17]),
("missing formal arguments for DEFUN"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2676:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2684:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2675:/ clear");
- /*clear *//*_.IFCPP___V40*/ meltfptr[36] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2683:/ clear");
+ /*clear *//*_.IFCPP___V42*/ meltfptr[38] = 0;
}
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:2679:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2687:/ quasiblock");
/*^newclosure */
- /*newclosure *//*_.LAMBDA___V45*/ meltfptr[32] =
+ /*newclosure *//*_.LAMBDA___V47*/ meltfptr[34] =
meltgc_new_closure ((meltobject_ptr_t)
(((void *) (MELT_PREDEF (DISCR_CLOSURE)))),
(meltroutine_ptr_t) (( /*!konst_12 */ meltfrout->
@@ -5663,124 +5731,126 @@ lab_endgetargs:;
/*putclosv */
melt_assertmsg ("putclosv checkclo",
melt_magic_discr ((melt_ptr_t)
- ( /*_.LAMBDA___V45*/ meltfptr[32])) ==
+ ( /*_.LAMBDA___V47*/ meltfptr[34])) ==
MELTOBMAG_CLOSURE);
melt_assertmsg ("putclosv checkoff", 0 >= 0
&& 0 <
melt_closure_size ((melt_ptr_t)
- ( /*_.LAMBDA___V45*/ meltfptr[32])));
- ((meltclosure_ptr_t) /*_.LAMBDA___V45*/ meltfptr[32])->tabval[0] =
- (melt_ptr_t) ( /*_.NEWENV__V20*/ meltfptr[19]);
+ ( /*_.LAMBDA___V47*/ meltfptr[34])));
+ ((meltclosure_ptr_t) /*_.LAMBDA___V47*/ meltfptr[34])->tabval[0] =
+ (melt_ptr_t) ( /*_.NEWENV__V22*/ meltfptr[21]);
;
- /*_.LAMBDA___V44*/ meltfptr[33] = /*_.LAMBDA___V45*/ meltfptr[32];;
- MELT_LOCATION ("warmelt-macro.melt:2679:/ apply");
+ /*_.LAMBDA___V46*/ meltfptr[35] = /*_.LAMBDA___V47*/ meltfptr[34];;
+ MELT_LOCATION ("warmelt-macro.melt:2687:/ apply");
/*apply */
{
union meltparam_un argtab[1];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
- (melt_ptr_t *) & /*_.LAMBDA___V44*/ meltfptr[33];
- /*_.MULTIPLE_EVERY__V46*/ meltfptr[30] =
+ (melt_ptr_t *) & /*_.LAMBDA___V46*/ meltfptr[35];
+ /*_.MULTIPLE_EVERY__V48*/ meltfptr[32] =
melt_apply ((meltclosure_ptr_t)
(( /*!MULTIPLE_EVERY */ meltfrout->tabval[10])),
- (melt_ptr_t) ( /*_.BTUP__V30*/ meltfptr[29]),
+ (melt_ptr_t) ( /*_.BTUP__V32*/ meltfptr[31]),
(MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
- /*_.PAIR_TAIL__V47*/ meltfptr[36] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2680:/ compute");
- /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V48*/ meltfptr[47] =
- /*_.PAIR_TAIL__V47*/ meltfptr[36];;
- /*_.PAIR_HEAD__V49*/ meltfptr[48] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
+ /*_.PAIR_TAIL__V49*/ meltfptr[38] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));;
+ MELT_LOCATION ("warmelt-macro.melt:2688:/ compute");
+ /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V50*/ meltfptr[49] =
+ /*_.PAIR_TAIL__V49*/ meltfptr[38];;
+ /*_.PAIR_HEAD__V51*/ meltfptr[50] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));;
/*^compute */
- /*_#__L14*/ meltfnum[12] =
- (( /*_.PAIR_HEAD__V49*/ meltfptr[48]) ==
+ /*_#__L15*/ meltfnum[13] =
+ (( /*_.PAIR_HEAD__V51*/ meltfptr[50]) ==
(( /*!konst_13_DOC */ meltfrout->tabval[13])));;
- MELT_LOCATION ("warmelt-macro.melt:2682:/ cond");
- /*cond */ if ( /*_#__L14*/ meltfnum[12]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:2690:/ cond");
+ /*cond */ if ( /*_#__L15*/ meltfnum[13]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_.PAIR_TAIL__V51*/ meltfptr[50] =
+ /*_.PAIR_TAIL__V53*/ meltfptr[52] =
(melt_pair_tail
- ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2684:/ compute");
- /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V52*/ meltfptr[51] =
- /*_.PAIR_TAIL__V51*/ meltfptr[50];;
- /*_.PAIR_HEAD__V53*/ meltfptr[52] =
+ ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));;
+ MELT_LOCATION ("warmelt-macro.melt:2692:/ compute");
+ /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V54*/ meltfptr[53] =
+ /*_.PAIR_TAIL__V53*/ meltfptr[52];;
+ /*_.PAIR_HEAD__V55*/ meltfptr[54] =
(melt_pair_head
- ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2686:/ compute");
- /*_.DOCV__V21*/ meltfptr[20] = /*_.SETQ___V54*/ meltfptr[53] =
- /*_.PAIR_HEAD__V53*/ meltfptr[52];;
- /*_.PAIR_TAIL__V55*/ meltfptr[54] =
+ ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));;
+ MELT_LOCATION ("warmelt-macro.melt:2694:/ compute");
+ /*_.DOCV__V23*/ meltfptr[22] = /*_.SETQ___V56*/ meltfptr[55] =
+ /*_.PAIR_HEAD__V55*/ meltfptr[54];;
+ /*_.PAIR_TAIL__V57*/ meltfptr[56] =
(melt_pair_tail
- ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2687:/ compute");
- /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V56*/ meltfptr[55] =
- /*_.PAIR_TAIL__V55*/ meltfptr[54];;
- MELT_LOCATION ("warmelt-macro.melt:2683:/ quasiblock");
+ ((melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19])));;
+ MELT_LOCATION ("warmelt-macro.melt:2695:/ compute");
+ /*_.CURPAIR__V20*/ meltfptr[19] = /*_.SETQ___V58*/ meltfptr[57] =
+ /*_.PAIR_TAIL__V57*/ meltfptr[56];;
+ MELT_LOCATION ("warmelt-macro.melt:2691:/ quasiblock");
- /*_.PROGN___V57*/ meltfptr[56] = /*_.SETQ___V56*/ meltfptr[55];;
+ /*_.PROGN___V59*/ meltfptr[58] = /*_.SETQ___V58*/ meltfptr[57];;
/*^compute */
- /*_.IF___V50*/ meltfptr[49] = /*_.PROGN___V57*/ meltfptr[56];;
+ /*_.IF___V52*/ meltfptr[51] = /*_.PROGN___V59*/ meltfptr[58];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2682:/ clear");
- /*clear *//*_.PAIR_TAIL__V51*/ meltfptr[50] = 0;
- /*^clear */
- /*clear *//*_.SETQ___V52*/ meltfptr[51] = 0;
- /*^clear */
- /*clear *//*_.PAIR_HEAD__V53*/ meltfptr[52] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2690:/ clear");
+ /*clear *//*_.PAIR_TAIL__V53*/ meltfptr[52] = 0;
/*^clear */
/*clear *//*_.SETQ___V54*/ meltfptr[53] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V55*/ meltfptr[54] = 0;
+ /*clear *//*_.PAIR_HEAD__V55*/ meltfptr[54] = 0;
/*^clear */
/*clear *//*_.SETQ___V56*/ meltfptr[55] = 0;
/*^clear */
- /*clear *//*_.PROGN___V57*/ meltfptr[56] = 0;
+ /*clear *//*_.PAIR_TAIL__V57*/ meltfptr[56] = 0;
+ /*^clear */
+ /*clear *//*_.SETQ___V58*/ meltfptr[57] = 0;
+ /*^clear */
+ /*clear *//*_.PROGN___V59*/ meltfptr[58] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V50*/ meltfptr[49] = NULL;;
+ /*_.IF___V52*/ meltfptr[51] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2690:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2698:/ quasiblock");
/*^apply */
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
- argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NEWENV__V20*/ meltfptr[19];
+ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NEWENV__V22*/ meltfptr[21];
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.BODYTUP__V59*/ meltfptr[51] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.BODYTUP__V61*/ meltfptr[53] =
melt_apply ((meltclosure_ptr_t)
(( /*!EXPAND_PAIRLIST_AS_TUPLE */ meltfrout->tabval[14])),
- (melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ (melt_ptr_t) ( /*_.CURPAIR__V20*/ meltfptr[19]),
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab, "", (union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2692:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2700:/ quasiblock");
/*^rawallocobj */
@@ -5791,7 +5861,7 @@ lab_endgetargs:;
(melt_ptr_t) (( /*!CLASS_SOURCE_DEFUN */
meltfrout->tabval[15])), (6),
"CLASS_SOURCE_DEFUN");
- /*_.INST__V61*/ meltfptr[53] =
+ /*_.INST__V63*/ meltfptr[55] =
newobj;
};
;
@@ -5799,53 +5869,53 @@ lab_endgetargs:;
/*putslot */
melt_assertmsg ("putslot checkobj @LOCA_LOCATION",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V61*/ meltfptr[53])) ==
+ ( /*_.INST__V63*/ meltfptr[55])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V61*/ meltfptr[53]), (1),
- ( /*_.LOC__V16*/ meltfptr[15]), "LOCA_LOCATION");
+ melt_putfield_object (( /*_.INST__V63*/ meltfptr[55]), (1),
+ ( /*_.LOC__V18*/ meltfptr[17]), "LOCA_LOCATION");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SDEF_NAME",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V61*/ meltfptr[53])) ==
+ ( /*_.INST__V63*/ meltfptr[55])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V61*/ meltfptr[53]), (2),
- ( /*_.SYMB__V19*/ meltfptr[18]), "SDEF_NAME");
+ melt_putfield_object (( /*_.INST__V63*/ meltfptr[55]), (2),
+ ( /*_.SYMB__V21*/ meltfptr[20]), "SDEF_NAME");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SDEF_DOC",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V61*/ meltfptr[53])) ==
+ ( /*_.INST__V63*/ meltfptr[55])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V61*/ meltfptr[53]), (3),
- ( /*_.DOCV__V21*/ meltfptr[20]), "SDEF_DOC");
+ melt_putfield_object (( /*_.INST__V63*/ meltfptr[55]), (3),
+ ( /*_.DOCV__V23*/ meltfptr[22]), "SDEF_DOC");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SFORMAL_ARGS",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V61*/ meltfptr[53])) ==
+ ( /*_.INST__V63*/ meltfptr[55])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V61*/ meltfptr[53]), (4),
- ( /*_.BTUP__V30*/ meltfptr[29]), "SFORMAL_ARGS");
+ melt_putfield_object (( /*_.INST__V63*/ meltfptr[55]), (4),
+ ( /*_.BTUP__V32*/ meltfptr[31]), "SFORMAL_ARGS");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SFUN_BODY",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V61*/ meltfptr[53])) ==
+ ( /*_.INST__V63*/ meltfptr[55])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V61*/ meltfptr[53]), (5),
- ( /*_.BODYTUP__V59*/ meltfptr[51]), "SFUN_BODY");
+ melt_putfield_object (( /*_.INST__V63*/ meltfptr[55]), (5),
+ ( /*_.BODYTUP__V61*/ meltfptr[53]), "SFUN_BODY");
;
- /*_.SDEFUN__V60*/ meltfptr[52] = /*_.INST__V61*/ meltfptr[53];;
- MELT_LOCATION ("warmelt-macro.melt:2700:/ cond");
+ /*_.SDEFUN__V62*/ meltfptr[54] = /*_.INST__V63*/ meltfptr[55];;
+ MELT_LOCATION ("warmelt-macro.melt:2708:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
- ( /*_.FBIND__V22*/ meltfptr[21]),
+ ( /*_.FBIND__V24*/ meltfptr[23]),
(melt_ptr_t) (( /*!CLASS_FUNCTION_BINDING */ meltfrout->tabval[4])))
) /*then */
{
@@ -5858,89 +5928,89 @@ lab_endgetargs:;
/*putslot */
melt_assertmsg ("putslot checkobj @FUBIND_DEFUN",
melt_magic_discr ((melt_ptr_t)
- ( /*_.FBIND__V22*/ meltfptr[21]))
+ ( /*_.FBIND__V24*/ meltfptr[23]))
== MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.FBIND__V22*/ meltfptr[21]), (2),
- ( /*_.SDEFUN__V60*/ meltfptr[52]),
+ melt_putfield_object (( /*_.FBIND__V24*/ meltfptr[23]), (2),
+ ( /*_.SDEFUN__V62*/ meltfptr[54]),
"FUBIND_DEFUN");
;
/*^touch */
- meltgc_touch ( /*_.FBIND__V22*/ meltfptr[21]);
+ meltgc_touch ( /*_.FBIND__V24*/ meltfptr[23]);
;
/*epilog */
}
;
} /*noelse */
;
- /*_.LET___V58*/ meltfptr[50] = /*_.SDEFUN__V60*/ meltfptr[52];;
+ /*_.LET___V60*/ meltfptr[52] = /*_.SDEFUN__V62*/ meltfptr[54];;
- MELT_LOCATION ("warmelt-macro.melt:2690:/ clear");
- /*clear *//*_.BODYTUP__V59*/ meltfptr[51] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2698:/ clear");
+ /*clear *//*_.BODYTUP__V61*/ meltfptr[53] = 0;
/*^clear */
- /*clear *//*_.SDEFUN__V60*/ meltfptr[52] = 0;
- /*_.LET___V28*/ meltfptr[27] = /*_.LET___V58*/ meltfptr[50];;
+ /*clear *//*_.SDEFUN__V62*/ meltfptr[54] = 0;
+ /*_.LET___V30*/ meltfptr[29] = /*_.LET___V60*/ meltfptr[52];;
- MELT_LOCATION ("warmelt-macro.melt:2663:/ clear");
- /*clear *//*_.CURPAIRHEAD__V29*/ meltfptr[28] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2671:/ clear");
+ /*clear *//*_.CURPAIRHEAD__V31*/ meltfptr[30] = 0;
/*^clear */
- /*clear *//*_#NULL__L6*/ meltfnum[0] = 0;
+ /*clear *//*_#NULL__L7*/ meltfnum[0] = 0;
/*^clear */
- /*clear *//*_.BTUP__V30*/ meltfptr[29] = 0;
+ /*clear *//*_.BTUP__V32*/ meltfptr[31] = 0;
/*^clear */
- /*clear *//*_#IS_MULTIPLE__L10*/ meltfnum[8] = 0;
+ /*clear *//*_#IS_MULTIPLE__L11*/ meltfnum[9] = 0;
/*^clear */
- /*clear *//*_#NOT__L11*/ meltfnum[7] = 0;
+ /*clear *//*_#NOT__L12*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_.LAMBDA___V44*/ meltfptr[33] = 0;
+ /*clear *//*_.LAMBDA___V46*/ meltfptr[35] = 0;
/*^clear */
- /*clear *//*_.MULTIPLE_EVERY__V46*/ meltfptr[30] = 0;
+ /*clear *//*_.MULTIPLE_EVERY__V48*/ meltfptr[32] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V47*/ meltfptr[36] = 0;
+ /*clear *//*_.PAIR_TAIL__V49*/ meltfptr[38] = 0;
/*^clear */
- /*clear *//*_.SETQ___V48*/ meltfptr[47] = 0;
+ /*clear *//*_.SETQ___V50*/ meltfptr[49] = 0;
/*^clear */
- /*clear *//*_.PAIR_HEAD__V49*/ meltfptr[48] = 0;
+ /*clear *//*_.PAIR_HEAD__V51*/ meltfptr[50] = 0;
/*^clear */
- /*clear *//*_#__L14*/ meltfnum[12] = 0;
+ /*clear *//*_#__L15*/ meltfnum[13] = 0;
/*^clear */
- /*clear *//*_.IF___V50*/ meltfptr[49] = 0;
+ /*clear *//*_.IF___V52*/ meltfptr[51] = 0;
/*^clear */
- /*clear *//*_.LET___V58*/ meltfptr[50] = 0;
- /*_.LET___V14*/ meltfptr[10] = /*_.LET___V28*/ meltfptr[27];;
+ /*clear *//*_.LET___V60*/ meltfptr[52] = 0;
+ /*_.LET___V16*/ meltfptr[12] = /*_.LET___V30*/ meltfptr[29];;
- MELT_LOCATION ("warmelt-macro.melt:2645:/ clear");
- /*clear *//*_.CONT__V15*/ meltfptr[11] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2653:/ clear");
+ /*clear *//*_.CONT__V17*/ meltfptr[13] = 0;
/*^clear */
- /*clear *//*_.LOC__V16*/ meltfptr[15] = 0;
+ /*clear *//*_.LOC__V18*/ meltfptr[17] = 0;
/*^clear */
- /*clear *//*_.LIST_FIRST__V17*/ meltfptr[16] = 0;
+ /*clear *//*_.LIST_FIRST__V19*/ meltfptr[18] = 0;
/*^clear */
- /*clear *//*_.CURPAIR__V18*/ meltfptr[17] = 0;
+ /*clear *//*_.CURPAIR__V20*/ meltfptr[19] = 0;
/*^clear */
- /*clear *//*_.SYMB__V19*/ meltfptr[18] = 0;
+ /*clear *//*_.SYMB__V21*/ meltfptr[20] = 0;
/*^clear */
- /*clear *//*_.NEWENV__V20*/ meltfptr[19] = 0;
+ /*clear *//*_.NEWENV__V22*/ meltfptr[21] = 0;
/*^clear */
- /*clear *//*_.DOCV__V21*/ meltfptr[20] = 0;
+ /*clear *//*_.DOCV__V23*/ meltfptr[22] = 0;
/*^clear */
- /*clear *//*_.FBIND__V22*/ meltfptr[21] = 0;
+ /*clear *//*_.FBIND__V24*/ meltfptr[23] = 0;
/*^clear */
- /*clear *//*_#IS_NOT_A__L5*/ meltfnum[3] = 0;
+ /*clear *//*_#IS_NOT_A__L6*/ meltfnum[4] = 0;
/*^clear */
- /*clear *//*_.WARN_IF_REDEFINED__V24*/ meltfptr[23] = 0;
+ /*clear *//*_.WARN_IF_REDEFINED__V26*/ meltfptr[25] = 0;
/*^clear */
- /*clear *//*_.PUT_ENV__V25*/ meltfptr[24] = 0;
+ /*clear *//*_.PUT_ENV__V27*/ meltfptr[26] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V26*/ meltfptr[25] = 0;
+ /*clear *//*_.PAIR_TAIL__V28*/ meltfptr[27] = 0;
/*^clear */
- /*clear *//*_.SETQ___V27*/ meltfptr[26] = 0;
+ /*clear *//*_.SETQ___V29*/ meltfptr[28] = 0;
/*^clear */
- /*clear *//*_.LET___V28*/ meltfptr[27] = 0;
- MELT_LOCATION ("warmelt-macro.melt:2641:/ quasiblock");
+ /*clear *//*_.LET___V30*/ meltfptr[29] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2648:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];;
- MELT_LOCATION ("warmelt-macro.melt:2641:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[12];;
+ MELT_LOCATION ("warmelt-macro.melt:2648:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -5952,7 +6022,9 @@ lab_endgetargs:;
/*^clear */
/*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0;
/*^clear */
- /*clear *//*_.LET___V14*/ meltfptr[10] = 0;
+ /*clear *//*_.IFCPP___V12*/ meltfptr[10] = 0;
+ /*^clear */
+ /*clear *//*_.LET___V16*/ meltfptr[12] = 0;
}
;
@@ -6030,7 +6102,7 @@ meltrout_40_warmelt_macro_LAMBDA___9__ (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:2679:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:2687:/ getarg");
/*_.FB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -6059,7 +6131,7 @@ lab_endgetargs:;
/*_.RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];;
- MELT_LOCATION ("warmelt-macro.melt:2679:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2687:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -6143,7 +6215,7 @@ meltrout_41_warmelt_macro_MEXPAND_DEFINE (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:2723:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:2731:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -6184,7 +6256,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2724:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2732:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -6193,7 +6265,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:2724:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2732:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -6201,7 +6273,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:2724:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:2732:/ cond.else");
/*^block */
/*anyblock */
@@ -6215,7 +6287,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (2724) ? (2724) : __LINE__, __FUNCTION__);
+ (2732) ? (2732) : __LINE__, __FUNCTION__);
;
}
;
@@ -6230,7 +6302,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2724:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2732:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -6243,7 +6315,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2725:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2733:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -6252,7 +6324,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:2725:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2733:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -6260,7 +6332,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:2725:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:2733:/ cond.else");
/*^block */
/*anyblock */
@@ -6274,7 +6346,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (2725) ? (2725) : __LINE__, __FUNCTION__);
+ (2733) ? (2733) : __LINE__, __FUNCTION__);
;
}
;
@@ -6289,7 +6361,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2725:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2733:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -6300,7 +6372,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:2726:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2734:/ quasiblock");
/*^getslot */
@@ -6311,7 +6383,7 @@ lab_endgetargs:;
meltfptr[10] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:2727:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:2735:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
@@ -6331,7 +6403,7 @@ lab_endgetargs:;
(melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2731:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2739:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -6354,7 +6426,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2731:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2739:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -6364,7 +6436,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2731:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2739:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -6374,7 +6446,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2731;
+ argtab[2].meltbp_long = 2739;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_define start sexpr";
/*^apply.arg */
@@ -6394,7 +6466,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2731:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2739:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0;
@@ -6407,7 +6479,7 @@ lab_endgetargs:;
/*_.IF___V17*/ meltfptr[16] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2731:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2739:/ quasiblock");
/*_.PROGN___V19*/ meltfptr[17] = /*_.IF___V17*/ meltfptr[16];;
@@ -6416,7 +6488,7 @@ lab_endgetargs:;
/*_.IFCPP___V16*/ meltfptr[15] = /*_.PROGN___V19*/ meltfptr[17];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2731:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2739:/ clear");
/*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V17*/ meltfptr[16] = 0;
@@ -6435,7 +6507,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.CURELEM__V15*/ meltfptr[14]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
tabval[3])));;
- MELT_LOCATION ("warmelt-macro.melt:2735:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2743:/ cond");
/*cond */ if ( /*_#IS_A__L5*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -6443,14 +6515,14 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2736:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2744:/ quasiblock");
/*_.DEFNAME__V22*/ meltfptr[21] = /*_.CURELEM__V15*/ meltfptr[14];;
/*^compute */
/*_.DEFDOC__V23*/ meltfptr[22] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:2739:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2747:/ quasiblock");
/*^rawallocobj */
@@ -6482,7 +6554,7 @@ lab_endgetargs:;
(( /*nil */ NULL)), "DEFVALBIND_DEFINE");
;
/*_.DEFVALBIND__V24*/ meltfptr[23] = /*_.INST__V25*/ meltfptr[24];;
- MELT_LOCATION ("warmelt-macro.melt:2744:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2752:/ apply");
/*apply */
{
union meltparam_un argtab[2];
@@ -6501,7 +6573,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2745:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2753:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -6520,7 +6592,7 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V28*/ meltfptr[27] =
(melt_pair_tail
((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:2746:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2754:/ compute");
/*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V29*/ meltfptr[28] =
/*_.PAIR_TAIL__V28*/ meltfptr[27];;
/*_.PAIR_HEAD__V30*/ meltfptr[29] =
@@ -6531,7 +6603,7 @@ lab_endgetargs:;
/*_#__L6*/ meltfnum[0] =
(( /*_.PAIR_HEAD__V30*/ meltfptr[29]) ==
(( /*!konst_7_DOC */ meltfrout->tabval[7])));;
- MELT_LOCATION ("warmelt-macro.melt:2748:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2756:/ cond");
/*cond */ if ( /*_#__L6*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -6542,25 +6614,25 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V32*/ meltfptr[31] =
(melt_pair_tail
((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:2750:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2758:/ compute");
/*_.CURPAIR__V14*/ meltfptr[13] =
/*_.SETQ___V33*/ meltfptr[32] =
/*_.PAIR_TAIL__V32*/ meltfptr[31];;
/*_.PAIR_HEAD__V34*/ meltfptr[33] =
(melt_pair_head
((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:2751:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2759:/ compute");
/*_.DEFDOC__V23*/ meltfptr[22] =
/*_.SETQ___V35*/ meltfptr[34] =
/*_.PAIR_HEAD__V34*/ meltfptr[33];;
/*_.PAIR_TAIL__V36*/ meltfptr[35] =
(melt_pair_tail
((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:2752:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2760:/ compute");
/*_.CURPAIR__V14*/ meltfptr[13] =
/*_.SETQ___V37*/ meltfptr[36] =
/*_.PAIR_TAIL__V36*/ meltfptr[35];;
- MELT_LOCATION ("warmelt-macro.melt:2749:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2757:/ quasiblock");
/*_.PROGN___V38*/ meltfptr[37] =
@@ -6570,7 +6642,7 @@ lab_endgetargs:;
/*_.IF___V31*/ meltfptr[30] = /*_.PROGN___V38*/ meltfptr[37];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2748:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2756:/ clear");
/*clear *//*_.PAIR_TAIL__V32*/ meltfptr[31] = 0;
/*^clear */
/*clear *//*_.SETQ___V33*/ meltfptr[32] = 0;
@@ -6593,10 +6665,10 @@ lab_endgetargs:;
/*_.IF___V31*/ meltfptr[30] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2754:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2762:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:2755:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2763:/ apply");
/*apply */
{
union meltparam_un argtab[2];
@@ -6616,7 +6688,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2756:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2764:/ quasiblock");
/*^rawallocobj */
@@ -6672,7 +6744,7 @@ lab_endgetargs:;
"SDEFINE_BODY");
;
/*_.SDEFINE__V41*/ meltfptr[33] = /*_.INST__V42*/ meltfptr[34];;
- MELT_LOCATION ("warmelt-macro.melt:2763:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2771:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -6708,12 +6780,12 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V43*/ meltfptr[35] =
(melt_pair_tail
((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:2764:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2772:/ compute");
/*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V44*/ meltfptr[36] =
/*_.PAIR_TAIL__V43*/ meltfptr[35];;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2765:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2773:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -6736,7 +6808,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2765:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2773:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then */
{
/*^cond.then */
@@ -6746,7 +6818,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2765:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2773:/ apply");
/*apply */
{
union meltparam_un argtab[7];
@@ -6757,7 +6829,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2765;
+ argtab[2].meltbp_long = 2773;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_define simple value bodytup=";
@@ -6785,7 +6857,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2765:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2773:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 0;
@@ -6798,7 +6870,7 @@ lab_endgetargs:;
/*_.IF___V46*/ meltfptr[45] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2765:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2773:/ quasiblock");
/*_.PROGN___V48*/ meltfptr[46] = /*_.IF___V46*/ meltfptr[45];;
@@ -6807,7 +6879,7 @@ lab_endgetargs:;
/*_.IFCPP___V45*/ meltfptr[37] = /*_.PROGN___V48*/ meltfptr[46];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2765:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2773:/ clear");
/*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0;
/*^clear */
/*clear *//*_.IF___V46*/ meltfptr[45] = 0;
@@ -6820,16 +6892,16 @@ lab_endgetargs:;
/*_.IFCPP___V45*/ meltfptr[37] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:2766:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2774:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.SDEFINE__V41*/ meltfptr[33];;
- MELT_LOCATION ("warmelt-macro.melt:2766:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2774:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*_.LET___V39*/ meltfptr[31] = /*_.RETURN___V49*/ meltfptr[45];;
- MELT_LOCATION ("warmelt-macro.melt:2754:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2762:/ clear");
/*clear *//*_.BODYTUP__V40*/ meltfptr[32] = 0;
/*^clear */
/*clear *//*_.SDEFINE__V41*/ meltfptr[33] = 0;
@@ -6843,7 +6915,7 @@ lab_endgetargs:;
/*clear *//*_.RETURN___V49*/ meltfptr[45] = 0;
/*_.LET___V21*/ meltfptr[17] = /*_.LET___V39*/ meltfptr[31];;
- MELT_LOCATION ("warmelt-macro.melt:2736:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2744:/ clear");
/*clear *//*_.DEFNAME__V22*/ meltfptr[21] = 0;
/*^clear */
/*clear *//*_.DEFDOC__V23*/ meltfptr[22] = 0;
@@ -6868,7 +6940,7 @@ lab_endgetargs:;
/*_.IFELSE___V20*/ meltfptr[16] = /*_.LET___V21*/ meltfptr[17];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2735:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2743:/ clear");
/*clear *//*_.LET___V21*/ meltfptr[17] = 0;
}
;
@@ -6885,7 +6957,7 @@ lab_endgetargs:;
( /*_.CURELEM__V15*/ meltfptr[14]),
(melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->
tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:2770:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2778:/ cond");
/*cond */ if ( /*_#IS_A__L9*/ meltfnum[7]) /*then */
{
/*^cond.then */
@@ -6893,7 +6965,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2771:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2779:/ quasiblock");
/*^getslot */
@@ -6904,7 +6976,7 @@ lab_endgetargs:;
meltfptr[33] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:2772:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:2780:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURELEM__V15*/ meltfptr[14]), 2, "SEXP_CONTENTS");
@@ -6930,7 +7002,7 @@ lab_endgetargs:;
/*_.CURSUBPAIR__V57*/ meltfptr[21] =
(melt_pair_tail
((melt_ptr_t) ( /*_.LIST_FIRST__V56*/ meltfptr[45])));;
- MELT_LOCATION ("warmelt-macro.melt:2775:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2783:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -6950,7 +7022,7 @@ lab_endgetargs:;
}
;
/*_.DEFDOC__V59*/ meltfptr[23] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:2777:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2785:/ quasiblock");
/*^rawallocobj */
@@ -6993,7 +7065,7 @@ lab_endgetargs:;
(melt_ptr_t) (( /*!CLASS_SYMBOL */
meltfrout->
tabval[3])));;
- MELT_LOCATION ("warmelt-macro.melt:2783:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2791:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L10*/ meltfnum[6]) /*then */
{
/*^cond.then */
@@ -7003,21 +7075,21 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:2785:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2793:/ locexp");
melt_error_str ((melt_ptr_t)
( /*_.LOC__V12*/ meltfptr[11]),
("Bad function name, expecting (DEFINE (name formals...) ..."),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2787:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2795:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:2787:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2795:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:2784:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2792:/ quasiblock");
/*_.PROGN___V64*/ meltfptr[29] =
@@ -7028,7 +7100,7 @@ lab_endgetargs:;
/*_.PROGN___V64*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2783:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2791:/ clear");
/*clear *//*_.RETURN___V63*/ meltfptr[28] = 0;
/*^clear */
/*clear *//*_.PROGN___V64*/ meltfptr[29] = 0;
@@ -7041,7 +7113,7 @@ lab_endgetargs:;
/*_.IF___V62*/ meltfptr[27] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2788:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2796:/ apply");
/*apply */
{
union meltparam_un argtab[2];
@@ -7062,7 +7134,7 @@ lab_endgetargs:;
"", (union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2789:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2797:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -7086,7 +7158,7 @@ lab_endgetargs:;
/*_#__L11*/ meltfnum[0] =
(( /*_.PAIR_HEAD__V67*/ meltfptr[17]) ==
(( /*!konst_7_DOC */ meltfrout->tabval[7])));;
- MELT_LOCATION ("warmelt-macro.melt:2791:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2799:/ cond");
/*cond */ if ( /*_#__L11*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -7097,25 +7169,25 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V69*/ meltfptr[29] =
(melt_pair_tail
((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:2793:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2801:/ compute");
/*_.CURPAIR__V14*/ meltfptr[13] =
/*_.SETQ___V70*/ meltfptr[69] =
/*_.PAIR_TAIL__V69*/ meltfptr[29];;
/*_.PAIR_HEAD__V71*/ meltfptr[70] =
(melt_pair_head
((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:2794:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2802:/ compute");
/*_.DEFDOC__V59*/ meltfptr[23] =
/*_.SETQ___V72*/ meltfptr[71] =
/*_.PAIR_HEAD__V71*/ meltfptr[70];;
/*_.PAIR_TAIL__V73*/ meltfptr[72] =
(melt_pair_tail
((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:2795:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2803:/ compute");
/*_.CURPAIR__V14*/ meltfptr[13] =
/*_.SETQ___V74*/ meltfptr[73] =
/*_.PAIR_TAIL__V73*/ meltfptr[72];;
- MELT_LOCATION ("warmelt-macro.melt:2792:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2800:/ quasiblock");
/*_.PROGN___V75*/ meltfptr[74] =
@@ -7126,7 +7198,7 @@ lab_endgetargs:;
/*_.PROGN___V75*/ meltfptr[74];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2791:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2799:/ clear");
/*clear *//*_.PAIR_TAIL__V69*/ meltfptr[29] = 0;
/*^clear */
/*clear *//*_.SETQ___V70*/ meltfptr[69] = 0;
@@ -7149,10 +7221,10 @@ lab_endgetargs:;
/*_.IF___V68*/ meltfptr[28] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2797:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2805:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:2798:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2806:/ apply");
/*apply */
{
/*_.NEWENV__V77*/ meltfptr[69] =
@@ -7163,7 +7235,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2800:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2808:/ quasiblock");
/*^rawallocobj */
@@ -7237,7 +7309,7 @@ lab_endgetargs:;
/*_.FORMAL0BIND__V80*/ meltfptr[72] =
(melt_multiple_nth
((melt_ptr_t) ( /*_.FORMALTUP__V58*/ meltfptr[22]), (0)));;
- MELT_LOCATION ("warmelt-macro.melt:2810:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2818:/ cond");
/*cond */ if ( /*_.FORMAL0BIND__V80*/ meltfptr[72]) /*then */
{
/*^cond.then */
@@ -7245,7 +7317,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2811:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2819:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -7274,7 +7346,7 @@ lab_endgetargs:;
/*_#__L12*/ meltfnum[11] =
(( /*_.FBIND_TYPE__V82*/ meltfptr[74]) !=
(( /*!CTYPE_VALUE */ meltfrout->tabval[17])));;
- MELT_LOCATION ("warmelt-macro.melt:2811:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2819:/ cond");
/*cond */ if ( /*_#__L12*/ meltfnum[11]) /*then */
{
/*^cond.then */
@@ -7285,7 +7357,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
MELT_LOCATION
- ("warmelt-macro.melt:2813:/ cppif.then");
+ ("warmelt-macro.melt:2821:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -7310,7 +7382,7 @@ lab_endgetargs:;
#endif /*MELT_HAVE_DEBUG */
;;
MELT_LOCATION
- ("warmelt-macro.melt:2813:/ cond");
+ ("warmelt-macro.melt:2821:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then */
{
/*^cond.then */
@@ -7322,7 +7394,7 @@ lab_endgetargs:;
=
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:2813:/ apply");
+ ("warmelt-macro.melt:2821:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -7335,7 +7407,7 @@ lab_endgetargs:;
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2813;
+ argtab[2].meltbp_long = 2821;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_define function bad formal0bind=";
@@ -7363,7 +7435,7 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:2813:/ clear");
+ ("warmelt-macro.melt:2821:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L14*/
meltfnum[13] = 0;
/*^clear */
@@ -7379,7 +7451,7 @@ lab_endgetargs:;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:2813:/ quasiblock");
+ ("warmelt-macro.melt:2821:/ quasiblock");
/*_.PROGN___V87*/ meltfptr[85] =
@@ -7391,7 +7463,7 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:2813:/ clear");
+ ("warmelt-macro.melt:2821:/ clear");
/*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[12]
= 0;
/*^clear */
@@ -7405,7 +7477,7 @@ lab_endgetargs:;
/*_.IFCPP___V84*/ meltfptr[83] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:2815:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2823:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -7432,7 +7504,7 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:2814:/ locexp");
+ ("warmelt-macro.melt:2822:/ locexp");
melt_error_str ((melt_ptr_t)
( /*_.FLOC__V52*/ meltfptr[33]),
("invalid first formal argument in DEFINE-d function, expecting a :value"),
@@ -7440,16 +7512,16 @@ lab_endgetargs:;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:2816:/ quasiblock");
+ ("warmelt-macro.melt:2824:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
MELT_LOCATION
- ("warmelt-macro.melt:2816:/ finalreturn");
+ ("warmelt-macro.melt:2824:/ finalreturn");
;
/*finalret */ goto labend_rout;
MELT_LOCATION
- ("warmelt-macro.melt:2812:/ quasiblock");
+ ("warmelt-macro.melt:2820:/ quasiblock");
/*_.PROGN___V90*/ meltfptr[89] =
@@ -7460,7 +7532,7 @@ lab_endgetargs:;
/*_.PROGN___V90*/ meltfptr[89];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2811:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2819:/ clear");
/*clear *//*_.IFCPP___V84*/ meltfptr[83] = 0;
/*^clear */
/*clear *//*_.NAMED_NAME__V88*/ meltfptr[84] = 0;
@@ -7483,7 +7555,7 @@ lab_endgetargs:;
/*_.IF___V83*/ meltfptr[82];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2810:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2818:/ clear");
/*clear *//*_.FBIND_TYPE__V82*/ meltfptr[74] = 0;
/*^clear */
/*clear *//*_#__L12*/ meltfnum[11] = 0;
@@ -7498,7 +7570,7 @@ lab_endgetargs:;
/*_.IF___V81*/ meltfptr[73] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2818:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2826:/ quasiblock");
/*^newclosure */
@@ -7528,7 +7600,7 @@ lab_endgetargs:;
;
/*_.LAMBDA___V91*/ meltfptr[83] =
/*_.LAMBDA___V92*/ meltfptr[84];;
- MELT_LOCATION ("warmelt-macro.melt:2818:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2826:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -7546,7 +7618,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2819:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2827:/ quasiblock");
/*^apply */
@@ -7570,7 +7642,7 @@ lab_endgetargs:;
"", (union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2821:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2829:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -7606,7 +7678,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2822:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2830:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -7629,7 +7701,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2822:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2830:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then */
{
/*^cond.then */
@@ -7639,7 +7711,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L16*/ meltfnum[12] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2822:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2830:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -7650,7 +7722,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2822;
+ argtab[2].meltbp_long = 2830;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_define function return sdefun";
@@ -7672,7 +7744,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V98*/ meltfptr[97];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2822:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2830:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[12] =
0;
/*^clear */
@@ -7686,7 +7758,7 @@ lab_endgetargs:;
/*_.IF___V97*/ meltfptr[96] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2822:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2830:/ quasiblock");
/*_.PROGN___V99*/ meltfptr[97] =
@@ -7697,7 +7769,7 @@ lab_endgetargs:;
/*_.PROGN___V99*/ meltfptr[97];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2822:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2830:/ clear");
/*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[13] = 0;
/*^clear */
/*clear *//*_.IF___V97*/ meltfptr[96] = 0;
@@ -7710,18 +7782,18 @@ lab_endgetargs:;
/*_.IFCPP___V96*/ meltfptr[82] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:2823:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2831:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] =
/*_.SDEFUN__V78*/ meltfptr[70];;
- MELT_LOCATION ("warmelt-macro.melt:2823:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2831:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*_.LET___V94*/ meltfptr[89] =
/*_.RETURN___V100*/ meltfptr[96];;
- MELT_LOCATION ("warmelt-macro.melt:2819:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2827:/ clear");
/*clear *//*_.BODYTUP__V95*/ meltfptr[74] = 0;
/*^clear */
/*clear *//*_.IFCPP___V96*/ meltfptr[82] = 0;
@@ -7729,7 +7801,7 @@ lab_endgetargs:;
/*clear *//*_.RETURN___V100*/ meltfptr[96] = 0;
/*_.LET___V76*/ meltfptr[29] = /*_.LET___V94*/ meltfptr[89];;
- MELT_LOCATION ("warmelt-macro.melt:2797:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2805:/ clear");
/*clear *//*_.NEWENV__V77*/ meltfptr[69] = 0;
/*^clear */
/*clear *//*_.SDEFUN__V78*/ meltfptr[70] = 0;
@@ -7745,7 +7817,7 @@ lab_endgetargs:;
/*clear *//*_.LET___V94*/ meltfptr[89] = 0;
/*_.LET___V51*/ meltfptr[32] = /*_.LET___V76*/ meltfptr[29];;
- MELT_LOCATION ("warmelt-macro.melt:2771:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2779:/ clear");
/*clear *//*_.FLOC__V52*/ meltfptr[33] = 0;
/*^clear */
/*clear *//*_.FCONT__V53*/ meltfptr[35] = 0;
@@ -7783,7 +7855,7 @@ lab_endgetargs:;
/*_.LET___V51*/ meltfptr[32];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2770:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2778:/ clear");
/*clear *//*_.LET___V51*/ meltfptr[32] = 0;
}
;
@@ -7797,20 +7869,20 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:2828:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2836:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]),
("Expects <name> or (<name> <formals) after DEFINE"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2829:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2837:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:2829:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2837:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:2827:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2835:/ quasiblock");
/*_.PROGN___V102*/ meltfptr[74] =
@@ -7821,7 +7893,7 @@ lab_endgetargs:;
/*_.PROGN___V102*/ meltfptr[74];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2770:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2778:/ clear");
/*clear *//*_.RETURN___V101*/ meltfptr[97] = 0;
/*^clear */
/*clear *//*_.PROGN___V102*/ meltfptr[74] = 0;
@@ -7832,7 +7904,7 @@ lab_endgetargs:;
/*_.IFELSE___V20*/ meltfptr[16] = /*_.IFELSE___V50*/ meltfptr[46];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2735:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2743:/ clear");
/*clear *//*_#IS_A__L9*/ meltfnum[7] = 0;
/*^clear */
/*clear *//*_.IFELSE___V50*/ meltfptr[46] = 0;
@@ -7842,7 +7914,7 @@ lab_endgetargs:;
;
/*_.LET___V10*/ meltfptr[8] = /*_.IFELSE___V20*/ meltfptr[16];;
- MELT_LOCATION ("warmelt-macro.melt:2726:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2734:/ clear");
/*clear *//*_.CONT__V11*/ meltfptr[10] = 0;
/*^clear */
/*clear *//*_.LOC__V12*/ meltfptr[11] = 0;
@@ -7858,11 +7930,11 @@ lab_endgetargs:;
/*clear *//*_#IS_A__L5*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.IFELSE___V20*/ meltfptr[16] = 0;
- MELT_LOCATION ("warmelt-macro.melt:2723:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2731:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];;
- MELT_LOCATION ("warmelt-macro.melt:2723:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2731:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -7950,7 +8022,7 @@ meltrout_42_warmelt_macro_LAMBDA___10__ (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:2818:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:2826:/ getarg");
/*_.FB__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -7979,7 +8051,7 @@ lab_endgetargs:;
/*_.RETVAL___V1*/ meltfptr[0] = /*_.PUT_ENV__V3*/ meltfptr[2];;
- MELT_LOCATION ("warmelt-macro.melt:2818:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2826:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -8035,8 +8107,8 @@ meltrout_43_warmelt_macro_SCAN_DEFCLASS (meltclosure_ptr_t meltclosp_,
struct meltclosure_st *mcfr_clos;
struct excepth_melt_st *mcfr_exh;
struct melt_callframe_st *mcfr_prev;
-#define MELTFRAM_NBVARPTR 128
- void *mcfr_varptr[128];
+#define MELTFRAM_NBVARPTR 129
+ void *mcfr_varptr[129];
#define MELTFRAM_NBVARNUM 51
long mcfr_varnum[51];
/*others*/
@@ -8049,13 +8121,13 @@ meltrout_43_warmelt_macro_SCAN_DEFCLASS (meltclosure_ptr_t meltclosp_,
int ix = 0;
meltframptr_ = (void *) meltfirstargp_;
gt_ggc_mx_melt_un (meltframptr_->mcfr_clos);
- for (ix = 0; ix < 128; ix++)
+ for (ix = 0; ix < 129; ix++)
if (meltframptr_->mcfr_varptr[ix])
gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]);
return NULL;
} /*end markggc */ ;
memset (&meltfram__, 0, sizeof (meltfram__));
- meltfram__.mcfr_nbvar = 128;
+ meltfram__.mcfr_nbvar = 129;
meltfram__.mcfr_clos = meltclosp_;
meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe;
melt_topframe = (struct melt_callframe_st *) &meltfram__;
@@ -8063,7 +8135,7 @@ meltrout_43_warmelt_macro_SCAN_DEFCLASS (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:2844:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:2852:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -8084,6 +8156,16 @@ meltrout_43_warmelt_macro_SCAN_DEFCLASS (meltclosure_ptr_t meltclosp_,
gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) !=
NULL);
+
+ /*getarg#3 */
+ /*^getarg */
+ if (meltxargdescr_[2] != MELTBPAR_PTR)
+ goto lab_endgetargs;
+ /*_.MODCTX__V5*/ meltfptr[4] =
+ (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL;
+ gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) !=
+ NULL);
+
;
goto lab_endgetargs;
lab_endgetargs:;
@@ -8092,57 +8174,57 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-macro.melt:2845:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2853:/ quasiblock");
- /*_.PREDEF__V6*/ meltfptr[5] = ( /*nil */ NULL);;
+ /*_.PREDEF__V7*/ meltfptr[6] = ( /*nil */ NULL);;
/*^compute */
- /*_.SUPERNAM__V7*/ meltfptr[6] = ( /*nil */ NULL);;
+ /*_.SUPERNAM__V8*/ meltfptr[7] = ( /*nil */ NULL);;
/*^compute */
- /*_.SUPERBIND__V8*/ meltfptr[7] = ( /*nil */ NULL);;
+ /*_.SUPERBIND__V9*/ meltfptr[8] = ( /*nil */ NULL);;
/*^compute */
- /*_.SUPERCLASS__V9*/ meltfptr[8] = ( /*nil */ NULL);;
+ /*_.SUPERCLASS__V10*/ meltfptr[9] = ( /*nil */ NULL);;
/*^compute */
- /*_.FIELDNAMS__V10*/ meltfptr[9] = ( /*nil */ NULL);;
+ /*_.FIELDNAMS__V11*/ meltfptr[10] = ( /*nil */ NULL);;
/*^compute */
- /*_.DOCV__V11*/ meltfptr[10] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:2851:/ getslot");
+ /*_.DOCV__V12*/ meltfptr[11] = ( /*nil */ NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:2859:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
- /*_.CONT__V12*/
- meltfptr[11] = slot;
+ /*_.CONT__V13*/
+ meltfptr[12] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:2852:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:2860:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
- /*_.LOC__V13*/
- meltfptr[12] = slot;
+ /*_.LOC__V14*/
+ meltfptr[13] = slot;
};
;
- /*_.FIELDSLOC__V14*/ meltfptr[13] = ( /*nil */ NULL);;
+ /*_.FIELDSLOC__V15*/ meltfptr[14] = ( /*nil */ NULL);;
/*^compute */
- /*_.LIST_FIRST__V15*/ meltfptr[14] =
- (melt_list_first ((melt_ptr_t) ( /*_.CONT__V12*/ meltfptr[11])));;
+ /*_.LIST_FIRST__V16*/ meltfptr[15] =
+ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V13*/ meltfptr[12])));;
/*^compute */
- /*_.CURPAIR__V16*/ meltfptr[15] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V15*/ meltfptr[14])));;
+ /*_.CURPAIR__V17*/ meltfptr[16] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V16*/ meltfptr[15])));;
/*^compute */
- /*_.SYMB__V17*/ meltfptr[16] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
+ /*_.SYMB__V18*/ meltfptr[17] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2857:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2865:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -8165,7 +8247,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2857:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2865:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -8175,7 +8257,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2857:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2865:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -8185,13 +8267,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2857;
+ argtab[2].meltbp_long = 2865;
/*^apply.arg */
argtab[3].meltbp_cstring = "scan_defclass sexpr";
/*^apply.arg */
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1];
- /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] =
+ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -8201,52 +8283,52 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V19*/ meltfptr[18] =
- /*_.MELT_DEBUG_FUN__V20*/ meltfptr[19];;
+ /*_.IF___V20*/ meltfptr[19] =
+ /*_.MELT_DEBUG_FUN__V21*/ meltfptr[20];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2857:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2865:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V20*/ meltfptr[19] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V21*/ meltfptr[20] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V19*/ meltfptr[18] = NULL;;
+ /*_.IF___V20*/ meltfptr[19] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2857:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2865:/ quasiblock");
- /*_.PROGN___V21*/ meltfptr[19] = /*_.IF___V19*/ meltfptr[18];;
+ /*_.PROGN___V22*/ meltfptr[20] = /*_.IF___V20*/ meltfptr[19];;
/*^compute */
- /*_.IFCPP___V18*/ meltfptr[17] = /*_.PROGN___V21*/ meltfptr[19];;
+ /*_.IFCPP___V19*/ meltfptr[18] = /*_.PROGN___V22*/ meltfptr[20];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2857:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2865:/ clear");
/*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0;
/*^clear */
- /*clear *//*_.IF___V19*/ meltfptr[18] = 0;
+ /*clear *//*_.IF___V20*/ meltfptr[19] = 0;
/*^clear */
- /*clear *//*_.PROGN___V21*/ meltfptr[19] = 0;
+ /*clear *//*_.PROGN___V22*/ meltfptr[20] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V18*/ meltfptr[17] = ( /*nil */ NULL);
+ /*_.IFCPP___V19*/ meltfptr[18] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
/*_#IS_NOT_A__L3*/ meltfnum[1] =
- !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V17*/ meltfptr[16]),
+ !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V18*/ meltfptr[17]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
tabval[1])));;
- MELT_LOCATION ("warmelt-macro.melt:2858:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2866:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L3*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -8256,8 +8338,8 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:2859:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V13*/ meltfptr[12]),
+ MELT_LOCATION ("warmelt-macro.melt:2867:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]),
("missing symbol for DEFCLASS"), (melt_ptr_t) 0);
}
;
@@ -8266,12 +8348,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- /*_.PAIR_TAIL__V22*/ meltfptr[18] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:2860:/ compute");
- /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V23*/ meltfptr[19] =
- /*_.PAIR_TAIL__V22*/ meltfptr[18];;
- MELT_LOCATION ("warmelt-macro.melt:2861:/ loop");
+ /*_.PAIR_TAIL__V23*/ meltfptr[19] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));;
+ MELT_LOCATION ("warmelt-macro.melt:2868:/ compute");
+ /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V24*/ meltfptr[20] =
+ /*_.PAIR_TAIL__V23*/ meltfptr[19];;
+ MELT_LOCATION ("warmelt-macro.melt:2869:/ loop");
/*loop */
{
labloop_SCANLOOP_1:; /*^loopbody */
@@ -8281,13 +8363,13 @@ lab_endgetargs:;
{
/*_#IS_PAIR__L4*/ meltfnum[0] =
- (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15]))
+ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16]))
== MELTOBMAG_PAIR);;
/*^compute */
/*_#NOT__L5*/ meltfnum[4] =
(!( /*_#IS_PAIR__L4*/ meltfnum[0]));;
- MELT_LOCATION ("warmelt-macro.melt:2862:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2870:/ cond");
/*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */
{
/*^cond.then */
@@ -8299,7 +8381,7 @@ lab_endgetargs:;
/*^compute */
- /*_.SCANLOOP__V25*/ meltfptr[24] = NULL;;
+ /*_.SCANLOOP__V26*/ meltfptr[25] = NULL;;
/*^exit */
/*exit */
@@ -8312,22 +8394,22 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:2863:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2871:/ quasiblock");
- /*_.CURKW__V27*/ meltfptr[26] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
+ /*_.CURKW__V28*/ meltfptr[27] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));;
/*^compute */
/*_#IS_A__L6*/ meltfnum[5] =
- melt_is_instance_of ((melt_ptr_t) ( /*_.CURKW__V27*/ meltfptr[26]),
+ melt_is_instance_of ((melt_ptr_t) ( /*_.CURKW__V28*/ meltfptr[27]),
(melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->
tabval[2])));;
/*^compute */
/*_#NOT__L7*/ meltfnum[6] =
(!( /*_#IS_A__L6*/ meltfnum[5]));;
- MELT_LOCATION ("warmelt-macro.melt:2864:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2872:/ cond");
/*cond */ if ( /*_#NOT__L7*/ meltfnum[6]) /*then */
{
/*^cond.then */
@@ -8337,8 +8419,8 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:2865:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V13*/ meltfptr[12]),
+ MELT_LOCATION ("warmelt-macro.melt:2873:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]),
("expecting keyword in DEFCLASS"),
(melt_ptr_t) 0);
}
@@ -8348,27 +8430,27 @@ lab_endgetargs:;
;
} /*noelse */
;
- /*_.PAIR_TAIL__V28*/ meltfptr[27] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:2866:/ compute");
- /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V29*/ meltfptr[28] =
- /*_.PAIR_TAIL__V28*/ meltfptr[27];;
- MELT_LOCATION ("warmelt-macro.melt:2867:/ quasiblock");
+ /*_.PAIR_TAIL__V29*/ meltfptr[28] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));;
+ MELT_LOCATION ("warmelt-macro.melt:2874:/ compute");
+ /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V30*/ meltfptr[29] =
+ /*_.PAIR_TAIL__V29*/ meltfptr[28];;
+ MELT_LOCATION ("warmelt-macro.melt:2875:/ quasiblock");
- /*_.CURVAL__V31*/ meltfptr[30] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
+ /*_.CURVAL__V32*/ meltfptr[31] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));;
/*^compute */
- /*_.PAIR_TAIL__V32*/ meltfptr[31] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:2868:/ compute");
- /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V33*/ meltfptr[32] =
- /*_.PAIR_TAIL__V32*/ meltfptr[31];;
+ /*_.PAIR_TAIL__V33*/ meltfptr[32] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V17*/ meltfptr[16])));;
+ MELT_LOCATION ("warmelt-macro.melt:2876:/ compute");
+ /*_.CURPAIR__V17*/ meltfptr[16] = /*_.SETQ___V34*/ meltfptr[33] =
+ /*_.PAIR_TAIL__V33*/ meltfptr[32];;
/*_#__L8*/ meltfnum[7] =
- (( /*_.CURKW__V27*/ meltfptr[26]) ==
+ (( /*_.CURKW__V28*/ meltfptr[27]) ==
(( /*!konst_3_SUPER */ meltfrout->tabval[3])));;
- MELT_LOCATION ("warmelt-macro.melt:2870:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2878:/ cond");
/*cond */ if ( /*_#__L8*/ meltfnum[7]) /*then */
{
/*^cond.then */
@@ -8376,8 +8458,8 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2871:/ cond");
- /*cond */ if ( /*_.SUPERNAM__V7*/ meltfptr[6]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:2879:/ cond");
+ /*cond */ if ( /*_.SUPERNAM__V8*/ meltfptr[7]) /*then */
{
/*^cond.then */
/*^block */
@@ -8388,7 +8470,7 @@ lab_endgetargs:;
{
/*^locexp */
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V13*/ meltfptr[12]),
+ ( /*_.LOC__V14*/ meltfptr[13]),
("duplicate super in DEFCLASS"),
(melt_ptr_t) 0);
}
@@ -8400,14 +8482,14 @@ lab_endgetargs:;
;
/*_#IS_A__L9*/ meltfnum[8] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.CURVAL__V31*/ meltfptr[30]),
+ ( /*_.CURVAL__V32*/ meltfptr[31]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */
meltfrout->tabval[1])));;
/*^compute */
/*_#NOT__L10*/ meltfnum[9] =
(!( /*_#IS_A__L9*/ meltfnum[8]));;
- MELT_LOCATION ("warmelt-macro.melt:2872:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2880:/ cond");
/*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -8417,9 +8499,9 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:2873:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2881:/ locexp");
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V13*/ meltfptr[12]),
+ ( /*_.LOC__V14*/ meltfptr[13]),
("bad super in DEFCLASS"),
(melt_ptr_t) 0);
}
@@ -8429,12 +8511,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:2874:/ compute");
- /*_.SUPERNAM__V7*/ meltfptr[6] = /*_.SETQ___V35*/ meltfptr[34] =
- /*_.CURVAL__V31*/ meltfptr[30];;
+ MELT_LOCATION ("warmelt-macro.melt:2882:/ compute");
+ /*_.SUPERNAM__V8*/ meltfptr[7] = /*_.SETQ___V36*/ meltfptr[35] =
+ /*_.CURVAL__V32*/ meltfptr[31];;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2875:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2883:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -8457,7 +8539,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2875:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2883:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */
{
/*^cond.then */
@@ -8467,7 +8549,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2875:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2883:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -8478,13 +8560,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2875;
+ argtab[2].meltbp_long = 2883;
/*^apply.arg */
argtab[3].meltbp_cstring = "scan_defclass supernam";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.SUPERNAM__V7*/ meltfptr[6];
- /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] =
+ (melt_ptr_t *) & /*_.SUPERNAM__V8*/ meltfptr[7];
+ /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
tabval[0])),
@@ -8495,47 +8577,47 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V37*/ meltfptr[36] =
- /*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];;
+ /*_.IF___V38*/ meltfptr[37] =
+ /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2875:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2883:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V37*/ meltfptr[36] = NULL;;
+ /*_.IF___V38*/ meltfptr[37] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2875:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2883:/ quasiblock");
- /*_.PROGN___V39*/ meltfptr[37] = /*_.IF___V37*/ meltfptr[36];;
+ /*_.PROGN___V40*/ meltfptr[38] = /*_.IF___V38*/ meltfptr[37];;
/*^compute */
- /*_.IFCPP___V36*/ meltfptr[35] =
- /*_.PROGN___V39*/ meltfptr[37];;
+ /*_.IFCPP___V37*/ meltfptr[36] =
+ /*_.PROGN___V40*/ meltfptr[38];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2875:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2883:/ clear");
/*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.IF___V37*/ meltfptr[36] = 0;
+ /*clear *//*_.IF___V38*/ meltfptr[37] = 0;
/*^clear */
- /*clear *//*_.PROGN___V39*/ meltfptr[37] = 0;
+ /*clear *//*_.PROGN___V40*/ meltfptr[38] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V36*/ meltfptr[35] = ( /*nil */ NULL);
+ /*_.IFCPP___V37*/ meltfptr[36] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:2876:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2884:/ quasiblock");
/*^apply */
@@ -8545,8 +8627,8 @@ lab_endgetargs:;
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
- (melt_ptr_t *) & /*_.SUPERNAM__V7*/ meltfptr[6];
- /*_.SUPERB__V41*/ meltfptr[37] =
+ (melt_ptr_t *) & /*_.SUPERNAM__V8*/ meltfptr[7];
+ /*_.SUPERB__V42*/ meltfptr[38] =
melt_apply ((meltclosure_ptr_t)
(( /*!FIND_ENV */ meltfrout->tabval[4])),
(melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]),
@@ -8556,10 +8638,10 @@ lab_endgetargs:;
;
/*_#IS_A__L13*/ meltfnum[11] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.SUPERB__V41*/ meltfptr[37]),
+ ( /*_.SUPERB__V42*/ meltfptr[38]),
(melt_ptr_t) (( /*!CLASS_CLASS_BINDING */
meltfrout->tabval[5])));;
- MELT_LOCATION ("warmelt-macro.melt:2879:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2887:/ cond");
/*cond */ if ( /*_#IS_A__L13*/ meltfnum[11]) /*then */
{
/*^cond.then */
@@ -8567,41 +8649,41 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2880:/ compute");
- /*_.SUPERBIND__V8*/ meltfptr[7] =
- /*_.SETQ___V43*/ meltfptr[42] =
- /*_.SUPERB__V41*/ meltfptr[37];;
- MELT_LOCATION ("warmelt-macro.melt:2881:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:2888:/ compute");
+ /*_.SUPERBIND__V9*/ meltfptr[8] =
+ /*_.SETQ___V44*/ meltfptr[43] =
+ /*_.SUPERB__V42*/ meltfptr[38];;
+ MELT_LOCATION ("warmelt-macro.melt:2889:/ getslot");
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.SUPERB__V41*/ meltfptr[37]), 3, "CBIND_CLASS");
- /*_.CBIND_CLASS__V44*/
- meltfptr[43] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.SUPERB__V42*/ meltfptr[38]), 3, "CBIND_CLASS");
+ /*_.CBIND_CLASS__V45*/
+ meltfptr[44] = slot;
};
;
/*^compute */
- /*_.SUPERCLASS__V9*/ meltfptr[8] =
- /*_.SETQ___V45*/ meltfptr[44] =
- /*_.CBIND_CLASS__V44*/ meltfptr[43];;
- MELT_LOCATION ("warmelt-macro.melt:2879:/ quasiblock");
+ /*_.SUPERCLASS__V10*/ meltfptr[9] =
+ /*_.SETQ___V46*/ meltfptr[45] =
+ /*_.CBIND_CLASS__V45*/ meltfptr[44];;
+ MELT_LOCATION ("warmelt-macro.melt:2887:/ quasiblock");
- /*_.PROGN___V46*/ meltfptr[45] =
- /*_.SETQ___V45*/ meltfptr[44];;
+ /*_.PROGN___V47*/ meltfptr[46] =
+ /*_.SETQ___V46*/ meltfptr[45];;
/*^compute */
- /*_.IFELSE___V42*/ meltfptr[41] =
- /*_.PROGN___V46*/ meltfptr[45];;
+ /*_.IFELSE___V43*/ meltfptr[42] =
+ /*_.PROGN___V47*/ meltfptr[46];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2879:/ clear");
- /*clear *//*_.SETQ___V43*/ meltfptr[42] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2887:/ clear");
+ /*clear *//*_.SETQ___V44*/ meltfptr[43] = 0;
/*^clear */
- /*clear *//*_.CBIND_CLASS__V44*/ meltfptr[43] = 0;
+ /*clear *//*_.CBIND_CLASS__V45*/ meltfptr[44] = 0;
/*^clear */
- /*clear *//*_.SETQ___V45*/ meltfptr[44] = 0;
+ /*clear *//*_.SETQ___V46*/ meltfptr[45] = 0;
/*^clear */
- /*clear *//*_.PROGN___V46*/ meltfptr[45] = 0;
+ /*clear *//*_.PROGN___V47*/ meltfptr[46] = 0;
}
;
}
@@ -8614,9 +8696,9 @@ lab_endgetargs:;
/*_#IS_A__L14*/ meltfnum[10] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.SUPERB__V41*/ meltfptr[37]),
+ ( /*_.SUPERB__V42*/ meltfptr[38]),
(melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[6])));;
- MELT_LOCATION ("warmelt-macro.melt:2883:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2891:/ cond");
/*cond */ if ( /*_#IS_A__L14*/ meltfnum[10]) /*then */
{
/*^cond.then */
@@ -8625,23 +8707,23 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:2884:/ quasiblock");
+ ("warmelt-macro.melt:2892:/ quasiblock");
/*^getslot */
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.SUPERB__V41*/ meltfptr[37]), 1, "VBIND_VALUE");
- /*_.SUPERVAL__V49*/
- meltfptr[44] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.SUPERB__V42*/ meltfptr[38]), 1, "VBIND_VALUE");
+ /*_.SUPERVAL__V50*/
+ meltfptr[45] = slot;
};
;
/*_#IS_A__L15*/ meltfnum[14] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.SUPERVAL__V49*/
- meltfptr[44]),
+ ( /*_.SUPERVAL__V50*/
+ meltfptr[45]),
(melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->tabval[7])));;
- MELT_LOCATION ("warmelt-macro.melt:2885:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2893:/ cond");
/*cond */ if ( /*_#IS_A__L15*/ meltfnum[14]) /*then */
{
/*^cond.then */
@@ -8650,34 +8732,34 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:2887:/ compute");
- /*_.SUPERBIND__V8*/ meltfptr[7] =
- /*_.SETQ___V51*/ meltfptr[50] =
- /*_.SUPERB__V41*/ meltfptr[37];;
- MELT_LOCATION
- ("warmelt-macro.melt:2888:/ compute");
- /*_.SUPERCLASS__V9*/ meltfptr[8] =
+ ("warmelt-macro.melt:2895:/ compute");
+ /*_.SUPERBIND__V9*/ meltfptr[8] =
/*_.SETQ___V52*/ meltfptr[51] =
- /*_.SUPERVAL__V49*/ meltfptr[44];;
+ /*_.SUPERB__V42*/ meltfptr[38];;
MELT_LOCATION
- ("warmelt-macro.melt:2886:/ quasiblock");
+ ("warmelt-macro.melt:2896:/ compute");
+ /*_.SUPERCLASS__V10*/ meltfptr[9] =
+ /*_.SETQ___V53*/ meltfptr[52] =
+ /*_.SUPERVAL__V50*/ meltfptr[45];;
+ MELT_LOCATION
+ ("warmelt-macro.melt:2894:/ quasiblock");
- /*_.PROGN___V53*/ meltfptr[52] =
- /*_.SETQ___V52*/ meltfptr[51];;
+ /*_.PROGN___V54*/ meltfptr[53] =
+ /*_.SETQ___V53*/ meltfptr[52];;
/*^compute */
- /*_.IFELSE___V50*/ meltfptr[45] =
- /*_.PROGN___V53*/ meltfptr[52];;
+ /*_.IFELSE___V51*/ meltfptr[46] =
+ /*_.PROGN___V54*/ meltfptr[53];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:2885:/ clear");
- /*clear *//*_.SETQ___V51*/ meltfptr[50] = 0;
- /*^clear */
+ ("warmelt-macro.melt:2893:/ clear");
/*clear *//*_.SETQ___V52*/ meltfptr[51] = 0;
/*^clear */
- /*clear *//*_.PROGN___V53*/ meltfptr[52] = 0;
+ /*clear *//*_.SETQ___V53*/ meltfptr[52] = 0;
+ /*^clear */
+ /*clear *//*_.PROGN___V54*/ meltfptr[53] = 0;
}
;
}
@@ -8689,12 +8771,12 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:2891:/ getslot");
+ ("warmelt-macro.melt:2899:/ getslot");
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.SUPERNAM__V7*/ meltfptr[6]), 1, "NAMED_NAME");
- /*_.NAMED_NAME__V54*/
- meltfptr[50] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.SUPERNAM__V8*/ meltfptr[7]), 1, "NAMED_NAME");
+ /*_.NAMED_NAME__V55*/
+ meltfptr[51] = slot;
};
;
@@ -8702,40 +8784,40 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:2890:/ locexp");
+ ("warmelt-macro.melt:2898:/ locexp");
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V13*/
- meltfptr[12]),
+ ( /*_.LOC__V14*/
+ meltfptr[13]),
("super is not a class in defclass"),
- (melt_ptr_t) ( /*_.NAMED_NAME__V54*/ meltfptr[50]));
+ (melt_ptr_t) ( /*_.NAMED_NAME__V55*/ meltfptr[51]));
}
;
- /*clear *//*_.IFELSE___V50*/ meltfptr[45] = 0;
+ /*clear *//*_.IFELSE___V51*/ meltfptr[46] = 0;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:2885:/ clear");
- /*clear *//*_.NAMED_NAME__V54*/ meltfptr[50] =
+ ("warmelt-macro.melt:2893:/ clear");
+ /*clear *//*_.NAMED_NAME__V55*/ meltfptr[51] =
0;
}
;
}
;
- /*_.LET___V48*/ meltfptr[43] =
- /*_.IFELSE___V50*/ meltfptr[45];;
+ /*_.LET___V49*/ meltfptr[44] =
+ /*_.IFELSE___V51*/ meltfptr[46];;
- MELT_LOCATION ("warmelt-macro.melt:2884:/ clear");
- /*clear *//*_.SUPERVAL__V49*/ meltfptr[44] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2892:/ clear");
+ /*clear *//*_.SUPERVAL__V50*/ meltfptr[45] = 0;
/*^clear */
/*clear *//*_#IS_A__L15*/ meltfnum[14] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V50*/ meltfptr[45] = 0;
- /*_.IFELSE___V47*/ meltfptr[42] =
- /*_.LET___V48*/ meltfptr[43];;
+ /*clear *//*_.IFELSE___V51*/ meltfptr[46] = 0;
+ /*_.IFELSE___V48*/ meltfptr[43] =
+ /*_.LET___V49*/ meltfptr[44];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2883:/ clear");
- /*clear *//*_.LET___V48*/ meltfptr[43] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2891:/ clear");
+ /*clear *//*_.LET___V49*/ meltfptr[44] = 0;
}
;
}
@@ -8749,7 +8831,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
MELT_LOCATION
- ("warmelt-macro.melt:2894:/ cppif.then");
+ ("warmelt-macro.melt:2902:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -8772,7 +8854,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2894:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2902:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then */
{
/*^cond.then */
@@ -8783,7 +8865,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] =
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:2894:/ apply");
+ ("warmelt-macro.melt:2902:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -8796,15 +8878,15 @@ lab_endgetargs:;
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2894;
+ argtab[2].meltbp_long = 2902;
/*^apply.arg */
argtab[3].meltbp_cstring =
"scan_defclass superb";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.SUPERB__V41*/
- meltfptr[37];
- /*_.MELT_DEBUG_FUN__V57*/ meltfptr[50] =
+ (melt_ptr_t *) & /*_.SUPERB__V42*/
+ meltfptr[38];
+ /*_.MELT_DEBUG_FUN__V58*/ meltfptr[51] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */
meltfrout->tabval[0])),
@@ -8819,56 +8901,56 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V56*/ meltfptr[52] =
- /*_.MELT_DEBUG_FUN__V57*/ meltfptr[50];;
+ /*_.IF___V57*/ meltfptr[53] =
+ /*_.MELT_DEBUG_FUN__V58*/ meltfptr[51];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:2894:/ clear");
+ ("warmelt-macro.melt:2902:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L17*/
meltfnum[16] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V57*/
- meltfptr[50] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V58*/
+ meltfptr[51] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V56*/ meltfptr[52] = NULL;;
+ /*_.IF___V57*/ meltfptr[53] = NULL;;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:2894:/ quasiblock");
+ ("warmelt-macro.melt:2902:/ quasiblock");
- /*_.PROGN___V58*/ meltfptr[44] =
- /*_.IF___V56*/ meltfptr[52];;
+ /*_.PROGN___V59*/ meltfptr[45] =
+ /*_.IF___V57*/ meltfptr[53];;
/*^compute */
- /*_.IFCPP___V55*/ meltfptr[51] =
- /*_.PROGN___V58*/ meltfptr[44];;
+ /*_.IFCPP___V56*/ meltfptr[52] =
+ /*_.PROGN___V59*/ meltfptr[45];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2894:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2902:/ clear");
/*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[14] =
0;
/*^clear */
- /*clear *//*_.IF___V56*/ meltfptr[52] = 0;
+ /*clear *//*_.IF___V57*/ meltfptr[53] = 0;
/*^clear */
- /*clear *//*_.PROGN___V58*/ meltfptr[44] = 0;
+ /*clear *//*_.PROGN___V59*/ meltfptr[45] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V55*/ meltfptr[51] = ( /*nil */ NULL);
+ /*_.IFCPP___V56*/ meltfptr[52] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
MELT_LOCATION
- ("warmelt-macro.melt:2895:/ cppif.then");
+ ("warmelt-macro.melt:2903:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -8891,7 +8973,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2895:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2903:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then */
{
/*^cond.then */
@@ -8902,7 +8984,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L19*/ meltfnum[14] =
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:2895:/ apply");
+ ("warmelt-macro.melt:2903:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -8915,7 +8997,7 @@ lab_endgetargs:;
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2895;
+ argtab[2].meltbp_long = 2903;
/*^apply.arg */
argtab[3].meltbp_cstring =
"scan_defclass env";
@@ -8923,7 +9005,7 @@ lab_endgetargs:;
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.ENV__V3*/
meltfptr[2];
- /*_.MELT_DEBUG_FUN__V61*/ meltfptr[50] =
+ /*_.MELT_DEBUG_FUN__V62*/ meltfptr[51] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */
meltfrout->tabval[0])),
@@ -8938,128 +9020,128 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V60*/ meltfptr[43] =
- /*_.MELT_DEBUG_FUN__V61*/ meltfptr[50];;
+ /*_.IF___V61*/ meltfptr[44] =
+ /*_.MELT_DEBUG_FUN__V62*/ meltfptr[51];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:2895:/ clear");
+ ("warmelt-macro.melt:2903:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L19*/
meltfnum[14] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V61*/
- meltfptr[50] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V62*/
+ meltfptr[51] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V60*/ meltfptr[43] = NULL;;
+ /*_.IF___V61*/ meltfptr[44] = NULL;;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:2895:/ quasiblock");
+ ("warmelt-macro.melt:2903:/ quasiblock");
- /*_.PROGN___V62*/ meltfptr[52] =
- /*_.IF___V60*/ meltfptr[43];;
+ /*_.PROGN___V63*/ meltfptr[53] =
+ /*_.IF___V61*/ meltfptr[44];;
/*^compute */
- /*_.IFCPP___V59*/ meltfptr[45] =
- /*_.PROGN___V62*/ meltfptr[52];;
+ /*_.IFCPP___V60*/ meltfptr[46] =
+ /*_.PROGN___V63*/ meltfptr[53];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2895:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2903:/ clear");
/*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[16] =
0;
/*^clear */
- /*clear *//*_.IF___V60*/ meltfptr[43] = 0;
+ /*clear *//*_.IF___V61*/ meltfptr[44] = 0;
/*^clear */
- /*clear *//*_.PROGN___V62*/ meltfptr[52] = 0;
+ /*clear *//*_.PROGN___V63*/ meltfptr[53] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V59*/ meltfptr[45] = ( /*nil */ NULL);
+ /*_.IFCPP___V60*/ meltfptr[46] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:2897:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:2905:/ getslot");
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.SUPERNAM__V7*/ meltfptr[6]), 1, "NAMED_NAME");
- /*_.NAMED_NAME__V63*/
- meltfptr[44] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.SUPERNAM__V8*/ meltfptr[7]), 1, "NAMED_NAME");
+ /*_.NAMED_NAME__V64*/
+ meltfptr[45] = slot;
};
;
{
MELT_LOCATION
- ("warmelt-macro.melt:2896:/ locexp");
+ ("warmelt-macro.melt:2904:/ locexp");
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V13*/ meltfptr[12]),
+ ( /*_.LOC__V14*/ meltfptr[13]),
("invalid super in defclass"),
- (melt_ptr_t) ( /*_.NAMED_NAME__V63*/ meltfptr[44]));
+ (melt_ptr_t) ( /*_.NAMED_NAME__V64*/ meltfptr[45]));
}
;
MELT_LOCATION
- ("warmelt-macro.melt:2893:/ quasiblock");
+ ("warmelt-macro.melt:2901:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2883:/ clear");
- /*clear *//*_.IFCPP___V55*/ meltfptr[51] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2891:/ clear");
+ /*clear *//*_.IFCPP___V56*/ meltfptr[52] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V59*/ meltfptr[45] = 0;
+ /*clear *//*_.IFCPP___V60*/ meltfptr[46] = 0;
/*^clear */
- /*clear *//*_.NAMED_NAME__V63*/ meltfptr[44] = 0;
+ /*clear *//*_.NAMED_NAME__V64*/ meltfptr[45] = 0;
}
;
}
;
- /*_.IFELSE___V42*/ meltfptr[41] =
- /*_.IFELSE___V47*/ meltfptr[42];;
+ /*_.IFELSE___V43*/ meltfptr[42] =
+ /*_.IFELSE___V48*/ meltfptr[43];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2879:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2887:/ clear");
/*clear *//*_#IS_A__L14*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V47*/ meltfptr[42] = 0;
+ /*clear *//*_.IFELSE___V48*/ meltfptr[43] = 0;
}
;
}
;
- /*_.LET___V40*/ meltfptr[36] = /*_.IFELSE___V42*/ meltfptr[41];;
+ /*_.LET___V41*/ meltfptr[37] = /*_.IFELSE___V43*/ meltfptr[42];;
- MELT_LOCATION ("warmelt-macro.melt:2876:/ clear");
- /*clear *//*_.SUPERB__V41*/ meltfptr[37] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2884:/ clear");
+ /*clear *//*_.SUPERB__V42*/ meltfptr[38] = 0;
/*^clear */
/*clear *//*_#IS_A__L13*/ meltfnum[11] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V42*/ meltfptr[41] = 0;
- MELT_LOCATION ("warmelt-macro.melt:2870:/ quasiblock");
+ /*clear *//*_.IFELSE___V43*/ meltfptr[42] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2878:/ quasiblock");
- /*_.PROGN___V64*/ meltfptr[50] = /*_.LET___V40*/ meltfptr[36];;
+ /*_.PROGN___V65*/ meltfptr[51] = /*_.LET___V41*/ meltfptr[37];;
/*^compute */
- /*_.IFELSE___V34*/ meltfptr[33] =
- /*_.PROGN___V64*/ meltfptr[50];;
+ /*_.IFELSE___V35*/ meltfptr[34] =
+ /*_.PROGN___V65*/ meltfptr[51];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2870:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2878:/ clear");
/*clear *//*_#IS_A__L9*/ meltfnum[8] = 0;
/*^clear */
/*clear *//*_#NOT__L10*/ meltfnum[9] = 0;
/*^clear */
- /*clear *//*_.SETQ___V35*/ meltfptr[34] = 0;
+ /*clear *//*_.SETQ___V36*/ meltfptr[35] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V36*/ meltfptr[35] = 0;
+ /*clear *//*_.IFCPP___V37*/ meltfptr[36] = 0;
/*^clear */
- /*clear *//*_.LET___V40*/ meltfptr[36] = 0;
+ /*clear *//*_.LET___V41*/ meltfptr[37] = 0;
/*^clear */
- /*clear *//*_.PROGN___V64*/ meltfptr[50] = 0;
+ /*clear *//*_.PROGN___V65*/ meltfptr[51] = 0;
}
;
}
@@ -9071,9 +9153,9 @@ lab_endgetargs:;
{
/*_#__L20*/ meltfnum[14] =
- (( /*_.CURKW__V27*/ meltfptr[26]) ==
+ (( /*_.CURKW__V28*/ meltfptr[27]) ==
(( /*!konst_8_FIELDS */ meltfrout->tabval[8])));;
- MELT_LOCATION ("warmelt-macro.melt:2901:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2909:/ cond");
/*cond */ if ( /*_#__L20*/ meltfnum[14]) /*then */
{
/*^cond.then */
@@ -9081,8 +9163,8 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2902:/ cond");
- /*cond */ if ( /*_.FIELDNAMS__V10*/ meltfptr[9]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:2910:/ cond");
+ /*cond */ if ( /*_.FIELDNAMS__V11*/ meltfptr[10]) /*then */
{
/*^cond.then */
/*^block */
@@ -9093,7 +9175,7 @@ lab_endgetargs:;
{
/*^locexp */
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V13*/ meltfptr[12]),
+ ( /*_.LOC__V14*/ meltfptr[13]),
("duplicate fields in defclass"),
(melt_ptr_t) 0);
}
@@ -9103,8 +9185,8 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:2903:/ cond");
- /*cond */ if ( /*_.CURVAL__V31*/ meltfptr[30]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:2911:/ cond");
+ /*cond */ if ( /*_.CURVAL__V32*/ meltfptr[31]) /*then */
{
/*^cond.then */
/*^block */
@@ -9113,10 +9195,10 @@ lab_endgetargs:;
/*_#IS_NOT_A__L21*/ meltfnum[16] =
!melt_is_instance_of ((melt_ptr_t)
- ( /*_.CURVAL__V31*/
- meltfptr[30]),
+ ( /*_.CURVAL__V32*/
+ meltfptr[31]),
(melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->tabval[9])));;
- MELT_LOCATION ("warmelt-macro.melt:2904:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2912:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L21*/ meltfnum[16]) /*then */
{
/*^cond.then */
@@ -9127,10 +9209,10 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:2905:/ locexp");
+ ("warmelt-macro.melt:2913:/ locexp");
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V13*/
- meltfptr[12]),
+ ( /*_.LOC__V14*/
+ meltfptr[13]),
("bad fields in defclass"),
(melt_ptr_t) 0);
}
@@ -9142,17 +9224,17 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2903:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2911:/ clear");
/*clear *//*_#IS_NOT_A__L21*/ meltfnum[16] = 0;
}
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:2906:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2914:/ quasiblock");
/*^cond */
- /*cond */ if ( /*_.CURVAL__V31*/ meltfptr[30]) /*then */
+ /*cond */ if ( /*_.CURVAL__V32*/ meltfptr[31]) /*then */
{
/*^cond.then */
/*^block */
@@ -9162,28 +9244,28 @@ lab_endgetargs:;
/*^getslot */
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURVAL__V31*/ meltfptr[30]), 2, "SEXP_CONTENTS");
- /*_.SEXP_CONTENTS__V68*/
- meltfptr[45] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURVAL__V32*/ meltfptr[31]), 2, "SEXP_CONTENTS");
+ /*_.SEXP_CONTENTS__V69*/
+ meltfptr[46] = slot;
};
;
- /*_.NAMLIST__V67*/ meltfptr[51] =
- /*_.SEXP_CONTENTS__V68*/ meltfptr[45];;
+ /*_.NAMLIST__V68*/ meltfptr[52] =
+ /*_.SEXP_CONTENTS__V69*/ meltfptr[46];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2906:/ clear");
- /*clear *//*_.SEXP_CONTENTS__V68*/ meltfptr[45] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2914:/ clear");
+ /*clear *//*_.SEXP_CONTENTS__V69*/ meltfptr[46] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.NAMLIST__V67*/ meltfptr[51] = NULL;;
+ /*_.NAMLIST__V68*/ meltfptr[52] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2907:/ cond");
- /*cond */ if ( /*_.CURVAL__V31*/ meltfptr[30]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:2915:/ cond");
+ /*cond */ if ( /*_.CURVAL__V32*/ meltfptr[31]) /*then */
{
/*^cond.then */
/*^block */
@@ -9193,51 +9275,51 @@ lab_endgetargs:;
/*^getslot */
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURVAL__V31*/ meltfptr[30]), 1, "LOCA_LOCATION");
- /*_.LOCA_LOCATION__V70*/
- meltfptr[42] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURVAL__V32*/ meltfptr[31]), 1, "LOCA_LOCATION");
+ /*_.LOCA_LOCATION__V71*/
+ meltfptr[43] = slot;
};
;
- /*_.NAMLOC__V69*/ meltfptr[44] =
- /*_.LOCA_LOCATION__V70*/ meltfptr[42];;
+ /*_.NAMLOC__V70*/ meltfptr[45] =
+ /*_.LOCA_LOCATION__V71*/ meltfptr[43];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2907:/ clear");
- /*clear *//*_.LOCA_LOCATION__V70*/ meltfptr[42] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2915:/ clear");
+ /*clear *//*_.LOCA_LOCATION__V71*/ meltfptr[43] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.NAMLOC__V69*/ meltfptr[44] = NULL;;
+ /*_.NAMLOC__V70*/ meltfptr[45] = NULL;;
}
;
/*^compute */
/*_#NBNAM__L22*/ meltfnum[10] =
(melt_list_length
- ((melt_ptr_t) ( /*_.NAMLIST__V67*/ meltfptr[51])));;
+ ((melt_ptr_t) ( /*_.NAMLIST__V68*/ meltfptr[52])));;
/*^compute */
/*_#IX__L23*/ meltfnum[11] = 0;;
/*^compute */
- /*_.NAMPAIR__V71*/ meltfptr[37] =
+ /*_.NAMPAIR__V72*/ meltfptr[38] =
(melt_list_first
- ((melt_ptr_t) ( /*_.NAMLIST__V67*/ meltfptr[51])));;
+ ((melt_ptr_t) ( /*_.NAMLIST__V68*/ meltfptr[52])));;
/*^compute */
- /*_.NAMTUPL__V72*/ meltfptr[41] =
+ /*_.NAMTUPL__V73*/ meltfptr[42] =
(meltgc_new_multiple
((meltobject_ptr_t)
(( /*!DISCR_MULTIPLE */ meltfrout->tabval[10])),
( /*_#NBNAM__L22*/ meltfnum[10])));;
- MELT_LOCATION ("warmelt-macro.melt:2912:/ compute");
- /*_.FIELDSLOC__V14*/ meltfptr[13] =
- /*_.SETQ___V73*/ meltfptr[34] =
- /*_.NAMLOC__V69*/ meltfptr[44];;
- MELT_LOCATION ("warmelt-macro.melt:2913:/ loop");
+ MELT_LOCATION ("warmelt-macro.melt:2920:/ compute");
+ /*_.FIELDSLOC__V15*/ meltfptr[14] =
+ /*_.SETQ___V74*/ meltfptr[35] =
+ /*_.NAMLOC__V70*/ meltfptr[45];;
+ MELT_LOCATION ("warmelt-macro.melt:2921:/ loop");
/*loop */
{
labloop_NAMLOOP_1:;
@@ -9249,13 +9331,13 @@ lab_endgetargs:;
/*_#IS_PAIR__L24*/ meltfnum[8] =
(melt_magic_discr
- ((melt_ptr_t) ( /*_.NAMPAIR__V71*/ meltfptr[37]))
+ ((melt_ptr_t) ( /*_.NAMPAIR__V72*/ meltfptr[38]))
== MELTOBMAG_PAIR);;
/*^compute */
/*_#NOT__L25*/ meltfnum[9] =
(!( /*_#IS_PAIR__L24*/ meltfnum[8]));;
- MELT_LOCATION ("warmelt-macro.melt:2914:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2922:/ cond");
/*cond */ if ( /*_#NOT__L25*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -9267,7 +9349,7 @@ lab_endgetargs:;
/*^compute */
- /*_.NAMLOOP__V75*/ meltfptr[36] = NULL;;
+ /*_.NAMLOOP__V76*/ meltfptr[37] = NULL;;
/*^exit */
/*exit */
@@ -9281,25 +9363,25 @@ lab_endgetargs:;
} /*noelse */
;
MELT_LOCATION
- ("warmelt-macro.melt:2915:/ quasiblock");
+ ("warmelt-macro.melt:2923:/ quasiblock");
- /*_.CURNAM__V76*/ meltfptr[50] =
+ /*_.CURNAM__V77*/ meltfptr[51] =
(melt_pair_head
((melt_ptr_t)
- ( /*_.NAMPAIR__V71*/ meltfptr[37])));;
+ ( /*_.NAMPAIR__V72*/ meltfptr[38])));;
/*^compute */
/*_#IS_A__L26*/ meltfnum[16] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.CURNAM__V76*/
- meltfptr[50]),
+ ( /*_.CURNAM__V77*/
+ meltfptr[51]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[1])));;
/*^compute */
/*_#NOT__L27*/ meltfnum[26] =
(!( /*_#IS_A__L26*/ meltfnum[16]));;
- MELT_LOCATION ("warmelt-macro.melt:2916:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2924:/ cond");
/*cond */ if ( /*_#NOT__L27*/ meltfnum[26]) /*then */
{
/*^cond.then */
@@ -9310,10 +9392,10 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:2917:/ locexp");
+ ("warmelt-macro.melt:2925:/ locexp");
melt_error_str ((melt_ptr_t)
- ( /*_.NAMLOC__V69*/
- meltfptr[44]),
+ ( /*_.NAMLOC__V70*/
+ meltfptr[45]),
("non name field in DEFCLASS"),
(melt_ptr_t) 0);
}
@@ -9325,46 +9407,46 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:2918:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2926:/ locexp");
meltgc_multiple_put_nth ((melt_ptr_t)
- ( /*_.NAMTUPL__V72*/
- meltfptr[41]),
+ ( /*_.NAMTUPL__V73*/
+ meltfptr[42]),
( /*_#IX__L23*/
meltfnum[11]),
- (melt_ptr_t) ( /*_.CURNAM__V76*/ meltfptr[50]));
+ (melt_ptr_t) ( /*_.CURNAM__V77*/ meltfptr[51]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:2915:/ clear");
- /*clear *//*_.CURNAM__V76*/ meltfptr[50] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2923:/ clear");
+ /*clear *//*_.CURNAM__V77*/ meltfptr[51] = 0;
/*^clear */
/*clear *//*_#IS_A__L26*/ meltfnum[16] = 0;
/*^clear */
/*clear *//*_#NOT__L27*/ meltfnum[26] = 0;
- /*_.PAIR_TAIL__V77*/ meltfptr[45] =
+ /*_.PAIR_TAIL__V78*/ meltfptr[46] =
(melt_pair_tail
((melt_ptr_t)
- ( /*_.NAMPAIR__V71*/ meltfptr[37])));;
- MELT_LOCATION ("warmelt-macro.melt:2920:/ compute");
- /*_.NAMPAIR__V71*/ meltfptr[37] =
- /*_.SETQ___V78*/ meltfptr[42] =
- /*_.PAIR_TAIL__V77*/ meltfptr[45];;
+ ( /*_.NAMPAIR__V72*/ meltfptr[38])));;
+ MELT_LOCATION ("warmelt-macro.melt:2928:/ compute");
+ /*_.NAMPAIR__V72*/ meltfptr[38] =
+ /*_.SETQ___V79*/ meltfptr[43] =
+ /*_.PAIR_TAIL__V78*/ meltfptr[46];;
/*_#I__L28*/ meltfnum[16] =
(( /*_#IX__L23*/ meltfnum[11]) + (1));;
- MELT_LOCATION ("warmelt-macro.melt:2921:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:2929:/ compute");
/*_#IX__L23*/ meltfnum[11] =
/*_#SETQ___L29*/ meltfnum[26] =
/*_#I__L28*/ meltfnum[16];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2913:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2921:/ clear");
/*clear *//*_#IS_PAIR__L24*/ meltfnum[8] = 0;
/*^clear */
/*clear *//*_#NOT__L25*/ meltfnum[9] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V77*/ meltfptr[45] = 0;
+ /*clear *//*_.PAIR_TAIL__V78*/ meltfptr[46] = 0;
/*^clear */
- /*clear *//*_.SETQ___V78*/ meltfptr[42] = 0;
+ /*clear *//*_.SETQ___V79*/ meltfptr[43] = 0;
/*^clear */
/*clear *//*_#I__L28*/ meltfnum[16] = 0;
/*^clear */
@@ -9376,50 +9458,50 @@ lab_endgetargs:;
labexit_NAMLOOP_1:;
/*^loopepilog */
/*loopepilog */
- /*_.FOREVER___V74*/ meltfptr[35] =
- /*_.NAMLOOP__V75*/ meltfptr[36];;
+ /*_.FOREVER___V75*/ meltfptr[36] =
+ /*_.NAMLOOP__V76*/ meltfptr[37];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2923:/ compute");
- /*_.FIELDNAMS__V10*/ meltfptr[9] =
- /*_.SETQ___V79*/ meltfptr[50] =
- /*_.NAMTUPL__V72*/ meltfptr[41];;
- /*_.LET___V66*/ meltfptr[52] =
- /*_.SETQ___V79*/ meltfptr[50];;
-
- MELT_LOCATION ("warmelt-macro.melt:2906:/ clear");
- /*clear *//*_.NAMLIST__V67*/ meltfptr[51] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2931:/ compute");
+ /*_.FIELDNAMS__V11*/ meltfptr[10] =
+ /*_.SETQ___V80*/ meltfptr[51] =
+ /*_.NAMTUPL__V73*/ meltfptr[42];;
+ /*_.LET___V67*/ meltfptr[53] =
+ /*_.SETQ___V80*/ meltfptr[51];;
+
+ MELT_LOCATION ("warmelt-macro.melt:2914:/ clear");
+ /*clear *//*_.NAMLIST__V68*/ meltfptr[52] = 0;
/*^clear */
- /*clear *//*_.NAMLOC__V69*/ meltfptr[44] = 0;
+ /*clear *//*_.NAMLOC__V70*/ meltfptr[45] = 0;
/*^clear */
/*clear *//*_#NBNAM__L22*/ meltfnum[10] = 0;
/*^clear */
/*clear *//*_#IX__L23*/ meltfnum[11] = 0;
/*^clear */
- /*clear *//*_.NAMPAIR__V71*/ meltfptr[37] = 0;
+ /*clear *//*_.NAMPAIR__V72*/ meltfptr[38] = 0;
/*^clear */
- /*clear *//*_.NAMTUPL__V72*/ meltfptr[41] = 0;
+ /*clear *//*_.NAMTUPL__V73*/ meltfptr[42] = 0;
/*^clear */
- /*clear *//*_.SETQ___V73*/ meltfptr[34] = 0;
+ /*clear *//*_.SETQ___V74*/ meltfptr[35] = 0;
/*^clear */
- /*clear *//*_.FOREVER___V74*/ meltfptr[35] = 0;
+ /*clear *//*_.FOREVER___V75*/ meltfptr[36] = 0;
/*^clear */
- /*clear *//*_.SETQ___V79*/ meltfptr[50] = 0;
- MELT_LOCATION ("warmelt-macro.melt:2901:/ quasiblock");
+ /*clear *//*_.SETQ___V80*/ meltfptr[51] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2909:/ quasiblock");
- /*_.PROGN___V80*/ meltfptr[45] =
- /*_.LET___V66*/ meltfptr[52];;
+ /*_.PROGN___V81*/ meltfptr[46] =
+ /*_.LET___V67*/ meltfptr[53];;
/*^compute */
- /*_.IFELSE___V65*/ meltfptr[43] =
- /*_.PROGN___V80*/ meltfptr[45];;
+ /*_.IFELSE___V66*/ meltfptr[44] =
+ /*_.PROGN___V81*/ meltfptr[46];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2901:/ clear");
- /*clear *//*_.LET___V66*/ meltfptr[52] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2909:/ clear");
+ /*clear *//*_.LET___V67*/ meltfptr[53] = 0;
/*^clear */
- /*clear *//*_.PROGN___V80*/ meltfptr[45] = 0;
+ /*clear *//*_.PROGN___V81*/ meltfptr[46] = 0;
}
;
}
@@ -9431,9 +9513,9 @@ lab_endgetargs:;
{
/*_#__L30*/ meltfnum[8] =
- (( /*_.CURKW__V27*/ meltfptr[26]) ==
+ (( /*_.CURKW__V28*/ meltfptr[27]) ==
(( /*!konst_11_PREDEF */ meltfrout->tabval[11])));;
- MELT_LOCATION ("warmelt-macro.melt:2925:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2933:/ cond");
/*cond */ if ( /*_#__L30*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -9441,8 +9523,8 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2926:/ cond");
- /*cond */ if ( /*_.PREDEF__V6*/ meltfptr[5]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:2934:/ cond");
+ /*cond */ if ( /*_.PREDEF__V7*/ meltfptr[6]) /*then */
{
/*^cond.then */
/*^block */
@@ -9453,8 +9535,8 @@ lab_endgetargs:;
{
/*^locexp */
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V13*/
- meltfptr[12]),
+ ( /*_.LOC__V14*/
+ meltfptr[13]),
("duplicate predef in DEFCLASS"),
(melt_ptr_t) 0);
}
@@ -9464,10 +9546,10 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:2927:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2935:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -9476,36 +9558,38 @@ lab_endgetargs:;
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/
meltfptr[3];
- /*_.MACROEXPAND_1__V82*/ meltfptr[51] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.MEXPANDER__V83*/ meltfptr[52] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->
- tabval[12])),
- (melt_ptr_t) ( /*_.CURVAL__V31*/
- meltfptr[30]),
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.CURVAL__V32*/
+ meltfptr[31]),
(MELTBPARSTR_PTR MELTBPARSTR_PTR
- ""), argtab, "",
+ MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
/*^compute */
- /*_.PREDEF__V6*/ meltfptr[5] =
- /*_.SETQ___V83*/ meltfptr[44] =
- /*_.MACROEXPAND_1__V82*/ meltfptr[51];;
+ /*_.PREDEF__V7*/ meltfptr[6] =
+ /*_.SETQ___V84*/ meltfptr[45] =
+ /*_.MEXPANDER__V83*/ meltfptr[52];;
/*_#IS_INTEGERBOX__L31*/ meltfnum[9] =
(melt_magic_discr
- ((melt_ptr_t) ( /*_.PREDEF__V6*/ meltfptr[5])) ==
+ ((melt_ptr_t) ( /*_.PREDEF__V7*/ meltfptr[6])) ==
MELTOBMAG_INT);;
- MELT_LOCATION ("warmelt-macro.melt:2929:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2937:/ cond");
/*cond */ if ( /*_#IS_INTEGERBOX__L31*/ meltfnum[9]) /*then */
{
/*^cond.then */
- /*_.IFELSE___V84*/ meltfptr[37] =
+ /*_.IFELSE___V85*/ meltfptr[38] =
( /*nil */ NULL);;
}
else
{
MELT_LOCATION
- ("warmelt-macro.melt:2929:/ cond.else");
+ ("warmelt-macro.melt:2937:/ cond.else");
/*^block */
/*anyblock */
@@ -9513,21 +9597,21 @@ lab_endgetargs:;
/*_#IS_A__L32*/ meltfnum[16] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.PREDEF__V6*/
- meltfptr[5]),
+ ( /*_.PREDEF__V7*/
+ meltfptr[6]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->tabval[1])));;
MELT_LOCATION
- ("warmelt-macro.melt:2932:/ cond");
+ ("warmelt-macro.melt:2940:/ cond");
/*cond */ if ( /*_#IS_A__L32*/ meltfnum[16]) /*then */
{
/*^cond.then */
- /*_.IFELSE___V85*/ meltfptr[41] =
+ /*_.IFELSE___V86*/ meltfptr[42] =
( /*nil */ NULL);;
}
else
{
MELT_LOCATION
- ("warmelt-macro.melt:2932:/ cond.else");
+ ("warmelt-macro.melt:2940:/ cond.else");
/*^block */
/*anyblock */
@@ -9536,16 +9620,16 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:2936:/ locexp");
+ ("warmelt-macro.melt:2944:/ locexp");
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V13*/
- meltfptr[12]),
+ ( /*_.LOC__V14*/
+ meltfptr[13]),
("bad predef in DEFCLASS"),
(melt_ptr_t) 0);
}
;
MELT_LOCATION
- ("warmelt-macro.melt:2935:/ quasiblock");
+ ("warmelt-macro.melt:2943:/ quasiblock");
/*epilog */
@@ -9553,41 +9637,41 @@ lab_endgetargs:;
;
}
;
- /*_.IFELSE___V84*/ meltfptr[37] =
- /*_.IFELSE___V85*/ meltfptr[41];;
+ /*_.IFELSE___V85*/ meltfptr[38] =
+ /*_.IFELSE___V86*/ meltfptr[42];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:2929:/ clear");
+ ("warmelt-macro.melt:2937:/ clear");
/*clear *//*_#IS_A__L32*/ meltfnum[16] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V85*/ meltfptr[41] = 0;
+ /*clear *//*_.IFELSE___V86*/ meltfptr[42] = 0;
}
;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:2925:/ quasiblock");
+ ("warmelt-macro.melt:2933:/ quasiblock");
- /*_.PROGN___V86*/ meltfptr[34] =
- /*_.IFELSE___V84*/ meltfptr[37];;
+ /*_.PROGN___V87*/ meltfptr[35] =
+ /*_.IFELSE___V85*/ meltfptr[38];;
/*^compute */
- /*_.IFELSE___V81*/ meltfptr[42] =
- /*_.PROGN___V86*/ meltfptr[34];;
+ /*_.IFELSE___V82*/ meltfptr[43] =
+ /*_.PROGN___V87*/ meltfptr[35];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2925:/ clear");
- /*clear *//*_.MACROEXPAND_1__V82*/ meltfptr[51] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2933:/ clear");
+ /*clear *//*_.MEXPANDER__V83*/ meltfptr[52] = 0;
/*^clear */
- /*clear *//*_.SETQ___V83*/ meltfptr[44] = 0;
+ /*clear *//*_.SETQ___V84*/ meltfptr[45] = 0;
/*^clear */
/*clear *//*_#IS_INTEGERBOX__L31*/ meltfnum[9] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V84*/ meltfptr[37] = 0;
+ /*clear *//*_.IFELSE___V85*/ meltfptr[38] = 0;
/*^clear */
- /*clear *//*_.PROGN___V86*/ meltfptr[34] = 0;
+ /*clear *//*_.PROGN___V87*/ meltfptr[35] = 0;
}
;
}
@@ -9599,9 +9683,9 @@ lab_endgetargs:;
{
/*_#__L33*/ meltfnum[26] =
- (( /*_.CURKW__V27*/ meltfptr[26]) ==
- (( /*!konst_13_DOC */ meltfrout->tabval[13])));;
- MELT_LOCATION ("warmelt-macro.melt:2940:/ cond");
+ (( /*_.CURKW__V28*/ meltfptr[27]) ==
+ (( /*!konst_12_DOC */ meltfrout->tabval[12])));;
+ MELT_LOCATION ("warmelt-macro.melt:2948:/ cond");
/*cond */ if ( /*_#__L33*/ meltfnum[26]) /*then */
{
/*^cond.then */
@@ -9610,8 +9694,8 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:2941:/ cond");
- /*cond */ if ( /*_.DOCV__V11*/ meltfptr[10]) /*then */
+ ("warmelt-macro.melt:2949:/ cond");
+ /*cond */ if ( /*_.DOCV__V12*/ meltfptr[11]) /*then */
{
/*^cond.then */
/*^block */
@@ -9622,8 +9706,8 @@ lab_endgetargs:;
{
/*^locexp */
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V13*/
- meltfptr[12]),
+ ( /*_.LOC__V14*/
+ meltfptr[13]),
("duplicate doc in DEFCLASS"),
(melt_ptr_t) 0);
}
@@ -9634,27 +9718,27 @@ lab_endgetargs:;
} /*noelse */
;
MELT_LOCATION
- ("warmelt-macro.melt:2943:/ compute");
- /*_.DOCV__V11*/ meltfptr[10] =
- /*_.SETQ___V88*/ meltfptr[50] =
- /*_.CURVAL__V31*/ meltfptr[30];;
+ ("warmelt-macro.melt:2951:/ compute");
+ /*_.DOCV__V12*/ meltfptr[11] =
+ /*_.SETQ___V89*/ meltfptr[51] =
+ /*_.CURVAL__V32*/ meltfptr[31];;
MELT_LOCATION
- ("warmelt-macro.melt:2940:/ quasiblock");
+ ("warmelt-macro.melt:2948:/ quasiblock");
- /*_.PROGN___V89*/ meltfptr[52] =
- /*_.SETQ___V88*/ meltfptr[50];;
+ /*_.PROGN___V90*/ meltfptr[53] =
+ /*_.SETQ___V89*/ meltfptr[51];;
/*^compute */
- /*_.IFELSE___V87*/ meltfptr[35] =
- /*_.PROGN___V89*/ meltfptr[52];;
+ /*_.IFELSE___V88*/ meltfptr[36] =
+ /*_.PROGN___V90*/ meltfptr[53];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:2940:/ clear");
- /*clear *//*_.SETQ___V88*/ meltfptr[50] = 0;
+ ("warmelt-macro.melt:2948:/ clear");
+ /*clear *//*_.SETQ___V89*/ meltfptr[51] = 0;
/*^clear */
- /*clear *//*_.PROGN___V89*/ meltfptr[52] = 0;
+ /*clear *//*_.PROGN___V90*/ meltfptr[53] = 0;
}
;
}
@@ -9666,121 +9750,121 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:2947:/ getslot");
+ ("warmelt-macro.melt:2955:/ getslot");
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURKW__V27*/ meltfptr[26]), 1, "NAMED_NAME");
- /*_.NAMED_NAME__V90*/
- meltfptr[45] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURKW__V28*/ meltfptr[27]), 1, "NAMED_NAME");
+ /*_.NAMED_NAME__V91*/
+ meltfptr[46] = slot;
};
;
{
MELT_LOCATION
- ("warmelt-macro.melt:2946:/ locexp");
+ ("warmelt-macro.melt:2954:/ locexp");
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V13*/
- meltfptr[12]),
+ ( /*_.LOC__V14*/
+ meltfptr[13]),
("invalid keyword in DEFCLASS"),
- (melt_ptr_t) ( /*_.NAMED_NAME__V90*/ meltfptr[45]));
+ (melt_ptr_t) ( /*_.NAMED_NAME__V91*/ meltfptr[46]));
}
;
MELT_LOCATION
- ("warmelt-macro.melt:2945:/ quasiblock");
+ ("warmelt-macro.melt:2953:/ quasiblock");
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:2940:/ clear");
- /*clear *//*_.NAMED_NAME__V90*/ meltfptr[45] =
+ ("warmelt-macro.melt:2948:/ clear");
+ /*clear *//*_.NAMED_NAME__V91*/ meltfptr[46] =
0;
}
;
}
;
- /*_.IFELSE___V81*/ meltfptr[42] =
- /*_.IFELSE___V87*/ meltfptr[35];;
+ /*_.IFELSE___V82*/ meltfptr[43] =
+ /*_.IFELSE___V88*/ meltfptr[36];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2925:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2933:/ clear");
/*clear *//*_#__L33*/ meltfnum[26] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V87*/ meltfptr[35] = 0;
+ /*clear *//*_.IFELSE___V88*/ meltfptr[36] = 0;
}
;
}
;
- /*_.IFELSE___V65*/ meltfptr[43] =
- /*_.IFELSE___V81*/ meltfptr[42];;
+ /*_.IFELSE___V66*/ meltfptr[44] =
+ /*_.IFELSE___V82*/ meltfptr[43];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2901:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2909:/ clear");
/*clear *//*_#__L30*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V81*/ meltfptr[42] = 0;
+ /*clear *//*_.IFELSE___V82*/ meltfptr[43] = 0;
}
;
}
;
- /*_.IFELSE___V34*/ meltfptr[33] =
- /*_.IFELSE___V65*/ meltfptr[43];;
+ /*_.IFELSE___V35*/ meltfptr[34] =
+ /*_.IFELSE___V66*/ meltfptr[44];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2870:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2878:/ clear");
/*clear *//*_#__L20*/ meltfnum[14] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V65*/ meltfptr[43] = 0;
+ /*clear *//*_.IFELSE___V66*/ meltfptr[44] = 0;
}
;
}
;
- /*_.LET___V30*/ meltfptr[29] = /*_.IFELSE___V34*/ meltfptr[33];;
+ /*_.LET___V31*/ meltfptr[30] = /*_.IFELSE___V35*/ meltfptr[34];;
- MELT_LOCATION ("warmelt-macro.melt:2867:/ clear");
- /*clear *//*_.CURVAL__V31*/ meltfptr[30] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2875:/ clear");
+ /*clear *//*_.CURVAL__V32*/ meltfptr[31] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V32*/ meltfptr[31] = 0;
+ /*clear *//*_.PAIR_TAIL__V33*/ meltfptr[32] = 0;
/*^clear */
- /*clear *//*_.SETQ___V33*/ meltfptr[32] = 0;
+ /*clear *//*_.SETQ___V34*/ meltfptr[33] = 0;
/*^clear */
/*clear *//*_#__L8*/ meltfnum[7] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V34*/ meltfptr[33] = 0;
- /*_.LET___V26*/ meltfptr[25] = /*_.LET___V30*/ meltfptr[29];;
+ /*clear *//*_.IFELSE___V35*/ meltfptr[34] = 0;
+ /*_.LET___V27*/ meltfptr[26] = /*_.LET___V31*/ meltfptr[30];;
- MELT_LOCATION ("warmelt-macro.melt:2863:/ clear");
- /*clear *//*_.CURKW__V27*/ meltfptr[26] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2871:/ clear");
+ /*clear *//*_.CURKW__V28*/ meltfptr[27] = 0;
/*^clear */
/*clear *//*_#IS_A__L6*/ meltfnum[5] = 0;
/*^clear */
/*clear *//*_#NOT__L7*/ meltfnum[6] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V28*/ meltfptr[27] = 0;
+ /*clear *//*_.PAIR_TAIL__V29*/ meltfptr[28] = 0;
/*^clear */
- /*clear *//*_.SETQ___V29*/ meltfptr[28] = 0;
+ /*clear *//*_.SETQ___V30*/ meltfptr[29] = 0;
/*^clear */
- /*clear *//*_.LET___V30*/ meltfptr[29] = 0;
+ /*clear *//*_.LET___V31*/ meltfptr[30] = 0;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2861:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2869:/ clear");
/*clear *//*_#IS_PAIR__L4*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_#NOT__L5*/ meltfnum[4] = 0;
/*^clear */
- /*clear *//*_.LET___V26*/ meltfptr[25] = 0;
+ /*clear *//*_.LET___V27*/ meltfptr[26] = 0;
}
;
;
goto labloop_SCANLOOP_1;
labexit_SCANLOOP_1:; /*^loopepilog */
/*loopepilog */
- /*_.FOREVER___V24*/ meltfptr[23] = /*_.SCANLOOP__V25*/ meltfptr[24];;
+ /*_.FOREVER___V25*/ meltfptr[24] = /*_.SCANLOOP__V26*/ meltfptr[25];;
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2950:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2958:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -9803,7 +9887,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2950:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2958:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L34*/ meltfnum[10]) /*then */
{
/*^cond.then */
@@ -9813,7 +9897,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L35*/ meltfnum[11] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2950:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2958:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -9824,13 +9908,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2950;
+ argtab[2].meltbp_long = 2958;
/*^apply.arg */
argtab[3].meltbp_cstring = "scan_defclass returns symb";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.SYMB__V17*/ meltfptr[16];
- /*_.MELT_DEBUG_FUN__V93*/ meltfptr[44] =
+ (melt_ptr_t *) & /*_.SYMB__V18*/ meltfptr[17];
+ /*_.MELT_DEBUG_FUN__V94*/ meltfptr[45] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -9840,48 +9924,48 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V92*/ meltfptr[51] =
- /*_.MELT_DEBUG_FUN__V93*/ meltfptr[44];;
+ /*_.IF___V93*/ meltfptr[52] =
+ /*_.MELT_DEBUG_FUN__V94*/ meltfptr[45];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2950:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2958:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L35*/ meltfnum[11] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V93*/ meltfptr[44] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V94*/ meltfptr[45] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V92*/ meltfptr[51] = NULL;;
+ /*_.IF___V93*/ meltfptr[52] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2950:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2958:/ quasiblock");
- /*_.PROGN___V94*/ meltfptr[37] = /*_.IF___V92*/ meltfptr[51];;
+ /*_.PROGN___V95*/ meltfptr[38] = /*_.IF___V93*/ meltfptr[52];;
/*^compute */
- /*_.IFCPP___V91*/ meltfptr[41] = /*_.PROGN___V94*/ meltfptr[37];;
+ /*_.IFCPP___V92*/ meltfptr[42] = /*_.PROGN___V95*/ meltfptr[38];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2950:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2958:/ clear");
/*clear *//*_#MELT_NEED_DBG__L34*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.IF___V92*/ meltfptr[51] = 0;
+ /*clear *//*_.IF___V93*/ meltfptr[52] = 0;
/*^clear */
- /*clear *//*_.PROGN___V94*/ meltfptr[37] = 0;
+ /*clear *//*_.PROGN___V95*/ meltfptr[38] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V91*/ meltfptr[41] = ( /*nil */ NULL);
+ /*_.IFCPP___V92*/ meltfptr[42] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2951:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2959:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -9904,7 +9988,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2951:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2959:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L36*/ meltfnum[16]) /*then */
{
/*^cond.then */
@@ -9914,7 +9998,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L37*/ meltfnum[9] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2951:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2959:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -9925,13 +10009,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2951;
+ argtab[2].meltbp_long = 2959;
/*^apply.arg */
argtab[3].meltbp_cstring = "scan_defclass returns loc";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.LOC__V13*/ meltfptr[12];
- /*_.MELT_DEBUG_FUN__V97*/ meltfptr[52] =
+ (melt_ptr_t *) & /*_.LOC__V14*/ meltfptr[13];
+ /*_.MELT_DEBUG_FUN__V98*/ meltfptr[53] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -9941,48 +10025,48 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V96*/ meltfptr[50] =
- /*_.MELT_DEBUG_FUN__V97*/ meltfptr[52];;
+ /*_.IF___V97*/ meltfptr[51] =
+ /*_.MELT_DEBUG_FUN__V98*/ meltfptr[53];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2951:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2959:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L37*/ meltfnum[9] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V97*/ meltfptr[52] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V98*/ meltfptr[53] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V96*/ meltfptr[50] = NULL;;
+ /*_.IF___V97*/ meltfptr[51] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2951:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2959:/ quasiblock");
- /*_.PROGN___V98*/ meltfptr[45] = /*_.IF___V96*/ meltfptr[50];;
+ /*_.PROGN___V99*/ meltfptr[46] = /*_.IF___V97*/ meltfptr[51];;
/*^compute */
- /*_.IFCPP___V95*/ meltfptr[34] = /*_.PROGN___V98*/ meltfptr[45];;
+ /*_.IFCPP___V96*/ meltfptr[35] = /*_.PROGN___V99*/ meltfptr[46];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2951:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2959:/ clear");
/*clear *//*_#MELT_NEED_DBG__L36*/ meltfnum[16] = 0;
/*^clear */
- /*clear *//*_.IF___V96*/ meltfptr[50] = 0;
+ /*clear *//*_.IF___V97*/ meltfptr[51] = 0;
/*^clear */
- /*clear *//*_.PROGN___V98*/ meltfptr[45] = 0;
+ /*clear *//*_.PROGN___V99*/ meltfptr[46] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V95*/ meltfptr[34] = ( /*nil */ NULL);
+ /*_.IFCPP___V96*/ meltfptr[35] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2952:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2960:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -10005,7 +10089,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2952:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2960:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L38*/ meltfnum[26]) /*then */
{
/*^cond.then */
@@ -10015,7 +10099,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L39*/ meltfnum[8] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2952:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2960:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -10026,13 +10110,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2952;
+ argtab[2].meltbp_long = 2960;
/*^apply.arg */
argtab[3].meltbp_cstring = "scan_defclass returns supernam";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.SUPERNAM__V7*/ meltfptr[6];
- /*_.MELT_DEBUG_FUN__V101*/ meltfptr[43] =
+ (melt_ptr_t *) & /*_.SUPERNAM__V8*/ meltfptr[7];
+ /*_.MELT_DEBUG_FUN__V102*/ meltfptr[44] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -10042,48 +10126,48 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V100*/ meltfptr[42] =
- /*_.MELT_DEBUG_FUN__V101*/ meltfptr[43];;
+ /*_.IF___V101*/ meltfptr[43] =
+ /*_.MELT_DEBUG_FUN__V102*/ meltfptr[44];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2952:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2960:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L39*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V101*/ meltfptr[43] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V102*/ meltfptr[44] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V100*/ meltfptr[42] = NULL;;
+ /*_.IF___V101*/ meltfptr[43] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2952:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2960:/ quasiblock");
- /*_.PROGN___V102*/ meltfptr[30] = /*_.IF___V100*/ meltfptr[42];;
+ /*_.PROGN___V103*/ meltfptr[31] = /*_.IF___V101*/ meltfptr[43];;
/*^compute */
- /*_.IFCPP___V99*/ meltfptr[35] = /*_.PROGN___V102*/ meltfptr[30];;
+ /*_.IFCPP___V100*/ meltfptr[36] = /*_.PROGN___V103*/ meltfptr[31];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2952:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2960:/ clear");
/*clear *//*_#MELT_NEED_DBG__L38*/ meltfnum[26] = 0;
/*^clear */
- /*clear *//*_.IF___V100*/ meltfptr[42] = 0;
+ /*clear *//*_.IF___V101*/ meltfptr[43] = 0;
/*^clear */
- /*clear *//*_.PROGN___V102*/ meltfptr[30] = 0;
+ /*clear *//*_.PROGN___V103*/ meltfptr[31] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V99*/ meltfptr[35] = ( /*nil */ NULL);
+ /*_.IFCPP___V100*/ meltfptr[36] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2953:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2961:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -10106,7 +10190,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2953:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2961:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L40*/ meltfnum[14]) /*then */
{
/*^cond.then */
@@ -10116,7 +10200,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L41*/ meltfnum[7] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2953:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2961:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -10127,13 +10211,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2953;
+ argtab[2].meltbp_long = 2961;
/*^apply.arg */
argtab[3].meltbp_cstring = "scan_defclass returns superbinds";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.SUPERBIND__V8*/ meltfptr[7];
- /*_.MELT_DEBUG_FUN__V105*/ meltfptr[33] =
+ (melt_ptr_t *) & /*_.SUPERBIND__V9*/ meltfptr[8];
+ /*_.MELT_DEBUG_FUN__V106*/ meltfptr[34] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -10143,48 +10227,48 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V104*/ meltfptr[32] =
- /*_.MELT_DEBUG_FUN__V105*/ meltfptr[33];;
+ /*_.IF___V105*/ meltfptr[33] =
+ /*_.MELT_DEBUG_FUN__V106*/ meltfptr[34];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2953:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2961:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L41*/ meltfnum[7] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V105*/ meltfptr[33] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V106*/ meltfptr[34] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V104*/ meltfptr[32] = NULL;;
+ /*_.IF___V105*/ meltfptr[33] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2953:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2961:/ quasiblock");
- /*_.PROGN___V106*/ meltfptr[26] = /*_.IF___V104*/ meltfptr[32];;
+ /*_.PROGN___V107*/ meltfptr[27] = /*_.IF___V105*/ meltfptr[33];;
/*^compute */
- /*_.IFCPP___V103*/ meltfptr[31] = /*_.PROGN___V106*/ meltfptr[26];;
+ /*_.IFCPP___V104*/ meltfptr[32] = /*_.PROGN___V107*/ meltfptr[27];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2953:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2961:/ clear");
/*clear *//*_#MELT_NEED_DBG__L40*/ meltfnum[14] = 0;
/*^clear */
- /*clear *//*_.IF___V104*/ meltfptr[32] = 0;
+ /*clear *//*_.IF___V105*/ meltfptr[33] = 0;
/*^clear */
- /*clear *//*_.PROGN___V106*/ meltfptr[26] = 0;
+ /*clear *//*_.PROGN___V107*/ meltfptr[27] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V103*/ meltfptr[31] = ( /*nil */ NULL);
+ /*_.IFCPP___V104*/ meltfptr[32] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2954:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2962:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -10207,7 +10291,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2954:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2962:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L42*/ meltfnum[5]) /*then */
{
/*^cond.then */
@@ -10217,7 +10301,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L43*/ meltfnum[6] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2954:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2962:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -10228,13 +10312,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2954;
+ argtab[2].meltbp_long = 2962;
/*^apply.arg */
argtab[3].meltbp_cstring = "scan_defclass returns superclass";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.SUPERCLASS__V9*/ meltfptr[8];
- /*_.MELT_DEBUG_FUN__V109*/ meltfptr[29] =
+ (melt_ptr_t *) & /*_.SUPERCLASS__V10*/ meltfptr[9];
+ /*_.MELT_DEBUG_FUN__V110*/ meltfptr[30] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -10244,48 +10328,48 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V108*/ meltfptr[28] =
- /*_.MELT_DEBUG_FUN__V109*/ meltfptr[29];;
+ /*_.IF___V109*/ meltfptr[29] =
+ /*_.MELT_DEBUG_FUN__V110*/ meltfptr[30];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2954:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2962:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L43*/ meltfnum[6] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V109*/ meltfptr[29] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V110*/ meltfptr[30] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V108*/ meltfptr[28] = NULL;;
+ /*_.IF___V109*/ meltfptr[29] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2954:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2962:/ quasiblock");
- /*_.PROGN___V110*/ meltfptr[25] = /*_.IF___V108*/ meltfptr[28];;
+ /*_.PROGN___V111*/ meltfptr[26] = /*_.IF___V109*/ meltfptr[29];;
/*^compute */
- /*_.IFCPP___V107*/ meltfptr[27] = /*_.PROGN___V110*/ meltfptr[25];;
+ /*_.IFCPP___V108*/ meltfptr[28] = /*_.PROGN___V111*/ meltfptr[26];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2954:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2962:/ clear");
/*clear *//*_#MELT_NEED_DBG__L42*/ meltfnum[5] = 0;
/*^clear */
- /*clear *//*_.IF___V108*/ meltfptr[28] = 0;
+ /*clear *//*_.IF___V109*/ meltfptr[29] = 0;
/*^clear */
- /*clear *//*_.PROGN___V110*/ meltfptr[25] = 0;
+ /*clear *//*_.PROGN___V111*/ meltfptr[26] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V107*/ meltfptr[27] = ( /*nil */ NULL);
+ /*_.IFCPP___V108*/ meltfptr[28] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2955:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2963:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -10308,7 +10392,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2955:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2963:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L44*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -10318,7 +10402,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L45*/ meltfnum[4] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2955:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2963:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -10329,13 +10413,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2955;
+ argtab[2].meltbp_long = 2963;
/*^apply.arg */
argtab[3].meltbp_cstring = "scan_defclass returns predef";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.PREDEF__V6*/ meltfptr[5];
- /*_.MELT_DEBUG_FUN__V113*/ meltfptr[37] =
+ (melt_ptr_t *) & /*_.PREDEF__V7*/ meltfptr[6];
+ /*_.MELT_DEBUG_FUN__V114*/ meltfptr[38] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -10345,48 +10429,48 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V112*/ meltfptr[51] =
- /*_.MELT_DEBUG_FUN__V113*/ meltfptr[37];;
+ /*_.IF___V113*/ meltfptr[52] =
+ /*_.MELT_DEBUG_FUN__V114*/ meltfptr[38];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2955:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2963:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L45*/ meltfnum[4] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V113*/ meltfptr[37] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V114*/ meltfptr[38] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V112*/ meltfptr[51] = NULL;;
+ /*_.IF___V113*/ meltfptr[52] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2955:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2963:/ quasiblock");
- /*_.PROGN___V114*/ meltfptr[52] = /*_.IF___V112*/ meltfptr[51];;
+ /*_.PROGN___V115*/ meltfptr[53] = /*_.IF___V113*/ meltfptr[52];;
/*^compute */
- /*_.IFCPP___V111*/ meltfptr[44] = /*_.PROGN___V114*/ meltfptr[52];;
+ /*_.IFCPP___V112*/ meltfptr[45] = /*_.PROGN___V115*/ meltfptr[53];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2955:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2963:/ clear");
/*clear *//*_#MELT_NEED_DBG__L44*/ meltfnum[0] = 0;
/*^clear */
- /*clear *//*_.IF___V112*/ meltfptr[51] = 0;
+ /*clear *//*_.IF___V113*/ meltfptr[52] = 0;
/*^clear */
- /*clear *//*_.PROGN___V114*/ meltfptr[52] = 0;
+ /*clear *//*_.PROGN___V115*/ meltfptr[53] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V111*/ meltfptr[44] = ( /*nil */ NULL);
+ /*_.IFCPP___V112*/ meltfptr[45] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2956:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2964:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -10409,7 +10493,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2956:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2964:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L46*/ meltfnum[11]) /*then */
{
/*^cond.then */
@@ -10419,7 +10503,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L47*/ meltfnum[10] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2956:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2964:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -10430,13 +10514,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2956;
+ argtab[2].meltbp_long = 2964;
/*^apply.arg */
argtab[3].meltbp_cstring = "scan_defclass returns fieldnams";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.FIELDNAMS__V10*/ meltfptr[9];
- /*_.MELT_DEBUG_FUN__V117*/ meltfptr[43] =
+ (melt_ptr_t *) & /*_.FIELDNAMS__V11*/ meltfptr[10];
+ /*_.MELT_DEBUG_FUN__V118*/ meltfptr[44] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -10446,48 +10530,48 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V116*/ meltfptr[45] =
- /*_.MELT_DEBUG_FUN__V117*/ meltfptr[43];;
+ /*_.IF___V117*/ meltfptr[46] =
+ /*_.MELT_DEBUG_FUN__V118*/ meltfptr[44];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2956:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2964:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L47*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V117*/ meltfptr[43] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V118*/ meltfptr[44] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V116*/ meltfptr[45] = NULL;;
+ /*_.IF___V117*/ meltfptr[46] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2956:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2964:/ quasiblock");
- /*_.PROGN___V118*/ meltfptr[42] = /*_.IF___V116*/ meltfptr[45];;
+ /*_.PROGN___V119*/ meltfptr[43] = /*_.IF___V117*/ meltfptr[46];;
/*^compute */
- /*_.IFCPP___V115*/ meltfptr[50] = /*_.PROGN___V118*/ meltfptr[42];;
+ /*_.IFCPP___V116*/ meltfptr[51] = /*_.PROGN___V119*/ meltfptr[43];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2956:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2964:/ clear");
/*clear *//*_#MELT_NEED_DBG__L46*/ meltfnum[11] = 0;
/*^clear */
- /*clear *//*_.IF___V116*/ meltfptr[45] = 0;
+ /*clear *//*_.IF___V117*/ meltfptr[46] = 0;
/*^clear */
- /*clear *//*_.PROGN___V118*/ meltfptr[42] = 0;
+ /*clear *//*_.PROGN___V119*/ meltfptr[43] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V115*/ meltfptr[50] = ( /*nil */ NULL);
+ /*_.IFCPP___V116*/ meltfptr[51] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2957:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2965:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -10510,7 +10594,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2957:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2965:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L48*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -10520,7 +10604,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L49*/ meltfnum[16] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2957:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2965:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -10531,13 +10615,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2957;
+ argtab[2].meltbp_long = 2965;
/*^apply.arg */
argtab[3].meltbp_cstring = "scan_defclass returns fieldsloc";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.FIELDSLOC__V14*/ meltfptr[13];
- /*_.MELT_DEBUG_FUN__V121*/ meltfptr[32] =
+ (melt_ptr_t *) & /*_.FIELDSLOC__V15*/ meltfptr[14];
+ /*_.MELT_DEBUG_FUN__V122*/ meltfptr[33] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -10547,48 +10631,48 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V120*/ meltfptr[33] =
- /*_.MELT_DEBUG_FUN__V121*/ meltfptr[32];;
+ /*_.IF___V121*/ meltfptr[34] =
+ /*_.MELT_DEBUG_FUN__V122*/ meltfptr[33];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2957:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2965:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L49*/ meltfnum[16] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V121*/ meltfptr[32] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V122*/ meltfptr[33] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V120*/ meltfptr[33] = NULL;;
+ /*_.IF___V121*/ meltfptr[34] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2957:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2965:/ quasiblock");
- /*_.PROGN___V122*/ meltfptr[26] = /*_.IF___V120*/ meltfptr[33];;
+ /*_.PROGN___V123*/ meltfptr[27] = /*_.IF___V121*/ meltfptr[34];;
/*^compute */
- /*_.IFCPP___V119*/ meltfptr[30] = /*_.PROGN___V122*/ meltfptr[26];;
+ /*_.IFCPP___V120*/ meltfptr[31] = /*_.PROGN___V123*/ meltfptr[27];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2957:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2965:/ clear");
/*clear *//*_#MELT_NEED_DBG__L48*/ meltfnum[9] = 0;
/*^clear */
- /*clear *//*_.IF___V120*/ meltfptr[33] = 0;
+ /*clear *//*_.IF___V121*/ meltfptr[34] = 0;
/*^clear */
- /*clear *//*_.PROGN___V122*/ meltfptr[26] = 0;
+ /*clear *//*_.PROGN___V123*/ meltfptr[27] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V119*/ meltfptr[30] = ( /*nil */ NULL);
+ /*_.IFCPP___V120*/ meltfptr[31] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2958:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2966:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -10611,7 +10695,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2958:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2966:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L50*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -10621,7 +10705,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L51*/ meltfnum[26] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2958:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2966:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -10632,13 +10716,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2958;
+ argtab[2].meltbp_long = 2966;
/*^apply.arg */
argtab[3].meltbp_cstring = "scan_defclass returns docv";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.DOCV__V11*/ meltfptr[10];
- /*_.MELT_DEBUG_FUN__V125*/ meltfptr[25] =
+ (melt_ptr_t *) & /*_.DOCV__V12*/ meltfptr[11];
+ /*_.MELT_DEBUG_FUN__V126*/ meltfptr[26] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -10648,46 +10732,46 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V124*/ meltfptr[28] =
- /*_.MELT_DEBUG_FUN__V125*/ meltfptr[25];;
+ /*_.IF___V125*/ meltfptr[29] =
+ /*_.MELT_DEBUG_FUN__V126*/ meltfptr[26];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2958:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2966:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L51*/ meltfnum[26] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V125*/ meltfptr[25] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V126*/ meltfptr[26] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V124*/ meltfptr[28] = NULL;;
+ /*_.IF___V125*/ meltfptr[29] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2958:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2966:/ quasiblock");
- /*_.PROGN___V126*/ meltfptr[37] = /*_.IF___V124*/ meltfptr[28];;
+ /*_.PROGN___V127*/ meltfptr[38] = /*_.IF___V125*/ meltfptr[29];;
/*^compute */
- /*_.IFCPP___V123*/ meltfptr[29] = /*_.PROGN___V126*/ meltfptr[37];;
+ /*_.IFCPP___V124*/ meltfptr[30] = /*_.PROGN___V127*/ meltfptr[38];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2958:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2966:/ clear");
/*clear *//*_#MELT_NEED_DBG__L50*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_.IF___V124*/ meltfptr[28] = 0;
+ /*clear *//*_.IF___V125*/ meltfptr[29] = 0;
/*^clear */
- /*clear *//*_.PROGN___V126*/ meltfptr[37] = 0;
+ /*clear *//*_.PROGN___V127*/ meltfptr[38] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V123*/ meltfptr[29] = ( /*nil */ NULL);
+ /*_.IFCPP___V124*/ meltfptr[30] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:2959:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2967:/ apply");
/*apply */
{
union meltparam_un argtab[2];
@@ -10695,27 +10779,27 @@ lab_endgetargs:;
/*^apply.arg */
argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2];
/*^apply.arg */
- argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V13*/ meltfptr[12];
- /*_.WARN_IF_REDEFINED__V127*/ meltfptr[51] =
+ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V14*/ meltfptr[13];
+ /*_.WARN_IF_REDEFINED__V128*/ meltfptr[52] =
melt_apply ((meltclosure_ptr_t)
- (( /*!WARN_IF_REDEFINED */ meltfrout->tabval[14])),
- (melt_ptr_t) ( /*_.SYMB__V17*/ meltfptr[16]),
+ (( /*!WARN_IF_REDEFINED */ meltfrout->tabval[13])),
+ (melt_ptr_t) ( /*_.SYMB__V18*/ meltfptr[17]),
(MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:2960:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2968:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.SYMB__V17*/ meltfptr[16];;
- MELT_LOCATION ("warmelt-macro.melt:2960:/ putxtraresult");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.SYMB__V18*/ meltfptr[17];;
+ MELT_LOCATION ("warmelt-macro.melt:2968:/ putxtraresult");
if (!meltxrestab_ || !meltxresdescr_)
goto labend_rout;
if (meltxresdescr_[0] != MELTBPAR_PTR)
goto labend_rout;
if (meltxrestab_[0].meltbp_aptr)
*(meltxrestab_[0].meltbp_aptr) =
- (melt_ptr_t) ( /*_.LOC__V13*/ meltfptr[12]);
+ (melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]);
;
/*^putxtraresult */
if (!meltxrestab_ || !meltxresdescr_)
@@ -10724,7 +10808,7 @@ lab_endgetargs:;
goto labend_rout;
if (meltxrestab_[1].meltbp_aptr)
*(meltxrestab_[1].meltbp_aptr) =
- (melt_ptr_t) ( /*_.SUPERNAM__V7*/ meltfptr[6]);
+ (melt_ptr_t) ( /*_.SUPERNAM__V8*/ meltfptr[7]);
;
/*^putxtraresult */
if (!meltxrestab_ || !meltxresdescr_)
@@ -10733,7 +10817,7 @@ lab_endgetargs:;
goto labend_rout;
if (meltxrestab_[2].meltbp_aptr)
*(meltxrestab_[2].meltbp_aptr) =
- (melt_ptr_t) ( /*_.SUPERBIND__V8*/ meltfptr[7]);
+ (melt_ptr_t) ( /*_.SUPERBIND__V9*/ meltfptr[8]);
;
/*^putxtraresult */
if (!meltxrestab_ || !meltxresdescr_)
@@ -10742,7 +10826,7 @@ lab_endgetargs:;
goto labend_rout;
if (meltxrestab_[3].meltbp_aptr)
*(meltxrestab_[3].meltbp_aptr) =
- (melt_ptr_t) ( /*_.SUPERCLASS__V9*/ meltfptr[8]);
+ (melt_ptr_t) ( /*_.SUPERCLASS__V10*/ meltfptr[9]);
;
/*^putxtraresult */
if (!meltxrestab_ || !meltxresdescr_)
@@ -10751,7 +10835,7 @@ lab_endgetargs:;
goto labend_rout;
if (meltxrestab_[4].meltbp_aptr)
*(meltxrestab_[4].meltbp_aptr) =
- (melt_ptr_t) ( /*_.PREDEF__V6*/ meltfptr[5]);
+ (melt_ptr_t) ( /*_.PREDEF__V7*/ meltfptr[6]);
;
/*^putxtraresult */
if (!meltxrestab_ || !meltxresdescr_)
@@ -10760,7 +10844,7 @@ lab_endgetargs:;
goto labend_rout;
if (meltxrestab_[5].meltbp_aptr)
*(meltxrestab_[5].meltbp_aptr) =
- (melt_ptr_t) ( /*_.FIELDNAMS__V10*/ meltfptr[9]);
+ (melt_ptr_t) ( /*_.FIELDNAMS__V11*/ meltfptr[10]);
;
/*^putxtraresult */
if (!meltxrestab_ || !meltxresdescr_)
@@ -10769,7 +10853,7 @@ lab_endgetargs:;
goto labend_rout;
if (meltxrestab_[6].meltbp_aptr)
*(meltxrestab_[6].meltbp_aptr) =
- (melt_ptr_t) ( /*_.FIELDSLOC__V14*/ meltfptr[13]);
+ (melt_ptr_t) ( /*_.FIELDSLOC__V15*/ meltfptr[14]);
;
/*^putxtraresult */
if (!meltxrestab_ || !meltxresdescr_)
@@ -10778,80 +10862,80 @@ lab_endgetargs:;
goto labend_rout;
if (meltxrestab_[7].meltbp_aptr)
*(meltxrestab_[7].meltbp_aptr) =
- (melt_ptr_t) ( /*_.DOCV__V11*/ meltfptr[10]);
+ (melt_ptr_t) ( /*_.DOCV__V12*/ meltfptr[11]);
;
/*^finalreturn */
;
/*finalret */ goto labend_rout;
- /*_.LET___V5*/ meltfptr[4] = /*_.RETURN___V128*/ meltfptr[52];;
+ /*_.LET___V6*/ meltfptr[5] = /*_.RETURN___V129*/ meltfptr[53];;
- MELT_LOCATION ("warmelt-macro.melt:2845:/ clear");
- /*clear *//*_.PREDEF__V6*/ meltfptr[5] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2853:/ clear");
+ /*clear *//*_.PREDEF__V7*/ meltfptr[6] = 0;
/*^clear */
- /*clear *//*_.SUPERNAM__V7*/ meltfptr[6] = 0;
+ /*clear *//*_.SUPERNAM__V8*/ meltfptr[7] = 0;
/*^clear */
- /*clear *//*_.SUPERBIND__V8*/ meltfptr[7] = 0;
+ /*clear *//*_.SUPERBIND__V9*/ meltfptr[8] = 0;
/*^clear */
- /*clear *//*_.SUPERCLASS__V9*/ meltfptr[8] = 0;
+ /*clear *//*_.SUPERCLASS__V10*/ meltfptr[9] = 0;
/*^clear */
- /*clear *//*_.FIELDNAMS__V10*/ meltfptr[9] = 0;
+ /*clear *//*_.FIELDNAMS__V11*/ meltfptr[10] = 0;
/*^clear */
- /*clear *//*_.DOCV__V11*/ meltfptr[10] = 0;
+ /*clear *//*_.DOCV__V12*/ meltfptr[11] = 0;
/*^clear */
- /*clear *//*_.CONT__V12*/ meltfptr[11] = 0;
+ /*clear *//*_.CONT__V13*/ meltfptr[12] = 0;
/*^clear */
- /*clear *//*_.LOC__V13*/ meltfptr[12] = 0;
+ /*clear *//*_.LOC__V14*/ meltfptr[13] = 0;
/*^clear */
- /*clear *//*_.FIELDSLOC__V14*/ meltfptr[13] = 0;
+ /*clear *//*_.FIELDSLOC__V15*/ meltfptr[14] = 0;
/*^clear */
- /*clear *//*_.LIST_FIRST__V15*/ meltfptr[14] = 0;
+ /*clear *//*_.LIST_FIRST__V16*/ meltfptr[15] = 0;
/*^clear */
- /*clear *//*_.CURPAIR__V16*/ meltfptr[15] = 0;
+ /*clear *//*_.CURPAIR__V17*/ meltfptr[16] = 0;
/*^clear */
- /*clear *//*_.SYMB__V17*/ meltfptr[16] = 0;
+ /*clear *//*_.SYMB__V18*/ meltfptr[17] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V18*/ meltfptr[17] = 0;
+ /*clear *//*_.IFCPP___V19*/ meltfptr[18] = 0;
/*^clear */
/*clear *//*_#IS_NOT_A__L3*/ meltfnum[1] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V22*/ meltfptr[18] = 0;
+ /*clear *//*_.PAIR_TAIL__V23*/ meltfptr[19] = 0;
/*^clear */
- /*clear *//*_.SETQ___V23*/ meltfptr[19] = 0;
+ /*clear *//*_.SETQ___V24*/ meltfptr[20] = 0;
/*^clear */
- /*clear *//*_.FOREVER___V24*/ meltfptr[23] = 0;
+ /*clear *//*_.FOREVER___V25*/ meltfptr[24] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V91*/ meltfptr[41] = 0;
+ /*clear *//*_.IFCPP___V92*/ meltfptr[42] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V95*/ meltfptr[34] = 0;
+ /*clear *//*_.IFCPP___V96*/ meltfptr[35] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V99*/ meltfptr[35] = 0;
+ /*clear *//*_.IFCPP___V100*/ meltfptr[36] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V103*/ meltfptr[31] = 0;
+ /*clear *//*_.IFCPP___V104*/ meltfptr[32] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V107*/ meltfptr[27] = 0;
+ /*clear *//*_.IFCPP___V108*/ meltfptr[28] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V111*/ meltfptr[44] = 0;
+ /*clear *//*_.IFCPP___V112*/ meltfptr[45] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V115*/ meltfptr[50] = 0;
+ /*clear *//*_.IFCPP___V116*/ meltfptr[51] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V119*/ meltfptr[30] = 0;
+ /*clear *//*_.IFCPP___V120*/ meltfptr[31] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V123*/ meltfptr[29] = 0;
+ /*clear *//*_.IFCPP___V124*/ meltfptr[30] = 0;
/*^clear */
- /*clear *//*_.WARN_IF_REDEFINED__V127*/ meltfptr[51] = 0;
+ /*clear *//*_.WARN_IF_REDEFINED__V128*/ meltfptr[52] = 0;
/*^clear */
- /*clear *//*_.RETURN___V128*/ meltfptr[52] = 0;
- MELT_LOCATION ("warmelt-macro.melt:2844:/ quasiblock");
+ /*clear *//*_.RETURN___V129*/ meltfptr[53] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:2852:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[4];;
- MELT_LOCATION ("warmelt-macro.melt:2844:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[5];;
+ MELT_LOCATION ("warmelt-macro.melt:2852:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
/*^clear */
- /*clear *//*_.LET___V5*/ meltfptr[4] = 0;
+ /*clear *//*_.LET___V6*/ meltfptr[5] = 0;
}
;
@@ -10929,7 +11013,7 @@ meltrout_44_warmelt_macro_MEXPAND_DEFCLASS (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:2964:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:2972:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -10970,7 +11054,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2965:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2973:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -10979,7 +11063,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:2965:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2973:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -10987,7 +11071,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:2965:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:2973:/ cond.else");
/*^block */
/*anyblock */
@@ -11001,7 +11085,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (2965) ? (2965) : __LINE__, __FUNCTION__);
+ (2973) ? (2973) : __LINE__, __FUNCTION__);
;
}
;
@@ -11016,7 +11100,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2965:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2973:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -11029,7 +11113,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2966:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2974:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -11038,7 +11122,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:2966:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2974:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -11046,7 +11130,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:2966:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:2974:/ cond.else");
/*^block */
/*anyblock */
@@ -11060,7 +11144,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (2966) ? (2966) : __LINE__, __FUNCTION__);
+ (2974) ? (2974) : __LINE__, __FUNCTION__);
;
}
;
@@ -11075,7 +11159,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2966:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2974:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -11088,7 +11172,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2967:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2975:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -11111,7 +11195,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2967:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2975:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -11121,7 +11205,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2967:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2975:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -11131,7 +11215,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2967;
+ argtab[2].meltbp_long = 2975;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.defclass sexpr";
/*^apply.arg */
@@ -11151,7 +11235,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2967:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2975:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0;
@@ -11164,7 +11248,7 @@ lab_endgetargs:;
/*_.IF___V11*/ meltfptr[10] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2967:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2975:/ quasiblock");
/*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];;
@@ -11173,7 +11257,7 @@ lab_endgetargs:;
/*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2967:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2975:/ clear");
/*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V11*/ meltfptr[10] = 0;
@@ -11186,21 +11270,21 @@ lab_endgetargs:;
/*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:2968:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2976:/ quasiblock");
/*^multiapply */
- /*multiapply 3args, 8x.res */
+ /*multiapply 4args, 8x.res */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
union meltparam_un restab[8];
memset (&restab, 0, sizeof (restab));
memset (&argtab, 0, sizeof (argtab));
/*^multiapply.arg */
argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^multiapply.arg */
- argtab[1].meltbp_aptr =
- (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
+ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^multiapply.arg */
+ argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
/*^multiapply.xres */
restab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V16*/ meltfptr[15];
/*^multiapply.xres */
@@ -11227,7 +11311,8 @@ lab_endgetargs:;
melt_apply ((meltclosure_ptr_t)
(( /*!SCAN_DEFCLASS */ meltfrout->tabval[3])),
(melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab,
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab,
(MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
MELTBPARSTR_PTR MELTBPARSTR_PTR ""), restab);
@@ -11238,7 +11323,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2971:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2979:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -11261,7 +11346,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2971:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2979:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -11271,7 +11356,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2971:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2979:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -11281,7 +11366,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2971;
+ argtab[2].meltbp_long = 2979;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.defclass scanned symb";
/*^apply.arg */
@@ -11301,7 +11386,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2971:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2979:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0;
@@ -11314,7 +11399,7 @@ lab_endgetargs:;
/*_.IF___V25*/ meltfptr[24] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2971:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2979:/ quasiblock");
/*_.PROGN___V27*/ meltfptr[25] = /*_.IF___V25*/ meltfptr[24];;
@@ -11323,7 +11408,7 @@ lab_endgetargs:;
/*_.IFCPP___V24*/ meltfptr[23] = /*_.PROGN___V27*/ meltfptr[25];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2971:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2979:/ clear");
/*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.IF___V25*/ meltfptr[24] = 0;
@@ -11338,7 +11423,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2972:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2980:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -11361,7 +11446,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2972:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2980:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -11371,7 +11456,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L8*/ meltfnum[3] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2972:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2980:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -11381,7 +11466,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2972;
+ argtab[2].meltbp_long = 2980;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.defclass scanned loc";
/*^apply.arg */
@@ -11401,7 +11486,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2972:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2980:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0;
@@ -11414,7 +11499,7 @@ lab_endgetargs:;
/*_.IF___V29*/ meltfptr[25] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2972:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2980:/ quasiblock");
/*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[25];;
@@ -11423,7 +11508,7 @@ lab_endgetargs:;
/*_.IFCPP___V28*/ meltfptr[24] = /*_.PROGN___V31*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2972:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2980:/ clear");
/*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V29*/ meltfptr[25] = 0;
@@ -11438,7 +11523,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2973:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2981:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -11461,7 +11546,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2973:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2981:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -11471,7 +11556,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2973:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2981:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -11482,7 +11567,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2973;
+ argtab[2].meltbp_long = 2981;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.defclass scanned supernam";
/*^apply.arg */
@@ -11502,7 +11587,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V34*/ meltfptr[33];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2973:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2981:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V34*/ meltfptr[33] = 0;
@@ -11515,7 +11600,7 @@ lab_endgetargs:;
/*_.IF___V33*/ meltfptr[29] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2973:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2981:/ quasiblock");
/*_.PROGN___V35*/ meltfptr[33] = /*_.IF___V33*/ meltfptr[29];;
@@ -11524,7 +11609,7 @@ lab_endgetargs:;
/*_.IFCPP___V32*/ meltfptr[25] = /*_.PROGN___V35*/ meltfptr[33];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2973:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2981:/ clear");
/*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.IF___V33*/ meltfptr[29] = 0;
@@ -11539,7 +11624,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2974:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2982:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -11562,7 +11647,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2974:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2982:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -11572,7 +11657,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L12*/ meltfnum[3] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2974:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2982:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -11583,7 +11668,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2974;
+ argtab[2].meltbp_long = 2982;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.defclass scanned superbind";
/*^apply.arg */
@@ -11603,7 +11688,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V38*/ meltfptr[37];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2974:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2982:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V38*/ meltfptr[37] = 0;
@@ -11616,7 +11701,7 @@ lab_endgetargs:;
/*_.IF___V37*/ meltfptr[33] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2974:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2982:/ quasiblock");
/*_.PROGN___V39*/ meltfptr[37] = /*_.IF___V37*/ meltfptr[33];;
@@ -11625,7 +11710,7 @@ lab_endgetargs:;
/*_.IFCPP___V36*/ meltfptr[29] = /*_.PROGN___V39*/ meltfptr[37];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2974:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2982:/ clear");
/*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V37*/ meltfptr[33] = 0;
@@ -11640,7 +11725,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2975:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2983:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -11663,7 +11748,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2975:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2983:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -11673,7 +11758,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L14*/ meltfnum[0] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2975:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2983:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -11684,7 +11769,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2975;
+ argtab[2].meltbp_long = 2983;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.defclass scanned superclass";
/*^apply.arg */
@@ -11704,7 +11789,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V42*/ meltfptr[41];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2975:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2983:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V42*/ meltfptr[41] = 0;
@@ -11717,7 +11802,7 @@ lab_endgetargs:;
/*_.IF___V41*/ meltfptr[37] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2975:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2983:/ quasiblock");
/*_.PROGN___V43*/ meltfptr[41] = /*_.IF___V41*/ meltfptr[37];;
@@ -11726,7 +11811,7 @@ lab_endgetargs:;
/*_.IFCPP___V40*/ meltfptr[33] = /*_.PROGN___V43*/ meltfptr[41];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2975:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2983:/ clear");
/*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.IF___V41*/ meltfptr[37] = 0;
@@ -11741,7 +11826,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2976:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2984:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -11764,7 +11849,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2976:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2984:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -11774,7 +11859,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L16*/ meltfnum[3] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2976:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2984:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -11785,7 +11870,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2976;
+ argtab[2].meltbp_long = 2984;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.defclass scanned predef";
/*^apply.arg */
@@ -11805,7 +11890,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2976:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2984:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 0;
@@ -11818,7 +11903,7 @@ lab_endgetargs:;
/*_.IF___V45*/ meltfptr[41] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2976:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2984:/ quasiblock");
/*_.PROGN___V47*/ meltfptr[45] = /*_.IF___V45*/ meltfptr[41];;
@@ -11827,7 +11912,7 @@ lab_endgetargs:;
/*_.IFCPP___V44*/ meltfptr[37] = /*_.PROGN___V47*/ meltfptr[45];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2976:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2984:/ clear");
/*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V45*/ meltfptr[41] = 0;
@@ -11842,7 +11927,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2977:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2985:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -11865,7 +11950,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2977:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2985:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -11875,7 +11960,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L18*/ meltfnum[0] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2977:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2985:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -11886,7 +11971,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2977;
+ argtab[2].meltbp_long = 2985;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.defclass scanned fieldnams";
/*^apply.arg */
@@ -11906,7 +11991,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V50*/ meltfptr[49];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2977:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2985:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = 0;
@@ -11919,7 +12004,7 @@ lab_endgetargs:;
/*_.IF___V49*/ meltfptr[45] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2977:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2985:/ quasiblock");
/*_.PROGN___V51*/ meltfptr[49] = /*_.IF___V49*/ meltfptr[45];;
@@ -11928,7 +12013,7 @@ lab_endgetargs:;
/*_.IFCPP___V48*/ meltfptr[41] = /*_.PROGN___V51*/ meltfptr[49];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2977:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2985:/ clear");
/*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.IF___V49*/ meltfptr[45] = 0;
@@ -11943,7 +12028,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2978:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2986:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -11966,7 +12051,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2978:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2986:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -11976,7 +12061,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L20*/ meltfnum[3] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2978:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2986:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -11987,7 +12072,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2978;
+ argtab[2].meltbp_long = 2986;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.defclass scanned fieldsloc";
/*^apply.arg */
@@ -12007,7 +12092,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V54*/ meltfptr[53];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2978:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2986:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V54*/ meltfptr[53] = 0;
@@ -12020,7 +12105,7 @@ lab_endgetargs:;
/*_.IF___V53*/ meltfptr[49] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2978:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2986:/ quasiblock");
/*_.PROGN___V55*/ meltfptr[53] = /*_.IF___V53*/ meltfptr[49];;
@@ -12029,7 +12114,7 @@ lab_endgetargs:;
/*_.IFCPP___V52*/ meltfptr[45] = /*_.PROGN___V55*/ meltfptr[53];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2978:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2986:/ clear");
/*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V53*/ meltfptr[49] = 0;
@@ -12044,7 +12129,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2979:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2987:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -12067,7 +12152,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:2979:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2987:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -12077,7 +12162,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L22*/ meltfnum[0] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:2979:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:2987:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -12088,7 +12173,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 2979;
+ argtab[2].meltbp_long = 2987;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.defclass scanned docv";
/*^apply.arg */
@@ -12108,7 +12193,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V58*/ meltfptr[57];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2979:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2987:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = 0;
@@ -12121,7 +12206,7 @@ lab_endgetargs:;
/*_.IF___V57*/ meltfptr[53] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:2979:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2987:/ quasiblock");
/*_.PROGN___V59*/ meltfptr[57] = /*_.IF___V57*/ meltfptr[53];;
@@ -12130,7 +12215,7 @@ lab_endgetargs:;
/*_.IFCPP___V56*/ meltfptr[49] = /*_.PROGN___V59*/ meltfptr[57];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2979:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2987:/ clear");
/*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.IF___V57*/ meltfptr[53] = 0;
@@ -12145,7 +12230,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2980:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:2988:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -12154,7 +12239,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V15*/ meltfptr[11]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
tabval[4])));;
- MELT_LOCATION ("warmelt-macro.melt:2980:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2988:/ cond");
/*cond */ if ( /*_#IS_A__L23*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -12162,7 +12247,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:2980:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:2988:/ cond.else");
/*^block */
/*anyblock */
@@ -12176,7 +12261,7 @@ lab_endgetargs:;
melt_assert_failed (("check symb"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (2980) ? (2980) : __LINE__, __FUNCTION__);
+ (2988) ? (2988) : __LINE__, __FUNCTION__);
;
}
;
@@ -12191,7 +12276,7 @@ lab_endgetargs:;
/*_.IFCPP___V60*/ meltfptr[53] = /*_.IFELSE___V61*/ meltfptr[57];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2980:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2988:/ clear");
/*clear *//*_#IS_A__L23*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V61*/ meltfptr[57] = 0;
@@ -12206,7 +12291,7 @@ lab_endgetargs:;
/*_#NULL__L24*/ meltfnum[3] =
(( /*_.PREDEF__V20*/ meltfptr[19]) == NULL);;
- MELT_LOCATION ("warmelt-macro.melt:2981:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2989:/ cond");
/*cond */ if ( /*_#NULL__L24*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -12216,7 +12301,7 @@ lab_endgetargs:;
/*_#NULL__L25*/ meltfnum[0] =
(( /*_.SUPERCLASS__V19*/ meltfptr[18]) == NULL);;
- MELT_LOCATION ("warmelt-macro.melt:2981:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2989:/ cond");
/*cond */ if ( /*_#NULL__L25*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -12224,7 +12309,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2985:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:2993:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SYMB__V15*/ meltfptr[11]), 1, "NAMED_NAME");
@@ -12234,7 +12319,7 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:2983:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:2991:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
("DEFCLASS of a non-predefined class without superclass"),
(melt_ptr_t) ( /*_.NAMED_NAME__V62*/
@@ -12243,7 +12328,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2981:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2989:/ clear");
/*clear *//*_.NAMED_NAME__V62*/ meltfptr[57] = 0;
}
;
@@ -12257,13 +12342,13 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:2987:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2995:/ quasiblock");
/*_#IS_OBJECT__L26*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.SUPERCLASS__V19*/ meltfptr[18]))
== MELTOBMAG_OBJECT);;
- MELT_LOCATION ("warmelt-macro.melt:2988:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:2996:/ cond");
/*cond */ if ( /*_#IS_OBJECT__L26*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -12271,7 +12356,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:2989:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2997:/ quasiblock");
/*^getslot */
@@ -12301,7 +12386,7 @@ lab_endgetargs:;
/*_#IX__L29*/ meltfnum[28] = 0;;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2994:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3002:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -12311,7 +12396,7 @@ lab_endgetargs:;
( /*_.SUPERCLASS__V19*/ meltfptr[18]),
(melt_ptr_t) (( /*!CLASS_CLASS */
meltfrout->tabval[6])));;
- MELT_LOCATION ("warmelt-macro.melt:2994:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3002:/ cond");
/*cond */ if ( /*_#IS_A__L30*/ meltfnum[29]) /*then */
{
/*^cond.then */
@@ -12319,7 +12404,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:2994:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3002:/ cond.else");
/*^block */
/*anyblock */
@@ -12333,7 +12418,7 @@ lab_endgetargs:;
melt_assert_failed (("check superclass"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (2994) ? (2994) : __LINE__,
+ (3002) ? (3002) : __LINE__,
__FUNCTION__);
;
}
@@ -12349,7 +12434,7 @@ lab_endgetargs:;
/*_.IFCPP___V68*/ meltfptr[67] = /*_.IFELSE___V69*/ meltfptr[68];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2994:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3002:/ clear");
/*clear *//*_#IS_A__L30*/ meltfnum[29] = 0;
/*^clear */
/*clear *//*_.IFELSE___V69*/ meltfptr[68] = 0;
@@ -12362,7 +12447,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:2995:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3003:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -12371,7 +12456,7 @@ lab_endgetargs:;
(melt_magic_discr
((melt_ptr_t) ( /*_.SUPERANCESTORS__V66*/ meltfptr[65])) ==
MELTOBMAG_MULTIPLE);;
- MELT_LOCATION ("warmelt-macro.melt:2995:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3003:/ cond");
/*cond */ if ( /*_#IS_MULTIPLE__L31*/ meltfnum[29]) /*then */
{
/*^cond.then */
@@ -12379,7 +12464,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:2995:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3003:/ cond.else");
/*^block */
/*anyblock */
@@ -12393,7 +12478,7 @@ lab_endgetargs:;
melt_assert_failed (("check superancestors"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (2995) ? (2995) : __LINE__,
+ (3003) ? (3003) : __LINE__,
__FUNCTION__);
;
}
@@ -12409,7 +12494,7 @@ lab_endgetargs:;
/*_.IFCPP___V70*/ meltfptr[68] = /*_.IFELSE___V71*/ meltfptr[70];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2995:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3003:/ clear");
/*clear *//*_#IS_MULTIPLE__L31*/ meltfnum[29] = 0;
/*^clear */
/*clear *//*_.IFELSE___V71*/ meltfptr[70] = 0;
@@ -12420,7 +12505,7 @@ lab_endgetargs:;
/*_.IFCPP___V70*/ meltfptr[68] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:2996:/ loop");
+ MELT_LOCATION ("warmelt-macro.melt:3004:/ loop");
/*loop */
{
labloop_ANCLOOP_1:; /*^loopbody */
@@ -12432,7 +12517,7 @@ lab_endgetargs:;
/*_#I__L32*/ meltfnum[29] =
(( /*_#IX__L29*/ meltfnum[28]) >=
( /*_#NBSUPERANC__L27*/ meltfnum[26]));;
- MELT_LOCATION ("warmelt-macro.melt:2997:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3005:/ cond");
/*cond */ if ( /*_#I__L32*/ meltfnum[29]) /*then */
{
/*^cond.then */
@@ -12463,7 +12548,7 @@ lab_endgetargs:;
( /*_#IX__L29*/ meltfnum[28])));;
{
- MELT_LOCATION ("warmelt-macro.melt:2998:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3006:/ locexp");
meltgc_multiple_put_nth ((melt_ptr_t)
( /*_.ANCTUPLE__V67*/ meltfptr[66]),
( /*_#IX__L29*/ meltfnum[28]),
@@ -12472,12 +12557,12 @@ lab_endgetargs:;
;
/*_#I__L33*/ meltfnum[32] =
(( /*_#IX__L29*/ meltfnum[28]) + (1));;
- MELT_LOCATION ("warmelt-macro.melt:2999:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3007:/ compute");
/*_#IX__L29*/ meltfnum[28] = /*_#SETQ___L34*/ meltfnum[33] =
/*_#I__L33*/ meltfnum[32];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2996:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3004:/ clear");
/*clear *//*_#I__L32*/ meltfnum[29] = 0;
/*^clear */
/*clear *//*_.MULTIPLE_NTH__V74*/ meltfptr[73] = 0;
@@ -12497,7 +12582,7 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3001:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3009:/ locexp");
meltgc_multiple_put_nth ((melt_ptr_t)
( /*_.ANCTUPLE__V67*/ meltfptr[66]),
( /*_#NBSUPERANC__L27*/ meltfnum[26]),
@@ -12507,7 +12592,7 @@ lab_endgetargs:;
;
/*_.LET___V65*/ meltfptr[64] = /*_.ANCTUPLE__V67*/ meltfptr[66];;
- MELT_LOCATION ("warmelt-macro.melt:2989:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2997:/ clear");
/*clear *//*_.SUPERANCESTORS__V66*/ meltfptr[65] = 0;
/*^clear */
/*clear *//*_#NBSUPERANC__L27*/ meltfnum[26] = 0;
@@ -12526,7 +12611,7 @@ lab_endgetargs:;
/*_.ANCESTORS__V64*/ meltfptr[63] = /*_.LET___V65*/ meltfptr[64];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2988:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2996:/ clear");
/*clear *//*_.LET___V65*/ meltfptr[64] = 0;
}
;
@@ -12548,7 +12633,7 @@ lab_endgetargs:;
/*_.MAKE_MULTIPLE__V75*/ meltfptr[73];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:2988:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2996:/ clear");
/*clear *//*_.MAKE_MULTIPLE__V75*/ meltfptr[73] = 0;
}
;
@@ -12557,7 +12642,7 @@ lab_endgetargs:;
/*_#IS_OBJECT__L35*/ meltfnum[29] =
(melt_magic_discr ((melt_ptr_t) ( /*_.SUPERCLASS__V19*/ meltfptr[18]))
== MELTOBMAG_OBJECT);;
- MELT_LOCATION ("warmelt-macro.melt:3005:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3013:/ cond");
/*cond */ if ( /*_#IS_OBJECT__L35*/ meltfnum[29]) /*then */
{
/*^cond.then */
@@ -12565,7 +12650,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3006:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3014:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SUPERCLASS__V19*/ meltfptr[18]), 6, "CLASS_FIELDS");
@@ -12577,7 +12662,7 @@ lab_endgetargs:;
/*_.CLASS_FIELDS__V77*/ meltfptr[66];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3005:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3013:/ clear");
/*clear *//*_.CLASS_FIELDS__V77*/ meltfptr[66] = 0;
}
;
@@ -12641,7 +12726,7 @@ lab_endgetargs:;
(meltgc_new_multiple
((meltobject_ptr_t) (( /*!DISCR_MULTIPLE */ meltfrout->tabval[10])),
( /*_#NBFIELDNAMES__L37*/ meltfnum[33])));;
- MELT_LOCATION ("warmelt-macro.melt:3014:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3022:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SYMB__V15*/ meltfptr[11]), 1, "NAMED_NAME");
@@ -12649,7 +12734,7 @@ lab_endgetargs:;
meltfptr[73] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3013:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3021:/ quasiblock");
/*^rawallocobj */
@@ -12684,7 +12769,7 @@ lab_endgetargs:;
"CLASS_ANCESTORS");
;
/*_.NEWCLASS__V83*/ meltfptr[66] = /*_.INST__V84*/ meltfptr[83];;
- MELT_LOCATION ("warmelt-macro.melt:3018:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3026:/ quasiblock");
/*^rawallocobj */
@@ -12718,7 +12803,7 @@ lab_endgetargs:;
( /*_.NEWCLASS__V83*/ meltfptr[66]), "CBIND_CLASS");
;
/*_.CLABIND__V85*/ meltfptr[84] = /*_.INST__V86*/ meltfptr[85];;
- MELT_LOCATION ("warmelt-macro.melt:3022:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3030:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -12736,7 +12821,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3023:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3031:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -12759,7 +12844,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3023:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3031:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L42*/ meltfnum[41]) /*then */
{
/*^cond.then */
@@ -12769,7 +12854,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L43*/ meltfnum[42] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3023:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3031:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -12780,7 +12865,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3023;
+ argtab[2].meltbp_long = 3031;
/*^apply.arg */
argtab[3].meltbp_cstring = "expdefclas superfields";
/*^apply.arg */
@@ -12800,7 +12885,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V90*/ meltfptr[89];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3023:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3031:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L43*/ meltfnum[42] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V90*/ meltfptr[89] = 0;
@@ -12813,7 +12898,7 @@ lab_endgetargs:;
/*_.IF___V89*/ meltfptr[88] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3023:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3031:/ quasiblock");
/*_.PROGN___V91*/ meltfptr[89] = /*_.IF___V89*/ meltfptr[88];;
@@ -12822,7 +12907,7 @@ lab_endgetargs:;
/*_.IFCPP___V88*/ meltfptr[87] = /*_.PROGN___V91*/ meltfptr[89];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3023:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3031:/ clear");
/*clear *//*_#MELT_NEED_DBG__L42*/ meltfnum[41] = 0;
/*^clear */
/*clear *//*_.IF___V89*/ meltfptr[88] = 0;
@@ -12835,7 +12920,7 @@ lab_endgetargs:;
/*_.IFCPP___V88*/ meltfptr[87] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3026:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3034:/ quasiblock");
/*^newclosure */
@@ -12872,7 +12957,7 @@ lab_endgetargs:;
(melt_ptr_t) ( /*_.FIELDSTRMAP__V79*/ meltfptr[68]);
;
/*_.LAMBDA___V92*/ meltfptr[88] = /*_.LAMBDA___V93*/ meltfptr[89];;
- MELT_LOCATION ("warmelt-macro.melt:3024:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3032:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -12888,7 +12973,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3035:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3043:/ quasiblock");
/*^newclosure */
@@ -13029,7 +13114,7 @@ lab_endgetargs:;
(melt_ptr_t) ( /*_.OWNFIELDBINDINGS__V81*/ meltfptr[64]);
;
/*_.LAMBDA___V95*/ meltfptr[94] = /*_.LAMBDA___V96*/ meltfptr[95];;
- MELT_LOCATION ("warmelt-macro.melt:3033:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3041:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -13045,7 +13130,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3085:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3093:/ quasiblock");
/*^putslot */
@@ -13064,7 +13149,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3089:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3097:/ locexp");
((meltobject_ptr_t) /*_.NEWCLASS__V83*/ meltfptr[66])->obj_num =
MELTOBMAG_OBJECT;
;
@@ -13072,7 +13157,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3091:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3099:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -13095,7 +13180,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3091:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3099:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L44*/ meltfnum[42]) /*then */
{
/*^cond.then */
@@ -13105,7 +13190,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L45*/ meltfnum[41] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3091:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3099:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -13116,7 +13201,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3091;
+ argtab[2].meltbp_long = 3099;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.defclass newclass=";
/*^apply.arg */
@@ -13136,7 +13221,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V100*/ meltfptr[99];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3091:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3099:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L45*/ meltfnum[41] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V100*/ meltfptr[99] = 0;
@@ -13149,7 +13234,7 @@ lab_endgetargs:;
/*_.IF___V99*/ meltfptr[98] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3091:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3099:/ quasiblock");
/*_.PROGN___V101*/ meltfptr[99] = /*_.IF___V99*/ meltfptr[98];;
@@ -13158,7 +13243,7 @@ lab_endgetargs:;
/*_.IFCPP___V98*/ meltfptr[97] = /*_.PROGN___V101*/ meltfptr[99];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3091:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3099:/ clear");
/*clear *//*_#MELT_NEED_DBG__L44*/ meltfnum[42] = 0;
/*^clear */
/*clear *//*_.IF___V99*/ meltfptr[98] = 0;
@@ -13171,7 +13256,7 @@ lab_endgetargs:;
/*_.IFCPP___V98*/ meltfptr[97] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3092:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3100:/ quasiblock");
/*^rawallocobj */
@@ -13257,7 +13342,7 @@ lab_endgetargs:;
/*_.LET___V63*/ meltfptr[57] = /*_.INST___V102*/ meltfptr[98];;
- MELT_LOCATION ("warmelt-macro.melt:2987:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2995:/ clear");
/*clear *//*_#IS_OBJECT__L26*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.ANCESTORS__V64*/ meltfptr[63] = 0;
@@ -13309,7 +13394,7 @@ lab_endgetargs:;
/*clear *//*_.INST___V102*/ meltfptr[98] = 0;
/*_.MULTI___V14*/ meltfptr[10] = /*_.LET___V63*/ meltfptr[57];;
- MELT_LOCATION ("warmelt-macro.melt:2968:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:2976:/ clear");
/*clear *//*_.IFCPP___V24*/ meltfptr[23] = 0;
/*^clear */
/*clear *//*_.IFCPP___V28*/ meltfptr[24] = 0;
@@ -13350,11 +13435,11 @@ lab_endgetargs:;
/*clear *//*_.FIELDSLOC__V22*/ meltfptr[21] = 0;
/*^clear */
/*clear *//*_.DOCV__V23*/ meltfptr[22] = 0;
- MELT_LOCATION ("warmelt-macro.melt:2964:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:2972:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.MULTI___V14*/ meltfptr[10];;
- MELT_LOCATION ("warmelt-macro.melt:2964:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:2972:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -13444,7 +13529,7 @@ meltrout_45_warmelt_macro_LAMBDA___11__ (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3026:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3034:/ getarg");
/*_.SFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -13462,7 +13547,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3029:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3037:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -13471,7 +13556,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.SFLD__V2*/ meltfptr[1]),
(melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout->
tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:3029:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3037:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -13479,7 +13564,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3029:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3037:/ cond.else");
/*^block */
/*anyblock */
@@ -13493,7 +13578,7 @@ lab_endgetargs:;
melt_assert_failed (("check superfield"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3029) ? (3029) : __LINE__, __FUNCTION__);
+ (3037) ? (3037) : __LINE__, __FUNCTION__);
;
}
;
@@ -13508,7 +13593,7 @@ lab_endgetargs:;
/*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3029:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3037:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0;
@@ -13521,14 +13606,14 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3030:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3038:/ locexp");
meltgc_multiple_put_nth ((melt_ptr_t)
(( /*~FIELDTUP */ meltfclos->tabval[0])),
( /*_#IX__L1*/ meltfnum[0]),
(melt_ptr_t) ( /*_.SFLD__V2*/ meltfptr[1]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:3031:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3039:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SFLD__V2*/ meltfptr[1]), 1, "NAMED_NAME");
@@ -13549,7 +13634,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3026:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3034:/ clear");
/*clear *//*_.IFCPP___V3*/ meltfptr[2] = 0;
/*^clear */
/*clear *//*_.NAMED_NAME__V5*/ meltfptr[3] = 0;
@@ -13630,7 +13715,7 @@ meltrout_46_warmelt_macro_LAMBDA___12__ (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3035:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3043:/ getarg");
/*_.FLDNAM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -13648,7 +13733,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3037:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3045:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -13657,7 +13742,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.FLDNAM__V2*/ meltfptr[1]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:3037:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3045:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -13665,7 +13750,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3037:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3045:/ cond.else");
/*^block */
/*anyblock */
@@ -13679,7 +13764,7 @@ lab_endgetargs:;
melt_assert_failed (("check fldnam"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3037) ? (3037) : __LINE__, __FUNCTION__);
+ (3045) ? (3045) : __LINE__, __FUNCTION__);
;
}
;
@@ -13694,7 +13779,7 @@ lab_endgetargs:;
/*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3037:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3045:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0;
@@ -13705,7 +13790,7 @@ lab_endgetargs:;
/*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3038:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3046:/ quasiblock");
/*^getslot */
@@ -13716,7 +13801,7 @@ lab_endgetargs:;
meltfptr[3] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3039:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3047:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -13736,7 +13821,7 @@ lab_endgetargs:;
((struct meltmapstrings_st
*) (( /*~FIELDSTRMAP */ meltfclos->tabval[1])),
melt_string_str ((melt_ptr_t) ( /*_.FLDSTR__V5*/ meltfptr[3]))));;
- MELT_LOCATION ("warmelt-macro.melt:3041:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3049:/ cond");
/*cond */ if ( /*_.MAPSTRING_GETSTR__V7*/ meltfptr[6]) /*then */
{
/*^cond.then */
@@ -13746,7 +13831,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3042:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3050:/ locexp");
melt_error_str ((melt_ptr_t)
(( /*~FIELDSLOC */ meltfclos->tabval[2])),
("duplicate field in DEFLCLASS"),
@@ -13760,7 +13845,7 @@ lab_endgetargs:;
;
/*_#NULL__L3*/ meltfnum[1] =
(( /*_.FLDPREVBIND__V6*/ meltfptr[5]) == NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3044:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3052:/ cond");
/*cond */ if ( /*_#NULL__L3*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -13770,7 +13855,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3045:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3053:/ locexp");
/*void */ 0;
}
;
@@ -13780,7 +13865,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3044:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3052:/ cond.else");
/*^block */
/*anyblock */
@@ -13791,7 +13876,7 @@ lab_endgetargs:;
( /*_.FLDPREVBIND__V6*/ meltfptr[5]),
(melt_ptr_t) (( /*!CLASS_FIELD_BINDING */
meltfrout->tabval[2])));;
- MELT_LOCATION ("warmelt-macro.melt:3047:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3055:/ cond");
/*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -13801,7 +13886,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3048:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3056:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -13824,7 +13909,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3048:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3056:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then */
{
/*^cond.then */
@@ -13834,7 +13919,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3048:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3056:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -13845,7 +13930,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3048;
+ argtab[2].meltbp_long = 3056;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_defclass fldprevbind !field";
@@ -13868,7 +13953,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3048:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3056:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0;
@@ -13881,7 +13966,7 @@ lab_endgetargs:;
/*_.IF___V9*/ meltfptr[8] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3048:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3056:/ quasiblock");
/*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];;
@@ -13891,7 +13976,7 @@ lab_endgetargs:;
/*_.PROGN___V11*/ meltfptr[9];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3048:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3056:/ clear");
/*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 0;
/*^clear */
/*clear *//*_.IF___V9*/ meltfptr[8] = 0;
@@ -13906,7 +13991,7 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3049:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3057:/ locexp");
melt_error_str ((melt_ptr_t)
(( /*~FIELDSLOC */ meltfclos->tabval[2])),
("field name already defined in DEFCLASS"),
@@ -13914,7 +13999,7 @@ lab_endgetargs:;
meltfptr[3]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:3047:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3055:/ quasiblock");
/*epilog */
@@ -13935,7 +14020,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t)
( /*_.FLDPREVBIND__V6*/ meltfptr[5]),
(melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[4])));;
- MELT_LOCATION ("warmelt-macro.melt:3051:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3059:/ cond");
/*cond */ if ( /*_#IS_A__L7*/ meltfnum[5]) /*then */
{
/*^cond.then */
@@ -13945,7 +14030,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3052:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3060:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -13968,7 +14053,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3052:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3060:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[4]) /*then */
{
/*^cond.then */
@@ -13979,7 +14064,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] =
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:3052:/ apply");
+ ("warmelt-macro.melt:3060:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -13991,7 +14076,7 @@ lab_endgetargs:;
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3052;
+ argtab[2].meltbp_long = 3060;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_defclass fldprevbind !value";
@@ -14017,7 +14102,7 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:3052:/ clear");
+ ("warmelt-macro.melt:3060:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L9*/
meltfnum[8] = 0;
/*^clear */
@@ -14033,7 +14118,7 @@ lab_endgetargs:;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:3052:/ quasiblock");
+ ("warmelt-macro.melt:3060:/ quasiblock");
/*_.PROGN___V15*/ meltfptr[7] =
@@ -14044,7 +14129,7 @@ lab_endgetargs:;
/*_.PROGN___V15*/ meltfptr[7];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3052:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3060:/ clear");
/*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[4] = 0;
/*^clear */
/*clear *//*_.IF___V13*/ meltfptr[9] = 0;
@@ -14059,7 +14144,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3053:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3061:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -14082,7 +14167,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3053:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3061:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -14093,7 +14178,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L11*/ meltfnum[4] =
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:3053:/ apply");
+ ("warmelt-macro.melt:3061:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -14105,7 +14190,7 @@ lab_endgetargs:;
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3053;
+ argtab[2].meltbp_long = 3061;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_defclass symb !value";
@@ -14131,7 +14216,7 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:3053:/ clear");
+ ("warmelt-macro.melt:3061:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L11*/
meltfnum[4] = 0;
/*^clear */
@@ -14147,7 +14232,7 @@ lab_endgetargs:;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:3053:/ quasiblock");
+ ("warmelt-macro.melt:3061:/ quasiblock");
/*_.PROGN___V19*/ meltfptr[17] =
@@ -14158,7 +14243,7 @@ lab_endgetargs:;
/*_.PROGN___V19*/ meltfptr[17];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3053:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3061:/ clear");
/*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0;
/*^clear */
/*clear *//*_.IF___V17*/ meltfptr[7] = 0;
@@ -14171,7 +14256,7 @@ lab_endgetargs:;
/*_.IFCPP___V16*/ meltfptr[9] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3054:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3062:/ quasiblock");
/*^cond */
@@ -14205,7 +14290,7 @@ lab_endgetargs:;
( /*_.PREVALUE__V20*/
meltfptr[7]),
(melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout->tabval[5])));;
- MELT_LOCATION ("warmelt-macro.melt:3058:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3066:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L12*/ meltfnum[4]) /*then */
{
/*^cond.then */
@@ -14215,13 +14300,13 @@ lab_endgetargs:;
else
{
MELT_LOCATION
- ("warmelt-macro.melt:3058:/ cond.else");
+ ("warmelt-macro.melt:3066:/ cond.else");
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3059:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3067:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -14245,7 +14330,7 @@ lab_endgetargs:;
/*_.FLD_OWNCLASS__V21*/ meltfptr[17] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3059:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3067:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -14269,7 +14354,7 @@ lab_endgetargs:;
/*_.NAMED_NAME__V22*/ meltfptr[21] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3060:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3068:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -14308,7 +14393,7 @@ lab_endgetargs:;
/*_#S__L14*/ meltfnum[13];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3058:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3066:/ clear");
/*clear *//*_.FLD_OWNCLASS__V21*/ meltfptr[17] =
0;
/*^clear */
@@ -14332,7 +14417,7 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:3061:/ locexp");
+ ("warmelt-macro.melt:3069:/ locexp");
melt_warning_str (0,
(melt_ptr_t) (( /*~FIELDSLOC */ meltfclos->tabval[2])), ("field name already bound to a value in DEFCLASS"), (melt_ptr_t) ( /*_.FLDSTR__V5*/ meltfptr[3]));
}
@@ -14343,13 +14428,13 @@ lab_endgetargs:;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3054:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3062:/ clear");
/*clear *//*_.PREVALUE__V20*/ meltfptr[7] = 0;
/*^clear */
/*clear *//*_#IS_NOT_A__L12*/ meltfnum[4] = 0;
/*^clear */
/*clear *//*_#OR___L13*/ meltfnum[8] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3051:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3059:/ quasiblock");
/*epilog */
@@ -14370,7 +14455,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3064:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3072:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -14393,7 +14478,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3064:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3072:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[13]) /*then */
{
/*^cond.then */
@@ -14404,7 +14489,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L16*/ meltfnum[4] =
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:3064:/ apply");
+ ("warmelt-macro.melt:3072:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -14416,7 +14501,7 @@ lab_endgetargs:;
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3064;
+ argtab[2].meltbp_long = 3072;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_defclass fldprevbind !other";
@@ -14442,7 +14527,7 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:3064:/ clear");
+ ("warmelt-macro.melt:3072:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L16*/
meltfnum[4] = 0;
/*^clear */
@@ -14458,7 +14543,7 @@ lab_endgetargs:;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:3064:/ quasiblock");
+ ("warmelt-macro.melt:3072:/ quasiblock");
/*_.PROGN___V27*/ meltfptr[7] =
@@ -14469,7 +14554,7 @@ lab_endgetargs:;
/*_.PROGN___V27*/ meltfptr[7];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3064:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3072:/ clear");
/*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[13] = 0;
/*^clear */
/*clear *//*_.IF___V25*/ meltfptr[21] = 0;
@@ -14484,7 +14569,7 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3065:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3073:/ locexp");
melt_warning_str (0,
(melt_ptr_t) (( /*~FIELDSLOC */
meltfclos->
@@ -14494,12 +14579,12 @@ lab_endgetargs:;
meltfptr[3]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:3063:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3071:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3051:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3059:/ clear");
/*clear *//*_.IFCPP___V24*/ meltfptr[17] = 0;
}
;
@@ -14507,7 +14592,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3047:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3055:/ clear");
/*clear *//*_#IS_A__L7*/ meltfnum[5] = 0;
}
;
@@ -14515,13 +14600,13 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3044:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3052:/ clear");
/*clear *//*_#IS_A__L4*/ meltfnum[3] = 0;
}
;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3067:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3075:/ quasiblock");
/*_#GET_INT__L17*/ meltfnum[8] =
@@ -14531,7 +14616,7 @@ lab_endgetargs:;
/*_#FLDOFF__L18*/ meltfnum[4] =
(( /*_#IX__L1*/ meltfnum[0]) + ( /*_#GET_INT__L17*/ meltfnum[8]));;
- MELT_LOCATION ("warmelt-macro.melt:3068:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3076:/ quasiblock");
/*^rawallocobj */
@@ -14567,14 +14652,14 @@ lab_endgetargs:;
/*_.NEWFLD__V28*/ meltfptr[8] = /*_.INST__V29*/ meltfptr[9];;
{
- MELT_LOCATION ("warmelt-macro.melt:3072:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3080:/ locexp");
melt_put_int ((melt_ptr_t) ( /*_.NEWFLD__V28*/ meltfptr[8]),
( /*_#FLDOFF__L18*/ meltfnum[4]));
}
;
{
- MELT_LOCATION ("warmelt-macro.melt:3074:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3082:/ locexp");
meltgc_multiple_put_nth ((melt_ptr_t)
(( /*~FIELDTUP */ meltfclos->tabval[6])),
( /*_#FLDOFF__L18*/ meltfnum[4]),
@@ -14583,7 +14668,7 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3075:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3083:/ locexp");
meltgc_put_mapstrings ((struct meltmapstrings_st
*) (( /*~FIELDSTRMAP */ meltfclos->tabval[1])),
melt_string_str ((melt_ptr_t)
@@ -14592,7 +14677,7 @@ lab_endgetargs:;
(melt_ptr_t) ( /*_.NEWFLD__V28*/ meltfptr[8]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:3076:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3084:/ quasiblock");
/*^quasiblock */
@@ -14639,7 +14724,7 @@ lab_endgetargs:;
( /*_.NEWFLD__V28*/ meltfptr[8]), "FLBIND_FIELD");
;
/*_.NEWFLDBIND__V30*/ meltfptr[22] = /*_.INST__V31*/ meltfptr[21];;
- MELT_LOCATION ("warmelt-macro.melt:3080:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3088:/ apply");
/*apply */
{
union meltparam_un argtab[2];
@@ -14658,7 +14743,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3081:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3089:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -14676,7 +14761,7 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3082:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3090:/ locexp");
meltgc_multiple_put_nth ((melt_ptr_t)
(( /*~OWNFIELDBINDINGS */ meltfclos->
tabval[9])), ( /*_#IX__L1*/ meltfnum[0]),
@@ -14685,21 +14770,21 @@ lab_endgetargs:;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3076:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3084:/ clear");
/*clear *//*_.NEWFLDBIND__V30*/ meltfptr[22] = 0;
/*^clear */
/*clear *//*_.WARN_IF_REDEFINED__V32*/ meltfptr[7] = 0;
/*^clear */
/*clear *//*_.PUT_ENV__V33*/ meltfptr[17] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3067:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3075:/ clear");
/*clear *//*_#GET_INT__L17*/ meltfnum[8] = 0;
/*^clear */
/*clear *//*_#FLDOFF__L18*/ meltfnum[4] = 0;
/*^clear */
/*clear *//*_.NEWFLD__V28*/ meltfptr[8] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3038:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3046:/ clear");
/*clear *//*_.FLDSTR__V5*/ meltfptr[3] = 0;
/*^clear */
/*clear *//*_.FLDPREVBIND__V6*/ meltfptr[5] = 0;
@@ -14709,7 +14794,7 @@ lab_endgetargs:;
/*clear *//*_#NULL__L3*/ meltfnum[1] = 0;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3035:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3043:/ clear");
/*clear *//*_.IFCPP___V3*/ meltfptr[2] = 0;
}
@@ -14763,10 +14848,10 @@ meltrout_47_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t
struct meltclosure_st *mcfr_clos;
struct excepth_melt_st *mcfr_exh;
struct melt_callframe_st *mcfr_prev;
-#define MELTFRAM_NBVARPTR 113
- void *mcfr_varptr[113];
-#define MELTFRAM_NBVARNUM 41
- long mcfr_varnum[41];
+#define MELTFRAM_NBVARPTR 116
+ void *mcfr_varptr[116];
+#define MELTFRAM_NBVARNUM 42
+ long mcfr_varnum[42];
/*others*/
long _spare_;
}
@@ -14777,13 +14862,13 @@ meltrout_47_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t
int ix = 0;
meltframptr_ = (void *) meltfirstargp_;
gt_ggc_mx_melt_un (meltframptr_->mcfr_clos);
- for (ix = 0; ix < 113; ix++)
+ for (ix = 0; ix < 116; ix++)
if (meltframptr_->mcfr_varptr[ix])
gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]);
return NULL;
} /*end markggc */ ;
memset (&meltfram__, 0, sizeof (meltfram__));
- meltfram__.mcfr_nbvar = 113;
+ meltfram__.mcfr_nbvar = 116;
meltfram__.mcfr_clos = meltclosp_;
meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe;
melt_topframe = (struct melt_callframe_st *) &meltfram__;
@@ -14791,7 +14876,7 @@ meltrout_47_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3113:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3121:/ getarg");
/*_.CLA__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -14841,6 +14926,16 @@ meltrout_47_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t
gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MEXPANDER__V7*/ meltfptr[6])) !=
NULL);
+
+ /*getarg#6 */
+ /*^getarg */
+ if (meltxargdescr_[5] != MELTBPAR_PTR)
+ goto lab_endgetargs;
+ /*_.MODCTX__V8*/ meltfptr[7] =
+ (meltxargtab_[5].meltbp_aptr) ? (*(meltxargtab_[5].meltbp_aptr)) : NULL;
+ gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MODCTX__V8*/ meltfptr[7])) !=
+ NULL);
+
;
goto lab_endgetargs;
lab_endgetargs:;
@@ -14851,7 +14946,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3114:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3122:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -14874,7 +14969,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3114:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3122:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -14884,7 +14979,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3114:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3122:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -14894,13 +14989,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3114;
+ argtab[2].meltbp_long = 3122;
/*^apply.arg */
argtab[3].meltbp_cstring = "start parse_field_assignment cla";
/*^apply.arg */
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.CLA__V2*/ meltfptr[1];
- /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] =
+ /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -14910,48 +15005,48 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V9*/ meltfptr[8] =
- /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];;
+ /*_.IF___V10*/ meltfptr[9] =
+ /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3114:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3122:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V9*/ meltfptr[8] = NULL;;
+ /*_.IF___V10*/ meltfptr[9] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3114:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3122:/ quasiblock");
- /*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];;
+ /*_.PROGN___V12*/ meltfptr[10] = /*_.IF___V10*/ meltfptr[9];;
/*^compute */
- /*_.IFCPP___V8*/ meltfptr[7] = /*_.PROGN___V11*/ meltfptr[9];;
+ /*_.IFCPP___V9*/ meltfptr[8] = /*_.PROGN___V12*/ meltfptr[10];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3114:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3122:/ clear");
/*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0;
/*^clear */
- /*clear *//*_.IF___V9*/ meltfptr[8] = 0;
+ /*clear *//*_.IF___V10*/ meltfptr[9] = 0;
/*^clear */
- /*clear *//*_.PROGN___V11*/ meltfptr[9] = 0;
+ /*clear *//*_.PROGN___V12*/ meltfptr[10] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V8*/ meltfptr[7] = ( /*nil */ NULL);
+ /*_.IFCPP___V9*/ meltfptr[8] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3115:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3123:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -14974,7 +15069,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3115:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3123:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -14984,7 +15079,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3115:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3123:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -14994,13 +15089,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3115;
+ argtab[2].meltbp_long = 3123;
/*^apply.arg */
argtab[3].meltbp_cstring = "start parse_field_assignment loc";
/*^apply.arg */
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.LOC__V3*/ meltfptr[2];
- /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] =
+ /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -15010,48 +15105,48 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V13*/ meltfptr[9] =
- /*_.MELT_DEBUG_FUN__V14*/ meltfptr[13];;
+ /*_.IF___V14*/ meltfptr[10] =
+ /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3115:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3123:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V14*/ meltfptr[13] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V13*/ meltfptr[9] = NULL;;
+ /*_.IF___V14*/ meltfptr[10] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3115:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3123:/ quasiblock");
- /*_.PROGN___V15*/ meltfptr[13] = /*_.IF___V13*/ meltfptr[9];;
+ /*_.PROGN___V16*/ meltfptr[14] = /*_.IF___V14*/ meltfptr[10];;
/*^compute */
- /*_.IFCPP___V12*/ meltfptr[8] = /*_.PROGN___V15*/ meltfptr[13];;
+ /*_.IFCPP___V13*/ meltfptr[9] = /*_.PROGN___V16*/ meltfptr[14];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3115:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3123:/ clear");
/*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0;
/*^clear */
- /*clear *//*_.IF___V13*/ meltfptr[9] = 0;
+ /*clear *//*_.IF___V14*/ meltfptr[10] = 0;
/*^clear */
- /*clear *//*_.PROGN___V15*/ meltfptr[13] = 0;
+ /*clear *//*_.PROGN___V16*/ meltfptr[14] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V12*/ meltfptr[8] = ( /*nil */ NULL);
+ /*_.IFCPP___V13*/ meltfptr[9] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3116:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3124:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -15074,7 +15169,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3116:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3124:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -15084,7 +15179,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L6*/ meltfnum[1] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3116:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3124:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -15094,13 +15189,13 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3116;
+ argtab[2].meltbp_long = 3124;
/*^apply.arg */
argtab[3].meltbp_cstring = "start parse_field_assignment fldkw";
/*^apply.arg */
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.FLDKW__V4*/ meltfptr[3];
- /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] =
+ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -15110,43 +15205,43 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V17*/ meltfptr[13] =
- /*_.MELT_DEBUG_FUN__V18*/ meltfptr[17];;
+ /*_.IF___V18*/ meltfptr[14] =
+ /*_.MELT_DEBUG_FUN__V19*/ meltfptr[18];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3116:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3124:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[1] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V18*/ meltfptr[17] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V19*/ meltfptr[18] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V17*/ meltfptr[13] = NULL;;
+ /*_.IF___V18*/ meltfptr[14] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3116:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3124:/ quasiblock");
- /*_.PROGN___V19*/ meltfptr[17] = /*_.IF___V17*/ meltfptr[13];;
+ /*_.PROGN___V20*/ meltfptr[18] = /*_.IF___V18*/ meltfptr[14];;
/*^compute */
- /*_.IFCPP___V16*/ meltfptr[9] = /*_.PROGN___V19*/ meltfptr[17];;
+ /*_.IFCPP___V17*/ meltfptr[10] = /*_.PROGN___V20*/ meltfptr[18];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3116:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3124:/ clear");
/*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[0] = 0;
/*^clear */
- /*clear *//*_.IF___V17*/ meltfptr[13] = 0;
+ /*clear *//*_.IF___V18*/ meltfptr[14] = 0;
/*^clear */
- /*clear *//*_.PROGN___V19*/ meltfptr[17] = 0;
+ /*clear *//*_.PROGN___V20*/ meltfptr[18] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V16*/ meltfptr[9] = ( /*nil */ NULL);
+ /*_.IFCPP___V17*/ meltfptr[10] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
@@ -15159,7 +15254,7 @@ lab_endgetargs:;
/*_#NOT__L8*/ meltfnum[0] =
(!( /*_#IS_A__L7*/ meltfnum[1]));;
- MELT_LOCATION ("warmelt-macro.melt:3117:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3125:/ cond");
/*cond */ if ( /*_#NOT__L8*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -15169,43 +15264,43 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3119:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3127:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]),
("expecting :fieldname"), (melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3120:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3128:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:3120:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3128:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3118:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3126:/ quasiblock");
- /*_.PROGN___V22*/ meltfptr[21] = /*_.RETURN___V21*/ meltfptr[17];;
+ /*_.PROGN___V23*/ meltfptr[22] = /*_.RETURN___V22*/ meltfptr[18];;
/*^compute */
- /*_.IF___V20*/ meltfptr[13] = /*_.PROGN___V22*/ meltfptr[21];;
+ /*_.IF___V21*/ meltfptr[14] = /*_.PROGN___V23*/ meltfptr[22];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3117:/ clear");
- /*clear *//*_.RETURN___V21*/ meltfptr[17] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3125:/ clear");
+ /*clear *//*_.RETURN___V22*/ meltfptr[18] = 0;
/*^clear */
- /*clear *//*_.PROGN___V22*/ meltfptr[21] = 0;
+ /*clear *//*_.PROGN___V23*/ meltfptr[22] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V20*/ meltfptr[13] = NULL;;
+ /*_.IF___V21*/ meltfptr[14] = NULL;;
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3122:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3130:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -15214,15 +15309,15 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.FLDKW__V4*/ meltfptr[3]),
(melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->
tabval[1])));;
- MELT_LOCATION ("warmelt-macro.melt:3122:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3130:/ cond");
/*cond */ if ( /*_#IS_A__L9*/ meltfnum[8]) /*then */
{
/*^cond.then */
- /*_.IFELSE___V24*/ meltfptr[21] = ( /*nil */ NULL);;
+ /*_.IFELSE___V25*/ meltfptr[22] = ( /*nil */ NULL);;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3122:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3130:/ cond.else");
/*^block */
/*anyblock */
@@ -15236,11 +15331,11 @@ lab_endgetargs:;
melt_assert_failed (("check fldkw"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3122) ? (3122) : __LINE__, __FUNCTION__);
+ (3130) ? (3130) : __LINE__, __FUNCTION__);
;
}
;
- /*clear *//*_.IFELSE___V24*/ meltfptr[21] = 0;
+ /*clear *//*_.IFELSE___V25*/ meltfptr[22] = 0;
/*epilog */
}
;
@@ -15248,23 +15343,23 @@ lab_endgetargs:;
;
/*^compute */
- /*_.IFCPP___V23*/ meltfptr[17] = /*_.IFELSE___V24*/ meltfptr[21];;
+ /*_.IFCPP___V24*/ meltfptr[18] = /*_.IFELSE___V25*/ meltfptr[22];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3122:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3130:/ clear");
/*clear *//*_#IS_A__L9*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V24*/ meltfptr[21] = 0;
+ /*clear *//*_.IFELSE___V25*/ meltfptr[22] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V23*/ meltfptr[17] = ( /*nil */ NULL);
+ /*_.IFCPP___V24*/ meltfptr[18] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3123:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3131:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -15273,15 +15368,15 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V6*/ meltfptr[5]),
(melt_ptr_t) (( /*!CLASS_ENVIRONMENT */
meltfrout->tabval[2])));;
- MELT_LOCATION ("warmelt-macro.melt:3123:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3131:/ cond");
/*cond */ if ( /*_#IS_A__L10*/ meltfnum[8]) /*then */
{
/*^cond.then */
- /*_.IFELSE___V26*/ meltfptr[25] = ( /*nil */ NULL);;
+ /*_.IFELSE___V27*/ meltfptr[26] = ( /*nil */ NULL);;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3123:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3131:/ cond.else");
/*^block */
/*anyblock */
@@ -15295,11 +15390,11 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3123) ? (3123) : __LINE__, __FUNCTION__);
+ (3131) ? (3131) : __LINE__, __FUNCTION__);
;
}
;
- /*clear *//*_.IFELSE___V26*/ meltfptr[25] = 0;
+ /*clear *//*_.IFELSE___V27*/ meltfptr[26] = 0;
/*epilog */
}
;
@@ -15307,23 +15402,23 @@ lab_endgetargs:;
;
/*^compute */
- /*_.IFCPP___V25*/ meltfptr[21] = /*_.IFELSE___V26*/ meltfptr[25];;
+ /*_.IFCPP___V26*/ meltfptr[22] = /*_.IFELSE___V27*/ meltfptr[26];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3123:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3131:/ clear");
/*clear *//*_#IS_A__L10*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V26*/ meltfptr[25] = 0;
+ /*clear *//*_.IFELSE___V27*/ meltfptr[26] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V25*/ meltfptr[21] = ( /*nil */ NULL);
+ /*_.IFCPP___V26*/ meltfptr[22] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3124:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3132:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -15331,15 +15426,15 @@ lab_endgetargs:;
/*_#IS_CLOSURE__L11*/ meltfnum[8] =
(melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V7*/ meltfptr[6])) ==
MELTOBMAG_CLOSURE);;
- MELT_LOCATION ("warmelt-macro.melt:3124:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3132:/ cond");
/*cond */ if ( /*_#IS_CLOSURE__L11*/ meltfnum[8]) /*then */
{
/*^cond.then */
- /*_.IFELSE___V28*/ meltfptr[27] = ( /*nil */ NULL);;
+ /*_.IFELSE___V29*/ meltfptr[28] = ( /*nil */ NULL);;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3124:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3132:/ cond.else");
/*^block */
/*anyblock */
@@ -15353,11 +15448,11 @@ lab_endgetargs:;
melt_assert_failed (("check mexpander"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3124) ? (3124) : __LINE__, __FUNCTION__);
+ (3132) ? (3132) : __LINE__, __FUNCTION__);
;
}
;
- /*clear *//*_.IFELSE___V28*/ meltfptr[27] = 0;
+ /*clear *//*_.IFELSE___V29*/ meltfptr[28] = 0;
/*epilog */
}
;
@@ -15365,52 +15460,110 @@ lab_endgetargs:;
;
/*^compute */
- /*_.IFCPP___V27*/ meltfptr[25] = /*_.IFELSE___V28*/ meltfptr[27];;
+ /*_.IFCPP___V28*/ meltfptr[26] = /*_.IFELSE___V29*/ meltfptr[28];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3124:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3132:/ clear");
/*clear *//*_#IS_CLOSURE__L11*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V28*/ meltfptr[27] = 0;
+ /*clear *//*_.IFELSE___V29*/ meltfptr[28] = 0;
+ }
+
+#else /*MELT_HAVE_DEBUG */
+ /*^cppif.else */
+ /*_.IFCPP___V28*/ meltfptr[26] = ( /*nil */ NULL);
+#endif /*MELT_HAVE_DEBUG */
+ ;
+
+#if MELT_HAVE_DEBUG
+ MELT_LOCATION ("warmelt-macro.melt:3133:/ cppif.then");
+ /*^block */
+ /*anyblock */
+ {
+
+ /*_#IS_OBJECT__L12*/ meltfnum[8] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V8*/ meltfptr[7])) ==
+ MELTOBMAG_OBJECT);;
+ MELT_LOCATION ("warmelt-macro.melt:3133:/ cond");
+ /*cond */ if ( /*_#IS_OBJECT__L12*/ meltfnum[8]) /*then */
+ {
+ /*^cond.then */
+ /*_.IFELSE___V31*/ meltfptr[30] = ( /*nil */ NULL);;
+ }
+ else
+ {
+ MELT_LOCATION ("warmelt-macro.melt:3133:/ cond.else");
+
+ /*^block */
+ /*anyblock */
+ {
+
+
+
+
+ {
+ /*^locexp */
+ melt_assert_failed (("check modctx"),
+ ("warmelt-macro.melt")
+ ? ("warmelt-macro.melt") : __FILE__,
+ (3133) ? (3133) : __LINE__, __FUNCTION__);
+ ;
+ }
+ ;
+ /*clear *//*_.IFELSE___V31*/ meltfptr[30] = 0;
+ /*epilog */
+ }
+ ;
+ }
+ ;
+ /*^compute */
+
+ /*_.IFCPP___V30*/ meltfptr[28] = /*_.IFELSE___V31*/ meltfptr[30];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:3133:/ clear");
+ /*clear *//*_#IS_OBJECT__L12*/ meltfnum[8] = 0;
+ /*^clear */
+ /*clear *//*_.IFELSE___V31*/ meltfptr[30] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V27*/ meltfptr[25] = ( /*nil */ NULL);
+ /*_.IFCPP___V30*/ meltfptr[28] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3126:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3135:/ quasiblock");
- /*_.FLD__V30*/ meltfptr[29] = ( /*nil */ NULL);;
+ /*_.FLD__V33*/ meltfptr[32] = ( /*nil */ NULL);;
/*^compute */
- /*_#IS_A__L12*/ meltfnum[8] =
+ /*_#IS_A__L13*/ meltfnum[8] =
melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V2*/ meltfptr[1]),
(melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->
tabval[3])));;
- MELT_LOCATION ("warmelt-macro.melt:3128:/ cond");
- /*cond */ if ( /*_#IS_A__L12*/ meltfnum[8]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3137:/ cond");
+ /*cond */ if ( /*_#IS_A__L13*/ meltfnum[8]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3129:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3138:/ quasiblock");
/*^getslot */
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CLA__V2*/ meltfptr[1]), 6, "CLASS_FIELDS");
- /*_.CLAFIELDS__V33*/
- meltfptr[32] = slot;
+ /*_.CLAFIELDS__V36*/
+ meltfptr[35] = slot;
};
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3131:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3140:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -15425,7 +15578,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L13*/ meltfnum[12] =
+ /*_#MELT_NEED_DBG__L14*/ meltfnum[13] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -15433,35 +15586,35 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3131:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[12]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3140:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] =
+ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3131:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3140:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13];
+ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3131;
+ argtab[2].meltbp_long = 3140;
/*^apply.arg */
argtab[3].meltbp_cstring =
"parse_field_assignment clafields";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.CLAFIELDS__V33*/ meltfptr[32];
- /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] =
+ (melt_ptr_t *) & /*_.CLAFIELDS__V36*/ meltfptr[35];
+ /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
tabval[0])),
@@ -15472,50 +15625,50 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V35*/ meltfptr[34] =
- /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];;
+ /*_.IF___V38*/ meltfptr[37] =
+ /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3131:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3140:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V35*/ meltfptr[34] = NULL;;
+ /*_.IF___V38*/ meltfptr[37] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3131:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3140:/ quasiblock");
- /*_.PROGN___V37*/ meltfptr[35] = /*_.IF___V35*/ meltfptr[34];;
+ /*_.PROGN___V40*/ meltfptr[38] = /*_.IF___V38*/ meltfptr[37];;
/*^compute */
- /*_.IFCPP___V34*/ meltfptr[33] = /*_.PROGN___V37*/ meltfptr[35];;
+ /*_.IFCPP___V37*/ meltfptr[36] = /*_.PROGN___V40*/ meltfptr[38];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3131:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[12] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3140:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0;
/*^clear */
- /*clear *//*_.IF___V35*/ meltfptr[34] = 0;
+ /*clear *//*_.IF___V38*/ meltfptr[37] = 0;
/*^clear */
- /*clear *//*_.PROGN___V37*/ meltfptr[35] = 0;
+ /*clear *//*_.PROGN___V40*/ meltfptr[38] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V34*/ meltfptr[33] = ( /*nil */ NULL);
+ /*_.IFCPP___V37*/ meltfptr[36] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3136:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3145:/ quasiblock");
/*^newclosure */
- /*newclosure *//*_.LAMBDA___V39*/ meltfptr[35] =
+ /*newclosure *//*_.LAMBDA___V42*/ meltfptr[38] =
meltgc_new_closure ((meltobject_ptr_t)
(((void *) (MELT_PREDEF (DISCR_CLOSURE)))),
(meltroutine_ptr_t) (( /*!konst_7 */
@@ -15526,19 +15679,19 @@ lab_endgetargs:;
/*putclosv */
melt_assertmsg ("putclosv checkclo",
melt_magic_discr ((melt_ptr_t)
- ( /*_.LAMBDA___V39*/
- meltfptr[35])) ==
+ ( /*_.LAMBDA___V42*/
+ meltfptr[38])) ==
MELTOBMAG_CLOSURE);
melt_assertmsg ("putclosv checkoff", 0 >= 0
&& 0 <
melt_closure_size ((melt_ptr_t)
- ( /*_.LAMBDA___V39*/
- meltfptr[35])));
- ((meltclosure_ptr_t) /*_.LAMBDA___V39*/ meltfptr[35])->tabval[0] =
+ ( /*_.LAMBDA___V42*/
+ meltfptr[38])));
+ ((meltclosure_ptr_t) /*_.LAMBDA___V42*/ meltfptr[38])->tabval[0] =
(melt_ptr_t) ( /*_.FLDKW__V4*/ meltfptr[3]);
;
- /*_.LAMBDA___V38*/ meltfptr[34] = /*_.LAMBDA___V39*/ meltfptr[35];;
- MELT_LOCATION ("warmelt-macro.melt:3132:/ quasiblock");
+ /*_.LAMBDA___V41*/ meltfptr[37] = /*_.LAMBDA___V42*/ meltfptr[38];;
+ MELT_LOCATION ("warmelt-macro.melt:3141:/ quasiblock");
/*^multiapply */
@@ -15551,18 +15704,18 @@ lab_endgetargs:;
memset (&argtab, 0, sizeof (argtab));
/*^multiapply.arg */
argtab[0].meltbp_aptr =
- (melt_ptr_t *) & /*_.LAMBDA___V38*/ meltfptr[34];
+ (melt_ptr_t *) & /*_.LAMBDA___V41*/ meltfptr[37];
/*^multiapply.xres */
- restab[0].meltbp_longptr = & /*_#IX__L15*/ meltfnum[13];
+ restab[0].meltbp_longptr = & /*_#IX__L16*/ meltfnum[14];
/*^multiapply.xres */
restab[1].meltbp_aptr =
- (melt_ptr_t *) & /*_.FOUNDNAME__V42*/ meltfptr[41];
+ (melt_ptr_t *) & /*_.FOUNDNAME__V45*/ meltfptr[44];
/*^multiapply.appl */
- /*_.FOUNDFLD__V41*/ meltfptr[40] =
+ /*_.FOUNDFLD__V44*/ meltfptr[43] =
melt_apply ((meltclosure_ptr_t)
(( /*!MULTIPLE_ITERATE_TEST */ meltfrout->
tabval[4])),
- (melt_ptr_t) ( /*_.CLAFIELDS__V33*/ meltfptr[32]),
+ (melt_ptr_t) ( /*_.CLAFIELDS__V36*/ meltfptr[35]),
(MELTBPARSTR_PTR ""), argtab,
(MELTBPARSTR_LONG MELTBPARSTR_PTR ""), restab);
}
@@ -15570,8 +15723,8 @@ lab_endgetargs:;
/*^quasiblock */
- MELT_LOCATION ("warmelt-macro.melt:3149:/ cond");
- /*cond */ if ( /*_.FOUNDFLD__V41*/ meltfptr[40]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3158:/ cond");
+ /*cond */ if ( /*_.FOUNDFLD__V44*/ meltfptr[43]) /*then */
{
/*^cond.then */
/*^block */
@@ -15580,7 +15733,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3151:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3160:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -15595,7 +15748,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L16*/ meltfnum[12] =
+ /*_#MELT_NEED_DBG__L17*/ meltfnum[13] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -15603,35 +15756,35 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3151:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[12]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3160:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[13]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] =
+ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3151:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3160:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16];
+ /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3151;
+ argtab[2].meltbp_long = 3160;
/*^apply.arg */
argtab[3].meltbp_cstring =
"parse_field_assignment return foundfld";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.FOUNDFLD__V41*/ meltfptr[40];
- /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] =
+ (melt_ptr_t *) & /*_.FOUNDFLD__V44*/ meltfptr[43];
+ /*_.MELT_DEBUG_FUN__V49*/ meltfptr[48] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
tabval[0])),
@@ -15642,114 +15795,114 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V45*/ meltfptr[44] =
- /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];;
+ /*_.IF___V48*/ meltfptr[47] =
+ /*_.MELT_DEBUG_FUN__V49*/ meltfptr[48];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3151:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] =
+ MELT_LOCATION ("warmelt-macro.melt:3160:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] =
0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V49*/ meltfptr[48] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V45*/ meltfptr[44] = NULL;;
+ /*_.IF___V48*/ meltfptr[47] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3151:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3160:/ quasiblock");
- /*_.PROGN___V47*/ meltfptr[45] =
- /*_.IF___V45*/ meltfptr[44];;
+ /*_.PROGN___V50*/ meltfptr[48] =
+ /*_.IF___V48*/ meltfptr[47];;
/*^compute */
- /*_.IFCPP___V44*/ meltfptr[43] =
- /*_.PROGN___V47*/ meltfptr[45];;
+ /*_.IFCPP___V47*/ meltfptr[46] =
+ /*_.PROGN___V50*/ meltfptr[48];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3151:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[12] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3160:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[13] = 0;
/*^clear */
- /*clear *//*_.IF___V45*/ meltfptr[44] = 0;
+ /*clear *//*_.IF___V48*/ meltfptr[47] = 0;
/*^clear */
- /*clear *//*_.PROGN___V47*/ meltfptr[45] = 0;
+ /*clear *//*_.PROGN___V50*/ meltfptr[48] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V44*/ meltfptr[43] = ( /*nil */ NULL);
+ /*_.IFCPP___V47*/ meltfptr[46] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3152:/ compute");
- /*_.FLD__V30*/ meltfptr[29] = /*_.SETQ___V48*/ meltfptr[44] =
- /*_.FOUNDFLD__V41*/ meltfptr[40];;
- MELT_LOCATION ("warmelt-macro.melt:3150:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3161:/ compute");
+ /*_.FLD__V33*/ meltfptr[32] = /*_.SETQ___V51*/ meltfptr[47] =
+ /*_.FOUNDFLD__V44*/ meltfptr[43];;
+ MELT_LOCATION ("warmelt-macro.melt:3159:/ quasiblock");
- /*_.PROGN___V49*/ meltfptr[45] =
- /*_.SETQ___V48*/ meltfptr[44];;
+ /*_.PROGN___V52*/ meltfptr[48] =
+ /*_.SETQ___V51*/ meltfptr[47];;
/*^compute */
- /*_.IF___V43*/ meltfptr[42] = /*_.PROGN___V49*/ meltfptr[45];;
+ /*_.IF___V46*/ meltfptr[45] = /*_.PROGN___V52*/ meltfptr[48];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3149:/ clear");
- /*clear *//*_.IFCPP___V44*/ meltfptr[43] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3158:/ clear");
+ /*clear *//*_.IFCPP___V47*/ meltfptr[46] = 0;
/*^clear */
- /*clear *//*_.SETQ___V48*/ meltfptr[44] = 0;
+ /*clear *//*_.SETQ___V51*/ meltfptr[47] = 0;
/*^clear */
- /*clear *//*_.PROGN___V49*/ meltfptr[45] = 0;
+ /*clear *//*_.PROGN___V52*/ meltfptr[48] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V43*/ meltfptr[42] = NULL;;
+ /*_.IF___V46*/ meltfptr[45] = NULL;;
}
;
/*^compute */
- /*_.MULTI___V40*/ meltfptr[39] = /*_.IF___V43*/ meltfptr[42];;
+ /*_.MULTI___V43*/ meltfptr[42] = /*_.IF___V46*/ meltfptr[45];;
- MELT_LOCATION ("warmelt-macro.melt:3132:/ clear");
- /*clear *//*_.IF___V43*/ meltfptr[42] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3141:/ clear");
+ /*clear *//*_.IF___V46*/ meltfptr[45] = 0;
/*^clear */
- /*clear *//*_#IX__L15*/ meltfnum[13] = 0;
+ /*clear *//*_#IX__L16*/ meltfnum[14] = 0;
/*^clear */
- /*clear *//*_.FOUNDNAME__V42*/ meltfptr[41] = 0;
- /*_.LET___V32*/ meltfptr[31] = /*_.MULTI___V40*/ meltfptr[39];;
+ /*clear *//*_.FOUNDNAME__V45*/ meltfptr[44] = 0;
+ /*_.LET___V35*/ meltfptr[34] = /*_.MULTI___V43*/ meltfptr[42];;
- MELT_LOCATION ("warmelt-macro.melt:3129:/ clear");
- /*clear *//*_.CLAFIELDS__V33*/ meltfptr[32] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3138:/ clear");
+ /*clear *//*_.CLAFIELDS__V36*/ meltfptr[35] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V34*/ meltfptr[33] = 0;
+ /*clear *//*_.IFCPP___V37*/ meltfptr[36] = 0;
/*^clear */
- /*clear *//*_.LAMBDA___V38*/ meltfptr[34] = 0;
+ /*clear *//*_.LAMBDA___V41*/ meltfptr[37] = 0;
/*^clear */
- /*clear *//*_.MULTI___V40*/ meltfptr[39] = 0;
- /*_.IF___V31*/ meltfptr[30] = /*_.LET___V32*/ meltfptr[31];;
+ /*clear *//*_.MULTI___V43*/ meltfptr[42] = 0;
+ /*_.IF___V34*/ meltfptr[33] = /*_.LET___V35*/ meltfptr[34];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3128:/ clear");
- /*clear *//*_.LET___V32*/ meltfptr[31] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3137:/ clear");
+ /*clear *//*_.LET___V35*/ meltfptr[34] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V31*/ meltfptr[30] = NULL;;
+ /*_.IF___V34*/ meltfptr[33] = NULL;;
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3153:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3162:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -15764,7 +15917,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L18*/ meltfnum[16] =
+ /*_#MELT_NEED_DBG__L19*/ meltfnum[17] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -15772,35 +15925,35 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3153:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3162:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[12] =
+ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[13] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3153:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3162:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[12];
+ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[13];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3153;
+ argtab[2].meltbp_long = 3162;
/*^apply.arg */
argtab[3].meltbp_cstring =
"parse_field_assignment after class scanning fld";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.FLD__V30*/ meltfptr[29];
- /*_.MELT_DEBUG_FUN__V52*/ meltfptr[45] =
+ (melt_ptr_t *) & /*_.FLD__V33*/ meltfptr[32];
+ /*_.MELT_DEBUG_FUN__V55*/ meltfptr[48] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -15810,76 +15963,76 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V51*/ meltfptr[44] =
- /*_.MELT_DEBUG_FUN__V52*/ meltfptr[45];;
+ /*_.IF___V54*/ meltfptr[47] =
+ /*_.MELT_DEBUG_FUN__V55*/ meltfptr[48];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3153:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[12] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3162:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[13] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V52*/ meltfptr[45] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[48] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V51*/ meltfptr[44] = NULL;;
+ /*_.IF___V54*/ meltfptr[47] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3153:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3162:/ quasiblock");
- /*_.PROGN___V53*/ meltfptr[42] = /*_.IF___V51*/ meltfptr[44];;
+ /*_.PROGN___V56*/ meltfptr[45] = /*_.IF___V54*/ meltfptr[47];;
/*^compute */
- /*_.IFCPP___V50*/ meltfptr[43] = /*_.PROGN___V53*/ meltfptr[42];;
+ /*_.IFCPP___V53*/ meltfptr[46] = /*_.PROGN___V56*/ meltfptr[45];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3153:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3162:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[17] = 0;
/*^clear */
- /*clear *//*_.IF___V51*/ meltfptr[44] = 0;
+ /*clear *//*_.IF___V54*/ meltfptr[47] = 0;
/*^clear */
- /*clear *//*_.PROGN___V53*/ meltfptr[42] = 0;
+ /*clear *//*_.PROGN___V56*/ meltfptr[45] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V50*/ meltfptr[43] = ( /*nil */ NULL);
+ /*_.IFCPP___V53*/ meltfptr[46] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
- /*_#NULL__L20*/ meltfnum[13] =
- (( /*_.FLD__V30*/ meltfptr[29]) == NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3154:/ cond");
- /*cond */ if ( /*_#NULL__L20*/ meltfnum[13]) /*then */
+ /*_#NULL__L21*/ meltfnum[14] =
+ (( /*_.FLD__V33*/ meltfptr[32]) == NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:3163:/ cond");
+ /*cond */ if ( /*_#NULL__L21*/ meltfnum[14]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3156:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3165:/ quasiblock");
/*^getslot */
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.FLDKW__V4*/ meltfptr[3]), 1, "NAMED_NAME");
- /*_.FLDKWNAM__V56*/
- meltfptr[32] = slot;
+ /*_.FLDKWNAM__V59*/
+ meltfptr[35] = slot;
};
;
- /*_.FLDNAM__V57*/ meltfptr[33] =
+ /*_.FLDNAM__V60*/ meltfptr[36] =
meltgc_named_symbol (melt_string_str
((melt_ptr_t)
- ( /*_.FLDKWNAM__V56*/ meltfptr[32])),
+ ( /*_.FLDKWNAM__V59*/ meltfptr[35])),
MELT_CREATE);;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3159:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3168:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -15894,7 +16047,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L21*/ meltfnum[12] =
+ /*_#MELT_NEED_DBG__L22*/ meltfnum[13] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -15902,35 +16055,35 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3159:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[12]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3168:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[13]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[16] =
+ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[17] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3159:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3168:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[16];
+ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[17];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3159;
+ argtab[2].meltbp_long = 3168;
/*^apply.arg */
argtab[3].meltbp_cstring =
"parse_field_assignment fldnam";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.FLDNAM__V57*/ meltfptr[33];
- /*_.MELT_DEBUG_FUN__V60*/ meltfptr[31] =
+ (melt_ptr_t *) & /*_.FLDNAM__V60*/ meltfptr[36];
+ /*_.MELT_DEBUG_FUN__V63*/ meltfptr[34] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
tabval[0])),
@@ -15941,66 +16094,66 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V59*/ meltfptr[39] =
- /*_.MELT_DEBUG_FUN__V60*/ meltfptr[31];;
+ /*_.IF___V62*/ meltfptr[42] =
+ /*_.MELT_DEBUG_FUN__V63*/ meltfptr[34];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3159:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[16] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3168:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[17] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V60*/ meltfptr[31] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V63*/ meltfptr[34] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V59*/ meltfptr[39] = NULL;;
+ /*_.IF___V62*/ meltfptr[42] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3159:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3168:/ quasiblock");
- /*_.PROGN___V61*/ meltfptr[45] = /*_.IF___V59*/ meltfptr[39];;
+ /*_.PROGN___V64*/ meltfptr[48] = /*_.IF___V62*/ meltfptr[42];;
/*^compute */
- /*_.IFCPP___V58*/ meltfptr[34] = /*_.PROGN___V61*/ meltfptr[45];;
+ /*_.IFCPP___V61*/ meltfptr[37] = /*_.PROGN___V64*/ meltfptr[48];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3159:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[12] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3168:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[13] = 0;
/*^clear */
- /*clear *//*_.IF___V59*/ meltfptr[39] = 0;
+ /*clear *//*_.IF___V62*/ meltfptr[42] = 0;
/*^clear */
- /*clear *//*_.PROGN___V61*/ meltfptr[45] = 0;
+ /*clear *//*_.PROGN___V64*/ meltfptr[48] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V58*/ meltfptr[34] = ( /*nil */ NULL);
+ /*_.IFCPP___V61*/ meltfptr[37] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3160:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3169:/ cppif.then");
/*^block */
/*anyblock */
{
- /*_#IS_A__L23*/ meltfnum[16] =
+ /*_#IS_A__L24*/ meltfnum[17] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.FLDNAM__V57*/ meltfptr[33]),
+ ( /*_.FLDNAM__V60*/ meltfptr[36]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */
meltfrout->tabval[8])));;
- MELT_LOCATION ("warmelt-macro.melt:3160:/ cond");
- /*cond */ if ( /*_#IS_A__L23*/ meltfnum[16]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3169:/ cond");
+ /*cond */ if ( /*_#IS_A__L24*/ meltfnum[17]) /*then */
{
/*^cond.then */
- /*_.IFELSE___V63*/ meltfptr[42] = ( /*nil */ NULL);;
+ /*_.IFELSE___V66*/ meltfptr[45] = ( /*nil */ NULL);;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3160:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3169:/ cond.else");
/*^block */
/*anyblock */
@@ -16014,12 +16167,12 @@ lab_endgetargs:;
melt_assert_failed (("check fldnam symb"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3160) ? (3160) : __LINE__,
+ (3169) ? (3169) : __LINE__,
__FUNCTION__);
;
}
;
- /*clear *//*_.IFELSE___V63*/ meltfptr[42] = 0;
+ /*clear *//*_.IFELSE___V66*/ meltfptr[45] = 0;
/*epilog */
}
;
@@ -16027,21 +16180,21 @@ lab_endgetargs:;
;
/*^compute */
- /*_.IFCPP___V62*/ meltfptr[44] = /*_.IFELSE___V63*/ meltfptr[42];;
+ /*_.IFCPP___V65*/ meltfptr[47] = /*_.IFELSE___V66*/ meltfptr[45];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3160:/ clear");
- /*clear *//*_#IS_A__L23*/ meltfnum[16] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3169:/ clear");
+ /*clear *//*_#IS_A__L24*/ meltfnum[17] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V63*/ meltfptr[42] = 0;
+ /*clear *//*_.IFELSE___V66*/ meltfptr[45] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V62*/ meltfptr[44] = ( /*nil */ NULL);
+ /*_.IFCPP___V65*/ meltfptr[47] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3161:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3170:/ quasiblock");
/*^apply */
@@ -16051,8 +16204,8 @@ lab_endgetargs:;
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
- (melt_ptr_t *) & /*_.FLDNAM__V57*/ meltfptr[33];
- /*_.FLDBIND__V65*/ meltfptr[39] =
+ (melt_ptr_t *) & /*_.FLDNAM__V60*/ meltfptr[36];
+ /*_.FLDBIND__V68*/ meltfptr[42] =
melt_apply ((meltclosure_ptr_t)
(( /*!FIND_ENV */ meltfrout->tabval[9])),
(melt_ptr_t) ( /*_.ENV__V6*/ meltfptr[5]),
@@ -16062,7 +16215,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3162:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3171:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -16077,7 +16230,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L24*/ meltfnum[12] =
+ /*_#MELT_NEED_DBG__L25*/ meltfnum[13] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -16085,35 +16238,35 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3162:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L24*/ meltfnum[12]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3171:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L25*/ meltfnum[13]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[16] =
+ /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[17] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3162:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3171:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L25*/ meltfnum[16];
+ /*_#THE_MELTCALLCOUNT__L26*/ meltfnum[17];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3162;
+ argtab[2].meltbp_long = 3171;
/*^apply.arg */
argtab[3].meltbp_cstring =
"parse_field_assignment fldbind";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.FLDBIND__V65*/ meltfptr[39];
- /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] =
+ (melt_ptr_t *) & /*_.FLDBIND__V68*/ meltfptr[42];
+ /*_.MELT_DEBUG_FUN__V71*/ meltfptr[70] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
tabval[0])),
@@ -16124,51 +16277,51 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V67*/ meltfptr[42] =
- /*_.MELT_DEBUG_FUN__V68*/ meltfptr[67];;
+ /*_.IF___V70*/ meltfptr[45] =
+ /*_.MELT_DEBUG_FUN__V71*/ meltfptr[70];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3162:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L25*/ meltfnum[16] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3171:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L26*/ meltfnum[17] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V68*/ meltfptr[67] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V71*/ meltfptr[70] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V67*/ meltfptr[42] = NULL;;
+ /*_.IF___V70*/ meltfptr[45] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3162:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3171:/ quasiblock");
- /*_.PROGN___V69*/ meltfptr[67] = /*_.IF___V67*/ meltfptr[42];;
+ /*_.PROGN___V72*/ meltfptr[70] = /*_.IF___V70*/ meltfptr[45];;
/*^compute */
- /*_.IFCPP___V66*/ meltfptr[45] = /*_.PROGN___V69*/ meltfptr[67];;
+ /*_.IFCPP___V69*/ meltfptr[48] = /*_.PROGN___V72*/ meltfptr[70];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3162:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L24*/ meltfnum[12] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3171:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L25*/ meltfnum[13] = 0;
/*^clear */
- /*clear *//*_.IF___V67*/ meltfptr[42] = 0;
+ /*clear *//*_.IF___V70*/ meltfptr[45] = 0;
/*^clear */
- /*clear *//*_.PROGN___V69*/ meltfptr[67] = 0;
+ /*clear *//*_.PROGN___V72*/ meltfptr[70] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V66*/ meltfptr[45] = ( /*nil */ NULL);
+ /*_.IFCPP___V69*/ meltfptr[48] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
- /*_#NULL__L26*/ meltfnum[16] =
- (( /*_.FLDBIND__V65*/ meltfptr[39]) == NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3164:/ cond");
- /*cond */ if ( /*_#NULL__L26*/ meltfnum[16]) /*then */
+ /*_#NULL__L27*/ meltfnum[17] =
+ (( /*_.FLDBIND__V68*/ meltfptr[42]) == NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:3173:/ cond");
+ /*cond */ if ( /*_#NULL__L27*/ meltfnum[17]) /*then */
{
/*^cond.then */
/*^block */
@@ -16177,35 +16330,35 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3165:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3174:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]),
("unknown field name in field assignment"),
- (melt_ptr_t) ( /*_.FLDKWNAM__V56*/
- meltfptr[32]));
+ (melt_ptr_t) ( /*_.FLDKWNAM__V59*/
+ meltfptr[35]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:3167:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3176:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:3167:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3176:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3164:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3173:/ quasiblock");
- /*_.PROGN___V72*/ meltfptr[71] =
- /*_.RETURN___V71*/ meltfptr[67];;
+ /*_.PROGN___V75*/ meltfptr[74] =
+ /*_.RETURN___V74*/ meltfptr[70];;
/*^compute */
- /*_.IFELSE___V70*/ meltfptr[42] =
- /*_.PROGN___V72*/ meltfptr[71];;
+ /*_.IFELSE___V73*/ meltfptr[45] =
+ /*_.PROGN___V75*/ meltfptr[74];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3164:/ clear");
- /*clear *//*_.RETURN___V71*/ meltfptr[67] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3173:/ clear");
+ /*clear *//*_.RETURN___V74*/ meltfptr[70] = 0;
/*^clear */
- /*clear *//*_.PROGN___V72*/ meltfptr[71] = 0;
+ /*clear *//*_.PROGN___V75*/ meltfptr[74] = 0;
}
;
}
@@ -16216,33 +16369,33 @@ lab_endgetargs:;
/*anyblock */
{
- /*_#IS_A__L27*/ meltfnum[12] =
+ /*_#IS_A__L28*/ meltfnum[13] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.FLDBIND__V65*/ meltfptr[39]),
+ ( /*_.FLDBIND__V68*/ meltfptr[42]),
(melt_ptr_t) (( /*!CLASS_FIELD_BINDING */ meltfrout->tabval[10])));;
- MELT_LOCATION ("warmelt-macro.melt:3169:/ cond");
- /*cond */ if ( /*_#IS_A__L27*/ meltfnum[12]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3178:/ cond");
+ /*cond */ if ( /*_#IS_A__L28*/ meltfnum[13]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3170:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3179:/ getslot");
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.FLDBIND__V65*/ meltfptr[39]), 3, "FLBIND_FIELD");
- /*_.FLBIND_FIELD__V74*/
- meltfptr[71] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.FLDBIND__V68*/ meltfptr[42]), 3, "FLBIND_FIELD");
+ /*_.FLBIND_FIELD__V77*/
+ meltfptr[74] = slot;
};
;
/*^compute */
- /*_.FLD__V30*/ meltfptr[29] =
- /*_.SETQ___V75*/ meltfptr[74] =
- /*_.FLBIND_FIELD__V74*/ meltfptr[71];;
+ /*_.FLD__V33*/ meltfptr[32] =
+ /*_.SETQ___V78*/ meltfptr[77] =
+ /*_.FLBIND_FIELD__V77*/ meltfptr[74];;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3171:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3180:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -16257,7 +16410,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L28*/ meltfnum[27] =
+ /*_#MELT_NEED_DBG__L29*/ meltfnum[28] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -16265,38 +16418,38 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3171:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L28*/ meltfnum[27]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3180:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L29*/ meltfnum[28]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L29*/ meltfnum[28] =
+ /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[29] =
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:3171:/ apply");
+ ("warmelt-macro.melt:3180:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L29*/ meltfnum[28];
+ /*_#THE_MELTCALLCOUNT__L30*/ meltfnum[29];
/*^apply.arg */
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3171;
+ argtab[2].meltbp_long = 3180;
/*^apply.arg */
argtab[3].meltbp_cstring =
"parse_field_assignment found fld in field binding";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.FLD__V30*/
- meltfptr[29];
- /*_.MELT_DEBUG_FUN__V78*/ meltfptr[77] =
+ (melt_ptr_t *) & /*_.FLD__V33*/
+ meltfptr[32];
+ /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */
meltfrout->tabval[0])),
@@ -16309,16 +16462,16 @@ lab_endgetargs:;
"", (union meltparam_un *) 0);
}
;
- /*_.IF___V77*/ meltfptr[76] =
- /*_.MELT_DEBUG_FUN__V78*/ meltfptr[77];;
+ /*_.IF___V80*/ meltfptr[79] =
+ /*_.MELT_DEBUG_FUN__V81*/ meltfptr[80];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:3171:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L29*/
- meltfnum[28] = 0;
+ ("warmelt-macro.melt:3180:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L30*/
+ meltfnum[29] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V78*/ meltfptr[77]
+ /*clear *//*_.MELT_DEBUG_FUN__V81*/ meltfptr[80]
= 0;
}
;
@@ -16326,53 +16479,53 @@ lab_endgetargs:;
else
{ /*^cond.else */
- /*_.IF___V77*/ meltfptr[76] = NULL;;
+ /*_.IF___V80*/ meltfptr[79] = NULL;;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:3171:/ quasiblock");
+ ("warmelt-macro.melt:3180:/ quasiblock");
- /*_.PROGN___V79*/ meltfptr[77] =
- /*_.IF___V77*/ meltfptr[76];;
+ /*_.PROGN___V82*/ meltfptr[80] =
+ /*_.IF___V80*/ meltfptr[79];;
/*^compute */
- /*_.IFCPP___V76*/ meltfptr[75] =
- /*_.PROGN___V79*/ meltfptr[77];;
+ /*_.IFCPP___V79*/ meltfptr[78] =
+ /*_.PROGN___V82*/ meltfptr[80];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3171:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L28*/ meltfnum[27] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3180:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L29*/ meltfnum[28] = 0;
/*^clear */
- /*clear *//*_.IF___V77*/ meltfptr[76] = 0;
+ /*clear *//*_.IF___V80*/ meltfptr[79] = 0;
/*^clear */
- /*clear *//*_.PROGN___V79*/ meltfptr[77] = 0;
+ /*clear *//*_.PROGN___V82*/ meltfptr[80] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V76*/ meltfptr[75] = ( /*nil */ NULL);
+ /*_.IFCPP___V79*/ meltfptr[78] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3169:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3178:/ quasiblock");
- /*_.PROGN___V80*/ meltfptr[76] =
- /*_.IFCPP___V76*/ meltfptr[75];;
+ /*_.PROGN___V83*/ meltfptr[79] =
+ /*_.IFCPP___V79*/ meltfptr[78];;
/*^compute */
- /*_.IFELSE___V73*/ meltfptr[67] =
- /*_.PROGN___V80*/ meltfptr[76];;
+ /*_.IFELSE___V76*/ meltfptr[70] =
+ /*_.PROGN___V83*/ meltfptr[79];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3169:/ clear");
- /*clear *//*_.FLBIND_FIELD__V74*/ meltfptr[71] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3178:/ clear");
+ /*clear *//*_.FLBIND_FIELD__V77*/ meltfptr[74] = 0;
/*^clear */
- /*clear *//*_.SETQ___V75*/ meltfptr[74] = 0;
+ /*clear *//*_.SETQ___V78*/ meltfptr[77] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V76*/ meltfptr[75] = 0;
+ /*clear *//*_.IFCPP___V79*/ meltfptr[78] = 0;
/*^clear */
- /*clear *//*_.PROGN___V80*/ meltfptr[76] = 0;
+ /*clear *//*_.PROGN___V83*/ meltfptr[79] = 0;
}
;
}
@@ -16383,13 +16536,13 @@ lab_endgetargs:;
/*anyblock */
{
- /*_#IS_A__L30*/ meltfnum[28] =
+ /*_#IS_A__L31*/ meltfnum[29] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.FLDBIND__V65*/
- meltfptr[39]),
+ ( /*_.FLDBIND__V68*/
+ meltfptr[42]),
(melt_ptr_t) (( /*!CLASS_VALUE_BINDING */ meltfrout->tabval[11])));;
- MELT_LOCATION ("warmelt-macro.melt:3173:/ cond");
- /*cond */ if ( /*_#IS_A__L30*/ meltfnum[28]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3182:/ cond");
+ /*cond */ if ( /*_#IS_A__L31*/ meltfnum[29]) /*then */
{
/*^cond.then */
/*^block */
@@ -16397,21 +16550,21 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:3174:/ quasiblock");
+ ("warmelt-macro.melt:3183:/ quasiblock");
/*^getslot */
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.FLDBIND__V65*/ meltfptr[39]), 1, "VBIND_VALUE");
- /*_.VFLD__V83*/
- meltfptr[74] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.FLDBIND__V68*/ meltfptr[42]), 1, "VBIND_VALUE");
+ /*_.VFLD__V86*/
+ meltfptr[77] = slot;
};
;
#if MELT_HAVE_DEBUG
MELT_LOCATION
- ("warmelt-macro.melt:3175:/ cppif.then");
+ ("warmelt-macro.melt:3184:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -16426,7 +16579,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L31*/ meltfnum[27] =
+ /*_#MELT_NEED_DBG__L32*/ meltfnum[28] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */
@@ -16436,40 +16589,40 @@ lab_endgetargs:;
#endif /*MELT_HAVE_DEBUG */
;;
MELT_LOCATION
- ("warmelt-macro.melt:3175:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L31*/ meltfnum[27]) /*then */
+ ("warmelt-macro.melt:3184:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L32*/ meltfnum[28]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L32*/ meltfnum[31]
+ /*_#THE_MELTCALLCOUNT__L33*/ meltfnum[32]
=
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:3175:/ apply");
+ ("warmelt-macro.melt:3184:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L32*/
- meltfnum[31];
+ /*_#THE_MELTCALLCOUNT__L33*/
+ meltfnum[32];
/*^apply.arg */
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3175;
+ argtab[2].meltbp_long = 3184;
/*^apply.arg */
argtab[3].meltbp_cstring =
"parse_field_assignment has vfld";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.VFLD__V83*/
- meltfptr[74];
- /*_.MELT_DEBUG_FUN__V86*/ meltfptr[85] =
+ (melt_ptr_t *) & /*_.VFLD__V86*/
+ meltfptr[77];
+ /*_.MELT_DEBUG_FUN__V89*/ meltfptr[88] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */
meltfrout->tabval[0])),
@@ -16484,62 +16637,62 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V85*/ meltfptr[76] =
- /*_.MELT_DEBUG_FUN__V86*/ meltfptr[85];;
+ /*_.IF___V88*/ meltfptr[79] =
+ /*_.MELT_DEBUG_FUN__V89*/ meltfptr[88];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:3175:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L32*/
- meltfnum[31] = 0;
+ ("warmelt-macro.melt:3184:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L33*/
+ meltfnum[32] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V86*/
- meltfptr[85] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V89*/
+ meltfptr[88] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V85*/ meltfptr[76] = NULL;;
+ /*_.IF___V88*/ meltfptr[79] = NULL;;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:3175:/ quasiblock");
+ ("warmelt-macro.melt:3184:/ quasiblock");
- /*_.PROGN___V87*/ meltfptr[85] =
- /*_.IF___V85*/ meltfptr[76];;
+ /*_.PROGN___V90*/ meltfptr[88] =
+ /*_.IF___V88*/ meltfptr[79];;
/*^compute */
- /*_.IFCPP___V84*/ meltfptr[75] =
- /*_.PROGN___V87*/ meltfptr[85];;
+ /*_.IFCPP___V87*/ meltfptr[78] =
+ /*_.PROGN___V90*/ meltfptr[88];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:3175:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L31*/ meltfnum[27]
+ ("warmelt-macro.melt:3184:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L32*/ meltfnum[28]
= 0;
/*^clear */
- /*clear *//*_.IF___V85*/ meltfptr[76] = 0;
+ /*clear *//*_.IF___V88*/ meltfptr[79] = 0;
/*^clear */
- /*clear *//*_.PROGN___V87*/ meltfptr[85] = 0;
+ /*clear *//*_.PROGN___V90*/ meltfptr[88] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V84*/ meltfptr[75] = ( /*nil */ NULL);
+ /*_.IFCPP___V87*/ meltfptr[78] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
- /*_#IS_A__L33*/ meltfnum[31] =
+ /*_#IS_A__L34*/ meltfnum[32] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.VFLD__V83*/
- meltfptr[74]),
+ ( /*_.VFLD__V86*/
+ meltfptr[77]),
(melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout->tabval[12])));;
- MELT_LOCATION ("warmelt-macro.melt:3176:/ cond");
- /*cond */ if ( /*_#IS_A__L33*/ meltfnum[31]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3185:/ cond");
+ /*cond */ if ( /*_#IS_A__L34*/ meltfnum[32]) /*then */
{
/*^cond.then */
/*^block */
@@ -16547,39 +16700,39 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:3177:/ quasiblock");
+ ("warmelt-macro.melt:3186:/ quasiblock");
/*^getslot */
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.VFLD__V83*/ meltfptr[74]), 1, "NAMED_NAME");
- /*_.VFLDNAM__V90*/
- meltfptr[89] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.VFLD__V86*/ meltfptr[77]), 1, "NAMED_NAME");
+ /*_.VFLDNAM__V93*/
+ meltfptr[92] = slot;
};
;
MELT_LOCATION
- ("warmelt-macro.melt:3178:/ getslot");
+ ("warmelt-macro.melt:3187:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.FLDKW__V4*/ meltfptr[3]), 1, "NAMED_NAME");
- /*_.KWNAM__V91*/
- meltfptr[90] = slot;
+ /*_.KWNAM__V94*/
+ meltfptr[93] = slot;
};
;
MELT_LOCATION
- ("warmelt-macro.melt:3180:/ compute");
- /*_.FLD__V30*/ meltfptr[29] =
- /*_.SETQ___V92*/ meltfptr[91] =
- /*_.VFLD__V83*/ meltfptr[74];;
- /*_#S__L34*/ meltfnum[27] =
+ ("warmelt-macro.melt:3189:/ compute");
+ /*_.FLD__V33*/ meltfptr[32] =
+ /*_.SETQ___V95*/ meltfptr[94] =
+ /*_.VFLD__V86*/ meltfptr[77];;
+ /*_#S__L35*/ meltfnum[28] =
!melt_string_same ((melt_ptr_t)
- ( /*_.VFLDNAM__V90*/
- meltfptr[89]),
- (melt_ptr_t) ( /*_.KWNAM__V91*/ meltfptr[90]));;
+ ( /*_.VFLDNAM__V93*/
+ meltfptr[92]),
+ (melt_ptr_t) ( /*_.KWNAM__V94*/ meltfptr[93]));;
MELT_LOCATION
- ("warmelt-macro.melt:3181:/ cond");
- /*cond */ if ( /*_#S__L34*/ meltfnum[27]) /*then */
+ ("warmelt-macro.melt:3190:/ cond");
+ /*cond */ if ( /*_#S__L35*/ meltfnum[28]) /*then */
{
/*^cond.then */
/*^block */
@@ -16589,24 +16742,24 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:3184:/ locexp");
+ ("warmelt-macro.melt:3193:/ locexp");
melt_warning_str (0,
- (melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), ("obsolete use of synonym field"), (melt_ptr_t) ( /*_.KWNAM__V91*/ meltfptr[90]));
+ (melt_ptr_t) ( /*_.LOC__V3*/ meltfptr[2]), ("obsolete use of synonym field"), (melt_ptr_t) ( /*_.KWNAM__V94*/ meltfptr[93]));
}
;
{
MELT_LOCATION
- ("warmelt-macro.melt:3185:/ locexp");
+ ("warmelt-macro.melt:3194:/ locexp");
melt_inform_str ((melt_ptr_t)
( /*_.LOC__V3*/
meltfptr[2]),
("better use real field name"),
- (melt_ptr_t) ( /*_.VFLDNAM__V90*/ meltfptr[89]));
+ (melt_ptr_t) ( /*_.VFLDNAM__V93*/ meltfptr[92]));
}
;
MELT_LOCATION
- ("warmelt-macro.melt:3182:/ quasiblock");
+ ("warmelt-macro.melt:3191:/ quasiblock");
/*epilog */
@@ -16617,7 +16770,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
MELT_LOCATION
- ("warmelt-macro.melt:3186:/ cppif.then");
+ ("warmelt-macro.melt:3195:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -16632,7 +16785,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L35*/ meltfnum[34] =
+ /*_#MELT_NEED_DBG__L36*/ meltfnum[35] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */
@@ -16642,19 +16795,19 @@ lab_endgetargs:;
#endif /*MELT_HAVE_DEBUG */
;;
MELT_LOCATION
- ("warmelt-macro.melt:3186:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L35*/ meltfnum[34]) /*then */
+ ("warmelt-macro.melt:3195:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L36*/ meltfnum[35]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L36*/
- meltfnum[35] =
+ /*_#THE_MELTCALLCOUNT__L37*/
+ meltfnum[36] =
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:3186:/ apply");
+ ("warmelt-macro.melt:3195:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -16662,129 +16815,129 @@ lab_endgetargs:;
sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L36*/
- meltfnum[35];
+ /*_#THE_MELTCALLCOUNT__L37*/
+ meltfnum[36];
/*^apply.arg */
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3186;
+ argtab[2].meltbp_long = 3195;
/*^apply.arg */
argtab[3].meltbp_cstring =
"parse_field_assignment gives vfld";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.VFLD__V83*/
- meltfptr[74];
- /*_.MELT_DEBUG_FUN__V95*/
- meltfptr[94] =
+ (melt_ptr_t *) & /*_.VFLD__V86*/
+ meltfptr[77];
+ /*_.MELT_DEBUG_FUN__V98*/
+ meltfptr[97] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
}
;
- /*_.IF___V94*/ meltfptr[93] =
- /*_.MELT_DEBUG_FUN__V95*/
- meltfptr[94];;
+ /*_.IF___V97*/ meltfptr[96] =
+ /*_.MELT_DEBUG_FUN__V98*/
+ meltfptr[97];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:3186:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L36*/
- meltfnum[35] = 0;
+ ("warmelt-macro.melt:3195:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L37*/
+ meltfnum[36] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V95*/
- meltfptr[94] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V98*/
+ meltfptr[97] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V94*/ meltfptr[93] = NULL;;
+ /*_.IF___V97*/ meltfptr[96] = NULL;;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:3186:/ quasiblock");
+ ("warmelt-macro.melt:3195:/ quasiblock");
- /*_.PROGN___V96*/ meltfptr[94] =
- /*_.IF___V94*/ meltfptr[93];;
+ /*_.PROGN___V99*/ meltfptr[97] =
+ /*_.IF___V97*/ meltfptr[96];;
/*^compute */
- /*_.IFCPP___V93*/ meltfptr[92] =
- /*_.PROGN___V96*/ meltfptr[94];;
+ /*_.IFCPP___V96*/ meltfptr[95] =
+ /*_.PROGN___V99*/ meltfptr[97];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:3186:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L35*/
- meltfnum[34] = 0;
+ ("warmelt-macro.melt:3195:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L36*/
+ meltfnum[35] = 0;
/*^clear */
- /*clear *//*_.IF___V94*/ meltfptr[93] = 0;
+ /*clear *//*_.IF___V97*/ meltfptr[96] = 0;
/*^clear */
- /*clear *//*_.PROGN___V96*/ meltfptr[94] =
+ /*clear *//*_.PROGN___V99*/ meltfptr[97] =
0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V93*/ meltfptr[92] =
+ /*_.IFCPP___V96*/ meltfptr[95] =
( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
- /*_.LET___V89*/ meltfptr[85] =
- /*_.VFLD__V83*/ meltfptr[74];;
+ /*_.LET___V92*/ meltfptr[88] =
+ /*_.VFLD__V86*/ meltfptr[77];;
MELT_LOCATION
- ("warmelt-macro.melt:3177:/ clear");
- /*clear *//*_.VFLDNAM__V90*/ meltfptr[89] =
+ ("warmelt-macro.melt:3186:/ clear");
+ /*clear *//*_.VFLDNAM__V93*/ meltfptr[92] =
0;
/*^clear */
- /*clear *//*_.KWNAM__V91*/ meltfptr[90] = 0;
+ /*clear *//*_.KWNAM__V94*/ meltfptr[93] = 0;
/*^clear */
- /*clear *//*_.SETQ___V92*/ meltfptr[91] = 0;
+ /*clear *//*_.SETQ___V95*/ meltfptr[94] = 0;
/*^clear */
- /*clear *//*_#S__L34*/ meltfnum[27] = 0;
+ /*clear *//*_#S__L35*/ meltfnum[28] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V93*/ meltfptr[92] =
+ /*clear *//*_.IFCPP___V96*/ meltfptr[95] =
0;
- /*_.IF___V88*/ meltfptr[76] =
- /*_.LET___V89*/ meltfptr[85];;
+ /*_.IF___V91*/ meltfptr[79] =
+ /*_.LET___V92*/ meltfptr[88];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:3176:/ clear");
- /*clear *//*_.LET___V89*/ meltfptr[85] = 0;
+ ("warmelt-macro.melt:3185:/ clear");
+ /*clear *//*_.LET___V92*/ meltfptr[88] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V88*/ meltfptr[76] = NULL;;
+ /*_.IF___V91*/ meltfptr[79] = NULL;;
}
;
/*^compute */
- /*_.LET___V82*/ meltfptr[71] =
- /*_.IF___V88*/ meltfptr[76];;
+ /*_.LET___V85*/ meltfptr[74] =
+ /*_.IF___V91*/ meltfptr[79];;
- MELT_LOCATION ("warmelt-macro.melt:3174:/ clear");
- /*clear *//*_.VFLD__V83*/ meltfptr[74] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3183:/ clear");
+ /*clear *//*_.VFLD__V86*/ meltfptr[77] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V84*/ meltfptr[75] = 0;
+ /*clear *//*_.IFCPP___V87*/ meltfptr[78] = 0;
/*^clear */
- /*clear *//*_#IS_A__L33*/ meltfnum[31] = 0;
+ /*clear *//*_#IS_A__L34*/ meltfnum[32] = 0;
/*^clear */
- /*clear *//*_.IF___V88*/ meltfptr[76] = 0;
- /*_.IFELSE___V81*/ meltfptr[77] =
- /*_.LET___V82*/ meltfptr[71];;
+ /*clear *//*_.IF___V91*/ meltfptr[79] = 0;
+ /*_.IFELSE___V84*/ meltfptr[80] =
+ /*_.LET___V85*/ meltfptr[74];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3173:/ clear");
- /*clear *//*_.LET___V82*/ meltfptr[71] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3182:/ clear");
+ /*clear *//*_.LET___V85*/ meltfptr[74] = 0;
}
;
}
@@ -16798,69 +16951,69 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:3189:/ locexp");
+ ("warmelt-macro.melt:3198:/ locexp");
melt_error_str ((melt_ptr_t)
( /*_.LOC__V3*/ meltfptr[2]),
("bad field name in field assignment"),
- (melt_ptr_t) ( /*_.FLDKWNAM__V56*/ meltfptr[32]));
+ (melt_ptr_t) ( /*_.FLDKWNAM__V59*/ meltfptr[35]));
}
;
MELT_LOCATION
- ("warmelt-macro.melt:3191:/ quasiblock");
+ ("warmelt-macro.melt:3200:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
MELT_LOCATION
- ("warmelt-macro.melt:3191:/ finalreturn");
+ ("warmelt-macro.melt:3200:/ finalreturn");
;
/*finalret */ goto labend_rout;
MELT_LOCATION
- ("warmelt-macro.melt:3188:/ quasiblock");
+ ("warmelt-macro.melt:3197:/ quasiblock");
- /*_.PROGN___V98*/ meltfptr[94] =
- /*_.RETURN___V97*/ meltfptr[93];;
+ /*_.PROGN___V101*/ meltfptr[97] =
+ /*_.RETURN___V100*/ meltfptr[96];;
/*^compute */
- /*_.IFELSE___V81*/ meltfptr[77] =
- /*_.PROGN___V98*/ meltfptr[94];;
+ /*_.IFELSE___V84*/ meltfptr[80] =
+ /*_.PROGN___V101*/ meltfptr[97];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3173:/ clear");
- /*clear *//*_.RETURN___V97*/ meltfptr[93] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3182:/ clear");
+ /*clear *//*_.RETURN___V100*/ meltfptr[96] = 0;
/*^clear */
- /*clear *//*_.PROGN___V98*/ meltfptr[94] = 0;
+ /*clear *//*_.PROGN___V101*/ meltfptr[97] = 0;
}
;
}
;
- /*_.IFELSE___V73*/ meltfptr[67] =
- /*_.IFELSE___V81*/ meltfptr[77];;
+ /*_.IFELSE___V76*/ meltfptr[70] =
+ /*_.IFELSE___V84*/ meltfptr[80];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3169:/ clear");
- /*clear *//*_#IS_A__L30*/ meltfnum[28] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3178:/ clear");
+ /*clear *//*_#IS_A__L31*/ meltfnum[29] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V81*/ meltfptr[77] = 0;
+ /*clear *//*_.IFELSE___V84*/ meltfptr[80] = 0;
}
;
}
;
- /*_.IFELSE___V70*/ meltfptr[42] =
- /*_.IFELSE___V73*/ meltfptr[67];;
+ /*_.IFELSE___V73*/ meltfptr[45] =
+ /*_.IFELSE___V76*/ meltfptr[70];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3164:/ clear");
- /*clear *//*_#IS_A__L27*/ meltfnum[12] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3173:/ clear");
+ /*clear *//*_#IS_A__L28*/ meltfnum[13] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V73*/ meltfptr[67] = 0;
+ /*clear *//*_.IFELSE___V76*/ meltfptr[70] = 0;
}
;
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3193:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3202:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -16875,7 +17028,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L37*/ meltfnum[35] =
+ /*_#MELT_NEED_DBG__L38*/ meltfnum[36] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -16883,35 +17036,35 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3193:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L37*/ meltfnum[35]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3202:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L38*/ meltfnum[36]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L38*/ meltfnum[34] =
+ /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[35] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3193:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3202:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L38*/ meltfnum[34];
+ /*_#THE_MELTCALLCOUNT__L39*/ meltfnum[35];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3193;
+ argtab[2].meltbp_long = 3202;
/*^apply.arg */
argtab[3].meltbp_cstring =
"parse_field_assignment fld from environment";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.FLD__V30*/ meltfptr[29];
- /*_.MELT_DEBUG_FUN__V101*/ meltfptr[91] =
+ (melt_ptr_t *) & /*_.FLD__V33*/ meltfptr[32];
+ /*_.MELT_DEBUG_FUN__V104*/ meltfptr[94] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
tabval[0])),
@@ -16922,105 +17075,106 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V100*/ meltfptr[90] =
- /*_.MELT_DEBUG_FUN__V101*/ meltfptr[91];;
+ /*_.IF___V103*/ meltfptr[93] =
+ /*_.MELT_DEBUG_FUN__V104*/ meltfptr[94];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3193:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L38*/ meltfnum[34] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3202:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L39*/ meltfnum[35] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V101*/ meltfptr[91] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V104*/ meltfptr[94] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V100*/ meltfptr[90] = NULL;;
+ /*_.IF___V103*/ meltfptr[93] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3193:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3202:/ quasiblock");
- /*_.PROGN___V102*/ meltfptr[92] = /*_.IF___V100*/ meltfptr[90];;
+ /*_.PROGN___V105*/ meltfptr[95] = /*_.IF___V103*/ meltfptr[93];;
/*^compute */
- /*_.IFCPP___V99*/ meltfptr[89] = /*_.PROGN___V102*/ meltfptr[92];;
+ /*_.IFCPP___V102*/ meltfptr[92] =
+ /*_.PROGN___V105*/ meltfptr[95];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3193:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L37*/ meltfnum[35] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3202:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L38*/ meltfnum[36] = 0;
/*^clear */
- /*clear *//*_.IF___V100*/ meltfptr[90] = 0;
+ /*clear *//*_.IF___V103*/ meltfptr[93] = 0;
/*^clear */
- /*clear *//*_.PROGN___V102*/ meltfptr[92] = 0;
+ /*clear *//*_.PROGN___V105*/ meltfptr[95] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V99*/ meltfptr[89] = ( /*nil */ NULL);
+ /*_.IFCPP___V102*/ meltfptr[92] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
- /*_.LET___V64*/ meltfptr[31] = /*_.IFCPP___V99*/ meltfptr[89];;
+ /*_.LET___V67*/ meltfptr[34] = /*_.IFCPP___V102*/ meltfptr[92];;
- MELT_LOCATION ("warmelt-macro.melt:3161:/ clear");
- /*clear *//*_.FLDBIND__V65*/ meltfptr[39] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3170:/ clear");
+ /*clear *//*_.FLDBIND__V68*/ meltfptr[42] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V66*/ meltfptr[45] = 0;
+ /*clear *//*_.IFCPP___V69*/ meltfptr[48] = 0;
/*^clear */
- /*clear *//*_#NULL__L26*/ meltfnum[16] = 0;
+ /*clear *//*_#NULL__L27*/ meltfnum[17] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V70*/ meltfptr[42] = 0;
+ /*clear *//*_.IFELSE___V73*/ meltfptr[45] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V99*/ meltfptr[89] = 0;
- /*_.LET___V55*/ meltfptr[41] = /*_.LET___V64*/ meltfptr[31];;
+ /*clear *//*_.IFCPP___V102*/ meltfptr[92] = 0;
+ /*_.LET___V58*/ meltfptr[44] = /*_.LET___V67*/ meltfptr[34];;
- MELT_LOCATION ("warmelt-macro.melt:3156:/ clear");
- /*clear *//*_.FLDKWNAM__V56*/ meltfptr[32] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3165:/ clear");
+ /*clear *//*_.FLDKWNAM__V59*/ meltfptr[35] = 0;
/*^clear */
- /*clear *//*_.FLDNAM__V57*/ meltfptr[33] = 0;
+ /*clear *//*_.FLDNAM__V60*/ meltfptr[36] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V58*/ meltfptr[34] = 0;
+ /*clear *//*_.IFCPP___V61*/ meltfptr[37] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V62*/ meltfptr[44] = 0;
+ /*clear *//*_.IFCPP___V65*/ meltfptr[47] = 0;
/*^clear */
- /*clear *//*_.LET___V64*/ meltfptr[31] = 0;
- /*_.IF___V54*/ meltfptr[40] = /*_.LET___V55*/ meltfptr[41];;
+ /*clear *//*_.LET___V67*/ meltfptr[34] = 0;
+ /*_.IF___V57*/ meltfptr[43] = /*_.LET___V58*/ meltfptr[44];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3154:/ clear");
- /*clear *//*_.LET___V55*/ meltfptr[41] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3163:/ clear");
+ /*clear *//*_.LET___V58*/ meltfptr[44] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V54*/ meltfptr[40] = NULL;;
+ /*_.IF___V57*/ meltfptr[43] = NULL;;
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3196:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3205:/ cppif.then");
/*^block */
/*anyblock */
{
- /*_#IS_A__L39*/ meltfnum[27] =
- melt_is_instance_of ((melt_ptr_t) ( /*_.FLD__V30*/ meltfptr[29]),
+ /*_#IS_A__L40*/ meltfnum[28] =
+ melt_is_instance_of ((melt_ptr_t) ( /*_.FLD__V33*/ meltfptr[32]),
(melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout->
tabval[12])));;
- MELT_LOCATION ("warmelt-macro.melt:3196:/ cond");
- /*cond */ if ( /*_#IS_A__L39*/ meltfnum[27]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3205:/ cond");
+ /*cond */ if ( /*_#IS_A__L40*/ meltfnum[28]) /*then */
{
/*^cond.then */
- /*_.IFELSE___V104*/ meltfptr[74] = ( /*nil */ NULL);;
+ /*_.IFELSE___V107*/ meltfptr[77] = ( /*nil */ NULL);;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3196:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3205:/ cond.else");
/*^block */
/*anyblock */
@@ -17034,11 +17188,11 @@ lab_endgetargs:;
melt_assert_failed (("check fld"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3196) ? (3196) : __LINE__, __FUNCTION__);
+ (3205) ? (3205) : __LINE__, __FUNCTION__);
;
}
;
- /*clear *//*_.IFELSE___V104*/ meltfptr[74] = 0;
+ /*clear *//*_.IFELSE___V107*/ meltfptr[77] = 0;
/*epilog */
}
;
@@ -17046,42 +17200,43 @@ lab_endgetargs:;
;
/*^compute */
- /*_.IFCPP___V103*/ meltfptr[85] = /*_.IFELSE___V104*/ meltfptr[74];;
+ /*_.IFCPP___V106*/ meltfptr[88] = /*_.IFELSE___V107*/ meltfptr[77];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3196:/ clear");
- /*clear *//*_#IS_A__L39*/ meltfnum[27] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3205:/ clear");
+ /*clear *//*_#IS_A__L40*/ meltfnum[28] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V104*/ meltfptr[74] = 0;
+ /*clear *//*_.IFELSE___V107*/ meltfptr[77] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V103*/ meltfptr[85] = ( /*nil */ NULL);
+ /*_.IFCPP___V106*/ meltfptr[88] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3197:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3206:/ quasiblock");
/*^apply */
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V6*/ meltfptr[5];
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V7*/ meltfptr[6];
- /*_.XEX__V106*/ meltfptr[76] =
- melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[13])),
+ /*^apply.arg */
+ argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V8*/ meltfptr[7];
+ /*_.XEX__V109*/ meltfptr[79] =
+ melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V7*/ meltfptr[6]),
(melt_ptr_t) ( /*_.EXPR__V5*/ meltfptr[4]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab, "", (union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3198:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3207:/ quasiblock");
/*^rawallocobj */
@@ -17090,9 +17245,9 @@ lab_endgetargs:;
melt_ptr_t newobj = 0;
melt_raw_object_create (newobj,
(melt_ptr_t) (( /*!CLASS_SOURCE_FIELDASSIGN */
- meltfrout->tabval[14])), (4),
+ meltfrout->tabval[13])), (4),
"CLASS_SOURCE_FIELDASSIGN");
- /*_.INST__V108*/ meltfptr[93] =
+ /*_.INST__V111*/ meltfptr[96] =
newobj;
};
;
@@ -17100,33 +17255,33 @@ lab_endgetargs:;
/*putslot */
melt_assertmsg ("putslot checkobj @LOCA_LOCATION",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V108*/ meltfptr[93])) ==
+ ( /*_.INST__V111*/ meltfptr[96])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V108*/ meltfptr[93]), (1),
+ melt_putfield_object (( /*_.INST__V111*/ meltfptr[96]), (1),
( /*_.LOC__V3*/ meltfptr[2]), "LOCA_LOCATION");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SFLA_FIELD",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V108*/ meltfptr[93])) ==
+ ( /*_.INST__V111*/ meltfptr[96])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V108*/ meltfptr[93]), (2),
- ( /*_.FLD__V30*/ meltfptr[29]), "SFLA_FIELD");
+ melt_putfield_object (( /*_.INST__V111*/ meltfptr[96]), (2),
+ ( /*_.FLD__V33*/ meltfptr[32]), "SFLA_FIELD");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SFLA_EXPR",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V108*/ meltfptr[93])) ==
+ ( /*_.INST__V111*/ meltfptr[96])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V108*/ meltfptr[93]), (3),
- ( /*_.XEX__V106*/ meltfptr[76]), "SFLA_EXPR");
+ melt_putfield_object (( /*_.INST__V111*/ meltfptr[96]), (3),
+ ( /*_.XEX__V109*/ meltfptr[79]), "SFLA_EXPR");
;
- /*_.FA__V107*/ meltfptr[71] = /*_.INST__V108*/ meltfptr[93];;
+ /*_.FA__V110*/ meltfptr[74] = /*_.INST__V111*/ meltfptr[96];;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3204:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3213:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -17141,7 +17296,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L40*/ meltfnum[31] =
+ /*_#MELT_NEED_DBG__L41*/ meltfnum[32] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -17149,34 +17304,34 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3204:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L40*/ meltfnum[31]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3213:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L41*/ meltfnum[32]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L41*/ meltfnum[28] =
+ /*_#THE_MELTCALLCOUNT__L42*/ meltfnum[29] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3204:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3213:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L41*/ meltfnum[28];
+ /*_#THE_MELTCALLCOUNT__L42*/ meltfnum[29];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3204;
+ argtab[2].meltbp_long = 3213;
/*^apply.arg */
argtab[3].meltbp_cstring = "parse_field_assignment return fa";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.FA__V107*/ meltfptr[71];
- /*_.MELT_DEBUG_FUN__V111*/ meltfptr[67] =
+ (melt_ptr_t *) & /*_.FA__V110*/ meltfptr[74];
+ /*_.MELT_DEBUG_FUN__V114*/ meltfptr[70] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
@@ -17186,109 +17341,111 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V110*/ meltfptr[77] =
- /*_.MELT_DEBUG_FUN__V111*/ meltfptr[67];;
+ /*_.IF___V113*/ meltfptr[80] =
+ /*_.MELT_DEBUG_FUN__V114*/ meltfptr[70];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3204:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L41*/ meltfnum[28] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3213:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L42*/ meltfnum[29] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V111*/ meltfptr[67] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V114*/ meltfptr[70] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V110*/ meltfptr[77] = NULL;;
+ /*_.IF___V113*/ meltfptr[80] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3204:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3213:/ quasiblock");
- /*_.PROGN___V112*/ meltfptr[91] = /*_.IF___V110*/ meltfptr[77];;
+ /*_.PROGN___V115*/ meltfptr[94] = /*_.IF___V113*/ meltfptr[80];;
/*^compute */
- /*_.IFCPP___V109*/ meltfptr[94] = /*_.PROGN___V112*/ meltfptr[91];;
+ /*_.IFCPP___V112*/ meltfptr[97] = /*_.PROGN___V115*/ meltfptr[94];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3204:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L40*/ meltfnum[31] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3213:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L41*/ meltfnum[32] = 0;
/*^clear */
- /*clear *//*_.IF___V110*/ meltfptr[77] = 0;
+ /*clear *//*_.IF___V113*/ meltfptr[80] = 0;
/*^clear */
- /*clear *//*_.PROGN___V112*/ meltfptr[91] = 0;
+ /*clear *//*_.PROGN___V115*/ meltfptr[94] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V109*/ meltfptr[94] = ( /*nil */ NULL);
+ /*_.IFCPP___V112*/ meltfptr[97] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3205:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3214:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.FA__V107*/ meltfptr[71];;
- MELT_LOCATION ("warmelt-macro.melt:3205:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.FA__V110*/ meltfptr[74];;
+ MELT_LOCATION ("warmelt-macro.melt:3214:/ finalreturn");
;
/*finalret */ goto labend_rout;
- /*_.LET___V105*/ meltfptr[75] = /*_.RETURN___V113*/ meltfptr[90];;
+ /*_.LET___V108*/ meltfptr[78] = /*_.RETURN___V116*/ meltfptr[93];;
- MELT_LOCATION ("warmelt-macro.melt:3197:/ clear");
- /*clear *//*_.XEX__V106*/ meltfptr[76] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3206:/ clear");
+ /*clear *//*_.XEX__V109*/ meltfptr[79] = 0;
/*^clear */
- /*clear *//*_.FA__V107*/ meltfptr[71] = 0;
+ /*clear *//*_.FA__V110*/ meltfptr[74] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V109*/ meltfptr[94] = 0;
+ /*clear *//*_.IFCPP___V112*/ meltfptr[97] = 0;
/*^clear */
- /*clear *//*_.RETURN___V113*/ meltfptr[90] = 0;
- /*_.LET___V29*/ meltfptr[27] = /*_.LET___V105*/ meltfptr[75];;
+ /*clear *//*_.RETURN___V116*/ meltfptr[93] = 0;
+ /*_.LET___V32*/ meltfptr[30] = /*_.LET___V108*/ meltfptr[78];;
- MELT_LOCATION ("warmelt-macro.melt:3126:/ clear");
- /*clear *//*_.FLD__V30*/ meltfptr[29] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3135:/ clear");
+ /*clear *//*_.FLD__V33*/ meltfptr[32] = 0;
/*^clear */
- /*clear *//*_#IS_A__L12*/ meltfnum[8] = 0;
+ /*clear *//*_#IS_A__L13*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_.IF___V31*/ meltfptr[30] = 0;
+ /*clear *//*_.IF___V34*/ meltfptr[33] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V50*/ meltfptr[43] = 0;
+ /*clear *//*_.IFCPP___V53*/ meltfptr[46] = 0;
/*^clear */
- /*clear *//*_#NULL__L20*/ meltfnum[13] = 0;
+ /*clear *//*_#NULL__L21*/ meltfnum[14] = 0;
/*^clear */
- /*clear *//*_.IF___V54*/ meltfptr[40] = 0;
+ /*clear *//*_.IF___V57*/ meltfptr[43] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V103*/ meltfptr[85] = 0;
+ /*clear *//*_.IFCPP___V106*/ meltfptr[88] = 0;
/*^clear */
- /*clear *//*_.LET___V105*/ meltfptr[75] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3113:/ quasiblock");
+ /*clear *//*_.LET___V108*/ meltfptr[78] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3121:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V29*/ meltfptr[27];;
- MELT_LOCATION ("warmelt-macro.melt:3113:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V32*/ meltfptr[30];;
+ MELT_LOCATION ("warmelt-macro.melt:3121:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
/*^clear */
- /*clear *//*_.IFCPP___V8*/ meltfptr[7] = 0;
+ /*clear *//*_.IFCPP___V9*/ meltfptr[8] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V12*/ meltfptr[8] = 0;
+ /*clear *//*_.IFCPP___V13*/ meltfptr[9] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V16*/ meltfptr[9] = 0;
+ /*clear *//*_.IFCPP___V17*/ meltfptr[10] = 0;
/*^clear */
/*clear *//*_#IS_A__L7*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_#NOT__L8*/ meltfnum[0] = 0;
/*^clear */
- /*clear *//*_.IF___V20*/ meltfptr[13] = 0;
+ /*clear *//*_.IF___V21*/ meltfptr[14] = 0;
+ /*^clear */
+ /*clear *//*_.IFCPP___V24*/ meltfptr[18] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V23*/ meltfptr[17] = 0;
+ /*clear *//*_.IFCPP___V26*/ meltfptr[22] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V25*/ meltfptr[21] = 0;
+ /*clear *//*_.IFCPP___V28*/ meltfptr[26] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V27*/ meltfptr[25] = 0;
+ /*clear *//*_.IFCPP___V30*/ meltfptr[28] = 0;
/*^clear */
- /*clear *//*_.LET___V29*/ meltfptr[27] = 0;
+ /*clear *//*_.LET___V32*/ meltfptr[30] = 0;
}
;
@@ -17366,7 +17523,7 @@ meltrout_48_warmelt_macro_LAMBDA___13__ (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3136:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3145:/ getarg");
/*_.CURFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -17384,7 +17541,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3137:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3146:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -17393,7 +17550,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.CURFLD__V2*/ meltfptr[1]),
(melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout->
tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:3137:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3146:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -17401,7 +17558,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3137:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3146:/ cond.else");
/*^block */
/*anyblock */
@@ -17415,7 +17572,7 @@ lab_endgetargs:;
melt_assert_failed (("check fld"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3137) ? (3137) : __LINE__, __FUNCTION__);
+ (3146) ? (3146) : __LINE__, __FUNCTION__);
;
}
;
@@ -17430,7 +17587,7 @@ lab_endgetargs:;
/*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3137:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3146:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0;
@@ -17441,7 +17598,7 @@ lab_endgetargs:;
/*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3138:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3147:/ quasiblock");
/*^getslot */
@@ -17452,7 +17609,7 @@ lab_endgetargs:;
meltfptr[5] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3142:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3151:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) (( /*~FLDKW */ meltfclos->tabval[0])), 1, "NAMED_NAME");
@@ -17463,7 +17620,7 @@ lab_endgetargs:;
/*_#S__L3*/ meltfnum[1] =
melt_string_same ((melt_ptr_t) ( /*_.CURFLDNAM__V6*/ meltfptr[5]),
(melt_ptr_t) ( /*_.NAMED_NAME__V7*/ meltfptr[6]));;
- MELT_LOCATION ("warmelt-macro.melt:3141:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3150:/ cond");
/*cond */ if ( /*_#S__L3*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -17473,7 +17630,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3143:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3152:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -17496,7 +17653,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3143:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3152:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -17506,7 +17663,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3143:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3152:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -17517,7 +17674,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3143;
+ argtab[2].meltbp_long = 3152;
/*^apply.arg */
argtab[3].meltbp_cstring =
"parse_field_assignment found curfld";
@@ -17539,7 +17696,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V11*/ meltfptr[10];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3143:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3152:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = 0;
@@ -17552,7 +17709,7 @@ lab_endgetargs:;
/*_.IF___V10*/ meltfptr[9] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3143:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3152:/ quasiblock");
/*_.PROGN___V12*/ meltfptr[10] = /*_.IF___V10*/ meltfptr[9];;
@@ -17561,7 +17718,7 @@ lab_endgetargs:;
/*_.IFCPP___V9*/ meltfptr[8] = /*_.PROGN___V12*/ meltfptr[10];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3143:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3152:/ clear");
/*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.IF___V10*/ meltfptr[9] = 0;
@@ -17576,7 +17733,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3144:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3153:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -17599,7 +17756,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3144:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3153:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[4]) /*then */
{
/*^cond.then */
@@ -17609,7 +17766,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L7*/ meltfnum[3] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3144:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3153:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -17620,7 +17777,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3144;
+ argtab[2].meltbp_long = 3153;
/*^apply.arg */
argtab[3].meltbp_cstring =
"parse_field_assignment found curfldnam";
@@ -17642,7 +17799,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3144:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3153:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0;
@@ -17655,7 +17812,7 @@ lab_endgetargs:;
/*_.IF___V14*/ meltfptr[10] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3144:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3153:/ quasiblock");
/*_.PROGN___V16*/ meltfptr[14] = /*_.IF___V14*/ meltfptr[10];;
@@ -17664,7 +17821,7 @@ lab_endgetargs:;
/*_.IFCPP___V13*/ meltfptr[9] = /*_.PROGN___V16*/ meltfptr[14];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3144:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3153:/ clear");
/*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[4] = 0;
/*^clear */
/*clear *//*_.IF___V14*/ meltfptr[10] = 0;
@@ -17677,11 +17834,11 @@ lab_endgetargs:;
/*_.IFCPP___V13*/ meltfptr[9] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3145:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3154:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3145:/ putxtraresult");
+ MELT_LOCATION ("warmelt-macro.melt:3154:/ putxtraresult");
if (!meltxrestab_ || !meltxresdescr_)
goto labend_rout;
if (meltxresdescr_[0] != MELTBPAR_PTR)
@@ -17693,7 +17850,7 @@ lab_endgetargs:;
/*^finalreturn */
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3141:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3150:/ quasiblock");
/*_.PROGN___V18*/ meltfptr[14] = /*_.RETURN___V17*/ meltfptr[10];;
@@ -17702,7 +17859,7 @@ lab_endgetargs:;
/*_.IFELSE___V8*/ meltfptr[7] = /*_.PROGN___V18*/ meltfptr[14];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3141:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3150:/ clear");
/*clear *//*_.IFCPP___V9*/ meltfptr[8] = 0;
/*^clear */
/*clear *//*_.IFCPP___V13*/ meltfptr[9] = 0;
@@ -17720,15 +17877,15 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3148:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3157:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] =
( /*!konst_2_TRUE */ meltfrout->tabval[2]);;
- MELT_LOCATION ("warmelt-macro.melt:3148:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3157:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3146:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3155:/ quasiblock");
/*_.PROGN___V20*/ meltfptr[9] = /*_.RETURN___V19*/ meltfptr[8];;
@@ -17737,7 +17894,7 @@ lab_endgetargs:;
/*_.IFELSE___V8*/ meltfptr[7] = /*_.PROGN___V20*/ meltfptr[9];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3141:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3150:/ clear");
/*clear *//*_.RETURN___V19*/ meltfptr[8] = 0;
/*^clear */
/*clear *//*_.PROGN___V20*/ meltfptr[9] = 0;
@@ -17747,7 +17904,7 @@ lab_endgetargs:;
;
/*_.LET___V5*/ meltfptr[3] = /*_.IFELSE___V8*/ meltfptr[7];;
- MELT_LOCATION ("warmelt-macro.melt:3138:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3147:/ clear");
/*clear *//*_.CURFLDNAM__V6*/ meltfptr[5] = 0;
/*^clear */
/*clear *//*_.NAMED_NAME__V7*/ meltfptr[6] = 0;
@@ -17755,11 +17912,11 @@ lab_endgetargs:;
/*clear *//*_#S__L3*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3136:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3145:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-macro.melt:3136:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3145:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -17847,7 +18004,7 @@ meltrout_49_warmelt_macro_MEXPAND_DEFINSTANCE (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3209:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3218:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -17888,7 +18045,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3210:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3219:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -17897,7 +18054,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:3210:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3219:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -17905,7 +18062,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3210:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3219:/ cond.else");
/*^block */
/*anyblock */
@@ -17919,7 +18076,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3210) ? (3210) : __LINE__, __FUNCTION__);
+ (3219) ? (3219) : __LINE__, __FUNCTION__);
;
}
;
@@ -17934,7 +18091,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3210:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3219:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -17947,7 +18104,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3211:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3220:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -17956,7 +18113,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:3211:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3220:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -17964,7 +18121,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3211:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3220:/ cond.else");
/*^block */
/*anyblock */
@@ -17978,7 +18135,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3211) ? (3211) : __LINE__, __FUNCTION__);
+ (3220) ? (3220) : __LINE__, __FUNCTION__);
;
}
;
@@ -17993,7 +18150,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3211:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3220:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -18006,7 +18163,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3212:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3221:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -18029,7 +18186,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3212:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3221:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -18039,7 +18196,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3212:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3221:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -18049,7 +18206,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3212;
+ argtab[2].meltbp_long = 3221;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.definstance sexpr";
/*^apply.arg */
@@ -18069,7 +18226,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3212:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3221:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0;
@@ -18082,7 +18239,7 @@ lab_endgetargs:;
/*_.IF___V11*/ meltfptr[10] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3212:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3221:/ quasiblock");
/*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];;
@@ -18091,7 +18248,7 @@ lab_endgetargs:;
/*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3212:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3221:/ clear");
/*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V11*/ meltfptr[10] = 0;
@@ -18104,7 +18261,7 @@ lab_endgetargs:;
/*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3213:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3222:/ quasiblock");
/*_.PREDEF__V15*/ meltfptr[11] = ( /*nil */ NULL);;
@@ -18117,7 +18274,7 @@ lab_endgetargs:;
/*^compute */
/*_.FIELDNAMS__V18*/ meltfptr[17] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3217:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3226:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
@@ -18125,7 +18282,7 @@ lab_endgetargs:;
meltfptr[18] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3218:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3227:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
@@ -18161,7 +18318,7 @@ lab_endgetargs:;
!melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V23*/ meltfptr[22]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
tabval[3])));;
- MELT_LOCATION ("warmelt-macro.melt:3226:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3235:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L5*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -18171,7 +18328,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3227:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3236:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("missing symbol for DEFINSTANCE"),
(melt_ptr_t) 0);
@@ -18184,15 +18341,15 @@ lab_endgetargs:;
;
/*_.PAIR_TAIL__V28*/ meltfptr[27] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
- MELT_LOCATION ("warmelt-macro.melt:3228:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3237:/ compute");
/*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V29*/ meltfptr[28] =
/*_.PAIR_TAIL__V28*/ meltfptr[27];;
- MELT_LOCATION ("warmelt-macro.melt:3229:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3238:/ quasiblock");
/*_.NAM__V31*/ meltfptr[30] =
(melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
- MELT_LOCATION ("warmelt-macro.melt:3232:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3241:/ quasiblock");
/*^rawallocobj */
@@ -18226,7 +18383,7 @@ lab_endgetargs:;
(( /*nil */ NULL)), "IBIND_ICLASS");
;
/*_.IBIND__V32*/ meltfptr[31] = /*_.INST__V33*/ meltfptr[32];;
- MELT_LOCATION ("warmelt-macro.melt:3237:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3246:/ apply");
/*apply */
{
union meltparam_un argtab[2];
@@ -18243,7 +18400,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3238:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3247:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -18262,7 +18419,7 @@ lab_endgetargs:;
!melt_is_instance_of ((melt_ptr_t) ( /*_.NAM__V31*/ meltfptr[30]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
tabval[3])));;
- MELT_LOCATION ("warmelt-macro.melt:3239:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3248:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -18272,7 +18429,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3240:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3249:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("missing class name for DEFINSTANCE"),
(melt_ptr_t) 0);
@@ -18283,7 +18440,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3241:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3250:/ quasiblock");
/*^apply */
@@ -18310,7 +18467,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]),
(melt_ptr_t) (( /*!CLASS_CLASS_BINDING */
meltfrout->tabval[9])));;
- MELT_LOCATION ("warmelt-macro.melt:3245:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3254:/ cond");
/*cond */ if ( /*_#IS_A__L7*/ meltfnum[6]) /*then */
{
/*^cond.then */
@@ -18318,10 +18475,10 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3246:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3255:/ compute");
/*_.CLABIND__V26*/ meltfptr[25] = /*_.SETQ___V40*/ meltfptr[39] =
/*_.BND__V37*/ meltfptr[36];;
- MELT_LOCATION ("warmelt-macro.melt:3247:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3256:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]), 3, "CBIND_CLASS");
@@ -18332,7 +18489,7 @@ lab_endgetargs:;
/*^compute */
/*_.CLA__V25*/ meltfptr[24] = /*_.SETQ___V42*/ meltfptr[41] =
/*_.CBIND_CLASS__V41*/ meltfptr[40];;
- MELT_LOCATION ("warmelt-macro.melt:3245:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3254:/ quasiblock");
/*_.PROGN___V43*/ meltfptr[42] = /*_.SETQ___V42*/ meltfptr[41];;
@@ -18341,7 +18498,7 @@ lab_endgetargs:;
/*_.IFELSE___V39*/ meltfptr[38] = /*_.PROGN___V43*/ meltfptr[42];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3245:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3254:/ clear");
/*clear *//*_.SETQ___V40*/ meltfptr[39] = 0;
/*^clear */
/*clear *//*_.CBIND_CLASS__V41*/ meltfptr[40] = 0;
@@ -18363,7 +18520,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]),
(melt_ptr_t) (( /*!CLASS_VALUE_BINDING */
meltfrout->tabval[10])));;
- MELT_LOCATION ("warmelt-macro.melt:3248:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3257:/ cond");
/*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */
{
/*^cond.then */
@@ -18371,7 +18528,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3249:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3258:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]), 1, "VBIND_VALUE");
@@ -18390,7 +18547,7 @@ lab_endgetargs:;
/*_#IF___L9*/ meltfnum[8] = /*_#IS_A__L10*/ meltfnum[9];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3248:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3257:/ clear");
/*clear *//*_.VBIND_VALUE__V44*/ meltfptr[39] = 0;
/*^clear */
/*clear *//*_#IS_A__L10*/ meltfnum[9] = 0;
@@ -18403,7 +18560,7 @@ lab_endgetargs:;
/*_#IF___L9*/ meltfnum[8] = 0;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3248:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3257:/ cond");
/*cond */ if ( /*_#IF___L9*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -18411,11 +18568,11 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3250:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3259:/ compute");
/*_.CLABIND__V26*/ meltfptr[25] =
/*_.SETQ___V46*/ meltfptr[41] =
/*_.BND__V37*/ meltfptr[36];;
- MELT_LOCATION ("warmelt-macro.melt:3251:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3260:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V37*/ meltfptr[36]), 1, "VBIND_VALUE");
@@ -18426,7 +18583,7 @@ lab_endgetargs:;
/*^compute */
/*_.CLA__V25*/ meltfptr[24] = /*_.SETQ___V48*/ meltfptr[39] =
/*_.VBIND_VALUE__V47*/ meltfptr[42];;
- MELT_LOCATION ("warmelt-macro.melt:3248:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3257:/ quasiblock");
/*_.PROGN___V49*/ meltfptr[48] =
@@ -18437,7 +18594,7 @@ lab_endgetargs:;
/*_.PROGN___V49*/ meltfptr[48];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3248:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3257:/ clear");
/*clear *//*_.SETQ___V46*/ meltfptr[41] = 0;
/*^clear */
/*clear *//*_.VBIND_VALUE__V47*/ meltfptr[42] = 0;
@@ -18455,7 +18612,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3254:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3263:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.NAM__V31*/ meltfptr[30]), 1, "NAMED_NAME");
@@ -18465,21 +18622,21 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3253:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3262:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("invalid class name for DEFINSTANCE"),
(melt_ptr_t) ( /*_.NAMED_NAME__V50*/
meltfptr[41]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:3255:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3264:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3255:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3264:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3252:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3261:/ quasiblock");
/*_.PROGN___V52*/ meltfptr[39] =
@@ -18490,7 +18647,7 @@ lab_endgetargs:;
/*_.PROGN___V52*/ meltfptr[39];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3248:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3257:/ clear");
/*clear *//*_.NAMED_NAME__V50*/ meltfptr[41] = 0;
/*^clear */
/*clear *//*_.RETURN___V51*/ meltfptr[42] = 0;
@@ -18503,7 +18660,7 @@ lab_endgetargs:;
/*_.IFELSE___V39*/ meltfptr[38] = /*_.IFELSE___V45*/ meltfptr[40];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3245:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3254:/ clear");
/*clear *//*_#IS_A__L8*/ meltfnum[7] = 0;
/*^clear */
/*clear *//*_#IF___L9*/ meltfnum[8] = 0;
@@ -18513,12 +18670,12 @@ lab_endgetargs:;
;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3257:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3266:/ compute");
/*_.CLANAME__V24*/ meltfptr[23] = /*_.SETQ___V53*/ meltfptr[48] =
/*_.NAM__V31*/ meltfptr[30];;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3258:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3267:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -18527,7 +18684,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V25*/ meltfptr[24]),
(melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->
tabval[11])));;
- MELT_LOCATION ("warmelt-macro.melt:3258:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3267:/ cond");
/*cond */ if ( /*_#IS_A__L11*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -18535,7 +18692,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3258:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3267:/ cond.else");
/*^block */
/*anyblock */
@@ -18549,7 +18706,7 @@ lab_endgetargs:;
melt_assert_failed (("check cla"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3258) ? (3258) : __LINE__, __FUNCTION__);
+ (3267) ? (3267) : __LINE__, __FUNCTION__);
;
}
;
@@ -18564,7 +18721,7 @@ lab_endgetargs:;
/*_.IFCPP___V54*/ meltfptr[41] = /*_.IFELSE___V55*/ meltfptr[42];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3258:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3267:/ clear");
/*clear *//*_#IS_A__L11*/ meltfnum[9] = 0;
/*^clear */
/*clear *//*_.IFELSE___V55*/ meltfptr[42] = 0;
@@ -18579,10 +18736,10 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V56*/ meltfptr[39] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
- MELT_LOCATION ("warmelt-macro.melt:3259:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3268:/ compute");
/*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V57*/ meltfptr[40] =
/*_.PAIR_TAIL__V56*/ meltfptr[39];;
- MELT_LOCATION ("warmelt-macro.melt:3260:/ loop");
+ MELT_LOCATION ("warmelt-macro.melt:3269:/ loop");
/*loop */
{
labloop_INSLOOP_1:; /*^loopbody */
@@ -18598,7 +18755,7 @@ lab_endgetargs:;
/*_#NOT__L13*/ meltfnum[8] =
(!( /*_#IS_PAIR__L12*/ meltfnum[7]));;
- MELT_LOCATION ("warmelt-macro.melt:3261:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3270:/ cond");
/*cond */ if ( /*_#NOT__L13*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -18623,7 +18780,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3262:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3271:/ quasiblock");
/*_.CURFKW__V61*/ meltfptr[60] =
@@ -18635,7 +18792,7 @@ lab_endgetargs:;
( /*_.CURFKW__V61*/ meltfptr[60]),
(melt_ptr_t) (( /*!CLASS_KEYWORD */
meltfrout->tabval[12])));;
- MELT_LOCATION ("warmelt-macro.melt:3263:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3272:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L14*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -18645,7 +18802,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3264:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3273:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("expecting keyword in DEFINSTANCE"),
(melt_ptr_t) 0);
@@ -18658,10 +18815,10 @@ lab_endgetargs:;
;
/*_.PAIR_TAIL__V62*/ meltfptr[61] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
- MELT_LOCATION ("warmelt-macro.melt:3265:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3274:/ compute");
/*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V63*/ meltfptr[62] =
/*_.PAIR_TAIL__V62*/ meltfptr[61];;
- MELT_LOCATION ("warmelt-macro.melt:3266:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3275:/ quasiblock");
/*_.CUREXP__V65*/ meltfptr[64] =
@@ -18671,7 +18828,7 @@ lab_endgetargs:;
/*_#__L15*/ meltfnum[14] =
(( /*_.CURFKW__V61*/ meltfptr[60]) ==
(( /*!konst_13_OBJ_NUM */ meltfrout->tabval[13])));;
- MELT_LOCATION ("warmelt-macro.melt:3267:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3276:/ cond");
/*cond */ if ( /*_#__L15*/ meltfnum[14]) /*then */
{
/*^cond.then */
@@ -18679,7 +18836,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3268:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3277:/ cond");
/*cond */ if ( /*_.OBJNUM__V16*/ meltfptr[15]) /*then */
{
/*^cond.then */
@@ -18706,7 +18863,7 @@ lab_endgetargs:;
( /*_.CUREXP__V65*/ meltfptr[64]),
(melt_ptr_t) (( /*!CLASS_SEXPR */
meltfrout->tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:3270:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3279:/ cond");
/*cond */ if ( /*_#IS_A__L16*/ meltfnum[15]) /*then */
{
/*^cond.then */
@@ -18714,10 +18871,10 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3271:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3280:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -18725,22 +18882,25 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.MACROEXPAND_1__V68*/ meltfptr[67] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.MEXPANDER__V68*/ meltfptr[67] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->
- tabval[14])),
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
(melt_ptr_t) ( /*_.CUREXP__V65*/
meltfptr[64]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
- argtab, "", (union meltparam_un *) 0);
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR
+ MELTBPARSTR_PTR ""), argtab, "",
+ (union meltparam_un *) 0);
}
;
/*_.IFELSE___V67*/ meltfptr[66] =
- /*_.MACROEXPAND_1__V68*/ meltfptr[67];;
+ /*_.MEXPANDER__V68*/ meltfptr[67];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3270:/ clear");
- /*clear *//*_.MACROEXPAND_1__V68*/ meltfptr[67] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3279:/ clear");
+ /*clear *//*_.MEXPANDER__V68*/ meltfptr[67] = 0;
}
;
}
@@ -18751,10 +18911,10 @@ lab_endgetargs:;
/*_.CUREXP__V65*/ meltfptr[64];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3269:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3278:/ compute");
/*_.OBJNUM__V16*/ meltfptr[15] = /*_.SETQ___V69*/ meltfptr[67] =
/*_.IFELSE___V67*/ meltfptr[66];;
- MELT_LOCATION ("warmelt-macro.melt:3267:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3276:/ quasiblock");
/*_.PROGN___V70*/ meltfptr[69] = /*_.SETQ___V69*/ meltfptr[67];;
@@ -18764,7 +18924,7 @@ lab_endgetargs:;
/*_.PROGN___V70*/ meltfptr[69];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3267:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3276:/ clear");
/*clear *//*_#IS_A__L16*/ meltfnum[15] = 0;
/*^clear */
/*clear *//*_.IFELSE___V67*/ meltfptr[66] = 0;
@@ -18784,8 +18944,8 @@ lab_endgetargs:;
/*_#__L17*/ meltfnum[15] =
(( /*_.CURFKW__V61*/ meltfptr[60]) ==
- (( /*!konst_15_PREDEF */ meltfrout->tabval[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3274:/ cond");
+ (( /*!konst_14_PREDEF */ meltfrout->tabval[14])));;
+ MELT_LOCATION ("warmelt-macro.melt:3283:/ cond");
/*cond */ if ( /*_#__L17*/ meltfnum[15]) /*then */
{
/*^cond.then */
@@ -18793,7 +18953,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3275:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3284:/ cond");
/*cond */ if ( /*_.PREDEF__V15*/ meltfptr[11]) /*then */
{
/*^cond.then */
@@ -18821,7 +18981,7 @@ lab_endgetargs:;
(melt_ptr_t) (( /*!CLASS_SEXPR */
meltfrout->
tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:3277:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3286:/ cond");
/*cond */ if ( /*_#IS_A__L18*/ meltfnum[17]) /*then */
{
/*^cond.then */
@@ -18829,10 +18989,10 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3278:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3287:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -18841,23 +19001,25 @@ lab_endgetargs:;
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/
meltfptr[3];
- /*_.MACROEXPAND_1__V73*/ meltfptr[69] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.MEXPANDER__V73*/ meltfptr[69] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->
- tabval[14])),
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
(melt_ptr_t) ( /*_.CUREXP__V65*/
meltfptr[64]),
(MELTBPARSTR_PTR MELTBPARSTR_PTR
- ""), argtab, "",
+ MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
/*_.IFELSE___V72*/ meltfptr[67] =
- /*_.MACROEXPAND_1__V73*/ meltfptr[69];;
+ /*_.MEXPANDER__V73*/ meltfptr[69];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3277:/ clear");
- /*clear *//*_.MACROEXPAND_1__V73*/ meltfptr[69] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3286:/ clear");
+ /*clear *//*_.MEXPANDER__V73*/ meltfptr[69] = 0;
}
;
}
@@ -18868,11 +19030,11 @@ lab_endgetargs:;
/*_.CUREXP__V65*/ meltfptr[64];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3276:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3285:/ compute");
/*_.PREDEF__V15*/ meltfptr[11] =
/*_.SETQ___V74*/ meltfptr[69] =
/*_.IFELSE___V72*/ meltfptr[67];;
- MELT_LOCATION ("warmelt-macro.melt:3274:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3283:/ quasiblock");
/*_.PROGN___V75*/ meltfptr[74] =
@@ -18883,7 +19045,7 @@ lab_endgetargs:;
/*_.PROGN___V75*/ meltfptr[74];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3274:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3283:/ clear");
/*clear *//*_#IS_A__L18*/ meltfnum[17] = 0;
/*^clear */
/*clear *//*_.IFELSE___V72*/ meltfptr[67] = 0;
@@ -18903,8 +19065,8 @@ lab_endgetargs:;
/*_#__L19*/ meltfnum[17] =
(( /*_.CURFKW__V61*/ meltfptr[60]) ==
- (( /*!konst_16_DOC */ meltfrout->tabval[16])));;
- MELT_LOCATION ("warmelt-macro.melt:3281:/ cond");
+ (( /*!konst_15_DOC */ meltfrout->tabval[15])));;
+ MELT_LOCATION ("warmelt-macro.melt:3290:/ cond");
/*cond */ if ( /*_#__L19*/ meltfnum[17]) /*then */
{
/*^cond.then */
@@ -18912,7 +19074,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3282:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3291:/ cond");
/*cond */ if ( /*_.DOCV__V27*/ meltfptr[26]) /*then */
{
/*^cond.then */
@@ -18935,12 +19097,12 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3283:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3292:/ compute");
/*_.DOCV__V27*/ meltfptr[26] =
/*_.SETQ___V77*/ meltfptr[69] =
/*_.CUREXP__V65*/ meltfptr[64];;
MELT_LOCATION
- ("warmelt-macro.melt:3281:/ quasiblock");
+ ("warmelt-macro.melt:3290:/ quasiblock");
/*_.PROGN___V78*/ meltfptr[74] =
@@ -18951,7 +19113,7 @@ lab_endgetargs:;
/*_.PROGN___V78*/ meltfptr[74];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3281:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3290:/ clear");
/*clear *//*_.SETQ___V77*/ meltfptr[69] = 0;
/*^clear */
/*clear *//*_.PROGN___V78*/ meltfptr[74] = 0;
@@ -18966,13 +19128,13 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:3286:/ quasiblock");
+ ("warmelt-macro.melt:3295:/ quasiblock");
- /*^apply */
+ MELT_LOCATION ("warmelt-macro.melt:3296:/ apply");
/*apply */
{
- union meltparam_un argtab[5];
+ union meltparam_un argtab[6];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -18990,19 +19152,23 @@ lab_endgetargs:;
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/
meltfptr[3];
+ /*^apply.arg */
+ argtab[5].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
/*_.FLDA__V79*/ meltfptr[69] =
melt_apply ((meltclosure_ptr_t)
(( /*!PARSE_FIELD_ASSIGNMENT */
- meltfrout->tabval[17])),
+ meltfrout->tabval[16])),
(melt_ptr_t) ( /*_.CLA__V25*/
meltfptr[24]),
(MELTBPARSTR_PTR MELTBPARSTR_PTR
MELTBPARSTR_PTR MELTBPARSTR_PTR
- MELTBPARSTR_PTR ""), argtab, "",
+ MELTBPARSTR_PTR MELTBPARSTR_PTR
+ ""), argtab, "",
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3287:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3297:/ cond");
/*cond */ if ( /*_.FLDA__V79*/ meltfptr[69]) /*then */
{
/*^cond.then */
@@ -19013,7 +19179,7 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:3288:/ locexp");
+ ("warmelt-macro.melt:3298:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.FLDLIST__V38*/
meltfptr[37]),
@@ -19026,10 +19192,10 @@ lab_endgetargs:;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3286:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3295:/ clear");
/*clear *//*_.FLDA__V79*/ meltfptr[69] = 0;
MELT_LOCATION
- ("warmelt-macro.melt:3285:/ quasiblock");
+ ("warmelt-macro.melt:3294:/ quasiblock");
/*epilog */
@@ -19041,7 +19207,7 @@ lab_endgetargs:;
/*_.IFELSE___V76*/ meltfptr[67];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3274:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3283:/ clear");
/*clear *//*_#__L19*/ meltfnum[17] = 0;
/*^clear */
/*clear *//*_.IFELSE___V76*/ meltfptr[67] = 0;
@@ -19053,7 +19219,7 @@ lab_endgetargs:;
/*_.IFELSE___V71*/ meltfptr[66];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3267:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3276:/ clear");
/*clear *//*_#__L17*/ meltfnum[15] = 0;
/*^clear */
/*clear *//*_.IFELSE___V71*/ meltfptr[66] = 0;
@@ -19063,7 +19229,7 @@ lab_endgetargs:;
;
/*_.LET___V64*/ meltfptr[63] = /*_.IFELSE___V66*/ meltfptr[65];;
- MELT_LOCATION ("warmelt-macro.melt:3266:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3275:/ clear");
/*clear *//*_.CUREXP__V65*/ meltfptr[64] = 0;
/*^clear */
/*clear *//*_#__L15*/ meltfnum[14] = 0;
@@ -19071,12 +19237,12 @@ lab_endgetargs:;
/*clear *//*_.IFELSE___V66*/ meltfptr[65] = 0;
/*_.PAIR_TAIL__V80*/ meltfptr[74] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
- MELT_LOCATION ("warmelt-macro.melt:3291:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3301:/ compute");
/*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V81*/ meltfptr[69] =
/*_.PAIR_TAIL__V80*/ meltfptr[74];;
/*_.LET___V60*/ meltfptr[59] = /*_.SETQ___V81*/ meltfptr[69];;
- MELT_LOCATION ("warmelt-macro.melt:3262:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3271:/ clear");
/*clear *//*_.CURFKW__V61*/ meltfptr[60] = 0;
/*^clear */
/*clear *//*_#IS_NOT_A__L14*/ meltfnum[9] = 0;
@@ -19092,7 +19258,7 @@ lab_endgetargs:;
/*clear *//*_.SETQ___V81*/ meltfptr[69] = 0;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3260:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3269:/ clear");
/*clear *//*_#IS_PAIR__L12*/ meltfnum[7] = 0;
/*^clear */
/*clear *//*_#NOT__L13*/ meltfnum[8] = 0;
@@ -19107,7 +19273,7 @@ lab_endgetargs:;
/*_.FOREVER___V58*/ meltfptr[42] = /*_.INSLOOP__V59*/ meltfptr[58];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3293:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3303:/ quasiblock");
/*^apply */
@@ -19117,16 +19283,16 @@ lab_endgetargs:;
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
- (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[19]);
+ (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[18]);
/*_.FASTUP__V83*/ meltfptr[66] =
melt_apply ((meltclosure_ptr_t)
- (( /*!LIST_TO_MULTIPLE */ meltfrout->tabval[18])),
+ (( /*!LIST_TO_MULTIPLE */ meltfrout->tabval[17])),
(melt_ptr_t) ( /*_.FLDLIST__V38*/ meltfptr[37]),
(MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3295:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3305:/ quasiblock");
/*^rawallocobj */
@@ -19135,7 +19301,7 @@ lab_endgetargs:;
melt_ptr_t newobj = 0;
melt_raw_object_create (newobj,
(melt_ptr_t) (( /*!CLASS_SOURCE_DEFINSTANCE */
- meltfrout->tabval[20])), (9),
+ meltfrout->tabval[19])), (9),
"CLASS_SOURCE_DEFINSTANCE");
/*_.INST__V85*/ meltfptr[65] =
newobj;
@@ -19215,7 +19381,7 @@ lab_endgetargs:;
( /*_.FASTUP__V83*/ meltfptr[66]), "SINST_FIELDS");
;
/*_.SINST__V84*/ meltfptr[64] = /*_.INST__V85*/ meltfptr[65];;
- MELT_LOCATION ("warmelt-macro.melt:3306:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3316:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -19248,7 +19414,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3307:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3317:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -19271,7 +19437,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3307:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3317:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[17]) /*then */
{
/*^cond.then */
@@ -19281,7 +19447,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L21*/ meltfnum[15] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3307:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3317:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -19292,7 +19458,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3307;
+ argtab[2].meltbp_long = 3317;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.definstance sinst";
/*^apply.arg */
@@ -19312,7 +19478,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V88*/ meltfptr[62];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3307:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3317:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[15] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V88*/ meltfptr[62] = 0;
@@ -19325,7 +19491,7 @@ lab_endgetargs:;
/*_.IF___V87*/ meltfptr[61] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3307:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3317:/ quasiblock");
/*_.PROGN___V89*/ meltfptr[63] = /*_.IF___V87*/ meltfptr[61];;
@@ -19334,7 +19500,7 @@ lab_endgetargs:;
/*_.IFCPP___V86*/ meltfptr[60] = /*_.PROGN___V89*/ meltfptr[63];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3307:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3317:/ clear");
/*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[17] = 0;
/*^clear */
/*clear *//*_.IF___V87*/ meltfptr[61] = 0;
@@ -19347,16 +19513,16 @@ lab_endgetargs:;
/*_.IFCPP___V86*/ meltfptr[60] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3308:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3318:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.SINST__V84*/ meltfptr[64];;
- MELT_LOCATION ("warmelt-macro.melt:3308:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3318:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*_.LET___V82*/ meltfptr[67] = /*_.RETURN___V90*/ meltfptr[74];;
- MELT_LOCATION ("warmelt-macro.melt:3293:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3303:/ clear");
/*clear *//*_.FASTUP__V83*/ meltfptr[66] = 0;
/*^clear */
/*clear *//*_.SINST__V84*/ meltfptr[64] = 0;
@@ -19366,7 +19532,7 @@ lab_endgetargs:;
/*clear *//*_.RETURN___V90*/ meltfptr[74] = 0;
/*_.LET___V36*/ meltfptr[35] = /*_.LET___V82*/ meltfptr[67];;
- MELT_LOCATION ("warmelt-macro.melt:3241:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3250:/ clear");
/*clear *//*_.BND__V37*/ meltfptr[36] = 0;
/*^clear */
/*clear *//*_.FLDLIST__V38*/ meltfptr[37] = 0;
@@ -19388,7 +19554,7 @@ lab_endgetargs:;
/*clear *//*_.LET___V82*/ meltfptr[67] = 0;
/*_.LET___V30*/ meltfptr[29] = /*_.LET___V36*/ meltfptr[35];;
- MELT_LOCATION ("warmelt-macro.melt:3229:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3238:/ clear");
/*clear *//*_.NAM__V31*/ meltfptr[30] = 0;
/*^clear */
/*clear *//*_.IBIND__V32*/ meltfptr[31] = 0;
@@ -19402,7 +19568,7 @@ lab_endgetargs:;
/*clear *//*_.LET___V36*/ meltfptr[35] = 0;
/*_.LET___V14*/ meltfptr[10] = /*_.LET___V30*/ meltfptr[29];;
- MELT_LOCATION ("warmelt-macro.melt:3213:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3222:/ clear");
/*clear *//*_.PREDEF__V15*/ meltfptr[11] = 0;
/*^clear */
/*clear *//*_.OBJNUM__V16*/ meltfptr[15] = 0;
@@ -19436,11 +19602,11 @@ lab_endgetargs:;
/*clear *//*_.SETQ___V29*/ meltfptr[28] = 0;
/*^clear */
/*clear *//*_.LET___V30*/ meltfptr[29] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3209:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3218:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];;
- MELT_LOCATION ("warmelt-macro.melt:3209:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3218:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -19504,10 +19670,10 @@ meltrout_50_warmelt_macro_MEXPAND_DEFSELECTOR (meltclosure_ptr_t meltclosp_,
struct meltclosure_st *mcfr_clos;
struct excepth_melt_st *mcfr_exh;
struct melt_callframe_st *mcfr_prev;
-#define MELTFRAM_NBVARPTR 126
- void *mcfr_varptr[126];
-#define MELTFRAM_NBVARNUM 34
- long mcfr_varnum[34];
+#define MELTFRAM_NBVARPTR 130
+ void *mcfr_varptr[130];
+#define MELTFRAM_NBVARNUM 36
+ long mcfr_varnum[36];
/*others*/
long _spare_;
}
@@ -19518,13 +19684,13 @@ meltrout_50_warmelt_macro_MEXPAND_DEFSELECTOR (meltclosure_ptr_t meltclosp_,
int ix = 0;
meltframptr_ = (void *) meltfirstargp_;
gt_ggc_mx_melt_un (meltframptr_->mcfr_clos);
- for (ix = 0; ix < 126; ix++)
+ for (ix = 0; ix < 130; ix++)
if (meltframptr_->mcfr_varptr[ix])
gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]);
return NULL;
} /*end markggc */ ;
memset (&meltfram__, 0, sizeof (meltfram__));
- meltfram__.mcfr_nbvar = 126;
+ meltfram__.mcfr_nbvar = 130;
meltfram__.mcfr_clos = meltclosp_;
meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe;
melt_topframe = (struct melt_callframe_st *) &meltfram__;
@@ -19532,7 +19698,7 @@ meltrout_50_warmelt_macro_MEXPAND_DEFSELECTOR (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3323:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3333:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -19573,7 +19739,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3324:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3334:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -19582,7 +19748,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:3324:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3334:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -19590,7 +19756,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3324:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3334:/ cond.else");
/*^block */
/*anyblock */
@@ -19604,7 +19770,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3324) ? (3324) : __LINE__, __FUNCTION__);
+ (3334) ? (3334) : __LINE__, __FUNCTION__);
;
}
;
@@ -19619,7 +19785,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3324:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3334:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -19632,7 +19798,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3325:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3335:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -19641,7 +19807,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:3325:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3335:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -19649,7 +19815,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3325:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3335:/ cond.else");
/*^block */
/*anyblock */
@@ -19663,7 +19829,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3325) ? (3325) : __LINE__, __FUNCTION__);
+ (3335) ? (3335) : __LINE__, __FUNCTION__);
;
}
;
@@ -19678,7 +19844,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3325:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3335:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -19691,7 +19857,94 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3326:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3336:/ cppif.then");
+ /*^block */
+ /*anyblock */
+ {
+
+ /*_#IS_OBJECT__L3*/ meltfnum[0] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) ==
+ MELTOBMAG_OBJECT);;
+ MELT_LOCATION ("warmelt-macro.melt:3336:/ cond");
+ /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */
+ {
+ /*^cond.then */
+ /*_.IFELSE___V11*/ meltfptr[10] = ( /*nil */ NULL);;
+ }
+ else
+ {
+ MELT_LOCATION ("warmelt-macro.melt:3336:/ cond.else");
+
+ /*^block */
+ /*anyblock */
+ {
+
+
+
+
+ {
+ /*^locexp */
+ melt_assert_failed (("check modctx"),
+ ("warmelt-macro.melt")
+ ? ("warmelt-macro.melt") : __FILE__,
+ (3336) ? (3336) : __LINE__, __FUNCTION__);
+ ;
+ }
+ ;
+ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0;
+ /*epilog */
+ }
+ ;
+ }
+ ;
+ /*^compute */
+
+ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:3336:/ clear");
+ /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0;
+ /*^clear */
+ /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0;
+ }
+
+#else /*MELT_HAVE_DEBUG */
+ /*^cppif.else */
+ /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL);
+#endif /*MELT_HAVE_DEBUG */
+ ;
+ /*^compute */
+
+ /*_#NULL__L4*/ meltfnum[0] =
+ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:3337:/ cond");
+ /*cond */ if ( /*_#NULL__L4*/ meltfnum[0]) /*then */
+ {
+ /*^cond.then */
+ /*^block */
+ /*anyblock */
+ {
+
+ /*^compute */
+ /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V13*/ meltfptr[12] =
+ ( /*!MACROEXPAND_1 */ meltfrout->tabval[2]);;
+ /*_.IF___V12*/ meltfptr[10] = /*_.SETQ___V13*/ meltfptr[12];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:3337:/ clear");
+ /*clear *//*_.SETQ___V13*/ meltfptr[12] = 0;
+ }
+ ;
+ }
+ else
+ { /*^cond.else */
+
+ /*_.IF___V12*/ meltfptr[10] = NULL;;
+ }
+ ;
+
+#if MELT_HAVE_DEBUG
+ MELT_LOCATION ("warmelt-macro.melt:3338:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -19706,7 +19959,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L3*/ meltfnum[0] =
+ /*_#MELT_NEED_DBG__L5*/ meltfnum[4] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -19714,35 +19967,35 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3326:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3338:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] =
+ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3326:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3338:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
- argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3];
+ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3326;
+ argtab[2].meltbp_long = 3338;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexp.definstance sexpr";
/*^apply.arg */
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1];
- /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] =
+ /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])),
+ (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[3])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -19750,107 +20003,107 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V11*/ meltfptr[10] =
- /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];;
+ /*_.IF___V15*/ meltfptr[14] =
+ /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3326:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3338:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V11*/ meltfptr[10] = NULL;;
+ /*_.IF___V15*/ meltfptr[14] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3326:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3338:/ quasiblock");
- /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];;
+ /*_.PROGN___V17*/ meltfptr[15] = /*_.IF___V15*/ meltfptr[14];;
/*^compute */
- /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];;
+ /*_.IFCPP___V14*/ meltfptr[12] = /*_.PROGN___V17*/ meltfptr[15];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3326:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3338:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 0;
/*^clear */
- /*clear *//*_.IF___V11*/ meltfptr[10] = 0;
+ /*clear *//*_.IF___V15*/ meltfptr[14] = 0;
/*^clear */
- /*clear *//*_.PROGN___V13*/ meltfptr[11] = 0;
+ /*clear *//*_.PROGN___V17*/ meltfptr[15] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL);
+ /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3327:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3339:/ quasiblock");
- /*_.PREDEF__V15*/ meltfptr[11] = ( /*nil */ NULL);;
+ /*_.PREDEF__V19*/ meltfptr[15] = ( /*nil */ NULL);;
/*^compute */
- /*_.OBJNUM__V16*/ meltfptr[15] = ( /*nil */ NULL);;
+ /*_.OBJNUM__V20*/ meltfptr[19] = ( /*nil */ NULL);;
/*^compute */
- /*_.FIELDS__V17*/ meltfptr[16] = ( /*nil */ NULL);;
+ /*_.FIELDS__V21*/ meltfptr[20] = ( /*nil */ NULL);;
/*^compute */
- /*_.FIELDNAMS__V18*/ meltfptr[17] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3331:/ getslot");
+ /*_.FIELDNAMS__V22*/ meltfptr[21] = ( /*nil */ NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:3343:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
- /*_.CONT__V19*/
- meltfptr[18] = slot;
+ /*_.CONT__V23*/
+ meltfptr[22] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3332:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3344:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
- /*_.LOC__V20*/
- meltfptr[19] = slot;
+ /*_.LOC__V24*/
+ meltfptr[23] = slot;
};
;
- /*_.LIST_FIRST__V21*/ meltfptr[20] =
- (melt_list_first ((melt_ptr_t) ( /*_.CONT__V19*/ meltfptr[18])));;
+ /*_.LIST_FIRST__V25*/ meltfptr[24] =
+ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V23*/ meltfptr[22])));;
/*^compute */
- /*_.CURPAIR__V22*/ meltfptr[21] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));;
+ /*_.CURPAIR__V26*/ meltfptr[25] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V25*/ meltfptr[24])));;
/*^compute */
- /*_.SYMB__V23*/ meltfptr[22] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ /*_.SYMB__V27*/ meltfptr[26] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));;
/*^compute */
- /*_.CLANAME__V24*/ meltfptr[23] = ( /*nil */ NULL);;
+ /*_.CLANAME__V28*/ meltfptr[27] = ( /*nil */ NULL);;
/*^compute */
- /*_.CLA__V25*/ meltfptr[24] = ( /*nil */ NULL);;
+ /*_.CLA__V29*/ meltfptr[28] = ( /*nil */ NULL);;
/*^compute */
- /*_.DOCV__V26*/ meltfptr[25] = ( /*nil */ NULL);;
+ /*_.DOCV__V30*/ meltfptr[29] = ( /*nil */ NULL);;
/*^compute */
- /*_.CLABIND__V27*/ meltfptr[26] = ( /*nil */ NULL);;
+ /*_.CLABIND__V31*/ meltfptr[30] = ( /*nil */ NULL);;
/*^compute */
- /*_.FORMALS__V28*/ meltfptr[27] = ( /*nil */ NULL);;
+ /*_.FORMALS__V32*/ meltfptr[31] = ( /*nil */ NULL);;
/*^compute */
- /*_#IS_NOT_A__L5*/ meltfnum[3] =
- !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V23*/ meltfptr[22]),
+ /*_#IS_NOT_A__L7*/ meltfnum[5] =
+ !melt_is_instance_of ((melt_ptr_t) ( /*_.SYMB__V27*/ meltfptr[26]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
- tabval[3])));;
- MELT_LOCATION ("warmelt-macro.melt:3341:/ cond");
- /*cond */ if ( /*_#IS_NOT_A__L5*/ meltfnum[3]) /*then */
+ tabval[4])));;
+ MELT_LOCATION ("warmelt-macro.melt:3353:/ cond");
+ /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[5]) /*then */
{
/*^cond.then */
/*^block */
@@ -19859,54 +20112,54 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3343:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
+ MELT_LOCATION ("warmelt-macro.melt:3355:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]),
("missing symbol for (DEFSELECTOR <name> <class> ...)"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3344:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3356:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:3344:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3356:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3342:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3354:/ quasiblock");
- /*_.PROGN___V31*/ meltfptr[30] = /*_.RETURN___V30*/ meltfptr[29];;
+ /*_.PROGN___V35*/ meltfptr[34] = /*_.RETURN___V34*/ meltfptr[33];;
/*^compute */
- /*_.IF___V29*/ meltfptr[28] = /*_.PROGN___V31*/ meltfptr[30];;
+ /*_.IF___V33*/ meltfptr[32] = /*_.PROGN___V35*/ meltfptr[34];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3341:/ clear");
- /*clear *//*_.RETURN___V30*/ meltfptr[29] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3353:/ clear");
+ /*clear *//*_.RETURN___V34*/ meltfptr[33] = 0;
/*^clear */
- /*clear *//*_.PROGN___V31*/ meltfptr[30] = 0;
+ /*clear *//*_.PROGN___V35*/ meltfptr[34] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V29*/ meltfptr[28] = NULL;;
+ /*_.IF___V33*/ meltfptr[32] = NULL;;
}
;
/*^compute */
- /*_.PAIR_TAIL__V32*/ meltfptr[29] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
- MELT_LOCATION ("warmelt-macro.melt:3345:/ compute");
- /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V33*/ meltfptr[30] =
- /*_.PAIR_TAIL__V32*/ meltfptr[29];;
- MELT_LOCATION ("warmelt-macro.melt:3346:/ quasiblock");
+ /*_.PAIR_TAIL__V36*/ meltfptr[33] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));;
+ MELT_LOCATION ("warmelt-macro.melt:3357:/ compute");
+ /*_.CURPAIR__V26*/ meltfptr[25] = /*_.SETQ___V37*/ meltfptr[34] =
+ /*_.PAIR_TAIL__V36*/ meltfptr[33];;
+ MELT_LOCATION ("warmelt-macro.melt:3358:/ quasiblock");
- /*_.NAM__V35*/ meltfptr[34] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
- MELT_LOCATION ("warmelt-macro.melt:3347:/ quasiblock");
+ /*_.NAM__V39*/ meltfptr[38] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));;
+ MELT_LOCATION ("warmelt-macro.melt:3359:/ quasiblock");
/*^rawallocobj */
@@ -19915,9 +20168,9 @@ lab_endgetargs:;
melt_ptr_t newobj = 0;
melt_raw_object_create (newobj,
(melt_ptr_t) (( /*!CLASS_SELECTOR_BINDING */
- meltfrout->tabval[4])), (3),
+ meltfrout->tabval[5])), (3),
"CLASS_SELECTOR_BINDING");
- /*_.INST__V37*/ meltfptr[36] =
+ /*_.INST__V41*/ meltfptr[40] =
newobj;
};
;
@@ -19925,29 +20178,29 @@ lab_endgetargs:;
/*putslot */
melt_assertmsg ("putslot checkobj @BINDER",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V37*/ meltfptr[36])) ==
+ ( /*_.INST__V41*/ meltfptr[40])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V37*/ meltfptr[36]), (0),
- ( /*_.SYMB__V23*/ meltfptr[22]), "BINDER");
+ melt_putfield_object (( /*_.INST__V41*/ meltfptr[40]), (0),
+ ( /*_.SYMB__V27*/ meltfptr[26]), "BINDER");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SBIND_SELECTORDEF",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V37*/ meltfptr[36])) ==
+ ( /*_.INST__V41*/ meltfptr[40])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V37*/ meltfptr[36]), (2),
+ melt_putfield_object (( /*_.INST__V41*/ meltfptr[40]), (2),
(( /*nil */ NULL)), "SBIND_SELECTORDEF");
;
- /*_.SELBIND__V36*/ meltfptr[35] = /*_.INST__V37*/ meltfptr[36];;
+ /*_.SELBIND__V40*/ meltfptr[39] = /*_.INST__V41*/ meltfptr[40];;
/*^compute */
- /*_#IS_NOT_A__L6*/ meltfnum[0] =
- !melt_is_instance_of ((melt_ptr_t) ( /*_.NAM__V35*/ meltfptr[34]),
+ /*_#IS_NOT_A__L8*/ meltfnum[4] =
+ !melt_is_instance_of ((melt_ptr_t) ( /*_.NAM__V39*/ meltfptr[38]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
- tabval[3])));;
- MELT_LOCATION ("warmelt-macro.melt:3352:/ cond");
- /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[0]) /*then */
+ tabval[4])));;
+ MELT_LOCATION ("warmelt-macro.melt:3364:/ cond");
+ /*cond */ if ( /*_#IS_NOT_A__L8*/ meltfnum[4]) /*then */
{
/*^cond.then */
/*^block */
@@ -19956,42 +20209,42 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3354:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
+ MELT_LOCATION ("warmelt-macro.melt:3366:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]),
("missing class name for (DEFSELECTOR <name> <class> ...)"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3355:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3367:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:3355:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3367:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3353:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3365:/ quasiblock");
- /*_.PROGN___V40*/ meltfptr[39] = /*_.RETURN___V39*/ meltfptr[38];;
+ /*_.PROGN___V44*/ meltfptr[43] = /*_.RETURN___V43*/ meltfptr[42];;
/*^compute */
- /*_.IF___V38*/ meltfptr[37] = /*_.PROGN___V40*/ meltfptr[39];;
+ /*_.IF___V42*/ meltfptr[41] = /*_.PROGN___V44*/ meltfptr[43];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3352:/ clear");
- /*clear *//*_.RETURN___V39*/ meltfptr[38] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3364:/ clear");
+ /*clear *//*_.RETURN___V43*/ meltfptr[42] = 0;
/*^clear */
- /*clear *//*_.PROGN___V40*/ meltfptr[39] = 0;
+ /*clear *//*_.PROGN___V44*/ meltfptr[43] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V38*/ meltfptr[37] = NULL;;
+ /*_.IF___V42*/ meltfptr[41] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3356:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3368:/ apply");
/*apply */
{
union meltparam_un argtab[2];
@@ -19999,37 +20252,37 @@ lab_endgetargs:;
/*^apply.arg */
argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2];
/*^apply.arg */
- argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V20*/ meltfptr[19];
- /*_.WARN_IF_REDEFINED__V41*/ meltfptr[38] =
+ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V24*/ meltfptr[23];
+ /*_.WARN_IF_REDEFINED__V45*/ meltfptr[42] =
melt_apply ((meltclosure_ptr_t)
- (( /*!WARN_IF_REDEFINED */ meltfrout->tabval[5])),
- (melt_ptr_t) ( /*_.SYMB__V23*/ meltfptr[22]),
+ (( /*!WARN_IF_REDEFINED */ meltfrout->tabval[6])),
+ (melt_ptr_t) ( /*_.SYMB__V27*/ meltfptr[26]),
(MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3357:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3369:/ apply");
/*apply */
{
union meltparam_un argtab[1];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
- (melt_ptr_t *) & /*_.SELBIND__V36*/ meltfptr[35];
- /*_.PUT_ENV__V42*/ meltfptr[39] =
+ (melt_ptr_t *) & /*_.SELBIND__V40*/ meltfptr[39];
+ /*_.PUT_ENV__V46*/ meltfptr[43] =
melt_apply ((meltclosure_ptr_t)
- (( /*!PUT_ENV */ meltfrout->tabval[6])),
+ (( /*!PUT_ENV */ meltfrout->tabval[7])),
(melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]),
(MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3359:/ compute");
- /*_.CLANAME__V24*/ meltfptr[23] = /*_.SETQ___V43*/ meltfptr[42] =
- /*_.NAM__V35*/ meltfptr[34];;
+ MELT_LOCATION ("warmelt-macro.melt:3371:/ compute");
+ /*_.CLANAME__V28*/ meltfptr[27] = /*_.SETQ___V47*/ meltfptr[46] =
+ /*_.NAM__V39*/ meltfptr[38];;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3360:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3372:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -20044,7 +20297,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L7*/ meltfnum[6] =
+ /*_#MELT_NEED_DBG__L9*/ meltfnum[8] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -20052,35 +20305,36 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3360:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[6]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3372:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] =
+ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3360:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3372:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
- argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7];
+ argtab[0].meltbp_long =
+ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3360;
+ argtab[2].meltbp_long = 3372;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_defselector claname";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.CLANAME__V24*/ meltfptr[23];
- /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] =
+ (melt_ptr_t *) & /*_.CLANAME__V28*/ meltfptr[27];
+ /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])),
+ (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[3])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -20088,46 +20342,46 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V45*/ meltfptr[44] =
- /*_.MELT_DEBUG_FUN__V46*/ meltfptr[45];;
+ /*_.IF___V49*/ meltfptr[48] =
+ /*_.MELT_DEBUG_FUN__V50*/ meltfptr[49];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3360:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3372:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V46*/ meltfptr[45] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V50*/ meltfptr[49] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V45*/ meltfptr[44] = NULL;;
+ /*_.IF___V49*/ meltfptr[48] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3360:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3372:/ quasiblock");
- /*_.PROGN___V47*/ meltfptr[45] = /*_.IF___V45*/ meltfptr[44];;
+ /*_.PROGN___V51*/ meltfptr[49] = /*_.IF___V49*/ meltfptr[48];;
/*^compute */
- /*_.IFCPP___V44*/ meltfptr[43] = /*_.PROGN___V47*/ meltfptr[45];;
+ /*_.IFCPP___V48*/ meltfptr[47] = /*_.PROGN___V51*/ meltfptr[49];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3360:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[6] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3372:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_.IF___V45*/ meltfptr[44] = 0;
+ /*clear *//*_.IF___V49*/ meltfptr[48] = 0;
/*^clear */
- /*clear *//*_.PROGN___V47*/ meltfptr[45] = 0;
+ /*clear *//*_.PROGN___V51*/ meltfptr[49] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V44*/ meltfptr[43] = ( /*nil */ NULL);
+ /*_.IFCPP___V48*/ meltfptr[47] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3361:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3373:/ quasiblock");
/*^apply */
@@ -20137,63 +20391,63 @@ lab_endgetargs:;
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
- (melt_ptr_t *) & /*_.CLANAME__V24*/ meltfptr[23];
- /*_.BND__V49*/ meltfptr[45] =
+ (melt_ptr_t *) & /*_.CLANAME__V28*/ meltfptr[27];
+ /*_.BND__V53*/ meltfptr[49] =
melt_apply ((meltclosure_ptr_t)
- (( /*!FIND_ENV */ meltfrout->tabval[7])),
+ (( /*!FIND_ENV */ meltfrout->tabval[8])),
(melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]),
(MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
- /*_.FLDLIST__V50*/ meltfptr[49] =
+ /*_.FLDLIST__V54*/ meltfptr[53] =
(meltgc_new_list
- ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[8]))));;
+ ((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[9]))));;
/*^compute */
- /*_#IS_A__L9*/ meltfnum[7] =
- melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V49*/ meltfptr[45]),
+ /*_#IS_A__L11*/ meltfnum[9] =
+ melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]),
(melt_ptr_t) (( /*!CLASS_CLASS_BINDING */
- meltfrout->tabval[9])));;
- MELT_LOCATION ("warmelt-macro.melt:3365:/ cond");
- /*cond */ if ( /*_#IS_A__L9*/ meltfnum[7]) /*then */
+ meltfrout->tabval[10])));;
+ MELT_LOCATION ("warmelt-macro.melt:3377:/ cond");
+ /*cond */ if ( /*_#IS_A__L11*/ meltfnum[9]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3366:/ compute");
- /*_.CLABIND__V27*/ meltfptr[26] = /*_.SETQ___V52*/ meltfptr[51] =
- /*_.BND__V49*/ meltfptr[45];;
- MELT_LOCATION ("warmelt-macro.melt:3367:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3378:/ compute");
+ /*_.CLABIND__V31*/ meltfptr[30] = /*_.SETQ___V56*/ meltfptr[55] =
+ /*_.BND__V53*/ meltfptr[49];;
+ MELT_LOCATION ("warmelt-macro.melt:3379:/ getslot");
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V49*/ meltfptr[45]), 3, "CBIND_CLASS");
- /*_.CBIND_CLASS__V53*/
- meltfptr[52] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]), 3, "CBIND_CLASS");
+ /*_.CBIND_CLASS__V57*/
+ meltfptr[56] = slot;
};
;
/*^compute */
- /*_.CLA__V25*/ meltfptr[24] = /*_.SETQ___V54*/ meltfptr[53] =
- /*_.CBIND_CLASS__V53*/ meltfptr[52];;
- MELT_LOCATION ("warmelt-macro.melt:3365:/ quasiblock");
+ /*_.CLA__V29*/ meltfptr[28] = /*_.SETQ___V58*/ meltfptr[57] =
+ /*_.CBIND_CLASS__V57*/ meltfptr[56];;
+ MELT_LOCATION ("warmelt-macro.melt:3377:/ quasiblock");
- /*_.PROGN___V55*/ meltfptr[54] = /*_.SETQ___V54*/ meltfptr[53];;
+ /*_.PROGN___V59*/ meltfptr[58] = /*_.SETQ___V58*/ meltfptr[57];;
/*^compute */
- /*_.IFELSE___V51*/ meltfptr[50] = /*_.PROGN___V55*/ meltfptr[54];;
+ /*_.IFELSE___V55*/ meltfptr[54] = /*_.PROGN___V59*/ meltfptr[58];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3365:/ clear");
- /*clear *//*_.SETQ___V52*/ meltfptr[51] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3377:/ clear");
+ /*clear *//*_.SETQ___V56*/ meltfptr[55] = 0;
/*^clear */
- /*clear *//*_.CBIND_CLASS__V53*/ meltfptr[52] = 0;
+ /*clear *//*_.CBIND_CLASS__V57*/ meltfptr[56] = 0;
/*^clear */
- /*clear *//*_.SETQ___V54*/ meltfptr[53] = 0;
+ /*clear *//*_.SETQ___V58*/ meltfptr[57] = 0;
/*^clear */
- /*clear *//*_.PROGN___V55*/ meltfptr[54] = 0;
+ /*clear *//*_.PROGN___V59*/ meltfptr[58] = 0;
}
;
}
@@ -20204,92 +20458,92 @@ lab_endgetargs:;
/*anyblock */
{
- /*_#IS_A__L10*/ meltfnum[6] =
- melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V49*/ meltfptr[45]),
+ /*_#IS_A__L12*/ meltfnum[8] =
+ melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]),
(melt_ptr_t) (( /*!CLASS_VALUE_BINDING */
- meltfrout->tabval[10])));;
- MELT_LOCATION ("warmelt-macro.melt:3368:/ cond");
- /*cond */ if ( /*_#IS_A__L10*/ meltfnum[6]) /*then */
+ meltfrout->tabval[11])));;
+ MELT_LOCATION ("warmelt-macro.melt:3380:/ cond");
+ /*cond */ if ( /*_#IS_A__L12*/ meltfnum[8]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3369:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3381:/ getslot");
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V49*/ meltfptr[45]), 1, "VBIND_VALUE");
- /*_.VBIND_VALUE__V56*/
- meltfptr[51] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]), 1, "VBIND_VALUE");
+ /*_.VBIND_VALUE__V60*/
+ meltfptr[55] = slot;
};
;
- /*_#IS_A__L12*/ meltfnum[11] =
+ /*_#IS_A__L14*/ meltfnum[13] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.VBIND_VALUE__V56*/ meltfptr[51]),
+ ( /*_.VBIND_VALUE__V60*/ meltfptr[55]),
(melt_ptr_t) (( /*!CLASS_CLASS */
meltfrout->
- tabval[11])));;
+ tabval[12])));;
/*^compute */
- /*_#IF___L11*/ meltfnum[10] = /*_#IS_A__L12*/ meltfnum[11];;
+ /*_#IF___L13*/ meltfnum[12] = /*_#IS_A__L14*/ meltfnum[13];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3368:/ clear");
- /*clear *//*_.VBIND_VALUE__V56*/ meltfptr[51] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3380:/ clear");
+ /*clear *//*_.VBIND_VALUE__V60*/ meltfptr[55] = 0;
/*^clear */
- /*clear *//*_#IS_A__L12*/ meltfnum[11] = 0;
+ /*clear *//*_#IS_A__L14*/ meltfnum[13] = 0;
}
;
}
else
{ /*^cond.else */
- /*_#IF___L11*/ meltfnum[10] = 0;;
+ /*_#IF___L13*/ meltfnum[12] = 0;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3368:/ cond");
- /*cond */ if ( /*_#IF___L11*/ meltfnum[10]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3380:/ cond");
+ /*cond */ if ( /*_#IF___L13*/ meltfnum[12]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3370:/ compute");
- /*_.CLABIND__V27*/ meltfptr[26] =
- /*_.SETQ___V58*/ meltfptr[53] =
- /*_.BND__V49*/ meltfptr[45];;
- MELT_LOCATION ("warmelt-macro.melt:3371:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3382:/ compute");
+ /*_.CLABIND__V31*/ meltfptr[30] =
+ /*_.SETQ___V62*/ meltfptr[57] =
+ /*_.BND__V53*/ meltfptr[49];;
+ MELT_LOCATION ("warmelt-macro.melt:3383:/ getslot");
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V49*/ meltfptr[45]), 1, "VBIND_VALUE");
- /*_.VBIND_VALUE__V59*/
- meltfptr[54] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V53*/ meltfptr[49]), 1, "VBIND_VALUE");
+ /*_.VBIND_VALUE__V63*/
+ meltfptr[58] = slot;
};
;
/*^compute */
- /*_.CLA__V25*/ meltfptr[24] = /*_.SETQ___V60*/ meltfptr[51] =
- /*_.VBIND_VALUE__V59*/ meltfptr[54];;
- MELT_LOCATION ("warmelt-macro.melt:3368:/ quasiblock");
+ /*_.CLA__V29*/ meltfptr[28] = /*_.SETQ___V64*/ meltfptr[55] =
+ /*_.VBIND_VALUE__V63*/ meltfptr[58];;
+ MELT_LOCATION ("warmelt-macro.melt:3380:/ quasiblock");
- /*_.PROGN___V61*/ meltfptr[60] =
- /*_.SETQ___V60*/ meltfptr[51];;
+ /*_.PROGN___V65*/ meltfptr[64] =
+ /*_.SETQ___V64*/ meltfptr[55];;
/*^compute */
- /*_.IFELSE___V57*/ meltfptr[52] =
- /*_.PROGN___V61*/ meltfptr[60];;
+ /*_.IFELSE___V61*/ meltfptr[56] =
+ /*_.PROGN___V65*/ meltfptr[64];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3368:/ clear");
- /*clear *//*_.SETQ___V58*/ meltfptr[53] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3380:/ clear");
+ /*clear *//*_.SETQ___V62*/ meltfptr[57] = 0;
/*^clear */
- /*clear *//*_.VBIND_VALUE__V59*/ meltfptr[54] = 0;
+ /*clear *//*_.VBIND_VALUE__V63*/ meltfptr[58] = 0;
/*^clear */
- /*clear *//*_.SETQ___V60*/ meltfptr[51] = 0;
+ /*clear *//*_.SETQ___V64*/ meltfptr[55] = 0;
/*^clear */
- /*clear *//*_.PROGN___V61*/ meltfptr[60] = 0;
+ /*clear *//*_.PROGN___V65*/ meltfptr[64] = 0;
}
;
}
@@ -20300,10 +20554,10 @@ lab_endgetargs:;
/*anyblock */
{
- /*_#NOTNULL__L13*/ meltfnum[11] =
- (( /*_.BND__V49*/ meltfptr[45]) != NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3372:/ cond");
- /*cond */ if ( /*_#NOTNULL__L13*/ meltfnum[11]) /*then */
+ /*_#NOTNULL__L15*/ meltfnum[13] =
+ (( /*_.BND__V53*/ meltfptr[49]) != NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:3384:/ cond");
+ /*cond */ if ( /*_#NOTNULL__L15*/ meltfnum[13]) /*then */
{
/*^cond.then */
/*^block */
@@ -20312,7 +20566,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3373:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3385:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -20327,7 +20581,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L14*/ meltfnum[13] =
+ /*_#MELT_NEED_DBG__L16*/ meltfnum[15] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -20335,41 +20589,41 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3373:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[13]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3385:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] =
+ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] =
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:3373:/ apply");
+ ("warmelt-macro.melt:3385:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14];
+ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16];
/*^apply.arg */
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3373;
+ argtab[2].meltbp_long = 3385;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_defselector faulty bnd";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.BND__V49*/
- meltfptr[45];
- /*_.MELT_DEBUG_FUN__V65*/ meltfptr[60] =
+ (melt_ptr_t *) & /*_.BND__V53*/
+ meltfptr[49];
+ /*_.MELT_DEBUG_FUN__V69*/ meltfptr[64] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */
- meltfrout->tabval[2])),
+ meltfrout->tabval[3])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG
MELTBPARSTR_CSTRING
@@ -20379,16 +20633,16 @@ lab_endgetargs:;
"", (union meltparam_un *) 0);
}
;
- /*_.IF___V64*/ meltfptr[51] =
- /*_.MELT_DEBUG_FUN__V65*/ meltfptr[60];;
+ /*_.IF___V68*/ meltfptr[55] =
+ /*_.MELT_DEBUG_FUN__V69*/ meltfptr[64];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:3373:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L15*/
- meltfnum[14] = 0;
+ ("warmelt-macro.melt:3385:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L17*/
+ meltfnum[16] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V65*/ meltfptr[60]
+ /*clear *//*_.MELT_DEBUG_FUN__V69*/ meltfptr[64]
= 0;
}
;
@@ -20396,78 +20650,78 @@ lab_endgetargs:;
else
{ /*^cond.else */
- /*_.IF___V64*/ meltfptr[51] = NULL;;
+ /*_.IF___V68*/ meltfptr[55] = NULL;;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:3373:/ quasiblock");
+ ("warmelt-macro.melt:3385:/ quasiblock");
- /*_.PROGN___V66*/ meltfptr[60] =
- /*_.IF___V64*/ meltfptr[51];;
+ /*_.PROGN___V70*/ meltfptr[64] =
+ /*_.IF___V68*/ meltfptr[55];;
/*^compute */
- /*_.IFCPP___V63*/ meltfptr[54] =
- /*_.PROGN___V66*/ meltfptr[60];;
+ /*_.IFCPP___V67*/ meltfptr[58] =
+ /*_.PROGN___V70*/ meltfptr[64];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3373:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[13] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3385:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0;
/*^clear */
- /*clear *//*_.IF___V64*/ meltfptr[51] = 0;
+ /*clear *//*_.IF___V68*/ meltfptr[55] = 0;
/*^clear */
- /*clear *//*_.PROGN___V66*/ meltfptr[60] = 0;
+ /*clear *//*_.PROGN___V70*/ meltfptr[64] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V63*/ meltfptr[54] = ( /*nil */ NULL);
+ /*_.IFCPP___V67*/ meltfptr[58] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3375:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3387:/ getslot");
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.CLANAME__V24*/ meltfptr[23]), 1, "NAMED_NAME");
- /*_.NAMED_NAME__V67*/
- meltfptr[51] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.CLANAME__V28*/ meltfptr[27]), 1, "NAMED_NAME");
+ /*_.NAMED_NAME__V71*/
+ meltfptr[55] = slot;
};
;
{
- MELT_LOCATION ("warmelt-macro.melt:3374:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3386:/ locexp");
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V20*/ meltfptr[19]),
+ ( /*_.LOC__V24*/ meltfptr[23]),
("invalid class name for (DEFSELECTOR <name> <class> ...)"),
- (melt_ptr_t) ( /*_.NAMED_NAME__V67*/
- meltfptr[51]));
+ (melt_ptr_t) ( /*_.NAMED_NAME__V71*/
+ meltfptr[55]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:3376:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3388:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:3376:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3388:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3372:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3384:/ quasiblock");
- /*_.PROGN___V69*/ meltfptr[68] =
- /*_.RETURN___V68*/ meltfptr[60];;
+ /*_.PROGN___V73*/ meltfptr[72] =
+ /*_.RETURN___V72*/ meltfptr[64];;
/*^compute */
- /*_.IFELSE___V62*/ meltfptr[53] =
- /*_.PROGN___V69*/ meltfptr[68];;
+ /*_.IFELSE___V66*/ meltfptr[57] =
+ /*_.PROGN___V73*/ meltfptr[72];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3372:/ clear");
- /*clear *//*_.IFCPP___V63*/ meltfptr[54] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3384:/ clear");
+ /*clear *//*_.IFCPP___V67*/ meltfptr[58] = 0;
/*^clear */
- /*clear *//*_.NAMED_NAME__V67*/ meltfptr[51] = 0;
+ /*clear *//*_.NAMED_NAME__V71*/ meltfptr[55] = 0;
/*^clear */
- /*clear *//*_.RETURN___V68*/ meltfptr[60] = 0;
+ /*clear *//*_.RETURN___V72*/ meltfptr[64] = 0;
/*^clear */
- /*clear *//*_.PROGN___V69*/ meltfptr[68] = 0;
+ /*clear *//*_.PROGN___V73*/ meltfptr[72] = 0;
}
;
}
@@ -20478,80 +20732,80 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3379:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3391:/ getslot");
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.CLANAME__V24*/ meltfptr[23]), 1, "NAMED_NAME");
- /*_.NAMED_NAME__V70*/
- meltfptr[54] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.CLANAME__V28*/ meltfptr[27]), 1, "NAMED_NAME");
+ /*_.NAMED_NAME__V74*/
+ meltfptr[58] = slot;
};
;
{
- MELT_LOCATION ("warmelt-macro.melt:3378:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3390:/ locexp");
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V20*/ meltfptr[19]),
+ ( /*_.LOC__V24*/ meltfptr[23]),
("unknown class name for (DEFSELECTOR <name> <class> ...)"),
- (melt_ptr_t) ( /*_.NAMED_NAME__V70*/
- meltfptr[54]));
+ (melt_ptr_t) ( /*_.NAMED_NAME__V74*/
+ meltfptr[58]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:3380:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3392:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:3380:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3392:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3377:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3389:/ quasiblock");
- /*_.PROGN___V72*/ meltfptr[60] =
- /*_.RETURN___V71*/ meltfptr[51];;
+ /*_.PROGN___V76*/ meltfptr[64] =
+ /*_.RETURN___V75*/ meltfptr[55];;
/*^compute */
- /*_.IFELSE___V62*/ meltfptr[53] =
- /*_.PROGN___V72*/ meltfptr[60];;
+ /*_.IFELSE___V66*/ meltfptr[57] =
+ /*_.PROGN___V76*/ meltfptr[64];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3372:/ clear");
- /*clear *//*_.NAMED_NAME__V70*/ meltfptr[54] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3384:/ clear");
+ /*clear *//*_.NAMED_NAME__V74*/ meltfptr[58] = 0;
/*^clear */
- /*clear *//*_.RETURN___V71*/ meltfptr[51] = 0;
+ /*clear *//*_.RETURN___V75*/ meltfptr[55] = 0;
/*^clear */
- /*clear *//*_.PROGN___V72*/ meltfptr[60] = 0;
+ /*clear *//*_.PROGN___V76*/ meltfptr[64] = 0;
}
;
}
;
- /*_.IFELSE___V57*/ meltfptr[52] =
- /*_.IFELSE___V62*/ meltfptr[53];;
+ /*_.IFELSE___V61*/ meltfptr[56] =
+ /*_.IFELSE___V66*/ meltfptr[57];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3368:/ clear");
- /*clear *//*_#NOTNULL__L13*/ meltfnum[11] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3380:/ clear");
+ /*clear *//*_#NOTNULL__L15*/ meltfnum[13] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V62*/ meltfptr[53] = 0;
+ /*clear *//*_.IFELSE___V66*/ meltfptr[57] = 0;
}
;
}
;
- /*_.IFELSE___V51*/ meltfptr[50] = /*_.IFELSE___V57*/ meltfptr[52];;
+ /*_.IFELSE___V55*/ meltfptr[54] = /*_.IFELSE___V61*/ meltfptr[56];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3365:/ clear");
- /*clear *//*_#IS_A__L10*/ meltfnum[6] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3377:/ clear");
+ /*clear *//*_#IS_A__L12*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_#IF___L11*/ meltfnum[10] = 0;
+ /*clear *//*_#IF___L13*/ meltfnum[12] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V57*/ meltfptr[52] = 0;
+ /*clear *//*_.IFELSE___V61*/ meltfptr[56] = 0;
}
;
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3383:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3395:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -20566,7 +20820,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L16*/ meltfnum[14] =
+ /*_#MELT_NEED_DBG__L18*/ meltfnum[16] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -20574,36 +20828,36 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3383:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[14]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3395:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[16]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[13] =
+ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[15] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3383:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3395:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[13];
+ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[15];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3383;
+ argtab[2].meltbp_long = 3395;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_defselector cla";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.CLA__V25*/ meltfptr[24];
- /*_.MELT_DEBUG_FUN__V75*/ meltfptr[51] =
+ (melt_ptr_t *) & /*_.CLA__V29*/ meltfptr[28];
+ /*_.MELT_DEBUG_FUN__V79*/ meltfptr[55] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])),
+ (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[3])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -20611,60 +20865,60 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V74*/ meltfptr[54] =
- /*_.MELT_DEBUG_FUN__V75*/ meltfptr[51];;
+ /*_.IF___V78*/ meltfptr[58] =
+ /*_.MELT_DEBUG_FUN__V79*/ meltfptr[55];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3383:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[13] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3395:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[15] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V75*/ meltfptr[51] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V79*/ meltfptr[55] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V74*/ meltfptr[54] = NULL;;
+ /*_.IF___V78*/ meltfptr[58] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3383:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3395:/ quasiblock");
- /*_.PROGN___V76*/ meltfptr[60] = /*_.IF___V74*/ meltfptr[54];;
+ /*_.PROGN___V80*/ meltfptr[64] = /*_.IF___V78*/ meltfptr[58];;
/*^compute */
- /*_.IFCPP___V73*/ meltfptr[68] = /*_.PROGN___V76*/ meltfptr[60];;
+ /*_.IFCPP___V77*/ meltfptr[72] = /*_.PROGN___V80*/ meltfptr[64];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3383:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[14] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3395:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[16] = 0;
/*^clear */
- /*clear *//*_.IF___V74*/ meltfptr[54] = 0;
+ /*clear *//*_.IF___V78*/ meltfptr[58] = 0;
/*^clear */
- /*clear *//*_.PROGN___V76*/ meltfptr[60] = 0;
+ /*clear *//*_.PROGN___V80*/ meltfptr[64] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V73*/ meltfptr[68] = ( /*nil */ NULL);
+ /*_.IFCPP___V77*/ meltfptr[72] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
- /*_#SUBCLASS_OR_EQ__L18*/ meltfnum[11] =
- (( /*_.CLA__V25*/ meltfptr[24] ==
- ( /*!CLASS_SELECTOR */ meltfrout->tabval[12]))
+ /*_#SUBCLASS_OR_EQ__L20*/ meltfnum[13] =
+ (( /*_.CLA__V29*/ meltfptr[28] ==
+ ( /*!CLASS_SELECTOR */ meltfrout->tabval[13]))
||
- melt_is_subclass_of ((meltobject_ptr_t) ( /*_.CLA__V25*/ meltfptr[24]),
+ melt_is_subclass_of ((meltobject_ptr_t) ( /*_.CLA__V29*/ meltfptr[28]),
(meltobject_ptr_t) (( /*!CLASS_SELECTOR */
- meltfrout->tabval[12]))));;
+ meltfrout->tabval[13]))));;
/*^compute */
- /*_#NOT__L19*/ meltfnum[6] =
- (!( /*_#SUBCLASS_OR_EQ__L18*/ meltfnum[11]));;
- MELT_LOCATION ("warmelt-macro.melt:3384:/ cond");
- /*cond */ if ( /*_#NOT__L19*/ meltfnum[6]) /*then */
+ /*_#NOT__L21*/ meltfnum[8] =
+ (!( /*_#SUBCLASS_OR_EQ__L20*/ meltfnum[13]));;
+ MELT_LOCATION ("warmelt-macro.melt:3396:/ cond");
+ /*cond */ if ( /*_#NOT__L21*/ meltfnum[8]) /*then */
{
/*^cond.then */
/*^block */
@@ -20673,7 +20927,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3386:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3398:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -20688,7 +20942,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L20*/ meltfnum[10] =
+ /*_#MELT_NEED_DBG__L22*/ meltfnum[12] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -20696,39 +20950,39 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3386:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L20*/ meltfnum[10]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3398:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L22*/ meltfnum[12]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[13] =
+ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[15] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3386:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3398:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L21*/ meltfnum[13];
+ /*_#THE_MELTCALLCOUNT__L23*/ meltfnum[15];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3386;
+ argtab[2].meltbp_long = 3398;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_defselector class_selector=";
/*^apply.arg */
argtab[4].meltbp_aptr =
(melt_ptr_t *) & ( /*!CLASS_SELECTOR */ meltfrout->
- tabval[12]);
- /*_.MELT_DEBUG_FUN__V80*/ meltfptr[54] =
+ tabval[13]);
+ /*_.MELT_DEBUG_FUN__V84*/ meltfptr[58] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
- tabval[2])),
+ tabval[3])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -20736,162 +20990,162 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V79*/ meltfptr[51] =
- /*_.MELT_DEBUG_FUN__V80*/ meltfptr[54];;
+ /*_.IF___V83*/ meltfptr[55] =
+ /*_.MELT_DEBUG_FUN__V84*/ meltfptr[58];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3386:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L21*/ meltfnum[13] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3398:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L23*/ meltfnum[15] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V80*/ meltfptr[54] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V84*/ meltfptr[58] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V79*/ meltfptr[51] = NULL;;
+ /*_.IF___V83*/ meltfptr[55] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3386:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3398:/ quasiblock");
- /*_.PROGN___V81*/ meltfptr[60] = /*_.IF___V79*/ meltfptr[51];;
+ /*_.PROGN___V85*/ meltfptr[64] = /*_.IF___V83*/ meltfptr[55];;
/*^compute */
- /*_.IFCPP___V78*/ meltfptr[52] = /*_.PROGN___V81*/ meltfptr[60];;
+ /*_.IFCPP___V82*/ meltfptr[56] = /*_.PROGN___V85*/ meltfptr[64];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3386:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L20*/ meltfnum[10] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3398:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L22*/ meltfnum[12] = 0;
/*^clear */
- /*clear *//*_.IF___V79*/ meltfptr[51] = 0;
+ /*clear *//*_.IF___V83*/ meltfptr[55] = 0;
/*^clear */
- /*clear *//*_.PROGN___V81*/ meltfptr[60] = 0;
+ /*clear *//*_.PROGN___V85*/ meltfptr[64] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V78*/ meltfptr[52] = ( /*nil */ NULL);
+ /*_.IFCPP___V82*/ meltfptr[56] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3390:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3402:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
(( /*!MELT_MODE_CONTAINER */
- meltfrout->tabval[13])),
- (melt_ptr_t) (( /*!CLASS_CONTAINER */ meltfrout->tabval[14])))
+ meltfrout->tabval[14])),
+ (melt_ptr_t) (( /*!CLASS_CONTAINER */ meltfrout->tabval[15])))
) /*then */
{
/*^cond.then */
/*^getslot */
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) (( /*!MELT_MODE_CONTAINER */ meltfrout->tabval[13])), 0, "CONTAINER_VALUE");
- /*_.CONTAINER_VALUE__V82*/
- meltfptr[54] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) (( /*!MELT_MODE_CONTAINER */ meltfrout->tabval[14])), 0, "CONTAINER_VALUE");
+ /*_.CONTAINER_VALUE__V86*/
+ meltfptr[58] = slot;
};
;
}
else
{ /*^cond.else */
- /*_.CONTAINER_VALUE__V82*/ meltfptr[54] = NULL;;
+ /*_.CONTAINER_VALUE__V86*/ meltfptr[58] = NULL;;
}
;
/*^compute */
- /*_#NULL__L22*/ meltfnum[14] =
- (( /*_.CONTAINER_VALUE__V82*/ meltfptr[54]) == NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3390:/ cond");
- /*cond */ if ( /*_#NULL__L22*/ meltfnum[14]) /*then */
+ /*_#NULL__L24*/ meltfnum[16] =
+ (( /*_.CONTAINER_VALUE__V86*/ meltfptr[58]) == NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:3402:/ cond");
+ /*cond */ if ( /*_#NULL__L24*/ meltfnum[16]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3392:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3404:/ getslot");
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.CLANAME__V24*/ meltfptr[23]), 1, "NAMED_NAME");
- /*_.NAMED_NAME__V83*/
- meltfptr[51] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.CLANAME__V28*/ meltfptr[27]), 1, "NAMED_NAME");
+ /*_.NAMED_NAME__V87*/
+ meltfptr[55] = slot;
};
;
{
- MELT_LOCATION ("warmelt-macro.melt:3391:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
+ MELT_LOCATION ("warmelt-macro.melt:3403:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]),
("invalid class in (DEFSELECTOR <name> <class>); expecting CLASS_SELECTOR or its subclass"),
- (melt_ptr_t) ( /*_.NAMED_NAME__V83*/
- meltfptr[51]));
+ (melt_ptr_t) ( /*_.NAMED_NAME__V87*/
+ meltfptr[55]));
}
;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3390:/ clear");
- /*clear *//*_.NAMED_NAME__V83*/ meltfptr[51] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3402:/ clear");
+ /*clear *//*_.NAMED_NAME__V87*/ meltfptr[55] = 0;
}
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3393:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3405:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:3393:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3405:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3385:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3397:/ quasiblock");
- /*_.PROGN___V85*/ meltfptr[51] = /*_.RETURN___V84*/ meltfptr[60];;
+ /*_.PROGN___V89*/ meltfptr[55] = /*_.RETURN___V88*/ meltfptr[64];;
/*^compute */
- /*_.IF___V77*/ meltfptr[53] = /*_.PROGN___V85*/ meltfptr[51];;
+ /*_.IF___V81*/ meltfptr[57] = /*_.PROGN___V89*/ meltfptr[55];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3384:/ clear");
- /*clear *//*_.IFCPP___V78*/ meltfptr[52] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3396:/ clear");
+ /*clear *//*_.IFCPP___V82*/ meltfptr[56] = 0;
/*^clear */
- /*clear *//*_.CONTAINER_VALUE__V82*/ meltfptr[54] = 0;
+ /*clear *//*_.CONTAINER_VALUE__V86*/ meltfptr[58] = 0;
/*^clear */
- /*clear *//*_#NULL__L22*/ meltfnum[14] = 0;
+ /*clear *//*_#NULL__L24*/ meltfnum[16] = 0;
/*^clear */
- /*clear *//*_.RETURN___V84*/ meltfptr[60] = 0;
+ /*clear *//*_.RETURN___V88*/ meltfptr[64] = 0;
/*^clear */
- /*clear *//*_.PROGN___V85*/ meltfptr[51] = 0;
+ /*clear *//*_.PROGN___V89*/ meltfptr[55] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V77*/ meltfptr[53] = NULL;;
+ /*_.IF___V81*/ meltfptr[57] = NULL;;
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3395:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3407:/ cppif.then");
/*^block */
/*anyblock */
{
- /*_#IS_A__L23*/ meltfnum[13] =
- melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V25*/ meltfptr[24]),
+ /*_#IS_A__L25*/ meltfnum[15] =
+ melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V29*/ meltfptr[28]),
(melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->
- tabval[11])));;
- MELT_LOCATION ("warmelt-macro.melt:3395:/ cond");
- /*cond */ if ( /*_#IS_A__L23*/ meltfnum[13]) /*then */
+ tabval[12])));;
+ MELT_LOCATION ("warmelt-macro.melt:3407:/ cond");
+ /*cond */ if ( /*_#IS_A__L25*/ meltfnum[15]) /*then */
{
/*^cond.then */
- /*_.IFELSE___V87*/ meltfptr[54] = ( /*nil */ NULL);;
+ /*_.IFELSE___V91*/ meltfptr[58] = ( /*nil */ NULL);;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3395:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3407:/ cond.else");
/*^block */
/*anyblock */
@@ -20905,11 +21159,11 @@ lab_endgetargs:;
melt_assert_failed (("check cla"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3395) ? (3395) : __LINE__, __FUNCTION__);
+ (3407) ? (3407) : __LINE__, __FUNCTION__);
;
}
;
- /*clear *//*_.IFELSE___V87*/ meltfptr[54] = 0;
+ /*clear *//*_.IFELSE___V91*/ meltfptr[58] = 0;
/*epilog */
}
;
@@ -20917,28 +21171,28 @@ lab_endgetargs:;
;
/*^compute */
- /*_.IFCPP___V86*/ meltfptr[52] = /*_.IFELSE___V87*/ meltfptr[54];;
+ /*_.IFCPP___V90*/ meltfptr[56] = /*_.IFELSE___V91*/ meltfptr[58];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3395:/ clear");
- /*clear *//*_#IS_A__L23*/ meltfnum[13] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3407:/ clear");
+ /*clear *//*_#IS_A__L25*/ meltfnum[15] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V87*/ meltfptr[54] = 0;
+ /*clear *//*_.IFELSE___V91*/ meltfptr[58] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V86*/ meltfptr[52] = ( /*nil */ NULL);
+ /*_.IFCPP___V90*/ meltfptr[56] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
- /*_.PAIR_TAIL__V88*/ meltfptr[60] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
- MELT_LOCATION ("warmelt-macro.melt:3396:/ compute");
- /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V89*/ meltfptr[51] =
- /*_.PAIR_TAIL__V88*/ meltfptr[60];;
- MELT_LOCATION ("warmelt-macro.melt:3397:/ loop");
+ /*_.PAIR_TAIL__V92*/ meltfptr[64] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));;
+ MELT_LOCATION ("warmelt-macro.melt:3408:/ compute");
+ /*_.CURPAIR__V26*/ meltfptr[25] = /*_.SETQ___V93*/ meltfptr[55] =
+ /*_.PAIR_TAIL__V92*/ meltfptr[64];;
+ MELT_LOCATION ("warmelt-macro.melt:3409:/ loop");
/*loop */
{
labloop_INSLOOP_2:; /*^loopbody */
@@ -20947,15 +21201,15 @@ lab_endgetargs:;
/*anyblock */
{
- /*_#IS_PAIR__L24*/ meltfnum[10] =
- (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21]))
+ /*_#IS_PAIR__L26*/ meltfnum[12] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25]))
== MELTOBMAG_PAIR);;
/*^compute */
- /*_#NOT__L25*/ meltfnum[14] =
- (!( /*_#IS_PAIR__L24*/ meltfnum[10]));;
- MELT_LOCATION ("warmelt-macro.melt:3398:/ cond");
- /*cond */ if ( /*_#NOT__L25*/ meltfnum[14]) /*then */
+ /*_#NOT__L27*/ meltfnum[16] =
+ (!( /*_#IS_PAIR__L26*/ meltfnum[12]));;
+ MELT_LOCATION ("warmelt-macro.melt:3410:/ cond");
+ /*cond */ if ( /*_#NOT__L27*/ meltfnum[16]) /*then */
{
/*^cond.then */
/*^block */
@@ -20966,7 +21220,7 @@ lab_endgetargs:;
/*^compute */
- /*_.INSLOOP__V91*/ meltfptr[90] = NULL;;
+ /*_.INSLOOP__V95*/ meltfptr[94] = NULL;;
/*^exit */
/*exit */
@@ -20979,20 +21233,20 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3399:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3411:/ quasiblock");
- /*_.CURFKW__V93*/ meltfptr[92] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ /*_.CURFKW__V97*/ meltfptr[96] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));;
/*^compute */
- /*_#IS_NOT_A__L26*/ meltfnum[13] =
+ /*_#IS_NOT_A__L28*/ meltfnum[15] =
!melt_is_instance_of ((melt_ptr_t)
- ( /*_.CURFKW__V93*/ meltfptr[92]),
+ ( /*_.CURFKW__V97*/ meltfptr[96]),
(melt_ptr_t) (( /*!CLASS_KEYWORD */
- meltfrout->tabval[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3400:/ cond");
- /*cond */ if ( /*_#IS_NOT_A__L26*/ meltfnum[13]) /*then */
+ meltfrout->tabval[16])));;
+ MELT_LOCATION ("warmelt-macro.melt:3412:/ cond");
+ /*cond */ if ( /*_#IS_NOT_A__L28*/ meltfnum[15]) /*then */
{
/*^cond.then */
/*^block */
@@ -21001,8 +21255,8 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3401:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
+ MELT_LOCATION ("warmelt-macro.melt:3413:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V24*/ meltfptr[23]),
("expecting keyword in DEFSELECTOR"),
(melt_ptr_t) 0);
}
@@ -21012,31 +21266,31 @@ lab_endgetargs:;
;
} /*noelse */
;
- /*_.PAIR_TAIL__V94*/ meltfptr[93] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
- MELT_LOCATION ("warmelt-macro.melt:3402:/ compute");
- /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V95*/ meltfptr[94] =
- /*_.PAIR_TAIL__V94*/ meltfptr[93];;
- MELT_LOCATION ("warmelt-macro.melt:3403:/ quasiblock");
+ /*_.PAIR_TAIL__V98*/ meltfptr[97] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));;
+ MELT_LOCATION ("warmelt-macro.melt:3414:/ compute");
+ /*_.CURPAIR__V26*/ meltfptr[25] = /*_.SETQ___V99*/ meltfptr[98] =
+ /*_.PAIR_TAIL__V98*/ meltfptr[97];;
+ MELT_LOCATION ("warmelt-macro.melt:3415:/ quasiblock");
- /*_.CUREXP__V97*/ meltfptr[96] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ /*_.CUREXP__V101*/ meltfptr[100] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));;
/*^compute */
- /*_#__L27*/ meltfnum[26] =
- (( /*_.CURFKW__V93*/ meltfptr[92]) ==
- (( /*!konst_16_OBJ_NUM */ meltfrout->tabval[16])));;
- MELT_LOCATION ("warmelt-macro.melt:3404:/ cond");
- /*cond */ if ( /*_#__L27*/ meltfnum[26]) /*then */
+ /*_#__L29*/ meltfnum[28] =
+ (( /*_.CURFKW__V97*/ meltfptr[96]) ==
+ (( /*!konst_17_OBJ_NUM */ meltfrout->tabval[17])));;
+ MELT_LOCATION ("warmelt-macro.melt:3416:/ cond");
+ /*cond */ if ( /*_#__L29*/ meltfnum[28]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3405:/ cond");
- /*cond */ if ( /*_.CUREXP__V97*/ meltfptr[96]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3417:/ cond");
+ /*cond */ if ( /*_.CUREXP__V101*/ meltfptr[100]) /*then */
{
/*^cond.then */
/*^block */
@@ -21047,7 +21301,7 @@ lab_endgetargs:;
{
/*^locexp */
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V20*/ meltfptr[19]),
+ ( /*_.LOC__V24*/ meltfptr[23]),
("duplicate :obj_num in DEFSELECTOR"),
(melt_ptr_t) 0);
}
@@ -21057,23 +21311,23 @@ lab_endgetargs:;
;
} /*noelse */
;
- /*_#IS_A__L28*/ meltfnum[27] =
+ /*_#IS_A__L30*/ meltfnum[29] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.CUREXP__V97*/ meltfptr[96]),
+ ( /*_.CUREXP__V101*/ meltfptr[100]),
(melt_ptr_t) (( /*!CLASS_SEXPR */
meltfrout->tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:3407:/ cond");
- /*cond */ if ( /*_#IS_A__L28*/ meltfnum[27]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3419:/ cond");
+ /*cond */ if ( /*_#IS_A__L30*/ meltfnum[29]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3408:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3420:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -21081,55 +21335,58 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.MACROEXPAND_1__V100*/ meltfptr[99] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.MEXPANDER__V104*/ meltfptr[103] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->
- tabval[17])),
- (melt_ptr_t) ( /*_.CUREXP__V97*/
- meltfptr[96]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
- argtab, "", (union meltparam_un *) 0);
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.CUREXP__V101*/
+ meltfptr[100]),
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR
+ MELTBPARSTR_PTR ""), argtab, "",
+ (union meltparam_un *) 0);
}
;
- /*_.IFELSE___V99*/ meltfptr[98] =
- /*_.MACROEXPAND_1__V100*/ meltfptr[99];;
+ /*_.IFELSE___V103*/ meltfptr[102] =
+ /*_.MEXPANDER__V104*/ meltfptr[103];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3407:/ clear");
- /*clear *//*_.MACROEXPAND_1__V100*/ meltfptr[99] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3419:/ clear");
+ /*clear *//*_.MEXPANDER__V104*/ meltfptr[103] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IFELSE___V99*/ meltfptr[98] =
- /*_.CUREXP__V97*/ meltfptr[96];;
+ /*_.IFELSE___V103*/ meltfptr[102] =
+ /*_.CUREXP__V101*/ meltfptr[100];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3406:/ compute");
- /*_.OBJNUM__V16*/ meltfptr[15] =
- /*_.SETQ___V101*/ meltfptr[99] =
- /*_.IFELSE___V99*/ meltfptr[98];;
- MELT_LOCATION ("warmelt-macro.melt:3404:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3418:/ compute");
+ /*_.OBJNUM__V20*/ meltfptr[19] =
+ /*_.SETQ___V105*/ meltfptr[103] =
+ /*_.IFELSE___V103*/ meltfptr[102];;
+ MELT_LOCATION ("warmelt-macro.melt:3416:/ quasiblock");
- /*_.PROGN___V102*/ meltfptr[101] =
- /*_.SETQ___V101*/ meltfptr[99];;
+ /*_.PROGN___V106*/ meltfptr[105] =
+ /*_.SETQ___V105*/ meltfptr[103];;
/*^compute */
- /*_.IFELSE___V98*/ meltfptr[97] =
- /*_.PROGN___V102*/ meltfptr[101];;
+ /*_.IFELSE___V102*/ meltfptr[101] =
+ /*_.PROGN___V106*/ meltfptr[105];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3404:/ clear");
- /*clear *//*_#IS_A__L28*/ meltfnum[27] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3416:/ clear");
+ /*clear *//*_#IS_A__L30*/ meltfnum[29] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V99*/ meltfptr[98] = 0;
+ /*clear *//*_.IFELSE___V103*/ meltfptr[102] = 0;
/*^clear */
- /*clear *//*_.SETQ___V101*/ meltfptr[99] = 0;
+ /*clear *//*_.SETQ___V105*/ meltfptr[103] = 0;
/*^clear */
- /*clear *//*_.PROGN___V102*/ meltfptr[101] = 0;
+ /*clear *//*_.PROGN___V106*/ meltfptr[105] = 0;
}
;
}
@@ -21140,19 +21397,19 @@ lab_endgetargs:;
/*anyblock */
{
- /*_#__L29*/ meltfnum[27] =
- (( /*_.CURFKW__V93*/ meltfptr[92]) ==
+ /*_#__L31*/ meltfnum[29] =
+ (( /*_.CURFKW__V97*/ meltfptr[96]) ==
(( /*!konst_18_PREDEF */ meltfrout->tabval[18])));;
- MELT_LOCATION ("warmelt-macro.melt:3411:/ cond");
- /*cond */ if ( /*_#__L29*/ meltfnum[27]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3423:/ cond");
+ /*cond */ if ( /*_#__L31*/ meltfnum[29]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3412:/ cond");
- /*cond */ if ( /*_.CUREXP__V97*/ meltfptr[96]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3424:/ cond");
+ /*cond */ if ( /*_.CUREXP__V101*/ meltfptr[100]) /*then */
{
/*^cond.then */
/*^block */
@@ -21163,7 +21420,7 @@ lab_endgetargs:;
{
/*^locexp */
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V20*/ meltfptr[19]),
+ ( /*_.LOC__V24*/ meltfptr[23]),
("duplicate :predef in DEFSELECTOR"),
(melt_ptr_t) 0);
}
@@ -21173,24 +21430,25 @@ lab_endgetargs:;
;
} /*noelse */
;
- /*_#IS_A__L30*/ meltfnum[29] =
+ /*_#IS_A__L32*/ meltfnum[31] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.CUREXP__V97*/ meltfptr[96]),
+ ( /*_.CUREXP__V101*/
+ meltfptr[100]),
(melt_ptr_t) (( /*!CLASS_SEXPR */
meltfrout->
tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:3414:/ cond");
- /*cond */ if ( /*_#IS_A__L30*/ meltfnum[29]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3426:/ cond");
+ /*cond */ if ( /*_#IS_A__L32*/ meltfnum[31]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3415:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3427:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -21199,57 +21457,58 @@ lab_endgetargs:;
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/
meltfptr[3];
- /*_.MACROEXPAND_1__V105*/ meltfptr[101] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.MEXPANDER__V109*/ meltfptr[105] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->
- tabval[17])),
- (melt_ptr_t) ( /*_.CUREXP__V97*/
- meltfptr[96]),
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.CUREXP__V101*/
+ meltfptr[100]),
(MELTBPARSTR_PTR MELTBPARSTR_PTR
- ""), argtab, "",
+ MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
- /*_.IFELSE___V104*/ meltfptr[99] =
- /*_.MACROEXPAND_1__V105*/ meltfptr[101];;
+ /*_.IFELSE___V108*/ meltfptr[103] =
+ /*_.MEXPANDER__V109*/ meltfptr[105];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3414:/ clear");
- /*clear *//*_.MACROEXPAND_1__V105*/ meltfptr[101] =
- 0;
+ MELT_LOCATION ("warmelt-macro.melt:3426:/ clear");
+ /*clear *//*_.MEXPANDER__V109*/ meltfptr[105] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IFELSE___V104*/ meltfptr[99] =
- /*_.CUREXP__V97*/ meltfptr[96];;
+ /*_.IFELSE___V108*/ meltfptr[103] =
+ /*_.CUREXP__V101*/ meltfptr[100];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3413:/ compute");
- /*_.PREDEF__V15*/ meltfptr[11] =
- /*_.SETQ___V106*/ meltfptr[101] =
- /*_.IFELSE___V104*/ meltfptr[99];;
- MELT_LOCATION ("warmelt-macro.melt:3411:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3425:/ compute");
+ /*_.PREDEF__V19*/ meltfptr[15] =
+ /*_.SETQ___V110*/ meltfptr[105] =
+ /*_.IFELSE___V108*/ meltfptr[103];;
+ MELT_LOCATION ("warmelt-macro.melt:3423:/ quasiblock");
- /*_.PROGN___V107*/ meltfptr[106] =
- /*_.SETQ___V106*/ meltfptr[101];;
+ /*_.PROGN___V111*/ meltfptr[110] =
+ /*_.SETQ___V110*/ meltfptr[105];;
/*^compute */
- /*_.IFELSE___V103*/ meltfptr[98] =
- /*_.PROGN___V107*/ meltfptr[106];;
+ /*_.IFELSE___V107*/ meltfptr[102] =
+ /*_.PROGN___V111*/ meltfptr[110];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3411:/ clear");
- /*clear *//*_#IS_A__L30*/ meltfnum[29] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3423:/ clear");
+ /*clear *//*_#IS_A__L32*/ meltfnum[31] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V104*/ meltfptr[99] = 0;
+ /*clear *//*_.IFELSE___V108*/ meltfptr[103] = 0;
/*^clear */
- /*clear *//*_.SETQ___V106*/ meltfptr[101] = 0;
+ /*clear *//*_.SETQ___V110*/ meltfptr[105] = 0;
/*^clear */
- /*clear *//*_.PROGN___V107*/ meltfptr[106] = 0;
+ /*clear *//*_.PROGN___V111*/ meltfptr[110] = 0;
}
;
}
@@ -21260,19 +21519,19 @@ lab_endgetargs:;
/*anyblock */
{
- /*_#__L31*/ meltfnum[29] =
- (( /*_.CURFKW__V93*/ meltfptr[92]) ==
+ /*_#__L33*/ meltfnum[31] =
+ (( /*_.CURFKW__V97*/ meltfptr[96]) ==
(( /*!konst_19_DOC */ meltfrout->tabval[19])));;
- MELT_LOCATION ("warmelt-macro.melt:3418:/ cond");
- /*cond */ if ( /*_#__L31*/ meltfnum[29]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3430:/ cond");
+ /*cond */ if ( /*_#__L33*/ meltfnum[31]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3419:/ cond");
- /*cond */ if ( /*_.DOCV__V26*/ meltfptr[25]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3431:/ cond");
+ /*cond */ if ( /*_.DOCV__V30*/ meltfptr[29]) /*then */
{
/*^cond.then */
/*^block */
@@ -21283,8 +21542,8 @@ lab_endgetargs:;
{
/*^locexp */
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V20*/
- meltfptr[19]),
+ ( /*_.LOC__V24*/
+ meltfptr[23]),
("duplicate :doc in DEFSELECTOR"),
(melt_ptr_t) 0);
}
@@ -21294,26 +21553,26 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3420:/ compute");
- /*_.DOCV__V26*/ meltfptr[25] =
- /*_.SETQ___V109*/ meltfptr[101] =
- /*_.CUREXP__V97*/ meltfptr[96];;
+ MELT_LOCATION ("warmelt-macro.melt:3432:/ compute");
+ /*_.DOCV__V30*/ meltfptr[29] =
+ /*_.SETQ___V113*/ meltfptr[105] =
+ /*_.CUREXP__V101*/ meltfptr[100];;
MELT_LOCATION
- ("warmelt-macro.melt:3418:/ quasiblock");
+ ("warmelt-macro.melt:3430:/ quasiblock");
- /*_.PROGN___V110*/ meltfptr[106] =
- /*_.SETQ___V109*/ meltfptr[101];;
+ /*_.PROGN___V114*/ meltfptr[110] =
+ /*_.SETQ___V113*/ meltfptr[105];;
/*^compute */
- /*_.IFELSE___V108*/ meltfptr[99] =
- /*_.PROGN___V110*/ meltfptr[106];;
+ /*_.IFELSE___V112*/ meltfptr[103] =
+ /*_.PROGN___V114*/ meltfptr[110];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3418:/ clear");
- /*clear *//*_.SETQ___V109*/ meltfptr[101] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3430:/ clear");
+ /*clear *//*_.SETQ___V113*/ meltfptr[105] = 0;
/*^clear */
- /*clear *//*_.PROGN___V110*/ meltfptr[106] = 0;
+ /*clear *//*_.PROGN___V114*/ meltfptr[110] = 0;
}
;
}
@@ -21324,12 +21583,12 @@ lab_endgetargs:;
/*anyblock */
{
- /*_#__L32*/ meltfnum[31] =
- (( /*_.CURFKW__V93*/ meltfptr[92]) ==
+ /*_#__L34*/ meltfnum[33] =
+ (( /*_.CURFKW__V97*/ meltfptr[96]) ==
(( /*!konst_20_FORMALS */ meltfrout->
tabval[20])));;
- MELT_LOCATION ("warmelt-macro.melt:3422:/ cond");
- /*cond */ if ( /*_#__L32*/ meltfnum[31]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3434:/ cond");
+ /*cond */ if ( /*_#__L34*/ meltfnum[33]) /*then */
{
/*^cond.then */
/*^block */
@@ -21337,8 +21596,8 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:3423:/ cond");
- /*cond */ if ( /*_.FORMALS__V28*/ meltfptr[27]) /*then */
+ ("warmelt-macro.melt:3435:/ cond");
+ /*cond */ if ( /*_.FORMALS__V32*/ meltfptr[31]) /*then */
{
/*^cond.then */
/*^block */
@@ -21349,8 +21608,8 @@ lab_endgetargs:;
{
/*^locexp */
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V20*/
- meltfptr[19]),
+ ( /*_.LOC__V24*/
+ meltfptr[23]),
("duplicate :formals in DEFSELECTOR"),
(melt_ptr_t) 0);
}
@@ -21361,45 +21620,45 @@ lab_endgetargs:;
} /*noelse */
;
MELT_LOCATION
- ("warmelt-macro.melt:3427:/ apply");
+ ("warmelt-macro.melt:3439:/ apply");
/*apply */
{
union meltparam_un argtab[1];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
- (melt_ptr_t *) & /*_.CURFKW__V93*/
- meltfptr[92];
- /*_.LAMBDA_ARG_BINDINGS__V112*/
- meltfptr[106] =
+ (melt_ptr_t *) & /*_.CURFKW__V97*/
+ meltfptr[96];
+ /*_.LAMBDA_ARG_BINDINGS__V116*/
+ meltfptr[110] =
melt_apply ((meltclosure_ptr_t)
(( /*!LAMBDA_ARG_BINDINGS */
meltfrout->tabval[21])),
- (melt_ptr_t) ( /*_.CUREXP__V97*/ meltfptr[96]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
+ (melt_ptr_t) ( /*_.CUREXP__V101*/ meltfptr[100]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
}
;
/*^compute */
- /*_.FORMALS__V28*/ meltfptr[27] =
- /*_.SETQ___V113*/ meltfptr[112] =
- /*_.LAMBDA_ARG_BINDINGS__V112*/
- meltfptr[106];;
+ /*_.FORMALS__V32*/ meltfptr[31] =
+ /*_.SETQ___V117*/ meltfptr[116] =
+ /*_.LAMBDA_ARG_BINDINGS__V116*/
+ meltfptr[110];;
MELT_LOCATION
- ("warmelt-macro.melt:3428:/ quasiblock");
+ ("warmelt-macro.melt:3440:/ quasiblock");
- /*_.FIRSTF__V115*/ meltfptr[114] =
+ /*_.FIRSTF__V119*/ meltfptr[118] =
(melt_multiple_nth
((melt_ptr_t)
- ( /*_.FORMALS__V28*/ meltfptr[27]),
+ ( /*_.FORMALS__V32*/ meltfptr[31]),
(0)));;
/*^compute */
- /*_#NULL__L33*/ meltfnum[32] =
- (( /*_.FIRSTF__V115*/ meltfptr[114]) ==
+ /*_#NULL__L35*/ meltfnum[34] =
+ (( /*_.FIRSTF__V119*/ meltfptr[118]) ==
NULL);;
MELT_LOCATION
- ("warmelt-macro.melt:3430:/ cond");
- /*cond */ if ( /*_#NULL__L33*/ meltfnum[32]) /*then */
+ ("warmelt-macro.melt:3442:/ cond");
+ /*cond */ if ( /*_#NULL__L35*/ meltfnum[34]) /*then */
{
/*^cond.then */
/*^block */
@@ -21411,16 +21670,16 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:3431:/ locexp");
+ ("warmelt-macro.melt:3443:/ locexp");
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V20*/
- meltfptr[19]),
+ ( /*_.LOC__V24*/
+ meltfptr[23]),
(":formals of DEFSELECTOR should have at least one value argument for the receiver"),
(melt_ptr_t) 0);
}
;
- /*clear *//*_.IFELSE___V116*/
- meltfptr[115] = 0;
+ /*clear *//*_.IFELSE___V120*/
+ meltfptr[119] = 0;
/*epilog */
}
;
@@ -21428,17 +21687,17 @@ lab_endgetargs:;
else
{
MELT_LOCATION
- ("warmelt-macro.melt:3430:/ cond.else");
+ ("warmelt-macro.melt:3442:/ cond.else");
/*^block */
/*anyblock */
{
MELT_LOCATION
- ("warmelt-macro.melt:3432:/ cond");
+ ("warmelt-macro.melt:3444:/ cond");
/*cond */ if (
/*ifisa */
- melt_is_instance_of ((melt_ptr_t) ( /*_.FIRSTF__V115*/ meltfptr[114]),
+ melt_is_instance_of ((melt_ptr_t) ( /*_.FIRSTF__V119*/ meltfptr[118]),
(melt_ptr_t) (( /*!CLASS_FORMAL_BINDING */ meltfrout->tabval[22])))
) /*then */
{
@@ -21446,29 +21705,29 @@ lab_endgetargs:;
/*^getslot */
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.FIRSTF__V115*/ meltfptr[114]), 1, "FBIND_TYPE");
- /*_.FBIND_TYPE__V117*/
- meltfptr[116] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.FIRSTF__V119*/ meltfptr[118]), 1, "FBIND_TYPE");
+ /*_.FBIND_TYPE__V121*/
+ meltfptr[120] = slot;
};
;
}
else
{ /*^cond.else */
- /*_.FBIND_TYPE__V117*/ meltfptr[116]
+ /*_.FBIND_TYPE__V121*/ meltfptr[120]
= NULL;;
}
;
/*^compute */
- /*_#__L34*/ meltfnum[33] =
- (( /*_.FBIND_TYPE__V117*/
- meltfptr[116]) !=
+ /*_#__L36*/ meltfnum[35] =
+ (( /*_.FBIND_TYPE__V121*/
+ meltfptr[120]) !=
(( /*!CTYPE_VALUE */ meltfrout->
tabval[23])));;
MELT_LOCATION
- ("warmelt-macro.melt:3432:/ cond");
- /*cond */ if ( /*_#__L34*/ meltfnum[33]) /*then */
+ ("warmelt-macro.melt:3444:/ cond");
+ /*cond */ if ( /*_#__L36*/ meltfnum[35]) /*then */
{
/*^cond.then */
/*^block */
@@ -21480,16 +21739,16 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:3433:/ locexp");
+ ("warmelt-macro.melt:3445:/ locexp");
melt_error_str ((melt_ptr_t)
- ( /*_.LOC__V20*/
- meltfptr[19]),
+ ( /*_.LOC__V24*/
+ meltfptr[23]),
("first :formals of DEFSELECTOR should be a :value"),
(melt_ptr_t) 0);
}
;
- /*clear *//*_.IFELSE___V118*/
- meltfptr[117] = 0;
+ /*clear *//*_.IFELSE___V122*/
+ meltfptr[121] = 0;
/*epilog */
}
;
@@ -21497,65 +21756,65 @@ lab_endgetargs:;
else
{
MELT_LOCATION
- ("warmelt-macro.melt:3432:/ cond.else");
+ ("warmelt-macro.melt:3444:/ cond.else");
- /*_.IFELSE___V118*/ meltfptr[117] =
+ /*_.IFELSE___V122*/ meltfptr[121] =
NULL;;
}
;
/*^compute */
- /*_.IFELSE___V116*/ meltfptr[115] =
- /*_.IFELSE___V118*/ meltfptr[117];;
+ /*_.IFELSE___V120*/ meltfptr[119] =
+ /*_.IFELSE___V122*/ meltfptr[121];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:3430:/ clear");
- /*clear *//*_.FBIND_TYPE__V117*/
- meltfptr[116] = 0;
+ ("warmelt-macro.melt:3442:/ clear");
+ /*clear *//*_.FBIND_TYPE__V121*/
+ meltfptr[120] = 0;
/*^clear */
- /*clear *//*_#__L34*/ meltfnum[33] = 0;
+ /*clear *//*_#__L36*/ meltfnum[35] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V118*/
- meltfptr[117] = 0;
+ /*clear *//*_.IFELSE___V122*/
+ meltfptr[121] = 0;
}
;
}
;
- /*_.LET___V114*/ meltfptr[113] =
- /*_.IFELSE___V116*/ meltfptr[115];;
+ /*_.LET___V118*/ meltfptr[117] =
+ /*_.IFELSE___V120*/ meltfptr[119];;
MELT_LOCATION
- ("warmelt-macro.melt:3428:/ clear");
- /*clear *//*_.FIRSTF__V115*/ meltfptr[114] =
+ ("warmelt-macro.melt:3440:/ clear");
+ /*clear *//*_.FIRSTF__V119*/ meltfptr[118] =
0;
/*^clear */
- /*clear *//*_#NULL__L33*/ meltfnum[32] = 0;
+ /*clear *//*_#NULL__L35*/ meltfnum[34] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V116*/ meltfptr[115] =
+ /*clear *//*_.IFELSE___V120*/ meltfptr[119] =
0;
MELT_LOCATION
- ("warmelt-macro.melt:3422:/ quasiblock");
+ ("warmelt-macro.melt:3434:/ quasiblock");
- /*_.PROGN___V119*/ meltfptr[116] =
- /*_.LET___V114*/ meltfptr[113];;
+ /*_.PROGN___V123*/ meltfptr[120] =
+ /*_.LET___V118*/ meltfptr[117];;
/*^compute */
- /*_.IFELSE___V111*/ meltfptr[101] =
- /*_.PROGN___V119*/ meltfptr[116];;
+ /*_.IFELSE___V115*/ meltfptr[105] =
+ /*_.PROGN___V123*/ meltfptr[120];;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:3422:/ clear");
- /*clear *//*_.LAMBDA_ARG_BINDINGS__V112*/
- meltfptr[106] = 0;
+ ("warmelt-macro.melt:3434:/ clear");
+ /*clear *//*_.LAMBDA_ARG_BINDINGS__V116*/
+ meltfptr[110] = 0;
/*^clear */
- /*clear *//*_.SETQ___V113*/ meltfptr[112] = 0;
+ /*clear *//*_.SETQ___V117*/ meltfptr[116] = 0;
/*^clear */
- /*clear *//*_.LET___V114*/ meltfptr[113] = 0;
+ /*clear *//*_.LET___V118*/ meltfptr[117] = 0;
/*^clear */
- /*clear *//*_.PROGN___V119*/ meltfptr[116] =
+ /*clear *//*_.PROGN___V123*/ meltfptr[120] =
0;
}
;
@@ -21568,26 +21827,26 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:3436:/ quasiblock");
+ ("warmelt-macro.melt:3448:/ quasiblock");
/*^apply */
/*apply */
{
- union meltparam_un argtab[5];
+ union meltparam_un argtab[6];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
- (melt_ptr_t *) & /*_.LOC__V20*/
- meltfptr[19];
+ (melt_ptr_t *) & /*_.LOC__V24*/
+ meltfptr[23];
/*^apply.arg */
argtab[1].meltbp_aptr =
- (melt_ptr_t *) & /*_.CURFKW__V93*/
- meltfptr[92];
+ (melt_ptr_t *) & /*_.CURFKW__V97*/
+ meltfptr[96];
/*^apply.arg */
argtab[2].meltbp_aptr =
- (melt_ptr_t *) & /*_.CUREXP__V97*/
- meltfptr[96];
+ (melt_ptr_t *) & /*_.CUREXP__V101*/
+ meltfptr[100];
/*^apply.arg */
argtab[3].meltbp_aptr =
(melt_ptr_t *) & /*_.ENV__V3*/
@@ -21596,14 +21855,18 @@ lab_endgetargs:;
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/
meltfptr[3];
- /*_.FLDA__V120*/ meltfptr[117] =
+ /*^apply.arg */
+ argtab[5].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/
+ meltfptr[4];
+ /*_.FLDA__V124*/ meltfptr[121] =
melt_apply ((meltclosure_ptr_t)
- (( /*!PARSE_FIELD_ASSIGNMENT */ meltfrout->tabval[24])), (melt_ptr_t) ( /*_.CLA__V25*/ meltfptr[24]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
+ (( /*!PARSE_FIELD_ASSIGNMENT */ meltfrout->tabval[24])), (melt_ptr_t) ( /*_.CLA__V29*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
}
;
MELT_LOCATION
- ("warmelt-macro.melt:3437:/ cond");
- /*cond */ if ( /*_.FLDA__V120*/ meltfptr[117]) /*then */
+ ("warmelt-macro.melt:3449:/ cond");
+ /*cond */ if ( /*_.FLDA__V124*/ meltfptr[121]) /*then */
{
/*^cond.then */
/*^block */
@@ -21613,9 +21876,9 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:3438:/ locexp");
+ ("warmelt-macro.melt:3450:/ locexp");
meltgc_append_list ((melt_ptr_t)
- ( /*_.FLDLIST__V50*/ meltfptr[49]), (melt_ptr_t) ( /*_.FLDA__V120*/ meltfptr[117]));
+ ( /*_.FLDLIST__V54*/ meltfptr[53]), (melt_ptr_t) ( /*_.FLDA__V124*/ meltfptr[121]));
}
;
/*epilog */
@@ -21625,10 +21888,10 @@ lab_endgetargs:;
;
MELT_LOCATION
- ("warmelt-macro.melt:3436:/ clear");
- /*clear *//*_.FLDA__V120*/ meltfptr[117] = 0;
+ ("warmelt-macro.melt:3448:/ clear");
+ /*clear *//*_.FLDA__V124*/ meltfptr[121] = 0;
MELT_LOCATION
- ("warmelt-macro.melt:3435:/ quasiblock");
+ ("warmelt-macro.melt:3447:/ quasiblock");
/*epilog */
@@ -21636,89 +21899,89 @@ lab_endgetargs:;
;
}
;
- /*_.IFELSE___V108*/ meltfptr[99] =
- /*_.IFELSE___V111*/ meltfptr[101];;
+ /*_.IFELSE___V112*/ meltfptr[103] =
+ /*_.IFELSE___V115*/ meltfptr[105];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3418:/ clear");
- /*clear *//*_#__L32*/ meltfnum[31] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3430:/ clear");
+ /*clear *//*_#__L34*/ meltfnum[33] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V111*/ meltfptr[101] = 0;
+ /*clear *//*_.IFELSE___V115*/ meltfptr[105] = 0;
}
;
}
;
- /*_.IFELSE___V103*/ meltfptr[98] =
- /*_.IFELSE___V108*/ meltfptr[99];;
+ /*_.IFELSE___V107*/ meltfptr[102] =
+ /*_.IFELSE___V112*/ meltfptr[103];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3411:/ clear");
- /*clear *//*_#__L31*/ meltfnum[29] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3423:/ clear");
+ /*clear *//*_#__L33*/ meltfnum[31] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V108*/ meltfptr[99] = 0;
+ /*clear *//*_.IFELSE___V112*/ meltfptr[103] = 0;
}
;
}
;
- /*_.IFELSE___V98*/ meltfptr[97] =
- /*_.IFELSE___V103*/ meltfptr[98];;
+ /*_.IFELSE___V102*/ meltfptr[101] =
+ /*_.IFELSE___V107*/ meltfptr[102];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3404:/ clear");
- /*clear *//*_#__L29*/ meltfnum[27] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3416:/ clear");
+ /*clear *//*_#__L31*/ meltfnum[29] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V103*/ meltfptr[98] = 0;
+ /*clear *//*_.IFELSE___V107*/ meltfptr[102] = 0;
}
;
}
;
- /*_.LET___V96*/ meltfptr[95] = /*_.IFELSE___V98*/ meltfptr[97];;
+ /*_.LET___V100*/ meltfptr[99] = /*_.IFELSE___V102*/ meltfptr[101];;
- MELT_LOCATION ("warmelt-macro.melt:3403:/ clear");
- /*clear *//*_.CUREXP__V97*/ meltfptr[96] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3415:/ clear");
+ /*clear *//*_.CUREXP__V101*/ meltfptr[100] = 0;
/*^clear */
- /*clear *//*_#__L27*/ meltfnum[26] = 0;
+ /*clear *//*_#__L29*/ meltfnum[28] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V98*/ meltfptr[97] = 0;
- /*_.PAIR_TAIL__V121*/ meltfptr[114] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
- MELT_LOCATION ("warmelt-macro.melt:3441:/ compute");
- /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V122*/ meltfptr[115] =
- /*_.PAIR_TAIL__V121*/ meltfptr[114];;
- /*_.LET___V92*/ meltfptr[91] = /*_.SETQ___V122*/ meltfptr[115];;
-
- MELT_LOCATION ("warmelt-macro.melt:3399:/ clear");
- /*clear *//*_.CURFKW__V93*/ meltfptr[92] = 0;
+ /*clear *//*_.IFELSE___V102*/ meltfptr[101] = 0;
+ /*_.PAIR_TAIL__V125*/ meltfptr[118] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V26*/ meltfptr[25])));;
+ MELT_LOCATION ("warmelt-macro.melt:3453:/ compute");
+ /*_.CURPAIR__V26*/ meltfptr[25] = /*_.SETQ___V126*/ meltfptr[119] =
+ /*_.PAIR_TAIL__V125*/ meltfptr[118];;
+ /*_.LET___V96*/ meltfptr[95] = /*_.SETQ___V126*/ meltfptr[119];;
+
+ MELT_LOCATION ("warmelt-macro.melt:3411:/ clear");
+ /*clear *//*_.CURFKW__V97*/ meltfptr[96] = 0;
/*^clear */
- /*clear *//*_#IS_NOT_A__L26*/ meltfnum[13] = 0;
+ /*clear *//*_#IS_NOT_A__L28*/ meltfnum[15] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V94*/ meltfptr[93] = 0;
+ /*clear *//*_.PAIR_TAIL__V98*/ meltfptr[97] = 0;
/*^clear */
- /*clear *//*_.SETQ___V95*/ meltfptr[94] = 0;
+ /*clear *//*_.SETQ___V99*/ meltfptr[98] = 0;
/*^clear */
- /*clear *//*_.LET___V96*/ meltfptr[95] = 0;
+ /*clear *//*_.LET___V100*/ meltfptr[99] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V121*/ meltfptr[114] = 0;
+ /*clear *//*_.PAIR_TAIL__V125*/ meltfptr[118] = 0;
/*^clear */
- /*clear *//*_.SETQ___V122*/ meltfptr[115] = 0;
+ /*clear *//*_.SETQ___V126*/ meltfptr[119] = 0;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3397:/ clear");
- /*clear *//*_#IS_PAIR__L24*/ meltfnum[10] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3409:/ clear");
+ /*clear *//*_#IS_PAIR__L26*/ meltfnum[12] = 0;
/*^clear */
- /*clear *//*_#NOT__L25*/ meltfnum[14] = 0;
+ /*clear *//*_#NOT__L27*/ meltfnum[16] = 0;
/*^clear */
- /*clear *//*_.LET___V92*/ meltfptr[91] = 0;
+ /*clear *//*_.LET___V96*/ meltfptr[95] = 0;
}
;
;
goto labloop_INSLOOP_2;
labexit_INSLOOP_2:; /*^loopepilog */
/*loopepilog */
- /*_.FOREVER___V90*/ meltfptr[54] = /*_.INSLOOP__V91*/ meltfptr[90];;
+ /*_.FOREVER___V94*/ meltfptr[58] = /*_.INSLOOP__V95*/ meltfptr[94];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3443:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3455:/ quasiblock");
/*^apply */
@@ -21729,15 +21992,15 @@ lab_endgetargs:;
/*^apply.arg */
argtab[0].meltbp_aptr =
(melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[26]);
- /*_.FASTUP__V124*/ meltfptr[112] =
+ /*_.FASTUP__V128*/ meltfptr[116] =
melt_apply ((meltclosure_ptr_t)
(( /*!LIST_TO_MULTIPLE */ meltfrout->tabval[25])),
- (melt_ptr_t) ( /*_.FLDLIST__V50*/ meltfptr[49]),
+ (melt_ptr_t) ( /*_.FLDLIST__V54*/ meltfptr[53]),
(MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3444:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3456:/ quasiblock");
/*^rawallocobj */
@@ -21748,7 +22011,7 @@ lab_endgetargs:;
(melt_ptr_t) (( /*!CLASS_SOURCE_DEFSELECTOR */
meltfrout->tabval[27])), (10),
"CLASS_SOURCE_DEFSELECTOR");
- /*_.INST__V126*/ meltfptr[116] =
+ /*_.INST__V130*/ meltfptr[120] =
newobj;
};
;
@@ -21756,84 +22019,84 @@ lab_endgetargs:;
/*putslot */
melt_assertmsg ("putslot checkobj @LOCA_LOCATION",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V126*/ meltfptr[116])) ==
+ ( /*_.INST__V130*/ meltfptr[120])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V126*/ meltfptr[116]), (1),
- ( /*_.LOC__V20*/ meltfptr[19]), "LOCA_LOCATION");
+ melt_putfield_object (( /*_.INST__V130*/ meltfptr[120]), (1),
+ ( /*_.LOC__V24*/ meltfptr[23]), "LOCA_LOCATION");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SDEF_NAME",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V126*/ meltfptr[116])) ==
+ ( /*_.INST__V130*/ meltfptr[120])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V126*/ meltfptr[116]), (2),
- ( /*_.SYMB__V23*/ meltfptr[22]), "SDEF_NAME");
+ melt_putfield_object (( /*_.INST__V130*/ meltfptr[120]), (2),
+ ( /*_.SYMB__V27*/ meltfptr[26]), "SDEF_NAME");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SOBJ_PREDEF",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V126*/ meltfptr[116])) ==
+ ( /*_.INST__V130*/ meltfptr[120])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V126*/ meltfptr[116]), (4),
- ( /*_.PREDEF__V15*/ meltfptr[11]), "SOBJ_PREDEF");
+ melt_putfield_object (( /*_.INST__V130*/ meltfptr[120]), (4),
+ ( /*_.PREDEF__V19*/ meltfptr[15]), "SOBJ_PREDEF");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SINST_CLASS",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V126*/ meltfptr[116])) ==
+ ( /*_.INST__V130*/ meltfptr[120])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V126*/ meltfptr[116]), (5),
- ( /*_.CLA__V25*/ meltfptr[24]), "SINST_CLASS");
+ melt_putfield_object (( /*_.INST__V130*/ meltfptr[120]), (5),
+ ( /*_.CLA__V29*/ meltfptr[28]), "SINST_CLASS");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SINST_CLABIND",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V126*/ meltfptr[116])) ==
+ ( /*_.INST__V130*/ meltfptr[120])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V126*/ meltfptr[116]), (6),
- ( /*_.CLABIND__V27*/ meltfptr[26]),
+ melt_putfield_object (( /*_.INST__V130*/ meltfptr[120]), (6),
+ ( /*_.CLABIND__V31*/ meltfptr[30]),
"SINST_CLABIND");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SINST_OBJNUM",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V126*/ meltfptr[116])) ==
+ ( /*_.INST__V130*/ meltfptr[120])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V126*/ meltfptr[116]), (7),
- ( /*_.OBJNUM__V16*/ meltfptr[15]), "SINST_OBJNUM");
+ melt_putfield_object (( /*_.INST__V130*/ meltfptr[120]), (7),
+ ( /*_.OBJNUM__V20*/ meltfptr[19]), "SINST_OBJNUM");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SINST_FIELDS",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V126*/ meltfptr[116])) ==
+ ( /*_.INST__V130*/ meltfptr[120])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V126*/ meltfptr[116]), (8),
- ( /*_.FASTUP__V124*/ meltfptr[112]),
+ melt_putfield_object (( /*_.INST__V130*/ meltfptr[120]), (8),
+ ( /*_.FASTUP__V128*/ meltfptr[116]),
"SINST_FIELDS");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SDEFSEL_FORMALS",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V126*/ meltfptr[116])) ==
+ ( /*_.INST__V130*/ meltfptr[120])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V126*/ meltfptr[116]), (9),
- ( /*_.FORMALS__V28*/ meltfptr[27]),
+ melt_putfield_object (( /*_.INST__V130*/ meltfptr[120]), (9),
+ ( /*_.FORMALS__V32*/ meltfptr[31]),
"SDEFSEL_FORMALS");
;
- /*_.RES__V125*/ meltfptr[113] = /*_.INST__V126*/ meltfptr[116];;
- MELT_LOCATION ("warmelt-macro.melt:3455:/ cond");
+ /*_.RES__V129*/ meltfptr[117] = /*_.INST__V130*/ meltfptr[120];;
+ MELT_LOCATION ("warmelt-macro.melt:3467:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
- ( /*_.SELBIND__V36*/ meltfptr[35]),
- (melt_ptr_t) (( /*!CLASS_SELECTOR_BINDING */ meltfrout->tabval[4])))
+ ( /*_.SELBIND__V40*/ meltfptr[39]),
+ (melt_ptr_t) (( /*!CLASS_SELECTOR_BINDING */ meltfrout->tabval[5])))
) /*then */
{
/*^cond.then */
@@ -21845,120 +22108,120 @@ lab_endgetargs:;
/*putslot */
melt_assertmsg ("putslot checkobj @SBIND_SELECTORDEF",
melt_magic_discr ((melt_ptr_t)
- ( /*_.SELBIND__V36*/
- meltfptr[35])) ==
+ ( /*_.SELBIND__V40*/
+ meltfptr[39])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.SELBIND__V36*/ meltfptr[35]), (2),
- ( /*_.RES__V125*/ meltfptr[113]),
+ melt_putfield_object (( /*_.SELBIND__V40*/ meltfptr[39]), (2),
+ ( /*_.RES__V129*/ meltfptr[117]),
"SBIND_SELECTORDEF");
;
/*^touch */
- meltgc_touch ( /*_.SELBIND__V36*/ meltfptr[35]);
+ meltgc_touch ( /*_.SELBIND__V40*/ meltfptr[39]);
;
/*epilog */
}
;
} /*noelse */
;
- /*_.LET___V123*/ meltfptr[106] = /*_.RES__V125*/ meltfptr[113];;
+ /*_.LET___V127*/ meltfptr[110] = /*_.RES__V129*/ meltfptr[117];;
- MELT_LOCATION ("warmelt-macro.melt:3443:/ clear");
- /*clear *//*_.FASTUP__V124*/ meltfptr[112] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3455:/ clear");
+ /*clear *//*_.FASTUP__V128*/ meltfptr[116] = 0;
/*^clear */
- /*clear *//*_.RES__V125*/ meltfptr[113] = 0;
- /*_.LET___V48*/ meltfptr[44] = /*_.LET___V123*/ meltfptr[106];;
+ /*clear *//*_.RES__V129*/ meltfptr[117] = 0;
+ /*_.LET___V52*/ meltfptr[48] = /*_.LET___V127*/ meltfptr[110];;
- MELT_LOCATION ("warmelt-macro.melt:3361:/ clear");
- /*clear *//*_.BND__V49*/ meltfptr[45] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3373:/ clear");
+ /*clear *//*_.BND__V53*/ meltfptr[49] = 0;
/*^clear */
- /*clear *//*_.FLDLIST__V50*/ meltfptr[49] = 0;
+ /*clear *//*_.FLDLIST__V54*/ meltfptr[53] = 0;
/*^clear */
- /*clear *//*_#IS_A__L9*/ meltfnum[7] = 0;
+ /*clear *//*_#IS_A__L11*/ meltfnum[9] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V51*/ meltfptr[50] = 0;
+ /*clear *//*_.IFELSE___V55*/ meltfptr[54] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V73*/ meltfptr[68] = 0;
+ /*clear *//*_.IFCPP___V77*/ meltfptr[72] = 0;
/*^clear */
- /*clear *//*_#SUBCLASS_OR_EQ__L18*/ meltfnum[11] = 0;
+ /*clear *//*_#SUBCLASS_OR_EQ__L20*/ meltfnum[13] = 0;
/*^clear */
- /*clear *//*_#NOT__L19*/ meltfnum[6] = 0;
+ /*clear *//*_#NOT__L21*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_.IF___V77*/ meltfptr[53] = 0;
+ /*clear *//*_.IF___V81*/ meltfptr[57] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V86*/ meltfptr[52] = 0;
+ /*clear *//*_.IFCPP___V90*/ meltfptr[56] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V88*/ meltfptr[60] = 0;
+ /*clear *//*_.PAIR_TAIL__V92*/ meltfptr[64] = 0;
/*^clear */
- /*clear *//*_.SETQ___V89*/ meltfptr[51] = 0;
+ /*clear *//*_.SETQ___V93*/ meltfptr[55] = 0;
/*^clear */
- /*clear *//*_.FOREVER___V90*/ meltfptr[54] = 0;
+ /*clear *//*_.FOREVER___V94*/ meltfptr[58] = 0;
/*^clear */
- /*clear *//*_.LET___V123*/ meltfptr[106] = 0;
- /*_.LET___V34*/ meltfptr[33] = /*_.LET___V48*/ meltfptr[44];;
+ /*clear *//*_.LET___V127*/ meltfptr[110] = 0;
+ /*_.LET___V38*/ meltfptr[37] = /*_.LET___V52*/ meltfptr[48];;
- MELT_LOCATION ("warmelt-macro.melt:3346:/ clear");
- /*clear *//*_.NAM__V35*/ meltfptr[34] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3358:/ clear");
+ /*clear *//*_.NAM__V39*/ meltfptr[38] = 0;
/*^clear */
- /*clear *//*_.SELBIND__V36*/ meltfptr[35] = 0;
+ /*clear *//*_.SELBIND__V40*/ meltfptr[39] = 0;
/*^clear */
- /*clear *//*_#IS_NOT_A__L6*/ meltfnum[0] = 0;
+ /*clear *//*_#IS_NOT_A__L8*/ meltfnum[4] = 0;
/*^clear */
- /*clear *//*_.IF___V38*/ meltfptr[37] = 0;
+ /*clear *//*_.IF___V42*/ meltfptr[41] = 0;
/*^clear */
- /*clear *//*_.WARN_IF_REDEFINED__V41*/ meltfptr[38] = 0;
+ /*clear *//*_.WARN_IF_REDEFINED__V45*/ meltfptr[42] = 0;
/*^clear */
- /*clear *//*_.PUT_ENV__V42*/ meltfptr[39] = 0;
+ /*clear *//*_.PUT_ENV__V46*/ meltfptr[43] = 0;
/*^clear */
- /*clear *//*_.SETQ___V43*/ meltfptr[42] = 0;
+ /*clear *//*_.SETQ___V47*/ meltfptr[46] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V44*/ meltfptr[43] = 0;
+ /*clear *//*_.IFCPP___V48*/ meltfptr[47] = 0;
/*^clear */
- /*clear *//*_.LET___V48*/ meltfptr[44] = 0;
- /*_.LET___V14*/ meltfptr[10] = /*_.LET___V34*/ meltfptr[33];;
+ /*clear *//*_.LET___V52*/ meltfptr[48] = 0;
+ /*_.LET___V18*/ meltfptr[14] = /*_.LET___V38*/ meltfptr[37];;
- MELT_LOCATION ("warmelt-macro.melt:3327:/ clear");
- /*clear *//*_.PREDEF__V15*/ meltfptr[11] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3339:/ clear");
+ /*clear *//*_.PREDEF__V19*/ meltfptr[15] = 0;
/*^clear */
- /*clear *//*_.OBJNUM__V16*/ meltfptr[15] = 0;
+ /*clear *//*_.OBJNUM__V20*/ meltfptr[19] = 0;
/*^clear */
- /*clear *//*_.FIELDS__V17*/ meltfptr[16] = 0;
+ /*clear *//*_.FIELDS__V21*/ meltfptr[20] = 0;
/*^clear */
- /*clear *//*_.FIELDNAMS__V18*/ meltfptr[17] = 0;
+ /*clear *//*_.FIELDNAMS__V22*/ meltfptr[21] = 0;
/*^clear */
- /*clear *//*_.CONT__V19*/ meltfptr[18] = 0;
+ /*clear *//*_.CONT__V23*/ meltfptr[22] = 0;
/*^clear */
- /*clear *//*_.LOC__V20*/ meltfptr[19] = 0;
+ /*clear *//*_.LOC__V24*/ meltfptr[23] = 0;
/*^clear */
- /*clear *//*_.LIST_FIRST__V21*/ meltfptr[20] = 0;
+ /*clear *//*_.LIST_FIRST__V25*/ meltfptr[24] = 0;
/*^clear */
- /*clear *//*_.CURPAIR__V22*/ meltfptr[21] = 0;
+ /*clear *//*_.CURPAIR__V26*/ meltfptr[25] = 0;
/*^clear */
- /*clear *//*_.SYMB__V23*/ meltfptr[22] = 0;
+ /*clear *//*_.SYMB__V27*/ meltfptr[26] = 0;
/*^clear */
- /*clear *//*_.CLANAME__V24*/ meltfptr[23] = 0;
+ /*clear *//*_.CLANAME__V28*/ meltfptr[27] = 0;
/*^clear */
- /*clear *//*_.CLA__V25*/ meltfptr[24] = 0;
+ /*clear *//*_.CLA__V29*/ meltfptr[28] = 0;
/*^clear */
- /*clear *//*_.DOCV__V26*/ meltfptr[25] = 0;
+ /*clear *//*_.DOCV__V30*/ meltfptr[29] = 0;
/*^clear */
- /*clear *//*_.CLABIND__V27*/ meltfptr[26] = 0;
+ /*clear *//*_.CLABIND__V31*/ meltfptr[30] = 0;
/*^clear */
- /*clear *//*_.FORMALS__V28*/ meltfptr[27] = 0;
+ /*clear *//*_.FORMALS__V32*/ meltfptr[31] = 0;
/*^clear */
- /*clear *//*_#IS_NOT_A__L5*/ meltfnum[3] = 0;
+ /*clear *//*_#IS_NOT_A__L7*/ meltfnum[5] = 0;
/*^clear */
- /*clear *//*_.IF___V29*/ meltfptr[28] = 0;
+ /*clear *//*_.IF___V33*/ meltfptr[32] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V32*/ meltfptr[29] = 0;
+ /*clear *//*_.PAIR_TAIL__V36*/ meltfptr[33] = 0;
/*^clear */
- /*clear *//*_.SETQ___V33*/ meltfptr[30] = 0;
+ /*clear *//*_.SETQ___V37*/ meltfptr[34] = 0;
/*^clear */
- /*clear *//*_.LET___V34*/ meltfptr[33] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3323:/ quasiblock");
+ /*clear *//*_.LET___V38*/ meltfptr[37] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3333:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];;
- MELT_LOCATION ("warmelt-macro.melt:3323:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[14];;
+ MELT_LOCATION ("warmelt-macro.melt:3333:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -21970,7 +22233,13 @@ lab_endgetargs:;
/*^clear */
/*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0;
/*^clear */
- /*clear *//*_.LET___V14*/ meltfptr[10] = 0;
+ /*clear *//*_#NULL__L4*/ meltfnum[0] = 0;
+ /*^clear */
+ /*clear *//*_.IF___V12*/ meltfptr[10] = 0;
+ /*^clear */
+ /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0;
+ /*^clear */
+ /*clear *//*_.LET___V18*/ meltfptr[14] = 0;
}
;
@@ -22048,7 +22317,7 @@ meltrout_51_warmelt_macro_MEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3469:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3481:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -22089,7 +22358,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3470:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3482:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -22098,7 +22367,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:3470:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3482:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -22106,7 +22375,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3470:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3482:/ cond.else");
/*^block */
/*anyblock */
@@ -22120,7 +22389,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3470) ? (3470) : __LINE__, __FUNCTION__);
+ (3482) ? (3482) : __LINE__, __FUNCTION__);
;
}
;
@@ -22135,7 +22404,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3470:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3482:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -22148,7 +22417,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3471:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3483:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -22157,7 +22426,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:3471:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3483:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -22165,7 +22434,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3471:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3483:/ cond.else");
/*^block */
/*anyblock */
@@ -22179,7 +22448,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3471) ? (3471) : __LINE__, __FUNCTION__);
+ (3483) ? (3483) : __LINE__, __FUNCTION__);
;
}
;
@@ -22194,7 +22463,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3471:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3483:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -22205,14 +22474,14 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3472:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3484:/ quasiblock");
/*_.FIELDS__V11*/ meltfptr[10] = ( /*nil */ NULL);;
/*^compute */
/*_.FIELDNAMS__V12*/ meltfptr[11] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3474:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3486:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
@@ -22220,7 +22489,7 @@ lab_endgetargs:;
meltfptr[12] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3475:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3487:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
@@ -22246,7 +22515,7 @@ lab_endgetargs:;
/*_.CLABIND__V19*/ meltfptr[18] = ( /*nil */ NULL);;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3481:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3493:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -22269,7 +22538,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3481:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3493:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -22279,7 +22548,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3481:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3493:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -22289,7 +22558,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3481;
+ argtab[2].meltbp_long = 3493;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_instance start sexpr";
/*^apply.arg */
@@ -22309,7 +22578,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V22*/ meltfptr[21];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3481:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3493:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V22*/ meltfptr[21] = 0;
@@ -22322,7 +22591,7 @@ lab_endgetargs:;
/*_.IF___V21*/ meltfptr[20] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3481:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3493:/ quasiblock");
/*_.PROGN___V23*/ meltfptr[21] = /*_.IF___V21*/ meltfptr[20];;
@@ -22331,7 +22600,7 @@ lab_endgetargs:;
/*_.IFCPP___V20*/ meltfptr[19] = /*_.PROGN___V23*/ meltfptr[21];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3481:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3493:/ clear");
/*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V21*/ meltfptr[20] = 0;
@@ -22350,7 +22619,7 @@ lab_endgetargs:;
!melt_is_instance_of ((melt_ptr_t) ( /*_.CLANAME__V17*/ meltfptr[16]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
tabval[3])));;
- MELT_LOCATION ("warmelt-macro.melt:3482:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3494:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L5*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -22360,7 +22629,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3483:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3495:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]),
("missing class symbol for INSTANCE"),
(melt_ptr_t) 0);
@@ -22371,7 +22640,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3484:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3496:/ quasiblock");
/*^apply */
@@ -22399,7 +22668,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]),
(melt_ptr_t) (( /*!CLASS_CLASS_BINDING */
meltfrout->tabval[6])));;
- MELT_LOCATION ("warmelt-macro.melt:3488:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3500:/ cond");
/*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -22407,10 +22676,10 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3489:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3501:/ compute");
/*_.CLABIND__V19*/ meltfptr[18] = /*_.SETQ___V28*/ meltfptr[27] =
/*_.BND__V25*/ meltfptr[21];;
- MELT_LOCATION ("warmelt-macro.melt:3490:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3502:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]), 3, "CBIND_CLASS");
@@ -22421,7 +22690,7 @@ lab_endgetargs:;
/*^compute */
/*_.CLA__V18*/ meltfptr[17] = /*_.SETQ___V30*/ meltfptr[29] =
/*_.CBIND_CLASS__V29*/ meltfptr[28];;
- MELT_LOCATION ("warmelt-macro.melt:3488:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3500:/ quasiblock");
/*_.PROGN___V31*/ meltfptr[30] = /*_.SETQ___V30*/ meltfptr[29];;
@@ -22430,7 +22699,7 @@ lab_endgetargs:;
/*_.IFELSE___V27*/ meltfptr[26] = /*_.PROGN___V31*/ meltfptr[30];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3488:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3500:/ clear");
/*clear *//*_.SETQ___V28*/ meltfptr[27] = 0;
/*^clear */
/*clear *//*_.CBIND_CLASS__V29*/ meltfptr[28] = 0;
@@ -22452,7 +22721,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]),
(melt_ptr_t) (( /*!CLASS_VALUE_BINDING */
meltfrout->tabval[7])));;
- MELT_LOCATION ("warmelt-macro.melt:3492:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3504:/ cond");
/*cond */ if ( /*_#IS_A__L7*/ meltfnum[6]) /*then */
{
/*^cond.then */
@@ -22460,7 +22729,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3493:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3505:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]), 1, "VBIND_VALUE");
@@ -22479,7 +22748,7 @@ lab_endgetargs:;
/*_#IF___L8*/ meltfnum[7] = /*_#IS_A__L9*/ meltfnum[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3492:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3504:/ clear");
/*clear *//*_.VBIND_VALUE__V32*/ meltfptr[27] = 0;
/*^clear */
/*clear *//*_#IS_A__L9*/ meltfnum[8] = 0;
@@ -22492,7 +22761,7 @@ lab_endgetargs:;
/*_#IF___L8*/ meltfnum[7] = 0;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3492:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3504:/ cond");
/*cond */ if ( /*_#IF___L8*/ meltfnum[7]) /*then */
{
/*^cond.then */
@@ -22500,11 +22769,11 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3494:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3506:/ compute");
/*_.CLABIND__V19*/ meltfptr[18] =
/*_.SETQ___V34*/ meltfptr[29] =
/*_.BND__V25*/ meltfptr[21];;
- MELT_LOCATION ("warmelt-macro.melt:3495:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3507:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V25*/ meltfptr[21]), 1, "VBIND_VALUE");
@@ -22515,7 +22784,7 @@ lab_endgetargs:;
/*^compute */
/*_.CLA__V18*/ meltfptr[17] = /*_.SETQ___V36*/ meltfptr[27] =
/*_.VBIND_VALUE__V35*/ meltfptr[30];;
- MELT_LOCATION ("warmelt-macro.melt:3492:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3504:/ quasiblock");
/*_.PROGN___V37*/ meltfptr[36] =
@@ -22526,7 +22795,7 @@ lab_endgetargs:;
/*_.PROGN___V37*/ meltfptr[36];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3492:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3504:/ clear");
/*clear *//*_.SETQ___V34*/ meltfptr[29] = 0;
/*^clear */
/*clear *//*_.VBIND_VALUE__V35*/ meltfptr[30] = 0;
@@ -22544,7 +22813,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3499:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3511:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CLANAME__V17*/ meltfptr[16]), 1, "NAMED_NAME");
@@ -22554,21 +22823,21 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3498:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3510:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]),
("invalid class name for INSTANCE"),
(melt_ptr_t) ( /*_.NAMED_NAME__V38*/
meltfptr[29]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:3500:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3512:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3500:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3512:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3497:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3509:/ quasiblock");
/*_.PROGN___V40*/ meltfptr[27] =
@@ -22579,7 +22848,7 @@ lab_endgetargs:;
/*_.PROGN___V40*/ meltfptr[27];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3492:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3504:/ clear");
/*clear *//*_.NAMED_NAME__V38*/ meltfptr[29] = 0;
/*^clear */
/*clear *//*_.RETURN___V39*/ meltfptr[30] = 0;
@@ -22592,7 +22861,7 @@ lab_endgetargs:;
/*_.IFELSE___V27*/ meltfptr[26] = /*_.IFELSE___V33*/ meltfptr[28];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3488:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3500:/ clear");
/*clear *//*_#IS_A__L7*/ meltfnum[6] = 0;
/*^clear */
/*clear *//*_#IF___L8*/ meltfnum[7] = 0;
@@ -22604,7 +22873,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3502:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3514:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -22627,7 +22896,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3502:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3514:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -22637,7 +22906,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L11*/ meltfnum[6] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3502:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3514:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -22648,7 +22917,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3502;
+ argtab[2].meltbp_long = 3514;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_instance cla";
/*^apply.arg */
@@ -22668,7 +22937,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V43*/ meltfptr[30];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3502:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3514:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[6] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V43*/ meltfptr[30] = 0;
@@ -22681,7 +22950,7 @@ lab_endgetargs:;
/*_.IF___V42*/ meltfptr[29] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3502:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3514:/ quasiblock");
/*_.PROGN___V44*/ meltfptr[27] = /*_.IF___V42*/ meltfptr[29];;
@@ -22690,7 +22959,7 @@ lab_endgetargs:;
/*_.IFCPP___V41*/ meltfptr[36] = /*_.PROGN___V44*/ meltfptr[27];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3502:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3514:/ clear");
/*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0;
/*^clear */
/*clear *//*_.IF___V42*/ meltfptr[29] = 0;
@@ -22705,7 +22974,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3503:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3515:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -22714,7 +22983,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V18*/ meltfptr[17]),
(melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->
tabval[8])));;
- MELT_LOCATION ("warmelt-macro.melt:3503:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3515:/ cond");
/*cond */ if ( /*_#IS_A__L12*/ meltfnum[7]) /*then */
{
/*^cond.then */
@@ -22722,7 +22991,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3503:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3515:/ cond.else");
/*^block */
/*anyblock */
@@ -22736,7 +23005,7 @@ lab_endgetargs:;
melt_assert_failed (("check cla"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3503) ? (3503) : __LINE__, __FUNCTION__);
+ (3515) ? (3515) : __LINE__, __FUNCTION__);
;
}
;
@@ -22751,7 +23020,7 @@ lab_endgetargs:;
/*_.IFCPP___V45*/ meltfptr[28] = /*_.IFELSE___V46*/ meltfptr[30];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3503:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3515:/ clear");
/*clear *//*_#IS_A__L12*/ meltfnum[7] = 0;
/*^clear */
/*clear *//*_.IFELSE___V46*/ meltfptr[30] = 0;
@@ -22766,10 +23035,10 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V47*/ meltfptr[29] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3504:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3516:/ compute");
/*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V48*/ meltfptr[27] =
/*_.PAIR_TAIL__V47*/ meltfptr[29];;
- MELT_LOCATION ("warmelt-macro.melt:3505:/ loop");
+ MELT_LOCATION ("warmelt-macro.melt:3517:/ loop");
/*loop */
{
labloop_INSLOOP_3:; /*^loopbody */
@@ -22785,7 +23054,7 @@ lab_endgetargs:;
/*_#NOT__L14*/ meltfnum[8] =
(!( /*_#IS_PAIR__L13*/ meltfnum[6]));;
- MELT_LOCATION ("warmelt-macro.melt:3506:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3518:/ cond");
/*cond */ if ( /*_#NOT__L14*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -22810,7 +23079,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3507:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3519:/ quasiblock");
/*_.CURFKW__V51*/ meltfptr[50] =
@@ -22822,7 +23091,7 @@ lab_endgetargs:;
( /*_.CURFKW__V51*/ meltfptr[50]),
(melt_ptr_t) (( /*!CLASS_KEYWORD */
meltfrout->tabval[9])));;
- MELT_LOCATION ("warmelt-macro.melt:3508:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3520:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L15*/ meltfnum[7]) /*then */
{
/*^cond.then */
@@ -22832,7 +23101,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3509:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3521:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]),
("expecting keyword in INSTANCE"),
(melt_ptr_t) 0);
@@ -22845,21 +23114,21 @@ lab_endgetargs:;
;
/*_.PAIR_TAIL__V52*/ meltfptr[51] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3510:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3522:/ compute");
/*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V53*/ meltfptr[52] =
/*_.PAIR_TAIL__V52*/ meltfptr[51];;
- MELT_LOCATION ("warmelt-macro.melt:3511:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3523:/ quasiblock");
/*_.CUREXP__V54*/ meltfptr[53] =
(melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3512:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3524:/ quasiblock");
- /*^apply */
+ MELT_LOCATION ("warmelt-macro.melt:3525:/ apply");
/*apply */
{
- union meltparam_un argtab[5];
+ union meltparam_un argtab[6];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -22875,19 +23144,22 @@ lab_endgetargs:;
/*^apply.arg */
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
+ /*^apply.arg */
+ argtab[5].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
/*_.FLDA__V55*/ meltfptr[54] =
melt_apply ((meltclosure_ptr_t)
(( /*!PARSE_FIELD_ASSIGNMENT */ meltfrout->
tabval[10])),
(melt_ptr_t) ( /*_.CLA__V18*/ meltfptr[17]),
(MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
- MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab, "", (union meltparam_un *) 0);
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3513:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3526:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -22910,7 +23182,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3513:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3526:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[15]) /*then */
{
/*^cond.then */
@@ -22920,7 +23192,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3513:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3526:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -22931,7 +23203,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3513;
+ argtab[2].meltbp_long = 3526;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_instance flda";
/*^apply.arg */
@@ -22952,7 +23224,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V58*/ meltfptr[57];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3513:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3526:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V58*/ meltfptr[57] = 0;
@@ -22965,7 +23237,7 @@ lab_endgetargs:;
/*_.IF___V57*/ meltfptr[56] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3513:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3526:/ quasiblock");
/*_.PROGN___V59*/ meltfptr[57] = /*_.IF___V57*/ meltfptr[56];;
@@ -22974,7 +23246,7 @@ lab_endgetargs:;
/*_.IFCPP___V56*/ meltfptr[55] = /*_.PROGN___V59*/ meltfptr[57];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3513:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3526:/ clear");
/*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[15] = 0;
/*^clear */
/*clear *//*_.IF___V57*/ meltfptr[56] = 0;
@@ -22987,7 +23259,7 @@ lab_endgetargs:;
/*_.IFCPP___V56*/ meltfptr[55] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3514:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3527:/ cond");
/*cond */ if ( /*_.FLDA__V55*/ meltfptr[54]) /*then */
{
/*^cond.then */
@@ -22997,7 +23269,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3515:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3528:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.FLDLIST__V26*/ meltfptr[25]),
(melt_ptr_t) ( /*_.FLDA__V55*/
@@ -23010,13 +23282,13 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3514:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3527:/ cond.else");
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3517:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3530:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURFKW__V51*/ meltfptr[50]), 1, "NAMED_NAME");
@@ -23026,7 +23298,7 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3516:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3529:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]),
("bad field name in INSTANCE"),
(melt_ptr_t) ( /*_.NAMED_NAME__V60*/
@@ -23035,22 +23307,22 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3514:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3527:/ clear");
/*clear *//*_.NAMED_NAME__V60*/ meltfptr[56] = 0;
}
;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3512:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3524:/ clear");
/*clear *//*_.FLDA__V55*/ meltfptr[54] = 0;
/*^clear */
/*clear *//*_.IFCPP___V56*/ meltfptr[55] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3511:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3523:/ clear");
/*clear *//*_.CUREXP__V54*/ meltfptr[53] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3507:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3519:/ clear");
/*clear *//*_.CURFKW__V51*/ meltfptr[50] = 0;
/*^clear */
/*clear *//*_#IS_NOT_A__L15*/ meltfnum[7] = 0;
@@ -23060,12 +23332,12 @@ lab_endgetargs:;
/*clear *//*_.SETQ___V53*/ meltfptr[52] = 0;
/*_.PAIR_TAIL__V61*/ meltfptr[57] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3519:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3532:/ compute");
/*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V62*/ meltfptr[56] =
/*_.PAIR_TAIL__V61*/ meltfptr[57];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3505:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3517:/ clear");
/*clear *//*_#IS_PAIR__L13*/ meltfnum[6] = 0;
/*^clear */
/*clear *//*_#NOT__L14*/ meltfnum[8] = 0;
@@ -23082,7 +23354,7 @@ lab_endgetargs:;
/*_.FOREVER___V49*/ meltfptr[30] = /*_.INSLOOP__V50*/ meltfptr[49];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3521:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3534:/ quasiblock");
/*^apply */
@@ -23101,7 +23373,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3522:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3535:/ quasiblock");
/*^rawallocobj */
@@ -23158,13 +23430,13 @@ lab_endgetargs:;
/*_.LET___V63*/ meltfptr[54] = /*_.INST___V65*/ meltfptr[53];;
- MELT_LOCATION ("warmelt-macro.melt:3521:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3534:/ clear");
/*clear *//*_.FASTUP__V64*/ meltfptr[55] = 0;
/*^clear */
/*clear *//*_.INST___V65*/ meltfptr[53] = 0;
/*_.LET___V24*/ meltfptr[20] = /*_.LET___V63*/ meltfptr[54];;
- MELT_LOCATION ("warmelt-macro.melt:3484:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3496:/ clear");
/*clear *//*_.BND__V25*/ meltfptr[21] = 0;
/*^clear */
/*clear *//*_.FLDLIST__V26*/ meltfptr[25] = 0;
@@ -23186,7 +23458,7 @@ lab_endgetargs:;
/*clear *//*_.LET___V63*/ meltfptr[54] = 0;
/*_.LET___V10*/ meltfptr[8] = /*_.LET___V24*/ meltfptr[20];;
- MELT_LOCATION ("warmelt-macro.melt:3472:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3484:/ clear");
/*clear *//*_.FIELDS__V11*/ meltfptr[10] = 0;
/*^clear */
/*clear *//*_.FIELDNAMS__V12*/ meltfptr[11] = 0;
@@ -23210,11 +23482,11 @@ lab_endgetargs:;
/*clear *//*_#IS_NOT_A__L5*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.LET___V24*/ meltfptr[20] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3469:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3481:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];;
- MELT_LOCATION ("warmelt-macro.melt:3469:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3481:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -23274,10 +23546,10 @@ meltrout_52_warmelt_macro_MEXPAND_LOAD (meltclosure_ptr_t meltclosp_,
struct meltclosure_st *mcfr_clos;
struct excepth_melt_st *mcfr_exh;
struct melt_callframe_st *mcfr_prev;
-#define MELTFRAM_NBVARPTR 46
- void *mcfr_varptr[46];
-#define MELTFRAM_NBVARNUM 13
- long mcfr_varnum[13];
+#define MELTFRAM_NBVARPTR 50
+ void *mcfr_varptr[50];
+#define MELTFRAM_NBVARNUM 15
+ long mcfr_varnum[15];
/*others*/
long _spare_;
}
@@ -23288,13 +23560,13 @@ meltrout_52_warmelt_macro_MEXPAND_LOAD (meltclosure_ptr_t meltclosp_,
int ix = 0;
meltframptr_ = (void *) meltfirstargp_;
gt_ggc_mx_melt_un (meltframptr_->mcfr_clos);
- for (ix = 0; ix < 46; ix++)
+ for (ix = 0; ix < 50; ix++)
if (meltframptr_->mcfr_varptr[ix])
gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]);
return NULL;
} /*end markggc */ ;
memset (&meltfram__, 0, sizeof (meltfram__));
- meltfram__.mcfr_nbvar = 46;
+ meltfram__.mcfr_nbvar = 50;
meltfram__.mcfr_clos = meltclosp_;
meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe;
melt_topframe = (struct melt_callframe_st *) &meltfram__;
@@ -23302,7 +23574,7 @@ meltrout_52_warmelt_macro_MEXPAND_LOAD (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3537:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3550:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -23343,7 +23615,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3538:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3551:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -23366,7 +23638,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3538:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3551:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -23376,7 +23648,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3538:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3551:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -23386,7 +23658,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3538;
+ argtab[2].meltbp_long = 3551;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_load start sexpr";
/*^apply.arg */
@@ -23405,7 +23677,7 @@ lab_endgetargs:;
/*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3538:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3551:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0;
@@ -23418,7 +23690,7 @@ lab_endgetargs:;
/*_.IF___V7*/ meltfptr[6] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3538:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3551:/ quasiblock");
/*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];;
@@ -23427,7 +23699,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3538:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3551:/ clear");
/*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V7*/ meltfptr[6] = 0;
@@ -23442,7 +23714,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3539:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3552:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -23451,7 +23723,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:3539:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3552:/ cond");
/*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -23459,7 +23731,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3539:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3552:/ cond.else");
/*^block */
/*anyblock */
@@ -23473,7 +23745,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3539) ? (3539) : __LINE__, __FUNCTION__);
+ (3552) ? (3552) : __LINE__, __FUNCTION__);
;
}
;
@@ -23488,7 +23760,7 @@ lab_endgetargs:;
/*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3539:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3552:/ clear");
/*clear *//*_#IS_A__L3*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0;
@@ -23501,7 +23773,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3540:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3553:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -23510,7 +23782,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:3540:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3553:/ cond");
/*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -23518,7 +23790,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3540:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3553:/ cond.else");
/*^block */
/*anyblock */
@@ -23532,7 +23804,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3540) ? (3540) : __LINE__, __FUNCTION__);
+ (3553) ? (3553) : __LINE__, __FUNCTION__);
;
}
;
@@ -23547,7 +23819,7 @@ lab_endgetargs:;
/*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3540:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3553:/ clear");
/*clear *//*_#IS_A__L4*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0;
@@ -23558,41 +23830,128 @@ lab_endgetargs:;
/*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3541:/ quasiblock");
+
+#if MELT_HAVE_DEBUG
+ MELT_LOCATION ("warmelt-macro.melt:3554:/ cppif.then");
+ /*^block */
+ /*anyblock */
+ {
+
+ /*_#IS_OBJECT__L5*/ meltfnum[1] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) ==
+ MELTOBMAG_OBJECT);;
+ MELT_LOCATION ("warmelt-macro.melt:3554:/ cond");
+ /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[1]) /*then */
+ {
+ /*^cond.then */
+ /*_.IFELSE___V15*/ meltfptr[14] = ( /*nil */ NULL);;
+ }
+ else
+ {
+ MELT_LOCATION ("warmelt-macro.melt:3554:/ cond.else");
+
+ /*^block */
+ /*anyblock */
+ {
+
+
+
+
+ {
+ /*^locexp */
+ melt_assert_failed (("check modctx"),
+ ("warmelt-macro.melt")
+ ? ("warmelt-macro.melt") : __FILE__,
+ (3554) ? (3554) : __LINE__, __FUNCTION__);
+ ;
+ }
+ ;
+ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0;
+ /*epilog */
+ }
+ ;
+ }
+ ;
+ /*^compute */
+
+ /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:3554:/ clear");
+ /*clear *//*_#IS_OBJECT__L5*/ meltfnum[1] = 0;
+ /*^clear */
+ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0;
+ }
+
+#else /*MELT_HAVE_DEBUG */
+ /*^cppif.else */
+ /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL);
+#endif /*MELT_HAVE_DEBUG */
+ ;
+ /*^compute */
+
+ /*_#NULL__L6*/ meltfnum[0] =
+ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:3555:/ cond");
+ /*cond */ if ( /*_#NULL__L6*/ meltfnum[0]) /*then */
+ {
+ /*^cond.then */
+ /*^block */
+ /*anyblock */
+ {
+
+ /*^compute */
+ /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V17*/ meltfptr[16] =
+ ( /*!MACROEXPAND_1 */ meltfrout->tabval[3]);;
+ /*_.IF___V16*/ meltfptr[14] = /*_.SETQ___V17*/ meltfptr[16];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:3555:/ clear");
+ /*clear *//*_.SETQ___V17*/ meltfptr[16] = 0;
+ }
+ ;
+ }
+ else
+ { /*^cond.else */
+
+ /*_.IF___V16*/ meltfptr[14] = NULL;;
+ }
+ ;
+ MELT_LOCATION ("warmelt-macro.melt:3556:/ quasiblock");
/*^getslot */
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
- /*_.CONT__V15*/
- meltfptr[14] = slot;
+ /*_.CONT__V19*/
+ meltfptr[18] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3542:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3557:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
- /*_.LOC__V16*/
- meltfptr[15] = slot;
+ /*_.LOC__V20*/
+ meltfptr[19] = slot;
};
;
- /*_.LIST_FIRST__V17*/ meltfptr[16] =
- (melt_list_first ((melt_ptr_t) ( /*_.CONT__V15*/ meltfptr[14])));;
+ /*_.LIST_FIRST__V21*/ meltfptr[20] =
+ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V19*/ meltfptr[18])));;
/*^compute */
- /*_.CURPAIR__V18*/ meltfptr[17] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));;
+ /*_.CURPAIR__V22*/ meltfptr[21] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));;
/*^compute */
- /*_.FILNAM__V19*/ meltfptr[18] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
+ /*_.FILNAM__V23*/ meltfptr[22] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
/*^compute */
- /*_.PAIR_TAIL__V20*/ meltfptr[19] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:3546:/ cond");
- /*cond */ if ( /*_.PAIR_TAIL__V20*/ meltfptr[19]) /*then */
+ /*_.PAIR_TAIL__V24*/ meltfptr[23] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ MELT_LOCATION ("warmelt-macro.melt:3561:/ cond");
+ /*cond */ if ( /*_.PAIR_TAIL__V24*/ meltfptr[23]) /*then */
{
/*^cond.then */
/*^block */
@@ -23601,8 +23960,8 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3547:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
+ MELT_LOCATION ("warmelt-macro.melt:3562:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("LOAD expects one argument"), (melt_ptr_t) 0);
}
;
@@ -23611,19 +23970,19 @@ lab_endgetargs:;
;
} /*noelse */
;
- /*_#IS_A__L5*/ meltfnum[1] =
- melt_is_instance_of ((melt_ptr_t) ( /*_.FILNAM__V19*/ meltfptr[18]),
+ /*_#IS_A__L7*/ meltfnum[1] =
+ melt_is_instance_of ((melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22]),
(melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->
tabval[1])));;
- MELT_LOCATION ("warmelt-macro.melt:3548:/ cond");
- /*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3563:/ cond");
+ /*cond */ if ( /*_#IS_A__L7*/ meltfnum[1]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3549:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3564:/ apply");
/*apply */
{
union meltparam_un argtab[3];
@@ -23637,81 +23996,81 @@ lab_endgetargs:;
/*^apply.arg */
argtab[2].meltbp_aptr =
(melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
- /*_.MACROEXPAND_1__V22*/ meltfptr[21] =
+ /*_.MEXPANDER__V26*/ meltfptr[25] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[3])),
- (melt_ptr_t) ( /*_.FILNAM__V19*/ meltfptr[18]),
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22]),
(MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
""), argtab, "", (union meltparam_un *) 0);
}
;
/*^compute */
- /*_.FILNAM__V19*/ meltfptr[18] = /*_.SETQ___V23*/ meltfptr[22] =
- /*_.MACROEXPAND_1__V22*/ meltfptr[21];;
- /*_.IF___V21*/ meltfptr[20] = /*_.SETQ___V23*/ meltfptr[22];;
+ /*_.FILNAM__V23*/ meltfptr[22] = /*_.SETQ___V27*/ meltfptr[26] =
+ /*_.MEXPANDER__V26*/ meltfptr[25];;
+ /*_.IF___V25*/ meltfptr[24] = /*_.SETQ___V27*/ meltfptr[26];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3548:/ clear");
- /*clear *//*_.MACROEXPAND_1__V22*/ meltfptr[21] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3563:/ clear");
+ /*clear *//*_.MEXPANDER__V26*/ meltfptr[25] = 0;
/*^clear */
- /*clear *//*_.SETQ___V23*/ meltfptr[22] = 0;
+ /*clear *//*_.SETQ___V27*/ meltfptr[26] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V21*/ meltfptr[20] = NULL;;
+ /*_.IF___V25*/ meltfptr[24] = NULL;;
}
;
/*^compute */
- /*_#IS_A__L6*/ meltfnum[0] =
- melt_is_instance_of ((melt_ptr_t) ( /*_.FILNAM__V19*/ meltfptr[18]),
+ /*_#IS_A__L8*/ meltfnum[7] =
+ melt_is_instance_of ((melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22]),
(melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout->
tabval[4])));;
- MELT_LOCATION ("warmelt-macro.melt:3550:/ cond");
- /*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3565:/ cond");
+ /*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3551:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3566:/ getslot");
{
melt_ptr_t slot = 0;
- melt_object_get_field (slot, (melt_ptr_t) ( /*_.FILNAM__V19*/ meltfptr[18]), 1, "NAMED_NAME");
- /*_.NAMED_NAME__V25*/
- meltfptr[22] = slot;
+ melt_object_get_field (slot, (melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22]), 1, "NAMED_NAME");
+ /*_.NAMED_NAME__V29*/
+ meltfptr[26] = slot;
};
;
/*^compute */
- /*_.FILNAM__V19*/ meltfptr[18] = /*_.SETQ___V26*/ meltfptr[25] =
- /*_.NAMED_NAME__V25*/ meltfptr[22];;
- /*_.IF___V24*/ meltfptr[21] = /*_.SETQ___V26*/ meltfptr[25];;
+ /*_.FILNAM__V23*/ meltfptr[22] = /*_.SETQ___V30*/ meltfptr[29] =
+ /*_.NAMED_NAME__V29*/ meltfptr[26];;
+ /*_.IF___V28*/ meltfptr[25] = /*_.SETQ___V30*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3550:/ clear");
- /*clear *//*_.NAMED_NAME__V25*/ meltfptr[22] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3565:/ clear");
+ /*clear *//*_.NAMED_NAME__V29*/ meltfptr[26] = 0;
/*^clear */
- /*clear *//*_.SETQ___V26*/ meltfptr[25] = 0;
+ /*clear *//*_.SETQ___V30*/ meltfptr[29] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V24*/ meltfptr[21] = NULL;;
+ /*_.IF___V28*/ meltfptr[25] = NULL;;
}
;
/*^compute */
- /*_#IS_STRING__L7*/ meltfnum[6] =
- (melt_magic_discr ((melt_ptr_t) ( /*_.FILNAM__V19*/ meltfptr[18])) ==
+ /*_#IS_STRING__L9*/ meltfnum[8] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22])) ==
MELTOBMAG_STRING);;
- MELT_LOCATION ("warmelt-macro.melt:3553:/ cond");
- /*cond */ if ( /*_#IS_STRING__L7*/ meltfnum[6]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3568:/ cond");
+ /*cond */ if ( /*_#IS_STRING__L9*/ meltfnum[8]) /*then */
{
/*^cond.then */
/*^block */
@@ -23720,22 +24079,22 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3554:/ locexp");
- melt_inform_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
+ MELT_LOCATION ("warmelt-macro.melt:3569:/ locexp");
+ melt_inform_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("MELT loading file "),
- (melt_ptr_t) ( /*_.FILNAM__V19*/ meltfptr[18]));
+ (melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:3555:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3570:/ quasiblock");
- /*_.CUREAD__V29*/ meltfptr[28] =
+ /*_.CUREAD__V33*/ meltfptr[32] =
(meltgc_read_file
(melt_string_str
- ((melt_ptr_t) ( /*_.FILNAM__V19*/ meltfptr[18])), (char *) 0));;
+ ((melt_ptr_t) ( /*_.FILNAM__V23*/ meltfptr[22])), (char *) 0));;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3556:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3571:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -23750,7 +24109,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L8*/ meltfnum[7] =
+ /*_#MELT_NEED_DBG__L10*/ meltfnum[9] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -23758,34 +24117,34 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3556:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3571:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[9]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] =
+ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3556:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3571:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8];
+ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3556;
+ argtab[2].meltbp_long = 3571;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_load curead";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.CUREAD__V29*/ meltfptr[28];
- /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] =
+ (melt_ptr_t *) & /*_.CUREAD__V33*/ meltfptr[32];
+ /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
tabval[0])),
@@ -23796,46 +24155,46 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V31*/ meltfptr[30] =
- /*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];;
+ /*_.IF___V35*/ meltfptr[34] =
+ /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3556:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3571:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V31*/ meltfptr[30] = NULL;;
+ /*_.IF___V35*/ meltfptr[34] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3556:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3571:/ quasiblock");
- /*_.PROGN___V33*/ meltfptr[31] = /*_.IF___V31*/ meltfptr[30];;
+ /*_.PROGN___V37*/ meltfptr[35] = /*_.IF___V35*/ meltfptr[34];;
/*^compute */
- /*_.IFCPP___V30*/ meltfptr[29] = /*_.PROGN___V33*/ meltfptr[31];;
+ /*_.IFCPP___V34*/ meltfptr[33] = /*_.PROGN___V37*/ meltfptr[35];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3556:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3571:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[9] = 0;
/*^clear */
- /*clear *//*_.IF___V31*/ meltfptr[30] = 0;
+ /*clear *//*_.IF___V35*/ meltfptr[34] = 0;
/*^clear */
- /*clear *//*_.PROGN___V33*/ meltfptr[31] = 0;
+ /*clear *//*_.PROGN___V37*/ meltfptr[35] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V30*/ meltfptr[29] = ( /*nil */ NULL);
+ /*_.IFCPP___V34*/ meltfptr[33] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3557:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3572:/ quasiblock");
/*^apply */
@@ -23852,16 +24211,16 @@ lab_endgetargs:;
/*^apply.arg */
argtab[2].meltbp_aptr =
(melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
- /*_.EXPLIST__V35*/ meltfptr[31] =
+ /*_.EXPLIST__V39*/ meltfptr[35] =
melt_apply ((meltclosure_ptr_t)
(( /*!MACROEXPAND_TOPLEVEL_LIST */ meltfrout->
tabval[5])),
- (melt_ptr_t) ( /*_.CUREAD__V29*/ meltfptr[28]),
+ (melt_ptr_t) ( /*_.CUREAD__V33*/ meltfptr[32]),
(MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
""), argtab, "", (union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3558:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3573:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -23869,17 +24228,17 @@ lab_endgetargs:;
/*^apply.arg */
argtab[0].meltbp_aptr =
(melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[7]);
- /*_.EXPTUPLE__V36*/ meltfptr[35] =
+ /*_.EXPTUPLE__V40*/ meltfptr[39] =
melt_apply ((meltclosure_ptr_t)
(( /*!LIST_TO_MULTIPLE */ meltfrout->tabval[6])),
- (melt_ptr_t) ( /*_.EXPLIST__V35*/ meltfptr[31]),
+ (melt_ptr_t) ( /*_.EXPLIST__V39*/ meltfptr[35]),
(MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3560:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3575:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -23894,7 +24253,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L10*/ meltfnum[8] =
+ /*_#MELT_NEED_DBG__L12*/ meltfnum[10] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -23902,34 +24261,34 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3560:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3575:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[7] =
+ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[9] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3560:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3575:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[7];
+ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[9];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3560;
+ argtab[2].meltbp_long = 3575;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_load return exptuple";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.EXPTUPLE__V36*/ meltfptr[35];
- /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] =
+ (melt_ptr_t *) & /*_.EXPTUPLE__V40*/ meltfptr[39];
+ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
tabval[0])),
@@ -23940,83 +24299,83 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V38*/ meltfptr[37] =
- /*_.MELT_DEBUG_FUN__V39*/ meltfptr[38];;
+ /*_.IF___V42*/ meltfptr[41] =
+ /*_.MELT_DEBUG_FUN__V43*/ meltfptr[42];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3560:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[7] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3575:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[9] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V39*/ meltfptr[38] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V43*/ meltfptr[42] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V38*/ meltfptr[37] = NULL;;
+ /*_.IF___V42*/ meltfptr[41] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3560:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3575:/ quasiblock");
- /*_.PROGN___V40*/ meltfptr[38] = /*_.IF___V38*/ meltfptr[37];;
+ /*_.PROGN___V44*/ meltfptr[42] = /*_.IF___V42*/ meltfptr[41];;
/*^compute */
- /*_.IFCPP___V37*/ meltfptr[36] = /*_.PROGN___V40*/ meltfptr[38];;
+ /*_.IFCPP___V41*/ meltfptr[40] = /*_.PROGN___V44*/ meltfptr[42];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3560:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3575:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.IF___V38*/ meltfptr[37] = 0;
+ /*clear *//*_.IF___V42*/ meltfptr[41] = 0;
/*^clear */
- /*clear *//*_.PROGN___V40*/ meltfptr[38] = 0;
+ /*clear *//*_.PROGN___V44*/ meltfptr[42] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V37*/ meltfptr[36] = ( /*nil */ NULL);
+ /*_.IFCPP___V41*/ meltfptr[40] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3561:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3576:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXPTUPLE__V36*/ meltfptr[35];;
- MELT_LOCATION ("warmelt-macro.melt:3561:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXPTUPLE__V40*/ meltfptr[39];;
+ MELT_LOCATION ("warmelt-macro.melt:3576:/ finalreturn");
;
/*finalret */ goto labend_rout;
- /*_.LET___V34*/ meltfptr[30] = /*_.RETURN___V41*/ meltfptr[37];;
+ /*_.LET___V38*/ meltfptr[34] = /*_.RETURN___V45*/ meltfptr[41];;
- MELT_LOCATION ("warmelt-macro.melt:3557:/ clear");
- /*clear *//*_.EXPLIST__V35*/ meltfptr[31] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3572:/ clear");
+ /*clear *//*_.EXPLIST__V39*/ meltfptr[35] = 0;
/*^clear */
- /*clear *//*_.EXPTUPLE__V36*/ meltfptr[35] = 0;
+ /*clear *//*_.EXPTUPLE__V40*/ meltfptr[39] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V37*/ meltfptr[36] = 0;
+ /*clear *//*_.IFCPP___V41*/ meltfptr[40] = 0;
/*^clear */
- /*clear *//*_.RETURN___V41*/ meltfptr[37] = 0;
- /*_.LET___V28*/ meltfptr[25] = /*_.LET___V34*/ meltfptr[30];;
+ /*clear *//*_.RETURN___V45*/ meltfptr[41] = 0;
+ /*_.LET___V32*/ meltfptr[29] = /*_.LET___V38*/ meltfptr[34];;
- MELT_LOCATION ("warmelt-macro.melt:3555:/ clear");
- /*clear *//*_.CUREAD__V29*/ meltfptr[28] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3570:/ clear");
+ /*clear *//*_.CUREAD__V33*/ meltfptr[32] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V30*/ meltfptr[29] = 0;
+ /*clear *//*_.IFCPP___V34*/ meltfptr[33] = 0;
/*^clear */
- /*clear *//*_.LET___V34*/ meltfptr[30] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3553:/ quasiblock");
+ /*clear *//*_.LET___V38*/ meltfptr[34] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3568:/ quasiblock");
- /*_.PROGN___V42*/ meltfptr[38] = /*_.LET___V28*/ meltfptr[25];;
+ /*_.PROGN___V46*/ meltfptr[42] = /*_.LET___V32*/ meltfptr[29];;
/*^compute */
- /*_.IFELSE___V27*/ meltfptr[22] = /*_.PROGN___V42*/ meltfptr[38];;
+ /*_.IFELSE___V31*/ meltfptr[26] = /*_.PROGN___V46*/ meltfptr[42];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3553:/ clear");
- /*clear *//*_.LET___V28*/ meltfptr[25] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3568:/ clear");
+ /*clear *//*_.LET___V32*/ meltfptr[29] = 0;
/*^clear */
- /*clear *//*_.PROGN___V42*/ meltfptr[38] = 0;
+ /*clear *//*_.PROGN___V46*/ meltfptr[42] = 0;
}
;
}
@@ -24029,7 +24388,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3566:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3581:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -24044,7 +24403,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L12*/ meltfnum[7] =
+ /*_#MELT_NEED_DBG__L14*/ meltfnum[9] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -24052,34 +24411,34 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3566:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[7]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3581:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[9]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[8] =
+ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[10] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3566:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3581:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[8];
+ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[10];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3566;
+ argtab[2].meltbp_long = 3581;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_load strange filnam";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.FILNAM__V19*/ meltfptr[18];
- /*_.MELT_DEBUG_FUN__V45*/ meltfptr[36] =
+ (melt_ptr_t *) & /*_.FILNAM__V23*/ meltfptr[22];
+ /*_.MELT_DEBUG_FUN__V49*/ meltfptr[40] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
tabval[0])),
@@ -24090,95 +24449,95 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V44*/ meltfptr[35] =
- /*_.MELT_DEBUG_FUN__V45*/ meltfptr[36];;
+ /*_.IF___V48*/ meltfptr[39] =
+ /*_.MELT_DEBUG_FUN__V49*/ meltfptr[40];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3566:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[8] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3581:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V45*/ meltfptr[36] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V49*/ meltfptr[40] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V44*/ meltfptr[35] = NULL;;
+ /*_.IF___V48*/ meltfptr[39] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3566:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3581:/ quasiblock");
- /*_.PROGN___V46*/ meltfptr[37] = /*_.IF___V44*/ meltfptr[35];;
+ /*_.PROGN___V50*/ meltfptr[41] = /*_.IF___V48*/ meltfptr[39];;
/*^compute */
- /*_.IFCPP___V43*/ meltfptr[31] = /*_.PROGN___V46*/ meltfptr[37];;
+ /*_.IFCPP___V47*/ meltfptr[35] = /*_.PROGN___V50*/ meltfptr[41];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3566:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[7] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3581:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[9] = 0;
/*^clear */
- /*clear *//*_.IF___V44*/ meltfptr[35] = 0;
+ /*clear *//*_.IF___V48*/ meltfptr[39] = 0;
/*^clear */
- /*clear *//*_.PROGN___V46*/ meltfptr[37] = 0;
+ /*clear *//*_.PROGN___V50*/ meltfptr[41] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V43*/ meltfptr[31] = ( /*nil */ NULL);
+ /*_.IFCPP___V47*/ meltfptr[35] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
{
- MELT_LOCATION ("warmelt-macro.melt:3567:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
+ MELT_LOCATION ("warmelt-macro.melt:3582:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("LOAD expects a string filename"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3565:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3580:/ quasiblock");
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3553:/ clear");
- /*clear *//*_.IFCPP___V43*/ meltfptr[31] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3568:/ clear");
+ /*clear *//*_.IFCPP___V47*/ meltfptr[35] = 0;
}
;
}
;
- /*_.LET___V14*/ meltfptr[12] = /*_.IFELSE___V27*/ meltfptr[22];;
+ /*_.LET___V18*/ meltfptr[16] = /*_.IFELSE___V31*/ meltfptr[26];;
- MELT_LOCATION ("warmelt-macro.melt:3541:/ clear");
- /*clear *//*_.CONT__V15*/ meltfptr[14] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3556:/ clear");
+ /*clear *//*_.CONT__V19*/ meltfptr[18] = 0;
/*^clear */
- /*clear *//*_.LOC__V16*/ meltfptr[15] = 0;
+ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0;
/*^clear */
- /*clear *//*_.LIST_FIRST__V17*/ meltfptr[16] = 0;
+ /*clear *//*_.LIST_FIRST__V21*/ meltfptr[20] = 0;
/*^clear */
- /*clear *//*_.CURPAIR__V18*/ meltfptr[17] = 0;
+ /*clear *//*_.CURPAIR__V22*/ meltfptr[21] = 0;
/*^clear */
- /*clear *//*_.FILNAM__V19*/ meltfptr[18] = 0;
+ /*clear *//*_.FILNAM__V23*/ meltfptr[22] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V20*/ meltfptr[19] = 0;
+ /*clear *//*_.PAIR_TAIL__V24*/ meltfptr[23] = 0;
/*^clear */
- /*clear *//*_#IS_A__L5*/ meltfnum[1] = 0;
+ /*clear *//*_#IS_A__L7*/ meltfnum[1] = 0;
/*^clear */
- /*clear *//*_.IF___V21*/ meltfptr[20] = 0;
+ /*clear *//*_.IF___V25*/ meltfptr[24] = 0;
/*^clear */
- /*clear *//*_#IS_A__L6*/ meltfnum[0] = 0;
+ /*clear *//*_#IS_A__L8*/ meltfnum[7] = 0;
/*^clear */
- /*clear *//*_.IF___V24*/ meltfptr[21] = 0;
+ /*clear *//*_.IF___V28*/ meltfptr[25] = 0;
/*^clear */
- /*clear *//*_#IS_STRING__L7*/ meltfnum[6] = 0;
+ /*clear *//*_#IS_STRING__L9*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V27*/ meltfptr[22] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3537:/ quasiblock");
+ /*clear *//*_.IFELSE___V31*/ meltfptr[26] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3550:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];;
- MELT_LOCATION ("warmelt-macro.melt:3537:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];;
+ MELT_LOCATION ("warmelt-macro.melt:3550:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -24190,7 +24549,13 @@ lab_endgetargs:;
/*^clear */
/*clear *//*_.IFCPP___V12*/ meltfptr[7] = 0;
/*^clear */
- /*clear *//*_.LET___V14*/ meltfptr[12] = 0;
+ /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0;
+ /*^clear */
+ /*clear *//*_#NULL__L6*/ meltfnum[0] = 0;
+ /*^clear */
+ /*clear *//*_.IF___V16*/ meltfptr[14] = 0;
+ /*^clear */
+ /*clear *//*_.LET___V18*/ meltfptr[16] = 0;
}
;
@@ -24270,7 +24635,7 @@ meltrout_53_warmelt_macro_PARSE_FIELD_PATTERN (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3577:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3592:/ getarg");
/*_.FKEYW__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -24330,7 +24695,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3578:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3593:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -24353,7 +24718,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3578:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3593:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -24363,7 +24728,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3578:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3593:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -24373,7 +24738,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3578;
+ argtab[2].meltbp_long = 3593;
/*^apply.arg */
argtab[3].meltbp_cstring = "parse_field_pattern keyw";
/*^apply.arg */
@@ -24393,7 +24758,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3578:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3593:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0;
@@ -24406,7 +24771,7 @@ lab_endgetargs:;
/*_.IF___V9*/ meltfptr[8] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3578:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3593:/ quasiblock");
/*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];;
@@ -24415,7 +24780,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[7] = /*_.PROGN___V11*/ meltfptr[9];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3578:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3593:/ clear");
/*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V9*/ meltfptr[8] = 0;
@@ -24430,7 +24795,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3579:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3594:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -24439,7 +24804,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.FKEYW__V2*/ meltfptr[1]),
(melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->
tabval[1])));;
- MELT_LOCATION ("warmelt-macro.melt:3579:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3594:/ cond");
/*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -24447,7 +24812,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3579:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3594:/ cond.else");
/*^block */
/*anyblock */
@@ -24461,7 +24826,7 @@ lab_endgetargs:;
melt_assert_failed (("check fkeyw"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3579) ? (3579) : __LINE__, __FUNCTION__);
+ (3594) ? (3594) : __LINE__, __FUNCTION__);
;
}
;
@@ -24476,7 +24841,7 @@ lab_endgetargs:;
/*_.IFCPP___V12*/ meltfptr[8] = /*_.IFELSE___V13*/ meltfptr[9];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3579:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3594:/ clear");
/*clear *//*_#IS_A__L3*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.IFELSE___V13*/ meltfptr[9] = 0;
@@ -24489,7 +24854,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3580:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3595:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -24498,7 +24863,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V5*/ meltfptr[4]),
(melt_ptr_t) (( /*!CLASS_ENVIRONMENT */
meltfrout->tabval[2])));;
- MELT_LOCATION ("warmelt-macro.melt:3580:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3595:/ cond");
/*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -24506,7 +24871,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3580:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3595:/ cond.else");
/*^block */
/*anyblock */
@@ -24520,7 +24885,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3580) ? (3580) : __LINE__, __FUNCTION__);
+ (3595) ? (3595) : __LINE__, __FUNCTION__);
;
}
;
@@ -24535,7 +24900,7 @@ lab_endgetargs:;
/*_.IFCPP___V14*/ meltfptr[9] = /*_.IFELSE___V15*/ meltfptr[14];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3580:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3595:/ clear");
/*clear *//*_#IS_A__L4*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0;
@@ -24548,7 +24913,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3581:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3596:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -24556,7 +24921,7 @@ lab_endgetargs:;
/*_#IS_A__L5*/ meltfnum[1] =
melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V6*/ meltfptr[5]),
(melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[3])));;
- MELT_LOCATION ("warmelt-macro.melt:3581:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3596:/ cond");
/*cond */ if ( /*_#IS_A__L5*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -24564,7 +24929,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3581:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3596:/ cond.else");
/*^block */
/*anyblock */
@@ -24578,7 +24943,7 @@ lab_endgetargs:;
melt_assert_failed (("check pctc"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3581) ? (3581) : __LINE__, __FUNCTION__);
+ (3596) ? (3596) : __LINE__, __FUNCTION__);
;
}
;
@@ -24593,7 +24958,7 @@ lab_endgetargs:;
/*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3581:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3596:/ clear");
/*clear *//*_#IS_A__L5*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0;
@@ -24606,7 +24971,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3582:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3597:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -24615,7 +24980,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V3*/ meltfptr[2]),
(melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->
tabval[4])));;
- MELT_LOCATION ("warmelt-macro.melt:3582:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3597:/ cond");
/*cond */ if ( /*_#IS_A__L6*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -24623,7 +24988,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3582:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3597:/ cond.else");
/*^block */
/*anyblock */
@@ -24637,7 +25002,7 @@ lab_endgetargs:;
melt_assert_failed (("check cla"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3582) ? (3582) : __LINE__, __FUNCTION__);
+ (3597) ? (3597) : __LINE__, __FUNCTION__);
;
}
;
@@ -24652,7 +25017,7 @@ lab_endgetargs:;
/*_.IFCPP___V18*/ meltfptr[16] = /*_.IFELSE___V19*/ meltfptr[18];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3582:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3597:/ clear");
/*clear *//*_#IS_A__L6*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V19*/ meltfptr[18] = 0;
@@ -24663,10 +25028,10 @@ lab_endgetargs:;
/*_.IFCPP___V18*/ meltfptr[16] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3583:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3598:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:3584:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3599:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CLA__V3*/ meltfptr[2]), 6, "CLASS_FIELDS");
@@ -24674,7 +25039,7 @@ lab_endgetargs:;
meltfptr[20] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3585:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3600:/ quasiblock");
/*^rawallocobj */
@@ -24699,7 +25064,7 @@ lab_endgetargs:;
(( /*nil */ NULL)), "CONTAINER_VALUE");
;
/*_.FLDCONT__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];;
- MELT_LOCATION ("warmelt-macro.melt:3586:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3601:/ apply");
/*apply */
{
union meltparam_un argtab[3];
@@ -24720,7 +25085,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3588:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3603:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -24743,7 +25108,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3588:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3603:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -24753,7 +25118,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3588:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3603:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -24763,7 +25128,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3588;
+ argtab[2].meltbp_long = 3603;
/*^apply.arg */
argtab[3].meltbp_cstring = "parse_field_pattern clafields";
/*^apply.arg */
@@ -24783,7 +25148,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V27*/ meltfptr[26];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3588:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3603:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V27*/ meltfptr[26] = 0;
@@ -24796,7 +25161,7 @@ lab_endgetargs:;
/*_.IF___V26*/ meltfptr[25] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3588:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3603:/ quasiblock");
/*_.PROGN___V28*/ meltfptr[26] = /*_.IF___V26*/ meltfptr[25];;
@@ -24805,7 +25170,7 @@ lab_endgetargs:;
/*_.IFCPP___V25*/ meltfptr[24] = /*_.PROGN___V28*/ meltfptr[26];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3588:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3603:/ clear");
/*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.IF___V26*/ meltfptr[25] = 0;
@@ -24818,7 +25183,7 @@ lab_endgetargs:;
/*_.IFCPP___V25*/ meltfptr[24] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3592:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3607:/ quasiblock");
/*^newclosure */
@@ -24855,7 +25220,7 @@ lab_endgetargs:;
(melt_ptr_t) ( /*_.FLDCONT__V22*/ meltfptr[21]);
;
/*_.LAMBDA___V29*/ meltfptr[25] = /*_.LAMBDA___V30*/ meltfptr[26];;
- MELT_LOCATION ("warmelt-macro.melt:3590:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3605:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -24871,7 +25236,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3602:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3617:/ quasiblock");
/*^cond */
@@ -24905,7 +25270,7 @@ lab_endgetargs:;
!melt_is_instance_of ((melt_ptr_t) ( /*_.FLD__V33*/ meltfptr[32]),
(melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout->
tabval[11])));;
- MELT_LOCATION ("warmelt-macro.melt:3604:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3619:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L9*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -24915,7 +25280,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3606:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3621:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -24938,7 +25303,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3606:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3621:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -24948,7 +25313,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3606:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3621:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -24959,7 +25324,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3606;
+ argtab[2].meltbp_long = 3621;
/*^apply.arg */
argtab[3].meltbp_cstring = "parse_field_pattern bad fld";
/*^apply.arg */
@@ -24980,7 +25345,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V37*/ meltfptr[36];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3606:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3621:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[36] = 0;
@@ -24993,7 +25358,7 @@ lab_endgetargs:;
/*_.IF___V36*/ meltfptr[35] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3606:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3621:/ quasiblock");
/*_.PROGN___V38*/ meltfptr[36] = /*_.IF___V36*/ meltfptr[35];;
@@ -25002,7 +25367,7 @@ lab_endgetargs:;
/*_.IFCPP___V35*/ meltfptr[34] = /*_.PROGN___V38*/ meltfptr[36];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3606:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3621:/ clear");
/*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.IF___V36*/ meltfptr[35] = 0;
@@ -25015,7 +25380,7 @@ lab_endgetargs:;
/*_.IFCPP___V35*/ meltfptr[34] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3608:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3623:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.FKEYW__V2*/ meltfptr[1]), 1, "NAMED_NAME");
@@ -25025,21 +25390,21 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3607:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3622:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.PSLOC__V7*/ meltfptr[6]),
("invalid :field in pattern"),
(melt_ptr_t) ( /*_.NAMED_NAME__V39*/
meltfptr[35]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:3609:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3624:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:3609:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3624:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3605:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3620:/ quasiblock");
/*_.PROGN___V41*/ meltfptr[40] = /*_.RETURN___V40*/ meltfptr[36];;
@@ -25048,7 +25413,7 @@ lab_endgetargs:;
/*_.IF___V34*/ meltfptr[33] = /*_.PROGN___V41*/ meltfptr[40];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3604:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3619:/ clear");
/*clear *//*_.IFCPP___V35*/ meltfptr[34] = 0;
/*^clear */
/*clear *//*_.NAMED_NAME__V39*/ meltfptr[35] = 0;
@@ -25065,10 +25430,10 @@ lab_endgetargs:;
/*_.IF___V34*/ meltfptr[33] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3610:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3625:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:3611:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3626:/ quasiblock");
/*^rawallocobj */
@@ -25113,7 +25478,7 @@ lab_endgetargs:;
/*_.PATF__V43*/ meltfptr[35] = /*_.INST__V44*/ meltfptr[36];;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3617:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3632:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -25136,7 +25501,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3617:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3632:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then */
{
/*^cond.then */
@@ -25146,7 +25511,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L13*/ meltfnum[1] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3617:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3632:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -25157,7 +25522,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3617;
+ argtab[2].meltbp_long = 3632;
/*^apply.arg */
argtab[3].meltbp_cstring = "parse_field_pattern return patf";
/*^apply.arg */
@@ -25177,7 +25542,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3617:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3632:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 0;
@@ -25190,7 +25555,7 @@ lab_endgetargs:;
/*_.IF___V46*/ meltfptr[45] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3617:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3632:/ quasiblock");
/*_.PROGN___V48*/ meltfptr[46] = /*_.IF___V46*/ meltfptr[45];;
@@ -25199,7 +25564,7 @@ lab_endgetargs:;
/*_.IFCPP___V45*/ meltfptr[40] = /*_.PROGN___V48*/ meltfptr[46];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3617:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3632:/ clear");
/*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0;
/*^clear */
/*clear *//*_.IF___V46*/ meltfptr[45] = 0;
@@ -25212,16 +25577,16 @@ lab_endgetargs:;
/*_.IFCPP___V45*/ meltfptr[40] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3618:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3633:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.PATF__V43*/ meltfptr[35];;
- MELT_LOCATION ("warmelt-macro.melt:3618:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3633:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*_.LET___V42*/ meltfptr[34] = /*_.RETURN___V49*/ meltfptr[45];;
- MELT_LOCATION ("warmelt-macro.melt:3610:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3625:/ clear");
/*clear *//*_.PATF__V43*/ meltfptr[35] = 0;
/*^clear */
/*clear *//*_.IFCPP___V45*/ meltfptr[40] = 0;
@@ -25229,7 +25594,7 @@ lab_endgetargs:;
/*clear *//*_.RETURN___V49*/ meltfptr[45] = 0;
/*_.LET___V32*/ meltfptr[31] = /*_.LET___V42*/ meltfptr[34];;
- MELT_LOCATION ("warmelt-macro.melt:3602:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3617:/ clear");
/*clear *//*_.FLD__V33*/ meltfptr[32] = 0;
/*^clear */
/*clear *//*_#IS_NOT_A__L9*/ meltfnum[0] = 0;
@@ -25239,7 +25604,7 @@ lab_endgetargs:;
/*clear *//*_.LET___V42*/ meltfptr[34] = 0;
/*_.LET___V20*/ meltfptr[18] = /*_.LET___V32*/ meltfptr[31];;
- MELT_LOCATION ("warmelt-macro.melt:3583:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3598:/ clear");
/*clear *//*_.CLAFIELDS__V21*/ meltfptr[20] = 0;
/*^clear */
/*clear *//*_.FLDCONT__V22*/ meltfptr[21] = 0;
@@ -25253,11 +25618,11 @@ lab_endgetargs:;
/*clear *//*_.MULTIPLE_ITERATE_TEST__V31*/ meltfptr[30] = 0;
/*^clear */
/*clear *//*_.LET___V32*/ meltfptr[31] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3577:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3592:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V20*/ meltfptr[18];;
- MELT_LOCATION ("warmelt-macro.melt:3577:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3592:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -25351,7 +25716,7 @@ meltrout_54_warmelt_macro_LAMBDA___14__ (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3592:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3607:/ getarg");
/*_.CFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -25369,7 +25734,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3593:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3608:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -25378,7 +25743,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.CFLD__V2*/ meltfptr[1]),
(melt_ptr_t) (( /*!CLASS_FIELD */ meltfrout->
tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:3593:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3608:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -25386,7 +25751,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3593:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3608:/ cond.else");
/*^block */
/*anyblock */
@@ -25400,7 +25765,7 @@ lab_endgetargs:;
melt_assert_failed (("check fld"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3593) ? (3593) : __LINE__, __FUNCTION__);
+ (3608) ? (3608) : __LINE__, __FUNCTION__);
;
}
;
@@ -25415,7 +25780,7 @@ lab_endgetargs:;
/*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3593:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3608:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[1] = 0;
/*^clear */
/*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0;
@@ -25426,7 +25791,7 @@ lab_endgetargs:;
/*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3594:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3609:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CFLD__V2*/ meltfptr[1]), 1, "NAMED_NAME");
@@ -25434,7 +25799,7 @@ lab_endgetargs:;
meltfptr[3] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3595:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3610:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) (( /*~FKEYW */ meltfclos->tabval[0])), 1, "NAMED_NAME");
@@ -25445,7 +25810,7 @@ lab_endgetargs:;
/*_#S__L3*/ meltfnum[1] =
melt_string_same ((melt_ptr_t) ( /*_.NAMED_NAME__V5*/ meltfptr[3]),
(melt_ptr_t) ( /*_.NAMED_NAME__V6*/ meltfptr[5]));;
- MELT_LOCATION ("warmelt-macro.melt:3594:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3609:/ cond");
/*cond */ if ( /*_#S__L3*/ meltfnum[1]) /*then */
{
/*^cond.then */
@@ -25453,7 +25818,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3597:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3612:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -25486,7 +25851,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3596:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3611:/ quasiblock");
/*_.PROGN___V8*/ meltfptr[7] = ( /*nil */ NULL);;
@@ -25495,7 +25860,7 @@ lab_endgetargs:;
/*_.IFELSE___V7*/ meltfptr[6] = /*_.PROGN___V8*/ meltfptr[7];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3594:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3609:/ clear");
/*clear *//*_.PROGN___V8*/ meltfptr[7] = 0;
}
;
@@ -25506,11 +25871,11 @@ lab_endgetargs:;
/*_.IFELSE___V7*/ meltfptr[6] = /*_.CFLD__V2*/ meltfptr[1];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3592:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3607:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.IFELSE___V7*/ meltfptr[6];;
- MELT_LOCATION ("warmelt-macro.melt:3592:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3607:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -25604,7 +25969,7 @@ meltrout_55_warmelt_macro_PATEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3621:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3636:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -25635,7 +26000,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3622:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3637:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -25644,7 +26009,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:3622:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3637:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -25652,7 +26017,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3622:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3637:/ cond.else");
/*^block */
/*anyblock */
@@ -25666,7 +26031,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3622) ? (3622) : __LINE__, __FUNCTION__);
+ (3637) ? (3637) : __LINE__, __FUNCTION__);
;
}
;
@@ -25681,7 +26046,7 @@ lab_endgetargs:;
/*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3622:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3637:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0;
@@ -25694,7 +26059,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3623:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3638:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -25703,7 +26068,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:3623:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3638:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -25711,7 +26076,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3623:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3638:/ cond.else");
/*^block */
/*anyblock */
@@ -25725,7 +26090,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3623) ? (3623) : __LINE__, __FUNCTION__);
+ (3638) ? (3638) : __LINE__, __FUNCTION__);
;
}
;
@@ -25740,7 +26105,7 @@ lab_endgetargs:;
/*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3623:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3638:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0;
@@ -25753,7 +26118,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3624:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3639:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -25761,7 +26126,7 @@ lab_endgetargs:;
/*_#IS_A__L3*/ meltfnum[0] =
melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]),
(melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));;
- MELT_LOCATION ("warmelt-macro.melt:3624:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3639:/ cond");
/*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -25769,7 +26134,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3624:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3639:/ cond.else");
/*^block */
/*anyblock */
@@ -25783,7 +26148,7 @@ lab_endgetargs:;
melt_assert_failed (("check pctx"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3624) ? (3624) : __LINE__, __FUNCTION__);
+ (3639) ? (3639) : __LINE__, __FUNCTION__);
;
}
;
@@ -25798,7 +26163,7 @@ lab_endgetargs:;
/*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3624:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3639:/ clear");
/*clear *//*_#IS_A__L3*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0;
@@ -25811,7 +26176,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3625:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3640:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -25834,7 +26199,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3625:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3640:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -25844,7 +26209,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3625:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3640:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -25854,7 +26219,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3625;
+ argtab[2].meltbp_long = 3640;
/*^apply.arg */
argtab[3].meltbp_cstring = "patexpand_instance sexpr";
/*^apply.arg */
@@ -25874,7 +26239,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3625:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3640:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0;
@@ -25887,7 +26252,7 @@ lab_endgetargs:;
/*_.IF___V12*/ meltfptr[11] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3625:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3640:/ quasiblock");
/*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];;
@@ -25896,7 +26261,7 @@ lab_endgetargs:;
/*_.IFCPP___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[12];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3625:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3640:/ clear");
/*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V12*/ meltfptr[11] = 0;
@@ -25909,10 +26274,10 @@ lab_endgetargs:;
/*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3626:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3641:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:3627:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3642:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
@@ -25920,7 +26285,7 @@ lab_endgetargs:;
meltfptr[12] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3628:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3643:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
@@ -25956,7 +26321,7 @@ lab_endgetargs:;
!melt_is_instance_of ((melt_ptr_t) ( /*_.CLANAME__V22*/ meltfptr[21]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
tabval[4])));;
- MELT_LOCATION ("warmelt-macro.melt:3636:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3651:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[4]) /*then */
{
/*^cond.then */
@@ -25966,7 +26331,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3637:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3652:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]),
("missing class symbol for INSTANCE pattern"),
(melt_ptr_t) 0);
@@ -25977,7 +26342,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3638:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3653:/ quasiblock");
/*^apply */
@@ -26005,7 +26370,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]),
(melt_ptr_t) (( /*!CLASS_CLASS_BINDING */
meltfrout->tabval[7])));;
- MELT_LOCATION ("warmelt-macro.melt:3642:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3657:/ cond");
/*cond */ if ( /*_#IS_A__L7*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -26013,10 +26378,10 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3643:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3658:/ compute");
/*_.CLABIND__V24*/ meltfptr[23] = /*_.SETQ___V29*/ meltfptr[28] =
/*_.BND__V26*/ meltfptr[25];;
- MELT_LOCATION ("warmelt-macro.melt:3644:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3659:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), 3, "CBIND_CLASS");
@@ -26027,7 +26392,7 @@ lab_endgetargs:;
/*^compute */
/*_.CLA__V23*/ meltfptr[22] = /*_.SETQ___V31*/ meltfptr[30] =
/*_.CBIND_CLASS__V30*/ meltfptr[29];;
- MELT_LOCATION ("warmelt-macro.melt:3642:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3657:/ quasiblock");
/*_.PROGN___V32*/ meltfptr[31] = /*_.SETQ___V31*/ meltfptr[30];;
@@ -26036,7 +26401,7 @@ lab_endgetargs:;
/*_.IFELSE___V28*/ meltfptr[27] = /*_.PROGN___V32*/ meltfptr[31];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3642:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3657:/ clear");
/*clear *//*_.SETQ___V29*/ meltfptr[28] = 0;
/*^clear */
/*clear *//*_.CBIND_CLASS__V30*/ meltfptr[29] = 0;
@@ -26058,7 +26423,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]),
(melt_ptr_t) (( /*!CLASS_VALUE_BINDING */
meltfrout->tabval[8])));;
- MELT_LOCATION ("warmelt-macro.melt:3646:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3661:/ cond");
/*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */
{
/*^cond.then */
@@ -26066,7 +26431,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3647:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3662:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), 1, "VBIND_VALUE");
@@ -26085,7 +26450,7 @@ lab_endgetargs:;
/*_#IF___L9*/ meltfnum[8] = /*_#IS_A__L10*/ meltfnum[9];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3646:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3661:/ clear");
/*clear *//*_.VBIND_VALUE__V33*/ meltfptr[28] = 0;
/*^clear */
/*clear *//*_#IS_A__L10*/ meltfnum[9] = 0;
@@ -26098,7 +26463,7 @@ lab_endgetargs:;
/*_#IF___L9*/ meltfnum[8] = 0;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3646:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3661:/ cond");
/*cond */ if ( /*_#IF___L9*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -26106,11 +26471,11 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3648:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3663:/ compute");
/*_.CLABIND__V24*/ meltfptr[23] =
/*_.SETQ___V35*/ meltfptr[30] =
/*_.BND__V26*/ meltfptr[25];;
- MELT_LOCATION ("warmelt-macro.melt:3649:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3664:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), 1, "VBIND_VALUE");
@@ -26121,7 +26486,7 @@ lab_endgetargs:;
/*^compute */
/*_.CLA__V23*/ meltfptr[22] = /*_.SETQ___V37*/ meltfptr[28] =
/*_.VBIND_VALUE__V36*/ meltfptr[31];;
- MELT_LOCATION ("warmelt-macro.melt:3646:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3661:/ quasiblock");
/*_.PROGN___V38*/ meltfptr[37] =
@@ -26132,7 +26497,7 @@ lab_endgetargs:;
/*_.PROGN___V38*/ meltfptr[37];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3646:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3661:/ clear");
/*clear *//*_.SETQ___V35*/ meltfptr[30] = 0;
/*^clear */
/*clear *//*_.VBIND_VALUE__V36*/ meltfptr[31] = 0;
@@ -26150,7 +26515,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3653:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3668:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CLANAME__V22*/ meltfptr[21]), 1, "NAMED_NAME");
@@ -26160,21 +26525,21 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3652:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3667:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]),
("invalid class name for INSTANCE"),
(melt_ptr_t) ( /*_.NAMED_NAME__V39*/
meltfptr[30]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:3654:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3669:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3654:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3669:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3651:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3666:/ quasiblock");
/*_.PROGN___V41*/ meltfptr[28] =
@@ -26185,7 +26550,7 @@ lab_endgetargs:;
/*_.PROGN___V41*/ meltfptr[28];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3646:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3661:/ clear");
/*clear *//*_.NAMED_NAME__V39*/ meltfptr[30] = 0;
/*^clear */
/*clear *//*_.RETURN___V40*/ meltfptr[31] = 0;
@@ -26198,7 +26563,7 @@ lab_endgetargs:;
/*_.IFELSE___V28*/ meltfptr[27] = /*_.IFELSE___V34*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3642:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3657:/ clear");
/*clear *//*_#IS_A__L8*/ meltfnum[7] = 0;
/*^clear */
/*clear *//*_#IF___L9*/ meltfnum[8] = 0;
@@ -26210,7 +26575,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3656:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3671:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -26219,7 +26584,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V23*/ meltfptr[22]),
(melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->
tabval[9])));;
- MELT_LOCATION ("warmelt-macro.melt:3656:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3671:/ cond");
/*cond */ if ( /*_#IS_A__L11*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -26227,7 +26592,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3656:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3671:/ cond.else");
/*^block */
/*anyblock */
@@ -26241,7 +26606,7 @@ lab_endgetargs:;
melt_assert_failed (("check cla"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3656) ? (3656) : __LINE__, __FUNCTION__);
+ (3671) ? (3671) : __LINE__, __FUNCTION__);
;
}
;
@@ -26256,7 +26621,7 @@ lab_endgetargs:;
/*_.IFCPP___V42*/ meltfptr[37] = /*_.IFELSE___V43*/ meltfptr[30];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3656:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3671:/ clear");
/*clear *//*_#IS_A__L11*/ meltfnum[9] = 0;
/*^clear */
/*clear *//*_.IFELSE___V43*/ meltfptr[30] = 0;
@@ -26271,10 +26636,10 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V44*/ meltfptr[31] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));;
- MELT_LOCATION ("warmelt-macro.melt:3657:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3672:/ compute");
/*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V45*/ meltfptr[28] =
/*_.PAIR_TAIL__V44*/ meltfptr[31];;
- MELT_LOCATION ("warmelt-macro.melt:3659:/ loop");
+ MELT_LOCATION ("warmelt-macro.melt:3674:/ loop");
/*loop */
{
labloop_INSLOOP_4:; /*^loopbody */
@@ -26290,7 +26655,7 @@ lab_endgetargs:;
/*_#NOT__L13*/ meltfnum[8] =
(!( /*_#IS_PAIR__L12*/ meltfnum[7]));;
- MELT_LOCATION ("warmelt-macro.melt:3661:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3676:/ cond");
/*cond */ if ( /*_#NOT__L13*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -26315,7 +26680,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3662:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3677:/ quasiblock");
/*_.CURFKW__V48*/ meltfptr[47] =
@@ -26327,7 +26692,7 @@ lab_endgetargs:;
( /*_.CURFKW__V48*/ meltfptr[47]),
(melt_ptr_t) (( /*!CLASS_KEYWORD */
meltfrout->tabval[10])));;
- MELT_LOCATION ("warmelt-macro.melt:3663:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3678:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L14*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -26337,7 +26702,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3664:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3679:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]),
("expecting keyword in INSTANCE"),
(melt_ptr_t) 0);
@@ -26350,15 +26715,15 @@ lab_endgetargs:;
;
/*_.PAIR_TAIL__V49*/ meltfptr[48] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));;
- MELT_LOCATION ("warmelt-macro.melt:3665:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3680:/ compute");
/*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V50*/ meltfptr[49] =
/*_.PAIR_TAIL__V49*/ meltfptr[48];;
- MELT_LOCATION ("warmelt-macro.melt:3666:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3681:/ quasiblock");
/*_.CUREXP__V51*/ meltfptr[50] =
(melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));;
- MELT_LOCATION ("warmelt-macro.melt:3667:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3682:/ quasiblock");
/*^apply */
@@ -26390,7 +26755,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3668:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3683:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -26413,7 +26778,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3668:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3683:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then */
{
/*^cond.then */
@@ -26423,7 +26788,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3668:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3683:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -26434,7 +26799,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3668;
+ argtab[2].meltbp_long = 3683;
/*^apply.arg */
argtab[3].meltbp_cstring = "patexpand_instance fldp";
/*^apply.arg */
@@ -26455,7 +26820,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V55*/ meltfptr[54];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3668:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3683:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0;
@@ -26468,7 +26833,7 @@ lab_endgetargs:;
/*_.IF___V54*/ meltfptr[53] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3668:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3683:/ quasiblock");
/*_.PROGN___V56*/ meltfptr[54] = /*_.IF___V54*/ meltfptr[53];;
@@ -26477,7 +26842,7 @@ lab_endgetargs:;
/*_.IFCPP___V53*/ meltfptr[52] = /*_.PROGN___V56*/ meltfptr[54];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3668:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3683:/ clear");
/*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[14] = 0;
/*^clear */
/*clear *//*_.IF___V54*/ meltfptr[53] = 0;
@@ -26490,7 +26855,7 @@ lab_endgetargs:;
/*_.IFCPP___V53*/ meltfptr[52] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3669:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3684:/ cond");
/*cond */ if ( /*_.FLDP__V52*/ meltfptr[51]) /*then */
{
/*^cond.then */
@@ -26500,7 +26865,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3670:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3685:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.FLDLIST__V27*/ meltfptr[26]),
(melt_ptr_t) ( /*_.FLDP__V52*/
@@ -26513,13 +26878,13 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3669:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3684:/ cond.else");
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3672:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3687:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURFKW__V48*/ meltfptr[47]), 1, "NAMED_NAME");
@@ -26529,7 +26894,7 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3671:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3686:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]),
("bad field name in INSTANCE"),
(melt_ptr_t) ( /*_.NAMED_NAME__V57*/
@@ -26538,22 +26903,22 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3669:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3684:/ clear");
/*clear *//*_.NAMED_NAME__V57*/ meltfptr[53] = 0;
}
;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3667:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3682:/ clear");
/*clear *//*_.FLDP__V52*/ meltfptr[51] = 0;
/*^clear */
/*clear *//*_.IFCPP___V53*/ meltfptr[52] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3666:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3681:/ clear");
/*clear *//*_.CUREXP__V51*/ meltfptr[50] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3662:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3677:/ clear");
/*clear *//*_.CURFKW__V48*/ meltfptr[47] = 0;
/*^clear */
/*clear *//*_#IS_NOT_A__L14*/ meltfnum[9] = 0;
@@ -26563,12 +26928,12 @@ lab_endgetargs:;
/*clear *//*_.SETQ___V50*/ meltfptr[49] = 0;
/*_.PAIR_TAIL__V58*/ meltfptr[54] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));;
- MELT_LOCATION ("warmelt-macro.melt:3674:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3689:/ compute");
/*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V59*/ meltfptr[53] =
/*_.PAIR_TAIL__V58*/ meltfptr[54];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3659:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3674:/ clear");
/*clear *//*_#IS_PAIR__L12*/ meltfnum[7] = 0;
/*^clear */
/*clear *//*_#NOT__L13*/ meltfnum[8] = 0;
@@ -26585,10 +26950,10 @@ lab_endgetargs:;
/*_.FOREVER___V46*/ meltfptr[29] = /*_.INSLOOP__V47*/ meltfptr[30];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3676:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3691:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:3677:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3692:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -26604,7 +26969,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3679:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3694:/ quasiblock");
/*^newclosure */
@@ -26615,7 +26980,7 @@ lab_endgetargs:;
tabval[16])), (0));
;
/*_.LAMBDA___V62*/ meltfptr[50] = /*_.LAMBDA___V63*/ meltfptr[47];;
- MELT_LOCATION ("warmelt-macro.melt:3678:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3693:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -26631,7 +26996,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3681:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3696:/ quasiblock");
/*^rawallocobj */
@@ -26682,7 +27047,7 @@ lab_endgetargs:;
"SPAT_FIELDS");
;
/*_.SPATI__V65*/ meltfptr[49] = /*_.INST__V66*/ meltfptr[54];;
- MELT_LOCATION ("warmelt-macro.melt:3687:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3702:/ quasiblock");
/*^multiapply */
@@ -26719,7 +27084,7 @@ lab_endgetargs:;
((meltobject_ptr_t)
(( /*!DISCR_CONSTANT_INTEGER */ meltfrout->tabval[19])),
( /*_#I__L20*/ meltfnum[7])));;
- MELT_LOCATION ("warmelt-macro.melt:3690:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3705:/ quasiblock");
/*^putslot */
@@ -26737,7 +27102,7 @@ lab_endgetargs:;
;
- MELT_LOCATION ("warmelt-macro.melt:3687:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3702:/ clear");
/*clear *//*_#I__L20*/ meltfnum[7] = 0;
/*^clear */
/*clear *//*_.MAKE_INTEGERBOX__V68*/ meltfptr[67] = 0;
@@ -26750,7 +27115,7 @@ lab_endgetargs:;
/*clear *//*_#ISUM__L19*/ meltfnum[9] = 0;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3695:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3710:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -26773,7 +27138,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3695:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3710:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -26783,7 +27148,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L22*/ meltfnum[7] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3695:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3710:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -26794,7 +27159,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3695;
+ argtab[2].meltbp_long = 3710;
/*^apply.arg */
argtab[3].meltbp_cstring = "patexpand_instance return spati";
/*^apply.arg */
@@ -26814,7 +27179,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V71*/ meltfptr[70];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3695:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3710:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[7] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V71*/ meltfptr[70] = 0;
@@ -26827,7 +27192,7 @@ lab_endgetargs:;
/*_.IF___V70*/ meltfptr[53] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3695:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3710:/ quasiblock");
/*_.PROGN___V72*/ meltfptr[70] = /*_.IF___V70*/ meltfptr[53];;
@@ -26836,7 +27201,7 @@ lab_endgetargs:;
/*_.IFCPP___V69*/ meltfptr[67] = /*_.PROGN___V72*/ meltfptr[70];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3695:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3710:/ clear");
/*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[8] = 0;
/*^clear */
/*clear *//*_.IF___V70*/ meltfptr[53] = 0;
@@ -26849,16 +27214,16 @@ lab_endgetargs:;
/*_.IFCPP___V69*/ meltfptr[67] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3696:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3711:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.SPATI__V65*/ meltfptr[49];;
- MELT_LOCATION ("warmelt-macro.melt:3696:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3711:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*_.LET___V60*/ meltfptr[51] = /*_.RETURN___V73*/ meltfptr[53];;
- MELT_LOCATION ("warmelt-macro.melt:3676:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3691:/ clear");
/*clear *//*_.SPATFIELDS__V61*/ meltfptr[52] = 0;
/*^clear */
/*clear *//*_.LAMBDA___V62*/ meltfptr[50] = 0;
@@ -26872,7 +27237,7 @@ lab_endgetargs:;
/*clear *//*_.RETURN___V73*/ meltfptr[53] = 0;
/*_.LET___V25*/ meltfptr[24] = /*_.LET___V60*/ meltfptr[51];;
- MELT_LOCATION ("warmelt-macro.melt:3638:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3653:/ clear");
/*clear *//*_.BND__V26*/ meltfptr[25] = 0;
/*^clear */
/*clear *//*_.FLDLIST__V27*/ meltfptr[26] = 0;
@@ -26892,7 +27257,7 @@ lab_endgetargs:;
/*clear *//*_.LET___V60*/ meltfptr[51] = 0;
/*_.LET___V15*/ meltfptr[11] = /*_.LET___V25*/ meltfptr[24];;
- MELT_LOCATION ("warmelt-macro.melt:3626:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3641:/ clear");
/*clear *//*_.CONT__V16*/ meltfptr[12] = 0;
/*^clear */
/*clear *//*_.LOC__V17*/ meltfptr[16] = 0;
@@ -26914,11 +27279,11 @@ lab_endgetargs:;
/*clear *//*_#IS_NOT_A__L6*/ meltfnum[4] = 0;
/*^clear */
/*clear *//*_.LET___V25*/ meltfptr[24] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3621:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3636:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];;
- MELT_LOCATION ("warmelt-macro.melt:3621:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3636:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -27010,7 +27375,7 @@ meltrout_56_warmelt_macro_LAMBDA___15__ (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3679:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3694:/ getarg");
/*_.CURPATFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -27026,7 +27391,7 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-macro.melt:3680:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3695:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -27050,11 +27415,11 @@ lab_endgetargs:;
/*_.SPAF_PATTERN__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3679:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3694:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.SPAF_PATTERN__V3*/ meltfptr[2];;
- MELT_LOCATION ("warmelt-macro.melt:3679:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3694:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -27138,7 +27503,7 @@ meltrout_57_warmelt_macro_PATEXPAND_OBJECT (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3716:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3731:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -27169,7 +27534,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3717:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3732:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -27178,7 +27543,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:3717:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3732:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -27186,7 +27551,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3717:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3732:/ cond.else");
/*^block */
/*anyblock */
@@ -27200,7 +27565,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3717) ? (3717) : __LINE__, __FUNCTION__);
+ (3732) ? (3732) : __LINE__, __FUNCTION__);
;
}
;
@@ -27215,7 +27580,7 @@ lab_endgetargs:;
/*_.IFCPP___V5*/ meltfptr[4] = /*_.IFELSE___V6*/ meltfptr[5];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3717:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3732:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V6*/ meltfptr[5] = 0;
@@ -27228,7 +27593,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3718:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3733:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -27237,7 +27602,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:3718:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3733:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -27245,7 +27610,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3718:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3733:/ cond.else");
/*^block */
/*anyblock */
@@ -27259,7 +27624,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3718) ? (3718) : __LINE__, __FUNCTION__);
+ (3733) ? (3733) : __LINE__, __FUNCTION__);
;
}
;
@@ -27274,7 +27639,7 @@ lab_endgetargs:;
/*_.IFCPP___V7*/ meltfptr[5] = /*_.IFELSE___V8*/ meltfptr[7];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3718:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3733:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V8*/ meltfptr[7] = 0;
@@ -27287,7 +27652,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3719:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3734:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -27295,7 +27660,7 @@ lab_endgetargs:;
/*_#IS_A__L3*/ meltfnum[0] =
melt_is_instance_of ((melt_ptr_t) ( /*_.PCTX__V4*/ meltfptr[3]),
(melt_ptr_t) (( /*!CLASS_PATTERN_EXPANSION_CONTEXT */ meltfrout->tabval[2])));;
- MELT_LOCATION ("warmelt-macro.melt:3719:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3734:/ cond");
/*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -27303,7 +27668,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3719:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3734:/ cond.else");
/*^block */
/*anyblock */
@@ -27317,7 +27682,7 @@ lab_endgetargs:;
melt_assert_failed (("check pctx"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3719) ? (3719) : __LINE__, __FUNCTION__);
+ (3734) ? (3734) : __LINE__, __FUNCTION__);
;
}
;
@@ -27332,7 +27697,7 @@ lab_endgetargs:;
/*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V10*/ meltfptr[9];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3719:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3734:/ clear");
/*clear *//*_#IS_A__L3*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V10*/ meltfptr[9] = 0;
@@ -27345,7 +27710,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3720:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3735:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -27368,7 +27733,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3720:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3735:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L4*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -27378,7 +27743,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3720:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3735:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -27388,7 +27753,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3720;
+ argtab[2].meltbp_long = 3735;
/*^apply.arg */
argtab[3].meltbp_cstring = "patexpand_object sexpr";
/*^apply.arg */
@@ -27408,7 +27773,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3720:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3735:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L5*/ meltfnum[4] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0;
@@ -27421,7 +27786,7 @@ lab_endgetargs:;
/*_.IF___V12*/ meltfptr[11] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3720:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3735:/ quasiblock");
/*_.PROGN___V14*/ meltfptr[12] = /*_.IF___V12*/ meltfptr[11];;
@@ -27430,7 +27795,7 @@ lab_endgetargs:;
/*_.IFCPP___V11*/ meltfptr[9] = /*_.PROGN___V14*/ meltfptr[12];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3720:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3735:/ clear");
/*clear *//*_#MELT_NEED_DBG__L4*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V12*/ meltfptr[11] = 0;
@@ -27443,10 +27808,10 @@ lab_endgetargs:;
/*_.IFCPP___V11*/ meltfptr[9] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3721:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3736:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:3722:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3737:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
@@ -27454,7 +27819,7 @@ lab_endgetargs:;
meltfptr[12] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3723:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3738:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
@@ -27490,7 +27855,7 @@ lab_endgetargs:;
!melt_is_instance_of ((melt_ptr_t) ( /*_.CLANAME__V22*/ meltfptr[21]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
tabval[4])));;
- MELT_LOCATION ("warmelt-macro.melt:3731:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3746:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[4]) /*then */
{
/*^cond.then */
@@ -27500,7 +27865,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3732:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3747:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]),
("missing class symbol for OBJECT pattern"),
(melt_ptr_t) 0);
@@ -27511,7 +27876,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3733:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3748:/ quasiblock");
/*^apply */
@@ -27539,7 +27904,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]),
(melt_ptr_t) (( /*!CLASS_CLASS_BINDING */
meltfrout->tabval[7])));;
- MELT_LOCATION ("warmelt-macro.melt:3737:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3752:/ cond");
/*cond */ if ( /*_#IS_A__L7*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -27547,10 +27912,10 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3738:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3753:/ compute");
/*_.CLABIND__V24*/ meltfptr[23] = /*_.SETQ___V29*/ meltfptr[28] =
/*_.BND__V26*/ meltfptr[25];;
- MELT_LOCATION ("warmelt-macro.melt:3739:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3754:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), 3, "CBIND_CLASS");
@@ -27561,7 +27926,7 @@ lab_endgetargs:;
/*^compute */
/*_.CLA__V23*/ meltfptr[22] = /*_.SETQ___V31*/ meltfptr[30] =
/*_.CBIND_CLASS__V30*/ meltfptr[29];;
- MELT_LOCATION ("warmelt-macro.melt:3737:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3752:/ quasiblock");
/*_.PROGN___V32*/ meltfptr[31] = /*_.SETQ___V31*/ meltfptr[30];;
@@ -27570,7 +27935,7 @@ lab_endgetargs:;
/*_.IFELSE___V28*/ meltfptr[27] = /*_.PROGN___V32*/ meltfptr[31];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3737:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3752:/ clear");
/*clear *//*_.SETQ___V29*/ meltfptr[28] = 0;
/*^clear */
/*clear *//*_.CBIND_CLASS__V30*/ meltfptr[29] = 0;
@@ -27592,7 +27957,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]),
(melt_ptr_t) (( /*!CLASS_VALUE_BINDING */
meltfrout->tabval[8])));;
- MELT_LOCATION ("warmelt-macro.melt:3741:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3756:/ cond");
/*cond */ if ( /*_#IS_A__L8*/ meltfnum[7]) /*then */
{
/*^cond.then */
@@ -27600,7 +27965,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3742:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3757:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), 1, "VBIND_VALUE");
@@ -27619,7 +27984,7 @@ lab_endgetargs:;
/*_#IF___L9*/ meltfnum[8] = /*_#IS_A__L10*/ meltfnum[9];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3741:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3756:/ clear");
/*clear *//*_.VBIND_VALUE__V33*/ meltfptr[28] = 0;
/*^clear */
/*clear *//*_#IS_A__L10*/ meltfnum[9] = 0;
@@ -27632,7 +27997,7 @@ lab_endgetargs:;
/*_#IF___L9*/ meltfnum[8] = 0;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3741:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3756:/ cond");
/*cond */ if ( /*_#IF___L9*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -27640,11 +28005,11 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3743:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3758:/ compute");
/*_.CLABIND__V24*/ meltfptr[23] =
/*_.SETQ___V35*/ meltfptr[30] =
/*_.BND__V26*/ meltfptr[25];;
- MELT_LOCATION ("warmelt-macro.melt:3744:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3759:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.BND__V26*/ meltfptr[25]), 1, "VBIND_VALUE");
@@ -27655,7 +28020,7 @@ lab_endgetargs:;
/*^compute */
/*_.CLA__V23*/ meltfptr[22] = /*_.SETQ___V37*/ meltfptr[28] =
/*_.VBIND_VALUE__V36*/ meltfptr[31];;
- MELT_LOCATION ("warmelt-macro.melt:3741:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3756:/ quasiblock");
/*_.PROGN___V38*/ meltfptr[37] =
@@ -27666,7 +28031,7 @@ lab_endgetargs:;
/*_.PROGN___V38*/ meltfptr[37];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3741:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3756:/ clear");
/*clear *//*_.SETQ___V35*/ meltfptr[30] = 0;
/*^clear */
/*clear *//*_.VBIND_VALUE__V36*/ meltfptr[31] = 0;
@@ -27684,7 +28049,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3748:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3763:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CLANAME__V22*/ meltfptr[21]), 1, "NAMED_NAME");
@@ -27694,21 +28059,21 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3747:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3762:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]),
("invalid class name for OBJECT pattern"),
(melt_ptr_t) ( /*_.NAMED_NAME__V39*/
meltfptr[30]));
}
;
- MELT_LOCATION ("warmelt-macro.melt:3749:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3764:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3749:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3764:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3746:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3761:/ quasiblock");
/*_.PROGN___V41*/ meltfptr[28] =
@@ -27719,7 +28084,7 @@ lab_endgetargs:;
/*_.PROGN___V41*/ meltfptr[28];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3741:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3756:/ clear");
/*clear *//*_.NAMED_NAME__V39*/ meltfptr[30] = 0;
/*^clear */
/*clear *//*_.RETURN___V40*/ meltfptr[31] = 0;
@@ -27732,7 +28097,7 @@ lab_endgetargs:;
/*_.IFELSE___V28*/ meltfptr[27] = /*_.IFELSE___V34*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3737:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3752:/ clear");
/*clear *//*_#IS_A__L8*/ meltfnum[7] = 0;
/*^clear */
/*clear *//*_#IF___L9*/ meltfnum[8] = 0;
@@ -27744,7 +28109,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3751:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3766:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -27753,7 +28118,7 @@ lab_endgetargs:;
melt_is_instance_of ((melt_ptr_t) ( /*_.CLA__V23*/ meltfptr[22]),
(melt_ptr_t) (( /*!CLASS_CLASS */ meltfrout->
tabval[9])));;
- MELT_LOCATION ("warmelt-macro.melt:3751:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3766:/ cond");
/*cond */ if ( /*_#IS_A__L11*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -27761,7 +28126,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3751:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3766:/ cond.else");
/*^block */
/*anyblock */
@@ -27775,7 +28140,7 @@ lab_endgetargs:;
melt_assert_failed (("check cla"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3751) ? (3751) : __LINE__, __FUNCTION__);
+ (3766) ? (3766) : __LINE__, __FUNCTION__);
;
}
;
@@ -27790,7 +28155,7 @@ lab_endgetargs:;
/*_.IFCPP___V42*/ meltfptr[37] = /*_.IFELSE___V43*/ meltfptr[30];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3751:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3766:/ clear");
/*clear *//*_#IS_A__L11*/ meltfnum[9] = 0;
/*^clear */
/*clear *//*_.IFELSE___V43*/ meltfptr[30] = 0;
@@ -27805,10 +28170,10 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V44*/ meltfptr[31] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));;
- MELT_LOCATION ("warmelt-macro.melt:3752:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3767:/ compute");
/*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V45*/ meltfptr[28] =
/*_.PAIR_TAIL__V44*/ meltfptr[31];;
- MELT_LOCATION ("warmelt-macro.melt:3754:/ loop");
+ MELT_LOCATION ("warmelt-macro.melt:3769:/ loop");
/*loop */
{
labloop_INSLOOP_5:; /*^loopbody */
@@ -27824,7 +28189,7 @@ lab_endgetargs:;
/*_#NOT__L13*/ meltfnum[8] =
(!( /*_#IS_PAIR__L12*/ meltfnum[7]));;
- MELT_LOCATION ("warmelt-macro.melt:3756:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3771:/ cond");
/*cond */ if ( /*_#NOT__L13*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -27849,7 +28214,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3757:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3772:/ quasiblock");
/*_.CURFKW__V48*/ meltfptr[47] =
@@ -27861,7 +28226,7 @@ lab_endgetargs:;
( /*_.CURFKW__V48*/ meltfptr[47]),
(melt_ptr_t) (( /*!CLASS_KEYWORD */
meltfrout->tabval[10])));;
- MELT_LOCATION ("warmelt-macro.melt:3758:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3773:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L14*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -27871,7 +28236,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3759:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3774:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]),
("expecting keyword in OBJECT pattern"),
(melt_ptr_t) 0);
@@ -27884,15 +28249,15 @@ lab_endgetargs:;
;
/*_.PAIR_TAIL__V49*/ meltfptr[48] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));;
- MELT_LOCATION ("warmelt-macro.melt:3760:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3775:/ compute");
/*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V50*/ meltfptr[49] =
/*_.PAIR_TAIL__V49*/ meltfptr[48];;
- MELT_LOCATION ("warmelt-macro.melt:3761:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3776:/ quasiblock");
/*_.CUREXP__V51*/ meltfptr[50] =
(melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));;
- MELT_LOCATION ("warmelt-macro.melt:3762:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3777:/ quasiblock");
/*^apply */
@@ -27924,7 +28289,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3763:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3778:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -27947,7 +28312,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3763:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3778:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then */
{
/*^cond.then */
@@ -27957,7 +28322,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3763:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3778:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -27968,7 +28333,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3763;
+ argtab[2].meltbp_long = 3778;
/*^apply.arg */
argtab[3].meltbp_cstring = "patexpand_object fldp";
/*^apply.arg */
@@ -27989,7 +28354,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V55*/ meltfptr[54];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3763:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3778:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V55*/ meltfptr[54] = 0;
@@ -28002,7 +28367,7 @@ lab_endgetargs:;
/*_.IF___V54*/ meltfptr[53] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3763:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3778:/ quasiblock");
/*_.PROGN___V56*/ meltfptr[54] = /*_.IF___V54*/ meltfptr[53];;
@@ -28011,7 +28376,7 @@ lab_endgetargs:;
/*_.IFCPP___V53*/ meltfptr[52] = /*_.PROGN___V56*/ meltfptr[54];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3763:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3778:/ clear");
/*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[14] = 0;
/*^clear */
/*clear *//*_.IF___V54*/ meltfptr[53] = 0;
@@ -28024,7 +28389,7 @@ lab_endgetargs:;
/*_.IFCPP___V53*/ meltfptr[52] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3764:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3779:/ cond");
/*cond */ if ( /*_.FLDP__V52*/ meltfptr[51]) /*then */
{
/*^cond.then */
@@ -28034,7 +28399,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3765:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3780:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.FLDLIST__V27*/ meltfptr[26]),
(melt_ptr_t) ( /*_.FLDP__V52*/
@@ -28047,13 +28412,13 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3764:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3779:/ cond.else");
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3767:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3782:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURFKW__V48*/ meltfptr[47]), 1, "NAMED_NAME");
@@ -28063,7 +28428,7 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3766:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3781:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V17*/ meltfptr[16]),
("bad field name in OBJECT pattern"),
(melt_ptr_t) ( /*_.NAMED_NAME__V57*/
@@ -28072,22 +28437,22 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3764:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3779:/ clear");
/*clear *//*_.NAMED_NAME__V57*/ meltfptr[53] = 0;
}
;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3762:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3777:/ clear");
/*clear *//*_.FLDP__V52*/ meltfptr[51] = 0;
/*^clear */
/*clear *//*_.IFCPP___V53*/ meltfptr[52] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3761:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3776:/ clear");
/*clear *//*_.CUREXP__V51*/ meltfptr[50] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3757:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3772:/ clear");
/*clear *//*_.CURFKW__V48*/ meltfptr[47] = 0;
/*^clear */
/*clear *//*_#IS_NOT_A__L14*/ meltfnum[9] = 0;
@@ -28097,12 +28462,12 @@ lab_endgetargs:;
/*clear *//*_.SETQ___V50*/ meltfptr[49] = 0;
/*_.PAIR_TAIL__V58*/ meltfptr[54] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V21*/ meltfptr[20])));;
- MELT_LOCATION ("warmelt-macro.melt:3769:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3784:/ compute");
/*_.CURPAIR__V21*/ meltfptr[20] = /*_.SETQ___V59*/ meltfptr[53] =
/*_.PAIR_TAIL__V58*/ meltfptr[54];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3754:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3769:/ clear");
/*clear *//*_#IS_PAIR__L12*/ meltfnum[7] = 0;
/*^clear */
/*clear *//*_#NOT__L13*/ meltfnum[8] = 0;
@@ -28119,10 +28484,10 @@ lab_endgetargs:;
/*_.FOREVER___V46*/ meltfptr[29] = /*_.INSLOOP__V47*/ meltfptr[30];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3771:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3786:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:3772:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3787:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -28138,7 +28503,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3774:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3789:/ quasiblock");
/*^newclosure */
@@ -28149,7 +28514,7 @@ lab_endgetargs:;
tabval[16])), (0));
;
/*_.LAMBDA___V62*/ meltfptr[50] = /*_.LAMBDA___V63*/ meltfptr[47];;
- MELT_LOCATION ("warmelt-macro.melt:3773:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3788:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -28165,7 +28530,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3776:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3791:/ quasiblock");
/*^rawallocobj */
@@ -28207,7 +28572,7 @@ lab_endgetargs:;
"SPAT_FIELDS");
;
/*_.SPATI__V65*/ meltfptr[49] = /*_.INST__V66*/ meltfptr[54];;
- MELT_LOCATION ("warmelt-macro.melt:3781:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3796:/ quasiblock");
/*^multiapply */
@@ -28244,7 +28609,7 @@ lab_endgetargs:;
((meltobject_ptr_t)
(( /*!DISCR_CONSTANT_INTEGER */ meltfrout->tabval[19])),
( /*_#I__L20*/ meltfnum[7])));;
- MELT_LOCATION ("warmelt-macro.melt:3784:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3799:/ quasiblock");
/*^putslot */
@@ -28263,7 +28628,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3788:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3803:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -28286,7 +28651,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3788:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3803:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -28296,7 +28661,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3788:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3803:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -28307,7 +28672,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3788;
+ argtab[2].meltbp_long = 3803;
/*^apply.arg */
argtab[3].meltbp_cstring = "patexpand_object return spati";
/*^apply.arg */
@@ -28327,7 +28692,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V72*/ meltfptr[71];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3788:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3803:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[21] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V72*/ meltfptr[71] = 0;
@@ -28340,7 +28705,7 @@ lab_endgetargs:;
/*_.IF___V71*/ meltfptr[70] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3788:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3803:/ quasiblock");
/*_.PROGN___V73*/ meltfptr[71] = /*_.IF___V71*/ meltfptr[70];;
@@ -28349,7 +28714,7 @@ lab_endgetargs:;
/*_.IFCPP___V70*/ meltfptr[69] = /*_.PROGN___V73*/ meltfptr[71];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3788:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3803:/ clear");
/*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[8] = 0;
/*^clear */
/*clear *//*_.IF___V71*/ meltfptr[70] = 0;
@@ -28362,16 +28727,16 @@ lab_endgetargs:;
/*_.IFCPP___V70*/ meltfptr[69] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3789:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3804:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.SPATI__V65*/ meltfptr[49];;
- MELT_LOCATION ("warmelt-macro.melt:3789:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3804:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*_.MULTI___V67*/ meltfptr[53] = /*_.RETURN___V74*/ meltfptr[70];;
- MELT_LOCATION ("warmelt-macro.melt:3781:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3796:/ clear");
/*clear *//*_#I__L20*/ meltfnum[7] = 0;
/*^clear */
/*clear *//*_.MAKE_INTEGERBOX__V69*/ meltfptr[68] = 0;
@@ -28388,7 +28753,7 @@ lab_endgetargs:;
/*clear *//*_#ISUM__L19*/ meltfnum[9] = 0;
/*_.LET___V60*/ meltfptr[51] = /*_.MULTI___V67*/ meltfptr[53];;
- MELT_LOCATION ("warmelt-macro.melt:3771:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3786:/ clear");
/*clear *//*_.PATFIELDS__V61*/ meltfptr[52] = 0;
/*^clear */
/*clear *//*_.LAMBDA___V62*/ meltfptr[50] = 0;
@@ -28400,7 +28765,7 @@ lab_endgetargs:;
/*clear *//*_.MULTI___V67*/ meltfptr[53] = 0;
/*_.LET___V25*/ meltfptr[24] = /*_.LET___V60*/ meltfptr[51];;
- MELT_LOCATION ("warmelt-macro.melt:3733:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3748:/ clear");
/*clear *//*_.BND__V26*/ meltfptr[25] = 0;
/*^clear */
/*clear *//*_.FLDLIST__V27*/ meltfptr[26] = 0;
@@ -28420,7 +28785,7 @@ lab_endgetargs:;
/*clear *//*_.LET___V60*/ meltfptr[51] = 0;
/*_.LET___V15*/ meltfptr[11] = /*_.LET___V25*/ meltfptr[24];;
- MELT_LOCATION ("warmelt-macro.melt:3721:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3736:/ clear");
/*clear *//*_.CONT__V16*/ meltfptr[12] = 0;
/*^clear */
/*clear *//*_.LOC__V17*/ meltfptr[16] = 0;
@@ -28442,11 +28807,11 @@ lab_endgetargs:;
/*clear *//*_#IS_NOT_A__L6*/ meltfnum[4] = 0;
/*^clear */
/*clear *//*_.LET___V25*/ meltfptr[24] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3716:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3731:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V15*/ meltfptr[11];;
- MELT_LOCATION ("warmelt-macro.melt:3716:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3731:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -28538,7 +28903,7 @@ meltrout_58_warmelt_macro_LAMBDA___16__ (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3774:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3789:/ getarg");
/*_.CURPATFLD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -28554,7 +28919,7 @@ lab_endgetargs:;
/*anyblock*/
{
- MELT_LOCATION ("warmelt-macro.melt:3775:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3790:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -28578,11 +28943,11 @@ lab_endgetargs:;
/*_.SPAF_PATTERN__V3*/ meltfptr[2] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3774:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3789:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.SPAF_PATTERN__V3*/ meltfptr[2];;
- MELT_LOCATION ("warmelt-macro.melt:3774:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3789:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -28666,7 +29031,7 @@ meltrout_59_warmelt_macro_MEXPAND_OBJECT (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3793:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3808:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -28707,7 +29072,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3794:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3809:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -28716,7 +29081,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:3794:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3809:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -28724,7 +29089,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3794:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3809:/ cond.else");
/*^block */
/*anyblock */
@@ -28738,7 +29103,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3794) ? (3794) : __LINE__, __FUNCTION__);
+ (3809) ? (3809) : __LINE__, __FUNCTION__);
;
}
;
@@ -28753,7 +29118,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3794:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3809:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -28766,7 +29131,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3795:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3810:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -28775,7 +29140,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:3795:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3810:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -28783,7 +29148,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3795:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3810:/ cond.else");
/*^block */
/*anyblock */
@@ -28797,7 +29162,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3795) ? (3795) : __LINE__, __FUNCTION__);
+ (3810) ? (3810) : __LINE__, __FUNCTION__);
;
}
;
@@ -28812,7 +29177,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3795:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3810:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -28825,7 +29190,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3796:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3811:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -28848,7 +29213,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3796:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3811:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -28858,7 +29223,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3796:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3811:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -28868,7 +29233,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3796;
+ argtab[2].meltbp_long = 3811;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_object sexpr";
/*^apply.arg */
@@ -28888,7 +29253,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3796:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3811:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0;
@@ -28901,7 +29266,7 @@ lab_endgetargs:;
/*_.IF___V11*/ meltfptr[10] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3796:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3811:/ quasiblock");
/*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];;
@@ -28910,7 +29275,7 @@ lab_endgetargs:;
/*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3796:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3811:/ clear");
/*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V11*/ meltfptr[10] = 0;
@@ -28923,10 +29288,10 @@ lab_endgetargs:;
/*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3797:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3812:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:3798:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3813:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
@@ -28936,30 +29301,30 @@ lab_endgetargs:;
;
{
- MELT_LOCATION ("warmelt-macro.melt:3800:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3815:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V15*/ meltfptr[11]),
("OBJECT cannot be macro-expanded in expression context - use INSTANCE instead"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3801:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3816:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:3801:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3816:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*_.LET___V14*/ meltfptr[10] = /*_.RETURN___V16*/ meltfptr[15];;
- MELT_LOCATION ("warmelt-macro.melt:3797:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3812:/ clear");
/*clear *//*_.LOC__V15*/ meltfptr[11] = 0;
/*^clear */
/*clear *//*_.RETURN___V16*/ meltfptr[15] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3793:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3808:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];;
- MELT_LOCATION ("warmelt-macro.melt:3793:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3808:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -29051,7 +29416,7 @@ meltrout_60_warmelt_macro_MEXPAND_CODE_CHUNK (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3816:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3831:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -29092,7 +29457,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3817:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3832:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -29101,7 +29466,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:3817:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3832:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -29109,7 +29474,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3817:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3832:/ cond.else");
/*^block */
/*anyblock */
@@ -29123,7 +29488,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3817) ? (3817) : __LINE__, __FUNCTION__);
+ (3832) ? (3832) : __LINE__, __FUNCTION__);
;
}
;
@@ -29138,7 +29503,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3817:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3832:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -29151,7 +29516,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3818:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3833:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -29160,7 +29525,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:3818:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3833:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -29168,7 +29533,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3818:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3833:/ cond.else");
/*^block */
/*anyblock */
@@ -29182,7 +29547,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3818) ? (3818) : __LINE__, __FUNCTION__);
+ (3833) ? (3833) : __LINE__, __FUNCTION__);
;
}
;
@@ -29197,7 +29562,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3818:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3833:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -29208,7 +29573,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3819:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3834:/ quasiblock");
/*^getslot */
@@ -29219,7 +29584,7 @@ lab_endgetargs:;
meltfptr[10] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3820:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3835:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
@@ -29251,14 +29616,14 @@ lab_endgetargs:;
/*_.PAIR_HEAD__V19*/ meltfptr[18] =
(melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:3827:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3842:/ compute");
/*_.CUREL__V18*/ meltfptr[17] = /*_.SETQ___V20*/ meltfptr[19] =
/*_.PAIR_HEAD__V19*/ meltfptr[18];;
/*_#IS_A__L3*/ meltfnum[0] =
melt_is_instance_of ((melt_ptr_t) ( /*_.CUREL__V18*/ meltfptr[17]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
tabval[3])));;
- MELT_LOCATION ("warmelt-macro.melt:3828:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3843:/ cond");
/*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -29266,13 +29631,13 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3829:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3844:/ compute");
/*_.GSYM__V16*/ meltfptr[15] = /*_.SETQ___V22*/ meltfptr[21] =
/*_.CUREL__V18*/ meltfptr[17];;
/*_.IFELSE___V21*/ meltfptr[20] = /*_.SETQ___V22*/ meltfptr[21];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3828:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3843:/ clear");
/*clear *//*_.SETQ___V22*/ meltfptr[21] = 0;
}
;
@@ -29288,7 +29653,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3830:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3845:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.SLOC__V12*/ meltfptr[11]),
("missing symbol in (CODE_CHUNK <state-symbol> <chunk>)"),
(melt_ptr_t) 0);
@@ -29304,17 +29669,17 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V23*/ meltfptr[21] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:3831:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3846:/ compute");
/*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V24*/ meltfptr[23] =
/*_.PAIR_TAIL__V23*/ meltfptr[21];;
/*_.PAIR_HEAD__V25*/ meltfptr[24] =
(melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:3832:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3847:/ compute");
/*_.CURCHK__V15*/ meltfptr[14] = /*_.SETQ___V26*/ meltfptr[25] =
/*_.PAIR_HEAD__V25*/ meltfptr[24];;
/*_.PAIR_TAIL__V27*/ meltfptr[26] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:3833:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3848:/ cond");
/*cond */ if ( /*_.PAIR_TAIL__V27*/ meltfptr[26]) /*then */
{
/*^cond.then */
@@ -29324,7 +29689,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3834:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3849:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.SLOC__V12*/ meltfptr[11]),
("CODE_CHUNK expects one single chunk sexpr"),
(melt_ptr_t) 0);
@@ -29339,7 +29704,7 @@ lab_endgetargs:;
!melt_is_instance_of ((melt_ptr_t) ( /*_.CURCHK__V15*/ meltfptr[14]),
(melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->
tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:3835:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3850:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L4*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -29349,7 +29714,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3836:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3851:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.SLOC__V12*/ meltfptr[11]),
("CODE_CHUNK expects a chunk sexpr"),
(melt_ptr_t) 0);
@@ -29360,7 +29725,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3837:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3852:/ quasiblock");
/*^cond */
@@ -29388,7 +29753,7 @@ lab_endgetargs:;
/*_.LOC__V29*/ meltfptr[28] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3838:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3853:/ cond");
/*cond */ if (
/*ifisa */
melt_is_instance_of ((melt_ptr_t)
@@ -29431,7 +29796,7 @@ lab_endgetargs:;
(melt_magic_discr
((melt_ptr_t) ( /*_.CURCOMP__V32*/ meltfptr[31])) ==
MELTOBMAG_STRING);;
- MELT_LOCATION ("warmelt-macro.melt:3843:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3858:/ cond");
/*cond */ if ( /*_#IS_STRING__L5*/ meltfnum[4]) /*then */
{
/*^cond.then */
@@ -29447,7 +29812,7 @@ lab_endgetargs:;
( /*_.CURCOMP__V32*/ meltfptr[31]))));;
{
- MELT_LOCATION ("warmelt-macro.melt:3844:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3859:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.CHKLIST__V17*/ meltfptr[16]),
(melt_ptr_t) ( /*_.MAKE_STRING__V33*/
@@ -29456,7 +29821,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3843:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3858:/ clear");
/*clear *//*_.MAKE_STRING__V33*/ meltfptr[32] = 0;
}
;
@@ -29474,7 +29839,7 @@ lab_endgetargs:;
(melt_ptr_t) (( /*!CLASS_SYMBOL */
meltfrout->
tabval[3])));;
- MELT_LOCATION ("warmelt-macro.melt:3846:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3861:/ cond");
/*cond */ if ( /*_#IS_A__L6*/ meltfnum[5]) /*then */
{
/*^cond.then */
@@ -29484,7 +29849,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3847:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3862:/ locexp");
meltgc_append_list ((melt_ptr_t)
( /*_.CHKLIST__V17*/
meltfptr[16]),
@@ -29498,7 +29863,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3846:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3861:/ cond.else");
/*^block */
/*anyblock */
@@ -29506,14 +29871,14 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3849:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3864:/ locexp");
melt_error_str ((melt_ptr_t)
( /*_.LOC__V29*/ meltfptr[28]),
("bad content in CODE_CHUNK - expecting string or symbol"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3848:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3863:/ quasiblock");
/*epilog */
@@ -29523,7 +29888,7 @@ lab_endgetargs:;
;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3843:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3858:/ clear");
/*clear *//*_#IS_A__L6*/ meltfnum[5] = 0;
}
;
@@ -29533,7 +29898,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-macro.melt:3840:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3855:/ clear");
/*clear *//*_.CURPAIR__V31*/ meltfptr[30] = 0;
/*^clear */
/*clear *//*_.CURCOMP__V32*/ meltfptr[31] = 0;
@@ -29541,10 +29906,10 @@ lab_endgetargs:;
/*clear *//*_#IS_STRING__L5*/ meltfnum[4] = 0;
} /*endciterblock FOREACH_IN_LIST */
;
- MELT_LOCATION ("warmelt-macro.melt:3851:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3866:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:3852:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3867:/ cond");
/*cond */ if ( /*_.LOC__V29*/ meltfptr[28]) /*then */
{
/*^cond.then */
@@ -29552,12 +29917,12 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3852:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3867:/ cond.else");
/*_.OR___V35*/ meltfptr[34] = /*_.SLOC__V12*/ meltfptr[11];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3854:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3869:/ apply");
/*apply */
{
union meltparam_un argtab[1];
@@ -29573,7 +29938,7 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3851:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3866:/ quasiblock");
/*^rawallocobj */
@@ -29619,7 +29984,7 @@ lab_endgetargs:;
/*_.MRES__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3856:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3871:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -29642,7 +30007,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:3856:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3871:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[5]) /*then */
{
/*^cond.then */
@@ -29652,7 +30017,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:3856:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3871:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -29662,7 +30027,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 3856;
+ argtab[2].meltbp_long = 3871;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_code_chunk result";
/*^apply.arg */
@@ -29682,7 +30047,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3856:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3871:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0;
@@ -29695,7 +30060,7 @@ lab_endgetargs:;
/*_.IF___V40*/ meltfptr[39] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3856:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3871:/ quasiblock");
/*_.PROGN___V42*/ meltfptr[40] = /*_.IF___V40*/ meltfptr[39];;
@@ -29704,7 +30069,7 @@ lab_endgetargs:;
/*_.IFCPP___V39*/ meltfptr[38] = /*_.PROGN___V42*/ meltfptr[40];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3856:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3871:/ clear");
/*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[5] = 0;
/*^clear */
/*clear *//*_.IF___V40*/ meltfptr[39] = 0;
@@ -29717,16 +30082,16 @@ lab_endgetargs:;
/*_.IFCPP___V39*/ meltfptr[38] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3857:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3872:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.MRES__V37*/ meltfptr[36];;
- MELT_LOCATION ("warmelt-macro.melt:3857:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3872:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*_.LET___V34*/ meltfptr[32] = /*_.RETURN___V43*/ meltfptr[39];;
- MELT_LOCATION ("warmelt-macro.melt:3851:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3866:/ clear");
/*clear *//*_.OR___V35*/ meltfptr[34] = 0;
/*^clear */
/*clear *//*_.LIST_TO_MULTIPLE__V36*/ meltfptr[35] = 0;
@@ -29738,7 +30103,7 @@ lab_endgetargs:;
/*clear *//*_.RETURN___V43*/ meltfptr[39] = 0;
/*_.LET___V28*/ meltfptr[27] = /*_.LET___V34*/ meltfptr[32];;
- MELT_LOCATION ("warmelt-macro.melt:3837:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3852:/ clear");
/*clear *//*_.LOC__V29*/ meltfptr[28] = 0;
/*^clear */
/*clear *//*_.CHKCONT__V30*/ meltfptr[29] = 0;
@@ -29746,7 +30111,7 @@ lab_endgetargs:;
/*clear *//*_.LET___V34*/ meltfptr[32] = 0;
/*_.LET___V10*/ meltfptr[8] = /*_.LET___V28*/ meltfptr[27];;
- MELT_LOCATION ("warmelt-macro.melt:3819:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3834:/ clear");
/*clear *//*_.CONT__V11*/ meltfptr[10] = 0;
/*^clear */
/*clear *//*_.SLOC__V12*/ meltfptr[11] = 0;
@@ -29784,11 +30149,11 @@ lab_endgetargs:;
/*clear *//*_#IS_NOT_A__L4*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.LET___V28*/ meltfptr[27] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3816:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3831:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];;
- MELT_LOCATION ("warmelt-macro.melt:3816:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3831:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -29854,10 +30219,10 @@ meltrout_61_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS (meltclosure_ptr_t
struct meltclosure_st *mcfr_clos;
struct excepth_melt_st *mcfr_exh;
struct melt_callframe_st *mcfr_prev;
-#define MELTFRAM_NBVARPTR 36
- void *mcfr_varptr[36];
-#define MELTFRAM_NBVARNUM 6
- long mcfr_varnum[6];
+#define MELTFRAM_NBVARPTR 42
+ void *mcfr_varptr[42];
+#define MELTFRAM_NBVARNUM 9
+ long mcfr_varnum[9];
/*others*/
long _spare_;
}
@@ -29868,13 +30233,13 @@ meltrout_61_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS (meltclosure_ptr_t
int ix = 0;
meltframptr_ = (void *) meltfirstargp_;
gt_ggc_mx_melt_un (meltframptr_->mcfr_clos);
- for (ix = 0; ix < 36; ix++)
+ for (ix = 0; ix < 42; ix++)
if (meltframptr_->mcfr_varptr[ix])
gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]);
return NULL;
} /*end markggc */ ;
memset (&meltfram__, 0, sizeof (meltfram__));
- meltfram__.mcfr_nbvar = 36;
+ meltfram__.mcfr_nbvar = 42;
meltfram__.mcfr_clos = meltclosp_;
meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe;
melt_topframe = (struct melt_callframe_st *) &meltfram__;
@@ -29882,7 +30247,7 @@ meltrout_61_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS (meltclosure_ptr_t
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3867:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3882:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -29923,7 +30288,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3868:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3883:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -29932,7 +30297,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:3868:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3883:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -29940,7 +30305,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3868:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3883:/ cond.else");
/*^block */
/*anyblock */
@@ -29954,7 +30319,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3868) ? (3868) : __LINE__, __FUNCTION__);
+ (3883) ? (3883) : __LINE__, __FUNCTION__);
;
}
;
@@ -29969,7 +30334,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3868:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3883:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -29982,7 +30347,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3869:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3884:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -29991,7 +30356,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:3869:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3884:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -29999,7 +30364,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3869:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3884:/ cond.else");
/*^block */
/*anyblock */
@@ -30013,7 +30378,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3869) ? (3869) : __LINE__, __FUNCTION__);
+ (3884) ? (3884) : __LINE__, __FUNCTION__);
;
}
;
@@ -30028,7 +30393,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3869:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3884:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -30039,57 +30404,202 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3870:/ quasiblock");
+ /*^compute */
+
+ /*_#NULL__L3*/ meltfnum[0] =
+ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:3885:/ cond");
+ /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */
+ {
+ /*^cond.then */
+ /*^block */
+ /*anyblock */
+ {
+ /*^compute */
+ /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V11*/ meltfptr[10] =
+ ( /*!MACROEXPAND_1 */ meltfrout->tabval[2]);;
+ /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];;
+ /*epilog */
- /*_.FIELDS__V11*/ meltfptr[10] = ( /*nil */ NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:3885:/ clear");
+ /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0;
+ }
+ ;
+ }
+ else
+ { /*^cond.else */
+
+ /*_.IF___V10*/ meltfptr[8] = NULL;;
+ }
+ ;
+
+#if MELT_HAVE_DEBUG
+ MELT_LOCATION ("warmelt-macro.melt:3886:/ cppif.then");
+ /*^block */
+ /*anyblock */
+ {
+
+ /*_#IS_CLOSURE__L4*/ meltfnum[3] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) ==
+ MELTOBMAG_CLOSURE);;
+ MELT_LOCATION ("warmelt-macro.melt:3886:/ cond");
+ /*cond */ if ( /*_#IS_CLOSURE__L4*/ meltfnum[3]) /*then */
+ {
+ /*^cond.then */
+ /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);;
+ }
+ else
+ {
+ MELT_LOCATION ("warmelt-macro.melt:3886:/ cond.else");
+
+ /*^block */
+ /*anyblock */
+ {
+
+
+
+
+ {
+ /*^locexp */
+ melt_assert_failed (("check mexpander"),
+ ("warmelt-macro.melt")
+ ? ("warmelt-macro.melt") : __FILE__,
+ (3886) ? (3886) : __LINE__, __FUNCTION__);
+ ;
+ }
+ ;
+ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0;
+ /*epilog */
+ }
+ ;
+ }
+ ;
+ /*^compute */
+
+ /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:3886:/ clear");
+ /*clear *//*_#IS_CLOSURE__L4*/ meltfnum[3] = 0;
+ /*^clear */
+ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0;
+ }
+
+#else /*MELT_HAVE_DEBUG */
+ /*^cppif.else */
+ /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL);
+#endif /*MELT_HAVE_DEBUG */
+ ;
+
+#if MELT_HAVE_DEBUG
+ MELT_LOCATION ("warmelt-macro.melt:3887:/ cppif.then");
+ /*^block */
+ /*anyblock */
+ {
+
+ /*_#IS_OBJECT__L5*/ meltfnum[3] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) ==
+ MELTOBMAG_OBJECT);;
+ MELT_LOCATION ("warmelt-macro.melt:3887:/ cond");
+ /*cond */ if ( /*_#IS_OBJECT__L5*/ meltfnum[3]) /*then */
+ {
+ /*^cond.then */
+ /*_.IFELSE___V15*/ meltfptr[14] = ( /*nil */ NULL);;
+ }
+ else
+ {
+ MELT_LOCATION ("warmelt-macro.melt:3887:/ cond.else");
+
+ /*^block */
+ /*anyblock */
+ {
+
+
+
+
+ {
+ /*^locexp */
+ melt_assert_failed (("check modctx"),
+ ("warmelt-macro.melt")
+ ? ("warmelt-macro.melt") : __FILE__,
+ (3887) ? (3887) : __LINE__, __FUNCTION__);
+ ;
+ }
+ ;
+ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0;
+ /*epilog */
+ }
+ ;
+ }
+ ;
+ /*^compute */
+
+ /*_.IFCPP___V14*/ meltfptr[12] = /*_.IFELSE___V15*/ meltfptr[14];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:3887:/ clear");
+ /*clear *//*_#IS_OBJECT__L5*/ meltfnum[3] = 0;
+ /*^clear */
+ /*clear *//*_.IFELSE___V15*/ meltfptr[14] = 0;
+ }
+
+#else /*MELT_HAVE_DEBUG */
+ /*^cppif.else */
+ /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL);
+#endif /*MELT_HAVE_DEBUG */
+ ;
+ MELT_LOCATION ("warmelt-macro.melt:3888:/ quasiblock");
+
+
+ /*_.FIELDS__V17*/ meltfptr[16] = ( /*nil */ NULL);;
/*^compute */
- /*_.FIELDNAMS__V12*/ meltfptr[11] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3872:/ getslot");
+ /*_.FIELDNAMS__V18*/ meltfptr[17] = ( /*nil */ NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:3890:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
- /*_.CONT__V13*/
- meltfptr[12] = slot;
+ /*_.CONT__V19*/
+ meltfptr[18] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3873:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3891:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
- /*_.LOC__V14*/
- meltfptr[13] = slot;
+ /*_.LOC__V20*/
+ meltfptr[19] = slot;
};
;
- /*_.LIST_FIRST__V15*/ meltfptr[14] =
- (melt_list_first ((melt_ptr_t) ( /*_.CONT__V13*/ meltfptr[12])));;
+ /*_.LIST_FIRST__V21*/ meltfptr[20] =
+ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V19*/ meltfptr[18])));;
/*^compute */
- /*_.CURPAIR__V16*/ meltfptr[15] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V15*/ meltfptr[14])));;
+ /*_.CURPAIR__V22*/ meltfptr[21] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));;
/*^compute */
- /*_.OBJSRC__V17*/ meltfptr[16] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
+ /*_.OBJSRC__V23*/ meltfptr[22] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
/*^compute */
- /*_#IS_A__L3*/ meltfnum[0] =
- melt_is_instance_of ((melt_ptr_t) ( /*_.OBJSRC__V17*/ meltfptr[16]),
+ /*_#IS_A__L6*/ meltfnum[3] =
+ melt_is_instance_of ((melt_ptr_t) ( /*_.OBJSRC__V23*/ meltfptr[22]),
(melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->
tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:3877:/ cond");
- /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3895:/ cond");
+ /*cond */ if ( /*_#IS_A__L6*/ meltfnum[3]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3878:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3896:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -30097,43 +30607,45 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.MACROEXPAND_1__V19*/ meltfptr[18] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.MEXPANDER__V25*/ meltfptr[24] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[2])),
- (melt_ptr_t) ( /*_.OBJSRC__V17*/ meltfptr[16]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.OBJSRC__V23*/ meltfptr[22]),
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
+ ""), argtab, "", (union meltparam_un *) 0);
}
;
- /*_.OBJEXP__V18*/ meltfptr[17] =
- /*_.MACROEXPAND_1__V19*/ meltfptr[18];;
+ /*_.OBJEXP__V24*/ meltfptr[23] = /*_.MEXPANDER__V25*/ meltfptr[24];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3877:/ clear");
- /*clear *//*_.MACROEXPAND_1__V19*/ meltfptr[18] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3895:/ clear");
+ /*clear *//*_.MEXPANDER__V25*/ meltfptr[24] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.OBJEXP__V18*/ meltfptr[17] = /*_.OBJSRC__V17*/ meltfptr[16];;
+ /*_.OBJEXP__V24*/ meltfptr[23] = /*_.OBJSRC__V23*/ meltfptr[22];;
}
;
/*^compute */
- /*_.PAIR_TAIL__V20*/ meltfptr[18] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3881:/ compute");
- /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V21*/ meltfptr[20] =
- /*_.PAIR_TAIL__V20*/ meltfptr[18];;
- MELT_LOCATION ("warmelt-macro.melt:3882:/ quasiblock");
+ /*_.PAIR_TAIL__V26*/ meltfptr[24] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ MELT_LOCATION ("warmelt-macro.melt:3899:/ compute");
+ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V27*/ meltfptr[26] =
+ /*_.PAIR_TAIL__V26*/ meltfptr[24];;
+ MELT_LOCATION ("warmelt-macro.melt:3900:/ quasiblock");
- /*_.FLDLIST__V23*/ meltfptr[22] =
+ /*_.FLDLIST__V29*/ meltfptr[28] =
(meltgc_new_list
((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[3]))));;
- MELT_LOCATION ("warmelt-macro.melt:3884:/ loop");
+ MELT_LOCATION ("warmelt-macro.melt:3902:/ loop");
/*loop */
{
labloop_INSLOOP_6:; /*^loopbody */
@@ -30142,15 +30654,15 @@ lab_endgetargs:;
/*anyblock */
{
- /*_#IS_PAIR__L4*/ meltfnum[3] =
- (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15]))
+ /*_#IS_PAIR__L7*/ meltfnum[6] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21]))
== MELTOBMAG_PAIR);;
/*^compute */
- /*_#NOT__L5*/ meltfnum[4] =
- (!( /*_#IS_PAIR__L4*/ meltfnum[3]));;
- MELT_LOCATION ("warmelt-macro.melt:3885:/ cond");
- /*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */
+ /*_#NOT__L8*/ meltfnum[7] =
+ (!( /*_#IS_PAIR__L7*/ meltfnum[6]));;
+ MELT_LOCATION ("warmelt-macro.melt:3903:/ cond");
+ /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */
{
/*^cond.then */
/*^block */
@@ -30161,7 +30673,7 @@ lab_endgetargs:;
/*^compute */
- /*_.INSLOOP__V25*/ meltfptr[24] = NULL;;
+ /*_.INSLOOP__V31*/ meltfptr[30] = NULL;;
/*^exit */
/*exit */
@@ -30174,20 +30686,20 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3886:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3904:/ quasiblock");
- /*_.CURFKW__V26*/ meltfptr[25] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
+ /*_.CURFKW__V32*/ meltfptr[31] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
/*^compute */
- /*_#IS_NOT_A__L6*/ meltfnum[5] =
+ /*_#IS_NOT_A__L9*/ meltfnum[8] =
!melt_is_instance_of ((melt_ptr_t)
- ( /*_.CURFKW__V26*/ meltfptr[25]),
+ ( /*_.CURFKW__V32*/ meltfptr[31]),
(melt_ptr_t) (( /*!CLASS_KEYWORD */
meltfrout->tabval[4])));;
- MELT_LOCATION ("warmelt-macro.melt:3887:/ cond");
- /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[5]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3905:/ cond");
+ /*cond */ if ( /*_#IS_NOT_A__L9*/ meltfnum[8]) /*then */
{
/*^cond.then */
/*^block */
@@ -30196,8 +30708,8 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3888:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]),
+ MELT_LOCATION ("warmelt-macro.melt:3906:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("expecting heyword in UNSAFE_PUT_FIELDS"),
(melt_ptr_t) 0);
}
@@ -30207,49 +30719,52 @@ lab_endgetargs:;
;
} /*noelse */
;
- /*_.PAIR_TAIL__V27*/ meltfptr[26] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3889:/ compute");
- /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V28*/ meltfptr[27] =
- /*_.PAIR_TAIL__V27*/ meltfptr[26];;
- MELT_LOCATION ("warmelt-macro.melt:3890:/ quasiblock");
+ /*_.PAIR_TAIL__V33*/ meltfptr[32] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ MELT_LOCATION ("warmelt-macro.melt:3907:/ compute");
+ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V34*/ meltfptr[33] =
+ /*_.PAIR_TAIL__V33*/ meltfptr[32];;
+ MELT_LOCATION ("warmelt-macro.melt:3908:/ quasiblock");
- /*_.CUREXP__V29*/ meltfptr[28] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3891:/ quasiblock");
+ /*_.CUREXP__V35*/ meltfptr[34] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ MELT_LOCATION ("warmelt-macro.melt:3909:/ quasiblock");
/*^apply */
/*apply */
{
- union meltparam_un argtab[5];
+ union meltparam_un argtab[6];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
- (melt_ptr_t *) & /*_.LOC__V14*/ meltfptr[13];
+ (melt_ptr_t *) & /*_.LOC__V20*/ meltfptr[19];
/*^apply.arg */
argtab[1].meltbp_aptr =
- (melt_ptr_t *) & /*_.CURFKW__V26*/ meltfptr[25];
+ (melt_ptr_t *) & /*_.CURFKW__V32*/ meltfptr[31];
/*^apply.arg */
argtab[2].meltbp_aptr =
- (melt_ptr_t *) & /*_.CUREXP__V29*/ meltfptr[28];
+ (melt_ptr_t *) & /*_.CUREXP__V35*/ meltfptr[34];
/*^apply.arg */
argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2];
/*^apply.arg */
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.FLDA__V30*/ meltfptr[29] =
+ /*^apply.arg */
+ argtab[5].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.FLDA__V36*/ meltfptr[35] =
melt_apply ((meltclosure_ptr_t)
(( /*!PARSE_FIELD_ASSIGNMENT */ meltfrout->
tabval[5])), (melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
- MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab, "", (union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3892:/ cond");
- /*cond */ if ( /*_.FLDA__V30*/ meltfptr[29]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3910:/ cond");
+ /*cond */ if ( /*_.FLDA__V36*/ meltfptr[35]) /*then */
{
/*^cond.then */
/*^block */
@@ -30258,11 +30773,11 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3893:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3911:/ locexp");
meltgc_append_list ((melt_ptr_t)
- ( /*_.FLDLIST__V23*/ meltfptr[22]),
- (melt_ptr_t) ( /*_.FLDA__V30*/
- meltfptr[29]));
+ ( /*_.FLDLIST__V29*/ meltfptr[28]),
+ (melt_ptr_t) ( /*_.FLDA__V36*/
+ meltfptr[35]));
}
;
/*epilog */
@@ -30271,45 +30786,45 @@ lab_endgetargs:;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3891:/ clear");
- /*clear *//*_.FLDA__V30*/ meltfptr[29] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3909:/ clear");
+ /*clear *//*_.FLDA__V36*/ meltfptr[35] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3890:/ clear");
- /*clear *//*_.CUREXP__V29*/ meltfptr[28] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3908:/ clear");
+ /*clear *//*_.CUREXP__V35*/ meltfptr[34] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3886:/ clear");
- /*clear *//*_.CURFKW__V26*/ meltfptr[25] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3904:/ clear");
+ /*clear *//*_.CURFKW__V32*/ meltfptr[31] = 0;
/*^clear */
- /*clear *//*_#IS_NOT_A__L6*/ meltfnum[5] = 0;
+ /*clear *//*_#IS_NOT_A__L9*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V27*/ meltfptr[26] = 0;
+ /*clear *//*_.PAIR_TAIL__V33*/ meltfptr[32] = 0;
/*^clear */
- /*clear *//*_.SETQ___V28*/ meltfptr[27] = 0;
- /*_.PAIR_TAIL__V31*/ meltfptr[29] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3895:/ compute");
- /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V32*/ meltfptr[28] =
- /*_.PAIR_TAIL__V31*/ meltfptr[29];;
+ /*clear *//*_.SETQ___V34*/ meltfptr[33] = 0;
+ /*_.PAIR_TAIL__V37*/ meltfptr[35] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ MELT_LOCATION ("warmelt-macro.melt:3913:/ compute");
+ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V38*/ meltfptr[34] =
+ /*_.PAIR_TAIL__V37*/ meltfptr[35];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3884:/ clear");
- /*clear *//*_#IS_PAIR__L4*/ meltfnum[3] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3902:/ clear");
+ /*clear *//*_#IS_PAIR__L7*/ meltfnum[6] = 0;
/*^clear */
- /*clear *//*_#NOT__L5*/ meltfnum[4] = 0;
+ /*clear *//*_#NOT__L8*/ meltfnum[7] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V31*/ meltfptr[29] = 0;
+ /*clear *//*_.PAIR_TAIL__V37*/ meltfptr[35] = 0;
/*^clear */
- /*clear *//*_.SETQ___V32*/ meltfptr[28] = 0;
+ /*clear *//*_.SETQ___V38*/ meltfptr[34] = 0;
}
;
;
goto labloop_INSLOOP_6;
labexit_INSLOOP_6:; /*^loopepilog */
/*loopepilog */
- /*_.FOREVER___V24*/ meltfptr[23] = /*_.INSLOOP__V25*/ meltfptr[24];;
+ /*_.FOREVER___V30*/ meltfptr[29] = /*_.INSLOOP__V31*/ meltfptr[30];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3897:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3915:/ quasiblock");
/*^apply */
@@ -30320,15 +30835,15 @@ lab_endgetargs:;
/*^apply.arg */
argtab[0].meltbp_aptr =
(melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[7]);
- /*_.FASTUP__V34*/ meltfptr[26] =
+ /*_.FASTUP__V40*/ meltfptr[32] =
melt_apply ((meltclosure_ptr_t)
(( /*!LIST_TO_MULTIPLE */ meltfrout->tabval[6])),
- (melt_ptr_t) ( /*_.FLDLIST__V23*/ meltfptr[22]),
+ (melt_ptr_t) ( /*_.FLDLIST__V29*/ meltfptr[28]),
(MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3898:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3916:/ quasiblock");
/*^rawallocobj */
@@ -30337,7 +30852,7 @@ lab_endgetargs:;
melt_ptr_t newobj = 0;
melt_raw_object_create (newobj,
(melt_ptr_t) (( /*!CLASS_SOURCE_UNSAFE_PUT_FIELDS */ meltfrout->tabval[8])), (4), "CLASS_SOURCE_UNSAFE_PUT_FIELDS");
- /*_.INST__V36*/ meltfptr[29] =
+ /*_.INST__V42*/ meltfptr[35] =
newobj;
};
;
@@ -30345,77 +30860,77 @@ lab_endgetargs:;
/*putslot */
melt_assertmsg ("putslot checkobj @LOCA_LOCATION",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V36*/ meltfptr[29])) ==
+ ( /*_.INST__V42*/ meltfptr[35])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V36*/ meltfptr[29]), (1),
- ( /*_.LOC__V14*/ meltfptr[13]), "LOCA_LOCATION");
+ melt_putfield_object (( /*_.INST__V42*/ meltfptr[35]), (1),
+ ( /*_.LOC__V20*/ meltfptr[19]), "LOCA_LOCATION");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SUPUT_OBJ",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V36*/ meltfptr[29])) ==
+ ( /*_.INST__V42*/ meltfptr[35])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V36*/ meltfptr[29]), (2),
- ( /*_.OBJEXP__V18*/ meltfptr[17]), "SUPUT_OBJ");
+ melt_putfield_object (( /*_.INST__V42*/ meltfptr[35]), (2),
+ ( /*_.OBJEXP__V24*/ meltfptr[23]), "SUPUT_OBJ");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SUPUT_FIELDS",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V36*/ meltfptr[29])) ==
+ ( /*_.INST__V42*/ meltfptr[35])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V36*/ meltfptr[29]), (3),
- ( /*_.FASTUP__V34*/ meltfptr[26]), "SUPUT_FIELDS");
+ melt_putfield_object (( /*_.INST__V42*/ meltfptr[35]), (3),
+ ( /*_.FASTUP__V40*/ meltfptr[32]), "SUPUT_FIELDS");
;
- /*_.INST___V35*/ meltfptr[27] = /*_.INST__V36*/ meltfptr[29];;
+ /*_.INST___V41*/ meltfptr[33] = /*_.INST__V42*/ meltfptr[35];;
/*^compute */
- /*_.LET___V33*/ meltfptr[25] = /*_.INST___V35*/ meltfptr[27];;
+ /*_.LET___V39*/ meltfptr[31] = /*_.INST___V41*/ meltfptr[33];;
- MELT_LOCATION ("warmelt-macro.melt:3897:/ clear");
- /*clear *//*_.FASTUP__V34*/ meltfptr[26] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3915:/ clear");
+ /*clear *//*_.FASTUP__V40*/ meltfptr[32] = 0;
/*^clear */
- /*clear *//*_.INST___V35*/ meltfptr[27] = 0;
- /*_.LET___V22*/ meltfptr[21] = /*_.LET___V33*/ meltfptr[25];;
+ /*clear *//*_.INST___V41*/ meltfptr[33] = 0;
+ /*_.LET___V28*/ meltfptr[27] = /*_.LET___V39*/ meltfptr[31];;
- MELT_LOCATION ("warmelt-macro.melt:3882:/ clear");
- /*clear *//*_.FLDLIST__V23*/ meltfptr[22] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3900:/ clear");
+ /*clear *//*_.FLDLIST__V29*/ meltfptr[28] = 0;
/*^clear */
- /*clear *//*_.FOREVER___V24*/ meltfptr[23] = 0;
+ /*clear *//*_.FOREVER___V30*/ meltfptr[29] = 0;
/*^clear */
- /*clear *//*_.LET___V33*/ meltfptr[25] = 0;
- /*_.LET___V10*/ meltfptr[8] = /*_.LET___V22*/ meltfptr[21];;
+ /*clear *//*_.LET___V39*/ meltfptr[31] = 0;
+ /*_.LET___V16*/ meltfptr[14] = /*_.LET___V28*/ meltfptr[27];;
- MELT_LOCATION ("warmelt-macro.melt:3870:/ clear");
- /*clear *//*_.FIELDS__V11*/ meltfptr[10] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3888:/ clear");
+ /*clear *//*_.FIELDS__V17*/ meltfptr[16] = 0;
/*^clear */
- /*clear *//*_.FIELDNAMS__V12*/ meltfptr[11] = 0;
+ /*clear *//*_.FIELDNAMS__V18*/ meltfptr[17] = 0;
/*^clear */
- /*clear *//*_.CONT__V13*/ meltfptr[12] = 0;
+ /*clear *//*_.CONT__V19*/ meltfptr[18] = 0;
/*^clear */
- /*clear *//*_.LOC__V14*/ meltfptr[13] = 0;
+ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0;
/*^clear */
- /*clear *//*_.LIST_FIRST__V15*/ meltfptr[14] = 0;
+ /*clear *//*_.LIST_FIRST__V21*/ meltfptr[20] = 0;
/*^clear */
- /*clear *//*_.CURPAIR__V16*/ meltfptr[15] = 0;
+ /*clear *//*_.CURPAIR__V22*/ meltfptr[21] = 0;
/*^clear */
- /*clear *//*_.OBJSRC__V17*/ meltfptr[16] = 0;
+ /*clear *//*_.OBJSRC__V23*/ meltfptr[22] = 0;
/*^clear */
- /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0;
+ /*clear *//*_#IS_A__L6*/ meltfnum[3] = 0;
/*^clear */
- /*clear *//*_.OBJEXP__V18*/ meltfptr[17] = 0;
+ /*clear *//*_.OBJEXP__V24*/ meltfptr[23] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V20*/ meltfptr[18] = 0;
+ /*clear *//*_.PAIR_TAIL__V26*/ meltfptr[24] = 0;
/*^clear */
- /*clear *//*_.SETQ___V21*/ meltfptr[20] = 0;
+ /*clear *//*_.SETQ___V27*/ meltfptr[26] = 0;
/*^clear */
- /*clear *//*_.LET___V22*/ meltfptr[21] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3867:/ quasiblock");
+ /*clear *//*_.LET___V28*/ meltfptr[27] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3882:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];;
- MELT_LOCATION ("warmelt-macro.melt:3867:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V16*/ meltfptr[14];;
+ MELT_LOCATION ("warmelt-macro.melt:3882:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -30425,7 +30940,15 @@ lab_endgetargs:;
/*^clear */
/*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0;
/*^clear */
- /*clear *//*_.LET___V10*/ meltfptr[8] = 0;
+ /*clear *//*_#NULL__L3*/ meltfnum[0] = 0;
+ /*^clear */
+ /*clear *//*_.IF___V10*/ meltfptr[8] = 0;
+ /*^clear */
+ /*clear *//*_.IFCPP___V12*/ meltfptr[10] = 0;
+ /*^clear */
+ /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0;
+ /*^clear */
+ /*clear *//*_.LET___V16*/ meltfptr[14] = 0;
}
;
@@ -30477,10 +31000,10 @@ meltrout_62_warmelt_macro_MEXPAND_PUT_FIELDS (meltclosure_ptr_t meltclosp_,
struct meltclosure_st *mcfr_clos;
struct excepth_melt_st *mcfr_exh;
struct melt_callframe_st *mcfr_prev;
-#define MELTFRAM_NBVARPTR 36
- void *mcfr_varptr[36];
-#define MELTFRAM_NBVARNUM 6
- long mcfr_varnum[6];
+#define MELTFRAM_NBVARPTR 38
+ void *mcfr_varptr[38];
+#define MELTFRAM_NBVARNUM 7
+ long mcfr_varnum[7];
/*others*/
long _spare_;
}
@@ -30491,13 +31014,13 @@ meltrout_62_warmelt_macro_MEXPAND_PUT_FIELDS (meltclosure_ptr_t meltclosp_,
int ix = 0;
meltframptr_ = (void *) meltfirstargp_;
gt_ggc_mx_melt_un (meltframptr_->mcfr_clos);
- for (ix = 0; ix < 36; ix++)
+ for (ix = 0; ix < 38; ix++)
if (meltframptr_->mcfr_varptr[ix])
gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]);
return NULL;
} /*end markggc */ ;
memset (&meltfram__, 0, sizeof (meltfram__));
- meltfram__.mcfr_nbvar = 36;
+ meltfram__.mcfr_nbvar = 38;
meltfram__.mcfr_clos = meltclosp_;
meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe;
melt_topframe = (struct melt_callframe_st *) &meltfram__;
@@ -30505,7 +31028,7 @@ meltrout_62_warmelt_macro_MEXPAND_PUT_FIELDS (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3912:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3930:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -30546,7 +31069,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3913:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3931:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -30555,7 +31078,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:3913:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3931:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -30563,7 +31086,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3913:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3931:/ cond.else");
/*^block */
/*anyblock */
@@ -30577,7 +31100,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3913) ? (3913) : __LINE__, __FUNCTION__);
+ (3931) ? (3931) : __LINE__, __FUNCTION__);
;
}
;
@@ -30592,7 +31115,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3913:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3931:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -30605,7 +31128,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3914:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3932:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -30614,7 +31137,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:3914:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3932:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -30622,7 +31145,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3914:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3932:/ cond.else");
/*^block */
/*anyblock */
@@ -30636,7 +31159,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3914) ? (3914) : __LINE__, __FUNCTION__);
+ (3932) ? (3932) : __LINE__, __FUNCTION__);
;
}
;
@@ -30651,7 +31174,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3914:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3932:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -30662,57 +31185,86 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3915:/ quasiblock");
+ /*^compute */
+
+ /*_#NULL__L3*/ meltfnum[0] =
+ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:3933:/ cond");
+ /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */
+ {
+ /*^cond.then */
+ /*^block */
+ /*anyblock */
+ {
+ /*^compute */
+ /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V11*/ meltfptr[10] =
+ ( /*!MACROEXPAND_1 */ meltfrout->tabval[2]);;
+ /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];;
+ /*epilog */
- /*_.FIELDS__V11*/ meltfptr[10] = ( /*nil */ NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:3933:/ clear");
+ /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0;
+ }
+ ;
+ }
+ else
+ { /*^cond.else */
+
+ /*_.IF___V10*/ meltfptr[8] = NULL;;
+ }
+ ;
+ MELT_LOCATION ("warmelt-macro.melt:3934:/ quasiblock");
+
+
+ /*_.FIELDS__V13*/ meltfptr[12] = ( /*nil */ NULL);;
/*^compute */
- /*_.FIELDNAMS__V12*/ meltfptr[11] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3917:/ getslot");
+ /*_.FIELDNAMS__V14*/ meltfptr[13] = ( /*nil */ NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:3936:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
- /*_.CONT__V13*/
- meltfptr[12] = slot;
+ /*_.CONT__V15*/
+ meltfptr[14] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3918:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3937:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
- /*_.LOC__V14*/
- meltfptr[13] = slot;
+ /*_.LOC__V16*/
+ meltfptr[15] = slot;
};
;
- /*_.LIST_FIRST__V15*/ meltfptr[14] =
- (melt_list_first ((melt_ptr_t) ( /*_.CONT__V13*/ meltfptr[12])));;
+ /*_.LIST_FIRST__V17*/ meltfptr[16] =
+ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V15*/ meltfptr[14])));;
/*^compute */
- /*_.CURPAIR__V16*/ meltfptr[15] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V15*/ meltfptr[14])));;
+ /*_.CURPAIR__V18*/ meltfptr[17] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));;
/*^compute */
- /*_.OBJSRC__V17*/ meltfptr[16] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
+ /*_.OBJSRC__V19*/ meltfptr[18] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
/*^compute */
- /*_#IS_A__L3*/ meltfnum[0] =
- melt_is_instance_of ((melt_ptr_t) ( /*_.OBJSRC__V17*/ meltfptr[16]),
+ /*_#IS_A__L4*/ meltfnum[3] =
+ melt_is_instance_of ((melt_ptr_t) ( /*_.OBJSRC__V19*/ meltfptr[18]),
(melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->
tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:3922:/ cond");
- /*cond */ if ( /*_#IS_A__L3*/ meltfnum[0]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3941:/ cond");
+ /*cond */ if ( /*_#IS_A__L4*/ meltfnum[3]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:3923:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:3942:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -30720,43 +31272,45 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.MACROEXPAND_1__V19*/ meltfptr[18] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.MEXPANDER__V21*/ meltfptr[20] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[2])),
- (melt_ptr_t) ( /*_.OBJSRC__V17*/ meltfptr[16]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.OBJSRC__V19*/ meltfptr[18]),
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
+ ""), argtab, "", (union meltparam_un *) 0);
}
;
- /*_.OBJEXP__V18*/ meltfptr[17] =
- /*_.MACROEXPAND_1__V19*/ meltfptr[18];;
+ /*_.OBJEXP__V20*/ meltfptr[19] = /*_.MEXPANDER__V21*/ meltfptr[20];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3922:/ clear");
- /*clear *//*_.MACROEXPAND_1__V19*/ meltfptr[18] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3941:/ clear");
+ /*clear *//*_.MEXPANDER__V21*/ meltfptr[20] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.OBJEXP__V18*/ meltfptr[17] = /*_.OBJSRC__V17*/ meltfptr[16];;
+ /*_.OBJEXP__V20*/ meltfptr[19] = /*_.OBJSRC__V19*/ meltfptr[18];;
}
;
/*^compute */
- /*_.PAIR_TAIL__V20*/ meltfptr[18] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3926:/ compute");
- /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V21*/ meltfptr[20] =
- /*_.PAIR_TAIL__V20*/ meltfptr[18];;
- MELT_LOCATION ("warmelt-macro.melt:3927:/ quasiblock");
+ /*_.PAIR_TAIL__V22*/ meltfptr[20] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
+ MELT_LOCATION ("warmelt-macro.melt:3945:/ compute");
+ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V23*/ meltfptr[22] =
+ /*_.PAIR_TAIL__V22*/ meltfptr[20];;
+ MELT_LOCATION ("warmelt-macro.melt:3946:/ quasiblock");
- /*_.FLDLIST__V23*/ meltfptr[22] =
+ /*_.FLDLIST__V25*/ meltfptr[24] =
(meltgc_new_list
((meltobject_ptr_t) (( /*!DISCR_LIST */ meltfrout->tabval[3]))));;
- MELT_LOCATION ("warmelt-macro.melt:3929:/ loop");
+ MELT_LOCATION ("warmelt-macro.melt:3948:/ loop");
/*loop */
{
labloop_INSLOOP_7:; /*^loopbody */
@@ -30765,15 +31319,15 @@ lab_endgetargs:;
/*anyblock */
{
- /*_#IS_PAIR__L4*/ meltfnum[3] =
- (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15]))
+ /*_#IS_PAIR__L5*/ meltfnum[4] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17]))
== MELTOBMAG_PAIR);;
/*^compute */
- /*_#NOT__L5*/ meltfnum[4] =
- (!( /*_#IS_PAIR__L4*/ meltfnum[3]));;
- MELT_LOCATION ("warmelt-macro.melt:3930:/ cond");
- /*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */
+ /*_#NOT__L6*/ meltfnum[5] =
+ (!( /*_#IS_PAIR__L5*/ meltfnum[4]));;
+ MELT_LOCATION ("warmelt-macro.melt:3949:/ cond");
+ /*cond */ if ( /*_#NOT__L6*/ meltfnum[5]) /*then */
{
/*^cond.then */
/*^block */
@@ -30784,7 +31338,7 @@ lab_endgetargs:;
/*^compute */
- /*_.INSLOOP__V25*/ meltfptr[24] = NULL;;
+ /*_.INSLOOP__V27*/ meltfptr[26] = NULL;;
/*^exit */
/*exit */
@@ -30797,20 +31351,20 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3931:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3950:/ quasiblock");
- /*_.CURFKW__V26*/ meltfptr[25] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
+ /*_.CURFKW__V28*/ meltfptr[27] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
/*^compute */
- /*_#IS_NOT_A__L6*/ meltfnum[5] =
+ /*_#IS_NOT_A__L7*/ meltfnum[6] =
!melt_is_instance_of ((melt_ptr_t)
- ( /*_.CURFKW__V26*/ meltfptr[25]),
+ ( /*_.CURFKW__V28*/ meltfptr[27]),
(melt_ptr_t) (( /*!CLASS_KEYWORD */
meltfrout->tabval[4])));;
- MELT_LOCATION ("warmelt-macro.melt:3932:/ cond");
- /*cond */ if ( /*_#IS_NOT_A__L6*/ meltfnum[5]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3951:/ cond");
+ /*cond */ if ( /*_#IS_NOT_A__L7*/ meltfnum[6]) /*then */
{
/*^cond.then */
/*^block */
@@ -30819,8 +31373,8 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3933:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V14*/ meltfptr[13]),
+ MELT_LOCATION ("warmelt-macro.melt:3952:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
("expecting heyword in PUT_FIELDS"),
(melt_ptr_t) 0);
}
@@ -30830,49 +31384,52 @@ lab_endgetargs:;
;
} /*noelse */
;
- /*_.PAIR_TAIL__V27*/ meltfptr[26] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3934:/ compute");
- /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V28*/ meltfptr[27] =
- /*_.PAIR_TAIL__V27*/ meltfptr[26];;
- MELT_LOCATION ("warmelt-macro.melt:3935:/ quasiblock");
+ /*_.PAIR_TAIL__V29*/ meltfptr[28] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
+ MELT_LOCATION ("warmelt-macro.melt:3953:/ compute");
+ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V30*/ meltfptr[29] =
+ /*_.PAIR_TAIL__V29*/ meltfptr[28];;
+ MELT_LOCATION ("warmelt-macro.melt:3954:/ quasiblock");
- /*_.CUREXP__V29*/ meltfptr[28] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3936:/ quasiblock");
+ /*_.CUREXP__V31*/ meltfptr[30] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
+ MELT_LOCATION ("warmelt-macro.melt:3955:/ quasiblock");
- /*^apply */
+ MELT_LOCATION ("warmelt-macro.melt:3956:/ apply");
/*apply */
{
- union meltparam_un argtab[5];
+ union meltparam_un argtab[6];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
- (melt_ptr_t *) & /*_.LOC__V14*/ meltfptr[13];
+ (melt_ptr_t *) & /*_.LOC__V16*/ meltfptr[15];
/*^apply.arg */
argtab[1].meltbp_aptr =
- (melt_ptr_t *) & /*_.CURFKW__V26*/ meltfptr[25];
+ (melt_ptr_t *) & /*_.CURFKW__V28*/ meltfptr[27];
/*^apply.arg */
argtab[2].meltbp_aptr =
- (melt_ptr_t *) & /*_.CUREXP__V29*/ meltfptr[28];
+ (melt_ptr_t *) & /*_.CUREXP__V31*/ meltfptr[30];
/*^apply.arg */
argtab[3].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2];
/*^apply.arg */
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.FLDA__V30*/ meltfptr[29] =
+ /*^apply.arg */
+ argtab[5].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.FLDA__V32*/ meltfptr[31] =
melt_apply ((meltclosure_ptr_t)
(( /*!PARSE_FIELD_ASSIGNMENT */ meltfrout->
tabval[5])), (melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
- MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab, "", (union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3937:/ cond");
- /*cond */ if ( /*_.FLDA__V30*/ meltfptr[29]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:3957:/ cond");
+ /*cond */ if ( /*_.FLDA__V32*/ meltfptr[31]) /*then */
{
/*^cond.then */
/*^block */
@@ -30881,11 +31438,11 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3938:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3958:/ locexp");
meltgc_append_list ((melt_ptr_t)
- ( /*_.FLDLIST__V23*/ meltfptr[22]),
- (melt_ptr_t) ( /*_.FLDA__V30*/
- meltfptr[29]));
+ ( /*_.FLDLIST__V25*/ meltfptr[24]),
+ (melt_ptr_t) ( /*_.FLDA__V32*/
+ meltfptr[31]));
}
;
/*epilog */
@@ -30894,45 +31451,45 @@ lab_endgetargs:;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3936:/ clear");
- /*clear *//*_.FLDA__V30*/ meltfptr[29] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3955:/ clear");
+ /*clear *//*_.FLDA__V32*/ meltfptr[31] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3935:/ clear");
- /*clear *//*_.CUREXP__V29*/ meltfptr[28] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3954:/ clear");
+ /*clear *//*_.CUREXP__V31*/ meltfptr[30] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3931:/ clear");
- /*clear *//*_.CURFKW__V26*/ meltfptr[25] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3950:/ clear");
+ /*clear *//*_.CURFKW__V28*/ meltfptr[27] = 0;
/*^clear */
- /*clear *//*_#IS_NOT_A__L6*/ meltfnum[5] = 0;
+ /*clear *//*_#IS_NOT_A__L7*/ meltfnum[6] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V27*/ meltfptr[26] = 0;
+ /*clear *//*_.PAIR_TAIL__V29*/ meltfptr[28] = 0;
/*^clear */
- /*clear *//*_.SETQ___V28*/ meltfptr[27] = 0;
- /*_.PAIR_TAIL__V31*/ meltfptr[29] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V16*/ meltfptr[15])));;
- MELT_LOCATION ("warmelt-macro.melt:3940:/ compute");
- /*_.CURPAIR__V16*/ meltfptr[15] = /*_.SETQ___V32*/ meltfptr[28] =
- /*_.PAIR_TAIL__V31*/ meltfptr[29];;
+ /*clear *//*_.SETQ___V30*/ meltfptr[29] = 0;
+ /*_.PAIR_TAIL__V33*/ meltfptr[31] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
+ MELT_LOCATION ("warmelt-macro.melt:3960:/ compute");
+ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V34*/ meltfptr[30] =
+ /*_.PAIR_TAIL__V33*/ meltfptr[31];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3929:/ clear");
- /*clear *//*_#IS_PAIR__L4*/ meltfnum[3] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3948:/ clear");
+ /*clear *//*_#IS_PAIR__L5*/ meltfnum[4] = 0;
/*^clear */
- /*clear *//*_#NOT__L5*/ meltfnum[4] = 0;
+ /*clear *//*_#NOT__L6*/ meltfnum[5] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V31*/ meltfptr[29] = 0;
+ /*clear *//*_.PAIR_TAIL__V33*/ meltfptr[31] = 0;
/*^clear */
- /*clear *//*_.SETQ___V32*/ meltfptr[28] = 0;
+ /*clear *//*_.SETQ___V34*/ meltfptr[30] = 0;
}
;
;
goto labloop_INSLOOP_7;
labexit_INSLOOP_7:; /*^loopepilog */
/*loopepilog */
- /*_.FOREVER___V24*/ meltfptr[23] = /*_.INSLOOP__V25*/ meltfptr[24];;
+ /*_.FOREVER___V26*/ meltfptr[25] = /*_.INSLOOP__V27*/ meltfptr[26];;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3942:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3962:/ quasiblock");
/*^apply */
@@ -30943,15 +31500,15 @@ lab_endgetargs:;
/*^apply.arg */
argtab[0].meltbp_aptr =
(melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[7]);
- /*_.FASTUP__V34*/ meltfptr[26] =
+ /*_.FASTUP__V36*/ meltfptr[28] =
melt_apply ((meltclosure_ptr_t)
(( /*!LIST_TO_MULTIPLE */ meltfrout->tabval[6])),
- (melt_ptr_t) ( /*_.FLDLIST__V23*/ meltfptr[22]),
+ (melt_ptr_t) ( /*_.FLDLIST__V25*/ meltfptr[24]),
(MELTBPARSTR_PTR ""), argtab, "",
(union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3943:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3963:/ quasiblock");
/*^rawallocobj */
@@ -30962,7 +31519,7 @@ lab_endgetargs:;
(melt_ptr_t) (( /*!CLASS_SOURCE_PUT_FIELDS */
meltfrout->tabval[8])), (4),
"CLASS_SOURCE_PUT_FIELDS");
- /*_.INST__V36*/ meltfptr[29] =
+ /*_.INST__V38*/ meltfptr[31] =
newobj;
};
;
@@ -30970,77 +31527,77 @@ lab_endgetargs:;
/*putslot */
melt_assertmsg ("putslot checkobj @LOCA_LOCATION",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V36*/ meltfptr[29])) ==
+ ( /*_.INST__V38*/ meltfptr[31])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V36*/ meltfptr[29]), (1),
- ( /*_.LOC__V14*/ meltfptr[13]), "LOCA_LOCATION");
+ melt_putfield_object (( /*_.INST__V38*/ meltfptr[31]), (1),
+ ( /*_.LOC__V16*/ meltfptr[15]), "LOCA_LOCATION");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SUPUT_OBJ",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V36*/ meltfptr[29])) ==
+ ( /*_.INST__V38*/ meltfptr[31])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V36*/ meltfptr[29]), (2),
- ( /*_.OBJEXP__V18*/ meltfptr[17]), "SUPUT_OBJ");
+ melt_putfield_object (( /*_.INST__V38*/ meltfptr[31]), (2),
+ ( /*_.OBJEXP__V20*/ meltfptr[19]), "SUPUT_OBJ");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SUPUT_FIELDS",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V36*/ meltfptr[29])) ==
+ ( /*_.INST__V38*/ meltfptr[31])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V36*/ meltfptr[29]), (3),
- ( /*_.FASTUP__V34*/ meltfptr[26]), "SUPUT_FIELDS");
+ melt_putfield_object (( /*_.INST__V38*/ meltfptr[31]), (3),
+ ( /*_.FASTUP__V36*/ meltfptr[28]), "SUPUT_FIELDS");
;
- /*_.INST___V35*/ meltfptr[27] = /*_.INST__V36*/ meltfptr[29];;
+ /*_.INST___V37*/ meltfptr[29] = /*_.INST__V38*/ meltfptr[31];;
/*^compute */
- /*_.LET___V33*/ meltfptr[25] = /*_.INST___V35*/ meltfptr[27];;
+ /*_.LET___V35*/ meltfptr[27] = /*_.INST___V37*/ meltfptr[29];;
- MELT_LOCATION ("warmelt-macro.melt:3942:/ clear");
- /*clear *//*_.FASTUP__V34*/ meltfptr[26] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3962:/ clear");
+ /*clear *//*_.FASTUP__V36*/ meltfptr[28] = 0;
/*^clear */
- /*clear *//*_.INST___V35*/ meltfptr[27] = 0;
- /*_.LET___V22*/ meltfptr[21] = /*_.LET___V33*/ meltfptr[25];;
+ /*clear *//*_.INST___V37*/ meltfptr[29] = 0;
+ /*_.LET___V24*/ meltfptr[23] = /*_.LET___V35*/ meltfptr[27];;
- MELT_LOCATION ("warmelt-macro.melt:3927:/ clear");
- /*clear *//*_.FLDLIST__V23*/ meltfptr[22] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3946:/ clear");
+ /*clear *//*_.FLDLIST__V25*/ meltfptr[24] = 0;
/*^clear */
- /*clear *//*_.FOREVER___V24*/ meltfptr[23] = 0;
+ /*clear *//*_.FOREVER___V26*/ meltfptr[25] = 0;
/*^clear */
- /*clear *//*_.LET___V33*/ meltfptr[25] = 0;
- /*_.LET___V10*/ meltfptr[8] = /*_.LET___V22*/ meltfptr[21];;
+ /*clear *//*_.LET___V35*/ meltfptr[27] = 0;
+ /*_.LET___V12*/ meltfptr[10] = /*_.LET___V24*/ meltfptr[23];;
- MELT_LOCATION ("warmelt-macro.melt:3915:/ clear");
- /*clear *//*_.FIELDS__V11*/ meltfptr[10] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3934:/ clear");
+ /*clear *//*_.FIELDS__V13*/ meltfptr[12] = 0;
/*^clear */
- /*clear *//*_.FIELDNAMS__V12*/ meltfptr[11] = 0;
+ /*clear *//*_.FIELDNAMS__V14*/ meltfptr[13] = 0;
/*^clear */
- /*clear *//*_.CONT__V13*/ meltfptr[12] = 0;
+ /*clear *//*_.CONT__V15*/ meltfptr[14] = 0;
/*^clear */
- /*clear *//*_.LOC__V14*/ meltfptr[13] = 0;
+ /*clear *//*_.LOC__V16*/ meltfptr[15] = 0;
/*^clear */
- /*clear *//*_.LIST_FIRST__V15*/ meltfptr[14] = 0;
+ /*clear *//*_.LIST_FIRST__V17*/ meltfptr[16] = 0;
/*^clear */
- /*clear *//*_.CURPAIR__V16*/ meltfptr[15] = 0;
+ /*clear *//*_.CURPAIR__V18*/ meltfptr[17] = 0;
/*^clear */
- /*clear *//*_.OBJSRC__V17*/ meltfptr[16] = 0;
+ /*clear *//*_.OBJSRC__V19*/ meltfptr[18] = 0;
/*^clear */
- /*clear *//*_#IS_A__L3*/ meltfnum[0] = 0;
+ /*clear *//*_#IS_A__L4*/ meltfnum[3] = 0;
/*^clear */
- /*clear *//*_.OBJEXP__V18*/ meltfptr[17] = 0;
+ /*clear *//*_.OBJEXP__V20*/ meltfptr[19] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V20*/ meltfptr[18] = 0;
+ /*clear *//*_.PAIR_TAIL__V22*/ meltfptr[20] = 0;
/*^clear */
- /*clear *//*_.SETQ___V21*/ meltfptr[20] = 0;
+ /*clear *//*_.SETQ___V23*/ meltfptr[22] = 0;
/*^clear */
- /*clear *//*_.LET___V22*/ meltfptr[21] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3912:/ quasiblock");
+ /*clear *//*_.LET___V24*/ meltfptr[23] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:3930:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];;
- MELT_LOCATION ("warmelt-macro.melt:3912:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];;
+ MELT_LOCATION ("warmelt-macro.melt:3930:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -31050,7 +31607,11 @@ lab_endgetargs:;
/*^clear */
/*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0;
/*^clear */
- /*clear *//*_.LET___V10*/ meltfptr[8] = 0;
+ /*clear *//*_#NULL__L3*/ meltfnum[0] = 0;
+ /*^clear */
+ /*clear *//*_.IF___V10*/ meltfptr[8] = 0;
+ /*^clear */
+ /*clear *//*_.LET___V12*/ meltfptr[10] = 0;
}
;
@@ -31131,7 +31692,7 @@ meltrout_63_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD (meltclosure_ptr_t
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3958:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:3978:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -31172,7 +31733,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3959:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3979:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -31181,7 +31742,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:3959:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3979:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -31189,7 +31750,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3959:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3979:/ cond.else");
/*^block */
/*anyblock */
@@ -31203,7 +31764,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3959) ? (3959) : __LINE__, __FUNCTION__);
+ (3979) ? (3979) : __LINE__, __FUNCTION__);
;
}
;
@@ -31218,7 +31779,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3959:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3979:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -31231,7 +31792,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:3960:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:3980:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -31240,7 +31801,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:3960:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3980:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -31248,7 +31809,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:3960:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:3980:/ cond.else");
/*^block */
/*anyblock */
@@ -31262,7 +31823,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (3960) ? (3960) : __LINE__, __FUNCTION__);
+ (3980) ? (3980) : __LINE__, __FUNCTION__);
;
}
;
@@ -31277,7 +31838,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3960:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3980:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -31288,7 +31849,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:3961:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3981:/ quasiblock");
/*^getslot */
@@ -31299,7 +31860,7 @@ lab_endgetargs:;
meltfptr[10] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3962:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:3982:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
@@ -31323,7 +31884,7 @@ lab_endgetargs:;
!melt_is_instance_of ((melt_ptr_t) ( /*_.CURFKW__V15*/ meltfptr[14]),
(melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->
tabval[2])));;
- MELT_LOCATION ("warmelt-macro.melt:3966:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3986:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L3*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -31333,20 +31894,20 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3968:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3988:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]),
("field keyword expected in UNSAFE_GET_FIELD"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3969:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3989:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3969:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3989:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3967:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3987:/ quasiblock");
/*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];;
@@ -31355,7 +31916,7 @@ lab_endgetargs:;
/*_.IF___V16*/ meltfptr[15] = /*_.PROGN___V18*/ meltfptr[17];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3966:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3986:/ clear");
/*clear *//*_.RETURN___V17*/ meltfptr[16] = 0;
/*^clear */
/*clear *//*_.PROGN___V18*/ meltfptr[17] = 0;
@@ -31372,10 +31933,10 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V19*/ meltfptr[16] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:3970:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3990:/ compute");
/*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V20*/ meltfptr[17] =
/*_.PAIR_TAIL__V19*/ meltfptr[16];;
- MELT_LOCATION ("warmelt-macro.melt:3971:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3991:/ quasiblock");
/*_.CUREXP__V22*/ meltfptr[21] =
@@ -31384,10 +31945,10 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V23*/ meltfptr[22] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:3972:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:3992:/ compute");
/*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V24*/ meltfptr[23] =
/*_.PAIR_TAIL__V23*/ meltfptr[22];;
- MELT_LOCATION ("warmelt-macro.melt:3973:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3993:/ cond");
/*cond */ if ( /*_.CURPAIR__V14*/ meltfptr[13]) /*then */
{
/*^cond.then */
@@ -31408,13 +31969,13 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3976:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3996:/ quasiblock");
/*^apply */
/*apply */
{
- union meltparam_un argtab[5];
+ union meltparam_un argtab[6];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V12*/ meltfptr[11];
@@ -31427,13 +31988,15 @@ lab_endgetargs:;
/*^apply.arg */
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
+ /*^apply.arg */
+ argtab[5].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
/*_.FLDA__V26*/ meltfptr[25] =
melt_apply ((meltclosure_ptr_t)
(( /*!PARSE_FIELD_ASSIGNMENT */ meltfrout->tabval[3])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
- MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab, "", (union meltparam_un *) 0);
}
;
/*_#IS_A__L4*/ meltfnum[3] =
@@ -31444,7 +32007,7 @@ lab_endgetargs:;
/*_#NOT__L5*/ meltfnum[4] =
(!( /*_#IS_A__L4*/ meltfnum[3]));;
- MELT_LOCATION ("warmelt-macro.melt:3977:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:3997:/ cond");
/*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */
{
/*^cond.then */
@@ -31454,20 +32017,20 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3979:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:3999:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]),
("bad field and expression in UNSAFE_GET_FIELD"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:3980:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4000:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3980:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4000:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:3978:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3998:/ quasiblock");
/*_.PROGN___V29*/ meltfptr[28] = /*_.RETURN___V28*/ meltfptr[27];;
@@ -31476,7 +32039,7 @@ lab_endgetargs:;
/*_.IF___V27*/ meltfptr[26] = /*_.PROGN___V29*/ meltfptr[28];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:3977:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3997:/ clear");
/*clear *//*_.RETURN___V28*/ meltfptr[27] = 0;
/*^clear */
/*clear *//*_.PROGN___V29*/ meltfptr[28] = 0;
@@ -31489,7 +32052,7 @@ lab_endgetargs:;
/*_.IF___V27*/ meltfptr[26] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:3981:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4001:/ quasiblock");
/*^getslot */
@@ -31500,7 +32063,7 @@ lab_endgetargs:;
meltfptr[28] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:3982:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4002:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.FLDA__V26*/ meltfptr[25]), 3, "SFLA_EXPR");
@@ -31510,7 +32073,7 @@ lab_endgetargs:;
;
/*_#NULL__L6*/ meltfnum[5] =
(( /*_.EXP__V32*/ meltfptr[31]) == NULL);;
- MELT_LOCATION ("warmelt-macro.melt:3983:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4003:/ cond");
/*cond */ if ( /*_#NULL__L6*/ meltfnum[5]) /*then */
{
/*^cond.then */
@@ -31520,7 +32083,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:3984:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:4004:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]),
("missing object expression for (UNSAFE_GET_FIELD :field objexpr)"),
(melt_ptr_t) 0);
@@ -31531,7 +32094,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:3985:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4005:/ quasiblock");
/*^rawallocobj */
@@ -31576,7 +32139,7 @@ lab_endgetargs:;
/*_.LET___V30*/ meltfptr[27] = /*_.INST___V33*/ meltfptr[32];;
- MELT_LOCATION ("warmelt-macro.melt:3981:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4001:/ clear");
/*clear *//*_.FLD__V31*/ meltfptr[28] = 0;
/*^clear */
/*clear *//*_.EXP__V32*/ meltfptr[31] = 0;
@@ -31586,7 +32149,7 @@ lab_endgetargs:;
/*clear *//*_.INST___V33*/ meltfptr[32] = 0;
/*_.LET___V25*/ meltfptr[24] = /*_.LET___V30*/ meltfptr[27];;
- MELT_LOCATION ("warmelt-macro.melt:3976:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3996:/ clear");
/*clear *//*_.FLDA__V26*/ meltfptr[25] = 0;
/*^clear */
/*clear *//*_#IS_A__L4*/ meltfnum[3] = 0;
@@ -31598,7 +32161,7 @@ lab_endgetargs:;
/*clear *//*_.LET___V30*/ meltfptr[27] = 0;
/*_.LET___V21*/ meltfptr[20] = /*_.LET___V25*/ meltfptr[24];;
- MELT_LOCATION ("warmelt-macro.melt:3971:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3991:/ clear");
/*clear *//*_.CUREXP__V22*/ meltfptr[21] = 0;
/*^clear */
/*clear *//*_.PAIR_TAIL__V23*/ meltfptr[22] = 0;
@@ -31608,7 +32171,7 @@ lab_endgetargs:;
/*clear *//*_.LET___V25*/ meltfptr[24] = 0;
/*_.LET___V10*/ meltfptr[8] = /*_.LET___V21*/ meltfptr[20];;
- MELT_LOCATION ("warmelt-macro.melt:3961:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:3981:/ clear");
/*clear *//*_.CONT__V11*/ meltfptr[10] = 0;
/*^clear */
/*clear *//*_.LOC__V12*/ meltfptr[11] = 0;
@@ -31628,11 +32191,11 @@ lab_endgetargs:;
/*clear *//*_.SETQ___V20*/ meltfptr[17] = 0;
/*^clear */
/*clear *//*_.LET___V21*/ meltfptr[20] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3958:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:3978:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];;
- MELT_LOCATION ("warmelt-macro.melt:3958:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:3978:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -31722,7 +32285,7 @@ meltrout_64_warmelt_macro_MEXPAND_GET_FIELD (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:3999:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:4019:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -31763,7 +32326,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4000:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4020:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -31772,7 +32335,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:4000:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4020:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -31780,7 +32343,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4000:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4020:/ cond.else");
/*^block */
/*anyblock */
@@ -31794,7 +32357,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (4000) ? (4000) : __LINE__, __FUNCTION__);
+ (4020) ? (4020) : __LINE__, __FUNCTION__);
;
}
;
@@ -31809,7 +32372,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4000:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4020:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -31822,7 +32385,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4001:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4021:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -31831,7 +32394,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:4001:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4021:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -31839,7 +32402,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4001:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4021:/ cond.else");
/*^block */
/*anyblock */
@@ -31853,7 +32416,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (4001) ? (4001) : __LINE__, __FUNCTION__);
+ (4021) ? (4021) : __LINE__, __FUNCTION__);
;
}
;
@@ -31868,7 +32431,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4001:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4021:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -31879,7 +32442,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4002:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4022:/ quasiblock");
/*^getslot */
@@ -31890,7 +32453,7 @@ lab_endgetargs:;
meltfptr[10] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:4003:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4023:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
@@ -31914,7 +32477,7 @@ lab_endgetargs:;
!melt_is_instance_of ((melt_ptr_t) ( /*_.CURFKW__V15*/ meltfptr[14]),
(melt_ptr_t) (( /*!CLASS_KEYWORD */ meltfrout->
tabval[2])));;
- MELT_LOCATION ("warmelt-macro.melt:4007:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4027:/ cond");
/*cond */ if ( /*_#IS_NOT_A__L3*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -31924,20 +32487,20 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:4009:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:4029:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]),
("field keyword expected in GET_FIELD"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:4010:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4030:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:4010:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4030:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:4008:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4028:/ quasiblock");
/*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];;
@@ -31946,7 +32509,7 @@ lab_endgetargs:;
/*_.IF___V16*/ meltfptr[15] = /*_.PROGN___V18*/ meltfptr[17];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4007:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4027:/ clear");
/*clear *//*_.RETURN___V17*/ meltfptr[16] = 0;
/*^clear */
/*clear *//*_.PROGN___V18*/ meltfptr[17] = 0;
@@ -31963,10 +32526,10 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V19*/ meltfptr[16] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:4011:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:4031:/ compute");
/*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V20*/ meltfptr[17] =
/*_.PAIR_TAIL__V19*/ meltfptr[16];;
- MELT_LOCATION ("warmelt-macro.melt:4012:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4032:/ quasiblock");
/*_.CUREXP__V22*/ meltfptr[21] =
@@ -31975,10 +32538,10 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V23*/ meltfptr[22] =
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:4013:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:4033:/ compute");
/*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V24*/ meltfptr[23] =
/*_.PAIR_TAIL__V23*/ meltfptr[22];;
- MELT_LOCATION ("warmelt-macro.melt:4014:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4034:/ cond");
/*cond */ if ( /*_.CURPAIR__V14*/ meltfptr[13]) /*then */
{
/*^cond.then */
@@ -31999,13 +32562,13 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:4017:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4037:/ quasiblock");
/*^apply */
/*apply */
{
- union meltparam_un argtab[5];
+ union meltparam_un argtab[6];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.LOC__V12*/ meltfptr[11];
@@ -32018,13 +32581,15 @@ lab_endgetargs:;
/*^apply.arg */
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
+ /*^apply.arg */
+ argtab[5].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
/*_.FLDA__V26*/ meltfptr[25] =
melt_apply ((meltclosure_ptr_t)
(( /*!PARSE_FIELD_ASSIGNMENT */ meltfrout->tabval[3])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
- MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab, "", (union meltparam_un *) 0);
}
;
/*_#IS_A__L4*/ meltfnum[3] =
@@ -32035,7 +32600,7 @@ lab_endgetargs:;
/*_#NOT__L5*/ meltfnum[4] =
(!( /*_#IS_A__L4*/ meltfnum[3]));;
- MELT_LOCATION ("warmelt-macro.melt:4018:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4038:/ cond");
/*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */
{
/*^cond.then */
@@ -32045,20 +32610,20 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:4020:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:4040:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]),
("bad field and expression in GET_FIELD"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:4021:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4041:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:4021:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4041:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:4019:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4039:/ quasiblock");
/*_.PROGN___V29*/ meltfptr[28] = /*_.RETURN___V28*/ meltfptr[27];;
@@ -32067,7 +32632,7 @@ lab_endgetargs:;
/*_.IF___V27*/ meltfptr[26] = /*_.PROGN___V29*/ meltfptr[28];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4018:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4038:/ clear");
/*clear *//*_.RETURN___V28*/ meltfptr[27] = 0;
/*^clear */
/*clear *//*_.PROGN___V29*/ meltfptr[28] = 0;
@@ -32080,7 +32645,7 @@ lab_endgetargs:;
/*_.IF___V27*/ meltfptr[26] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4022:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4042:/ quasiblock");
/*^getslot */
@@ -32091,7 +32656,7 @@ lab_endgetargs:;
meltfptr[28] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:4023:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4043:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.FLDA__V26*/ meltfptr[25]), 3, "SFLA_EXPR");
@@ -32101,7 +32666,7 @@ lab_endgetargs:;
;
/*_#NULL__L6*/ meltfnum[5] =
(( /*_.EXP__V32*/ meltfptr[31]) == NULL);;
- MELT_LOCATION ("warmelt-macro.melt:4024:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4044:/ cond");
/*cond */ if ( /*_#NULL__L6*/ meltfnum[5]) /*then */
{
/*^cond.then */
@@ -32111,7 +32676,7 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:4025:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:4045:/ locexp");
melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]),
("missing object expression for (GET_FIELD :field objexpr)"),
(melt_ptr_t) 0);
@@ -32122,7 +32687,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:4026:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4046:/ quasiblock");
/*^rawallocobj */
@@ -32169,7 +32734,7 @@ lab_endgetargs:;
/*_.LET___V30*/ meltfptr[27] = /*_.INST___V33*/ meltfptr[32];;
- MELT_LOCATION ("warmelt-macro.melt:4022:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4042:/ clear");
/*clear *//*_.FLD__V31*/ meltfptr[28] = 0;
/*^clear */
/*clear *//*_.EXP__V32*/ meltfptr[31] = 0;
@@ -32179,7 +32744,7 @@ lab_endgetargs:;
/*clear *//*_.INST___V33*/ meltfptr[32] = 0;
/*_.LET___V25*/ meltfptr[24] = /*_.LET___V30*/ meltfptr[27];;
- MELT_LOCATION ("warmelt-macro.melt:4017:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4037:/ clear");
/*clear *//*_.FLDA__V26*/ meltfptr[25] = 0;
/*^clear */
/*clear *//*_#IS_A__L4*/ meltfnum[3] = 0;
@@ -32191,7 +32756,7 @@ lab_endgetargs:;
/*clear *//*_.LET___V30*/ meltfptr[27] = 0;
/*_.LET___V21*/ meltfptr[20] = /*_.LET___V25*/ meltfptr[24];;
- MELT_LOCATION ("warmelt-macro.melt:4012:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4032:/ clear");
/*clear *//*_.CUREXP__V22*/ meltfptr[21] = 0;
/*^clear */
/*clear *//*_.PAIR_TAIL__V23*/ meltfptr[22] = 0;
@@ -32201,7 +32766,7 @@ lab_endgetargs:;
/*clear *//*_.LET___V25*/ meltfptr[24] = 0;
/*_.LET___V10*/ meltfptr[8] = /*_.LET___V21*/ meltfptr[20];;
- MELT_LOCATION ("warmelt-macro.melt:4002:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4022:/ clear");
/*clear *//*_.CONT__V11*/ meltfptr[10] = 0;
/*^clear */
/*clear *//*_.LOC__V12*/ meltfptr[11] = 0;
@@ -32221,11 +32786,11 @@ lab_endgetargs:;
/*clear *//*_.SETQ___V20*/ meltfptr[17] = 0;
/*^clear */
/*clear *//*_.LET___V21*/ meltfptr[20] = 0;
- MELT_LOCATION ("warmelt-macro.melt:3999:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4019:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];;
- MELT_LOCATION ("warmelt-macro.melt:3999:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4019:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -32285,10 +32850,10 @@ meltrout_65_warmelt_macro_MEXPAND_SETQ (meltclosure_ptr_t meltclosp_,
struct meltclosure_st *mcfr_clos;
struct excepth_melt_st *mcfr_exh;
struct melt_callframe_st *mcfr_prev;
-#define MELTFRAM_NBVARPTR 27
- void *mcfr_varptr[27];
-#define MELTFRAM_NBVARNUM 3
- long mcfr_varnum[3];
+#define MELTFRAM_NBVARPTR 31
+ void *mcfr_varptr[31];
+#define MELTFRAM_NBVARNUM 5
+ long mcfr_varnum[5];
/*others*/
long _spare_;
}
@@ -32299,13 +32864,13 @@ meltrout_65_warmelt_macro_MEXPAND_SETQ (meltclosure_ptr_t meltclosp_,
int ix = 0;
meltframptr_ = (void *) meltfirstargp_;
gt_ggc_mx_melt_un (meltframptr_->mcfr_clos);
- for (ix = 0; ix < 27; ix++)
+ for (ix = 0; ix < 31; ix++)
if (meltframptr_->mcfr_varptr[ix])
gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]);
return NULL;
} /*end markggc */ ;
memset (&meltfram__, 0, sizeof (meltfram__));
- meltfram__.mcfr_nbvar = 27;
+ meltfram__.mcfr_nbvar = 31;
meltfram__.mcfr_clos = meltclosp_;
meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe;
melt_topframe = (struct melt_callframe_st *) &meltfram__;
@@ -32313,7 +32878,7 @@ meltrout_65_warmelt_macro_MEXPAND_SETQ (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:4041:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:4061:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -32354,7 +32919,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4042:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4062:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -32363,7 +32928,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:4042:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4062:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -32371,7 +32936,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4042:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4062:/ cond.else");
/*^block */
/*anyblock */
@@ -32385,7 +32950,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (4042) ? (4042) : __LINE__, __FUNCTION__);
+ (4062) ? (4062) : __LINE__, __FUNCTION__);
;
}
;
@@ -32400,7 +32965,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4042:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4062:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -32413,7 +32978,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4043:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4063:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -32422,7 +32987,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:4043:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4063:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -32430,7 +32995,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4043:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4063:/ cond.else");
/*^block */
/*anyblock */
@@ -32444,7 +33009,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (4043) ? (4043) : __LINE__, __FUNCTION__);
+ (4063) ? (4063) : __LINE__, __FUNCTION__);
;
}
;
@@ -32459,7 +33024,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4043:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4063:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -32470,43 +33035,130 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4044:/ quasiblock");
+ /*^compute */
+
+ /*_#NULL__L3*/ meltfnum[0] =
+ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:4064:/ cond");
+ /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */
+ {
+ /*^cond.then */
+ /*^block */
+ /*anyblock */
+ {
+
+ /*^compute */
+ /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V11*/ meltfptr[10] =
+ ( /*!MACROEXPAND_1 */ meltfrout->tabval[2]);;
+ /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:4064:/ clear");
+ /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0;
+ }
+ ;
+ }
+ else
+ { /*^cond.else */
+
+ /*_.IF___V10*/ meltfptr[8] = NULL;;
+ }
+ ;
+
+#if MELT_HAVE_DEBUG
+ MELT_LOCATION ("warmelt-macro.melt:4065:/ cppif.then");
+ /*^block */
+ /*anyblock */
+ {
+
+ /*_#IS_OBJECT__L4*/ meltfnum[3] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) ==
+ MELTOBMAG_OBJECT);;
+ MELT_LOCATION ("warmelt-macro.melt:4065:/ cond");
+ /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[3]) /*then */
+ {
+ /*^cond.then */
+ /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);;
+ }
+ else
+ {
+ MELT_LOCATION ("warmelt-macro.melt:4065:/ cond.else");
+
+ /*^block */
+ /*anyblock */
+ {
+
+
+
+
+ {
+ /*^locexp */
+ melt_assert_failed (("check modctx"),
+ ("warmelt-macro.melt")
+ ? ("warmelt-macro.melt") : __FILE__,
+ (4065) ? (4065) : __LINE__, __FUNCTION__);
+ ;
+ }
+ ;
+ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0;
+ /*epilog */
+ }
+ ;
+ }
+ ;
+ /*^compute */
+
+ /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:4065:/ clear");
+ /*clear *//*_#IS_OBJECT__L4*/ meltfnum[3] = 0;
+ /*^clear */
+ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0;
+ }
+
+#else /*MELT_HAVE_DEBUG */
+ /*^cppif.else */
+ /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL);
+#endif /*MELT_HAVE_DEBUG */
+ ;
+ MELT_LOCATION ("warmelt-macro.melt:4066:/ quasiblock");
/*^getslot */
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
- /*_.CONT__V11*/
- meltfptr[10] = slot;
+ /*_.CONT__V15*/
+ meltfptr[14] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:4045:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4067:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
- /*_.LOC__V12*/
- meltfptr[11] = slot;
+ /*_.LOC__V16*/
+ meltfptr[15] = slot;
};
;
- /*_.LIST_FIRST__V13*/ meltfptr[12] =
- (melt_list_first ((melt_ptr_t) ( /*_.CONT__V11*/ meltfptr[10])));;
+ /*_.LIST_FIRST__V17*/ meltfptr[16] =
+ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V15*/ meltfptr[14])));;
/*^compute */
- /*_.CURPAIR__V14*/ meltfptr[13] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V13*/ meltfptr[12])));;
+ /*_.CURPAIR__V18*/ meltfptr[17] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));;
/*^compute */
- /*_.CURSYM__V15*/ meltfptr[14] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
+ /*_.CURSYM__V19*/ meltfptr[18] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
/*^compute */
- /*_#IS_NOT_A__L3*/ meltfnum[0] =
- !melt_is_instance_of ((melt_ptr_t) ( /*_.CURSYM__V15*/ meltfptr[14]),
+ /*_#IS_NOT_A__L5*/ meltfnum[3] =
+ !melt_is_instance_of ((melt_ptr_t) ( /*_.CURSYM__V19*/ meltfptr[18]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */ meltfrout->
- tabval[2])));;
- MELT_LOCATION ("warmelt-macro.melt:4049:/ cond");
- /*cond */ if ( /*_#IS_NOT_A__L3*/ meltfnum[0]) /*then */
+ tabval[3])));;
+ MELT_LOCATION ("warmelt-macro.melt:4071:/ cond");
+ /*cond */ if ( /*_#IS_NOT_A__L5*/ meltfnum[3]) /*then */
{
/*^cond.then */
/*^block */
@@ -32515,62 +33167,62 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:4051:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]),
+ MELT_LOCATION ("warmelt-macro.melt:4073:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
("var symbol name expected in SETQ"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:4052:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4074:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:4052:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4074:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:4050:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4072:/ quasiblock");
- /*_.PROGN___V18*/ meltfptr[17] = /*_.RETURN___V17*/ meltfptr[16];;
+ /*_.PROGN___V22*/ meltfptr[21] = /*_.RETURN___V21*/ meltfptr[20];;
/*^compute */
- /*_.IF___V16*/ meltfptr[15] = /*_.PROGN___V18*/ meltfptr[17];;
+ /*_.IF___V20*/ meltfptr[19] = /*_.PROGN___V22*/ meltfptr[21];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4049:/ clear");
- /*clear *//*_.RETURN___V17*/ meltfptr[16] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4071:/ clear");
+ /*clear *//*_.RETURN___V21*/ meltfptr[20] = 0;
/*^clear */
- /*clear *//*_.PROGN___V18*/ meltfptr[17] = 0;
+ /*clear *//*_.PROGN___V22*/ meltfptr[21] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V16*/ meltfptr[15] = NULL;;
+ /*_.IF___V20*/ meltfptr[19] = NULL;;
}
;
/*^compute */
- /*_.PAIR_TAIL__V19*/ meltfptr[16] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:4053:/ compute");
- /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V20*/ meltfptr[17] =
- /*_.PAIR_TAIL__V19*/ meltfptr[16];;
- MELT_LOCATION ("warmelt-macro.melt:4054:/ quasiblock");
+ /*_.PAIR_TAIL__V23*/ meltfptr[20] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
+ MELT_LOCATION ("warmelt-macro.melt:4075:/ compute");
+ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V24*/ meltfptr[21] =
+ /*_.PAIR_TAIL__V23*/ meltfptr[20];;
+ MELT_LOCATION ("warmelt-macro.melt:4076:/ quasiblock");
- /*_.CUREXP__V22*/ meltfptr[21] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
+ /*_.CUREXP__V26*/ meltfptr[25] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
/*^compute */
- /*_.PAIR_TAIL__V23*/ meltfptr[22] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V14*/ meltfptr[13])));;
- MELT_LOCATION ("warmelt-macro.melt:4055:/ compute");
- /*_.CURPAIR__V14*/ meltfptr[13] = /*_.SETQ___V24*/ meltfptr[23] =
- /*_.PAIR_TAIL__V23*/ meltfptr[22];;
- MELT_LOCATION ("warmelt-macro.melt:4056:/ cond");
- /*cond */ if ( /*_.CURPAIR__V14*/ meltfptr[13]) /*then */
+ /*_.PAIR_TAIL__V27*/ meltfptr[26] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
+ MELT_LOCATION ("warmelt-macro.melt:4077:/ compute");
+ /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V28*/ meltfptr[27] =
+ /*_.PAIR_TAIL__V27*/ meltfptr[26];;
+ MELT_LOCATION ("warmelt-macro.melt:4078:/ cond");
+ /*cond */ if ( /*_.CURPAIR__V18*/ meltfptr[17]) /*then */
{
/*^cond.then */
/*^block */
@@ -32580,7 +33232,7 @@ lab_endgetargs:;
{
/*^locexp */
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V12*/ meltfptr[11]),
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
("SETQ with more than two sons"), (melt_ptr_t) 0);
}
;
@@ -32589,25 +33241,26 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:4060:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4082:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2];
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.MACROEXPAND_1__V25*/ meltfptr[24] =
- melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[4])),
- (melt_ptr_t) ( /*_.CUREXP__V22*/ meltfptr[21]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ /*^apply.arg */
+ argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.MEXPANDER__V29*/ meltfptr[28] =
+ melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.CUREXP__V26*/ meltfptr[25]),
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab, "", (union meltparam_un *) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:4057:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4079:/ quasiblock");
/*^rawallocobj */
@@ -32616,9 +33269,9 @@ lab_endgetargs:;
melt_ptr_t newobj = 0;
melt_raw_object_create (newobj,
(melt_ptr_t) (( /*!CLASS_SOURCE_SETQ */
- meltfrout->tabval[3])), (4),
+ meltfrout->tabval[4])), (4),
"CLASS_SOURCE_SETQ");
- /*_.INST__V27*/ meltfptr[26] =
+ /*_.INST__V31*/ meltfptr[30] =
newobj;
};
;
@@ -32626,72 +33279,71 @@ lab_endgetargs:;
/*putslot */
melt_assertmsg ("putslot checkobj @LOCA_LOCATION",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V27*/ meltfptr[26])) ==
+ ( /*_.INST__V31*/ meltfptr[30])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V27*/ meltfptr[26]), (1),
- ( /*_.LOC__V12*/ meltfptr[11]), "LOCA_LOCATION");
+ melt_putfield_object (( /*_.INST__V31*/ meltfptr[30]), (1),
+ ( /*_.LOC__V16*/ meltfptr[15]), "LOCA_LOCATION");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SSTQ_VAR",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V27*/ meltfptr[26])) ==
+ ( /*_.INST__V31*/ meltfptr[30])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V27*/ meltfptr[26]), (2),
- ( /*_.CURSYM__V15*/ meltfptr[14]), "SSTQ_VAR");
+ melt_putfield_object (( /*_.INST__V31*/ meltfptr[30]), (2),
+ ( /*_.CURSYM__V19*/ meltfptr[18]), "SSTQ_VAR");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SSTQ_EXPR",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V27*/ meltfptr[26])) ==
+ ( /*_.INST__V31*/ meltfptr[30])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V27*/ meltfptr[26]), (3),
- ( /*_.MACROEXPAND_1__V25*/ meltfptr[24]),
- "SSTQ_EXPR");
+ melt_putfield_object (( /*_.INST__V31*/ meltfptr[30]), (3),
+ ( /*_.MEXPANDER__V29*/ meltfptr[28]), "SSTQ_EXPR");
;
- /*_.INST___V26*/ meltfptr[25] = /*_.INST__V27*/ meltfptr[26];;
+ /*_.INST___V30*/ meltfptr[29] = /*_.INST__V31*/ meltfptr[30];;
/*^compute */
- /*_.LET___V21*/ meltfptr[20] = /*_.INST___V26*/ meltfptr[25];;
+ /*_.LET___V25*/ meltfptr[24] = /*_.INST___V30*/ meltfptr[29];;
- MELT_LOCATION ("warmelt-macro.melt:4054:/ clear");
- /*clear *//*_.CUREXP__V22*/ meltfptr[21] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4076:/ clear");
+ /*clear *//*_.CUREXP__V26*/ meltfptr[25] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V23*/ meltfptr[22] = 0;
+ /*clear *//*_.PAIR_TAIL__V27*/ meltfptr[26] = 0;
/*^clear */
- /*clear *//*_.SETQ___V24*/ meltfptr[23] = 0;
+ /*clear *//*_.SETQ___V28*/ meltfptr[27] = 0;
/*^clear */
- /*clear *//*_.MACROEXPAND_1__V25*/ meltfptr[24] = 0;
+ /*clear *//*_.MEXPANDER__V29*/ meltfptr[28] = 0;
/*^clear */
- /*clear *//*_.INST___V26*/ meltfptr[25] = 0;
- /*_.LET___V10*/ meltfptr[8] = /*_.LET___V21*/ meltfptr[20];;
+ /*clear *//*_.INST___V30*/ meltfptr[29] = 0;
+ /*_.LET___V14*/ meltfptr[12] = /*_.LET___V25*/ meltfptr[24];;
- MELT_LOCATION ("warmelt-macro.melt:4044:/ clear");
- /*clear *//*_.CONT__V11*/ meltfptr[10] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4066:/ clear");
+ /*clear *//*_.CONT__V15*/ meltfptr[14] = 0;
/*^clear */
- /*clear *//*_.LOC__V12*/ meltfptr[11] = 0;
+ /*clear *//*_.LOC__V16*/ meltfptr[15] = 0;
/*^clear */
- /*clear *//*_.LIST_FIRST__V13*/ meltfptr[12] = 0;
+ /*clear *//*_.LIST_FIRST__V17*/ meltfptr[16] = 0;
/*^clear */
- /*clear *//*_.CURPAIR__V14*/ meltfptr[13] = 0;
+ /*clear *//*_.CURPAIR__V18*/ meltfptr[17] = 0;
/*^clear */
- /*clear *//*_.CURSYM__V15*/ meltfptr[14] = 0;
+ /*clear *//*_.CURSYM__V19*/ meltfptr[18] = 0;
/*^clear */
- /*clear *//*_#IS_NOT_A__L3*/ meltfnum[0] = 0;
+ /*clear *//*_#IS_NOT_A__L5*/ meltfnum[3] = 0;
/*^clear */
- /*clear *//*_.IF___V16*/ meltfptr[15] = 0;
+ /*clear *//*_.IF___V20*/ meltfptr[19] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V19*/ meltfptr[16] = 0;
+ /*clear *//*_.PAIR_TAIL__V23*/ meltfptr[20] = 0;
/*^clear */
- /*clear *//*_.SETQ___V20*/ meltfptr[17] = 0;
+ /*clear *//*_.SETQ___V24*/ meltfptr[21] = 0;
/*^clear */
- /*clear *//*_.LET___V21*/ meltfptr[20] = 0;
- MELT_LOCATION ("warmelt-macro.melt:4041:/ quasiblock");
+ /*clear *//*_.LET___V25*/ meltfptr[24] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4061:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];;
- MELT_LOCATION ("warmelt-macro.melt:4041:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];;
+ MELT_LOCATION ("warmelt-macro.melt:4061:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -32701,7 +33353,13 @@ lab_endgetargs:;
/*^clear */
/*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0;
/*^clear */
- /*clear *//*_.LET___V10*/ meltfptr[8] = 0;
+ /*clear *//*_#NULL__L3*/ meltfnum[0] = 0;
+ /*^clear */
+ /*clear *//*_.IF___V10*/ meltfptr[8] = 0;
+ /*^clear */
+ /*clear *//*_.IFCPP___V12*/ meltfptr[10] = 0;
+ /*^clear */
+ /*clear *//*_.LET___V14*/ meltfptr[12] = 0;
}
;
@@ -32751,10 +33409,10 @@ meltrout_66_warmelt_macro_MEXPAND_IF (meltclosure_ptr_t meltclosp_,
struct meltclosure_st *mcfr_clos;
struct excepth_melt_st *mcfr_exh;
struct melt_callframe_st *mcfr_prev;
-#define MELTFRAM_NBVARPTR 63
- void *mcfr_varptr[63];
-#define MELTFRAM_NBVARNUM 20
- long mcfr_varnum[20];
+#define MELTFRAM_NBVARPTR 67
+ void *mcfr_varptr[67];
+#define MELTFRAM_NBVARNUM 22
+ long mcfr_varnum[22];
/*others*/
long _spare_;
}
@@ -32765,13 +33423,13 @@ meltrout_66_warmelt_macro_MEXPAND_IF (meltclosure_ptr_t meltclosp_,
int ix = 0;
meltframptr_ = (void *) meltfirstargp_;
gt_ggc_mx_melt_un (meltframptr_->mcfr_clos);
- for (ix = 0; ix < 63; ix++)
+ for (ix = 0; ix < 67; ix++)
if (meltframptr_->mcfr_varptr[ix])
gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]);
return NULL;
} /*end markggc */ ;
memset (&meltfram__, 0, sizeof (meltfram__));
- meltfram__.mcfr_nbvar = 63;
+ meltfram__.mcfr_nbvar = 67;
meltfram__.mcfr_clos = meltclosp_;
meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe;
melt_topframe = (struct melt_callframe_st *) &meltfram__;
@@ -32779,7 +33437,7 @@ meltrout_66_warmelt_macro_MEXPAND_IF (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:4071:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:4093:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -32820,24 +33478,123 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4072:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4094:/ cppif.then");
/*^block */
/*anyblock */
{
- /*_#IS_A__L1*/ meltfnum[0] =
+
+ {
+ /*^locexp */
+ /*melt_increment_dbgcounter */
+#if MELT_HAVE_DEBUG
+ melt_dbgcounter++;
+#endif
+ ;
+ }
+ ;
+ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] =
+ /*MELT_NEED_DBG */
+#if MELT_HAVE_DEBUG
+ ( /*melt_need_dbg */ melt_need_debug ((int) 0))
+#else
+ 0 /* no melt_need_dbg */
+#endif /*MELT_HAVE_DEBUG */
+ ;;
+ MELT_LOCATION ("warmelt-macro.melt:4094:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */
+ {
+ /*^cond.then */
+ /*^block */
+ /*anyblock */
+ {
+
+ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] =
+ meltcallcount;;
+ MELT_LOCATION ("warmelt-macro.melt:4094:/ apply");
+ /*apply */
+ {
+ union meltparam_un argtab[5];
+ memset (&argtab, 0, sizeof (argtab));
+ /*^apply.arg */
+ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1];
+ /*^apply.arg */
+ argtab[1].meltbp_cstring = "warmelt-macro.melt";
+ /*^apply.arg */
+ argtab[2].meltbp_long = 4094;
+ /*^apply.arg */
+ argtab[3].meltbp_cstring = "mexpand_if sexpr";
+ /*^apply.arg */
+ argtab[4].meltbp_aptr =
+ (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1];
+ /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] =
+ melt_apply ((meltclosure_ptr_t)
+ (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
+ (melt_ptr_t) (( /*nil */ NULL)),
+ (MELTBPARSTR_LONG MELTBPARSTR_CSTRING
+ MELTBPARSTR_LONG MELTBPARSTR_CSTRING
+ MELTBPARSTR_PTR ""), argtab, "",
+ (union meltparam_un *) 0);
+ }
+ ;
+ /*_.IF___V7*/ meltfptr[6] = /*_.MELT_DEBUG_FUN__V8*/ meltfptr[7];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:4094:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0;
+ /*^clear */
+ /*clear *//*_.MELT_DEBUG_FUN__V8*/ meltfptr[7] = 0;
+ }
+ ;
+ }
+ else
+ { /*^cond.else */
+
+ /*_.IF___V7*/ meltfptr[6] = NULL;;
+ }
+ ;
+ MELT_LOCATION ("warmelt-macro.melt:4094:/ quasiblock");
+
+
+ /*_.PROGN___V9*/ meltfptr[7] = /*_.IF___V7*/ meltfptr[6];;
+ /*^compute */
+
+ /*_.IFCPP___V6*/ meltfptr[5] = /*_.PROGN___V9*/ meltfptr[7];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:4094:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0;
+ /*^clear */
+ /*clear *//*_.IF___V7*/ meltfptr[6] = 0;
+ /*^clear */
+ /*clear *//*_.PROGN___V9*/ meltfptr[7] = 0;
+ }
+
+#else /*MELT_HAVE_DEBUG */
+ /*^cppif.else */
+ /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL);
+#endif /*MELT_HAVE_DEBUG */
+ ;
+
+#if MELT_HAVE_DEBUG
+ MELT_LOCATION ("warmelt-macro.melt:4095:/ cppif.then");
+ /*^block */
+ /*anyblock */
+ {
+
+ /*_#IS_A__L3*/ meltfnum[1] =
melt_is_instance_of ((melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]),
(melt_ptr_t) (( /*!CLASS_SEXPR */ meltfrout->
- tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:4072:/ cond");
- /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
+ tabval[1])));;
+ MELT_LOCATION ("warmelt-macro.melt:4095:/ cond");
+ /*cond */ if ( /*_#IS_A__L3*/ meltfnum[1]) /*then */
{
/*^cond.then */
- /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);;
+ /*_.IFELSE___V11*/ meltfptr[7] = ( /*nil */ NULL);;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4072:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4095:/ cond.else");
/*^block */
/*anyblock */
@@ -32851,11 +33608,11 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (4072) ? (4072) : __LINE__, __FUNCTION__);
+ (4095) ? (4095) : __LINE__, __FUNCTION__);
;
}
;
- /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
+ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0;
/*epilog */
}
;
@@ -32863,40 +33620,40 @@ lab_endgetargs:;
;
/*^compute */
- /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
+ /*_.IFCPP___V10*/ meltfptr[6] = /*_.IFELSE___V11*/ meltfptr[7];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4072:/ clear");
- /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4095:/ clear");
+ /*clear *//*_#IS_A__L3*/ meltfnum[1] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
+ /*clear *//*_.IFELSE___V11*/ meltfptr[7] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL);
+ /*_.IFCPP___V10*/ meltfptr[6] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4073:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4096:/ cppif.then");
/*^block */
/*anyblock */
{
- /*_#IS_A__L2*/ meltfnum[0] =
+ /*_#IS_A__L4*/ meltfnum[0] =
melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]),
(melt_ptr_t) (( /*!CLASS_ENVIRONMENT */
- meltfrout->tabval[1])));;
- MELT_LOCATION ("warmelt-macro.melt:4073:/ cond");
- /*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
+ meltfrout->tabval[2])));;
+ MELT_LOCATION ("warmelt-macro.melt:4096:/ cond");
+ /*cond */ if ( /*_#IS_A__L4*/ meltfnum[0]) /*then */
{
/*^cond.then */
- /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);;
+ /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4073:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4096:/ cond.else");
/*^block */
/*anyblock */
@@ -32910,11 +33667,11 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (4073) ? (4073) : __LINE__, __FUNCTION__);
+ (4096) ? (4096) : __LINE__, __FUNCTION__);
;
}
;
- /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
+ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0;
/*epilog */
}
;
@@ -32922,160 +33679,147 @@ lab_endgetargs:;
;
/*^compute */
- /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
+ /*_.IFCPP___V12*/ meltfptr[7] = /*_.IFELSE___V13*/ meltfptr[12];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4073:/ clear");
- /*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4096:/ clear");
+ /*clear *//*_#IS_A__L4*/ meltfnum[0] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
+ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL);
+ /*_.IFCPP___V12*/ meltfptr[7] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
+ /*^compute */
-#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4074:/ cppif.then");
- /*^block */
- /*anyblock */
- {
+ /*_#NULL__L5*/ meltfnum[1] =
+ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:4097:/ cond");
+ /*cond */ if ( /*_#NULL__L5*/ meltfnum[1]) /*then */
+ {
+ /*^cond.then */
+ /*^block */
+ /*anyblock */
+ {
+ /*^compute */
+ /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V15*/ meltfptr[14] =
+ ( /*!MACROEXPAND_1 */ meltfrout->tabval[3]);;
+ /*_.IF___V14*/ meltfptr[12] = /*_.SETQ___V15*/ meltfptr[14];;
+ /*epilog */
- {
- /*^locexp */
- /*melt_increment_dbgcounter */
-#if MELT_HAVE_DEBUG
- melt_dbgcounter++;
-#endif
+ MELT_LOCATION ("warmelt-macro.melt:4097:/ clear");
+ /*clear *//*_.SETQ___V15*/ meltfptr[14] = 0;
+ }
;
}
- ;
- /*_#MELT_NEED_DBG__L3*/ meltfnum[0] =
- /*MELT_NEED_DBG */
+ else
+ { /*^cond.else */
+
+ /*_.IF___V14*/ meltfptr[12] = NULL;;
+ }
+ ;
+
#if MELT_HAVE_DEBUG
- ( /*melt_need_dbg */ melt_need_debug ((int) 0))
-#else
- 0 /* no melt_need_dbg */
-#endif /*MELT_HAVE_DEBUG */
- ;;
- MELT_LOCATION ("warmelt-macro.melt:4074:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4098:/ cppif.then");
+ /*^block */
+ /*anyblock */
+ {
+
+ /*_#IS_OBJECT__L6*/ meltfnum[0] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) ==
+ MELTOBMAG_OBJECT);;
+ MELT_LOCATION ("warmelt-macro.melt:4098:/ cond");
+ /*cond */ if ( /*_#IS_OBJECT__L6*/ meltfnum[0]) /*then */
{
/*^cond.then */
+ /*_.IFELSE___V17*/ meltfptr[16] = ( /*nil */ NULL);;
+ }
+ else
+ {
+ MELT_LOCATION ("warmelt-macro.melt:4098:/ cond.else");
+
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] =
- meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4074:/ apply");
- /*apply */
+
+
+
{
- union meltparam_un argtab[5];
- memset (&argtab, 0, sizeof (argtab));
- /*^apply.arg */
- argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3];
- /*^apply.arg */
- argtab[1].meltbp_cstring = "warmelt-macro.melt";
- /*^apply.arg */
- argtab[2].meltbp_long = 4074;
- /*^apply.arg */
- argtab[3].meltbp_cstring = "mexpand_if sexpr";
- /*^apply.arg */
- argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1];
- /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] =
- melt_apply ((meltclosure_ptr_t)
- (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])),
- (melt_ptr_t) (( /*nil */ NULL)),
- (MELTBPARSTR_LONG MELTBPARSTR_CSTRING
- MELTBPARSTR_LONG MELTBPARSTR_CSTRING
- MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ /*^locexp */
+ melt_assert_failed (("check modctx"),
+ ("warmelt-macro.melt")
+ ? ("warmelt-macro.melt") : __FILE__,
+ (4098) ? (4098) : __LINE__, __FUNCTION__);
+ ;
}
;
- /*_.IF___V11*/ meltfptr[10] =
- /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];;
+ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0;
/*epilog */
-
- MELT_LOCATION ("warmelt-macro.melt:4074:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0;
- /*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0;
}
;
}
- else
- { /*^cond.else */
-
- /*_.IF___V11*/ meltfptr[10] = NULL;;
- }
;
- MELT_LOCATION ("warmelt-macro.melt:4074:/ quasiblock");
-
-
- /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];;
/*^compute */
- /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];;
+ /*_.IFCPP___V16*/ meltfptr[14] = /*_.IFELSE___V17*/ meltfptr[16];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4074:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0;
- /*^clear */
- /*clear *//*_.IF___V11*/ meltfptr[10] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4098:/ clear");
+ /*clear *//*_#IS_OBJECT__L6*/ meltfnum[0] = 0;
/*^clear */
- /*clear *//*_.PROGN___V13*/ meltfptr[11] = 0;
+ /*clear *//*_.IFELSE___V17*/ meltfptr[16] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL);
+ /*_.IFCPP___V16*/ meltfptr[14] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4075:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4099:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:4076:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4100:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
- /*_.CONT__V15*/
- meltfptr[11] = slot;
+ /*_.CONT__V19*/
+ meltfptr[18] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:4077:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4101:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
- /*_.LOC__V16*/
- meltfptr[15] = slot;
+ /*_.LOC__V20*/
+ meltfptr[19] = slot;
};
;
- /*_.LIST_FIRST__V17*/ meltfptr[16] =
- (melt_list_first ((melt_ptr_t) ( /*_.CONT__V15*/ meltfptr[11])));;
+ /*_.LIST_FIRST__V21*/ meltfptr[20] =
+ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V19*/ meltfptr[18])));;
/*^compute */
- /*_.CURPAIR__V18*/ meltfptr[17] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));;
+ /*_.CURPAIR__V22*/ meltfptr[21] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));;
/*^compute */
- /*_.CURIF__V19*/ meltfptr[18] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
+ /*_.CURIF__V23*/ meltfptr[22] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
/*^compute */
- /*_#IS_PAIR__L5*/ meltfnum[3] =
- (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])) ==
+ /*_#IS_PAIR__L7*/ meltfnum[0] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) ==
MELTOBMAG_PAIR);;
/*^compute */
- /*_#NOT__L6*/ meltfnum[0] =
- (!( /*_#IS_PAIR__L5*/ meltfnum[3]));;
- MELT_LOCATION ("warmelt-macro.melt:4080:/ cond");
- /*cond */ if ( /*_#NOT__L6*/ meltfnum[0]) /*then */
+ /*_#NOT__L8*/ meltfnum[7] =
+ (!( /*_#IS_PAIR__L7*/ meltfnum[0]));;
+ MELT_LOCATION ("warmelt-macro.melt:4104:/ cond");
+ /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */
{
/*^cond.then */
/*^block */
@@ -33084,8 +33828,8 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:4081:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
+ MELT_LOCATION ("warmelt-macro.melt:4105:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("missing condition in IF"), (melt_ptr_t) 0);
}
;
@@ -33094,20 +33838,20 @@ lab_endgetargs:;
;
} /*noelse */
;
- /*_.PAIR_TAIL__V20*/ meltfptr[19] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:4082:/ compute");
- /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V21*/ meltfptr[20] =
- /*_.PAIR_TAIL__V20*/ meltfptr[19];;
- /*_#IS_PAIR__L7*/ meltfnum[6] =
- (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])) ==
+ /*_.PAIR_TAIL__V24*/ meltfptr[23] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ MELT_LOCATION ("warmelt-macro.melt:4106:/ compute");
+ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V25*/ meltfptr[24] =
+ /*_.PAIR_TAIL__V24*/ meltfptr[23];;
+ /*_#IS_PAIR__L9*/ meltfnum[8] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) ==
MELTOBMAG_PAIR);;
/*^compute */
- /*_#NOT__L8*/ meltfnum[7] =
- (!( /*_#IS_PAIR__L7*/ meltfnum[6]));;
- MELT_LOCATION ("warmelt-macro.melt:4083:/ cond");
- /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */
+ /*_#NOT__L10*/ meltfnum[9] =
+ (!( /*_#IS_PAIR__L9*/ meltfnum[8]));;
+ MELT_LOCATION ("warmelt-macro.melt:4107:/ cond");
+ /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */
{
/*^cond.then */
/*^block */
@@ -33116,8 +33860,8 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:4084:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
+ MELT_LOCATION ("warmelt-macro.melt:4108:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("missing then in IF"), (melt_ptr_t) 0);
}
;
@@ -33126,30 +33870,31 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:4085:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4109:/ quasiblock");
/*^apply */
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2];
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.XCOND__V23*/ meltfptr[22] =
- melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[3])),
- (melt_ptr_t) ( /*_.CURIF__V19*/ meltfptr[18]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ /*^apply.arg */
+ argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.XCOND__V27*/ meltfptr[26] =
+ melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.CURIF__V23*/ meltfptr[22]),
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab, "", (union meltparam_un *) 0);
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4086:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4110:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -33164,7 +33909,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L9*/ meltfnum[8] =
+ /*_#MELT_NEED_DBG__L11*/ meltfnum[10] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -33172,36 +33917,36 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4086:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4110:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] =
+ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4086:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4110:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9];
+ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4086;
+ argtab[2].meltbp_long = 4110;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_if xcond";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.XCOND__V23*/ meltfptr[22];
- /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] =
+ (melt_ptr_t *) & /*_.XCOND__V27*/ meltfptr[26];
+ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])),
+ (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -33209,81 +33954,82 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V25*/ meltfptr[24] =
- /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];;
+ /*_.IF___V29*/ meltfptr[28] =
+ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4086:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4110:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V25*/ meltfptr[24] = NULL;;
+ /*_.IF___V29*/ meltfptr[28] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4086:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4110:/ quasiblock");
- /*_.PROGN___V27*/ meltfptr[25] = /*_.IF___V25*/ meltfptr[24];;
+ /*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[28];;
/*^compute */
- /*_.IFCPP___V24*/ meltfptr[23] = /*_.PROGN___V27*/ meltfptr[25];;
+ /*_.IFCPP___V28*/ meltfptr[27] = /*_.PROGN___V31*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4086:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4110:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.IF___V25*/ meltfptr[24] = 0;
+ /*clear *//*_.IF___V29*/ meltfptr[28] = 0;
/*^clear */
- /*clear *//*_.PROGN___V27*/ meltfptr[25] = 0;
+ /*clear *//*_.PROGN___V31*/ meltfptr[29] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V24*/ meltfptr[23] = ( /*nil */ NULL);
+ /*_.IFCPP___V28*/ meltfptr[27] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4087:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4111:/ quasiblock");
- /*_.CURTHEN__V29*/ meltfptr[25] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
+ /*_.CURTHEN__V33*/ meltfptr[29] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
/*^compute */
- /*_.PAIR_TAIL__V30*/ meltfptr[29] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:4088:/ compute");
- /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V31*/ meltfptr[30] =
- /*_.PAIR_TAIL__V30*/ meltfptr[29];;
- MELT_LOCATION ("warmelt-macro.melt:4089:/ quasiblock");
+ /*_.PAIR_TAIL__V34*/ meltfptr[33] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ MELT_LOCATION ("warmelt-macro.melt:4112:/ compute");
+ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V35*/ meltfptr[34] =
+ /*_.PAIR_TAIL__V34*/ meltfptr[33];;
+ MELT_LOCATION ("warmelt-macro.melt:4113:/ quasiblock");
/*^apply */
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2];
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.XTHEN__V33*/ meltfptr[32] =
- melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[3])),
- (melt_ptr_t) ( /*_.CURTHEN__V29*/ meltfptr[25]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ /*^apply.arg */
+ argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.XTHEN__V37*/ meltfptr[36] =
+ melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.CURTHEN__V33*/ meltfptr[29]),
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab, "", (union meltparam_un *) 0);
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4090:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4115:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -33298,7 +34044,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L11*/ meltfnum[9] =
+ /*_#MELT_NEED_DBG__L13*/ meltfnum[11] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -33306,36 +34052,36 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4090:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[9]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4115:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[11]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[8] =
+ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[10] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4090:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4115:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[8];
+ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[10];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4090;
+ argtab[2].meltbp_long = 4115;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_if xthen";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.XTHEN__V33*/ meltfptr[32];
- /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] =
+ (melt_ptr_t *) & /*_.XTHEN__V37*/ meltfptr[36];
+ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])),
+ (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -33343,68 +34089,68 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V35*/ meltfptr[34] =
- /*_.MELT_DEBUG_FUN__V36*/ meltfptr[35];;
+ /*_.IF___V39*/ meltfptr[38] =
+ /*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4090:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[8] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4115:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V36*/ meltfptr[35] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V35*/ meltfptr[34] = NULL;;
+ /*_.IF___V39*/ meltfptr[38] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4090:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4115:/ quasiblock");
- /*_.PROGN___V37*/ meltfptr[35] = /*_.IF___V35*/ meltfptr[34];;
+ /*_.PROGN___V41*/ meltfptr[39] = /*_.IF___V39*/ meltfptr[38];;
/*^compute */
- /*_.IFCPP___V34*/ meltfptr[33] = /*_.PROGN___V37*/ meltfptr[35];;
+ /*_.IFCPP___V38*/ meltfptr[37] = /*_.PROGN___V41*/ meltfptr[39];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4090:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[9] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4115:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[11] = 0;
/*^clear */
- /*clear *//*_.IF___V35*/ meltfptr[34] = 0;
+ /*clear *//*_.IF___V39*/ meltfptr[38] = 0;
/*^clear */
- /*clear *//*_.PROGN___V37*/ meltfptr[35] = 0;
+ /*clear *//*_.PROGN___V41*/ meltfptr[39] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V34*/ meltfptr[33] = ( /*nil */ NULL);
+ /*_.IFCPP___V38*/ meltfptr[37] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
- /*_#IS_PAIR__L13*/ meltfnum[8] =
- (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])) ==
+ /*_#IS_PAIR__L15*/ meltfnum[10] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) ==
MELTOBMAG_PAIR);;
- MELT_LOCATION ("warmelt-macro.melt:4091:/ cond");
- /*cond */ if ( /*_#IS_PAIR__L13*/ meltfnum[8]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4116:/ cond");
+ /*cond */ if ( /*_#IS_PAIR__L15*/ meltfnum[10]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:4092:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4117:/ quasiblock");
- /*_.CURELSE__V40*/ meltfptr[39] =
+ /*_.CURELSE__V44*/ meltfptr[43] =
(melt_pair_head
- ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:4093:/ apply");
+ ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ MELT_LOCATION ("warmelt-macro.melt:4118:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -33412,17 +34158,20 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.XELSE__V41*/ meltfptr[40] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.XELSE__V45*/ meltfptr[44] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[3])),
- (melt_ptr_t) ( /*_.CURELSE__V40*/ meltfptr[39]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.CURELSE__V44*/ meltfptr[43]),
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
+ ""), argtab, "", (union meltparam_un *) 0);
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4094:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4119:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -33437,7 +34186,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L14*/ meltfnum[9] =
+ /*_#MELT_NEED_DBG__L16*/ meltfnum[11] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -33445,37 +34194,37 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4094:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[9]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4119:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[11]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] =
+ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4094:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4119:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14];
+ /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4094;
+ argtab[2].meltbp_long = 4119;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_if xelse";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.XELSE__V41*/ meltfptr[40];
- /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] =
+ (melt_ptr_t *) & /*_.XELSE__V45*/ meltfptr[44];
+ /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
- tabval[2])),
+ tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -33483,59 +34232,59 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V43*/ meltfptr[42] =
- /*_.MELT_DEBUG_FUN__V44*/ meltfptr[43];;
+ /*_.IF___V47*/ meltfptr[46] =
+ /*_.MELT_DEBUG_FUN__V48*/ meltfptr[47];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4094:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4119:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V44*/ meltfptr[43] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V48*/ meltfptr[47] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V43*/ meltfptr[42] = NULL;;
+ /*_.IF___V47*/ meltfptr[46] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4094:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4119:/ quasiblock");
- /*_.PROGN___V45*/ meltfptr[43] = /*_.IF___V43*/ meltfptr[42];;
+ /*_.PROGN___V49*/ meltfptr[47] = /*_.IF___V47*/ meltfptr[46];;
/*^compute */
- /*_.IFCPP___V42*/ meltfptr[41] = /*_.PROGN___V45*/ meltfptr[43];;
+ /*_.IFCPP___V46*/ meltfptr[45] = /*_.PROGN___V49*/ meltfptr[47];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4094:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[9] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4119:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[11] = 0;
/*^clear */
- /*clear *//*_.IF___V43*/ meltfptr[42] = 0;
+ /*clear *//*_.IF___V47*/ meltfptr[46] = 0;
/*^clear */
- /*clear *//*_.PROGN___V45*/ meltfptr[43] = 0;
+ /*clear *//*_.PROGN___V49*/ meltfptr[47] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V42*/ meltfptr[41] = ( /*nil */ NULL);
+ /*_.IFCPP___V46*/ meltfptr[45] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
- /*_.PAIR_TAIL__V46*/ meltfptr[42] =
+ /*_.PAIR_TAIL__V50*/ meltfptr[46] =
(melt_pair_tail
- ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:4095:/ compute");
- /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V47*/ meltfptr[43] =
- /*_.PAIR_TAIL__V46*/ meltfptr[42];;
- /*_#IS_PAIR__L16*/ meltfnum[14] =
+ ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ MELT_LOCATION ("warmelt-macro.melt:4120:/ compute");
+ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V51*/ meltfptr[47] =
+ /*_.PAIR_TAIL__V50*/ meltfptr[46];;
+ /*_#IS_PAIR__L18*/ meltfnum[16] =
(melt_magic_discr
- ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])) ==
+ ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) ==
MELTOBMAG_PAIR);;
- MELT_LOCATION ("warmelt-macro.melt:4096:/ cond");
- /*cond */ if ( /*_#IS_PAIR__L16*/ meltfnum[14]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4121:/ cond");
+ /*cond */ if ( /*_#IS_PAIR__L18*/ meltfnum[16]) /*then */
{
/*^cond.then */
/*^block */
@@ -33544,8 +34293,8 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:4097:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
+ MELT_LOCATION ("warmelt-macro.melt:4122:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("IF with more than three sons"),
(melt_ptr_t) 0);
}
@@ -33555,10 +34304,10 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:4098:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4123:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:4099:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4124:/ quasiblock");
/*^rawallocobj */
@@ -33569,7 +34318,7 @@ lab_endgetargs:;
(melt_ptr_t) (( /*!CLASS_SOURCE_IFELSE */
meltfrout->tabval[4])),
(5), "CLASS_SOURCE_IFELSE");
- /*_.INST__V50*/ meltfptr[49] =
+ /*_.INST__V54*/ meltfptr[53] =
newobj;
};
;
@@ -33577,43 +34326,43 @@ lab_endgetargs:;
/*putslot */
melt_assertmsg ("putslot checkobj @LOCA_LOCATION",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V50*/ meltfptr[49]))
+ ( /*_.INST__V54*/ meltfptr[53]))
== MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V50*/ meltfptr[49]), (1),
- ( /*_.LOC__V16*/ meltfptr[15]),
+ melt_putfield_object (( /*_.INST__V54*/ meltfptr[53]), (1),
+ ( /*_.LOC__V20*/ meltfptr[19]),
"LOCA_LOCATION");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SIF_TEST",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V50*/ meltfptr[49]))
+ ( /*_.INST__V54*/ meltfptr[53]))
== MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V50*/ meltfptr[49]), (2),
- ( /*_.XCOND__V23*/ meltfptr[22]), "SIF_TEST");
+ melt_putfield_object (( /*_.INST__V54*/ meltfptr[53]), (2),
+ ( /*_.XCOND__V27*/ meltfptr[26]), "SIF_TEST");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SIF_THEN",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V50*/ meltfptr[49]))
+ ( /*_.INST__V54*/ meltfptr[53]))
== MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V50*/ meltfptr[49]), (3),
- ( /*_.XTHEN__V33*/ meltfptr[32]), "SIF_THEN");
+ melt_putfield_object (( /*_.INST__V54*/ meltfptr[53]), (3),
+ ( /*_.XTHEN__V37*/ meltfptr[36]), "SIF_THEN");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SIF_ELSE",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V50*/ meltfptr[49]))
+ ( /*_.INST__V54*/ meltfptr[53]))
== MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V50*/ meltfptr[49]), (4),
- ( /*_.XELSE__V41*/ meltfptr[40]), "SIF_ELSE");
+ melt_putfield_object (( /*_.INST__V54*/ meltfptr[53]), (4),
+ ( /*_.XELSE__V45*/ meltfptr[44]), "SIF_ELSE");
;
- /*_.RESE__V49*/ meltfptr[48] = /*_.INST__V50*/ meltfptr[49];;
+ /*_.RESE__V53*/ meltfptr[52] = /*_.INST__V54*/ meltfptr[53];;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4105:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4130:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -33628,7 +34377,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L17*/ meltfnum[9] =
+ /*_#MELT_NEED_DBG__L19*/ meltfnum[11] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -33636,38 +34385,38 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4105:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[9]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4130:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[11]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] =
+ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4105:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4130:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17];
+ /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4105;
+ argtab[2].meltbp_long = 4130;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_if with else return rese";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.RESE__V49*/ meltfptr[48];
- /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] =
+ (melt_ptr_t *) & /*_.RESE__V53*/ meltfptr[52];
+ /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
- tabval[2])),
+ tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -33675,81 +34424,81 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V52*/ meltfptr[51] =
- /*_.MELT_DEBUG_FUN__V53*/ meltfptr[52];;
+ /*_.IF___V56*/ meltfptr[55] =
+ /*_.MELT_DEBUG_FUN__V57*/ meltfptr[56];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4105:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L18*/ meltfnum[17] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4130:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[19] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V53*/ meltfptr[52] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V57*/ meltfptr[56] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V52*/ meltfptr[51] = NULL;;
+ /*_.IF___V56*/ meltfptr[55] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4105:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4130:/ quasiblock");
- /*_.PROGN___V54*/ meltfptr[52] = /*_.IF___V52*/ meltfptr[51];;
+ /*_.PROGN___V58*/ meltfptr[56] = /*_.IF___V56*/ meltfptr[55];;
/*^compute */
- /*_.IFCPP___V51*/ meltfptr[50] = /*_.PROGN___V54*/ meltfptr[52];;
+ /*_.IFCPP___V55*/ meltfptr[54] = /*_.PROGN___V58*/ meltfptr[56];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4105:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[9] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4130:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[11] = 0;
/*^clear */
- /*clear *//*_.IF___V52*/ meltfptr[51] = 0;
+ /*clear *//*_.IF___V56*/ meltfptr[55] = 0;
/*^clear */
- /*clear *//*_.PROGN___V54*/ meltfptr[52] = 0;
+ /*clear *//*_.PROGN___V58*/ meltfptr[56] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V51*/ meltfptr[50] = ( /*nil */ NULL);
+ /*_.IFCPP___V55*/ meltfptr[54] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4106:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4131:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESE__V49*/ meltfptr[48];;
- MELT_LOCATION ("warmelt-macro.melt:4106:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESE__V53*/ meltfptr[52];;
+ MELT_LOCATION ("warmelt-macro.melt:4131:/ finalreturn");
;
/*finalret */ goto labend_rout;
- /*_.LET___V48*/ meltfptr[47] = /*_.RETURN___V55*/ meltfptr[51];;
+ /*_.LET___V52*/ meltfptr[51] = /*_.RETURN___V59*/ meltfptr[55];;
- MELT_LOCATION ("warmelt-macro.melt:4098:/ clear");
- /*clear *//*_.RESE__V49*/ meltfptr[48] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4123:/ clear");
+ /*clear *//*_.RESE__V53*/ meltfptr[52] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V51*/ meltfptr[50] = 0;
+ /*clear *//*_.IFCPP___V55*/ meltfptr[54] = 0;
/*^clear */
- /*clear *//*_.RETURN___V55*/ meltfptr[51] = 0;
- /*_.LET___V39*/ meltfptr[35] = /*_.LET___V48*/ meltfptr[47];;
+ /*clear *//*_.RETURN___V59*/ meltfptr[55] = 0;
+ /*_.LET___V43*/ meltfptr[39] = /*_.LET___V52*/ meltfptr[51];;
- MELT_LOCATION ("warmelt-macro.melt:4092:/ clear");
- /*clear *//*_.CURELSE__V40*/ meltfptr[39] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4117:/ clear");
+ /*clear *//*_.CURELSE__V44*/ meltfptr[43] = 0;
/*^clear */
- /*clear *//*_.XELSE__V41*/ meltfptr[40] = 0;
+ /*clear *//*_.XELSE__V45*/ meltfptr[44] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V42*/ meltfptr[41] = 0;
+ /*clear *//*_.IFCPP___V46*/ meltfptr[45] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V46*/ meltfptr[42] = 0;
+ /*clear *//*_.PAIR_TAIL__V50*/ meltfptr[46] = 0;
/*^clear */
- /*clear *//*_.SETQ___V47*/ meltfptr[43] = 0;
+ /*clear *//*_.SETQ___V51*/ meltfptr[47] = 0;
/*^clear */
- /*clear *//*_#IS_PAIR__L16*/ meltfnum[14] = 0;
+ /*clear *//*_#IS_PAIR__L18*/ meltfnum[16] = 0;
/*^clear */
- /*clear *//*_.LET___V48*/ meltfptr[47] = 0;
- /*_.IFELSE___V38*/ meltfptr[34] = /*_.LET___V39*/ meltfptr[35];;
+ /*clear *//*_.LET___V52*/ meltfptr[51] = 0;
+ /*_.IFELSE___V42*/ meltfptr[38] = /*_.LET___V43*/ meltfptr[39];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4091:/ clear");
- /*clear *//*_.LET___V39*/ meltfptr[35] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4116:/ clear");
+ /*clear *//*_.LET___V43*/ meltfptr[39] = 0;
}
;
}
@@ -33760,7 +34509,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:4107:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4132:/ quasiblock");
/*^quasiblock */
@@ -33774,7 +34523,7 @@ lab_endgetargs:;
(melt_ptr_t) (( /*!CLASS_SOURCE_IF */
meltfrout->tabval[5])),
(4), "CLASS_SOURCE_IF");
- /*_.INST__V58*/ meltfptr[50] =
+ /*_.INST__V62*/ meltfptr[54] =
newobj;
};
;
@@ -33782,34 +34531,34 @@ lab_endgetargs:;
/*putslot */
melt_assertmsg ("putslot checkobj @LOCA_LOCATION",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V58*/ meltfptr[50]))
+ ( /*_.INST__V62*/ meltfptr[54]))
== MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V58*/ meltfptr[50]), (1),
- ( /*_.LOC__V16*/ meltfptr[15]),
+ melt_putfield_object (( /*_.INST__V62*/ meltfptr[54]), (1),
+ ( /*_.LOC__V20*/ meltfptr[19]),
"LOCA_LOCATION");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SIF_TEST",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V58*/ meltfptr[50]))
+ ( /*_.INST__V62*/ meltfptr[54]))
== MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V58*/ meltfptr[50]), (2),
- ( /*_.XCOND__V23*/ meltfptr[22]), "SIF_TEST");
+ melt_putfield_object (( /*_.INST__V62*/ meltfptr[54]), (2),
+ ( /*_.XCOND__V27*/ meltfptr[26]), "SIF_TEST");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SIF_THEN",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V58*/ meltfptr[50]))
+ ( /*_.INST__V62*/ meltfptr[54]))
== MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V58*/ meltfptr[50]), (3),
- ( /*_.XTHEN__V33*/ meltfptr[32]), "SIF_THEN");
+ melt_putfield_object (( /*_.INST__V62*/ meltfptr[54]), (3),
+ ( /*_.XTHEN__V37*/ meltfptr[36]), "SIF_THEN");
;
- /*_.RESP__V57*/ meltfptr[48] = /*_.INST__V58*/ meltfptr[50];;
+ /*_.RESP__V61*/ meltfptr[52] = /*_.INST__V62*/ meltfptr[54];;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4111:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4136:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -33824,7 +34573,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L19*/ meltfnum[17] =
+ /*_#MELT_NEED_DBG__L21*/ meltfnum[19] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -33832,37 +34581,37 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4111:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4136:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[19]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[9] =
+ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[11] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4111:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4136:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[9];
+ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[11];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4111;
+ argtab[2].meltbp_long = 4136;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_if plain return resp";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.RESP__V57*/ meltfptr[48];
- /*_.MELT_DEBUG_FUN__V61*/ meltfptr[40] =
+ (melt_ptr_t *) & /*_.RESP__V61*/ meltfptr[52];
+ /*_.MELT_DEBUG_FUN__V65*/ meltfptr[44] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
- tabval[2])),
+ tabval[0])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -33870,128 +34619,128 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V60*/ meltfptr[39] =
- /*_.MELT_DEBUG_FUN__V61*/ meltfptr[40];;
+ /*_.IF___V64*/ meltfptr[43] =
+ /*_.MELT_DEBUG_FUN__V65*/ meltfptr[44];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4111:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[9] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4136:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[11] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V61*/ meltfptr[40] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V65*/ meltfptr[44] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V60*/ meltfptr[39] = NULL;;
+ /*_.IF___V64*/ meltfptr[43] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4111:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4136:/ quasiblock");
- /*_.PROGN___V62*/ meltfptr[41] = /*_.IF___V60*/ meltfptr[39];;
+ /*_.PROGN___V66*/ meltfptr[45] = /*_.IF___V64*/ meltfptr[43];;
/*^compute */
- /*_.IFCPP___V59*/ meltfptr[51] = /*_.PROGN___V62*/ meltfptr[41];;
+ /*_.IFCPP___V63*/ meltfptr[55] = /*_.PROGN___V66*/ meltfptr[45];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4111:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[17] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4136:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[19] = 0;
/*^clear */
- /*clear *//*_.IF___V60*/ meltfptr[39] = 0;
+ /*clear *//*_.IF___V64*/ meltfptr[43] = 0;
/*^clear */
- /*clear *//*_.PROGN___V62*/ meltfptr[41] = 0;
+ /*clear *//*_.PROGN___V66*/ meltfptr[45] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V59*/ meltfptr[51] = ( /*nil */ NULL);
+ /*_.IFCPP___V63*/ meltfptr[55] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4112:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4137:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V57*/ meltfptr[48];;
- MELT_LOCATION ("warmelt-macro.melt:4112:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V61*/ meltfptr[52];;
+ MELT_LOCATION ("warmelt-macro.melt:4137:/ finalreturn");
;
/*finalret */ goto labend_rout;
- /*_.LET___V56*/ meltfptr[52] = /*_.RETURN___V63*/ meltfptr[42];;
+ /*_.LET___V60*/ meltfptr[56] = /*_.RETURN___V67*/ meltfptr[46];;
- MELT_LOCATION ("warmelt-macro.melt:4107:/ clear");
- /*clear *//*_.RESP__V57*/ meltfptr[48] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4132:/ clear");
+ /*clear *//*_.RESP__V61*/ meltfptr[52] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V59*/ meltfptr[51] = 0;
+ /*clear *//*_.IFCPP___V63*/ meltfptr[55] = 0;
/*^clear */
- /*clear *//*_.RETURN___V63*/ meltfptr[42] = 0;
- /*_.IFELSE___V38*/ meltfptr[34] = /*_.LET___V56*/ meltfptr[52];;
+ /*clear *//*_.RETURN___V67*/ meltfptr[46] = 0;
+ /*_.IFELSE___V42*/ meltfptr[38] = /*_.LET___V60*/ meltfptr[56];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4091:/ clear");
- /*clear *//*_.LET___V56*/ meltfptr[52] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4116:/ clear");
+ /*clear *//*_.LET___V60*/ meltfptr[56] = 0;
}
;
}
;
- /*_.LET___V32*/ meltfptr[31] = /*_.IFELSE___V38*/ meltfptr[34];;
+ /*_.LET___V36*/ meltfptr[35] = /*_.IFELSE___V42*/ meltfptr[38];;
- MELT_LOCATION ("warmelt-macro.melt:4089:/ clear");
- /*clear *//*_.XTHEN__V33*/ meltfptr[32] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4113:/ clear");
+ /*clear *//*_.XTHEN__V37*/ meltfptr[36] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V34*/ meltfptr[33] = 0;
+ /*clear *//*_.IFCPP___V38*/ meltfptr[37] = 0;
/*^clear */
- /*clear *//*_#IS_PAIR__L13*/ meltfnum[8] = 0;
+ /*clear *//*_#IS_PAIR__L15*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V38*/ meltfptr[34] = 0;
- /*_.LET___V28*/ meltfptr[24] = /*_.LET___V32*/ meltfptr[31];;
+ /*clear *//*_.IFELSE___V42*/ meltfptr[38] = 0;
+ /*_.LET___V32*/ meltfptr[28] = /*_.LET___V36*/ meltfptr[35];;
- MELT_LOCATION ("warmelt-macro.melt:4087:/ clear");
- /*clear *//*_.CURTHEN__V29*/ meltfptr[25] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4111:/ clear");
+ /*clear *//*_.CURTHEN__V33*/ meltfptr[29] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V30*/ meltfptr[29] = 0;
+ /*clear *//*_.PAIR_TAIL__V34*/ meltfptr[33] = 0;
/*^clear */
- /*clear *//*_.SETQ___V31*/ meltfptr[30] = 0;
+ /*clear *//*_.SETQ___V35*/ meltfptr[34] = 0;
/*^clear */
- /*clear *//*_.LET___V32*/ meltfptr[31] = 0;
- /*_.LET___V22*/ meltfptr[21] = /*_.LET___V28*/ meltfptr[24];;
+ /*clear *//*_.LET___V36*/ meltfptr[35] = 0;
+ /*_.LET___V26*/ meltfptr[25] = /*_.LET___V32*/ meltfptr[28];;
- MELT_LOCATION ("warmelt-macro.melt:4085:/ clear");
- /*clear *//*_.XCOND__V23*/ meltfptr[22] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4109:/ clear");
+ /*clear *//*_.XCOND__V27*/ meltfptr[26] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V24*/ meltfptr[23] = 0;
+ /*clear *//*_.IFCPP___V28*/ meltfptr[27] = 0;
/*^clear */
- /*clear *//*_.LET___V28*/ meltfptr[24] = 0;
- /*_.LET___V14*/ meltfptr[10] = /*_.LET___V22*/ meltfptr[21];;
+ /*clear *//*_.LET___V32*/ meltfptr[28] = 0;
+ /*_.LET___V18*/ meltfptr[16] = /*_.LET___V26*/ meltfptr[25];;
- MELT_LOCATION ("warmelt-macro.melt:4075:/ clear");
- /*clear *//*_.CONT__V15*/ meltfptr[11] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4099:/ clear");
+ /*clear *//*_.CONT__V19*/ meltfptr[18] = 0;
/*^clear */
- /*clear *//*_.LOC__V16*/ meltfptr[15] = 0;
+ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0;
/*^clear */
- /*clear *//*_.LIST_FIRST__V17*/ meltfptr[16] = 0;
+ /*clear *//*_.LIST_FIRST__V21*/ meltfptr[20] = 0;
/*^clear */
- /*clear *//*_.CURPAIR__V18*/ meltfptr[17] = 0;
+ /*clear *//*_.CURPAIR__V22*/ meltfptr[21] = 0;
/*^clear */
- /*clear *//*_.CURIF__V19*/ meltfptr[18] = 0;
+ /*clear *//*_.CURIF__V23*/ meltfptr[22] = 0;
/*^clear */
- /*clear *//*_#IS_PAIR__L5*/ meltfnum[3] = 0;
+ /*clear *//*_#IS_PAIR__L7*/ meltfnum[0] = 0;
/*^clear */
- /*clear *//*_#NOT__L6*/ meltfnum[0] = 0;
+ /*clear *//*_#NOT__L8*/ meltfnum[7] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V20*/ meltfptr[19] = 0;
+ /*clear *//*_.PAIR_TAIL__V24*/ meltfptr[23] = 0;
/*^clear */
- /*clear *//*_.SETQ___V21*/ meltfptr[20] = 0;
+ /*clear *//*_.SETQ___V25*/ meltfptr[24] = 0;
/*^clear */
- /*clear *//*_#IS_PAIR__L7*/ meltfnum[6] = 0;
+ /*clear *//*_#IS_PAIR__L9*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_#NOT__L8*/ meltfnum[7] = 0;
+ /*clear *//*_#NOT__L10*/ meltfnum[9] = 0;
/*^clear */
- /*clear *//*_.LET___V22*/ meltfptr[21] = 0;
- MELT_LOCATION ("warmelt-macro.melt:4071:/ quasiblock");
+ /*clear *//*_.LET___V26*/ meltfptr[25] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4093:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];;
- MELT_LOCATION ("warmelt-macro.melt:4071:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[16];;
+ MELT_LOCATION ("warmelt-macro.melt:4093:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -33999,11 +34748,17 @@ lab_endgetargs:;
/*^clear */
/*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0;
+ /*clear *//*_.IFCPP___V10*/ meltfptr[6] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0;
+ /*clear *//*_.IFCPP___V12*/ meltfptr[7] = 0;
/*^clear */
- /*clear *//*_.LET___V14*/ meltfptr[10] = 0;
+ /*clear *//*_#NULL__L5*/ meltfnum[1] = 0;
+ /*^clear */
+ /*clear *//*_.IF___V14*/ meltfptr[12] = 0;
+ /*^clear */
+ /*clear *//*_.IFCPP___V16*/ meltfptr[14] = 0;
+ /*^clear */
+ /*clear *//*_.LET___V18*/ meltfptr[16] = 0;
}
;
@@ -34053,10 +34808,10 @@ meltrout_67_warmelt_macro_MEXPAND_CPPIF (meltclosure_ptr_t meltclosp_,
struct meltclosure_st *mcfr_clos;
struct excepth_melt_st *mcfr_exh;
struct melt_callframe_st *mcfr_prev;
-#define MELTFRAM_NBVARPTR 59
- void *mcfr_varptr[59];
-#define MELTFRAM_NBVARNUM 20
- long mcfr_varnum[20];
+#define MELTFRAM_NBVARPTR 63
+ void *mcfr_varptr[63];
+#define MELTFRAM_NBVARNUM 22
+ long mcfr_varnum[22];
/*others*/
long _spare_;
}
@@ -34067,13 +34822,13 @@ meltrout_67_warmelt_macro_MEXPAND_CPPIF (meltclosure_ptr_t meltclosp_,
int ix = 0;
meltframptr_ = (void *) meltfirstargp_;
gt_ggc_mx_melt_un (meltframptr_->mcfr_clos);
- for (ix = 0; ix < 59; ix++)
+ for (ix = 0; ix < 63; ix++)
if (meltframptr_->mcfr_varptr[ix])
gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]);
return NULL;
} /*end markggc */ ;
memset (&meltfram__, 0, sizeof (meltfram__));
- meltfram__.mcfr_nbvar = 59;
+ meltfram__.mcfr_nbvar = 63;
meltfram__.mcfr_clos = meltclosp_;
meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe;
melt_topframe = (struct melt_callframe_st *) &meltfram__;
@@ -34081,7 +34836,7 @@ meltrout_67_warmelt_macro_MEXPAND_CPPIF (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:4121:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:4146:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -34122,7 +34877,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4122:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4147:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -34131,7 +34886,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:4122:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4147:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -34139,7 +34894,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4122:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4147:/ cond.else");
/*^block */
/*anyblock */
@@ -34153,7 +34908,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (4122) ? (4122) : __LINE__, __FUNCTION__);
+ (4147) ? (4147) : __LINE__, __FUNCTION__);
;
}
;
@@ -34168,7 +34923,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4122:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4147:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -34181,7 +34936,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4123:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4148:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -34190,7 +34945,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:4123:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4148:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -34198,7 +34953,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4123:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4148:/ cond.else");
/*^block */
/*anyblock */
@@ -34212,7 +34967,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (4123) ? (4123) : __LINE__, __FUNCTION__);
+ (4148) ? (4148) : __LINE__, __FUNCTION__);
;
}
;
@@ -34227,7 +34982,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4123:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4148:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -34238,9 +34993,96 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
+ /*^compute */
+
+ /*_#NULL__L3*/ meltfnum[0] =
+ (( /*_.MEXPANDER__V4*/ meltfptr[3]) == NULL);;
+ MELT_LOCATION ("warmelt-macro.melt:4149:/ cond");
+ /*cond */ if ( /*_#NULL__L3*/ meltfnum[0]) /*then */
+ {
+ /*^cond.then */
+ /*^block */
+ /*anyblock */
+ {
+
+ /*^compute */
+ /*_.MEXPANDER__V4*/ meltfptr[3] = /*_.SETQ___V11*/ meltfptr[10] =
+ ( /*!MACROEXPAND_1 */ meltfrout->tabval[2]);;
+ /*_.IF___V10*/ meltfptr[8] = /*_.SETQ___V11*/ meltfptr[10];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:4149:/ clear");
+ /*clear *//*_.SETQ___V11*/ meltfptr[10] = 0;
+ }
+ ;
+ }
+ else
+ { /*^cond.else */
+
+ /*_.IF___V10*/ meltfptr[8] = NULL;;
+ }
+ ;
+
+#if MELT_HAVE_DEBUG
+ MELT_LOCATION ("warmelt-macro.melt:4150:/ cppif.then");
+ /*^block */
+ /*anyblock */
+ {
+
+ /*_#IS_OBJECT__L4*/ meltfnum[3] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) ==
+ MELTOBMAG_OBJECT);;
+ MELT_LOCATION ("warmelt-macro.melt:4150:/ cond");
+ /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[3]) /*then */
+ {
+ /*^cond.then */
+ /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);;
+ }
+ else
+ {
+ MELT_LOCATION ("warmelt-macro.melt:4150:/ cond.else");
+
+ /*^block */
+ /*anyblock */
+ {
+
+
+
+
+ {
+ /*^locexp */
+ melt_assert_failed (("check modctx"),
+ ("warmelt-macro.melt")
+ ? ("warmelt-macro.melt") : __FILE__,
+ (4150) ? (4150) : __LINE__, __FUNCTION__);
+ ;
+ }
+ ;
+ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0;
+ /*epilog */
+ }
+ ;
+ }
+ ;
+ /*^compute */
+
+ /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];;
+ /*epilog */
+
+ MELT_LOCATION ("warmelt-macro.melt:4150:/ clear");
+ /*clear *//*_#IS_OBJECT__L4*/ meltfnum[3] = 0;
+ /*^clear */
+ /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0;
+ }
+
+#else /*MELT_HAVE_DEBUG */
+ /*^cppif.else */
+ /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL);
+#endif /*MELT_HAVE_DEBUG */
+ ;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4124:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4151:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -34255,7 +35097,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L3*/ meltfnum[0] =
+ /*_#MELT_NEED_DBG__L5*/ meltfnum[3] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -34263,35 +35105,35 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4124:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4151:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] =
+ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4124:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4151:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
- argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3];
+ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4124;
+ argtab[2].meltbp_long = 4151;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_cppif sexpr";
/*^apply.arg */
argtab[4].meltbp_aptr =
(melt_ptr_t *) & /*_.SEXPR__V2*/ meltfptr[1];
- /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] =
+ /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])),
+ (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[3])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -34299,85 +35141,85 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V11*/ meltfptr[10] =
- /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];;
+ /*_.IF___V15*/ meltfptr[14] =
+ /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4124:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4151:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V11*/ meltfptr[10] = NULL;;
+ /*_.IF___V15*/ meltfptr[14] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4124:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4151:/ quasiblock");
- /*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];;
+ /*_.PROGN___V17*/ meltfptr[15] = /*_.IF___V15*/ meltfptr[14];;
/*^compute */
- /*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];;
+ /*_.IFCPP___V14*/ meltfptr[12] = /*_.PROGN___V17*/ meltfptr[15];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4124:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4151:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[3] = 0;
/*^clear */
- /*clear *//*_.IF___V11*/ meltfptr[10] = 0;
+ /*clear *//*_.IF___V15*/ meltfptr[14] = 0;
/*^clear */
- /*clear *//*_.PROGN___V13*/ meltfptr[11] = 0;
+ /*clear *//*_.PROGN___V17*/ meltfptr[15] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL);
+ /*_.IFCPP___V14*/ meltfptr[12] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4125:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4152:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:4126:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4153:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
- /*_.CONT__V15*/
- meltfptr[11] = slot;
+ /*_.CONT__V19*/
+ meltfptr[15] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:4127:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4154:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
- /*_.LOC__V16*/
- meltfptr[15] = slot;
+ /*_.LOC__V20*/
+ meltfptr[19] = slot;
};
;
- /*_.LIST_FIRST__V17*/ meltfptr[16] =
- (melt_list_first ((melt_ptr_t) ( /*_.CONT__V15*/ meltfptr[11])));;
+ /*_.LIST_FIRST__V21*/ meltfptr[20] =
+ (melt_list_first ((melt_ptr_t) ( /*_.CONT__V19*/ meltfptr[15])));;
/*^compute */
- /*_.CURPAIR__V18*/ meltfptr[17] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));;
+ /*_.CURPAIR__V22*/ meltfptr[21] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V21*/ meltfptr[20])));;
/*^compute */
- /*_.CURIF__V19*/ meltfptr[18] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
+ /*_.CURIF__V23*/ meltfptr[22] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
/*^compute */
- /*_#IS_PAIR__L5*/ meltfnum[3] =
- (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])) ==
+ /*_#IS_PAIR__L7*/ meltfnum[5] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) ==
MELTOBMAG_PAIR);;
/*^compute */
- /*_#NOT__L6*/ meltfnum[0] =
- (!( /*_#IS_PAIR__L5*/ meltfnum[3]));;
- MELT_LOCATION ("warmelt-macro.melt:4131:/ cond");
- /*cond */ if ( /*_#NOT__L6*/ meltfnum[0]) /*then */
+ /*_#NOT__L8*/ meltfnum[3] =
+ (!( /*_#IS_PAIR__L7*/ meltfnum[5]));;
+ MELT_LOCATION ("warmelt-macro.melt:4158:/ cond");
+ /*cond */ if ( /*_#NOT__L8*/ meltfnum[3]) /*then */
{
/*^cond.then */
/*^block */
@@ -34386,8 +35228,8 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:4132:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
+ MELT_LOCATION ("warmelt-macro.melt:4159:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("missing condition in CPPIF"), (melt_ptr_t) 0);
}
;
@@ -34396,20 +35238,20 @@ lab_endgetargs:;
;
} /*noelse */
;
- /*_.PAIR_TAIL__V20*/ meltfptr[19] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:4133:/ compute");
- /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V21*/ meltfptr[20] =
- /*_.PAIR_TAIL__V20*/ meltfptr[19];;
- /*_#IS_PAIR__L7*/ meltfnum[6] =
- (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])) ==
+ /*_.PAIR_TAIL__V24*/ meltfptr[23] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ MELT_LOCATION ("warmelt-macro.melt:4160:/ compute");
+ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V25*/ meltfptr[24] =
+ /*_.PAIR_TAIL__V24*/ meltfptr[23];;
+ /*_#IS_PAIR__L9*/ meltfnum[8] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) ==
MELTOBMAG_PAIR);;
/*^compute */
- /*_#NOT__L8*/ meltfnum[7] =
- (!( /*_#IS_PAIR__L7*/ meltfnum[6]));;
- MELT_LOCATION ("warmelt-macro.melt:4134:/ cond");
- /*cond */ if ( /*_#NOT__L8*/ meltfnum[7]) /*then */
+ /*_#NOT__L10*/ meltfnum[9] =
+ (!( /*_#IS_PAIR__L9*/ meltfnum[8]));;
+ MELT_LOCATION ("warmelt-macro.melt:4161:/ cond");
+ /*cond */ if ( /*_#NOT__L10*/ meltfnum[9]) /*then */
{
/*^cond.then */
/*^block */
@@ -34418,8 +35260,8 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:4135:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
+ MELT_LOCATION ("warmelt-macro.melt:4162:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("missing then in CPPIF"), (melt_ptr_t) 0);
}
;
@@ -34428,30 +35270,31 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:4136:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4163:/ quasiblock");
/*^apply */
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2];
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.XCOND__V23*/ meltfptr[22] =
- melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[3])),
- (melt_ptr_t) ( /*_.CURIF__V19*/ meltfptr[18]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ /*^apply.arg */
+ argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.XCOND__V27*/ meltfptr[26] =
+ melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.CURIF__V23*/ meltfptr[22]),
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab, "", (union meltparam_un *) 0);
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4137:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4164:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -34466,7 +35309,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L9*/ meltfnum[8] =
+ /*_#MELT_NEED_DBG__L11*/ meltfnum[10] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -34474,36 +35317,36 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4137:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[8]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4164:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L11*/ meltfnum[10]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] =
+ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4137:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4164:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9];
+ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4137;
+ argtab[2].meltbp_long = 4164;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_cppif xcond";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.XCOND__V23*/ meltfptr[22];
- /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] =
+ (melt_ptr_t *) & /*_.XCOND__V27*/ meltfptr[26];
+ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])),
+ (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[3])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -34511,78 +35354,78 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V25*/ meltfptr[24] =
- /*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];;
+ /*_.IF___V29*/ meltfptr[28] =
+ /*_.MELT_DEBUG_FUN__V30*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4137:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4164:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L12*/ meltfnum[11] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V30*/ meltfptr[29] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V25*/ meltfptr[24] = NULL;;
+ /*_.IF___V29*/ meltfptr[28] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4137:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4164:/ quasiblock");
- /*_.PROGN___V27*/ meltfptr[25] = /*_.IF___V25*/ meltfptr[24];;
+ /*_.PROGN___V31*/ meltfptr[29] = /*_.IF___V29*/ meltfptr[28];;
/*^compute */
- /*_.IFCPP___V24*/ meltfptr[23] = /*_.PROGN___V27*/ meltfptr[25];;
+ /*_.IFCPP___V28*/ meltfptr[27] = /*_.PROGN___V31*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4137:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[8] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4164:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L11*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.IF___V25*/ meltfptr[24] = 0;
+ /*clear *//*_.IF___V29*/ meltfptr[28] = 0;
/*^clear */
- /*clear *//*_.PROGN___V27*/ meltfptr[25] = 0;
+ /*clear *//*_.PROGN___V31*/ meltfptr[29] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V24*/ meltfptr[23] = ( /*nil */ NULL);
+ /*_.IFCPP___V28*/ meltfptr[27] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
- /*_#IS_STRING__L11*/ meltfnum[9] =
- (melt_magic_discr ((melt_ptr_t) ( /*_.XCOND__V23*/ meltfptr[22])) ==
+ /*_#IS_STRING__L13*/ meltfnum[11] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.XCOND__V27*/ meltfptr[26])) ==
MELTOBMAG_STRING);;
- MELT_LOCATION ("warmelt-macro.melt:4139:/ cond");
- /*cond */ if ( /*_#IS_STRING__L11*/ meltfnum[9]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4166:/ cond");
+ /*cond */ if ( /*_#IS_STRING__L13*/ meltfnum[11]) /*then */
{
/*^cond.then */
- /*_.IFELSE___V28*/ meltfptr[24] = ( /*nil */ NULL);;
+ /*_.IFELSE___V32*/ meltfptr[28] = ( /*nil */ NULL);;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4139:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4166:/ cond.else");
/*^block */
/*anyblock */
{
- /*_#IS_A__L12*/ meltfnum[8] =
+ /*_#IS_A__L14*/ meltfnum[10] =
melt_is_instance_of ((melt_ptr_t)
- ( /*_.XCOND__V23*/ meltfptr[22]),
+ ( /*_.XCOND__V27*/ meltfptr[26]),
(melt_ptr_t) (( /*!CLASS_SYMBOL */
meltfrout->tabval[4])));;
- MELT_LOCATION ("warmelt-macro.melt:4140:/ cond");
- /*cond */ if ( /*_#IS_A__L12*/ meltfnum[8]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4167:/ cond");
+ /*cond */ if ( /*_#IS_A__L14*/ meltfnum[10]) /*then */
{
/*^cond.then */
- /*_.IFELSE___V29*/ meltfptr[25] = ( /*nil */ NULL);;
+ /*_.IFELSE___V33*/ meltfptr[29] = ( /*nil */ NULL);;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4140:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4167:/ cond.else");
/*^block */
/*anyblock */
@@ -34590,86 +35433,87 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:4142:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
+ MELT_LOCATION ("warmelt-macro.melt:4169:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("invalid cpp-condition in CPPIF - string or symbol expected"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:4143:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4170:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = ( /*nil */ NULL);;
- MELT_LOCATION ("warmelt-macro.melt:4143:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4170:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:4141:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4168:/ quasiblock");
- /*_.PROGN___V31*/ meltfptr[30] =
- /*_.RETURN___V30*/ meltfptr[29];;
+ /*_.PROGN___V35*/ meltfptr[34] =
+ /*_.RETURN___V34*/ meltfptr[33];;
/*^compute */
- /*_.IFELSE___V29*/ meltfptr[25] =
- /*_.PROGN___V31*/ meltfptr[30];;
+ /*_.IFELSE___V33*/ meltfptr[29] =
+ /*_.PROGN___V35*/ meltfptr[34];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4140:/ clear");
- /*clear *//*_.RETURN___V30*/ meltfptr[29] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4167:/ clear");
+ /*clear *//*_.RETURN___V34*/ meltfptr[33] = 0;
/*^clear */
- /*clear *//*_.PROGN___V31*/ meltfptr[30] = 0;
+ /*clear *//*_.PROGN___V35*/ meltfptr[34] = 0;
}
;
}
;
- /*_.IFELSE___V28*/ meltfptr[24] = /*_.IFELSE___V29*/ meltfptr[25];;
+ /*_.IFELSE___V32*/ meltfptr[28] = /*_.IFELSE___V33*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4139:/ clear");
- /*clear *//*_#IS_A__L12*/ meltfnum[8] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4166:/ clear");
+ /*clear *//*_#IS_A__L14*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V29*/ meltfptr[25] = 0;
+ /*clear *//*_.IFELSE___V33*/ meltfptr[29] = 0;
}
;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4144:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4171:/ quasiblock");
- /*_.CURTHEN__V33*/ meltfptr[30] =
- (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
+ /*_.CURTHEN__V37*/ meltfptr[34] =
+ (melt_pair_head ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
/*^compute */
- /*_.PAIR_TAIL__V34*/ meltfptr[25] =
- (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:4145:/ compute");
- /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V35*/ meltfptr[34] =
- /*_.PAIR_TAIL__V34*/ meltfptr[25];;
- MELT_LOCATION ("warmelt-macro.melt:4146:/ quasiblock");
+ /*_.PAIR_TAIL__V38*/ meltfptr[29] =
+ (melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ MELT_LOCATION ("warmelt-macro.melt:4172:/ compute");
+ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V39*/ meltfptr[38] =
+ /*_.PAIR_TAIL__V38*/ meltfptr[29];;
+ MELT_LOCATION ("warmelt-macro.melt:4173:/ quasiblock");
/*^apply */
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2];
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.XTHEN__V37*/ meltfptr[36] =
- melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[3])),
- (melt_ptr_t) ( /*_.CURTHEN__V33*/ meltfptr[30]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ /*^apply.arg */
+ argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.XTHEN__V41*/ meltfptr[40] =
+ melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.CURTHEN__V37*/ meltfptr[34]),
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab, "", (union meltparam_un *) 0);
}
;
- /*_.XELSE__V38*/ meltfptr[37] = ( /*nil */ NULL);;
+ /*_.XELSE__V42*/ meltfptr[41] = ( /*nil */ NULL);;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4149:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4176:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -34684,7 +35528,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L13*/ meltfnum[8] =
+ /*_#MELT_NEED_DBG__L15*/ meltfnum[10] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -34692,36 +35536,36 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4149:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L13*/ meltfnum[8]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4176:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[10]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] =
+ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4149:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4176:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13];
+ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4149;
+ argtab[2].meltbp_long = 4176;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_cppif xthen";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.XTHEN__V37*/ meltfptr[36];
- /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] =
+ (melt_ptr_t *) & /*_.XTHEN__V41*/ meltfptr[40];
+ /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])),
+ (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[3])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -34729,68 +35573,68 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V40*/ meltfptr[39] =
- /*_.MELT_DEBUG_FUN__V41*/ meltfptr[40];;
+ /*_.IF___V44*/ meltfptr[43] =
+ /*_.MELT_DEBUG_FUN__V45*/ meltfptr[44];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4149:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4176:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V41*/ meltfptr[40] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V45*/ meltfptr[44] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V40*/ meltfptr[39] = NULL;;
+ /*_.IF___V44*/ meltfptr[43] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4149:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4176:/ quasiblock");
- /*_.PROGN___V42*/ meltfptr[40] = /*_.IF___V40*/ meltfptr[39];;
+ /*_.PROGN___V46*/ meltfptr[44] = /*_.IF___V44*/ meltfptr[43];;
/*^compute */
- /*_.IFCPP___V39*/ meltfptr[38] = /*_.PROGN___V42*/ meltfptr[40];;
+ /*_.IFCPP___V43*/ meltfptr[42] = /*_.PROGN___V46*/ meltfptr[44];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4149:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L13*/ meltfnum[8] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4176:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.IF___V40*/ meltfptr[39] = 0;
+ /*clear *//*_.IF___V44*/ meltfptr[43] = 0;
/*^clear */
- /*clear *//*_.PROGN___V42*/ meltfptr[40] = 0;
+ /*clear *//*_.PROGN___V46*/ meltfptr[44] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V39*/ meltfptr[38] = ( /*nil */ NULL);
+ /*_.IFCPP___V43*/ meltfptr[42] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
- /*_#IS_PAIR__L15*/ meltfnum[13] =
- (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])) ==
+ /*_#IS_PAIR__L17*/ meltfnum[15] =
+ (melt_magic_discr ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) ==
MELTOBMAG_PAIR);;
- MELT_LOCATION ("warmelt-macro.melt:4150:/ cond");
- /*cond */ if ( /*_#IS_PAIR__L15*/ meltfnum[13]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4177:/ cond");
+ /*cond */ if ( /*_#IS_PAIR__L17*/ meltfnum[15]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:4151:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4178:/ quasiblock");
- /*_.CURELSE__V43*/ meltfptr[39] =
+ /*_.CURELSE__V47*/ meltfptr[43] =
(melt_pair_head
- ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:4152:/ apply");
+ ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ MELT_LOCATION ("warmelt-macro.melt:4179:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -34798,17 +35642,20 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
- /*_.GOTXELSE__V44*/ meltfptr[40] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.GOTXELSE__V48*/ meltfptr[44] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->tabval[3])),
- (melt_ptr_t) ( /*_.CURELSE__V43*/ meltfptr[39]),
- (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.CURELSE__V47*/ meltfptr[43]),
+ (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR
+ ""), argtab, "", (union meltparam_un *) 0);
}
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4153:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4180:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -34823,7 +35670,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L16*/ meltfnum[8] =
+ /*_#MELT_NEED_DBG__L18*/ meltfnum[10] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -34831,37 +35678,37 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4153:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[8]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4180:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[10]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] =
+ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[18] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4153:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4180:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16];
+ /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[18];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4153;
+ argtab[2].meltbp_long = 4180;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_cppif gotxelse";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.GOTXELSE__V44*/ meltfptr[40];
- /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] =
+ (melt_ptr_t *) & /*_.GOTXELSE__V48*/ meltfptr[44];
+ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] =
melt_apply ((meltclosure_ptr_t)
(( /*!MELT_DEBUG_FUN */ meltfrout->
- tabval[2])),
+ tabval[3])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -34869,62 +35716,62 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V46*/ meltfptr[45] =
- /*_.MELT_DEBUG_FUN__V47*/ meltfptr[46];;
+ /*_.IF___V50*/ meltfptr[49] =
+ /*_.MELT_DEBUG_FUN__V51*/ meltfptr[50];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4153:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[16] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4180:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[18] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V47*/ meltfptr[46] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V51*/ meltfptr[50] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V46*/ meltfptr[45] = NULL;;
+ /*_.IF___V50*/ meltfptr[49] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4153:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4180:/ quasiblock");
- /*_.PROGN___V48*/ meltfptr[46] = /*_.IF___V46*/ meltfptr[45];;
+ /*_.PROGN___V52*/ meltfptr[50] = /*_.IF___V50*/ meltfptr[49];;
/*^compute */
- /*_.IFCPP___V45*/ meltfptr[44] = /*_.PROGN___V48*/ meltfptr[46];;
+ /*_.IFCPP___V49*/ meltfptr[48] = /*_.PROGN___V52*/ meltfptr[50];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4153:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[8] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4180:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.IF___V46*/ meltfptr[45] = 0;
+ /*clear *//*_.IF___V50*/ meltfptr[49] = 0;
/*^clear */
- /*clear *//*_.PROGN___V48*/ meltfptr[46] = 0;
+ /*clear *//*_.PROGN___V52*/ meltfptr[50] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V45*/ meltfptr[44] = ( /*nil */ NULL);
+ /*_.IFCPP___V49*/ meltfptr[48] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
/*^compute */
- /*_.PAIR_TAIL__V49*/ meltfptr[45] =
+ /*_.PAIR_TAIL__V53*/ meltfptr[49] =
(melt_pair_tail
- ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
- MELT_LOCATION ("warmelt-macro.melt:4154:/ compute");
- /*_.CURPAIR__V18*/ meltfptr[17] = /*_.SETQ___V50*/ meltfptr[46] =
- /*_.PAIR_TAIL__V49*/ meltfptr[45];;
- MELT_LOCATION ("warmelt-macro.melt:4155:/ compute");
- /*_.XELSE__V38*/ meltfptr[37] = /*_.SETQ___V51*/ meltfptr[50] =
- /*_.GOTXELSE__V44*/ meltfptr[40];;
- /*_#IS_PAIR__L18*/ meltfnum[16] =
+ ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])));;
+ MELT_LOCATION ("warmelt-macro.melt:4181:/ compute");
+ /*_.CURPAIR__V22*/ meltfptr[21] = /*_.SETQ___V54*/ meltfptr[50] =
+ /*_.PAIR_TAIL__V53*/ meltfptr[49];;
+ MELT_LOCATION ("warmelt-macro.melt:4182:/ compute");
+ /*_.XELSE__V42*/ meltfptr[41] = /*_.SETQ___V55*/ meltfptr[54] =
+ /*_.GOTXELSE__V48*/ meltfptr[44];;
+ /*_#IS_PAIR__L20*/ meltfnum[18] =
(melt_magic_discr
- ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])) ==
+ ((melt_ptr_t) ( /*_.CURPAIR__V22*/ meltfptr[21])) ==
MELTOBMAG_PAIR);;
- MELT_LOCATION ("warmelt-macro.melt:4156:/ cond");
- /*cond */ if ( /*_#IS_PAIR__L18*/ meltfnum[16]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4183:/ cond");
+ /*cond */ if ( /*_#IS_PAIR__L20*/ meltfnum[18]) /*then */
{
/*^cond.then */
/*^block */
@@ -34933,8 +35780,8 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:4157:/ locexp");
- melt_error_str ((melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]),
+ MELT_LOCATION ("warmelt-macro.melt:4184:/ locexp");
+ melt_error_str ((melt_ptr_t) ( /*_.LOC__V20*/ meltfptr[19]),
("CPPIF with more than three sons"),
(melt_ptr_t) 0);
}
@@ -34945,26 +35792,26 @@ lab_endgetargs:;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:4151:/ clear");
- /*clear *//*_.CURELSE__V43*/ meltfptr[39] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4178:/ clear");
+ /*clear *//*_.CURELSE__V47*/ meltfptr[43] = 0;
/*^clear */
- /*clear *//*_.GOTXELSE__V44*/ meltfptr[40] = 0;
+ /*clear *//*_.GOTXELSE__V48*/ meltfptr[44] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V45*/ meltfptr[44] = 0;
+ /*clear *//*_.IFCPP___V49*/ meltfptr[48] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V49*/ meltfptr[45] = 0;
+ /*clear *//*_.PAIR_TAIL__V53*/ meltfptr[49] = 0;
/*^clear */
- /*clear *//*_.SETQ___V50*/ meltfptr[46] = 0;
+ /*clear *//*_.SETQ___V54*/ meltfptr[50] = 0;
/*^clear */
- /*clear *//*_.SETQ___V51*/ meltfptr[50] = 0;
+ /*clear *//*_.SETQ___V55*/ meltfptr[54] = 0;
/*^clear */
- /*clear *//*_#IS_PAIR__L18*/ meltfnum[16] = 0;
+ /*clear *//*_#IS_PAIR__L20*/ meltfnum[18] = 0;
/*epilog */
}
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:4158:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4185:/ quasiblock");
/*^quasiblock */
@@ -34978,7 +35825,7 @@ lab_endgetargs:;
(melt_ptr_t) (( /*!CLASS_SOURCE_CPPIF */
meltfrout->tabval[5])), (5),
"CLASS_SOURCE_CPPIF");
- /*_.INST__V54*/ meltfptr[44] =
+ /*_.INST__V58*/ meltfptr[48] =
newobj;
};
;
@@ -34986,42 +35833,42 @@ lab_endgetargs:;
/*putslot */
melt_assertmsg ("putslot checkobj @LOCA_LOCATION",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V54*/ meltfptr[44])) ==
+ ( /*_.INST__V58*/ meltfptr[48])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V54*/ meltfptr[44]), (1),
- ( /*_.LOC__V16*/ meltfptr[15]), "LOCA_LOCATION");
+ melt_putfield_object (( /*_.INST__V58*/ meltfptr[48]), (1),
+ ( /*_.LOC__V20*/ meltfptr[19]), "LOCA_LOCATION");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SIFP_COND",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V54*/ meltfptr[44])) ==
+ ( /*_.INST__V58*/ meltfptr[48])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V54*/ meltfptr[44]), (2),
- ( /*_.XCOND__V23*/ meltfptr[22]), "SIFP_COND");
+ melt_putfield_object (( /*_.INST__V58*/ meltfptr[48]), (2),
+ ( /*_.XCOND__V27*/ meltfptr[26]), "SIFP_COND");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SIFP_THEN",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V54*/ meltfptr[44])) ==
+ ( /*_.INST__V58*/ meltfptr[48])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V54*/ meltfptr[44]), (3),
- ( /*_.XTHEN__V37*/ meltfptr[36]), "SIFP_THEN");
+ melt_putfield_object (( /*_.INST__V58*/ meltfptr[48]), (3),
+ ( /*_.XTHEN__V41*/ meltfptr[40]), "SIFP_THEN");
;
/*^putslot */
/*putslot */
melt_assertmsg ("putslot checkobj @SIFP_ELSE",
melt_magic_discr ((melt_ptr_t)
- ( /*_.INST__V54*/ meltfptr[44])) ==
+ ( /*_.INST__V58*/ meltfptr[48])) ==
MELTOBMAG_OBJECT);
- melt_putfield_object (( /*_.INST__V54*/ meltfptr[44]), (4),
- ( /*_.XELSE__V38*/ meltfptr[37]), "SIFP_ELSE");
+ melt_putfield_object (( /*_.INST__V58*/ meltfptr[48]), (4),
+ ( /*_.XELSE__V42*/ meltfptr[41]), "SIFP_ELSE");
;
- /*_.RESP__V53*/ meltfptr[40] = /*_.INST__V54*/ meltfptr[44];;
+ /*_.RESP__V57*/ meltfptr[44] = /*_.INST__V58*/ meltfptr[48];;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4165:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4192:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -35036,7 +35883,7 @@ lab_endgetargs:;
;
}
;
- /*_#MELT_NEED_DBG__L19*/ meltfnum[8] =
+ /*_#MELT_NEED_DBG__L21*/ meltfnum[10] =
/*MELT_NEED_DBG */
#if MELT_HAVE_DEBUG
( /*melt_need_dbg */ melt_need_debug ((int) 0))
@@ -35044,36 +35891,36 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4165:/ cond");
- /*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[8]) /*then */
+ MELT_LOCATION ("warmelt-macro.melt:4192:/ cond");
+ /*cond */ if ( /*_#MELT_NEED_DBG__L21*/ meltfnum[10]) /*then */
{
/*^cond.then */
/*^block */
/*anyblock */
{
- /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[16] =
+ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[18] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4165:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4192:/ apply");
/*apply */
{
union meltparam_un argtab[5];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_long =
- /*_#THE_MELTCALLCOUNT__L20*/ meltfnum[16];
+ /*_#THE_MELTCALLCOUNT__L22*/ meltfnum[18];
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4165;
+ argtab[2].meltbp_long = 4192;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_cppif return resp";
/*^apply.arg */
argtab[4].meltbp_aptr =
- (melt_ptr_t *) & /*_.RESP__V53*/ meltfptr[40];
- /*_.MELT_DEBUG_FUN__V57*/ meltfptr[50] =
+ (melt_ptr_t *) & /*_.RESP__V57*/ meltfptr[44];
+ /*_.MELT_DEBUG_FUN__V61*/ meltfptr[54] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[2])),
+ (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[3])),
(melt_ptr_t) (( /*nil */ NULL)),
(MELTBPARSTR_LONG MELTBPARSTR_CSTRING
MELTBPARSTR_LONG MELTBPARSTR_CSTRING
@@ -35081,125 +35928,125 @@ lab_endgetargs:;
(union meltparam_un *) 0);
}
;
- /*_.IF___V56*/ meltfptr[46] =
- /*_.MELT_DEBUG_FUN__V57*/ meltfptr[50];;
+ /*_.IF___V60*/ meltfptr[50] =
+ /*_.MELT_DEBUG_FUN__V61*/ meltfptr[54];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4165:/ clear");
- /*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[16] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4192:/ clear");
+ /*clear *//*_#THE_MELTCALLCOUNT__L22*/ meltfnum[18] = 0;
/*^clear */
- /*clear *//*_.MELT_DEBUG_FUN__V57*/ meltfptr[50] = 0;
+ /*clear *//*_.MELT_DEBUG_FUN__V61*/ meltfptr[54] = 0;
}
;
}
else
{ /*^cond.else */
- /*_.IF___V56*/ meltfptr[46] = NULL;;
+ /*_.IF___V60*/ meltfptr[50] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4165:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4192:/ quasiblock");
- /*_.PROGN___V58*/ meltfptr[50] = /*_.IF___V56*/ meltfptr[46];;
+ /*_.PROGN___V62*/ meltfptr[54] = /*_.IF___V60*/ meltfptr[50];;
/*^compute */
- /*_.IFCPP___V55*/ meltfptr[45] = /*_.PROGN___V58*/ meltfptr[50];;
+ /*_.IFCPP___V59*/ meltfptr[49] = /*_.PROGN___V62*/ meltfptr[54];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4165:/ clear");
- /*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[8] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4192:/ clear");
+ /*clear *//*_#MELT_NEED_DBG__L21*/ meltfnum[10] = 0;
/*^clear */
- /*clear *//*_.IF___V56*/ meltfptr[46] = 0;
+ /*clear *//*_.IF___V60*/ meltfptr[50] = 0;
/*^clear */
- /*clear *//*_.PROGN___V58*/ meltfptr[50] = 0;
+ /*clear *//*_.PROGN___V62*/ meltfptr[54] = 0;
}
#else /*MELT_HAVE_DEBUG */
/*^cppif.else */
- /*_.IFCPP___V55*/ meltfptr[45] = ( /*nil */ NULL);
+ /*_.IFCPP___V59*/ meltfptr[49] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4166:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4193:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V53*/ meltfptr[40];;
- MELT_LOCATION ("warmelt-macro.melt:4166:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.RESP__V57*/ meltfptr[44];;
+ MELT_LOCATION ("warmelt-macro.melt:4193:/ finalreturn");
;
/*finalret */ goto labend_rout;
- /*_.LET___V52*/ meltfptr[39] = /*_.RETURN___V59*/ meltfptr[46];;
+ /*_.LET___V56*/ meltfptr[43] = /*_.RETURN___V63*/ meltfptr[50];;
- MELT_LOCATION ("warmelt-macro.melt:4158:/ clear");
- /*clear *//*_.RESP__V53*/ meltfptr[40] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4185:/ clear");
+ /*clear *//*_.RESP__V57*/ meltfptr[44] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V55*/ meltfptr[45] = 0;
+ /*clear *//*_.IFCPP___V59*/ meltfptr[49] = 0;
/*^clear */
- /*clear *//*_.RETURN___V59*/ meltfptr[46] = 0;
- /*_.LET___V36*/ meltfptr[35] = /*_.LET___V52*/ meltfptr[39];;
+ /*clear *//*_.RETURN___V63*/ meltfptr[50] = 0;
+ /*_.LET___V40*/ meltfptr[39] = /*_.LET___V56*/ meltfptr[43];;
- MELT_LOCATION ("warmelt-macro.melt:4146:/ clear");
- /*clear *//*_.XTHEN__V37*/ meltfptr[36] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4173:/ clear");
+ /*clear *//*_.XTHEN__V41*/ meltfptr[40] = 0;
/*^clear */
- /*clear *//*_.XELSE__V38*/ meltfptr[37] = 0;
+ /*clear *//*_.XELSE__V42*/ meltfptr[41] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V39*/ meltfptr[38] = 0;
+ /*clear *//*_.IFCPP___V43*/ meltfptr[42] = 0;
/*^clear */
- /*clear *//*_#IS_PAIR__L15*/ meltfnum[13] = 0;
+ /*clear *//*_#IS_PAIR__L17*/ meltfnum[15] = 0;
/*^clear */
- /*clear *//*_.LET___V52*/ meltfptr[39] = 0;
- /*_.LET___V32*/ meltfptr[29] = /*_.LET___V36*/ meltfptr[35];;
+ /*clear *//*_.LET___V56*/ meltfptr[43] = 0;
+ /*_.LET___V36*/ meltfptr[33] = /*_.LET___V40*/ meltfptr[39];;
- MELT_LOCATION ("warmelt-macro.melt:4144:/ clear");
- /*clear *//*_.CURTHEN__V33*/ meltfptr[30] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4171:/ clear");
+ /*clear *//*_.CURTHEN__V37*/ meltfptr[34] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V34*/ meltfptr[25] = 0;
+ /*clear *//*_.PAIR_TAIL__V38*/ meltfptr[29] = 0;
/*^clear */
- /*clear *//*_.SETQ___V35*/ meltfptr[34] = 0;
+ /*clear *//*_.SETQ___V39*/ meltfptr[38] = 0;
/*^clear */
- /*clear *//*_.LET___V36*/ meltfptr[35] = 0;
- /*_.LET___V22*/ meltfptr[21] = /*_.LET___V32*/ meltfptr[29];;
+ /*clear *//*_.LET___V40*/ meltfptr[39] = 0;
+ /*_.LET___V26*/ meltfptr[25] = /*_.LET___V36*/ meltfptr[33];;
- MELT_LOCATION ("warmelt-macro.melt:4136:/ clear");
- /*clear *//*_.XCOND__V23*/ meltfptr[22] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4163:/ clear");
+ /*clear *//*_.XCOND__V27*/ meltfptr[26] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V24*/ meltfptr[23] = 0;
+ /*clear *//*_.IFCPP___V28*/ meltfptr[27] = 0;
/*^clear */
- /*clear *//*_#IS_STRING__L11*/ meltfnum[9] = 0;
+ /*clear *//*_#IS_STRING__L13*/ meltfnum[11] = 0;
/*^clear */
- /*clear *//*_.IFELSE___V28*/ meltfptr[24] = 0;
+ /*clear *//*_.IFELSE___V32*/ meltfptr[28] = 0;
/*^clear */
- /*clear *//*_.LET___V32*/ meltfptr[29] = 0;
- /*_.LET___V14*/ meltfptr[10] = /*_.LET___V22*/ meltfptr[21];;
+ /*clear *//*_.LET___V36*/ meltfptr[33] = 0;
+ /*_.LET___V18*/ meltfptr[14] = /*_.LET___V26*/ meltfptr[25];;
- MELT_LOCATION ("warmelt-macro.melt:4125:/ clear");
- /*clear *//*_.CONT__V15*/ meltfptr[11] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4152:/ clear");
+ /*clear *//*_.CONT__V19*/ meltfptr[15] = 0;
/*^clear */
- /*clear *//*_.LOC__V16*/ meltfptr[15] = 0;
+ /*clear *//*_.LOC__V20*/ meltfptr[19] = 0;
/*^clear */
- /*clear *//*_.LIST_FIRST__V17*/ meltfptr[16] = 0;
+ /*clear *//*_.LIST_FIRST__V21*/ meltfptr[20] = 0;
/*^clear */
- /*clear *//*_.CURPAIR__V18*/ meltfptr[17] = 0;
+ /*clear *//*_.CURPAIR__V22*/ meltfptr[21] = 0;
/*^clear */
- /*clear *//*_.CURIF__V19*/ meltfptr[18] = 0;
+ /*clear *//*_.CURIF__V23*/ meltfptr[22] = 0;
/*^clear */
- /*clear *//*_#IS_PAIR__L5*/ meltfnum[3] = 0;
+ /*clear *//*_#IS_PAIR__L7*/ meltfnum[5] = 0;
/*^clear */
- /*clear *//*_#NOT__L6*/ meltfnum[0] = 0;
+ /*clear *//*_#NOT__L8*/ meltfnum[3] = 0;
/*^clear */
- /*clear *//*_.PAIR_TAIL__V20*/ meltfptr[19] = 0;
+ /*clear *//*_.PAIR_TAIL__V24*/ meltfptr[23] = 0;
/*^clear */
- /*clear *//*_.SETQ___V21*/ meltfptr[20] = 0;
+ /*clear *//*_.SETQ___V25*/ meltfptr[24] = 0;
/*^clear */
- /*clear *//*_#IS_PAIR__L7*/ meltfnum[6] = 0;
+ /*clear *//*_#IS_PAIR__L9*/ meltfnum[8] = 0;
/*^clear */
- /*clear *//*_#NOT__L8*/ meltfnum[7] = 0;
+ /*clear *//*_#NOT__L10*/ meltfnum[9] = 0;
/*^clear */
- /*clear *//*_.LET___V22*/ meltfptr[21] = 0;
- MELT_LOCATION ("warmelt-macro.melt:4121:/ quasiblock");
+ /*clear *//*_.LET___V26*/ meltfptr[25] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4146:/ quasiblock");
- /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];;
- MELT_LOCATION ("warmelt-macro.melt:4121:/ finalreturn");
+ /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V18*/ meltfptr[14];;
+ MELT_LOCATION ("warmelt-macro.melt:4146:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -35209,9 +36056,15 @@ lab_endgetargs:;
/*^clear */
/*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0;
/*^clear */
- /*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0;
+ /*clear *//*_#NULL__L3*/ meltfnum[0] = 0;
/*^clear */
- /*clear *//*_.LET___V14*/ meltfptr[10] = 0;
+ /*clear *//*_.IF___V10*/ meltfptr[8] = 0;
+ /*^clear */
+ /*clear *//*_.IFCPP___V12*/ meltfptr[10] = 0;
+ /*^clear */
+ /*clear *//*_.IFCPP___V14*/ meltfptr[12] = 0;
+ /*^clear */
+ /*clear *//*_.LET___V18*/ meltfptr[14] = 0;
}
;
@@ -35289,7 +36142,7 @@ meltrout_68_warmelt_macro_FILTERGCCVERSION (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:4177:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:4204:/ getarg");
/*_.VERSIONSTR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
;
goto lab_endgetargs;
@@ -35301,7 +36154,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4178:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4205:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -35309,7 +36162,7 @@ lab_endgetargs:;
/*_#IS_STRING__L1*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.VERSIONSTR__V2*/ meltfptr[1]))
== MELTOBMAG_STRING);;
- MELT_LOCATION ("warmelt-macro.melt:4178:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4205:/ cond");
/*cond */ if ( /*_#IS_STRING__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -35317,7 +36170,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4178:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4205:/ cond.else");
/*^block */
/*anyblock */
@@ -35331,7 +36184,7 @@ lab_endgetargs:;
melt_assert_failed (("check versionstr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (4178) ? (4178) : __LINE__, __FUNCTION__);
+ (4205) ? (4205) : __LINE__, __FUNCTION__);
;
}
;
@@ -35346,7 +36199,7 @@ lab_endgetargs:;
/*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4178:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4205:/ clear");
/*clear *//*_#IS_STRING__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0;
@@ -35357,7 +36210,7 @@ lab_endgetargs:;
/*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4179:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4206:/ quasiblock");
/*_#VERSIONLEN__L2*/ meltfnum[0] =
@@ -35367,7 +36220,7 @@ lab_endgetargs:;
/*_.RES__V6*/ meltfptr[5] = ( /*nil */ NULL);;
{
- MELT_LOCATION ("warmelt-macro.melt:4184:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:4211:/ locexp");
if ( /*_#VERSIONLEN__L2*/ meltfnum[0] > 0 /*FILTERGCC__1 */
&&
!strncmp (melt_string_str
@@ -35378,26 +36231,26 @@ lab_endgetargs:;
;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4190:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4217:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V6*/ meltfptr[5];;
- MELT_LOCATION ("warmelt-macro.melt:4190:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4217:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*_.LET___V5*/ meltfptr[3] = /*_.RETURN___V7*/ meltfptr[6];;
- MELT_LOCATION ("warmelt-macro.melt:4179:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4206:/ clear");
/*clear *//*_#VERSIONLEN__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.RES__V6*/ meltfptr[5] = 0;
/*^clear */
/*clear *//*_.RETURN___V7*/ meltfptr[6] = 0;
- MELT_LOCATION ("warmelt-macro.melt:4177:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4204:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];;
- MELT_LOCATION ("warmelt-macro.melt:4177:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4204:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -35483,7 +36336,7 @@ meltrout_69_warmelt_macro_MEXPAND_GCCIF (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:4192:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:4219:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -35524,7 +36377,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4193:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4220:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -35533,7 +36386,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:4193:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4220:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -35541,7 +36394,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4193:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4220:/ cond.else");
/*^block */
/*anyblock */
@@ -35555,7 +36408,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (4193) ? (4193) : __LINE__, __FUNCTION__);
+ (4220) ? (4220) : __LINE__, __FUNCTION__);
;
}
;
@@ -35570,7 +36423,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4193:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4220:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -35583,7 +36436,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4194:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4221:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -35592,7 +36445,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:4194:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4221:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -35600,7 +36453,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4194:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4221:/ cond.else");
/*^block */
/*anyblock */
@@ -35614,7 +36467,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (4194) ? (4194) : __LINE__, __FUNCTION__);
+ (4221) ? (4221) : __LINE__, __FUNCTION__);
;
}
;
@@ -35629,7 +36482,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4194:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4221:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -35642,7 +36495,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4195:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4222:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -35665,7 +36518,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4195:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4222:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -35675,7 +36528,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4195:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4222:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -35685,7 +36538,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4195;
+ argtab[2].meltbp_long = 4222;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_gccif sexpr";
/*^apply.arg */
@@ -35705,7 +36558,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4195:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4222:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0;
@@ -35718,7 +36571,7 @@ lab_endgetargs:;
/*_.IF___V11*/ meltfptr[10] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4195:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4222:/ quasiblock");
/*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];;
@@ -35727,7 +36580,7 @@ lab_endgetargs:;
/*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4195:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4222:/ clear");
/*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V11*/ meltfptr[10] = 0;
@@ -35740,10 +36593,10 @@ lab_endgetargs:;
/*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4196:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4223:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:4197:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4224:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
@@ -35751,7 +36604,7 @@ lab_endgetargs:;
meltfptr[11] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:4198:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4225:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
@@ -35775,7 +36628,7 @@ lab_endgetargs:;
(melt_pair_tail ((melt_ptr_t) ( /*_.CURPAIR__V18*/ meltfptr[17])));;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4203:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4230:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -35798,7 +36651,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4203:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4230:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L5*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -35808,7 +36661,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4203:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4230:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -35818,7 +36671,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4203;
+ argtab[2].meltbp_long = 4230;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_gccif curif";
/*^apply.arg */
@@ -35838,7 +36691,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V23*/ meltfptr[22];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4203:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4230:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V23*/ meltfptr[22] = 0;
@@ -35851,7 +36704,7 @@ lab_endgetargs:;
/*_.IF___V22*/ meltfptr[21] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4203:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4230:/ quasiblock");
/*_.PROGN___V24*/ meltfptr[22] = /*_.IF___V22*/ meltfptr[21];;
@@ -35860,7 +36713,7 @@ lab_endgetargs:;
/*_.IFCPP___V21*/ meltfptr[20] = /*_.PROGN___V24*/ meltfptr[22];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4203:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4230:/ clear");
/*clear *//*_#MELT_NEED_DBG__L5*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.IF___V22*/ meltfptr[21] = 0;
@@ -35878,7 +36731,7 @@ lab_endgetargs:;
/*_#IS_STRING__L7*/ meltfnum[0] =
(melt_magic_discr ((melt_ptr_t) ( /*_.CURIF__V19*/ meltfptr[18])) ==
MELTOBMAG_STRING);;
- MELT_LOCATION ("warmelt-macro.melt:4205:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4232:/ cond");
/*cond */ if ( /*_#IS_STRING__L7*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -35886,7 +36739,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:4206:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4233:/ apply");
/*apply */
{
/*_.FILTERGCCVERSION__V26*/ meltfptr[22] =
@@ -35905,7 +36758,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:4207:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4234:/ quasiblock");
/*^apply */
@@ -35931,7 +36784,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4209:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4236:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -35954,7 +36807,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4209:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4236:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -35964,7 +36817,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4209:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4236:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -35975,7 +36828,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4209;
+ argtab[2].meltbp_long = 4236;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_gccif return exprest";
@@ -35997,7 +36850,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4209:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4236:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0;
@@ -36010,7 +36863,7 @@ lab_endgetargs:;
/*_.IF___V31*/ meltfptr[30] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4209:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4236:/ quasiblock");
/*_.PROGN___V33*/ meltfptr[31] =
@@ -36021,7 +36874,7 @@ lab_endgetargs:;
/*_.PROGN___V33*/ meltfptr[31];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4209:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4236:/ clear");
/*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.IF___V31*/ meltfptr[30] = 0;
@@ -36034,18 +36887,18 @@ lab_endgetargs:;
/*_.IFCPP___V30*/ meltfptr[29] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4210:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4237:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] =
/*_.EXPREST__V29*/ meltfptr[28];;
- MELT_LOCATION ("warmelt-macro.melt:4210:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4237:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*_.LET___V28*/ meltfptr[27] =
/*_.RETURN___V34*/ meltfptr[30];;
- MELT_LOCATION ("warmelt-macro.melt:4207:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4234:/ clear");
/*clear *//*_.EXPREST__V29*/ meltfptr[28] = 0;
/*^clear */
/*clear *//*_.IFCPP___V30*/ meltfptr[29] = 0;
@@ -36055,7 +36908,7 @@ lab_endgetargs:;
/*_.LET___V28*/ meltfptr[27];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4206:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4233:/ clear");
/*clear *//*_.LET___V28*/ meltfptr[27] = 0;
}
;
@@ -36069,7 +36922,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4212:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4239:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -36092,7 +36945,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4212:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4239:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[8]) /*then */
{
/*^cond.then */
@@ -36102,7 +36955,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L11*/ meltfnum[3] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4212:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4239:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -36113,7 +36966,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4212;
+ argtab[2].meltbp_long = 4239;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_gccif sexpr gcc version mismatched";
@@ -36135,7 +36988,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V37*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4212:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4239:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[3] =
0;
/*^clear */
@@ -36149,7 +37002,7 @@ lab_endgetargs:;
/*_.IF___V36*/ meltfptr[28] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4212:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4239:/ quasiblock");
/*_.PROGN___V38*/ meltfptr[30] =
@@ -36160,7 +37013,7 @@ lab_endgetargs:;
/*_.PROGN___V38*/ meltfptr[30];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4212:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4239:/ clear");
/*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[8] = 0;
/*^clear */
/*clear *//*_.IF___V36*/ meltfptr[28] = 0;
@@ -36173,14 +37026,14 @@ lab_endgetargs:;
/*_.IFCPP___V35*/ meltfptr[31] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4213:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4240:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:4213:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4240:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:4211:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4238:/ quasiblock");
/*_.PROGN___V40*/ meltfptr[29] =
@@ -36191,7 +37044,7 @@ lab_endgetargs:;
/*_.PROGN___V40*/ meltfptr[29];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4206:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4233:/ clear");
/*clear *//*_.IFCPP___V35*/ meltfptr[31] = 0;
/*^clear */
/*clear *//*_.RETURN___V39*/ meltfptr[27] = 0;
@@ -36204,7 +37057,7 @@ lab_endgetargs:;
/*_.IFELSE___V25*/ meltfptr[21] = /*_.IFELSE___V27*/ meltfptr[26];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4205:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4232:/ clear");
/*clear *//*_.FILTERGCCVERSION__V26*/ meltfptr[22] = 0;
/*^clear */
/*clear *//*_.IFELSE___V27*/ meltfptr[26] = 0;
@@ -36221,7 +37074,7 @@ lab_endgetargs:;
/*_#IS_LIST__L12*/ meltfnum[3] =
(melt_magic_discr ((melt_ptr_t) ( /*_.CURIF__V19*/ meltfptr[18]))
== MELTOBMAG_LIST);;
- MELT_LOCATION ("warmelt-macro.melt:4214:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4241:/ cond");
/*cond */ if ( /*_#IS_LIST__L12*/ meltfnum[3]) /*then */
{
/*^cond.then */
@@ -36229,7 +37082,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:4215:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4242:/ quasiblock");
/*_.OK__V43*/ meltfptr[31] = ( /*nil */ NULL);;
@@ -36255,7 +37108,7 @@ lab_endgetargs:;
/*_#NOT__L14*/ meltfnum[13] =
(!( /*_#IS_STRING__L13*/ meltfnum[8]));;
- MELT_LOCATION ("warmelt-macro.melt:4220:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4247:/ cond");
/*cond */ if ( /*_#NOT__L14*/ meltfnum[13]) /*then */
{
/*^cond.then */
@@ -36266,7 +37119,7 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:4221:/ locexp");
+ ("warmelt-macro.melt:4248:/ locexp");
melt_error_str ((melt_ptr_t)
( /*_.SLOC__V16*/ meltfptr[15]),
("GCC-IF condition not a list of strings"),
@@ -36278,7 +37131,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:4222:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4249:/ apply");
/*apply */
{
/*_.FILTERGCCVERSION__V46*/ meltfptr[22] =
@@ -36300,7 +37153,7 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:4223:/ compute");
+ ("warmelt-macro.melt:4250:/ compute");
/*_.OK__V43*/ meltfptr[31] =
/*_.SETQ___V48*/ meltfptr[47] =
( /*!konst_5_TRUE */ meltfrout->tabval[5]);;
@@ -36308,7 +37161,7 @@ lab_endgetargs:;
/*_.SETQ___V48*/ meltfptr[47];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4222:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4249:/ clear");
/*clear *//*_.SETQ___V48*/ meltfptr[47] = 0;
}
;
@@ -36323,7 +37176,7 @@ lab_endgetargs:;
/*citerepilog */
- MELT_LOCATION ("warmelt-macro.melt:4217:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4244:/ clear");
/*clear *//*_.CURPAIR__V44*/ meltfptr[27] = 0;
/*^clear */
/*clear *//*_.CURSTR__V45*/ meltfptr[29] = 0;
@@ -36337,7 +37190,7 @@ lab_endgetargs:;
/*clear *//*_.IF___V47*/ meltfptr[26] = 0;
} /*endciterblock FOREACH_IN_LIST */
;
- MELT_LOCATION ("warmelt-macro.melt:4225:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4252:/ cond");
/*cond */ if ( /*_.OK__V43*/ meltfptr[31]) /*then */
{
/*^cond.then */
@@ -36345,7 +37198,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:4226:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4253:/ quasiblock");
/*^apply */
@@ -36371,7 +37224,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4228:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4255:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -36394,7 +37247,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4228:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4255:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L15*/ meltfnum[14]) /*then */
{
/*^cond.then */
@@ -36405,7 +37258,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L16*/ meltfnum[15] =
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:4228:/ apply");
+ ("warmelt-macro.melt:4255:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -36417,7 +37270,7 @@ lab_endgetargs:;
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4228;
+ argtab[2].meltbp_long = 4255;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_gccif return exprest multicond";
@@ -36443,7 +37296,7 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:4228:/ clear");
+ ("warmelt-macro.melt:4255:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L16*/
meltfnum[15] = 0;
/*^clear */
@@ -36459,7 +37312,7 @@ lab_endgetargs:;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:4228:/ quasiblock");
+ ("warmelt-macro.melt:4255:/ quasiblock");
/*_.PROGN___V55*/ meltfptr[53] =
@@ -36470,7 +37323,7 @@ lab_endgetargs:;
/*_.PROGN___V55*/ meltfptr[53];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4228:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4255:/ clear");
/*clear *//*_#MELT_NEED_DBG__L15*/ meltfnum[14] = 0;
/*^clear */
/*clear *//*_.IF___V53*/ meltfptr[52] = 0;
@@ -36483,18 +37336,18 @@ lab_endgetargs:;
/*_.IFCPP___V52*/ meltfptr[51] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4229:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4256:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] =
/*_.EXPREST__V51*/ meltfptr[50];;
- MELT_LOCATION ("warmelt-macro.melt:4229:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4256:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*_.LET___V50*/ meltfptr[49] =
/*_.RETURN___V56*/ meltfptr[52];;
- MELT_LOCATION ("warmelt-macro.melt:4226:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4253:/ clear");
/*clear *//*_.EXPREST__V51*/ meltfptr[50] = 0;
/*^clear */
/*clear *//*_.IFCPP___V52*/ meltfptr[51] = 0;
@@ -36504,7 +37357,7 @@ lab_endgetargs:;
/*_.LET___V50*/ meltfptr[49];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4225:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4252:/ clear");
/*clear *//*_.LET___V50*/ meltfptr[49] = 0;
}
;
@@ -36518,7 +37371,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4231:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4258:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -36541,7 +37394,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4231:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4258:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L17*/ meltfnum[15]) /*then */
{
/*^cond.then */
@@ -36552,7 +37405,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L18*/ meltfnum[14] =
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:4231:/ apply");
+ ("warmelt-macro.melt:4258:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -36564,7 +37417,7 @@ lab_endgetargs:;
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4231;
+ argtab[2].meltbp_long = 4258;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_gccif sexpr gcc version multicond mismatched";
@@ -36590,7 +37443,7 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:4231:/ clear");
+ ("warmelt-macro.melt:4258:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L18*/
meltfnum[14] = 0;
/*^clear */
@@ -36606,7 +37459,7 @@ lab_endgetargs:;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:4231:/ quasiblock");
+ ("warmelt-macro.melt:4258:/ quasiblock");
/*_.PROGN___V60*/ meltfptr[52] =
@@ -36617,7 +37470,7 @@ lab_endgetargs:;
/*_.PROGN___V60*/ meltfptr[52];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4231:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4258:/ clear");
/*clear *//*_#MELT_NEED_DBG__L17*/ meltfnum[15] = 0;
/*^clear */
/*clear *//*_.IF___V58*/ meltfptr[50] = 0;
@@ -36630,14 +37483,14 @@ lab_endgetargs:;
/*_.IFCPP___V57*/ meltfptr[53] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4232:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4259:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:4232:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4259:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:4230:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4257:/ quasiblock");
/*_.PROGN___V62*/ meltfptr[51] =
@@ -36648,7 +37501,7 @@ lab_endgetargs:;
/*_.PROGN___V62*/ meltfptr[51];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4225:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4252:/ clear");
/*clear *//*_.IFCPP___V57*/ meltfptr[53] = 0;
/*^clear */
/*clear *//*_.RETURN___V61*/ meltfptr[49] = 0;
@@ -36661,7 +37514,7 @@ lab_endgetargs:;
/*_.LET___V42*/ meltfptr[30] =
/*_.IFELSE___V49*/ meltfptr[47];;
- MELT_LOCATION ("warmelt-macro.melt:4215:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4242:/ clear");
/*clear *//*_.OK__V43*/ meltfptr[31] = 0;
/*^clear */
/*clear *//*_.IFELSE___V49*/ meltfptr[47] = 0;
@@ -36669,7 +37522,7 @@ lab_endgetargs:;
/*_.LET___V42*/ meltfptr[30];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4214:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4241:/ clear");
/*clear *//*_.LET___V42*/ meltfptr[30] = 0;
}
;
@@ -36683,21 +37536,21 @@ lab_endgetargs:;
{
- MELT_LOCATION ("warmelt-macro.melt:4236:/ locexp");
+ MELT_LOCATION ("warmelt-macro.melt:4263:/ locexp");
melt_error_str ((melt_ptr_t)
( /*_.SLOC__V16*/ meltfptr[15]),
("GCC-IF bad condition, should be a string or a list of strings"),
(melt_ptr_t) 0);
}
;
- MELT_LOCATION ("warmelt-macro.melt:4237:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4264:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = NULL;;
- MELT_LOCATION ("warmelt-macro.melt:4237:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4264:/ finalreturn");
;
/*finalret */ goto labend_rout;
- MELT_LOCATION ("warmelt-macro.melt:4235:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4262:/ quasiblock");
/*_.PROGN___V64*/ meltfptr[52] =
@@ -36708,7 +37561,7 @@ lab_endgetargs:;
/*_.PROGN___V64*/ meltfptr[52];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4214:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4241:/ clear");
/*clear *//*_.RETURN___V63*/ meltfptr[50] = 0;
/*^clear */
/*clear *//*_.PROGN___V64*/ meltfptr[52] = 0;
@@ -36719,7 +37572,7 @@ lab_endgetargs:;
/*_.IFELSE___V25*/ meltfptr[21] = /*_.IFELSE___V41*/ meltfptr[28];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4205:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4232:/ clear");
/*clear *//*_#IS_LIST__L12*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.IFELSE___V41*/ meltfptr[28] = 0;
@@ -36729,7 +37582,7 @@ lab_endgetargs:;
;
/*_.LET___V14*/ meltfptr[10] = /*_.IFELSE___V25*/ meltfptr[21];;
- MELT_LOCATION ("warmelt-macro.melt:4196:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4223:/ clear");
/*clear *//*_.CONT__V15*/ meltfptr[11] = 0;
/*^clear */
/*clear *//*_.SLOC__V16*/ meltfptr[15] = 0;
@@ -36747,11 +37600,11 @@ lab_endgetargs:;
/*clear *//*_#IS_STRING__L7*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V25*/ meltfptr[21] = 0;
- MELT_LOCATION ("warmelt-macro.melt:4192:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4219:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];;
- MELT_LOCATION ("warmelt-macro.melt:4192:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4219:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
@@ -36841,7 +37694,7 @@ meltrout_70_warmelt_macro_MEXPAND_COND (meltclosure_ptr_t meltclosp_,
/*getargs*/
/*getarg#0 */
- MELT_LOCATION ("warmelt-macro.melt:4250:/ getarg");
+ MELT_LOCATION ("warmelt-macro.melt:4277:/ getarg");
/*_.SEXPR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_;
/*getarg#1 */
@@ -36882,7 +37735,7 @@ lab_endgetargs:;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4251:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4278:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -36891,7 +37744,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:4251:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4278:/ cond");
/*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -36899,7 +37752,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4251:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4278:/ cond.else");
/*^block */
/*anyblock */
@@ -36913,7 +37766,7 @@ lab_endgetargs:;
melt_assert_failed (("check sexpr"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (4251) ? (4251) : __LINE__, __FUNCTION__);
+ (4278) ? (4278) : __LINE__, __FUNCTION__);
;
}
;
@@ -36928,7 +37781,7 @@ lab_endgetargs:;
/*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4251:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4278:/ clear");
/*clear *//*_#IS_A__L1*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0;
@@ -36941,7 +37794,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4252:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4279:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -36950,7 +37803,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:4252:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4279:/ cond");
/*cond */ if ( /*_#IS_A__L2*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -36958,7 +37811,7 @@ lab_endgetargs:;
}
else
{
- MELT_LOCATION ("warmelt-macro.melt:4252:/ cond.else");
+ MELT_LOCATION ("warmelt-macro.melt:4279:/ cond.else");
/*^block */
/*anyblock */
@@ -36972,7 +37825,7 @@ lab_endgetargs:;
melt_assert_failed (("check env"),
("warmelt-macro.melt")
? ("warmelt-macro.melt") : __FILE__,
- (4252) ? (4252) : __LINE__, __FUNCTION__);
+ (4279) ? (4279) : __LINE__, __FUNCTION__);
;
}
;
@@ -36987,7 +37840,7 @@ lab_endgetargs:;
/*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4252:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4279:/ clear");
/*clear *//*_#IS_A__L2*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0;
@@ -37000,7 +37853,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4253:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4280:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -37023,7 +37876,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4253:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4280:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -37033,7 +37886,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4253:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4280:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -37043,7 +37896,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4253;
+ argtab[2].meltbp_long = 4280;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_cond sexpr";
/*^apply.arg */
@@ -37063,7 +37916,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V12*/ meltfptr[11];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4253:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4280:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[3] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = 0;
@@ -37076,7 +37929,7 @@ lab_endgetargs:;
/*_.IF___V11*/ meltfptr[10] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4253:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4280:/ quasiblock");
/*_.PROGN___V13*/ meltfptr[11] = /*_.IF___V11*/ meltfptr[10];;
@@ -37085,7 +37938,7 @@ lab_endgetargs:;
/*_.IFCPP___V10*/ meltfptr[8] = /*_.PROGN___V13*/ meltfptr[11];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4253:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4280:/ clear");
/*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V11*/ meltfptr[10] = 0;
@@ -37098,10 +37951,10 @@ lab_endgetargs:;
/*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4254:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4281:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:4255:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4282:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 2, "SEXP_CONTENTS");
@@ -37109,7 +37962,7 @@ lab_endgetargs:;
meltfptr[11] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:4256:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4283:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.SEXPR__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");
@@ -37123,7 +37976,7 @@ lab_endgetargs:;
/*_.PAIR_TAIL__V18*/ meltfptr[17] =
(melt_pair_tail ((melt_ptr_t) ( /*_.LIST_FIRST__V17*/ meltfptr[16])));;
- MELT_LOCATION ("warmelt-macro.melt:4260:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4287:/ quasiblock");
/*^newclosure */
@@ -37147,7 +38000,7 @@ lab_endgetargs:;
(melt_ptr_t) ( /*_.LOC__V16*/ meltfptr[15]);
;
/*_.LAMBDA___V19*/ meltfptr[18] = /*_.LAMBDA___V20*/ meltfptr[19];;
- MELT_LOCATION ("warmelt-macro.melt:4257:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4284:/ apply");
/*apply */
{
union meltparam_un argtab[2];
@@ -37169,7 +38022,7 @@ lab_endgetargs:;
/*_#NBCOND__L5*/ meltfnum[3] =
(melt_multiple_length
((melt_ptr_t) ( /*_.CEXPTUPLE__V21*/ meltfptr[20])));;
- MELT_LOCATION ("warmelt-macro.melt:4266:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4293:/ quasiblock");
/*_.LX__V23*/ meltfptr[22] =
@@ -37177,7 +38030,7 @@ lab_endgetargs:;
((melt_ptr_t) ( /*_.CEXPTUPLE__V21*/ meltfptr[20]), (-1)));;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4267:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4294:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -37200,7 +38053,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4267:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4294:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -37210,7 +38063,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4267:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4294:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -37220,7 +38073,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4267;
+ argtab[2].meltbp_long = 4294;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_cond lastcexp lx";
/*^apply.arg */
@@ -37240,7 +38093,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V26*/ meltfptr[25];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4267:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4294:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V26*/ meltfptr[25] = 0;
@@ -37253,7 +38106,7 @@ lab_endgetargs:;
/*_.IF___V25*/ meltfptr[24] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4267:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4294:/ quasiblock");
/*_.PROGN___V27*/ meltfptr[25] = /*_.IF___V25*/ meltfptr[24];;
@@ -37262,7 +38115,7 @@ lab_endgetargs:;
/*_.IFCPP___V24*/ meltfptr[23] = /*_.PROGN___V27*/ meltfptr[25];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4267:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4294:/ clear");
/*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V25*/ meltfptr[24] = 0;
@@ -37279,7 +38132,7 @@ lab_endgetargs:;
/*_.LET___V22*/ meltfptr[21] = /*_.LX__V23*/ meltfptr[22];;
- MELT_LOCATION ("warmelt-macro.melt:4266:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4293:/ clear");
/*clear *//*_.LX__V23*/ meltfptr[22] = 0;
/*^clear */
/*clear *//*_.IFCPP___V24*/ meltfptr[23] = 0;
@@ -37293,7 +38146,7 @@ lab_endgetargs:;
/*_.RES__V29*/ meltfptr[25] = ( /*nil */ NULL);;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4272:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4299:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -37316,7 +38169,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4272:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4299:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L9*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -37326,7 +38179,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4272:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4299:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -37337,7 +38190,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4272;
+ argtab[2].meltbp_long = 4299;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_cond cexptuple";
/*^apply.arg */
@@ -37357,7 +38210,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V32*/ meltfptr[31];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4272:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4299:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L10*/ meltfnum[9] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V32*/ meltfptr[31] = 0;
@@ -37370,7 +38223,7 @@ lab_endgetargs:;
/*_.IF___V31*/ meltfptr[23] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4272:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4299:/ quasiblock");
/*_.PROGN___V33*/ meltfptr[31] = /*_.IF___V31*/ meltfptr[23];;
@@ -37379,7 +38232,7 @@ lab_endgetargs:;
/*_.IFCPP___V30*/ meltfptr[22] = /*_.PROGN___V33*/ meltfptr[31];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4272:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4299:/ clear");
/*clear *//*_#MELT_NEED_DBG__L9*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V31*/ meltfptr[23] = 0;
@@ -37392,7 +38245,7 @@ lab_endgetargs:;
/*_.IFCPP___V30*/ meltfptr[22] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4273:/ loop");
+ MELT_LOCATION ("warmelt-macro.melt:4300:/ loop");
/*loop */
{
labloop_CONDLOOP_1:; /*^loopbody */
@@ -37403,7 +38256,7 @@ lab_endgetargs:;
/*_#I__L11*/ meltfnum[9] =
(( /*_#IX__L8*/ meltfnum[6]) < (0));;
- MELT_LOCATION ("warmelt-macro.melt:4274:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4301:/ cond");
/*cond */ if ( /*_#I__L11*/ meltfnum[9]) /*then */
{
/*^cond.then */
@@ -37428,7 +38281,7 @@ lab_endgetargs:;
;
} /*noelse */
;
- MELT_LOCATION ("warmelt-macro.melt:4275:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4302:/ quasiblock");
/*_.CURCOND__V37*/ meltfptr[36] =
@@ -37437,7 +38290,7 @@ lab_endgetargs:;
( /*_#IX__L8*/ meltfnum[6])));;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4276:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4303:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -37460,7 +38313,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4276:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4303:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -37470,7 +38323,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4276:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4303:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -37481,7 +38334,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4276;
+ argtab[2].meltbp_long = 4303;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_cond curcond";
/*^apply.arg */
@@ -37502,7 +38355,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V40*/ meltfptr[39];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4276:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4303:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[12] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V40*/ meltfptr[39] = 0;
@@ -37515,7 +38368,7 @@ lab_endgetargs:;
/*_.IF___V39*/ meltfptr[38] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4276:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4303:/ quasiblock");
/*_.PROGN___V41*/ meltfptr[39] = /*_.IF___V39*/ meltfptr[38];;
@@ -37524,7 +38377,7 @@ lab_endgetargs:;
/*_.IFCPP___V38*/ meltfptr[37] = /*_.PROGN___V41*/ meltfptr[39];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4276:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4303:/ clear");
/*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[0] = 0;
/*^clear */
/*clear *//*_.IF___V39*/ meltfptr[38] = 0;
@@ -37541,7 +38394,7 @@ lab_endgetargs:;
/*_#NULL__L14*/ meltfnum[12] =
(( /*_.RES__V29*/ meltfptr[25]) == NULL);;
- MELT_LOCATION ("warmelt-macro.melt:4278:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4305:/ cond");
/*cond */ if ( /*_#NULL__L14*/ meltfnum[12]) /*then */
{
/*^cond.then */
@@ -37554,7 +38407,7 @@ lab_endgetargs:;
( /*_.CURCOND__V37*/ meltfptr[36]),
(melt_ptr_t) (( /*!CLASS_SEXPR */
meltfrout->tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:4278:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4305:/ cond");
/*cond */ if ( /*_#IS_A__L16*/ meltfnum[15]) /*then */
{
/*^cond.then */
@@ -37562,7 +38415,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:4281:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4308:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCOND__V37*/ meltfptr[36]), 2, "SEXP_CONTENTS");
@@ -37589,7 +38442,7 @@ lab_endgetargs:;
/*_#IF___L17*/ meltfnum[16] = /*_#__L18*/ meltfnum[17];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4278:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4305:/ clear");
/*clear *//*_.SEXP_CONTENTS__V42*/ meltfptr[38] = 0;
/*^clear */
/*clear *//*_.LIST_FIRST__V43*/ meltfptr[39] = 0;
@@ -37611,7 +38464,7 @@ lab_endgetargs:;
/*_#IF___L15*/ meltfnum[0] = /*_#IF___L17*/ meltfnum[16];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4278:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4305:/ clear");
/*clear *//*_#IS_A__L16*/ meltfnum[15] = 0;
/*^clear */
/*clear *//*_#IF___L17*/ meltfnum[16] = 0;
@@ -37624,7 +38477,7 @@ lab_endgetargs:;
/*_#IF___L15*/ meltfnum[0] = 0;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4278:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4305:/ cond");
/*cond */ if ( /*_#IF___L15*/ meltfnum[0]) /*then */
{
/*^cond.then */
@@ -37632,10 +38485,10 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:4282:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4309:/ quasiblock");
- MELT_LOCATION ("warmelt-macro.melt:4283:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4310:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCOND__V37*/ meltfptr[36]), 2, "SEXP_CONTENTS");
@@ -37651,7 +38504,7 @@ lab_endgetargs:;
/*_.RESTPAIRS__V49*/ meltfptr[48] =
(melt_pair_tail
((melt_ptr_t) ( /*_.LIST_FIRST__V48*/ meltfptr[47])));;
- MELT_LOCATION ("warmelt-macro.melt:4285:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4312:/ cond");
/*cond */ if ( /*_.RESTPAIRS__V49*/ meltfptr[48]) /*then */
{
/*^cond.then */
@@ -37659,7 +38512,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:4287:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4314:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCOND__V37*/ meltfptr[36]), 1, "LOCA_LOCATION");
@@ -37667,10 +38520,10 @@ lab_endgetargs:;
meltfptr[50] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:4286:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4313:/ apply");
/*apply */
{
- union meltparam_un argtab[3];
+ union meltparam_un argtab[4];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -37682,6 +38535,9 @@ lab_endgetargs:;
/*^apply.arg */
argtab[2].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3];
+ /*^apply.arg */
+ argtab[3].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
/*_.PAIRLIST_TO_PROGN__V52*/ meltfptr[51] =
melt_apply ((meltclosure_ptr_t)
(( /*!PAIRLIST_TO_PROGN */ meltfrout->
@@ -37689,8 +38545,8 @@ lab_endgetargs:;
(melt_ptr_t) ( /*_.RESTPAIRS__V49*/
meltfptr[48]),
(MELTBPARSTR_PTR MELTBPARSTR_PTR
- MELTBPARSTR_PTR ""), argtab, "",
- (union meltparam_un *) 0);
+ MELTBPARSTR_PTR MELTBPARSTR_PTR ""),
+ argtab, "", (union meltparam_un *) 0);
}
;
/*^compute */
@@ -37701,7 +38557,7 @@ lab_endgetargs:;
/*_.SETQ___V53*/ meltfptr[52];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4285:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4312:/ clear");
/*clear *//*_.LOCA_LOCATION__V51*/ meltfptr[50] = 0;
/*^clear */
/*clear *//*_.PAIRLIST_TO_PROGN__V52*/ meltfptr[51] = 0;
@@ -37718,7 +38574,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4289:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4317:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -37741,7 +38597,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4289:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4317:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L19*/ meltfnum[17]) /*then */
{
/*^cond.then */
@@ -37751,7 +38607,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L20*/ meltfnum[15] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4289:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4317:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -37762,7 +38618,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4289;
+ argtab[2].meltbp_long = 4317;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_cond res for :else";
@@ -37784,7 +38640,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V56*/ meltfptr[52];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4289:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4317:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L20*/ meltfnum[15] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V56*/ meltfptr[52] = 0;
@@ -37797,7 +38653,7 @@ lab_endgetargs:;
/*_.IF___V55*/ meltfptr[51] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4289:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4317:/ quasiblock");
/*_.PROGN___V57*/ meltfptr[52] = /*_.IF___V55*/ meltfptr[51];;
@@ -37807,7 +38663,7 @@ lab_endgetargs:;
/*_.PROGN___V57*/ meltfptr[52];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4289:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4317:/ clear");
/*clear *//*_#MELT_NEED_DBG__L19*/ meltfnum[17] = 0;
/*^clear */
/*clear *//*_.IF___V55*/ meltfptr[51] = 0;
@@ -37824,7 +38680,7 @@ lab_endgetargs:;
/*_.LET___V46*/ meltfptr[39] = /*_.IFCPP___V54*/ meltfptr[50];;
- MELT_LOCATION ("warmelt-macro.melt:4282:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4309:/ clear");
/*clear *//*_.SEXP_CONTENTS__V47*/ meltfptr[43] = 0;
/*^clear */
/*clear *//*_.LIST_FIRST__V48*/ meltfptr[47] = 0;
@@ -37837,7 +38693,7 @@ lab_endgetargs:;
/*_.IFELSE___V45*/ meltfptr[38] = /*_.LET___V46*/ meltfptr[39];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4278:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4305:/ clear");
/*clear *//*_.LET___V46*/ meltfptr[39] = 0;
}
;
@@ -37854,7 +38710,7 @@ lab_endgetargs:;
( /*_.CURCOND__V37*/ meltfptr[36]),
(melt_ptr_t) (( /*!CLASS_SEXPR */
meltfrout->tabval[0])));;
- MELT_LOCATION ("warmelt-macro.melt:4291:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4319:/ cond");
/*cond */ if ( /*_#IS_A__L21*/ meltfnum[16]) /*then */
{
/*^cond.then */
@@ -37862,7 +38718,7 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:4292:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4320:/ quasiblock");
/*^getslot */
@@ -37873,7 +38729,7 @@ lab_endgetargs:;
meltfptr[43] = slot;
};
;
- MELT_LOCATION ("warmelt-macro.melt:4293:/ getslot");
+ MELT_LOCATION ("warmelt-macro.melt:4321:/ getslot");
{
melt_ptr_t slot = 0;
melt_object_get_field (slot, (melt_ptr_t) ( /*_.CURCOND__V37*/ meltfptr[36]), 1, "LOCA_LOCATION");
@@ -37905,7 +38761,7 @@ lab_endgetargs:;
/*_#NULL__L22*/ meltfnum[15] =
(( /*_.CURCONDRESTPAIRS__V65*/ meltfptr[39]) == NULL);;
- MELT_LOCATION ("warmelt-macro.melt:4297:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4325:/ cond");
/*cond */ if ( /*_#NULL__L22*/ meltfnum[15]) /*then */
{
/*^cond.then */
@@ -37913,10 +38769,10 @@ lab_endgetargs:;
/*anyblock */
{
- MELT_LOCATION ("warmelt-macro.melt:4301:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4331:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -37925,15 +38781,17 @@ lab_endgetargs:;
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/
meltfptr[3];
- /*_.MACROEXPAND_1__V67*/ meltfptr[66] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4];
+ /*_.MEXPANDER__V67*/ meltfptr[66] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */ meltfrout->
- tabval[10])),
- (melt_ptr_t) ( /*_.CURCONDTEST__V63*/ meltfptr[49]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
+ ( /*_.MEXPANDER__V4*/ meltfptr[3]),
+ (melt_ptr_t) ( /*_.CURCONDTEST__V63*/ meltfptr[49]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
}
;
MELT_LOCATION
- ("warmelt-macro.melt:4300:/ blockmultialloc");
+ ("warmelt-macro.melt:4330:/ blockmultialloc");
/*multiallocblock */
{
struct meltletrec_1_st
@@ -37959,23 +38817,23 @@ lab_endgetargs:;
/*^putuple */
/*putupl#2 */
- melt_assertmsg ("putupl [:4300] #2 checktup",
+ melt_assertmsg ("putupl [:4330] #2 checktup",
melt_magic_discr ((melt_ptr_t)
( /*_.TUPLREC___V69*/ meltfptr[68])) == MELTOBMAG_MULTIPLE);
- melt_assertmsg ("putupl [:4300] #2 checkoff",
+ melt_assertmsg ("putupl [:4330] #2 checkoff",
(0 >= 0
&& 0 <
melt_multiple_length ((melt_ptr_t) ( /*_.TUPLREC___V69*/ meltfptr[68]))));
((meltmultiple_ptr_t)
( /*_.TUPLREC___V69*/ meltfptr[68]))->tabval[0] =
- (melt_ptr_t) ( /*_.MACROEXPAND_1__V67*/ meltfptr[66]);
+ (melt_ptr_t) ( /*_.MEXPANDER__V67*/ meltfptr[66]);
;
/*^putuple */
/*putupl#3 */
- melt_assertmsg ("putupl [:4300] #3 checktup",
+ melt_assertmsg ("putupl [:4330] #3 checktup",
melt_magic_discr ((melt_ptr_t)
( /*_.TUPLREC___V69*/ meltfptr[68])) == MELTOBMAG_MULTIPLE);
- melt_assertmsg ("putupl [:4300] #3 checkoff",
+ melt_assertmsg ("putupl [:4330] #3 checkoff",
(1 >= 0
&& 1 <
melt_multiple_length ((melt_ptr_t) ( /*_.TUPLREC___V69*/ meltfptr[68]))));
@@ -37990,14 +38848,14 @@ lab_endgetargs:;
/*_.TUPLREC___V69*/ meltfptr[68];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4300:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4330:/ clear");
/*clear *//*_.TUPLREC___V69*/ meltfptr[68] = 0;
/*^clear */
/*clear *//*_.TUPLREC___V69*/ meltfptr[68] = 0;
} /*end multiallocblock */
;
MELT_LOCATION
- ("warmelt-macro.melt:4298:/ quasiblock");
+ ("warmelt-macro.melt:4327:/ quasiblock");
/*^rawallocobj */
@@ -38037,14 +38895,14 @@ lab_endgetargs:;
;
/*_.INST___V70*/ meltfptr[68] =
/*_.INST__V71*/ meltfptr[70];;
- MELT_LOCATION ("warmelt-macro.melt:4298:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:4326:/ compute");
/*_.RES__V29*/ meltfptr[25] =
/*_.SETQ___V72*/ meltfptr[71] =
/*_.INST___V70*/ meltfptr[68];;
#if MELT_HAVE_DEBUG
MELT_LOCATION
- ("warmelt-macro.melt:4303:/ cppif.then");
+ ("warmelt-macro.melt:4333:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -38067,7 +38925,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4303:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4333:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L23*/ meltfnum[17]) /*then */
{
/*^cond.then */
@@ -38078,7 +38936,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L24*/ meltfnum[23] =
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:4303:/ apply");
+ ("warmelt-macro.melt:4333:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -38091,7 +38949,7 @@ lab_endgetargs:;
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4303;
+ argtab[2].meltbp_long = 4333;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_cond res for monoexp cond";
@@ -38119,7 +38977,7 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:4303:/ clear");
+ ("warmelt-macro.melt:4333:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L24*/
meltfnum[23] = 0;
/*^clear */
@@ -38135,7 +38993,7 @@ lab_endgetargs:;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:4303:/ quasiblock");
+ ("warmelt-macro.melt:4333:/ quasiblock");
/*_.PROGN___V76*/ meltfptr[74] =
@@ -38146,7 +39004,7 @@ lab_endgetargs:;
/*_.PROGN___V76*/ meltfptr[74];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4303:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4333:/ clear");
/*clear *//*_#MELT_NEED_DBG__L23*/ meltfnum[17] =
0;
/*^clear */
@@ -38161,7 +39019,7 @@ lab_endgetargs:;
#endif /*MELT_HAVE_DEBUG */
;
MELT_LOCATION
- ("warmelt-macro.melt:4297:/ quasiblock");
+ ("warmelt-macro.melt:4325:/ quasiblock");
/*_.PROGN___V77*/ meltfptr[73] =
@@ -38172,8 +39030,8 @@ lab_endgetargs:;
/*_.PROGN___V77*/ meltfptr[73];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4297:/ clear");
- /*clear *//*_.MACROEXPAND_1__V67*/ meltfptr[66] = 0;
+ MELT_LOCATION ("warmelt-macro.melt:4325:/ clear");
+ /*clear *//*_.MEXPANDER__V67*/ meltfptr[66] = 0;
/*^clear */
/*clear *//*_.TUPLE___V68*/ meltfptr[67] = 0;
/*^clear */
@@ -38202,7 +39060,7 @@ lab_endgetargs:;
/*_#NULL__L25*/ meltfnum[23] =
(( /*_.PAIR_TAIL__V78*/ meltfptr[74]) == NULL);;
- MELT_LOCATION ("warmelt-macro.melt:4305:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4335:/ cond");
/*cond */ if ( /*_#NULL__L25*/ meltfnum[23]) /*then */
{
/*^cond.then */
@@ -38211,10 +39069,10 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:4308:/ apply");
+ ("warmelt-macro.melt:4339:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -38224,11 +39082,15 @@ lab_endgetargs:;
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/
meltfptr[3];
- /*_.MACROEXPAND_1__V80*/ meltfptr[67] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/
+ meltfptr[4];
+ /*_.MEXPANDER__V80*/ meltfptr[67] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */
- meltfrout->tabval[10])),
- (melt_ptr_t) ( /*_.CURCONDTEST__V63*/ meltfptr[49]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
+ ( /*_.MEXPANDER__V4*/
+ meltfptr[3]),
+ (melt_ptr_t) ( /*_.CURCONDTEST__V63*/ meltfptr[49]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
}
;
/*_.PAIR_HEAD__V81*/ meltfptr[68] =
@@ -38237,10 +39099,10 @@ lab_endgetargs:;
( /*_.CURCONDRESTPAIRS__V65*/
meltfptr[39])));;
MELT_LOCATION
- ("warmelt-macro.melt:4309:/ apply");
+ ("warmelt-macro.melt:4340:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -38250,15 +39112,19 @@ lab_endgetargs:;
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/
meltfptr[3];
- /*_.MACROEXPAND_1__V82*/ meltfptr[71] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/
+ meltfptr[4];
+ /*_.MEXPANDER__V82*/ meltfptr[71] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */
- meltfrout->tabval[10])),
- (melt_ptr_t) ( /*_.PAIR_HEAD__V81*/ meltfptr[68]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
+ ( /*_.MEXPANDER__V4*/
+ meltfptr[3]),
+ (melt_ptr_t) ( /*_.PAIR_HEAD__V81*/ meltfptr[68]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
}
;
MELT_LOCATION
- ("warmelt-macro.melt:4306:/ quasiblock");
+ ("warmelt-macro.melt:4337:/ quasiblock");
/*^rawallocobj */
@@ -38266,7 +39132,7 @@ lab_endgetargs:;
{
melt_ptr_t newobj = 0;
melt_raw_object_create (newobj,
- (melt_ptr_t) (( /*!CLASS_SOURCE_IFELSE */ meltfrout->tabval[11])), (5), "CLASS_SOURCE_IFELSE");
+ (melt_ptr_t) (( /*!CLASS_SOURCE_IFELSE */ meltfrout->tabval[10])), (5), "CLASS_SOURCE_IFELSE");
/*_.INST__V84*/ meltfptr[73] =
newobj;
};
@@ -38292,7 +39158,9 @@ lab_endgetargs:;
( /*_.INST__V84*/ meltfptr[73])) == MELTOBMAG_OBJECT);
melt_putfield_object (( /*_.INST__V84*/
meltfptr[73]), (2),
- ( /*_.MACROEXPAND_1__V80*/ meltfptr[67]), "SIF_TEST");
+ ( /*_.MEXPANDER__V80*/
+ meltfptr[67]),
+ "SIF_TEST");
;
/*^putslot */
/*putslot */
@@ -38301,7 +39169,9 @@ lab_endgetargs:;
( /*_.INST__V84*/ meltfptr[73])) == MELTOBMAG_OBJECT);
melt_putfield_object (( /*_.INST__V84*/
meltfptr[73]), (3),
- ( /*_.MACROEXPAND_1__V82*/ meltfptr[71]), "SIF_THEN");
+ ( /*_.MEXPANDER__V82*/
+ meltfptr[71]),
+ "SIF_THEN");
;
/*^putslot */
/*putslot */
@@ -38317,14 +39187,14 @@ lab_endgetargs:;
/*_.INST___V83*/ meltfptr[72] =
/*_.INST__V84*/ meltfptr[73];;
MELT_LOCATION
- ("warmelt-macro.melt:4306:/ compute");
+ ("warmelt-macro.melt:4336:/ compute");
/*_.RES__V29*/ meltfptr[25] =
/*_.SETQ___V85*/ meltfptr[84] =
/*_.INST___V83*/ meltfptr[72];;
#if MELT_HAVE_DEBUG
MELT_LOCATION
- ("warmelt-macro.melt:4312:/ cppif.then");
+ ("warmelt-macro.melt:4343:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -38349,7 +39219,7 @@ lab_endgetargs:;
#endif /*MELT_HAVE_DEBUG */
;;
MELT_LOCATION
- ("warmelt-macro.melt:4312:/ cond");
+ ("warmelt-macro.melt:4343:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L26*/ meltfnum[17]) /*then */
{
/*^cond.then */
@@ -38361,7 +39231,7 @@ lab_endgetargs:;
meltfnum[26] =
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:4312:/ apply");
+ ("warmelt-macro.melt:4343:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -38375,7 +39245,7 @@ lab_endgetargs:;
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4312;
+ argtab[2].meltbp_long = 4343;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_cond res for biexp cond";
@@ -38395,7 +39265,7 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:4312:/ clear");
+ ("warmelt-macro.melt:4343:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L27*/
meltfnum[26] = 0;
/*^clear */
@@ -38411,7 +39281,7 @@ lab_endgetargs:;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:4312:/ quasiblock");
+ ("warmelt-macro.melt:4343:/ quasiblock");
/*_.PROGN___V89*/ meltfptr[87] =
@@ -38423,7 +39293,7 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:4312:/ clear");
+ ("warmelt-macro.melt:4343:/ clear");
/*clear *//*_#MELT_NEED_DBG__L26*/
meltfnum[17] = 0;
/*^clear */
@@ -38440,7 +39310,7 @@ lab_endgetargs:;
#endif /*MELT_HAVE_DEBUG */
;
MELT_LOCATION
- ("warmelt-macro.melt:4305:/ quasiblock");
+ ("warmelt-macro.melt:4335:/ quasiblock");
/*_.PROGN___V90*/ meltfptr[86] =
@@ -38452,15 +39322,15 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:4305:/ clear");
- /*clear *//*_.MACROEXPAND_1__V80*/
- meltfptr[67] = 0;
+ ("warmelt-macro.melt:4335:/ clear");
+ /*clear *//*_.MEXPANDER__V80*/ meltfptr[67] =
+ 0;
/*^clear */
/*clear *//*_.PAIR_HEAD__V81*/ meltfptr[68] =
0;
/*^clear */
- /*clear *//*_.MACROEXPAND_1__V82*/
- meltfptr[71] = 0;
+ /*clear *//*_.MEXPANDER__V82*/ meltfptr[71] =
+ 0;
/*^clear */
/*clear *//*_.INST___V83*/ meltfptr[72] = 0;
/*^clear */
@@ -38480,10 +39350,10 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:4317:/ apply");
+ ("warmelt-macro.melt:4349:/ apply");
/*apply */
{
- union meltparam_un argtab[2];
+ union meltparam_un argtab[3];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -38493,18 +39363,22 @@ lab_endgetargs:;
argtab[1].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/
meltfptr[3];
- /*_.MACROEXPAND_1__V91*/ meltfptr[87] =
+ /*^apply.arg */
+ argtab[2].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/
+ meltfptr[4];
+ /*_.MEXPANDER__V91*/ meltfptr[87] =
melt_apply ((meltclosure_ptr_t)
- (( /*!MACROEXPAND_1 */
- meltfrout->tabval[10])),
- (melt_ptr_t) ( /*_.CURCONDTEST__V63*/ meltfptr[49]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
+ ( /*_.MEXPANDER__V4*/
+ meltfptr[3]),
+ (melt_ptr_t) ( /*_.CURCONDTEST__V63*/ meltfptr[49]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
}
;
MELT_LOCATION
- ("warmelt-macro.melt:4318:/ apply");
+ ("warmelt-macro.melt:4350:/ apply");
/*apply */
{
- union meltparam_un argtab[3];
+ union meltparam_un argtab[4];
memset (&argtab, 0, sizeof (argtab));
/*^apply.arg */
argtab[0].meltbp_aptr =
@@ -38518,15 +39392,19 @@ lab_endgetargs:;
argtab[2].meltbp_aptr =
(melt_ptr_t *) & /*_.MEXPANDER__V4*/
meltfptr[3];
+ /*^apply.arg */
+ argtab[3].meltbp_aptr =
+ (melt_ptr_t *) & /*_.MODCTX__V5*/
+ meltfptr[4];
/*_.PAIRLIST_TO_PROGN__V92*/ meltfptr[67] =
melt_apply ((meltclosure_ptr_t)
(( /*!PAIRLIST_TO_PROGN */
meltfrout->tabval[8])),
- (melt_ptr_t) ( /*_.CURCONDRESTPAIRS__V65*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
+ (melt_ptr_t) ( /*_.CURCONDRESTPAIRS__V65*/ meltfptr[39]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0);
}
;
MELT_LOCATION
- ("warmelt-macro.melt:4315:/ quasiblock");
+ ("warmelt-macro.melt:4347:/ quasiblock");
/*^rawallocobj */
@@ -38534,7 +39412,7 @@ lab_endgetargs:;
{
melt_ptr_t newobj = 0;
melt_raw_object_create (newobj,
- (melt_ptr_t) (( /*!CLASS_SOURCE_IFELSE */ meltfrout->tabval[11])), (5), "CLASS_SOURCE_IFELSE");
+ (melt_ptr_t) (( /*!CLASS_SOURCE_IFELSE */ meltfrout->tabval[10])), (5), "CLASS_SOURCE_IFELSE");
/*_.INST__V94*/ meltfptr[71] =
newobj;
};
@@ -38560,7 +39438,9 @@ lab_endgetargs:;
( /*_.INST__V94*/ meltfptr[71])) == MELTOBMAG_OBJECT);
melt_putfield_object (( /*_.INST__V94*/
meltfptr[71]), (2),
- ( /*_.MACROEXPAND_1__V91*/ meltfptr[87]), "SIF_TEST");
+ ( /*_.MEXPANDER__V91*/
+ meltfptr[87]),
+ "SIF_TEST");
;
/*^putslot */
/*putslot */
@@ -38585,14 +39465,14 @@ lab_endgetargs:;
/*_.INST___V93*/ meltfptr[68] =
/*_.INST__V94*/ meltfptr[71];;
MELT_LOCATION
- ("warmelt-macro.melt:4315:/ compute");
+ ("warmelt-macro.melt:4346:/ compute");
/*_.RES__V29*/ meltfptr[25] =
/*_.SETQ___V95*/ meltfptr[72] =
/*_.INST___V93*/ meltfptr[68];;
#if MELT_HAVE_DEBUG
MELT_LOCATION
- ("warmelt-macro.melt:4320:/ cppif.then");
+ ("warmelt-macro.melt:4352:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -38617,7 +39497,7 @@ lab_endgetargs:;
#endif /*MELT_HAVE_DEBUG */
;;
MELT_LOCATION
- ("warmelt-macro.melt:4320:/ cond");
+ ("warmelt-macro.melt:4352:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L28*/ meltfnum[26]) /*then */
{
/*^cond.then */
@@ -38629,7 +39509,7 @@ lab_endgetargs:;
meltfnum[17] =
meltcallcount;;
MELT_LOCATION
- ("warmelt-macro.melt:4320:/ apply");
+ ("warmelt-macro.melt:4352:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -38643,7 +39523,7 @@ lab_endgetargs:;
argtab[1].meltbp_cstring =
"warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4320;
+ argtab[2].meltbp_long = 4352;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_cond res for manyexp cond";
@@ -38663,7 +39543,7 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:4320:/ clear");
+ ("warmelt-macro.melt:4352:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L29*/
meltfnum[17] = 0;
/*^clear */
@@ -38679,7 +39559,7 @@ lab_endgetargs:;
}
;
MELT_LOCATION
- ("warmelt-macro.melt:4320:/ quasiblock");
+ ("warmelt-macro.melt:4352:/ quasiblock");
/*_.PROGN___V99*/ meltfptr[86] =
@@ -38691,7 +39571,7 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:4320:/ clear");
+ ("warmelt-macro.melt:4352:/ clear");
/*clear *//*_#MELT_NEED_DBG__L28*/
meltfnum[26] = 0;
/*^clear */
@@ -38708,7 +39588,7 @@ lab_endgetargs:;
#endif /*MELT_HAVE_DEBUG */
;
MELT_LOCATION
- ("warmelt-macro.melt:4314:/ quasiblock");
+ ("warmelt-macro.melt:4345:/ quasiblock");
/*_.PROGN___V100*/ meltfptr[85] =
@@ -38720,9 +39600,9 @@ lab_endgetargs:;
/*epilog */
MELT_LOCATION
- ("warmelt-macro.melt:4305:/ clear");
- /*clear *//*_.MACROEXPAND_1__V91*/
- meltfptr[87] = 0;
+ ("warmelt-macro.melt:4335:/ clear");
+ /*clear *//*_.MEXPANDER__V91*/ meltfptr[87] =
+ 0;
/*^clear */
/*clear *//*_.PAIRLIST_TO_PROGN__V92*/
meltfptr[67] = 0;
@@ -38742,7 +39622,7 @@ lab_endgetargs:;
/*_.IFELSE___V79*/ meltfptr[66];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4297:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4325:/ clear");
/*clear *//*_.PAIR_TAIL__V78*/ meltfptr[74] = 0;
/*^clear */
/*clear *//*_#NULL__L25*/ meltfnum[23] = 0;
@@ -38755,7 +39635,7 @@ lab_endgetargs:;
/*_.LET___V59*/ meltfptr[52] =
/*_.IFELSE___V66*/ meltfptr[65];;
- MELT_LOCATION ("warmelt-macro.melt:4292:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4320:/ clear");
/*clear *//*_.CURCONDCONT__V60*/ meltfptr[43] = 0;
/*^clear */
/*clear *//*_.CURCONDLOC__V61*/ meltfptr[47] = 0;
@@ -38775,7 +39655,7 @@ lab_endgetargs:;
/*_.LET___V59*/ meltfptr[52];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4291:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4319:/ clear");
/*clear *//*_.LET___V59*/ meltfptr[52] = 0;
}
;
@@ -38788,7 +39668,7 @@ lab_endgetargs:;
{
MELT_LOCATION
- ("warmelt-macro.melt:4326:/ blockmultialloc");
+ ("warmelt-macro.melt:4358:/ blockmultialloc");
/*multiallocblock */
{
struct meltletrec_2_st
@@ -38812,12 +39692,12 @@ lab_endgetargs:;
/*^putuple */
/*putupl#4 */
- melt_assertmsg ("putupl [:4326] #4 checktup",
+ melt_assertmsg ("putupl [:4358] #4 checktup",
melt_magic_discr ((melt_ptr_t)
( /*_.TUPLREC___V102*/
meltfptr[87])) ==
MELTOBMAG_MULTIPLE);
- melt_assertmsg ("putupl [:4326] #4 checkoff",
+ melt_assertmsg ("putupl [:4358] #4 checkoff",
(0 >= 0
&& 0 <
melt_multiple_length ((melt_ptr_t)
@@ -38828,12 +39708,12 @@ lab_endgetargs:;
;
/*^putuple */
/*putupl#5 */
- melt_assertmsg ("putupl [:4326] #5 checktup",
+ melt_assertmsg ("putupl [:4358] #5 checktup",
melt_magic_discr ((melt_ptr_t)
( /*_.TUPLREC___V102*/
meltfptr[87])) ==
MELTOBMAG_MULTIPLE);
- melt_assertmsg ("putupl [:4326] #5 checkoff",
+ melt_assertmsg ("putupl [:4358] #5 checkoff",
(1 >= 0
&& 1 <
melt_multiple_length ((melt_ptr_t)
@@ -38849,13 +39729,13 @@ lab_endgetargs:;
/*_.TUPLREC___V102*/ meltfptr[87];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4326:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4358:/ clear");
/*clear *//*_.TUPLREC___V102*/ meltfptr[87] = 0;
/*^clear */
/*clear *//*_.TUPLREC___V102*/ meltfptr[87] = 0;
} /*end multiallocblock */
;
- MELT_LOCATION ("warmelt-macro.melt:4324:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4356:/ quasiblock");
/*^rawallocobj */
@@ -38893,13 +39773,13 @@ lab_endgetargs:;
;
/*_.INST___V103*/ meltfptr[67] =
/*_.INST__V104*/ meltfptr[68];;
- MELT_LOCATION ("warmelt-macro.melt:4324:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:4356:/ compute");
/*_.RES__V29*/ meltfptr[25] =
/*_.SETQ___V105*/ meltfptr[72] =
/*_.INST___V103*/ meltfptr[67];;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4327:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4359:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -38922,7 +39802,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4327:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4359:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L30*/ meltfnum[17]) /*then */
{
/*^cond.then */
@@ -38932,7 +39812,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L31*/ meltfnum[26] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4327:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4359:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -38943,7 +39823,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4327;
+ argtab[2].meltbp_long = 4359;
/*^apply.arg */
argtab[3].meltbp_cstring =
"mexpand_cond res for nonsexp cond";
@@ -38967,7 +39847,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V108*/ meltfptr[74];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4327:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4359:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L31*/
meltfnum[26] = 0;
/*^clear */
@@ -38982,7 +39862,7 @@ lab_endgetargs:;
/*_.IF___V107*/ meltfptr[85] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4327:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4359:/ quasiblock");
/*_.PROGN___V109*/ meltfptr[66] =
@@ -38993,7 +39873,7 @@ lab_endgetargs:;
/*_.PROGN___V109*/ meltfptr[66];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4327:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4359:/ clear");
/*clear *//*_#MELT_NEED_DBG__L30*/ meltfnum[17] = 0;
/*^clear */
/*clear *//*_.IF___V107*/ meltfptr[85] = 0;
@@ -39006,7 +39886,7 @@ lab_endgetargs:;
/*_.IFCPP___V106*/ meltfptr[84] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4323:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4355:/ quasiblock");
/*_.PROGN___V110*/ meltfptr[43] =
@@ -39017,7 +39897,7 @@ lab_endgetargs:;
/*_.PROGN___V110*/ meltfptr[43];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4291:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4319:/ clear");
/*clear *//*_.TUPLE___V101*/ meltfptr[86] = 0;
/*^clear */
/*clear *//*_.INST___V103*/ meltfptr[67] = 0;
@@ -39035,7 +39915,7 @@ lab_endgetargs:;
/*_.IFELSE___V58*/ meltfptr[51];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4278:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4305:/ clear");
/*clear *//*_#IS_A__L21*/ meltfnum[16] = 0;
/*^clear */
/*clear *//*_.IFELSE___V58*/ meltfptr[51] = 0;
@@ -39045,7 +39925,7 @@ lab_endgetargs:;
;
/*_.LET___V36*/ meltfptr[35] = /*_.IFELSE___V45*/ meltfptr[38];;
- MELT_LOCATION ("warmelt-macro.melt:4275:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4302:/ clear");
/*clear *//*_.CURCOND__V37*/ meltfptr[36] = 0;
/*^clear */
/*clear *//*_.IFCPP___V38*/ meltfptr[37] = 0;
@@ -39057,12 +39937,12 @@ lab_endgetargs:;
/*clear *//*_.IFELSE___V45*/ meltfptr[38] = 0;
/*_#I__L32*/ meltfnum[23] =
(( /*_#IX__L8*/ meltfnum[6]) - (1));;
- MELT_LOCATION ("warmelt-macro.melt:4331:/ compute");
+ MELT_LOCATION ("warmelt-macro.melt:4363:/ compute");
/*_#IX__L8*/ meltfnum[6] = /*_#SETQ___L33*/ meltfnum[15] =
/*_#I__L32*/ meltfnum[23];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4273:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4300:/ clear");
/*clear *//*_#I__L11*/ meltfnum[9] = 0;
/*^clear */
/*clear *//*_.LET___V36*/ meltfptr[35] = 0;
@@ -39081,7 +39961,7 @@ lab_endgetargs:;
;
#if MELT_HAVE_DEBUG
- MELT_LOCATION ("warmelt-macro.melt:4333:/ cppif.then");
+ MELT_LOCATION ("warmelt-macro.melt:4365:/ cppif.then");
/*^block */
/*anyblock */
{
@@ -39104,7 +39984,7 @@ lab_endgetargs:;
0 /* no melt_need_dbg */
#endif /*MELT_HAVE_DEBUG */
;;
- MELT_LOCATION ("warmelt-macro.melt:4333:/ cond");
+ MELT_LOCATION ("warmelt-macro.melt:4365:/ cond");
/*cond */ if ( /*_#MELT_NEED_DBG__L34*/ meltfnum[26]) /*then */
{
/*^cond.then */
@@ -39114,7 +39994,7 @@ lab_endgetargs:;
/*_#THE_MELTCALLCOUNT__L35*/ meltfnum[17] =
meltcallcount;;
- MELT_LOCATION ("warmelt-macro.melt:4333:/ apply");
+ MELT_LOCATION ("warmelt-macro.melt:4365:/ apply");
/*apply */
{
union meltparam_un argtab[5];
@@ -39125,7 +40005,7 @@ lab_endgetargs:;
/*^apply.arg */
argtab[1].meltbp_cstring = "warmelt-macro.melt";
/*^apply.arg */
- argtab[2].meltbp_long = 4333;
+ argtab[2].meltbp_long = 4365;
/*^apply.arg */
argtab[3].meltbp_cstring = "mexpand_cond final res";
/*^apply.arg */
@@ -39145,7 +40025,7 @@ lab_endgetargs:;
/*_.MELT_DEBUG_FUN__V113*/ meltfptr[49];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4333:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4365:/ clear");
/*clear *//*_#THE_MELTCALLCOUNT__L35*/ meltfnum[17] = 0;
/*^clear */
/*clear *//*_.MELT_DEBUG_FUN__V113*/ meltfptr[49] = 0;
@@ -39158,7 +40038,7 @@ lab_endgetargs:;
/*_.IF___V112*/ meltfptr[48] = NULL;;
}
;
- MELT_LOCATION ("warmelt-macro.melt:4333:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4365:/ quasiblock");
/*_.PROGN___V114*/ meltfptr[50] = /*_.IF___V112*/ meltfptr[48];;
@@ -39167,7 +40047,7 @@ lab_endgetargs:;
/*_.IFCPP___V111*/ meltfptr[47] = /*_.PROGN___V114*/ meltfptr[50];;
/*epilog */
- MELT_LOCATION ("warmelt-macro.melt:4333:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4365:/ clear");
/*clear *//*_#MELT_NEED_DBG__L34*/ meltfnum[26] = 0;
/*^clear */
/*clear *//*_.IF___V112*/ meltfptr[48] = 0;
@@ -39180,16 +40060,16 @@ lab_endgetargs:;
/*_.IFCPP___V111*/ meltfptr[47] = ( /*nil */ NULL);
#endif /*MELT_HAVE_DEBUG */
;
- MELT_LOCATION ("warmelt-macro.melt:4334:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4366:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.RES__V29*/ meltfptr[25];;
- MELT_LOCATION ("warmelt-macro.melt:4334:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4366:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*_.LET___V14*/ meltfptr[10] = /*_.RETURN___V115*/ meltfptr[39];;
- MELT_LOCATION ("warmelt-macro.melt:4254:/ clear");
+ MELT_LOCATION ("warmelt-macro.melt:4281:/ clear");
/*clear *//*_.CONT__V15*/ meltfptr[11] = 0;
/*^clear */
/*clear *//*_.LOC__V16*/ meltfptr[15] = 0;
@@ -39219,11 +40099,11 @@ lab_endgetargs:;
/*clear *//*_.IFCPP___V111*/ meltfptr[47] = 0;
/*^clear */
/*clear *//*_.RETURN___V115*/ meltfptr[39] = 0;
- MELT_LOCATION ("warmelt-macro.melt:4250:/ quasiblock");
+ MELT_LOCATION ("warmelt-macro.melt:4277:/ quasiblock");
/*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[10];;
- MELT_LOCATION ("warmelt-macro.melt:4250:/ finalreturn");
+ MELT_LOCATION ("warmelt-macro.melt:4277:/ finalreturn");
;
/*finalret */ goto labend_rout;
/*epilog */
View Lorry Controller Status