diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-12 15:00:02 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-12 15:00:02 +0000 |
| commit | 874a503047a0343ad7ee66d5aa4f49438c645871 (patch) | |
| tree | 3973c6bf9bd681e055da1ccf7e73f14a331b50d5 /gcc/warmelt-macro-0.c | |
| parent | a55dd2315b949e25ab4db542d7943fdf0dc08fd4 (diff) | |
| download | gcc-874a503047a0343ad7ee66d5aa4f49438c645871.tar.gz | |
2009-06-12 Basile Starynkevitch <basile@starynkevitch.net>
[or pattern working]
* gcc/melt/warmelt-normatch.melt: normpat_orpat working...
* gcc/melt/warmelt-genobj.metl: compiltst_normtester_disjunction
implemented.
* gcc/warmelt-first-0.c: regenerated.
* gcc/warmelt-macro-0.c: regenerated.
* gcc/warmelt-normal-0.c: regenerated.
* gcc/warmelt-normatch-0.c: regenerated.
* gcc/warmelt-genobj-0.c: regenerated.
* gcc/warmelt-outobj-0.c: regenerated.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@148432 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/warmelt-macro-0.c')
| -rw-r--r-- | gcc/warmelt-macro-0.c | 23989 |
1 files changed, 12034 insertions, 11955 deletions
diff --git a/gcc/warmelt-macro-0.c b/gcc/warmelt-macro-0.c index cb3e71a104c..268b4073249 100644 --- a/gcc/warmelt-macro-0.c +++ b/gcc/warmelt-macro-0.c @@ -1,12 +1,12 @@ /* GCC MELT GENERATED FILE warmelt-macro-3.c - DO NOT EDIT */ -/* generated on 2009 Jun 05 */ +/* generated on 2009 Jun 12 */ #ifndef MELTGCC_DYNAMIC_OBJSTRUCT /* checksum of the gcc executable generating this file: */ const unsigned char genchecksum_melt[16]= - { 0x33, 0x17, 0x7, 0x83, 0xc5, 0x3c, 0x5, 0x8, - 0x61, 0xce, 0xd6, 0xce, 0x48, 0xce, 0xee, 0xc2}; + { 0xa7, 0x4f, 0x73, 0x9, 0x6d, 0xa4, 0xea, 0xae, + 0xaf, 0x3d, 0x2c, 0x5f, 0x51, 0x46, 0xc5, 0x5f}; #endif #include "run-basilys.h" @@ -6576,8 +6576,8 @@ rout_12_PATTERNEXPAND_PAIRLIST_AS_TUPLE(basilysclosure_ptr_t closp_, basilys_ptr struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; -#define CURFRAM_NBVARPTR 7 - void* varptr[7]; +#define CURFRAM_NBVARPTR 8 + void* varptr[8]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ @@ -6587,13 +6587,13 @@ rout_12_PATTERNEXPAND_PAIRLIST_AS_TUPLE(basilysclosure_ptr_t closp_, basilys_ptr int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); - for(ix=0; ix<7; ix++) + for(ix=0; ix<8; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 7; + curfram__.nbvar = 8; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; @@ -6617,6 +6617,13 @@ basilys_trace_start("PATTERNEXPAND_PAIRLIST_AS_TUPLE", callcount); /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL); + + /*getarg#3*/ + BASILYS_LOCATION("warmelt-macro.melt:929:/ getarg"); + if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; + /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; + gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); + ; goto lab_endgetargs; lab_endgetargs:; @@ -6626,22 +6633,28 @@ BASILYS_LOCATION("warmelt-macro.melt:929:/ block"); BASILYS_LOCATION("warmelt-macro.melt:931:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:931:/ newclosure"); - /*newclosure*/ /*_.LAMBDA___V6*/ curfptr[5] = - basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (2)); + /*newclosure*/ /*_.LAMBDA___V7*/ curfptr[6] = + basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (3)); ; BASILYS_LOCATION("warmelt-macro.melt:931:/ putclosedv"); /*putclosv*/ - basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V6*/ curfptr[5])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V6*/ curfptr[5]))); - ((basilysclosure_ptr_t)/*_.LAMBDA___V6*/ curfptr[5])->tabval[0] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); + basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6]))); + ((basilysclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[0] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-macro.melt:931:/ putclosedv"); /*putclosv*/ - basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V6*/ curfptr[5])) == OBMAG_CLOSURE); - basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V6*/ curfptr[5]))); - ((basilysclosure_ptr_t)/*_.LAMBDA___V6*/ curfptr[5])->tabval[1] = (basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3]); + basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6]))); + ((basilysclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[1] = (basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3]); ; - /*_.LAMBDA___V5*/ curfptr[4] = /*_.LAMBDA___V6*/ curfptr[5];;} + BASILYS_LOCATION("warmelt-macro.melt:931:/ putclosedv"); + /*putclosv*/ + basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE); + basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6]))); + ((basilysclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[2] = (basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4]); + ; + /*_.LAMBDA___V6*/ curfptr[5] = /*_.LAMBDA___V7*/ curfptr[6];;} ; BASILYS_LOCATION("warmelt-macro.melt:930:/ apply"); /*apply*/{ @@ -6650,22 +6663,22 @@ BASILYS_LOCATION("warmelt-macro.melt:929:/ block"); BASILYS_LOCATION("warmelt-macro.melt:930:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[1]); BASILYS_LOCATION("warmelt-macro.melt:930:/ apply.arg"); - argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V5*/ curfptr[4]; - /*_.PAIRLIST_TO_MULTIPLE__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PAIRLIST__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V6*/ curfptr[5]; + /*_.PAIRLIST_TO_MULTIPLE__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PAIRLIST__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-macro.melt:929:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PAIRLIST_TO_MULTIPLE__V7*/ curfptr[6];; + /*_.RETVAL___V1*/ curfptr[0] = /*_.PAIRLIST_TO_MULTIPLE__V8*/ curfptr[7];; BASILYS_LOCATION("warmelt-macro.melt:929:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:929:/ clear"); - /*clear*/ /*_.LAMBDA___V5*/ curfptr[4] = 0 ; + /*clear*/ /*_.LAMBDA___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:929:/ clear"); - /*clear*/ /*_.PAIRLIST_TO_MULTIPLE__V7*/ curfptr[6] = 0 ;} + /*clear*/ /*_.PAIRLIST_TO_MULTIPLE__V8*/ curfptr[7] = 0 ;} ; goto labend_rout; @@ -6735,13 +6748,15 @@ BASILYS_LOCATION("warmelt-macro.melt:931:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:931:/ apply"); /*apply*/{ - union basilysparam_un argtab[2]; + union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-macro.melt:931:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-macro.melt:931:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~PCTX*/ curfclos->tabval[1]); - /*_.PATTERNEXPAND_1__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.X__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.melt:931:/ apply.arg"); + argtab[2].bp_aptr = (basilys_ptr_t*) &(/*~PSLOC*/ curfclos->tabval[2]); + /*_.PATTERNEXPAND_1__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.X__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-macro.melt:931:/ block"); @@ -7438,13 +7453,15 @@ BASILYS_LOCATION("warmelt-macro.melt:962:/ block"); ; BASILYS_LOCATION("warmelt-macro.melt:967:/ apply"); /*apply*/{ - union basilysparam_un argtab[2]; + union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-macro.melt:967:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-macro.melt:967:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~PCTX*/ curfclos->tabval[2]); - /*_.PATTERNEXPAND_1__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CUROUT__V7*/ curfptr[6]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.melt:967:/ apply.arg"); + argtab[2].bp_aptr = (basilys_ptr_t*) &(/*~PSLOC*/ curfclos->tabval[3]); + /*_.PATTERNEXPAND_1__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CUROUT__V7*/ curfptr[6]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V6*/ curfptr[5] = /*_.PATTERNEXPAND_1__V9*/ curfptr[8];; @@ -7544,8 +7561,8 @@ rout_17_PATTERNEXPAND_EXPR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_ struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; -#define CURFRAM_NBVARPTR 123 - void* varptr[123]; +#define CURFRAM_NBVARPTR 124 + void* varptr[124]; #define CURFRAM_NBVARNUM 35 long varnum[35]; /*others*/ @@ -7555,13 +7572,13 @@ rout_17_PATTERNEXPAND_EXPR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); - for(ix=0; ix<123; ix++) + for(ix=0; ix<124; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 123; + curfram__.nbvar = 124; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; @@ -7585,6 +7602,13 @@ basilys_trace_start("PATTERNEXPAND_EXPR", callcount); /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL); + + /*getarg#3*/ + BASILYS_LOCATION("warmelt-macro.melt:976:/ getarg"); + if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; + /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; + gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); + ; goto lab_endgetargs; lab_endgetargs:; @@ -7601,7 +7625,7 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); BASILYS_LOCATION("warmelt-macro.melt:977:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:977:/ cond.then"); - /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; + /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-macro.melt:977:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:977:/ block"); @@ -7612,22 +7636,22 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); BASILYS_LOCATION("warmelt-macro.melt:977:/ locexp"); basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(977)?(977):__LINE__, __FUNCTION__);} ; - /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} + /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; - /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; + /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:977:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:977:/ clear"); - /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} + /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:977:/ cppif.else"); - /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); + /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -7640,7 +7664,7 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); BASILYS_LOCATION("warmelt-macro.melt:978:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:978:/ cond.then"); - /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; + /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-macro.melt:978:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:978:/ block"); @@ -7651,22 +7675,22 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); BASILYS_LOCATION("warmelt-macro.melt:978:/ locexp"); basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(978)?(978):__LINE__, __FUNCTION__);} ; - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} + /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; - /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; + /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:978:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:978:/ clear"); - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} + /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:978:/ cppif.else"); - /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); + /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -7679,7 +7703,7 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); BASILYS_LOCATION("warmelt-macro.melt:979:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:979:/ cond.then"); - /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; + /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-macro.melt:979:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:979:/ block"); @@ -7690,22 +7714,22 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); BASILYS_LOCATION("warmelt-macro.melt:979:/ locexp"); basilys_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(979)?(979):__LINE__, __FUNCTION__);} ; - /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} + /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; - /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; + /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:979:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:979:/ clear"); - /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} + /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:979:/ cppif.else"); - /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); + /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -7727,37 +7751,37 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:980:/ apply.arg"); argtab[3].bp_long = 980; - /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; + /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:980:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:980:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:980:/ cppif.else"); - /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); + /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:981:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:981:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.SCONT__V14*/ curfptr[13] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.SCONT__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-macro.melt:982:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ curfptr[14] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V16*/ curfptr[15] = slot; }; ; - /*_.CURPAIR__V16*/ curfptr[15] = - (basilys_list_first((basilys_ptr_t)(/*_.SCONT__V14*/ curfptr[13])));; - /*_.SOPER__V17*/ curfptr[16] = - (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; + /*_.CURPAIR__V17*/ curfptr[16] = + (basilys_list_first((basilys_ptr_t)(/*_.SCONT__V15*/ curfptr[14])));; + /*_.SOPER__V18*/ curfptr[17] = + (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));; /*_#IS_NOT_A__L5*/ curfnum[0] = - !basilys_is_instance_of((basilys_ptr_t)(/*_.SOPER__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; + !basilys_is_instance_of((basilys_ptr_t)(/*_.SOPER__V18*/ curfptr[17]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-macro.melt:985:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:985:/ cond.then"); @@ -7782,25 +7806,25 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:987:/ apply.arg"); argtab[3].bp_long = 987; - /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SOPER__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SOPER__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; + /*_.IFCPP___V20*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:987:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:987:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:987:/ cppif.else"); - /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); + /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { BASILYS_LOCATION("warmelt-macro.melt:988:/ locexp"); - basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "pattern expression requires symbol operator"), (basilys_ptr_t)0);} + basilys_error_str((basilys_ptr_t)(/*_.SLOC__V16*/ curfptr[15]), ( "pattern expression requires symbol operator"), (basilys_ptr_t)0);} ; BASILYS_LOCATION("warmelt-macro.melt:989:/ block"); /*block*/{ @@ -7811,20 +7835,20 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); ; BASILYS_LOCATION("warmelt-macro.melt:986:/ block"); /*block*/{ - /*_.PROGN___V22*/ curfptr[21] = /*_.RETURN___V21*/ curfptr[19];;} + /*_.PROGN___V23*/ curfptr[22] = /*_.RETURN___V22*/ curfptr[20];;} ; - /*_.IF___V18*/ curfptr[17] = /*_.PROGN___V22*/ curfptr[21];; + /*_.IF___V19*/ curfptr[18] = /*_.PROGN___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:985:/ clear"); - /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; + /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:985:/ clear"); - /*clear*/ /*_.RETURN___V21*/ curfptr[19] = 0 ; + /*clear*/ /*_.RETURN___V22*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:985:/ clear"); - /*clear*/ /*_.PROGN___V22*/ curfptr[21] = 0 ;} + /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-macro.melt:985:/ cond.else"); - /*_.IF___V18*/ curfptr[17] = NULL;; + /*_.IF___V19*/ curfptr[18] = NULL;; } ; BASILYS_LOCATION("warmelt-macro.melt:990:/ block"); @@ -7834,13 +7858,13 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-macro.melt:990:/ apply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SOPER__V17*/ curfptr[16]; - /*_.OPBIND__V24*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SOPER__V18*/ curfptr[17]; + /*_.OPBIND__V25*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-macro.melt:991:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V17*/ curfptr[16]), 1, "NAMED_NAME");/*_.OPNAM__V25*/ curfptr[21] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V18*/ curfptr[17]), 1, "NAMED_NAME");/*_.OPNAM__V26*/ curfptr[22] = slot; }; ; #if ENABLE_CHECKING @@ -7861,23 +7885,23 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:993:/ apply.arg"); argtab[3].bp_long = 993; - /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.OPBIND__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.OPBIND__V25*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; + /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:993:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:993:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:993:/ cppif.else"); - /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); + /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#NULL__L8*/ curfnum[5] = - ((/*_.OPBIND__V24*/ curfptr[19]) == NULL);; + ((/*_.OPBIND__V25*/ curfptr[20]) == NULL);; BASILYS_LOCATION("warmelt-macro.melt:995:/ cond"); /*cond*/ if (/*_#NULL__L8*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:995:/ cond.then"); @@ -7887,9 +7911,9 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); { BASILYS_LOCATION("warmelt-macro.melt:996:/ locexp"); - basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "unbound pattern operator"), (basilys_ptr_t)(/*_.OPNAM__V25*/ curfptr[21]));} + basilys_error_str((basilys_ptr_t)(/*_.SLOC__V16*/ curfptr[15]), ( "unbound pattern operator"), (basilys_ptr_t)(/*_.OPNAM__V26*/ curfptr[22]));} ; - /*clear*/ /*_.IFELSE___V28*/ curfptr[26] = 0 ;} + /*clear*/ /*_.IFELSE___V29*/ curfptr[27] = 0 ;} ; /*epilog*/} ; @@ -7898,7 +7922,7 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); BASILYS_LOCATION("warmelt-macro.melt:995:/ block"); /*block*/{ /*_#IS_A__L9*/ curfnum[8] = - basilys_is_instance_of((basilys_ptr_t)(/*_.OPBIND__V24*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_PATMACRO_BINDING*/ curfrout->tabval[6])));; + basilys_is_instance_of((basilys_ptr_t)(/*_.OPBIND__V25*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_PATMACRO_BINDING*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-macro.melt:998:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:998:/ cond.then"); @@ -7908,7 +7932,7 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:999:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPBIND__V24*/ curfptr[19]), 2, "PATBIND_EXPANSER");/*_.PATEXP__V31*/ curfptr[30] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPBIND__V25*/ curfptr[20]), 2, "PATBIND_EXPANSER");/*_.PATEXP__V32*/ curfptr[31] = slot; }; ; #if ENABLE_CHECKING @@ -7916,11 +7940,11 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); BASILYS_LOCATION("warmelt-macro.melt:1000:/ block"); /*block*/{ /*_#IS_CLOSURE__L10*/ curfnum[9] = - (basilys_magic_discr((basilys_ptr_t)(/*_.PATEXP__V31*/ curfptr[30])) == OBMAG_CLOSURE);; + (basilys_magic_discr((basilys_ptr_t)(/*_.PATEXP__V32*/ curfptr[31])) == OBMAG_CLOSURE);; BASILYS_LOCATION("warmelt-macro.melt:1000:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1000:/ cond.then"); - /*_.IFELSE___V33*/ curfptr[32] = (/*nil*/NULL);; + /*_.IFELSE___V34*/ curfptr[33] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-macro.melt:1000:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:1000:/ block"); @@ -7931,22 +7955,22 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); BASILYS_LOCATION("warmelt-macro.melt:1000:/ locexp"); basilys_assert_failed(( "check patexp"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1000)?(1000):__LINE__, __FUNCTION__);} ; - /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;} + /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;} ; /*epilog*/} ; } ; - /*_.IFCPP___V32*/ curfptr[31] = /*_.IFELSE___V33*/ curfptr[32];; + /*_.IFCPP___V33*/ curfptr[32] = /*_.IFELSE___V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1000:/ clear"); /*clear*/ /*_#IS_CLOSURE__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1000:/ clear"); - /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;} + /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1000:/ cppif.else"); - /*_.IFCPP___V32*/ curfptr[31] = (/*nil*/NULL); + /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1001:/ block"); @@ -7959,7 +7983,7 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-macro.melt:1001:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V4*/ curfptr[3]; - /*_.RESP__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)(/*_.PATEXP__V31*/ curfptr[30]), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + /*_.RESP__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)(/*_.PATEXP__V32*/ curfptr[31]), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; @@ -7981,57 +8005,57 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1002:/ apply.arg"); argtab[3].bp_long = 1002; - /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RESP__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RESP__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V36*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[36];; + /*_.IFCPP___V37*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1002:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1002:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1002:/ cppif.else"); - /*_.IFCPP___V36*/ curfptr[35] = (/*nil*/NULL); + /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1003:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.RESP__V35*/ curfptr[34];; + /*_.RETVAL___V1*/ curfptr[0] = /*_.RESP__V36*/ curfptr[35];; BASILYS_LOCATION("warmelt-macro.melt:1003:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - /*_.LET___V34*/ curfptr[32] = /*_.RETURN___V38*/ curfptr[36];; + /*_.LET___V35*/ curfptr[33] = /*_.RETURN___V39*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1001:/ clear"); - /*clear*/ /*_.RESP__V35*/ curfptr[34] = 0 ; + /*clear*/ /*_.RESP__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1001:/ clear"); - /*clear*/ /*_.IFCPP___V36*/ curfptr[35] = 0 ; + /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1001:/ clear"); - /*clear*/ /*_.RETURN___V38*/ curfptr[36] = 0 ;} + /*clear*/ /*_.RETURN___V39*/ curfptr[37] = 0 ;} ; - /*_.LET___V30*/ curfptr[29] = /*_.LET___V34*/ curfptr[32];; + /*_.LET___V31*/ curfptr[30] = /*_.LET___V35*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:999:/ clear"); - /*clear*/ /*_.PATEXP__V31*/ curfptr[30] = 0 ; + /*clear*/ /*_.PATEXP__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:999:/ clear"); - /*clear*/ /*_.IFCPP___V32*/ curfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:999:/ clear"); - /*clear*/ /*_.LET___V34*/ curfptr[32] = 0 ;} + /*clear*/ /*_.LET___V35*/ curfptr[33] = 0 ;} ; - /*_.IFELSE___V29*/ curfptr[28] = /*_.LET___V30*/ curfptr[29];; + /*_.IFELSE___V30*/ curfptr[29] = /*_.LET___V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:998:/ clear"); - /*clear*/ /*_.LET___V30*/ curfptr[29] = 0 ;} + /*clear*/ /*_.LET___V31*/ curfptr[30] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-macro.melt:998:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:998:/ block"); /*block*/{ /*_#IS_A__L12*/ curfnum[9] = - basilys_is_instance_of((basilys_ptr_t)(/*_.OPBIND__V24*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_CMATCHER_BINDING*/ curfrout->tabval[7])));; + basilys_is_instance_of((basilys_ptr_t)(/*_.OPBIND__V25*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_CMATCHER_BINDING*/ curfrout->tabval[7])));; BASILYS_LOCATION("warmelt-macro.melt:1005:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1005:/ cond.then"); @@ -8041,7 +8065,7 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1006:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPBIND__V24*/ curfptr[19]), 2, "CMBIND_MATCHER");/*_.CMAT__V41*/ curfptr[36] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPBIND__V25*/ curfptr[20]), 2, "CMBIND_MATCHER");/*_.CMAT__V42*/ curfptr[37] = slot; }; ; #if ENABLE_CHECKING @@ -8062,19 +8086,19 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1007:/ apply.arg"); argtab[3].bp_long = 1007; - /*_.DEBUG_MSG_FUN__V43*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CMAT__V41*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V44*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CMAT__V42*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V42*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[31];; + /*_.IFCPP___V43*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V44*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1007:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1007:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[31] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1007:/ cppif.else"); - /*_.IFCPP___V42*/ curfptr[30] = (/*nil*/NULL); + /*_.IFCPP___V43*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -8083,11 +8107,11 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); BASILYS_LOCATION("warmelt-macro.melt:1008:/ block"); /*block*/{ /*_#IS_A__L14*/ curfnum[12] = - basilys_is_instance_of((basilys_ptr_t)(/*_.CMAT__V41*/ curfptr[36]), (basilys_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[8])));; + basilys_is_instance_of((basilys_ptr_t)(/*_.CMAT__V42*/ curfptr[37]), (basilys_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[8])));; BASILYS_LOCATION("warmelt-macro.melt:1008:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1008:/ cond.then"); - /*_.IFELSE___V45*/ curfptr[29] = (/*nil*/NULL);; + /*_.IFELSE___V46*/ curfptr[30] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-macro.melt:1008:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:1008:/ block"); @@ -8098,26 +8122,26 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); BASILYS_LOCATION("warmelt-macro.melt:1008:/ locexp"); basilys_assert_failed(( "check cmat-cher"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1008)?(1008):__LINE__, __FUNCTION__);} ; - /*clear*/ /*_.IFELSE___V45*/ curfptr[29] = 0 ;} + /*clear*/ /*_.IFELSE___V46*/ curfptr[30] = 0 ;} ; /*epilog*/} ; } ; - /*_.IFCPP___V44*/ curfptr[32] = /*_.IFELSE___V45*/ curfptr[29];; + /*_.IFCPP___V45*/ curfptr[33] = /*_.IFELSE___V46*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1008:/ clear"); /*clear*/ /*_#IS_A__L14*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1008:/ clear"); - /*clear*/ /*_.IFELSE___V45*/ curfptr[29] = 0 ;} + /*clear*/ /*_.IFELSE___V46*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1008:/ cppif.else"); - /*_.IFCPP___V44*/ curfptr[32] = (/*nil*/NULL); + /*_.IFCPP___V45*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - /*_.PAIR_TAIL__V46*/ curfptr[31] = - (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; + /*_.PAIR_TAIL__V47*/ curfptr[32] = + (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));; BASILYS_LOCATION("warmelt-macro.melt:1009:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1009:/ multiapply"); @@ -8128,14 +8152,14 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-macro.melt:1009:/ multiapply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CMAT__V41*/ curfptr[36];BASILYS_LOCATION("warmelt-macro.melt:1009:/ multiapply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CMAT__V42*/ curfptr[37];BASILYS_LOCATION("warmelt-macro.melt:1009:/ multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2];BASILYS_LOCATION("warmelt-macro.melt:1009:/ multiapply.arg"); - argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];BASILYS_LOCATION("warmelt-macro.melt:1009:/ multiapply.arg"); + argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V16*/ curfptr[15];BASILYS_LOCATION("warmelt-macro.melt:1009:/ multiapply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-macro.melt:1009:/ multiapply.xres"); - restab[0].bp_aptr = (basilys_ptr_t*) &/*_.PATS__V49*/ curfptr[48]; + restab[0].bp_aptr = (basilys_ptr_t*) &/*_.PATS__V50*/ curfptr[49]; BASILYS_LOCATION("warmelt-macro.melt:1009:/ multiapply.appl"); - /*_.ARGS__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)((/*!PATMACEXPAND_FOR_MATCHER*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.PAIR_TAIL__V46*/ curfptr[31]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); + /*_.ARGS__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!PATMACEXPAND_FOR_MATCHER*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.PAIR_TAIL__V47*/ curfptr[32]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-macro.melt:1009:/ block"); @@ -8159,19 +8183,19 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1012:/ apply.arg"); argtab[3].bp_long = 1012; - /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ARGS__V48*/ curfptr[47]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ARGS__V49*/ curfptr[48]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V50*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[50];; + /*_.IFCPP___V51*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[51];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1012:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1012:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1012:/ cppif.else"); - /*_.IFCPP___V50*/ curfptr[49] = (/*nil*/NULL); + /*_.IFCPP___V51*/ curfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -8193,19 +8217,19 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1013:/ apply.arg"); argtab[3].bp_long = 1013; - /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PATS__V49*/ curfptr[48]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PATS__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V52*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];; + /*_.IFCPP___V53*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1013:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1013:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1013:/ cppif.else"); - /*_.IFCPP___V52*/ curfptr[50] = (/*nil*/NULL); + /*_.IFCPP___V53*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1014:/ block"); @@ -8214,35 +8238,35 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1014:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; - basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_CMATCH*/ curfrout->tabval[10])), (7), "CLASS_SRCPATTERN_CMATCH");/*_.INST__V56*/ curfptr[55] = + basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_CMATCH*/ curfrout->tabval[10])), (7), "CLASS_SRCPATTERN_CMATCH");/*_.INST__V57*/ curfptr[56] = newobj; }; ; BASILYS_LOCATION("warmelt-macro.melt:1014:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (0), (/*_.SLOC__V15*/ curfptr[14]), "SRC_LOC"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V57*/ curfptr[56]), (0), (/*_.SLOC__V16*/ curfptr[15]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-macro.melt:1014:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (3), (/*_.CMAT__V41*/ curfptr[36]), "SPAC_OPERATOR"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V57*/ curfptr[56]), (3), (/*_.CMAT__V42*/ curfptr[37]), "SPAC_OPERATOR"); ; BASILYS_LOCATION("warmelt-macro.melt:1014:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (4), (/*_.OPBIND__V24*/ curfptr[19]), "SPAC_OPERBIND"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V57*/ curfptr[56]), (4), (/*_.OPBIND__V25*/ curfptr[20]), "SPAC_OPERBIND"); ; BASILYS_LOCATION("warmelt-macro.melt:1014:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (5), (/*_.ARGS__V48*/ curfptr[47]), "SPAC_INARGS"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V57*/ curfptr[56]), (5), (/*_.ARGS__V49*/ curfptr[48]), "SPAC_INARGS"); ; BASILYS_LOCATION("warmelt-macro.melt:1014:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (6), (/*_.PATS__V49*/ curfptr[48]), "SPAC_OUTARGS"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V57*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V57*/ curfptr[56]), (6), (/*_.PATS__V50*/ curfptr[49]), "SPAC_OUTARGS"); ; - /*_.PCOMP__V55*/ curfptr[54] = /*_.INST__V56*/ curfptr[55];;} + /*_.PCOMP__V56*/ curfptr[55] = /*_.INST__V57*/ curfptr[56];;} ; #if ENABLE_CHECKING @@ -8263,74 +8287,74 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1022:/ apply.arg"); argtab[3].bp_long = 1022; - /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PCOMP__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PCOMP__V56*/ curfptr[55]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V57*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V58*/ curfptr[57];; + /*_.IFCPP___V58*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[58];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1022:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1022:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1022:/ cppif.else"); - /*_.IFCPP___V57*/ curfptr[56] = (/*nil*/NULL); + /*_.IFCPP___V58*/ curfptr[57] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1023:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PCOMP__V55*/ curfptr[54];; + /*_.RETVAL___V1*/ curfptr[0] = /*_.PCOMP__V56*/ curfptr[55];; BASILYS_LOCATION("warmelt-macro.melt:1023:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - /*_.LET___V54*/ curfptr[52] = /*_.RETURN___V59*/ curfptr[57];; + /*_.LET___V55*/ curfptr[53] = /*_.RETURN___V60*/ curfptr[58];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1014:/ clear"); - /*clear*/ /*_.PCOMP__V55*/ curfptr[54] = 0 ; + /*clear*/ /*_.PCOMP__V56*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1014:/ clear"); - /*clear*/ /*_.IFCPP___V57*/ curfptr[56] = 0 ; + /*clear*/ /*_.IFCPP___V58*/ curfptr[57] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1014:/ clear"); - /*clear*/ /*_.RETURN___V59*/ curfptr[57] = 0 ;} + /*clear*/ /*_.RETURN___V60*/ curfptr[58] = 0 ;} ; - /*_.MULTI___V47*/ curfptr[29] = /*_.LET___V54*/ curfptr[52];; + /*_.MULTI___V48*/ curfptr[30] = /*_.LET___V55*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1009:/ clear"); - /*clear*/ /*_.IFCPP___V50*/ curfptr[49] = 0 ; + /*clear*/ /*_.IFCPP___V51*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1009:/ clear"); - /*clear*/ /*_.IFCPP___V52*/ curfptr[50] = 0 ; + /*clear*/ /*_.IFCPP___V53*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1009:/ clear"); - /*clear*/ /*_.LET___V54*/ curfptr[52] = 0 ;} + /*clear*/ /*_.LET___V55*/ curfptr[53] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1009:/ clear"); - /*clear*/ /*_.PATS__V49*/ curfptr[48] = 0 ;} + /*clear*/ /*_.PATS__V50*/ curfptr[49] = 0 ;} ; - /*_.LET___V40*/ curfptr[35] = /*_.MULTI___V47*/ curfptr[29];; + /*_.LET___V41*/ curfptr[36] = /*_.MULTI___V48*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1006:/ clear"); - /*clear*/ /*_.CMAT__V41*/ curfptr[36] = 0 ; + /*clear*/ /*_.CMAT__V42*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1006:/ clear"); - /*clear*/ /*_.IFCPP___V42*/ curfptr[30] = 0 ; + /*clear*/ /*_.IFCPP___V43*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1006:/ clear"); - /*clear*/ /*_.IFCPP___V44*/ curfptr[32] = 0 ; + /*clear*/ /*_.IFCPP___V45*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1006:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V46*/ curfptr[31] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V47*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1006:/ clear"); - /*clear*/ /*_.MULTI___V47*/ curfptr[29] = 0 ;} + /*clear*/ /*_.MULTI___V48*/ curfptr[30] = 0 ;} ; - /*_.IFELSE___V39*/ curfptr[34] = /*_.LET___V40*/ curfptr[35];; + /*_.IFELSE___V40*/ curfptr[35] = /*_.LET___V41*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1005:/ clear"); - /*clear*/ /*_.LET___V40*/ curfptr[35] = 0 ;} + /*clear*/ /*_.LET___V41*/ curfptr[36] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-macro.melt:1005:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:1005:/ block"); /*block*/{ /*_#IS_A__L18*/ curfnum[12] = - basilys_is_instance_of((basilys_ptr_t)(/*_.OPBIND__V24*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ curfrout->tabval[11])));; + basilys_is_instance_of((basilys_ptr_t)(/*_.OPBIND__V25*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ curfrout->tabval[11])));; BASILYS_LOCATION("warmelt-macro.melt:1026:/ cond"); /*cond*/ if (/*_#IS_A__L18*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1026:/ cond.then"); @@ -8340,11 +8364,11 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1027:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPBIND__V24*/ curfptr[19]), 2, "FMBIND_FUNMATCHER");/*_.FMAT__V62*/ curfptr[57] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPBIND__V25*/ curfptr[20]), 2, "FMBIND_FUNMATCHER");/*_.FMAT__V63*/ curfptr[58] = slot; }; ; BASILYS_LOCATION("warmelt-macro.melt:1028:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPBIND__V24*/ curfptr[19]), 3, "FMBIND_DEFUNMATCHER");/*_.DEFM__V63*/ curfptr[49] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPBIND__V25*/ curfptr[20]), 3, "FMBIND_DEFUNMATCHER");/*_.DEFM__V64*/ curfptr[50] = slot; }; ; #if ENABLE_CHECKING @@ -8365,19 +8389,19 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1030:/ apply.arg"); argtab[3].bp_long = 1030; - /*_.DEBUG_MSG_FUN__V65*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.FMAT__V62*/ curfptr[57]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V66*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.FMAT__V63*/ curfptr[58]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V64*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[52];; + /*_.IFCPP___V65*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V66*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1030:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1030:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[52] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V66*/ curfptr[53] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1030:/ cppif.else"); - /*_.IFCPP___V64*/ curfptr[50] = (/*nil*/NULL); + /*_.IFCPP___V65*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -8399,19 +8423,19 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1031:/ apply.arg"); argtab[3].bp_long = 1031; - /*_.DEBUG_MSG_FUN__V67*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.DEFM__V63*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V68*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.DEFM__V64*/ curfptr[50]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V66*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V67*/ curfptr[48];; + /*_.IFCPP___V67*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V68*/ curfptr[49];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1031:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1031:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ curfptr[48] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ curfptr[49] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1031:/ cppif.else"); - /*_.IFCPP___V66*/ curfptr[47] = (/*nil*/NULL); + /*_.IFCPP___V67*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -8433,19 +8457,19 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1032:/ apply.arg"); argtab[3].bp_long = 1032; - /*_.DEBUG_MSG_FUN__V69*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.OPBIND__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V70*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.OPBIND__V25*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V68*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V69*/ curfptr[30];; + /*_.IFCPP___V69*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1032:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1032:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ curfptr[30] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1032:/ cppif.else"); - /*_.IFCPP___V68*/ curfptr[36] = (/*nil*/NULL); + /*_.IFCPP___V69*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -8454,11 +8478,11 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); BASILYS_LOCATION("warmelt-macro.melt:1033:/ block"); /*block*/{ /*_#IS_A__L22*/ curfnum[18] = - basilys_is_instance_of((basilys_ptr_t)(/*_.FMAT__V62*/ curfptr[57]), (basilys_ptr_t)((/*!CLASS_FUNMATCHER*/ curfrout->tabval[12])));; + basilys_is_instance_of((basilys_ptr_t)(/*_.FMAT__V63*/ curfptr[58]), (basilys_ptr_t)((/*!CLASS_FUNMATCHER*/ curfrout->tabval[12])));; BASILYS_LOCATION("warmelt-macro.melt:1033:/ cond"); /*cond*/ if (/*_#IS_A__L22*/ curfnum[18]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1033:/ cond.then"); - /*_.IFELSE___V71*/ curfptr[31] = (/*nil*/NULL);; + /*_.IFELSE___V72*/ curfptr[32] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-macro.melt:1033:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:1033:/ block"); @@ -8469,26 +8493,26 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); BASILYS_LOCATION("warmelt-macro.melt:1033:/ locexp"); basilys_assert_failed(( "check fmat-cher"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1033)?(1033):__LINE__, __FUNCTION__);} ; - /*clear*/ /*_.IFELSE___V71*/ curfptr[31] = 0 ;} + /*clear*/ /*_.IFELSE___V72*/ curfptr[32] = 0 ;} ; /*epilog*/} ; } ; - /*_.IFCPP___V70*/ curfptr[32] = /*_.IFELSE___V71*/ curfptr[31];; + /*_.IFCPP___V71*/ curfptr[33] = /*_.IFELSE___V72*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1033:/ clear"); /*clear*/ /*_#IS_A__L22*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1033:/ clear"); - /*clear*/ /*_.IFELSE___V71*/ curfptr[31] = 0 ;} + /*clear*/ /*_.IFELSE___V72*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1033:/ cppif.else"); - /*_.IFCPP___V70*/ curfptr[32] = (/*nil*/NULL); + /*_.IFCPP___V71*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - /*_.PAIR_TAIL__V72*/ curfptr[29] = - (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; + /*_.PAIR_TAIL__V73*/ curfptr[30] = + (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));; BASILYS_LOCATION("warmelt-macro.melt:1034:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1034:/ multiapply"); @@ -8499,14 +8523,14 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-macro.melt:1034:/ multiapply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FMAT__V62*/ curfptr[57];BASILYS_LOCATION("warmelt-macro.melt:1034:/ multiapply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FMAT__V63*/ curfptr[58];BASILYS_LOCATION("warmelt-macro.melt:1034:/ multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2];BASILYS_LOCATION("warmelt-macro.melt:1034:/ multiapply.arg"); - argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];BASILYS_LOCATION("warmelt-macro.melt:1034:/ multiapply.arg"); + argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V16*/ curfptr[15];BASILYS_LOCATION("warmelt-macro.melt:1034:/ multiapply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-macro.melt:1034:/ multiapply.xres"); - restab[0].bp_aptr = (basilys_ptr_t*) &/*_.PATS__V75*/ curfptr[48]; + restab[0].bp_aptr = (basilys_ptr_t*) &/*_.PATS__V76*/ curfptr[49]; BASILYS_LOCATION("warmelt-macro.melt:1034:/ multiapply.appl"); - /*_.ARGS__V74*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!PATMACEXPAND_FOR_MATCHER*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.PAIR_TAIL__V72*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); + /*_.ARGS__V75*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!PATMACEXPAND_FOR_MATCHER*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.PAIR_TAIL__V73*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-macro.melt:1034:/ block"); @@ -8530,19 +8554,19 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1037:/ apply.arg"); argtab[3].bp_long = 1037; - /*_.DEBUG_MSG_FUN__V77*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ARGS__V74*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V78*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ARGS__V75*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V76*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V77*/ curfptr[31];; + /*_.IFCPP___V77*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V78*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1037:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1037:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V77*/ curfptr[31] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1037:/ cppif.else"); - /*_.IFCPP___V76*/ curfptr[30] = (/*nil*/NULL); + /*_.IFCPP___V77*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -8564,19 +8588,19 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1038:/ apply.arg"); argtab[3].bp_long = 1038; - /*_.DEBUG_MSG_FUN__V79*/ curfptr[78] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PATS__V75*/ curfptr[48]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V80*/ curfptr[79] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PATS__V76*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V78*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V79*/ curfptr[78];; + /*_.IFCPP___V79*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V80*/ curfptr[79];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1038:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1038:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V79*/ curfptr[78] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V80*/ curfptr[79] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1038:/ cppif.else"); - /*_.IFCPP___V78*/ curfptr[31] = (/*nil*/NULL); + /*_.IFCPP___V79*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1043:/ block"); @@ -8585,35 +8609,35 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1043:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; - basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_FUNMATCH*/ curfrout->tabval[13])), (7), "CLASS_SRCPATTERN_FUNMATCH");/*_.INST__V82*/ curfptr[81] = + basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_FUNMATCH*/ curfrout->tabval[13])), (7), "CLASS_SRCPATTERN_FUNMATCH");/*_.INST__V83*/ curfptr[82] = newobj; }; ; BASILYS_LOCATION("warmelt-macro.melt:1043:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V82*/ curfptr[81]))));basilys_putfield_object((/*_.INST__V82*/ curfptr[81]), (0), (/*_.SLOC__V15*/ curfptr[14]), "SRC_LOC"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V83*/ curfptr[82])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V83*/ curfptr[82]))));basilys_putfield_object((/*_.INST__V83*/ curfptr[82]), (0), (/*_.SLOC__V16*/ curfptr[15]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-macro.melt:1043:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V82*/ curfptr[81]))));basilys_putfield_object((/*_.INST__V82*/ curfptr[81]), (3), (/*_.FMAT__V62*/ curfptr[57]), "SPAC_OPERATOR"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V83*/ curfptr[82])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V83*/ curfptr[82]))));basilys_putfield_object((/*_.INST__V83*/ curfptr[82]), (3), (/*_.FMAT__V63*/ curfptr[58]), "SPAC_OPERATOR"); ; BASILYS_LOCATION("warmelt-macro.melt:1043:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V82*/ curfptr[81]))));basilys_putfield_object((/*_.INST__V82*/ curfptr[81]), (4), (/*_.OPBIND__V24*/ curfptr[19]), "SPAC_OPERBIND"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V83*/ curfptr[82])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V83*/ curfptr[82]))));basilys_putfield_object((/*_.INST__V83*/ curfptr[82]), (4), (/*_.OPBIND__V25*/ curfptr[20]), "SPAC_OPERBIND"); ; BASILYS_LOCATION("warmelt-macro.melt:1043:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V82*/ curfptr[81]))));basilys_putfield_object((/*_.INST__V82*/ curfptr[81]), (5), (/*_.ARGS__V74*/ curfptr[52]), "SPAC_INARGS"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V83*/ curfptr[82])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V83*/ curfptr[82]))));basilys_putfield_object((/*_.INST__V83*/ curfptr[82]), (5), (/*_.ARGS__V75*/ curfptr[53]), "SPAC_INARGS"); ; BASILYS_LOCATION("warmelt-macro.melt:1043:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V82*/ curfptr[81])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V82*/ curfptr[81]))));basilys_putfield_object((/*_.INST__V82*/ curfptr[81]), (6), (/*_.PATS__V75*/ curfptr[48]), "SPAC_OUTARGS"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V83*/ curfptr[82])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V83*/ curfptr[82]))));basilys_putfield_object((/*_.INST__V83*/ curfptr[82]), (6), (/*_.PATS__V76*/ curfptr[49]), "SPAC_OUTARGS"); ; - /*_.PCOMP__V81*/ curfptr[80] = /*_.INST__V82*/ curfptr[81];;} + /*_.PCOMP__V82*/ curfptr[81] = /*_.INST__V83*/ curfptr[82];;} ; #if ENABLE_CHECKING @@ -8634,80 +8658,80 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1050:/ apply.arg"); argtab[3].bp_long = 1050; - /*_.DEBUG_MSG_FUN__V84*/ curfptr[83] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PCOMP__V81*/ curfptr[80]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V85*/ curfptr[84] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PCOMP__V82*/ curfptr[81]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V83*/ curfptr[82] = /*_.DEBUG_MSG_FUN__V84*/ curfptr[83];; + /*_.IFCPP___V84*/ curfptr[83] = /*_.DEBUG_MSG_FUN__V85*/ curfptr[84];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1050:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1050:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V84*/ curfptr[83] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V85*/ curfptr[84] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1050:/ cppif.else"); - /*_.IFCPP___V83*/ curfptr[82] = (/*nil*/NULL); + /*_.IFCPP___V84*/ curfptr[83] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1051:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PCOMP__V81*/ curfptr[80];; + /*_.RETVAL___V1*/ curfptr[0] = /*_.PCOMP__V82*/ curfptr[81];; BASILYS_LOCATION("warmelt-macro.melt:1051:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - /*_.LET___V80*/ curfptr[78] = /*_.RETURN___V85*/ curfptr[83];; + /*_.LET___V81*/ curfptr[79] = /*_.RETURN___V86*/ curfptr[84];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1043:/ clear"); - /*clear*/ /*_.PCOMP__V81*/ curfptr[80] = 0 ; + /*clear*/ /*_.PCOMP__V82*/ curfptr[81] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1043:/ clear"); - /*clear*/ /*_.IFCPP___V83*/ curfptr[82] = 0 ; + /*clear*/ /*_.IFCPP___V84*/ curfptr[83] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1043:/ clear"); - /*clear*/ /*_.RETURN___V85*/ curfptr[83] = 0 ;} + /*clear*/ /*_.RETURN___V86*/ curfptr[84] = 0 ;} ; - /*_.MULTI___V73*/ curfptr[35] = /*_.LET___V80*/ curfptr[78];; + /*_.MULTI___V74*/ curfptr[36] = /*_.LET___V81*/ curfptr[79];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1034:/ clear"); - /*clear*/ /*_.IFCPP___V76*/ curfptr[30] = 0 ; + /*clear*/ /*_.IFCPP___V77*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1034:/ clear"); - /*clear*/ /*_.IFCPP___V78*/ curfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V79*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1034:/ clear"); - /*clear*/ /*_.LET___V80*/ curfptr[78] = 0 ;} + /*clear*/ /*_.LET___V81*/ curfptr[79] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1034:/ clear"); - /*clear*/ /*_.PATS__V75*/ curfptr[48] = 0 ;} + /*clear*/ /*_.PATS__V76*/ curfptr[49] = 0 ;} ; - /*_.LET___V61*/ curfptr[56] = /*_.MULTI___V73*/ curfptr[35];; + /*_.LET___V62*/ curfptr[57] = /*_.MULTI___V74*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1027:/ clear"); - /*clear*/ /*_.FMAT__V62*/ curfptr[57] = 0 ; + /*clear*/ /*_.FMAT__V63*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1027:/ clear"); - /*clear*/ /*_.DEFM__V63*/ curfptr[49] = 0 ; + /*clear*/ /*_.DEFM__V64*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1027:/ clear"); - /*clear*/ /*_.IFCPP___V64*/ curfptr[50] = 0 ; + /*clear*/ /*_.IFCPP___V65*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1027:/ clear"); - /*clear*/ /*_.IFCPP___V66*/ curfptr[47] = 0 ; + /*clear*/ /*_.IFCPP___V67*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1027:/ clear"); - /*clear*/ /*_.IFCPP___V68*/ curfptr[36] = 0 ; + /*clear*/ /*_.IFCPP___V69*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1027:/ clear"); - /*clear*/ /*_.IFCPP___V70*/ curfptr[32] = 0 ; + /*clear*/ /*_.IFCPP___V71*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1027:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V72*/ curfptr[29] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V73*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1027:/ clear"); - /*clear*/ /*_.MULTI___V73*/ curfptr[35] = 0 ;} + /*clear*/ /*_.MULTI___V74*/ curfptr[36] = 0 ;} ; - /*_.IFELSE___V60*/ curfptr[54] = /*_.LET___V61*/ curfptr[56];; + /*_.IFELSE___V61*/ curfptr[55] = /*_.LET___V62*/ curfptr[57];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1026:/ clear"); - /*clear*/ /*_.LET___V61*/ curfptr[56] = 0 ;} + /*clear*/ /*_.LET___V62*/ curfptr[57] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-macro.melt:1026:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:1026:/ block"); /*block*/{ /*_#IS_A__L26*/ curfnum[18] = - basilys_is_instance_of((basilys_ptr_t)(/*_.OPBIND__V24*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[14])));; + basilys_is_instance_of((basilys_ptr_t)(/*_.OPBIND__V25*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[14])));; BASILYS_LOCATION("warmelt-macro.melt:1054:/ cond"); /*cond*/ if (/*_#IS_A__L26*/ curfnum[18]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1054:/ cond.then"); @@ -8717,17 +8741,17 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1055:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPBIND__V24*/ curfptr[19]), 1, "VBIND_VALUE");/*_.OPVAL__V88*/ curfptr[83] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPBIND__V25*/ curfptr[20]), 1, "VBIND_VALUE");/*_.OPVAL__V89*/ curfptr[84] = slot; }; ; /*_#IS_A__L27*/ curfnum[26] = - basilys_is_instance_of((basilys_ptr_t)(/*_.OPVAL__V88*/ curfptr[83]), (basilys_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[8])));; + basilys_is_instance_of((basilys_ptr_t)(/*_.OPVAL__V89*/ curfptr[84]), (basilys_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[8])));; BASILYS_LOCATION("warmelt-macro.melt:1057:/ cond"); /*cond*/ if (/*_#IS_A__L27*/ curfnum[26]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1057:/ cond.then"); BASILYS_LOCATION("warmelt-macro.melt:1057:/ block"); /*block*/{ - /*_.PAIR_TAIL__V90*/ curfptr[31] = - (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; + /*_.PAIR_TAIL__V91*/ curfptr[32] = + (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));; BASILYS_LOCATION("warmelt-macro.melt:1058:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1058:/ multiapply"); @@ -8738,14 +8762,14 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-macro.melt:1058:/ multiapply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OPVAL__V88*/ curfptr[83];BASILYS_LOCATION("warmelt-macro.melt:1058:/ multiapply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OPVAL__V89*/ curfptr[84];BASILYS_LOCATION("warmelt-macro.melt:1058:/ multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2];BASILYS_LOCATION("warmelt-macro.melt:1058:/ multiapply.arg"); - argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];BASILYS_LOCATION("warmelt-macro.melt:1058:/ multiapply.arg"); + argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V16*/ curfptr[15];BASILYS_LOCATION("warmelt-macro.melt:1058:/ multiapply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-macro.melt:1058:/ multiapply.xres"); - restab[0].bp_aptr = (basilys_ptr_t*) &/*_.PATS__V93*/ curfptr[48]; + restab[0].bp_aptr = (basilys_ptr_t*) &/*_.PATS__V94*/ curfptr[49]; BASILYS_LOCATION("warmelt-macro.melt:1058:/ multiapply.appl"); - /*_.ARGS__V92*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!PATMACEXPAND_FOR_MATCHER*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.PAIR_TAIL__V90*/ curfptr[31]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); + /*_.ARGS__V93*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!PATMACEXPAND_FOR_MATCHER*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.PAIR_TAIL__V91*/ curfptr[32]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-macro.melt:1058:/ block"); @@ -8769,19 +8793,19 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1061:/ apply.arg"); argtab[3].bp_long = 1061; - /*_.DEBUG_MSG_FUN__V95*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ARGS__V92*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V96*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ARGS__V93*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V94*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[49];; + /*_.IFCPP___V95*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V96*/ curfptr[50];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1061:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L28*/ curfnum[27] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1061:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[49] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V96*/ curfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1061:/ cppif.else"); - /*_.IFCPP___V94*/ curfptr[57] = (/*nil*/NULL); + /*_.IFCPP___V95*/ curfptr[58] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -8803,19 +8827,19 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1062:/ apply.arg"); argtab[3].bp_long = 1062; - /*_.DEBUG_MSG_FUN__V97*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PATS__V93*/ curfptr[48]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V98*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PATS__V94*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V96*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V97*/ curfptr[47];; + /*_.IFCPP___V97*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V98*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1062:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[27] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1062:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ curfptr[47] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V98*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1062:/ cppif.else"); - /*_.IFCPP___V96*/ curfptr[50] = (/*nil*/NULL); + /*_.IFCPP___V97*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1063:/ block"); @@ -8824,35 +8848,35 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1063:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; - basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_CMATCH*/ curfrout->tabval[10])), (7), "CLASS_SRCPATTERN_CMATCH");/*_.INST__V100*/ curfptr[29] = + basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_CMATCH*/ curfrout->tabval[10])), (7), "CLASS_SRCPATTERN_CMATCH");/*_.INST__V101*/ curfptr[30] = newobj; }; ; BASILYS_LOCATION("warmelt-macro.melt:1063:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V100*/ curfptr[29])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V100*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V100*/ curfptr[29]), (0), (/*_.SLOC__V15*/ curfptr[14]), "SRC_LOC"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V101*/ curfptr[30])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V101*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V101*/ curfptr[30]), (0), (/*_.SLOC__V16*/ curfptr[15]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-macro.melt:1063:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V100*/ curfptr[29])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V100*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V100*/ curfptr[29]), (3), (/*_.OPVAL__V88*/ curfptr[83]), "SPAC_OPERATOR"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V101*/ curfptr[30])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V101*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V101*/ curfptr[30]), (3), (/*_.OPVAL__V89*/ curfptr[84]), "SPAC_OPERATOR"); ; BASILYS_LOCATION("warmelt-macro.melt:1063:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V100*/ curfptr[29])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V100*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V100*/ curfptr[29]), (4), (/*_.OPBIND__V24*/ curfptr[19]), "SPAC_OPERBIND"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V101*/ curfptr[30])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V101*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V101*/ curfptr[30]), (4), (/*_.OPBIND__V25*/ curfptr[20]), "SPAC_OPERBIND"); ; BASILYS_LOCATION("warmelt-macro.melt:1063:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V100*/ curfptr[29])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V100*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V100*/ curfptr[29]), (5), (/*_.ARGS__V92*/ curfptr[52]), "SPAC_INARGS"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V101*/ curfptr[30])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V101*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V101*/ curfptr[30]), (5), (/*_.ARGS__V93*/ curfptr[53]), "SPAC_INARGS"); ; BASILYS_LOCATION("warmelt-macro.melt:1063:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V100*/ curfptr[29])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V100*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V100*/ curfptr[29]), (6), (/*_.PATS__V93*/ curfptr[48]), "SPAC_OUTARGS"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V101*/ curfptr[30])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V101*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V101*/ curfptr[30]), (6), (/*_.PATS__V94*/ curfptr[49]), "SPAC_OUTARGS"); ; - /*_.PCOMP__V99*/ curfptr[32] = /*_.INST__V100*/ curfptr[29];;} + /*_.PCOMP__V100*/ curfptr[33] = /*_.INST__V101*/ curfptr[30];;} ; #if ENABLE_CHECKING @@ -8873,63 +8897,63 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1071:/ apply.arg"); argtab[3].bp_long = 1071; - /*_.DEBUG_MSG_FUN__V102*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PCOMP__V99*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V103*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PCOMP__V100*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V101*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V102*/ curfptr[56];; + /*_.IFCPP___V102*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V103*/ curfptr[57];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1071:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[27] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1071:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V102*/ curfptr[56] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V103*/ curfptr[57] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1071:/ cppif.else"); - /*_.IFCPP___V101*/ curfptr[35] = (/*nil*/NULL); + /*_.IFCPP___V102*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1072:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PCOMP__V99*/ curfptr[32];; + /*_.RETVAL___V1*/ curfptr[0] = /*_.PCOMP__V100*/ curfptr[33];; BASILYS_LOCATION("warmelt-macro.melt:1072:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - /*_.LET___V98*/ curfptr[36] = /*_.RETURN___V103*/ curfptr[49];; + /*_.LET___V99*/ curfptr[37] = /*_.RETURN___V104*/ curfptr[50];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1063:/ clear"); - /*clear*/ /*_.PCOMP__V99*/ curfptr[32] = 0 ; + /*clear*/ /*_.PCOMP__V100*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1063:/ clear"); - /*clear*/ /*_.IFCPP___V101*/ curfptr[35] = 0 ; + /*clear*/ /*_.IFCPP___V102*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1063:/ clear"); - /*clear*/ /*_.RETURN___V103*/ curfptr[49] = 0 ;} + /*clear*/ /*_.RETURN___V104*/ curfptr[50] = 0 ;} ; - /*_.MULTI___V91*/ curfptr[78] = /*_.LET___V98*/ curfptr[36];; + /*_.MULTI___V92*/ curfptr[79] = /*_.LET___V99*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1058:/ clear"); - /*clear*/ /*_.IFCPP___V94*/ curfptr[57] = 0 ; + /*clear*/ /*_.IFCPP___V95*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1058:/ clear"); - /*clear*/ /*_.IFCPP___V96*/ curfptr[50] = 0 ; + /*clear*/ /*_.IFCPP___V97*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1058:/ clear"); - /*clear*/ /*_.LET___V98*/ curfptr[36] = 0 ;} + /*clear*/ /*_.LET___V99*/ curfptr[37] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1058:/ clear"); - /*clear*/ /*_.PATS__V93*/ curfptr[48] = 0 ;} + /*clear*/ /*_.PATS__V94*/ curfptr[49] = 0 ;} ; - /*_.IFELSE___V89*/ curfptr[30] = /*_.MULTI___V91*/ curfptr[78];; + /*_.IFELSE___V90*/ curfptr[31] = /*_.MULTI___V92*/ curfptr[79];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1057:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V90*/ curfptr[31] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V91*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1057:/ clear"); - /*clear*/ /*_.MULTI___V91*/ curfptr[78] = 0 ;} + /*clear*/ /*_.MULTI___V92*/ curfptr[79] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-macro.melt:1057:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:1057:/ block"); /*block*/{ /*_#IS_A__L31*/ curfnum[27] = - basilys_is_instance_of((basilys_ptr_t)(/*_.OPVAL__V88*/ curfptr[83]), (basilys_ptr_t)((/*!CLASS_FUNMATCHER*/ curfrout->tabval[12])));; + basilys_is_instance_of((basilys_ptr_t)(/*_.OPVAL__V89*/ curfptr[84]), (basilys_ptr_t)((/*!CLASS_FUNMATCHER*/ curfrout->tabval[12])));; BASILYS_LOCATION("warmelt-macro.melt:1074:/ cond"); /*cond*/ if (/*_#IS_A__L31*/ curfnum[27]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1074:/ cond.then"); @@ -8954,23 +8978,23 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1075:/ apply.arg"); argtab[3].bp_long = 1075; - /*_.DEBUG_MSG_FUN__V106*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.OPVAL__V88*/ curfptr[83]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V107*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.OPVAL__V89*/ curfptr[84]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V105*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V106*/ curfptr[32];; + /*_.IFCPP___V106*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V107*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1075:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[31] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1075:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V106*/ curfptr[32] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V107*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1075:/ cppif.else"); - /*_.IFCPP___V105*/ curfptr[56] = (/*nil*/NULL); + /*_.IFCPP___V106*/ curfptr[57] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - /*_.PAIR_TAIL__V107*/ curfptr[35] = - (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; + /*_.PAIR_TAIL__V108*/ curfptr[36] = + (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));; BASILYS_LOCATION("warmelt-macro.melt:1076:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1076:/ multiapply"); @@ -8981,14 +9005,14 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-macro.melt:1076:/ multiapply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OPVAL__V88*/ curfptr[83];BASILYS_LOCATION("warmelt-macro.melt:1076:/ multiapply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OPVAL__V89*/ curfptr[84];BASILYS_LOCATION("warmelt-macro.melt:1076:/ multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2];BASILYS_LOCATION("warmelt-macro.melt:1076:/ multiapply.arg"); - argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14];BASILYS_LOCATION("warmelt-macro.melt:1076:/ multiapply.arg"); + argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V16*/ curfptr[15];BASILYS_LOCATION("warmelt-macro.melt:1076:/ multiapply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-macro.melt:1076:/ multiapply.xres"); - restab[0].bp_aptr = (basilys_ptr_t*) &/*_.PATS__V110*/ curfptr[50]; + restab[0].bp_aptr = (basilys_ptr_t*) &/*_.PATS__V111*/ curfptr[51]; BASILYS_LOCATION("warmelt-macro.melt:1076:/ multiapply.appl"); - /*_.ARGS__V109*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)((/*!PATMACEXPAND_FOR_MATCHER*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.PAIR_TAIL__V107*/ curfptr[35]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); + /*_.ARGS__V110*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)((/*!PATMACEXPAND_FOR_MATCHER*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.PAIR_TAIL__V108*/ curfptr[36]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-macro.melt:1076:/ block"); @@ -9012,19 +9036,19 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1079:/ apply.arg"); argtab[3].bp_long = 1079; - /*_.DEBUG_MSG_FUN__V112*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ARGS__V109*/ curfptr[57]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V113*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ARGS__V110*/ curfptr[58]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V111*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V112*/ curfptr[52];; + /*_.IFCPP___V112*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V113*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1079:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[31] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1079:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V112*/ curfptr[52] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V113*/ curfptr[53] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1079:/ cppif.else"); - /*_.IFCPP___V111*/ curfptr[36] = (/*nil*/NULL); + /*_.IFCPP___V112*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -9046,19 +9070,19 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1080:/ apply.arg"); argtab[3].bp_long = 1080; - /*_.DEBUG_MSG_FUN__V114*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PATS__V110*/ curfptr[50]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V115*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PATS__V111*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V113*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V114*/ curfptr[31];; + /*_.IFCPP___V114*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V115*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1080:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L34*/ curfnum[31] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1080:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V114*/ curfptr[31] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V115*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1080:/ cppif.else"); - /*_.IFCPP___V113*/ curfptr[48] = (/*nil*/NULL); + /*_.IFCPP___V114*/ curfptr[49] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1081:/ block"); @@ -9067,35 +9091,35 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1081:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; - basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_FUNMATCH*/ curfrout->tabval[13])), (7), "CLASS_SRCPATTERN_FUNMATCH");/*_.INST__V117*/ curfptr[52] = + basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_FUNMATCH*/ curfrout->tabval[13])), (7), "CLASS_SRCPATTERN_FUNMATCH");/*_.INST__V118*/ curfptr[53] = newobj; }; ; BASILYS_LOCATION("warmelt-macro.melt:1081:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V117*/ curfptr[52])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V117*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V117*/ curfptr[52]), (0), (/*_.SLOC__V15*/ curfptr[14]), "SRC_LOC"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V118*/ curfptr[53])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V118*/ curfptr[53]))));basilys_putfield_object((/*_.INST__V118*/ curfptr[53]), (0), (/*_.SLOC__V16*/ curfptr[15]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-macro.melt:1081:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V117*/ curfptr[52])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V117*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V117*/ curfptr[52]), (3), (/*_.OPVAL__V88*/ curfptr[83]), "SPAC_OPERATOR"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V118*/ curfptr[53])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V118*/ curfptr[53]))));basilys_putfield_object((/*_.INST__V118*/ curfptr[53]), (3), (/*_.OPVAL__V89*/ curfptr[84]), "SPAC_OPERATOR"); ; BASILYS_LOCATION("warmelt-macro.melt:1081:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V117*/ curfptr[52])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V117*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V117*/ curfptr[52]), (4), (/*_.OPBIND__V24*/ curfptr[19]), "SPAC_OPERBIND"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V118*/ curfptr[53])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V118*/ curfptr[53]))));basilys_putfield_object((/*_.INST__V118*/ curfptr[53]), (4), (/*_.OPBIND__V25*/ curfptr[20]), "SPAC_OPERBIND"); ; BASILYS_LOCATION("warmelt-macro.melt:1081:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V117*/ curfptr[52])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V117*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V117*/ curfptr[52]), (5), (/*_.ARGS__V109*/ curfptr[57]), "SPAC_INARGS"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V118*/ curfptr[53])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V118*/ curfptr[53]))));basilys_putfield_object((/*_.INST__V118*/ curfptr[53]), (5), (/*_.ARGS__V110*/ curfptr[58]), "SPAC_INARGS"); ; BASILYS_LOCATION("warmelt-macro.melt:1081:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V117*/ curfptr[52])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V117*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V117*/ curfptr[52]), (6), (/*_.PATS__V110*/ curfptr[50]), "SPAC_OUTARGS"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V118*/ curfptr[53])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V118*/ curfptr[53]))));basilys_putfield_object((/*_.INST__V118*/ curfptr[53]), (6), (/*_.PATS__V111*/ curfptr[51]), "SPAC_OUTARGS"); ; - /*_.PCOMP__V116*/ curfptr[32] = /*_.INST__V117*/ curfptr[52];;} + /*_.PCOMP__V117*/ curfptr[33] = /*_.INST__V118*/ curfptr[53];;} ; #if ENABLE_CHECKING @@ -9116,64 +9140,64 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1089:/ apply.arg"); argtab[3].bp_long = 1089; - /*_.DEBUG_MSG_FUN__V119*/ curfptr[118] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PCOMP__V116*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V120*/ curfptr[119] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PCOMP__V117*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V118*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V119*/ curfptr[118];; + /*_.IFCPP___V119*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V120*/ curfptr[119];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1089:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L35*/ curfnum[31] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1089:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V119*/ curfptr[118] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V120*/ curfptr[119] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1089:/ cppif.else"); - /*_.IFCPP___V118*/ curfptr[31] = (/*nil*/NULL); + /*_.IFCPP___V119*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1090:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PCOMP__V116*/ curfptr[32];; + /*_.RETVAL___V1*/ curfptr[0] = /*_.PCOMP__V117*/ curfptr[33];; BASILYS_LOCATION("warmelt-macro.melt:1090:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - /*_.LET___V115*/ curfptr[78] = /*_.RETURN___V120*/ curfptr[118];; + /*_.LET___V116*/ curfptr[79] = /*_.RETURN___V121*/ curfptr[119];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1081:/ clear"); - /*clear*/ /*_.PCOMP__V116*/ curfptr[32] = 0 ; + /*clear*/ /*_.PCOMP__V117*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1081:/ clear"); - /*clear*/ /*_.IFCPP___V118*/ curfptr[31] = 0 ; + /*clear*/ /*_.IFCPP___V119*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1081:/ clear"); - /*clear*/ /*_.RETURN___V120*/ curfptr[118] = 0 ;} + /*clear*/ /*_.RETURN___V121*/ curfptr[119] = 0 ;} ; - /*_.MULTI___V108*/ curfptr[49] = /*_.LET___V115*/ curfptr[78];; + /*_.MULTI___V109*/ curfptr[50] = /*_.LET___V116*/ curfptr[79];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1076:/ clear"); - /*clear*/ /*_.IFCPP___V111*/ curfptr[36] = 0 ; + /*clear*/ /*_.IFCPP___V112*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1076:/ clear"); - /*clear*/ /*_.IFCPP___V113*/ curfptr[48] = 0 ; + /*clear*/ /*_.IFCPP___V114*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1076:/ clear"); - /*clear*/ /*_.LET___V115*/ curfptr[78] = 0 ;} + /*clear*/ /*_.LET___V116*/ curfptr[79] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1076:/ clear"); - /*clear*/ /*_.PATS__V110*/ curfptr[50] = 0 ;} + /*clear*/ /*_.PATS__V111*/ curfptr[51] = 0 ;} ; BASILYS_LOCATION("warmelt-macro.melt:1074:/ block"); /*block*/{ - /*_.PROGN___V121*/ curfptr[32] = /*_.MULTI___V108*/ curfptr[49];;} + /*_.PROGN___V122*/ curfptr[33] = /*_.MULTI___V109*/ curfptr[50];;} ; - /*_.IFELSE___V104*/ curfptr[47] = /*_.PROGN___V121*/ curfptr[32];; + /*_.IFELSE___V105*/ curfptr[48] = /*_.PROGN___V122*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1074:/ clear"); - /*clear*/ /*_.IFCPP___V105*/ curfptr[56] = 0 ; + /*clear*/ /*_.IFCPP___V106*/ curfptr[57] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1074:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V107*/ curfptr[35] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V108*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1074:/ clear"); - /*clear*/ /*_.MULTI___V108*/ curfptr[49] = 0 ; + /*clear*/ /*_.MULTI___V109*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1074:/ clear"); - /*clear*/ /*_.PROGN___V121*/ curfptr[32] = 0 ;} + /*clear*/ /*_.PROGN___V122*/ curfptr[33] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-macro.melt:1074:/ cond.else"); @@ -9182,7 +9206,7 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); { BASILYS_LOCATION("warmelt-macro.melt:1094:/ locexp"); - basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "invalid pattern operator value"), (basilys_ptr_t)(/*_.OPNAM__V25*/ curfptr[21]));} + basilys_error_str((basilys_ptr_t)(/*_.SLOC__V16*/ curfptr[15]), ( "invalid pattern operator value"), (basilys_ptr_t)(/*_.OPNAM__V26*/ curfptr[22]));} ; BASILYS_LOCATION("warmelt-macro.melt:1095:/ block"); /*block*/{ @@ -9193,39 +9217,39 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); ; BASILYS_LOCATION("warmelt-macro.melt:1093:/ block"); /*block*/{ - /*_.PROGN___V123*/ curfptr[118] = /*_.RETURN___V122*/ curfptr[31];;} + /*_.PROGN___V124*/ curfptr[119] = /*_.RETURN___V123*/ curfptr[32];;} ; - /*_.IFELSE___V104*/ curfptr[47] = /*_.PROGN___V123*/ curfptr[118];; + /*_.IFELSE___V105*/ curfptr[48] = /*_.PROGN___V124*/ curfptr[119];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1074:/ clear"); - /*clear*/ /*_.RETURN___V122*/ curfptr[31] = 0 ; + /*clear*/ /*_.RETURN___V123*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1074:/ clear"); - /*clear*/ /*_.PROGN___V123*/ curfptr[118] = 0 ;} + /*clear*/ /*_.PROGN___V124*/ curfptr[119] = 0 ;} ; } ; - /*_.IFELSE___V89*/ curfptr[30] = /*_.IFELSE___V104*/ curfptr[47];; + /*_.IFELSE___V90*/ curfptr[31] = /*_.IFELSE___V105*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1057:/ clear"); /*clear*/ /*_#IS_A__L31*/ curfnum[27] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1057:/ clear"); - /*clear*/ /*_.IFELSE___V104*/ curfptr[47] = 0 ;} + /*clear*/ /*_.IFELSE___V105*/ curfptr[48] = 0 ;} ; } ; - /*_.LET___V87*/ curfptr[82] = /*_.IFELSE___V89*/ curfptr[30];; + /*_.LET___V88*/ curfptr[83] = /*_.IFELSE___V90*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1055:/ clear"); - /*clear*/ /*_.OPVAL__V88*/ curfptr[83] = 0 ; + /*clear*/ /*_.OPVAL__V89*/ curfptr[84] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1055:/ clear"); /*clear*/ /*_#IS_A__L27*/ curfnum[26] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1055:/ clear"); - /*clear*/ /*_.IFELSE___V89*/ curfptr[30] = 0 ;} + /*clear*/ /*_.IFELSE___V90*/ curfptr[31] = 0 ;} ; - /*_.IFELSE___V86*/ curfptr[80] = /*_.LET___V87*/ curfptr[82];; + /*_.IFELSE___V87*/ curfptr[81] = /*_.LET___V88*/ curfptr[83];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1054:/ clear"); - /*clear*/ /*_.LET___V87*/ curfptr[82] = 0 ;} + /*clear*/ /*_.LET___V88*/ curfptr[83] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-macro.melt:1054:/ cond.else"); @@ -9234,7 +9258,7 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); { BASILYS_LOCATION("warmelt-macro.melt:1097:/ locexp"); - basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "pattern operator badly bound - patternmacro expected"), (basilys_ptr_t)(/*_.OPNAM__V25*/ curfptr[21]));} + basilys_error_str((basilys_ptr_t)(/*_.SLOC__V16*/ curfptr[15]), ( "pattern operator badly bound - patternmacro expected"), (basilys_ptr_t)(/*_.OPNAM__V26*/ curfptr[22]));} ; BASILYS_LOCATION("warmelt-macro.melt:1096:/ block"); /*block*/{} @@ -9243,90 +9267,90 @@ BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); ; } ; - /*_.IFELSE___V60*/ curfptr[54] = /*_.IFELSE___V86*/ curfptr[80];; + /*_.IFELSE___V61*/ curfptr[55] = /*_.IFELSE___V87*/ curfptr[81];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1026:/ clear"); /*clear*/ /*_#IS_A__L26*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1026:/ clear"); - /*clear*/ /*_.IFELSE___V86*/ curfptr[80] = 0 ;} + /*clear*/ /*_.IFELSE___V87*/ curfptr[81] = 0 ;} ; } ; - /*_.IFELSE___V39*/ curfptr[34] = /*_.IFELSE___V60*/ curfptr[54];; + /*_.IFELSE___V40*/ curfptr[35] = /*_.IFELSE___V61*/ curfptr[55];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1005:/ clear"); /*clear*/ /*_#IS_A__L18*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1005:/ clear"); - /*clear*/ /*_.IFELSE___V60*/ curfptr[54] = 0 ;} + /*clear*/ /*_.IFELSE___V61*/ curfptr[55] = 0 ;} ; } ; - /*_.IFELSE___V29*/ curfptr[28] = /*_.IFELSE___V39*/ curfptr[34];; + /*_.IFELSE___V30*/ curfptr[29] = /*_.IFELSE___V40*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:998:/ clear"); /*clear*/ /*_#IS_A__L12*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:998:/ clear"); - /*clear*/ /*_.IFELSE___V39*/ curfptr[34] = 0 ;} + /*clear*/ /*_.IFELSE___V40*/ curfptr[35] = 0 ;} ; } ; - /*_.IFELSE___V28*/ curfptr[26] = /*_.IFELSE___V29*/ curfptr[28];; + /*_.IFELSE___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:995:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:995:/ clear"); - /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} + /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} ; } ; - /*_.LET___V23*/ curfptr[18] = /*_.IFELSE___V28*/ curfptr[26];; + /*_.LET___V24*/ curfptr[19] = /*_.IFELSE___V29*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:990:/ clear"); - /*clear*/ /*_.OPBIND__V24*/ curfptr[19] = 0 ; + /*clear*/ /*_.OPBIND__V25*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:990:/ clear"); - /*clear*/ /*_.OPNAM__V25*/ curfptr[21] = 0 ; + /*clear*/ /*_.OPNAM__V26*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:990:/ clear"); - /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; + /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:990:/ clear"); /*clear*/ /*_#NULL__L8*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:990:/ clear"); - /*clear*/ /*_.IFELSE___V28*/ curfptr[26] = 0 ;} + /*clear*/ /*_.IFELSE___V29*/ curfptr[27] = 0 ;} ; - /*_.LET___V13*/ curfptr[11] = /*_.LET___V23*/ curfptr[18];; + /*_.LET___V14*/ curfptr[12] = /*_.LET___V24*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:981:/ clear"); - /*clear*/ /*_.SCONT__V14*/ curfptr[13] = 0 ; + /*clear*/ /*_.SCONT__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:981:/ clear"); - /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; + /*clear*/ /*_.SLOC__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:981:/ clear"); - /*clear*/ /*_.CURPAIR__V16*/ curfptr[15] = 0 ; + /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:981:/ clear"); - /*clear*/ /*_.SOPER__V17*/ curfptr[16] = 0 ; + /*clear*/ /*_.SOPER__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:981:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:981:/ clear"); - /*clear*/ /*_.IF___V18*/ curfptr[17] = 0 ; + /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:981:/ clear"); - /*clear*/ /*_.LET___V23*/ curfptr[18] = 0 ;} + /*clear*/ /*_.LET___V24*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-macro.melt:976:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; + /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-macro.melt:976:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:976:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:976:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:976:/ clear"); - /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; + /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:976:/ clear"); - /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; + /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:976:/ clear"); - /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} + /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; @@ -9361,8 +9385,8 @@ rout_18_PATTERNEXPAND_1(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, c struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; -#define CURFRAM_NBVARPTR 67 - void* varptr[67]; +#define CURFRAM_NBVARPTR 72 + void* varptr[72]; #define CURFRAM_NBVARNUM 16 long varnum[16]; /*others*/ @@ -9372,13 +9396,13 @@ rout_18_PATTERNEXPAND_1(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, c int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); - for(ix=0; ix<67; ix++) + for(ix=0; ix<72; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); - curfram__.nbvar = 67; + curfram__.nbvar = 72; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; @@ -9402,6 +9426,13 @@ basilys_trace_start("PATTERNEXPAND_1", callcount); /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL); + + /*getarg#3*/ + BASILYS_LOCATION("warmelt-macro.melt:1106:/ getarg"); + if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; + /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; + gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); + ; goto lab_endgetargs; lab_endgetargs:; @@ -9418,7 +9449,7 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); BASILYS_LOCATION("warmelt-macro.melt:1107:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1107:/ cond.then"); - /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; + /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-macro.melt:1107:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:1107:/ block"); @@ -9429,22 +9460,22 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); BASILYS_LOCATION("warmelt-macro.melt:1107:/ locexp"); basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1107)?(1107):__LINE__, __FUNCTION__);} ; - /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} + /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; - /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; + /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1107:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1107:/ clear"); - /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} + /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1107:/ cppif.else"); - /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); + /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -9457,7 +9488,7 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); BASILYS_LOCATION("warmelt-macro.melt:1108:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1108:/ cond.then"); - /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; + /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-macro.melt:1108:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:1108:/ block"); @@ -9468,22 +9499,22 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); BASILYS_LOCATION("warmelt-macro.melt:1108:/ locexp"); basilys_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1108)?(1108):__LINE__, __FUNCTION__);} ; - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} + /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; - /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; + /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1108:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1108:/ clear"); - /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} + /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1108:/ cppif.else"); - /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); + /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L3*/ curfnum[0] = @@ -9497,16 +9528,16 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1111:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.SCONT__V11*/ curfptr[10] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.SCONT__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-macro.melt:1112:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V12*/ curfptr[11] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V13*/ curfptr[12] = slot; }; ; - /*_.CURPAIR__V13*/ curfptr[12] = - (basilys_list_first((basilys_ptr_t)(/*_.SCONT__V11*/ curfptr[10])));; - /*_.SOPER__V14*/ curfptr[13] = - (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; + /*_.CURPAIR__V14*/ curfptr[13] = + (basilys_list_first((basilys_ptr_t)(/*_.SCONT__V12*/ curfptr[11])));; + /*_.SOPER__V15*/ curfptr[14] = + (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V14*/ curfptr[13])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-macro.melt:1115:/ cppif.then"); @@ -9526,19 +9557,19 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1115:/ apply.arg"); argtab[3].bp_long = 1115; - /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];; + /*_.IFCPP___V16*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1115:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1115:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1115:/ cppif.else"); - /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); + /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -9560,23 +9591,23 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1116:/ apply.arg"); argtab[3].bp_long = 1116; - /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SOPER__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SOPER__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V17*/ curfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; + /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1116:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1116:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1116:/ cppif.else"); - /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); + /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#__L6*/ curfnum[3] = - ((/*_.SOPER__V14*/ curfptr[13]) != ((/*!konst_4_QUESTION*/ curfrout->tabval[4])));; + ((/*_.SOPER__V15*/ curfptr[14]) != ((/*!konst_4_QUESTION*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-macro.melt:1117:/ cond"); /*cond*/ if (/*_#__L6*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1117:/ cond.then"); @@ -9586,7 +9617,7 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1119:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), 0, "PCTX_MEXPANDER");/*_.MEXPANDER__V21*/ curfptr[20] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), 0, "PCTX_MEXPANDER");/*_.MEXPANDER__V22*/ curfptr[21] = slot; }; ; BASILYS_LOCATION("warmelt-macro.melt:1120:/ apply"); /*apply*/{ @@ -9595,28 +9626,28 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); BASILYS_LOCATION("warmelt-macro.melt:1120:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-macro.melt:1120:/ apply.arg"); - argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V21*/ curfptr[20]; - /*_.EXP__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V22*/ curfptr[21]; + /*_.EXP__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-macro.melt:1121:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1121:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; - basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_CONSTANT*/ curfrout->tabval[6])), (2), "CLASS_SRCPATTERN_CONSTANT");/*_.INST__V24*/ curfptr[23] = + basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_CONSTANT*/ curfrout->tabval[6])), (2), "CLASS_SRCPATTERN_CONSTANT");/*_.INST__V25*/ curfptr[24] = newobj; }; ; BASILYS_LOCATION("warmelt-macro.melt:1121:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (0), (/*_.SLOC__V12*/ curfptr[11]), "SRC_LOC"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[24]), (0), (/*_.SLOC__V13*/ curfptr[12]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-macro.melt:1121:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (1), (/*_.EXP__V22*/ curfptr[21]), "SPAT_CONSTX"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[24]), (1), (/*_.EXP__V23*/ curfptr[22]), "SPAT_CONSTX"); ; - /*_.PAT__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;} + /*_.PAT__V24*/ curfptr[23] = /*_.INST__V25*/ curfptr[24];;} ; #if ENABLE_CHECKING @@ -9637,45 +9668,45 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1125:/ apply.arg"); argtab[3].bp_long = 1125; - /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAT__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAT__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];; + /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1125:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1125:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1125:/ cppif.else"); - /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL); + /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1126:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PAT__V23*/ curfptr[22];; + /*_.RETVAL___V1*/ curfptr[0] = /*_.PAT__V24*/ curfptr[23];; BASILYS_LOCATION("warmelt-macro.melt:1126:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - /*_.LET___V20*/ curfptr[19] = /*_.RETURN___V27*/ curfptr[25];; + /*_.LET___V21*/ curfptr[20] = /*_.RETURN___V28*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1119:/ clear"); - /*clear*/ /*_.MEXPANDER__V21*/ curfptr[20] = 0 ; + /*clear*/ /*_.MEXPANDER__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1119:/ clear"); - /*clear*/ /*_.EXP__V22*/ curfptr[21] = 0 ; + /*clear*/ /*_.EXP__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1119:/ clear"); - /*clear*/ /*_.PAT__V23*/ curfptr[22] = 0 ; + /*clear*/ /*_.PAT__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1119:/ clear"); - /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ; + /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1119:/ clear"); - /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;} + /*clear*/ /*_.RETURN___V28*/ curfptr[26] = 0 ;} ; - /*_.IFELSE___V19*/ curfptr[17] = /*_.LET___V20*/ curfptr[19];; + /*_.IFELSE___V20*/ curfptr[18] = /*_.LET___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1117:/ clear"); - /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;} + /*clear*/ /*_.LET___V21*/ curfptr[20] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-macro.melt:1117:/ cond.else"); @@ -9683,30 +9714,30 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1129:/ block"); /*block*/{ - /*_.PAIR_TAIL__V29*/ curfptr[21] = - (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; + /*_.PAIR_TAIL__V30*/ curfptr[22] = + (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V14*/ curfptr[13])));; BASILYS_LOCATION("warmelt-macro.melt:1129:/ compute"); - /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V30*/ curfptr[22] = /*_.PAIR_TAIL__V29*/ curfptr[21];; - /*_.PARG1__V31*/ curfptr[24] = - (basilys_pair_head((basilys_ptr_t)(/*_.SETQ___V30*/ curfptr[22])));; - /*_.PAIR_TAIL__V32*/ curfptr[25] = - (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; + /*_.CURPAIR__V14*/ curfptr[13] = /*_.SETQ___V31*/ curfptr[23] = /*_.PAIR_TAIL__V30*/ curfptr[22];; + /*_.PARG1__V32*/ curfptr[25] = + (basilys_pair_head((basilys_ptr_t)(/*_.SETQ___V31*/ curfptr[23])));; + /*_.PAIR_TAIL__V33*/ curfptr[26] = + (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V14*/ curfptr[13])));; BASILYS_LOCATION("warmelt-macro.melt:1130:/ cond"); - /*cond*/ if (/*_.PAIR_TAIL__V32*/ curfptr[25]) /*then*/ { + /*cond*/ if (/*_.PAIR_TAIL__V33*/ curfptr[26]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1130:/ cond.then"); BASILYS_LOCATION("warmelt-macro.melt:1130:/ block"); /*block*/{ { BASILYS_LOCATION("warmelt-macro.melt:1131:/ locexp"); - basilys_error_str((basilys_ptr_t)(/*_.SLOC__V12*/ curfptr[11]), ( "QUESTION should have one argument"), (basilys_ptr_t)0);} + basilys_error_str((basilys_ptr_t)(/*_.SLOC__V13*/ curfptr[12]), ( "QUESTION should have one argument"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; /*_#__L8*/ curfnum[6] = - ((/*_.PARG1__V31*/ curfptr[24]) == ((/*!konst_7_*/ curfrout->tabval[7])));; + ((/*_.PARG1__V32*/ curfptr[25]) == ((/*!konst_7_*/ curfrout->tabval[7])));; BASILYS_LOCATION("warmelt-macro.melt:1133:/ cond"); /*cond*/ if (/*_#__L8*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1133:/ cond.then"); @@ -9718,20 +9749,20 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1134:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; - basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_JOKERVAR*/ curfrout->tabval[8])), (2), "CLASS_SRCPATTERN_JOKERVAR");/*_.INST__V36*/ curfptr[35] = + basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_JOKERVAR*/ curfrout->tabval[8])), (2), "CLASS_SRCPATTERN_JOKERVAR");/*_.INST__V37*/ curfptr[36] = newobj; }; ; BASILYS_LOCATION("warmelt-macro.melt:1134:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.SLOC__V12*/ curfptr[11]), "SRC_LOC"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (0), (/*_.SLOC__V13*/ curfptr[12]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-macro.melt:1134:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.PARG1__V31*/ curfptr[24]), "SPAT_VAR"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.PARG1__V32*/ curfptr[25]), "SPAT_VAR"); ; - /*_.JOKP__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;} + /*_.JOKP__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;} ; #if ENABLE_CHECKING @@ -9752,48 +9783,48 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1137:/ apply.arg"); argtab[3].bp_long = 1137; - /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.JOKP__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.JOKP__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V37*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];; + /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1137:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1137:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1137:/ cppif.else"); - /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL); + /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1138:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.JOKP__V35*/ curfptr[34];; + /*_.RETVAL___V1*/ curfptr[0] = /*_.JOKP__V36*/ curfptr[35];; BASILYS_LOCATION("warmelt-macro.melt:1138:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - /*_.LET___V34*/ curfptr[33] = /*_.RETURN___V39*/ curfptr[37];; + /*_.LET___V35*/ curfptr[34] = /*_.RETURN___V40*/ curfptr[38];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1134:/ clear"); - /*clear*/ /*_.JOKP__V35*/ curfptr[34] = 0 ; + /*clear*/ /*_.JOKP__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1134:/ clear"); - /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ; + /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1134:/ clear"); - /*clear*/ /*_.RETURN___V39*/ curfptr[37] = 0 ;} + /*clear*/ /*_.RETURN___V40*/ curfptr[38] = 0 ;} ; - /*_.IFELSE___V33*/ curfptr[19] = /*_.LET___V34*/ curfptr[33];; + /*_.IFELSE___V34*/ curfptr[20] = /*_.LET___V35*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1133:/ clear"); - /*clear*/ /*_.LET___V34*/ curfptr[33] = 0 ;} + /*clear*/ /*_.LET___V35*/ curfptr[34] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-macro.melt:1133:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:1133:/ block"); /*block*/{ /*_#IS_A__L10*/ curfnum[8] = - basilys_is_instance_of((basilys_ptr_t)(/*_.PARG1__V31*/ curfptr[24]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; + basilys_is_instance_of((basilys_ptr_t)(/*_.PARG1__V32*/ curfptr[25]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; BASILYS_LOCATION("warmelt-macro.melt:1140:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1140:/ cond.then"); @@ -9803,12 +9834,12 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1143:/ getslot"); { basilys_ptr_t slot=0; - basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), 2, "PCTX_VARMAP");/*_.VAMP__V42*/ curfptr[37] = slot; }; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), 2, "PCTX_VARMAP");/*_.VAMP__V43*/ curfptr[38] = slot; }; ; - /*_.PAVR__V43*/ curfptr[33] = - (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.VAMP__V42*/ curfptr[37]), (basilysobject_ptr_t)(/*_.PARG1__V31*/ curfptr[24])));; + /*_.PAVR__V44*/ curfptr[34] = + (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.VAMP__V43*/ curfptr[38]), (basilysobject_ptr_t)(/*_.PARG1__V32*/ curfptr[25])));; BASILYS_LOCATION("warmelt-macro.melt:1146:/ cond"); - /*cond*/ if (/*_.PAVR__V43*/ curfptr[33]) /*then*/ { + /*cond*/ if (/*_.PAVR__V44*/ curfptr[34]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1146:/ cond.then"); BASILYS_LOCATION("warmelt-macro.melt:1146:/ block"); /*block*/{ @@ -9831,40 +9862,40 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1148:/ apply.arg"); argtab[3].bp_long = 1148; - /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAVR__V43*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAVR__V44*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V45*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];; + /*_.IFCPP___V46*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1148:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1148:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1148:/ cppif.else"); - /*_.IFCPP___V45*/ curfptr[44] = (/*nil*/NULL); + /*_.IFCPP___V46*/ curfptr[45] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1149:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PAVR__V43*/ curfptr[33];; + /*_.RETVAL___V1*/ curfptr[0] = /*_.PAVR__V44*/ curfptr[34];; BASILYS_LOCATION("warmelt-macro.melt:1149:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-macro.melt:1147:/ block"); /*block*/{ - /*_.PROGN___V48*/ curfptr[47] = /*_.RETURN___V47*/ curfptr[45];;} + /*_.PROGN___V49*/ curfptr[48] = /*_.RETURN___V48*/ curfptr[46];;} ; - /*_.IFELSE___V44*/ curfptr[43] = /*_.PROGN___V48*/ curfptr[47];; + /*_.IFELSE___V45*/ curfptr[44] = /*_.PROGN___V49*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1146:/ clear"); - /*clear*/ /*_.IFCPP___V45*/ curfptr[44] = 0 ; + /*clear*/ /*_.IFCPP___V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1146:/ clear"); - /*clear*/ /*_.RETURN___V47*/ curfptr[45] = 0 ; + /*clear*/ /*_.RETURN___V48*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1146:/ clear"); - /*clear*/ /*_.PROGN___V48*/ curfptr[47] = 0 ;} + /*clear*/ /*_.PROGN___V49*/ curfptr[48] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-macro.melt:1146:/ cond.else"); @@ -9876,25 +9907,25 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1151:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; - basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_VARIABLE*/ curfrout->tabval[10])), (2), "CLASS_SRCPATTERN_VARIABLE");/*_.INST__V51*/ curfptr[47] = + basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_VARIABLE*/ curfrout->tabval[10])), (2), "CLASS_SRCPATTERN_VARIABLE");/*_.INST__V52*/ curfptr[48] = newobj; }; ; BASILYS_LOCATION("warmelt-macro.melt:1151:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[47])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[47]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[47]), (0), (/*_.SLOC__V12*/ curfptr[11]), "SRC_LOC"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V52*/ curfptr[48])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V52*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V52*/ curfptr[48]), (0), (/*_.SLOC__V13*/ curfptr[12]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-macro.melt:1151:/ putslot"); /*putslot*/ - basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[47])) == OBMAG_OBJECT); - basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[47]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[47]), (1), (/*_.PARG1__V31*/ curfptr[24]), "SPAT_VAR"); + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V52*/ curfptr[48])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V52*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V52*/ curfptr[48]), (1), (/*_.PARG1__V32*/ curfptr[25]), "SPAT_VAR"); ; - /*_.NEWPAVR__V50*/ curfptr[45] = /*_.INST__V51*/ curfptr[47];;} + /*_.NEWPAVR__V51*/ curfptr[46] = /*_.INST__V52*/ curfptr[48];;} ; { BASILYS_LOCATION("warmelt-macro.melt:1155:/ locexp"); - basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.VAMP__V42*/ curfptr[37]), (basilysobject_ptr_t) (/*_.PARG1__V31*/ curfptr[24]), (basilys_ptr_t)(/*_.NEWPAVR__V50*/ curfptr[45]));} + basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.VAMP__V43*/ curfptr[38]), (basilysobject_ptr_t) (/*_.PARG1__V32*/ curfptr[25]), (basilys_ptr_t)(/*_.NEWPAVR__V51*/ curfptr[46]));} ; #if ENABLE_CHECKING @@ -9915,64 +9946,64 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1156:/ apply.arg"); argtab[3].bp_long = 1156; - /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NEWPAVR__V50*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NEWPAVR__V51*/ curfptr[46]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];; + /*_.IFCPP___V53*/ curfptr[52] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1156:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1156:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1156:/ cppif.else"); - /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL); + /*_.IFCPP___V53*/ curfptr[52] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1157:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.NEWPAVR__V50*/ curfptr[45];; + /*_.RETVAL___V1*/ curfptr[0] = /*_.NEWPAVR__V51*/ curfptr[46];; BASILYS_LOCATION("warmelt-macro.melt:1157:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - /*_.LET___V49*/ curfptr[44] = /*_.RETURN___V54*/ curfptr[52];; + /*_.LET___V50*/ curfptr[45] = /*_.RETURN___V55*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1151:/ clear"); - /*clear*/ /*_.NEWPAVR__V50*/ curfptr[45] = 0 ; + /*clear*/ /*_.NEWPAVR__V51*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1151:/ clear"); - /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ; + /*clear*/ /*_.IFCPP___V53*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1151:/ clear"); - /*clear*/ /*_.RETURN___V54*/ curfptr[52] = 0 ;} + /*clear*/ /*_.RETURN___V55*/ curfptr[53] = 0 ;} ; - /*_.IFELSE___V44*/ curfptr[43] = /*_.LET___V49*/ curfptr[44];; + /*_.IFELSE___V45*/ curfptr[44] = /*_.LET___V50*/ curfptr[45];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1146:/ clear"); - /*clear*/ /*_.LET___V49*/ curfptr[44] = 0 ;} + /*clear*/ /*_.LET___V50*/ curfptr[45] = 0 ;} ; } ; - /*_.LET___V41*/ curfptr[36] = /*_.IFELSE___V44*/ curfptr[43];; + /*_.LET___V42*/ curfptr[37] = /*_.IFELSE___V45*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1143:/ clear"); - /*clear*/ /*_.VAMP__V42*/ curfptr[37] = 0 ; + /*clear*/ /*_.VAMP__V43*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1143:/ clear"); - /*clear*/ /*_.PAVR__V43*/ curfptr[33] = 0 ; + /*clear*/ /*_.PAVR__V44*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1143:/ clear"); - /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} + /*clear*/ /*_.IFELSE___V45*/ curfptr[44] = 0 ;} ; - /*_.IFELSE___V40*/ curfptr[34] = /*_.LET___V41*/ curfptr[36];; + /*_.IFELSE___V41*/ curfptr[35] = /*_.LET___V42*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1140:/ clear"); - /*clear*/ /*_.LET___V41*/ curfptr[36] = 0 ;} + /*clear*/ /*_.LET___V42*/ curfptr[37] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-macro.melt:1140:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:1140:/ block"); /*block*/{ /*_#IS_A__L13*/ curfnum[10] = - basilys_is_instance_of((basilys_ptr_t)(/*_.PARG1__V31*/ curfptr[24]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[2])));; + basilys_is_instance_of((basilys_ptr_t)(/*_.PARG1__V32*/ curfptr[25]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-macro.melt:1160:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-macro.melt:1160:/ cond.then"); @@ -9997,32 +10028,34 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1161:/ apply.arg"); argtab[3].bp_long = 1161; - /*_.DEBUG_MSG_FUN__V57*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PARG1__V31*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V58*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PARG1__V32*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V56*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[52];; + /*_.IFCPP___V57*/ curfptr[52] = /*_.DEBUG_MSG_FUN__V58*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1161:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1161:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[52] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V58*/ curfptr[53] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1161:/ cppif.else"); - /*_.IFCPP___V56*/ curfptr[51] = (/*nil*/NULL); + /*_.IFCPP___V57*/ curfptr[52] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1162:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-macro.melt:1162:/ apply"); /*apply*/{ - union basilysparam_un argtab[2]; + union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-macro.melt:1162:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-macro.melt:1162:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V4*/ curfptr[3]; - /*_.PATEX__V59*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_EXPR*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.PARG1__V31*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.melt:1162:/ apply.arg"); + argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; + /*_.PATEX__V60*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_EXPR*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.PARG1__V32*/ curfptr[25]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; @@ -10044,49 +10077,49 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); argtab[2].bp_cstring = "warmelt-macro.melt"; BASILYS_LOCATION("warmelt-macro.melt:1163:/ apply.arg"); argtab[3].bp_long = 1163; - /*_.DEBUG_MSG_FUN__V61*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PATEX__V59*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + /*_.DEBUG_MSG_FUN__V62*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PATEX__V60*/ curfptr[38]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; - /*_.IFCPP___V60*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[43];; + /*_.IFCPP___V61*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1163:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1163:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[43] = 0 ;} + /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-macro.melt:1163:/ cppif.else"); - /*_.IFCPP___V60*/ curfptr[33] = (/*nil*/NULL); + /*_.IFCPP___V61*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-macro.melt:1164:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.PATEX__V59*/ curfptr[37];; + /*_.RETVAL___V1*/ curfptr[0] = /*_.PATEX__V60*/ curfptr[38];; BASILYS_LOCATION("warmelt-macro.melt:1164:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - /*_.LET___V58*/ curfptr[44] = /*_.RETURN___V62*/ curfptr[36];; + /*_.LET___V59*/ curfptr[45] = /*_.RETURN___V63*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1162:/ clear"); - /*clear*/ /*_.PATEX__V59*/ curfptr[37] = 0 ; + /*clear*/ /*_.PATEX__V60*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1162:/ clear"); - /*clear*/ /*_.IFCPP___V60*/ curfptr[33] = 0 ; + /*clear*/ /*_.IFCPP___V61*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1162:/ clear"); - /*clear*/ /*_.RETURN___V62*/ curfptr[36] = 0 ;} + /*clear*/ /*_.RETURN___V63*/ curfptr[37] = 0 ;} ; BASILYS_LOCATION("warmelt-macro.melt:1160:/ block"); /*block*/{ - /*_.PROGN___V63*/ curfptr[52] = /*_.LET___V58*/ curfptr[44];;} + /*_.PROGN___V64*/ curfptr[53] = /*_.LET___V59*/ curfptr[45];;} ; - /*_.IFELSE___V55*/ curfptr[45] = /*_.PROGN___V63*/ curfptr[52];; + /*_.IFELSE___V56*/ curfptr[46] = /*_.PROGN___V64*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1160:/ clear"); - /*clear*/ /*_.IFCPP___V56*/ curfptr[51] = 0 ; + /*clear*/ /*_.IFCPP___V57*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1160:/ clear"); - /*clear*/ /*_.LET___V58*/ curfptr[44] = 0 ; + /*clear*/ /*_.LET___V59*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1160:/ clear"); - /*clear*/ /*_.PROGN___V63*/ curfptr[52] = 0 ;} + /*clear*/ /*_.PROGN___V64*/ curfptr[53] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-macro.melt:1160:/ cond.else"); @@ -10095,7 +10128,7 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); { BASILYS_LOCATION("warmelt-macro.melt:1167:/ locexp"); - basilys_error_str((basilys_ptr_t)(/*_.SLOC__V12*/ curfptr[11]), ( "unexpected pattern QUESTION - neither symbol nor pattern expr"), (basilys_ptr_t)0);} + basilys_error_str((basilys_ptr_t)(/*_.SLOC__V13*/ curfptr[12]), ( "unexpected pattern QUESTION - neither symbol nor pattern expr"), (basilys_ptr_t)0);} ; BASILYS_LOCATION("warmelt-macro.melt:1166:/ block"); /*block*/{} @@ -10104,146 +10137,180 @@ BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); ; } ; - /*_.IFELSE___V40*/ curfptr[34] = /*_.IFELSE___V55*/ curfptr[45];; + /*_.IFELSE___V41*/ curfptr[35] = /*_.IFELSE___V56*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1140:/ clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1140:/ clear"); - /*clear*/ /*_.IFELSE___V55*/ curfptr[45] = 0 ;} + /*clear*/ /*_.IFELSE___V56*/ curfptr[46] = 0 ;} ; } ; - /*_.IFELSE___V33*/ curfptr[19] = /*_.IFELSE___V40*/ curfptr[34];; + /*_.IFELSE___V34*/ curfptr[20] = /*_.IFELSE___V41*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1133:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1133:/ clear"); - /*clear*/ /*_.IFELSE___V40*/ curfptr[34] = 0 ;} + /*clear*/ /*_.IFELSE___V41*/ curfptr[35] = 0 ;} ; } ; - /*_.LET___V28*/ curfptr[20] = /*_.IFELSE___V33*/ curfptr[19];; + /*_.LET___V29*/ curfptr[21] = /*_.IFELSE___V34*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1129:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V29*/ curfptr[21] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1129:/ clear"); - /*clear*/ /*_.SETQ___V30*/ curfptr[22] = 0 ; + /*clear*/ /*_.SETQ___V31*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1129:/ clear"); - /*clear*/ /*_.PARG1__V31*/ curfptr[24] = 0 ; + /*clear*/ /*_.PARG1__V32*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1129:/ clear"); - /*clear*/ /*_.PAIR_TAIL__V32*/ curfptr[25] = 0 ; + /*clear*/ /*_.PAIR_TAIL__V33*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1129:/ clear"); /*clear*/ /*_#__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1129:/ clear"); - /*clear*/ /*_.IFELSE___V33*/ curfptr[19] = 0 ;} + /*clear*/ /*_.IFELSE___V34*/ curfptr[20] = 0 ;} ; - /*_.IFELSE___V19*/ curfptr[17] = /*_.LET___V28*/ curfptr[20];; + /*_.IFELSE___V20*/ curfptr[18] = /*_.LET___V29*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1117:/ clear"); - /*clear*/ /*_.LET___V28*/ curfptr[20] = 0 ;} + /*clear*/ /*_.LET___V29*/ curfptr[21] = 0 ;} ; } ; - /*_.LET___V10*/ curfptr[9] = /*_.IFELSE___V19*/ curfptr[17];; + /*_.LET___V11*/ curfptr[10] = /*_.IFELSE___V20*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1111:/ clear"); - /*clear*/ /*_.SCONT__V11*/ curfptr[10] = 0 ; + /*clear*/ /*_.SCONT__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1111:/ clear"); - /*clear*/ /*_.SLOC__V12*/ curfptr[11] = 0 ; + /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1111:/ clear"); - /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; + /*clear*/ /*_.CURPAIR__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1111:/ clear"); - /*clear*/ /*_.SOPER__V14*/ curfptr[13] = 0 ; + /*clear*/ /*_.SOPER__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1111:/ clear"); - /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; + /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1111:/ clear"); - /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; + /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1111:/ clear"); /*clear*/ /*_#__L6*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1111:/ clear"); - /*clear*/ /*_.IFELSE___V19*/ curfptr[17] = 0 ;} + /*clear*/ /*_.IFELSE___V20*/ curfptr[18] = 0 ;} ; - /*_.IFELSE___V9*/ curfptr[7] = /*_.LET___V10*/ curfptr[9];; + /*_.IFELSE___V10*/ curfptr[8] = /*_.LET___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1110:/ clear"); - /*clear*/ /*_.LET___V10*/ curfptr[9] = 0 ;} + /*clear*/ /*_.LET___V11*/ curfptr[10] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-macro.melt:1110:/ cond.else"); BASILYS_LOCATION("warmelt-macro.melt:1110:/ block"); /*block*/{ - - #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1173:/ cppif.then"); BASILYS_LOCATION("warmelt-macro.melt:1173:/ block"); + /*block*/{ + BASILYS_LOCATION("warmelt-macro.melt:1173:/ getslot"); + { basilys_ptr_t slot=0; + basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), 0, "PCTX_MEXPANDER");/*_.MEXPANDER__V66*/ curfptr[38] = slot; }; + ; + BASILYS_LOCATION("warmelt-macro.melt:1174:/ block"); /*block*/{ - /*_#THE_CALLCOUNT__L16*/ curfnum[13] = - callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1173:/ apply"); - /*apply*/{ - union basilysparam_un argtab[4]; - memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1173:/ apply.arg"); - argtab[0].bp_cstring = "patternexpand_1 return source"; - BASILYS_LOCATION("warmelt-macro.melt:1173:/ apply.arg"); - argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.melt:1173:/ apply.arg"); - argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1173:/ apply.arg"); - argtab[3].bp_long = 1173; - /*_.DEBUG_MSG_FUN__V65*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); - } + BASILYS_LOCATION("warmelt-macro.melt:1174:/ rawallocobj"); + /*rawallocobj*/ { basilys_ptr_t newobj = 0; + basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_CONSTANT*/ curfrout->tabval[6])), (2), "CLASS_SRCPATTERN_CONSTANT");/*_.INST__V68*/ curfptr[37] = + newobj; }; ; - /*_.IFCPP___V64*/ curfptr[43] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[37];; - /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1173:/ clear"); - /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1173:/ clear"); - /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[37] = 0 ;} - - #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1173:/ cppif.else"); - /*_.IFCPP___V64*/ curfptr[43] = (/*nil*/NULL); - #endif /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.melt:1174:/ putslot"); + /*putslot*/ + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V68*/ curfptr[37])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V68*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V68*/ curfptr[37]), (0), (/*_.PSLOC__V5*/ curfptr[4]), "SRC_LOC"); + ; + BASILYS_LOCATION("warmelt-macro.melt:1174:/ putslot"); + /*putslot*/ + basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V68*/ curfptr[37])) == OBMAG_OBJECT); + basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V68*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V68*/ curfptr[37]), (1), (/*_.SEXPR__V2*/ curfptr[1]), "SPAT_CONSTX"); + ; + /*_.PAT__V67*/ curfptr[34] = /*_.INST__V68*/ curfptr[37];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1174:/ block"); - /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.SEXPR__V2*/ curfptr[1];; - BASILYS_LOCATION("warmelt-macro.melt:1174:/ finalreturn"); + + #if ENABLE_CHECKING + BASILYS_LOCATION("warmelt-macro.melt:1178:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1178:/ block"); + /*block*/{ + /*_#THE_CALLCOUNT__L16*/ curfnum[13] = + callcount;; + BASILYS_LOCATION("warmelt-macro.melt:1178:/ apply"); + /*apply*/{ + union basilysparam_un argtab[4]; + memset(&argtab, 0, sizeof(argtab)); + BASILYS_LOCATION("warmelt-macro.melt:1178:/ apply.arg"); + argtab[0].bp_cstring = "patternexpand_1 return const pat as source"; + BASILYS_LOCATION("warmelt-macro.melt:1178:/ apply.arg"); + argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[13]; + BASILYS_LOCATION("warmelt-macro.melt:1178:/ apply.arg"); + argtab[2].bp_cstring = "warmelt-macro.melt"; + BASILYS_LOCATION("warmelt-macro.melt:1178:/ apply.arg"); + argtab[3].bp_long = 1178; + /*_.DEBUG_MSG_FUN__V70*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAT__V67*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); + } + ; + /*_.IFCPP___V69*/ curfptr[52] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[45];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.melt:1178:/ clear"); + /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[13] = 0 ; + BASILYS_LOCATION("warmelt-macro.melt:1178:/ clear"); + /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[45] = 0 ;} + + #else /*ENABLE_CHECKING*/ + BASILYS_LOCATION("warmelt-macro.melt:1178:/ cppif.else"); + /*_.IFCPP___V69*/ curfptr[52] = (/*nil*/NULL); + #endif /*ENABLE_CHECKING*/ + ; + BASILYS_LOCATION("warmelt-macro.melt:1179:/ block"); + /*block*/{ + /*_.RETVAL___V1*/ curfptr[0] = /*_.PAT__V67*/ curfptr[34];; + BASILYS_LOCATION("warmelt-macro.melt:1179:/ finalreturn"); + ; + /*finalret*/ goto labend_rout ;} ; - /*finalret*/ goto labend_rout ;} + /*_.LET___V65*/ curfptr[44] = /*_.RETURN___V71*/ curfptr[53];; + /*epilog*/ + BASILYS_LOCATION("warmelt-macro.melt:1173:/ clear"); + /*clear*/ /*_.MEXPANDER__V66*/ curfptr[38] = 0 ; + BASILYS_LOCATION("warmelt-macro.melt:1173:/ clear"); + /*clear*/ /*_.PAT__V67*/ curfptr[34] = 0 ; + BASILYS_LOCATION("warmelt-macro.melt:1173:/ clear"); + /*clear*/ /*_.IFCPP___V69*/ curfptr[52] = 0 ; + BASILYS_LOCATION("warmelt-macro.melt:1173:/ clear"); + /*clear*/ /*_.RETURN___V71*/ curfptr[53] = 0 ;} ; BASILYS_LOCATION("warmelt-macro.melt:1171:/ block"); /*block*/{ - /*_.PROGN___V67*/ curfptr[36] = /*_.RETURN___V66*/ curfptr[33];;} + /*_.PROGN___V72*/ curfptr[46] = /*_.LET___V65*/ curfptr[44];;} ; - /*_.IFELSE___V9*/ curfptr[7] = /*_.PROGN___V67*/ curfptr[36];; + /*_.IFELSE___V10*/ curfptr[8] = /*_.PROGN___V72*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1110:/ clear"); - /*clear*/ /*_.IFCPP___V64*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1110:/ clear"); - /*clear*/ /*_.RETURN___V66*/ curfptr[33] = 0 ; + /*clear*/ /*_.LET___V65*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1110:/ clear"); - /*clear*/ /*_.PROGN___V67*/ curfptr[36] = 0 ;} + /*clear*/ /*_.PROGN___V72*/ curfptr[46] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-macro.melt:1106:/ block"); /*block*/{ - /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V9*/ curfptr[7];; + /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-macro.melt:1106:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-macro.melt:1106:/ clear"); - /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; + /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1106:/ clear"); - /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; + /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1106:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-macro.melt:1106:/ clear"); - /*clear*/ /*_.IFELSE___V9*/ curfptr[7] = 0 ;} + /*clear*/ /*_.IFELSE___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; @@ -10303,11 +10370,11 @@ basilys_trace_start("MACROEXPAND_TOPLEVEL_LIST", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1179:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ getarg"); /*_.SLIST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1179:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); @@ -10316,62 +10383,62 @@ basilys_trace_start("MACROEXPAND_TOPLEVEL_LIST", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1179:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1184:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1182:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1182:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1187:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1187:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1182:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1187:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1182:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1187:/ apply.arg"); argtab[0].bp_cstring = "macroexpand_toplevel_list slist"; - BASILYS_LOCATION("warmelt-macro.melt:1182:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1187:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1182:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1187:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1182:/ apply.arg"); - argtab[3].bp_long = 1182; + BASILYS_LOCATION("warmelt-macro.melt:1187:/ apply.arg"); + argtab[3].bp_long = 1187; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SLIST__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1182:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1187:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1182:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1187:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1182:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1187:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1183:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1183:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1188:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1188:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1183:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1188:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1183:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1188:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1183:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1188:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1183:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1188:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1183:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1183)?(1183):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1188:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1188)?(1188):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; @@ -10381,36 +10448,36 @@ BASILYS_LOCATION("warmelt-macro.melt:1179:/ block"); ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1183:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1188:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1183:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1188:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1183:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1188:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1184:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1184:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1189:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1189:/ block"); /*block*/{ /*_#IS_LIST__L3*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.SLIST__V2*/ curfptr[1])) == OBMAG_LIST);; - BASILYS_LOCATION("warmelt-macro.melt:1184:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1189:/ cond"); /*cond*/ if (/*_#IS_LIST__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1184:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1189:/ cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1184:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1189:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1184:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1189:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1184:/ locexp"); - basilys_assert_failed(( "check slist"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1184)?(1184):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1189:/ locexp"); + basilys_assert_failed(( "check slist"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1189)?(1189):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; @@ -10420,25 +10487,25 @@ BASILYS_LOCATION("warmelt-macro.melt:1179:/ block"); ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1184:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1189:/ clear"); /*clear*/ /*_#IS_LIST__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1184:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1189:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1184:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1189:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1185:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1190:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1186:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1191:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1186:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:1191:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V12*/ curfptr[11] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (1)); ; - BASILYS_LOCATION("warmelt-macro.melt:1186:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:1191:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V12*/ curfptr[11])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V12*/ curfptr[11]))); @@ -10446,73 +10513,73 @@ BASILYS_LOCATION("warmelt-macro.melt:1179:/ block"); ; /*_.LAMBDA___V11*/ curfptr[10] = /*_.LAMBDA___V12*/ curfptr[11];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1185:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1190:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1185:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1190:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V11*/ curfptr[10]; /*_.XLIST__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_MAP*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SLIST__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1194:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1194:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1199:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1199:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1194:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1199:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1194:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1199:/ apply.arg"); argtab[0].bp_cstring = "macroexpand_toplevel_list res xlist"; - BASILYS_LOCATION("warmelt-macro.melt:1194:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1199:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1194:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1199:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1194:/ apply.arg"); - argtab[3].bp_long = 1194; + BASILYS_LOCATION("warmelt-macro.melt:1199:/ apply.arg"); + argtab[3].bp_long = 1199; /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.XLIST__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1194:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1199:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1194:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1199:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1194:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1199:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V10*/ curfptr[8] = /*_.XLIST__V13*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1185:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1190:/ clear"); /*clear*/ /*_.LAMBDA___V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1185:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1190:/ clear"); /*clear*/ /*_.XLIST__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1185:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1190:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1179:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; - BASILYS_LOCATION("warmelt-macro.melt:1179:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1179:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1179:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1179:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1179:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; @@ -10573,113 +10640,113 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1186:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1191:/ getarg"); /*_.SEXP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1186:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1191:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1187:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1187:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1192:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1192:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1192:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1192:/ apply.arg"); argtab[0].bp_cstring = "macroexpand_toplevel_list sexp"; - BASILYS_LOCATION("warmelt-macro.melt:1187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1192:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1192:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1187:/ apply.arg"); - argtab[3].bp_long = 1187; + BASILYS_LOCATION("warmelt-macro.melt:1192:/ apply.arg"); + argtab[3].bp_long = 1192; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.DEBUG_MSG_FUN__V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1187:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1192:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1187:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1192:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1187:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1192:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1188:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1193:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1188:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1193:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1188:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1193:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.melt:1188:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1193:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*!MACROEXPAND_1*/ curfrout->tabval[1]); /*_.MEX__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1190:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1190:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1195:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1195:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1190:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1195:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1190:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1195:/ apply.arg"); argtab[0].bp_cstring = "macroexpand_toplevel_list mex"; - BASILYS_LOCATION("warmelt-macro.melt:1190:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1195:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1190:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1195:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1190:/ apply.arg"); - argtab[3].bp_long = 1190; + BASILYS_LOCATION("warmelt-macro.melt:1195:/ apply.arg"); + argtab[3].bp_long = 1195; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MEX__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1190:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1195:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1190:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1195:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1190:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1195:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V5*/ curfptr[3] = /*_.MEX__V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1188:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1193:/ clear"); /*clear*/ /*_.MEX__V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1188:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1193:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1186:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1191:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; - BASILYS_LOCATION("warmelt-macro.melt:1186:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1191:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1186:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1191:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1186:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1191:/ clear"); /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;} ; @@ -10740,11 +10807,11 @@ basilys_trace_start("LAMBDA_ARG_BINDINGS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1202:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ getarg"); /*_.FORMALSEXP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1202:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.CHECKARGS__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.CHECKARGS__V3*/ curfptr[2])) != NULL); @@ -10753,62 +10820,62 @@ basilys_trace_start("LAMBDA_ARG_BINDINGS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1202:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1207:/ block"); /*block*/{ /*_#NULL__L1*/ curfnum[0] = ((/*_.FORMALSEXP__V2*/ curfptr[1]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:1204:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1209:/ cond"); /*cond*/ if (/*_#NULL__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1204:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1204:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1209:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1209:/ block"); /*block*/{ /*_.MAKE_MULTIPLE__V5*/ curfptr[4] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (0)));; - BASILYS_LOCATION("warmelt-macro.melt:1206:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1211:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MAKE_MULTIPLE__V5*/ curfptr[4];; - BASILYS_LOCATION("warmelt-macro.melt:1206:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1211:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1205:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1210:/ block"); /*block*/{ /*_.PROGN___V7*/ curfptr[6] = /*_.RETURN___V6*/ curfptr[5];;} ; /*_.IF___V4*/ curfptr[3] = /*_.PROGN___V7*/ curfptr[6];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1204:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1209:/ clear"); /*clear*/ /*_.MAKE_MULTIPLE__V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1204:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1209:/ clear"); /*clear*/ /*_.RETURN___V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1204:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1209:/ clear"); /*clear*/ /*_.PROGN___V7*/ curfptr[6] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1204:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1209:/ cond.else"); /*_.IF___V4*/ curfptr[3] = NULL;; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1207:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1207:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1212:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1212:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FORMALSEXP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1207:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1212:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1207:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1212:/ cond.then"); /*_.IFELSE___V9*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1207:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1212:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1207:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1212:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1207:/ locexp"); - basilys_assert_failed(( "check formalsexp"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1207)?(1207):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1212:/ locexp"); + basilys_assert_failed(( "check formalsexp"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1212)?(1212):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V9*/ curfptr[5] = 0 ;} ; @@ -10818,25 +10885,25 @@ BASILYS_LOCATION("warmelt-macro.melt:1202:/ block"); ; /*_.IFCPP___V8*/ curfptr[4] = /*_.IFELSE___V9*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1207:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1212:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1207:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1212:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1207:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1212:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1208:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1213:/ block"); /*block*/{ /*_#ARGRK__L3*/ curfnum[1] = 0;; /*_.ARGTYPE__V11*/ curfptr[5] = (/*!CTYPE_VALUE*/ curfrout->tabval[2]);; - BASILYS_LOCATION("warmelt-macro.melt:1210:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1215:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FORMALSEXP__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.ARGLIST__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1211:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1216:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FORMALSEXP__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.ARGLOC__V13*/ curfptr[12] = slot; }; ; @@ -10850,24 +10917,24 @@ BASILYS_LOCATION("warmelt-macro.melt:1202:/ block"); (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; /*_.CURPAIR__V16*/ curfptr[15] = (basilys_list_first((basilys_ptr_t)(/*_.ARGLIST__V12*/ curfptr[11])));; - BASILYS_LOCATION("warmelt-macro.melt:1217:/ loop"); - /*loop*/{ labloop_ARGLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1217:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:1222:/ loop"); + /*loop*/{ labloop_ARGLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1222:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:1217:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1222:/ block"); /*block*/{ /*_#NULL__L6*/ curfnum[5] = ((/*_.CURPAIR__V16*/ curfptr[15]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:1218:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1223:/ cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1218:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1218:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1223:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1223:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1218:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1223:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1218:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1223:/ compute"); /*_.ARGLOOP__V18*/ curfptr[17] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1218:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:1223:/ exit"); /*exit*/{ goto labexit_ARGLOOP_1;} ;} @@ -10878,24 +10945,24 @@ BASILYS_LOCATION("warmelt-macro.melt:1202:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1219:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1219:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1224:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1224:/ block"); /*block*/{ /*_#IS_PAIR__L7*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])) == OBMAG_PAIR);; - BASILYS_LOCATION("warmelt-macro.melt:1219:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1224:/ cond"); /*cond*/ if (/*_#IS_PAIR__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1219:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1224:/ cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1219:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1224:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1219:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1224:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1219:/ locexp"); - basilys_assert_failed(( "check curpair"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1219)?(1219):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1224:/ locexp"); + basilys_assert_failed(( "check curpair"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1224)?(1224):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; @@ -10905,41 +10972,41 @@ BASILYS_LOCATION("warmelt-macro.melt:1202:/ block"); ; /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1219:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1224:/ clear"); /*clear*/ /*_#IS_PAIR__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1219:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1224:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1219:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1224:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1220:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1225:/ block"); /*block*/{ /*_.CURARG__V22*/ curfptr[21] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; /*_#IS_A__L8*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURARG__V22*/ curfptr[21]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[5])));; - BASILYS_LOCATION("warmelt-macro.melt:1222:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1227:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1222:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1222:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1227:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1227:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1223:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1228:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1223:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1228:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURARG__V22*/ curfptr[21]), 2, "SYMB_DATA");/*_.CTY__V25*/ curfptr[24] = slot; }; ; /*_#IS_A__L9*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.CTY__V25*/ curfptr[24]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));; - BASILYS_LOCATION("warmelt-macro.melt:1224:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1229:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1224:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1224:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1229:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1229:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1225:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1230:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CTY__V25*/ curfptr[24]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V26*/ curfptr[25] = slot; }; ; @@ -10947,148 +11014,148 @@ BASILYS_LOCATION("warmelt-macro.melt:1202:/ block"); ((/*_.CTYPE_KEYWORD__V26*/ curfptr[25]) == (/*_.CURARG__V22*/ curfptr[21]));; /*_#IF___L10*/ curfnum[9] = /*_#__L11*/ curfnum[10];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1224:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1229:/ clear"); /*clear*/ /*_.CTYPE_KEYWORD__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1224:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1229:/ clear"); /*clear*/ /*_#__L11*/ curfnum[10] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1224:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1229:/ cond.else"); /*_#IF___L10*/ curfnum[9] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:1224:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1229:/ cond"); /*cond*/ if (/*_#IF___L10*/ curfnum[9]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1224:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1224:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1229:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1229:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1226:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1231:/ compute"); /*_.ARGTYPE__V11*/ curfptr[5] = /*_.SETQ___V28*/ curfptr[27] = /*_.CTY__V25*/ curfptr[24];; /*_.IFELSE___V27*/ curfptr[25] = /*_.SETQ___V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1224:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1229:/ clear"); /*clear*/ /*_.SETQ___V28*/ curfptr[27] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1224:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1229:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1224:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1229:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1229:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1234:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURARG__V22*/ curfptr[21]), 1, "NAMED_NAME");/*_.NAMED_NAME__V29*/ curfptr[27] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:1228:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1233:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.ARGLOC__V13*/ curfptr[12]), ( "invalid keyword in formal arglist"), (basilys_ptr_t)(/*_.NAMED_NAME__V29*/ curfptr[27]));} ; - BASILYS_LOCATION("warmelt-macro.melt:1227:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1232:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = (/*nil*/NULL);;} ; /*_.IFELSE___V27*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1224:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1229:/ clear"); /*clear*/ /*_.NAMED_NAME__V29*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1224:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1229:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; } ; /*_.LET___V24*/ curfptr[23] = /*_.IFELSE___V27*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1223:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1228:/ clear"); /*clear*/ /*_.CTY__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1223:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1228:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1223:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1228:/ clear"); /*clear*/ /*_#IF___L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1223:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1228:/ clear"); /*clear*/ /*_.IFELSE___V27*/ curfptr[25] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1222:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1227:/ block"); /*block*/{ /*_.PROGN___V31*/ curfptr[27] = (/*nil*/NULL);;} ; /*_.IFELSE___V23*/ curfptr[22] = /*_.PROGN___V31*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1222:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1227:/ clear"); /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1222:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1227:/ clear"); /*clear*/ /*_.PROGN___V31*/ curfptr[27] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1222:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1227:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1222:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1227:/ block"); /*block*/{ /*_#IS_A__L12*/ curfnum[10] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURARG__V22*/ curfptr[21]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));; - BASILYS_LOCATION("warmelt-macro.melt:1235:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1240:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1235:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1235:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1240:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1240:/ block"); /*block*/{ /*_.MAPOBJECT_GET__V33*/ curfptr[24] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.ARGMAP__V14*/ curfptr[13]), (basilysobject_ptr_t)(/*_.CURARG__V22*/ curfptr[21])));; - BASILYS_LOCATION("warmelt-macro.melt:1236:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1241:/ cond"); /*cond*/ if (/*_.MAPOBJECT_GET__V33*/ curfptr[24]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1236:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1236:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1241:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1241:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1238:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1243:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURARG__V22*/ curfptr[21]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[25] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:1237:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1242:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.ARGLOC__V13*/ curfptr[12]), ( "duplicate argument in formal arglist"), (basilys_ptr_t)(/*_.NAMED_NAME__V34*/ curfptr[25]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1236:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1241:/ clear"); /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[25] = 0 ;} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1239:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1244:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1240:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1245:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1240:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1245:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[8])), (2), "CLASS_FORMAL_BINDING");/*_.INST__V36*/ curfptr[27] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1240:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1245:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[27]), (0), (/*_.CURARG__V22*/ curfptr[21]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:1240:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1245:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[27]), (1), (/*_.ARGTYPE__V11*/ curfptr[5]), "FBIND_TYPE"); ; /*_.CURBIND__V35*/ curfptr[23] = /*_.INST__V36*/ curfptr[27];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1243:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1248:/ cond"); /*cond*/ if (/*_.CHECKARGS__V3*/ curfptr[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1243:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1243:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1248:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1248:/ block"); /*block*/{ /*_#IS_A__L14*/ curfnum[9] = basilys_is_instance_of((basilys_ptr_t)(/*_.ARGTYPE__V11*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));; /*_#NOT__L15*/ curfnum[14] = (!(/*_#IS_A__L14*/ curfnum[9]));; - BASILYS_LOCATION("warmelt-macro.melt:1244:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1249:/ cond"); /*cond*/ if (/*_#NOT__L15*/ curfnum[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1244:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1249:/ cond.then"); /*_#OR___L16*/ curfnum[15] = /*_#NOT__L15*/ curfnum[14];; - } else {BASILYS_LOCATION("warmelt-macro.melt:1244:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1249:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1244:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1249:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1245:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1250:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ARGTYPE__V11*/ curfptr[5]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V37*/ curfptr[25] = slot; }; ; @@ -11098,222 +11165,222 @@ BASILYS_LOCATION("warmelt-macro.melt:1202:/ block"); (!(/*_#IS_STRING__L17*/ curfnum[16]));; /*_#OR___L16*/ curfnum[15] = /*_#NOT__L18*/ curfnum[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1244:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1249:/ clear"); /*clear*/ /*_.CTYPE_PARSTRING__V37*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1244:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1249:/ clear"); /*clear*/ /*_#IS_STRING__L17*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1244:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1249:/ clear"); /*clear*/ /*_#NOT__L18*/ curfnum[17] = 0 ;} ; } ; - BASILYS_LOCATION("warmelt-macro.melt:1244:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1249:/ cond"); /*cond*/ if (/*_#OR___L16*/ curfnum[15]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1244:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1244:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1249:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1249:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1247:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1252:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURARG__V22*/ curfptr[21]), 1, "NAMED_NAME");/*_.NAMED_NAME__V38*/ curfptr[25] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:1246:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1251:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.ARGLOC__V13*/ curfptr[12]), ( "invalid argument type in formal arglist"), (basilys_ptr_t)(/*_.NAMED_NAME__V38*/ curfptr[25]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1244:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1249:/ clear"); /*clear*/ /*_.NAMED_NAME__V38*/ curfptr[25] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1243:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1248:/ clear"); /*clear*/ /*_#IS_A__L14*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1243:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1248:/ clear"); /*clear*/ /*_#NOT__L15*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1243:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1248:/ clear"); /*clear*/ /*_#OR___L16*/ curfnum[15] = 0 ;} ; } /*noelse*/ ; { - BASILYS_LOCATION("warmelt-macro.melt:1248:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1253:/ locexp"); basilys_put_int((basilys_ptr_t)(/*_.CURBIND__V35*/ curfptr[23]), (/*_#ARGRK__L3*/ curfnum[1]));} ; { - BASILYS_LOCATION("warmelt-macro.melt:1249:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1254:/ locexp"); basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.ARGMAP__V14*/ curfptr[13]), (basilysobject_ptr_t) (/*_.CURARG__V22*/ curfptr[21]), (basilys_ptr_t)(/*_.CURBIND__V35*/ curfptr[23]));} ; { - BASILYS_LOCATION("warmelt-macro.melt:1250:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1255:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.BNDLIST__V15*/ curfptr[14]), (basilys_ptr_t)(/*_.CURBIND__V35*/ curfptr[23]));} ; /*_#I__L19*/ curfnum[16] = ((/*_#ARGRK__L3*/ curfnum[1]) + (1));; - BASILYS_LOCATION("warmelt-macro.melt:1251:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1256:/ compute"); /*_#ARGRK__L3*/ curfnum[1] = /*_#SETQ___L20*/ curfnum[17] = /*_#I__L19*/ curfnum[16];; /*_#LET___L13*/ curfnum[8] = /*_#SETQ___L20*/ curfnum[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1239:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1244:/ clear"); /*clear*/ /*_.CURBIND__V35*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1239:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1244:/ clear"); /*clear*/ /*_#I__L19*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1239:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1244:/ clear"); /*clear*/ /*_#SETQ___L20*/ curfnum[17] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1235:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1240:/ block"); /*block*/{ /*_.PROGN___V39*/ curfptr[25] = (/*nil*/NULL);;} ; /*_.IFELSE___V32*/ curfptr[29] = /*_.PROGN___V39*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1235:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1240:/ clear"); /*clear*/ /*_.MAPOBJECT_GET__V33*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1235:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1240:/ clear"); /*clear*/ /*_#LET___L13*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1235:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1240:/ clear"); /*clear*/ /*_.PROGN___V39*/ curfptr[25] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1235:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1240:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1235:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1240:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1256:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1256:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1261:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1261:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L21*/ curfnum[9] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1256:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1261:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1256:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1261:/ apply.arg"); argtab[0].bp_cstring = "unexpected argument in formal arglist"; - BASILYS_LOCATION("warmelt-macro.melt:1256:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1261:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[9]; - BASILYS_LOCATION("warmelt-macro.melt:1256:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1261:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1256:/ apply.arg"); - argtab[3].bp_long = 1256; + BASILYS_LOCATION("warmelt-macro.melt:1261:/ apply.arg"); + argtab[3].bp_long = 1261; /*_.DEBUG_MSG_FUN__V41*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.CURARG__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V40*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1256:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1261:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1256:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1261:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1256:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1261:/ cppif.else"); /*_.IFCPP___V40*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1257:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1262:/ block"); /*block*/{ /*_.DISCRARG__V42*/ curfptr[25] = (basilys_discr((basilys_ptr_t)(/*_.CURARG__V22*/ curfptr[21])));; - BASILYS_LOCATION("warmelt-macro.melt:1259:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1264:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DISCRARG__V42*/ curfptr[25]), 1, "NAMED_NAME");/*_.NAMED_NAME__V43*/ curfptr[24] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:1258:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1263:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.ARGLOC__V13*/ curfptr[12]), ( "unexpected argument in formal arglist"), (basilys_ptr_t)(/*_.NAMED_NAME__V43*/ curfptr[24]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1257:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1262:/ clear"); /*clear*/ /*_.DISCRARG__V42*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1257:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1262:/ clear"); /*clear*/ /*_.NAMED_NAME__V43*/ curfptr[24] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1255:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1260:/ block"); /*block*/{ /*_.PROGN___V44*/ curfptr[25] = (/*nil*/NULL);;} ; /*_.IFELSE___V32*/ curfptr[29] = /*_.PROGN___V44*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1235:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1240:/ clear"); /*clear*/ /*_.IFCPP___V40*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1235:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1240:/ clear"); /*clear*/ /*_.PROGN___V44*/ curfptr[25] = 0 ;} ; } ; /*_.IFELSE___V23*/ curfptr[22] = /*_.IFELSE___V32*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1222:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1227:/ clear"); /*clear*/ /*_#IS_A__L12*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1222:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1227:/ clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[29] = 0 ;} ; } ; /*_.PAIR_TAIL__V45*/ curfptr[24] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; - BASILYS_LOCATION("warmelt-macro.melt:1263:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1268:/ compute"); /*_.CURPAIR__V16*/ curfptr[15] = /*_.SETQ___V46*/ curfptr[23] = /*_.PAIR_TAIL__V45*/ curfptr[24];; /*_.LET___V21*/ curfptr[19] = /*_.SETQ___V46*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1220:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1225:/ clear"); /*clear*/ /*_.CURARG__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1220:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1225:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1220:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1225:/ clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1220:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1225:/ clear"); /*clear*/ /*_.PAIR_TAIL__V45*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1220:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1225:/ clear"); /*clear*/ /*_.SETQ___V46*/ curfptr[23] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1217:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1222:/ clear"); /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1217:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1222:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1217:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1222:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;} ; ; goto labloop_ARGLOOP_1; - labexit_ARGLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1217:/ loopepilog"); + labexit_ARGLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1222:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V17*/ curfptr[16] = /*_.ARGLOOP__V18*/ curfptr[17];; } ; - BASILYS_LOCATION("warmelt-macro.melt:1265:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1270:/ block"); /*block*/{ /*_.BNDTUP__V48*/ curfptr[29] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[0])), (/*_#ARGRK__L3*/ curfnum[1])));; /*_#IX__L22*/ curfnum[14] = 0;; /*_.BNDPAIR__V49*/ curfptr[21] = (basilys_list_first((basilys_ptr_t)(/*_.BNDLIST__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1269:/ loop"); - /*loop*/{ labloop_BNDLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1269:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:1274:/ loop"); + /*loop*/{ labloop_BNDLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1274:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:1269:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1274:/ block"); /*block*/{ /*_#NULL__L23*/ curfnum[15] = ((/*_.BNDPAIR__V49*/ curfptr[21]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:1270:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1275:/ cond"); /*cond*/ if (/*_#NULL__L23*/ curfnum[15]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1270:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1270:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1275:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1275:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1270:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1275:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1270:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1275:/ compute"); /*_.BNDLOOP__V51*/ curfptr[24] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1270:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:1275:/ exit"); /*exit*/{ goto labexit_BNDLOOP_1;} ;} @@ -11324,24 +11391,24 @@ BASILYS_LOCATION("warmelt-macro.melt:1202:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1271:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1271:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1276:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1276:/ block"); /*block*/{ /*_#IS_PAIR__L24*/ curfnum[16] = (basilys_magic_discr((basilys_ptr_t)(/*_.BNDPAIR__V49*/ curfptr[21])) == OBMAG_PAIR);; - BASILYS_LOCATION("warmelt-macro.melt:1271:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1276:/ cond"); /*cond*/ if (/*_#IS_PAIR__L24*/ curfnum[16]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1271:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1276:/ cond.then"); /*_.IFELSE___V53*/ curfptr[18] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1271:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1276:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1271:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1276:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1271:/ locexp"); - basilys_assert_failed(( "check bndpair"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1271)?(1271):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1276:/ locexp"); + basilys_assert_failed(( "check bndpair"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1276)?(1276):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V53*/ curfptr[18] = 0 ;} ; @@ -11351,40 +11418,40 @@ BASILYS_LOCATION("warmelt-macro.melt:1202:/ block"); ; /*_.IFCPP___V52*/ curfptr[23] = /*_.IFELSE___V53*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1271:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1276:/ clear"); /*clear*/ /*_#IS_PAIR__L24*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1271:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1276:/ clear"); /*clear*/ /*_.IFELSE___V53*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1271:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1276:/ cppif.else"); /*_.IFCPP___V52*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1272:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1277:/ block"); /*block*/{ /*_.CURBND__V54*/ curfptr[19] = (basilys_pair_head((basilys_ptr_t)(/*_.BNDPAIR__V49*/ curfptr[21])));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1273:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1273:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1278:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1278:/ block"); /*block*/{ /*_#IS_A__L25*/ curfnum[17] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURBND__V54*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[8])));; - BASILYS_LOCATION("warmelt-macro.melt:1273:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1278:/ cond"); /*cond*/ if (/*_#IS_A__L25*/ curfnum[17]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1273:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1278:/ cond.then"); /*_.IFELSE___V56*/ curfptr[55] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1273:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1278:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1273:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1278:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1273:/ locexp"); - basilys_assert_failed(( "check curbnd"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1273)?(1273):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1278:/ locexp"); + basilys_assert_failed(( "check curbnd"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1278)?(1278):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;} ; @@ -11394,116 +11461,116 @@ BASILYS_LOCATION("warmelt-macro.melt:1202:/ block"); ; /*_.IFCPP___V55*/ curfptr[18] = /*_.IFELSE___V56*/ curfptr[55];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1273:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1278:/ clear"); /*clear*/ /*_#IS_A__L25*/ curfnum[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1273:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1278:/ clear"); /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1273:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1278:/ cppif.else"); /*_.IFCPP___V55*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { - BASILYS_LOCATION("warmelt-macro.melt:1274:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1279:/ locexp"); basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.BNDTUP__V48*/ curfptr[29]), (/*_#IX__L22*/ curfnum[14]), (basilys_ptr_t)(/*_.CURBND__V54*/ curfptr[19]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1272:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1277:/ clear"); /*clear*/ /*_.CURBND__V54*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1272:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1277:/ clear"); /*clear*/ /*_.IFCPP___V55*/ curfptr[18] = 0 ;} ; /*_#I__L26*/ curfnum[8] = ((/*_#IX__L22*/ curfnum[14]) + (1));; - BASILYS_LOCATION("warmelt-macro.melt:1276:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1281:/ compute"); /*_#IX__L22*/ curfnum[14] = /*_#SETQ___L27*/ curfnum[9] = /*_#I__L26*/ curfnum[8];; /*_.PAIR_TAIL__V57*/ curfptr[55] = (basilys_pair_tail((basilys_ptr_t)(/*_.BNDPAIR__V49*/ curfptr[21])));; - BASILYS_LOCATION("warmelt-macro.melt:1277:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1282:/ compute"); /*_.BNDPAIR__V49*/ curfptr[21] = /*_.SETQ___V58*/ curfptr[19] = /*_.PAIR_TAIL__V57*/ curfptr[55];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1269:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1274:/ clear"); /*clear*/ /*_#NULL__L23*/ curfnum[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1269:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1274:/ clear"); /*clear*/ /*_.IFCPP___V52*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1269:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1274:/ clear"); /*clear*/ /*_#I__L26*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1269:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1274:/ clear"); /*clear*/ /*_#SETQ___L27*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1269:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1274:/ clear"); /*clear*/ /*_.PAIR_TAIL__V57*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1269:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1274:/ clear"); /*clear*/ /*_.SETQ___V58*/ curfptr[19] = 0 ;} ; ; goto labloop_BNDLOOP_1; - labexit_BNDLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1269:/ loopepilog"); + labexit_BNDLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1274:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V50*/ curfptr[22] = /*_.BNDLOOP__V51*/ curfptr[24];; } ; - BASILYS_LOCATION("warmelt-macro.melt:1279:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1284:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.BNDTUP__V48*/ curfptr[29];; - BASILYS_LOCATION("warmelt-macro.melt:1279:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1284:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V47*/ curfptr[25] = /*_.RETURN___V59*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1265:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1270:/ clear"); /*clear*/ /*_.BNDTUP__V48*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1265:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1270:/ clear"); /*clear*/ /*_#IX__L22*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1265:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1270:/ clear"); /*clear*/ /*_.BNDPAIR__V49*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1265:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1270:/ clear"); /*clear*/ /*_.FOREVER___V50*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1265:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1270:/ clear"); /*clear*/ /*_.RETURN___V59*/ curfptr[18] = 0 ;} ; /*_.LET___V10*/ curfptr[6] = /*_.LET___V47*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1213:/ clear"); /*clear*/ /*_#ARGRK__L3*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1213:/ clear"); /*clear*/ /*_.ARGTYPE__V11*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1213:/ clear"); /*clear*/ /*_.ARGLIST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1213:/ clear"); /*clear*/ /*_.ARGLOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1213:/ clear"); /*clear*/ /*_#LIST_LENGTH__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1213:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1213:/ clear"); /*clear*/ /*_.ARGMAP__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1213:/ clear"); /*clear*/ /*_.BNDLIST__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1213:/ clear"); /*clear*/ /*_.CURPAIR__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1213:/ clear"); /*clear*/ /*_.FOREVER___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1213:/ clear"); /*clear*/ /*_.LET___V47*/ curfptr[25] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1202:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[6];; - BASILYS_LOCATION("warmelt-macro.melt:1202:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1202:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ clear"); /*clear*/ /*_#NULL__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1202:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ clear"); /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1202:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1202:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[6] = 0 ;} ; @@ -11564,11 +11631,11 @@ basilys_trace_start("INSTALL_INITIAL_MACRO", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1286:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ getarg"); /*_.SYMB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1286:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.EXPANDER__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.EXPANDER__V3*/ curfptr[2])) != NULL); @@ -11577,235 +11644,235 @@ basilys_trace_start("INSTALL_INITIAL_MACRO", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1286:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1291:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1287:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1287:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1292:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1292:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1287:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1292:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1287:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1292:/ apply.arg"); argtab[0].bp_cstring = "install_initial_macro symb"; - BASILYS_LOCATION("warmelt-macro.melt:1287:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1292:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1287:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1292:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1287:/ apply.arg"); - argtab[3].bp_long = 1287; + BASILYS_LOCATION("warmelt-macro.melt:1292:/ apply.arg"); + argtab[3].bp_long = 1292; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYMB__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1287:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1292:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1287:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1292:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1287:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1292:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_NOT_A__L2*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1288:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1293:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1288:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1288:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1293:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1293:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1290:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1290:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1295:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1295:/ block"); /*block*/{ /*_.DISCRIM__V8*/ curfptr[7] = (basilys_discr((basilys_ptr_t)(/*_.SYMB__V2*/ curfptr[1])));; /*_#THE_CALLCOUNT__L3*/ curfnum[2] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1290:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1295:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1290:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1295:/ apply.arg"); argtab[0].bp_cstring = "install_initial_macro bad symb class"; - BASILYS_LOCATION("warmelt-macro.melt:1290:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1295:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2]; - BASILYS_LOCATION("warmelt-macro.melt:1290:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1295:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1290:/ apply.arg"); - argtab[3].bp_long = 1290; + BASILYS_LOCATION("warmelt-macro.melt:1295:/ apply.arg"); + argtab[3].bp_long = 1295; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.DISCRIM__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1290:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1295:/ clear"); /*clear*/ /*_.DISCRIM__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1290:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1295:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1290:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1295:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1290:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1295:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1291:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1291:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1296:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1296:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[2] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1291:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1296:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1291:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1296:/ apply.arg"); argtab[0].bp_cstring = "install_initial_macro expected class_symbol"; - BASILYS_LOCATION("warmelt-macro.melt:1291:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1296:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[2]; - BASILYS_LOCATION("warmelt-macro.melt:1291:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1296:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1291:/ apply.arg"); - argtab[3].bp_long = 1291; + BASILYS_LOCATION("warmelt-macro.melt:1296:/ apply.arg"); + argtab[3].bp_long = 1296; /*_.DEBUG_MSG_FUN__V11*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V10*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V11*/ curfptr[8];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1291:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1296:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1291:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1296:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1291:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1296:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1292:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1292:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1297:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1297:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[2] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1292:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1297:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1292:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1297:/ apply.arg"); argtab[0].bp_cstring = "install_initial_macro itself Install_Initial_Macro"; - BASILYS_LOCATION("warmelt-macro.melt:1292:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1297:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[2]; - BASILYS_LOCATION("warmelt-macro.melt:1292:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1297:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1292:/ apply.arg"); - argtab[3].bp_long = 1292; + BASILYS_LOCATION("warmelt-macro.melt:1297:/ apply.arg"); + argtab[3].bp_long = 1297; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)((/*!INSTALL_INITIAL_MACRO*/ curfrout->tabval[2])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1292:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1297:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1292:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1297:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1292:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1297:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1293:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1293:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1298:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1298:/ block"); /*block*/{ /*_.CLOSURE_ROUTINE__V15*/ curfptr[14] = (basilys_closure_routine((basilys_ptr_t)((/*!INSTALL_INITIAL_MACRO*/ curfrout->tabval[2]))));; /*_#THE_CALLCOUNT__L6*/ curfnum[2] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1293:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1298:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1293:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1298:/ apply.arg"); argtab[0].bp_cstring = "install_initial_macro routine in Install_Initial_Macro"; - BASILYS_LOCATION("warmelt-macro.melt:1293:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1298:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[2]; - BASILYS_LOCATION("warmelt-macro.melt:1293:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1298:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1293:/ apply.arg"); - argtab[3].bp_long = 1293; + BASILYS_LOCATION("warmelt-macro.melt:1298:/ apply.arg"); + argtab[3].bp_long = 1298; /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CLOSURE_ROUTINE__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1293:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1298:/ clear"); /*clear*/ /*_.CLOSURE_ROUTINE__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1293:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1298:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1293:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1298:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1293:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1298:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { - BASILYS_LOCATION("warmelt-macro.melt:1294:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1299:/ locexp"); debugvalue(( "install_initial_macro bad symb is"), ((void*)(/*_.SYMB__V2*/ curfptr[1])));} ; /*_.DISCRIM__V17*/ curfptr[14] = (basilys_discr((basilys_ptr_t)(/*_.SYMB__V2*/ curfptr[1])));; { - BASILYS_LOCATION("warmelt-macro.melt:1295:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1300:/ locexp"); debugvalue(( "install_initial_macro bad symb class is"), ((void*)(/*_.DISCRIM__V17*/ curfptr[14])));} ; { - BASILYS_LOCATION("warmelt-macro.melt:1296:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1301:/ locexp"); debugvalue(( "install_initial_macro bad class_symbol is"), ((void*)((/*!CLASS_SYMBOL*/ curfrout->tabval[1]))));} ; { - BASILYS_LOCATION("warmelt-macro.melt:1297:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1302:/ locexp"); debugvalue(( "install_initial_macro itself is Install_Initial_Macro"), ((void*)((/*!INSTALL_INITIAL_MACRO*/ curfrout->tabval[2]))));} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1298:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1298:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1303:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1303:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1298:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1303:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1298:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1303:/ cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1298:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1303:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1298:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1303:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1298:/ locexp"); - basilys_assert_failed(( "check good symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1298)?(1298):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1303:/ locexp"); + basilys_assert_failed(( "check good symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1303)?(1303):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; @@ -11815,62 +11882,62 @@ BASILYS_LOCATION("warmelt-macro.melt:1286:/ block"); ; /*_.IFCPP___V18*/ curfptr[15] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1298:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1303:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1298:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1303:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1298:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1303:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1289:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1294:/ block"); /*block*/{ /*_.PROGN___V20*/ curfptr[18] = /*_.IFCPP___V18*/ curfptr[15];;} ; /*_.IF___V6*/ curfptr[4] = /*_.PROGN___V20*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1288:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1293:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1288:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1293:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1288:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1293:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1288:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1293:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1288:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1293:/ clear"); /*clear*/ /*_.DISCRIM__V17*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1288:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1293:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1288:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1293:/ clear"); /*clear*/ /*_.PROGN___V20*/ curfptr[18] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1288:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1293:/ cond.else"); /*_.IF___V6*/ curfptr[4] = NULL;; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1300:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1300:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1305:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1305:/ block"); /*block*/{ /*_#IS_A__L8*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1300:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1305:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1300:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1305:/ cond.then"); /*_.IFELSE___V22*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1300:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1305:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1300:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1305:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1300:/ locexp"); - basilys_assert_failed(( "check symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1300)?(1300):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1305:/ locexp"); + basilys_assert_failed(( "check symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1305)?(1305):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V22*/ curfptr[7] = 0 ;} ; @@ -11880,36 +11947,36 @@ BASILYS_LOCATION("warmelt-macro.melt:1286:/ block"); ; /*_.IFCPP___V21*/ curfptr[6] = /*_.IFELSE___V22*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1300:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1305:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1300:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1305:/ clear"); /*clear*/ /*_.IFELSE___V22*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1300:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1305:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1301:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1301:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1306:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1306:/ block"); /*block*/{ /*_#IS_CLOSURE__L9*/ curfnum[2] = (basilys_magic_discr((basilys_ptr_t)(/*_.EXPANDER__V3*/ curfptr[2])) == OBMAG_CLOSURE);; - BASILYS_LOCATION("warmelt-macro.melt:1301:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1306:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L9*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1301:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1306:/ cond.then"); /*_.IFELSE___V24*/ curfptr[12] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1301:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1306:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1301:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1306:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1301:/ locexp"); - basilys_assert_failed(( "check expander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1301)?(1301):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1306:/ locexp"); + basilys_assert_failed(( "check expander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1306)?(1306):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V24*/ curfptr[12] = 0 ;} ; @@ -11919,108 +11986,108 @@ BASILYS_LOCATION("warmelt-macro.melt:1286:/ block"); ; /*_.IFCPP___V23*/ curfptr[8] = /*_.IFELSE___V24*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1301:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1306:/ clear"); /*clear*/ /*_#IS_CLOSURE__L9*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1301:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1306:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1301:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1306:/ cppif.else"); /*_.IFCPP___V23*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1303:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1308:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1303:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1308:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1303:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1308:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_MACRO_BINDING*/ curfrout->tabval[3])), (2), "CLASS_MACRO_BINDING");/*_.INST__V27*/ curfptr[18] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1303:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1308:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V27*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V27*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V27*/ curfptr[18]), (0), (/*_.SYMB__V2*/ curfptr[1]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:1303:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1308:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V27*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V27*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V27*/ curfptr[18]), (1), (/*_.EXPANDER__V3*/ curfptr[2]), "MBIND_EXPANSER"); ; /*_.MBIND__V26*/ curfptr[15] = /*_.INST__V27*/ curfptr[18];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1307:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1312:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1307:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1312:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.MBIND__V26*/ curfptr[15]; /*_.PUT_ENV__V28*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[4])), (basilys_ptr_t)((/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1308:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1308:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1313:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1313:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[2] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1308:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1313:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1308:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1313:/ apply.arg"); argtab[0].bp_cstring = "install_initial_macro done symb"; - BASILYS_LOCATION("warmelt-macro.melt:1308:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1313:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[2]; - BASILYS_LOCATION("warmelt-macro.melt:1308:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1313:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1308:/ apply.arg"); - argtab[3].bp_long = 1308; + BASILYS_LOCATION("warmelt-macro.melt:1313:/ apply.arg"); + argtab[3].bp_long = 1313; /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYMB__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V29*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1308:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1313:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1308:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1313:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1308:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1313:/ cppif.else"); /*_.IFCPP___V29*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V25*/ curfptr[14] = /*_.IFCPP___V29*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1303:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1308:/ clear"); /*clear*/ /*_.MBIND__V26*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1303:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1308:/ clear"); /*clear*/ /*_.PUT_ENV__V28*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1303:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1308:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[12] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1286:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V25*/ curfptr[14];; - BASILYS_LOCATION("warmelt-macro.melt:1286:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1286:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1286:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ clear"); /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1286:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ clear"); /*clear*/ /*_.IF___V6*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1286:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1286:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1286:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[14] = 0 ;} ; @@ -12081,18 +12148,18 @@ basilys_trace_start("INSTALL_INITIAL_PATMACRO", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1312:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ getarg"); /*_.SYMB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1312:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.PATEXPANDER__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PATEXPANDER__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:1312:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MACEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MACEXPANDER__V4*/ curfptr[3])) != NULL); @@ -12101,62 +12168,62 @@ basilys_trace_start("INSTALL_INITIAL_PATMACRO", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1312:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1317:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1313:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1313:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1318:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1318:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1313:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1318:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1313:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1318:/ apply.arg"); argtab[0].bp_cstring = "install_initial_patmacro symb"; - BASILYS_LOCATION("warmelt-macro.melt:1313:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1318:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1313:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1318:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1313:/ apply.arg"); - argtab[3].bp_long = 1313; + BASILYS_LOCATION("warmelt-macro.melt:1318:/ apply.arg"); + argtab[3].bp_long = 1318; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYMB__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1313:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1318:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1313:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1318:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1313:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1318:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1314:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1314:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1319:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1319:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1314:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1319:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1314:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1319:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1314:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1319:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1314:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1319:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1314:/ locexp"); - basilys_assert_failed(( "check symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1314)?(1314):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1319:/ locexp"); + basilys_assert_failed(( "check symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1319)?(1319):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -12166,36 +12233,36 @@ BASILYS_LOCATION("warmelt-macro.melt:1312:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1314:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1319:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1314:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1319:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1314:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1319:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1315:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1315:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1320:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1320:/ block"); /*block*/{ /*_#IS_CLOSURE__L3*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.PATEXPANDER__V3*/ curfptr[2])) == OBMAG_CLOSURE);; - BASILYS_LOCATION("warmelt-macro.melt:1315:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1320:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1315:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1320:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1315:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1320:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1315:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1320:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1315:/ locexp"); - basilys_assert_failed(( "check patexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1315)?(1315):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1320:/ locexp"); + basilys_assert_failed(( "check patexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1320)?(1320):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; @@ -12205,36 +12272,36 @@ BASILYS_LOCATION("warmelt-macro.melt:1312:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1315:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1320:/ clear"); /*clear*/ /*_#IS_CLOSURE__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1315:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1320:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1315:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1320:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1316:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1316:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1321:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1321:/ block"); /*block*/{ /*_#IS_CLOSURE__L4*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.MACEXPANDER__V4*/ curfptr[3])) == OBMAG_CLOSURE);; - BASILYS_LOCATION("warmelt-macro.melt:1316:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1321:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1316:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1321:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1316:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1321:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1316:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1321:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1316:/ locexp"); - basilys_assert_failed(( "check macexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1316)?(1316):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1321:/ locexp"); + basilys_assert_failed(( "check macexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1321)?(1321):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; @@ -12244,147 +12311,147 @@ BASILYS_LOCATION("warmelt-macro.melt:1312:/ block"); ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1316:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1321:/ clear"); /*clear*/ /*_#IS_CLOSURE__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1316:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1321:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1316:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1321:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1318:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1323:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1318:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1323:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1318:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1323:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_PATMACRO_BINDING*/ curfrout->tabval[2])), (3), "CLASS_PATMACRO_BINDING");/*_.INST__V15*/ curfptr[14] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1318:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1323:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14]))));basilys_putfield_object((/*_.INST__V15*/ curfptr[14]), (0), (/*_.SYMB__V2*/ curfptr[1]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:1318:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1323:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14]))));basilys_putfield_object((/*_.INST__V15*/ curfptr[14]), (1), (/*_.MACEXPANDER__V4*/ curfptr[3]), "MBIND_EXPANSER"); ; - BASILYS_LOCATION("warmelt-macro.melt:1318:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1323:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14]))));basilys_putfield_object((/*_.INST__V15*/ curfptr[14]), (2), (/*_.PATEXPANDER__V3*/ curfptr[2]), "PATBIND_EXPANSER"); ; /*_.MBIND__V14*/ curfptr[13] = /*_.INST__V15*/ curfptr[14];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1323:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1328:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1323:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1328:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.MBIND__V14*/ curfptr[13]; /*_.PUT_ENV__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[3])), (basilys_ptr_t)((/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[4])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1324:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1324:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1329:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1329:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1324:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1329:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1324:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1329:/ apply.arg"); argtab[0].bp_cstring = "install_initial_patmacro done symb"; - BASILYS_LOCATION("warmelt-macro.melt:1324:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1329:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1324:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1329:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1324:/ apply.arg"); - argtab[3].bp_long = 1324; + BASILYS_LOCATION("warmelt-macro.melt:1329:/ apply.arg"); + argtab[3].bp_long = 1329; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYMB__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1324:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1329:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1324:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1329:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1324:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1329:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1325:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1325:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1330:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1330:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1325:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1330:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1325:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1330:/ apply.arg"); argtab[0].bp_cstring = "install_initial_patmacro done mbind"; - BASILYS_LOCATION("warmelt-macro.melt:1325:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1330:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1325:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1330:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1325:/ apply.arg"); - argtab[3].bp_long = 1325; + BASILYS_LOCATION("warmelt-macro.melt:1330:/ apply.arg"); + argtab[3].bp_long = 1330; /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MBIND__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1325:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1330:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1325:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1330:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1325:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1330:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V13*/ curfptr[11] = /*_.IFCPP___V19*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1318:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1323:/ clear"); /*clear*/ /*_.MBIND__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1318:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1323:/ clear"); /*clear*/ /*_.PUT_ENV__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1318:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1323:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1318:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1323:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1312:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; - BASILYS_LOCATION("warmelt-macro.melt:1312:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1312:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1312:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1312:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1312:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1312:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; @@ -12445,18 +12512,18 @@ basilys_trace_start("WARN_IF_REDEFINED", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1334:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1339:/ getarg"); /*_.SYMB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1334:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1339:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:1334:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1339:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.LOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.LOC__V4*/ curfptr[3])) != NULL); @@ -12465,28 +12532,28 @@ basilys_trace_start("WARN_IF_REDEFINED", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1334:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1339:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1335:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1335:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1340:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1340:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:1335:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1340:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1335:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1340:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1335:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1340:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1335:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1340:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1335:/ locexp"); - basilys_assert_failed(( "check symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1335)?(1335):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1340:/ locexp"); + basilys_assert_failed(( "check symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1340)?(1340):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -12496,36 +12563,36 @@ BASILYS_LOCATION("warmelt-macro.melt:1334:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1335:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1340:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1335:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1340:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1335:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1340:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1336:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1336:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1341:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1341:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1336:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1341:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1336:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1341:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1336:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1341:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1336:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1341:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1336:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1336)?(1336):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1341:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1341)?(1341):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -12535,64 +12602,64 @@ BASILYS_LOCATION("warmelt-macro.melt:1334:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1336:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1341:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1336:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1341:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1336:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1341:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#WARN_SHADOW__L3*/ curfnum[0] = warn_shadow;; - BASILYS_LOCATION("warmelt-macro.melt:1337:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1342:/ cond"); /*cond*/ if (/*_#WARN_SHADOW__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1337:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1337:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1342:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1342:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1339:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1344:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1339:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1344:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SYMB__V2*/ curfptr[1]; /*_.FIND_ENV__V9*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1337:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1342:/ cond"); /*cond*/ if (/*_.FIND_ENV__V9*/ curfptr[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1337:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1337:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1342:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1342:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1341:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1346:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYMB__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[9] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:1340:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1345:/ locexp"); basilys_warning_str(0, (basilys_ptr_t)(/*_.LOC__V4*/ curfptr[3]), ( "symbol redefinition masks previous"), (basilys_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[9]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1337:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1342:/ clear"); /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[9] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1337:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1342:/ clear"); /*clear*/ /*_.FIND_ENV__V9*/ curfptr[7] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1334:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1339:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1334:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1339:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1334:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1339:/ clear"); /*clear*/ /*_#WARN_SHADOW__L3*/ curfnum[0] = 0 ;} ; @@ -12653,18 +12720,18 @@ basilys_trace_start("FLATTEN_FOR_C_CODE_EXPANSION", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1347:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ getarg"); /*_.LOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1347:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.COMP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:1347:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.FLATLIST__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.FLATLIST__V4*/ curfptr[3])) != NULL); @@ -12673,28 +12740,28 @@ basilys_trace_start("FLATTEN_FOR_C_CODE_EXPANSION", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1347:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1352:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1348:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1348:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1353:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1353:/ block"); /*block*/{ /*_#IS_LIST__L1*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.FLATLIST__V4*/ curfptr[3])) == OBMAG_LIST);; - BASILYS_LOCATION("warmelt-macro.melt:1348:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1353:/ cond"); /*cond*/ if (/*_#IS_LIST__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1348:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1353:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1348:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1353:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1348:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1353:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1348:/ locexp"); - basilys_assert_failed(( "check flatlist"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1348)?(1348):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1353:/ locexp"); + basilys_assert_failed(( "check flatlist"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1353)?(1353):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -12704,102 +12771,102 @@ BASILYS_LOCATION("warmelt-macro.melt:1347:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1348:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1353:/ clear"); /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1348:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1353:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1348:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1353:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#NULL__L2*/ curfnum[0] = ((/*_.COMP__V3*/ curfptr[2]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:1352:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1357:/ cond"); /*cond*/ if (/*_#NULL__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1352:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1352:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1357:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1357:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1354:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1359:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1]), ( "null component for C chunk"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1355:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1360:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1355:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1360:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1352:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1357:/ block"); /*block*/{ /*_.PROGN___V9*/ curfptr[8] = /*_.RETURN___V8*/ curfptr[7];;} ; /*_.IFELSE___V7*/ curfptr[5] = /*_.PROGN___V9*/ curfptr[8];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1352:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1357:/ clear"); /*clear*/ /*_.RETURN___V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1352:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1357:/ clear"); /*clear*/ /*_.PROGN___V9*/ curfptr[8] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1352:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1357:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1352:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1357:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:1356:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1361:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1356:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1356:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1361:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1361:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1357:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1362:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.FLATLIST__V4*/ curfptr[3]), (basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2]));} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[5] = 0 ;} ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1356:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1361:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1356:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1361:/ block"); /*block*/{ /*_#IS_STRING__L4*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2])) == OBMAG_STRING);; - BASILYS_LOCATION("warmelt-macro.melt:1359:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1364:/ cond"); /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1359:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1359:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1364:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1364:/ block"); /*block*/{ /*_.MAKE_STRING__V10*/ curfptr[7] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2]))));; /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1360:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1365:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.FLATLIST__V4*/ curfptr[3]), (basilys_ptr_t)(/*_.MAKE_STRING__V10*/ curfptr[7]));} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[5] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1359:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1364:/ clear"); /*clear*/ /*_.MAKE_STRING__V10*/ curfptr[7] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1359:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1364:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1359:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1364:/ block"); /*block*/{ /*_#IS_LIST__L5*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2])) == OBMAG_LIST);; - BASILYS_LOCATION("warmelt-macro.melt:1362:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1367:/ cond"); /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1362:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1362:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1367:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1367:/ block"); /*block*/{ /*citerblock FOREACH_IN_LIST*/ { /* start cit1__EACHLIST*/ @@ -12809,13 +12876,13 @@ basilys_magic_discr(/*_.CURPAIR__V11*/ curfptr[8]) == OBMAG_PAIR; /*_.CURCOMP__V12*/ curfptr[7] = basilys_pair_head(/*_.CURPAIR__V11*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:1367:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1372:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1367:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1372:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURCOMP__V12*/ curfptr[7]; - BASILYS_LOCATION("warmelt-macro.melt:1367:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1372:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.FLATLIST__V4*/ curfptr[3]; /*_.FLATTEN_FOR_C_CODE_EXPANSION__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!FLATTEN_FOR_C_CODE_EXPANSION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -12825,48 +12892,48 @@ basilys_magic_discr(/*_.CURPAIR__V11*/ curfptr[8]) == OBMAG_PAIR; /*citerepilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1363:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1368:/ clear"); /*clear*/ /*_.CURPAIR__V11*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1363:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1368:/ clear"); /*clear*/ /*_.CURCOMP__V12*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1363:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1368:/ clear"); /*clear*/ /*_.FLATTEN_FOR_C_CODE_EXPANSION__V13*/ curfptr[12] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1362:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1367:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1362:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1367:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:1371:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1376:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1371:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1371:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1376:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1376:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1372:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1377:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1372:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1377:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[4])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1372:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1372:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1377:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1377:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2]), 1, "LOCA_LOCATION");/*_.SUBLOC__V14*/ curfptr[13] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1372:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1377:/ cond.else"); /*_.SUBLOC__V14*/ curfptr[13] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:1373:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1378:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[3])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1373:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1373:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1378:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1378:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2]), 2, "SEXP_CONTENTS");/*_.SUBCONTENT__V15*/ curfptr[14] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1373:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1378:/ cond.else"); /*_.SUBCONTENT__V15*/ curfptr[14] = NULL;; } @@ -12879,13 +12946,13 @@ basilys_magic_discr(/*_.CURSUBPAIR__V16*/ curfptr[15]) == OBMAG_PAIR; /*_.CURSUBCOMP__V17*/ curfptr[16] = basilys_pair_head(/*_.CURSUBPAIR__V16*/ curfptr[15]); - BASILYS_LOCATION("warmelt-macro.melt:1379:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1384:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1379:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1384:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURSUBCOMP__V17*/ curfptr[16]; - BASILYS_LOCATION("warmelt-macro.melt:1379:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1384:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.FLATLIST__V4*/ curfptr[3]; /*_.FLATTEN_FOR_C_CODE_EXPANSION__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!FLATTEN_FOR_C_CODE_EXPANSION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SUBLOC__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -12895,97 +12962,97 @@ basilys_magic_discr(/*_.CURSUBPAIR__V16*/ curfptr[15]) == OBMAG_PAIR; /*citerepilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1380:/ clear"); /*clear*/ /*_.CURSUBPAIR__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1380:/ clear"); /*clear*/ /*_.CURSUBCOMP__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1380:/ clear"); /*clear*/ /*_.FLATTEN_FOR_C_CODE_EXPANSION__V18*/ curfptr[17] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1372:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1377:/ clear"); /*clear*/ /*_.SUBLOC__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1372:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1377:/ clear"); /*clear*/ /*_.SUBCONTENT__V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1371:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1376:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1371:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1376:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1384:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1389:/ locexp"); basilys_dbgshortbacktrace(( "flatten_for_c_code_expansion strange comp"), (15));} ; /*_.DISCRIM__V19*/ curfptr[13] = (basilys_discr((basilys_ptr_t)(/*_.COMP__V3*/ curfptr[2])));; - BASILYS_LOCATION("warmelt-macro.melt:1386:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1391:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.DISCRIM__V19*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[5])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1386:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1386:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1391:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1391:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DISCRIM__V19*/ curfptr[13]), 1, "NAMED_NAME");/*_.NAMED_NAME__V20*/ curfptr[14] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1386:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1391:/ cond.else"); /*_.NAMED_NAME__V20*/ curfptr[14] = NULL;; } ; { - BASILYS_LOCATION("warmelt-macro.melt:1385:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1390:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1]), ( "unexpected component for C chunk of discriminant "), (basilys_ptr_t)(/*_.NAMED_NAME__V20*/ curfptr[14]));} ; - BASILYS_LOCATION("warmelt-macro.melt:1383:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1388:/ block"); /*block*/{} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1371:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1376:/ clear"); /*clear*/ /*_.DISCRIM__V19*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1371:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1376:/ clear"); /*clear*/ /*_.NAMED_NAME__V20*/ curfptr[14] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1362:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1367:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1359:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1364:/ clear"); /*clear*/ /*_#IS_LIST__L5*/ curfnum[4] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1356:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1361:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ curfnum[3] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1352:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1357:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ;} ; } ; - BASILYS_LOCATION("warmelt-macro.melt:1347:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V7*/ curfptr[5];; - BASILYS_LOCATION("warmelt-macro.melt:1347:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1347:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1347:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ clear"); /*clear*/ /*_#NULL__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1347:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[5] = 0 ;} ; @@ -13046,11 +13113,11 @@ basilys_trace_start("PARSE_PAIRLIST_C_CODE_EXPANSION", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1393:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1398:/ getarg"); /*_.LOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1393:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1398:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.CURPAIR__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.CURPAIR__V3*/ curfptr[2])) != NULL); @@ -13059,100 +13126,100 @@ basilys_trace_start("PARSE_PAIRLIST_C_CODE_EXPANSION", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1393:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1398:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1394:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1394:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1399:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1399:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1394:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1399:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1394:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1399:/ apply.arg"); argtab[0].bp_cstring = "parse_pairlist_c_code_expansion loc"; - BASILYS_LOCATION("warmelt-macro.melt:1394:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1399:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1394:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1399:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1394:/ apply.arg"); - argtab[3].bp_long = 1394; + BASILYS_LOCATION("warmelt-macro.melt:1399:/ apply.arg"); + argtab[3].bp_long = 1399; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1394:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1399:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1394:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1399:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1394:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1399:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1395:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1395:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1400:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1400:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1395:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1400:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1395:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1400:/ apply.arg"); argtab[0].bp_cstring = "parse_pairlist_c_code_expansion curpair"; - BASILYS_LOCATION("warmelt-macro.melt:1395:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1400:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1395:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1400:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1395:/ apply.arg"); - argtab[3].bp_long = 1395; + BASILYS_LOCATION("warmelt-macro.melt:1400:/ apply.arg"); + argtab[3].bp_long = 1400; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURPAIR__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1395:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1400:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1395:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1400:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1395:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1400:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1396:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1401:/ block"); /*block*/{ /*_.FLATLIST__V9*/ curfptr[8] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[1]))));; - BASILYS_LOCATION("warmelt-macro.melt:1397:/ loop"); - /*loop*/{ labloop_COMPLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1397:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:1402:/ loop"); + /*loop*/{ labloop_COMPLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1402:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:1397:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1402:/ block"); /*block*/{ /*_#IS_PAIR__L3*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V3*/ curfptr[2])) == OBMAG_PAIR);; /*_#NOT__L4*/ curfnum[3] = (!(/*_#IS_PAIR__L3*/ curfnum[0]));; - BASILYS_LOCATION("warmelt-macro.melt:1399:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1404:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1399:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1399:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1404:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1404:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1399:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1404:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1399:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1404:/ compute"); /*_.COMPLOOP__V11*/ curfptr[10] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1399:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:1404:/ exit"); /*exit*/{ goto labexit_COMPLOOP_1;} ;} @@ -13161,186 +13228,186 @@ BASILYS_LOCATION("warmelt-macro.melt:1393:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1400:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1405:/ block"); /*block*/{ /*_.PAIRHD__V13*/ curfptr[12] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V3*/ curfptr[2])));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1401:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1401:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1406:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1406:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1401:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1406:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1401:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1406:/ apply.arg"); argtab[0].bp_cstring = "parse_pairlist_c_code_expansion loop pairhd"; - BASILYS_LOCATION("warmelt-macro.melt:1401:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1406:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.melt:1401:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1406:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1401:/ apply.arg"); - argtab[3].bp_long = 1401; + BASILYS_LOCATION("warmelt-macro.melt:1406:/ apply.arg"); + argtab[3].bp_long = 1406; /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PAIRHD__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1401:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1406:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1401:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1406:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1401:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1406:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1402:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1407:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1402:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1407:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PAIRHD__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.melt:1402:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1407:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.FLATLIST__V9*/ curfptr[8]; /*_.FLATTEN_FOR_C_CODE_EXPANSION__V16*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!FLATTEN_FOR_C_CODE_EXPANSION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V12*/ curfptr[11] = /*_.FLATTEN_FOR_C_CODE_EXPANSION__V16*/ curfptr[14];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1400:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1405:/ clear"); /*clear*/ /*_.PAIRHD__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1400:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1405:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1400:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1405:/ clear"); /*clear*/ /*_.FLATTEN_FOR_C_CODE_EXPANSION__V16*/ curfptr[14] = 0 ;} ; /*_.PAIR_TAIL__V17*/ curfptr[12] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V3*/ curfptr[2])));; - BASILYS_LOCATION("warmelt-macro.melt:1403:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1408:/ compute"); /*_.CURPAIR__V3*/ curfptr[2] = /*_.SETQ___V18*/ curfptr[13] = /*_.PAIR_TAIL__V17*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1397:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1402:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1397:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1402:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1397:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1402:/ clear"); /*clear*/ /*_.LET___V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1397:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1402:/ clear"); /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1397:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1402:/ clear"); /*clear*/ /*_.SETQ___V18*/ curfptr[13] = 0 ;} ; ; goto labloop_COMPLOOP_1; - labexit_COMPLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1397:/ loopepilog"); + labexit_COMPLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1402:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V10*/ curfptr[9] = /*_.COMPLOOP__V11*/ curfptr[10];; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1405:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1405:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1410:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1410:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1405:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1410:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1405:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1410:/ apply.arg"); argtab[0].bp_cstring = "parse_pairlist_c_code_expansion flatlist"; - BASILYS_LOCATION("warmelt-macro.melt:1405:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1410:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.melt:1405:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1410:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1405:/ apply.arg"); - argtab[3].bp_long = 1405; + BASILYS_LOCATION("warmelt-macro.melt:1410:/ apply.arg"); + argtab[3].bp_long = 1410; /*_.DEBUG_MSG_FUN__V20*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.FLATLIST__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V19*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1405:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1410:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1405:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1410:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1405:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1410:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1406:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1411:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1406:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1411:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1406:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1411:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); /*_.TUPEXP__V22*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.FLATLIST__V9*/ curfptr[8]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1407:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1407:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1412:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1412:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1407:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1412:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1407:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1412:/ apply.arg"); argtab[0].bp_cstring = "parse_pairlist_c_code_expansion tupexp"; - BASILYS_LOCATION("warmelt-macro.melt:1407:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1412:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1407:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1412:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1407:/ apply.arg"); - argtab[3].bp_long = 1407; + BASILYS_LOCATION("warmelt-macro.melt:1412:/ apply.arg"); + argtab[3].bp_long = 1412; /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.TUPEXP__V22*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V23*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1407:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1412:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1407:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1412:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1407:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1412:/ cppif.else"); /*_.IFCPP___V23*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1408:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1408:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1413:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1413:/ block"); /*block*/{ /*_#IS_MULTIPLE__L8*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.TUPEXP__V22*/ curfptr[13])) == OBMAG_MULTIPLE);; - BASILYS_LOCATION("warmelt-macro.melt:1408:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1413:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L8*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1408:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1413:/ cond.then"); /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1408:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1413:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1408:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1413:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1408:/ locexp"); - basilys_assert_failed(( "check tupexp"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1408)?(1408):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1413:/ locexp"); + basilys_assert_failed(( "check tupexp"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1413)?(1413):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} ; @@ -13350,58 +13417,58 @@ BASILYS_LOCATION("warmelt-macro.melt:1393:/ block"); ; /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1408:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1413:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L8*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1408:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1413:/ clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1408:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1413:/ cppif.else"); /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1409:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1414:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.TUPEXP__V22*/ curfptr[13];; - BASILYS_LOCATION("warmelt-macro.melt:1409:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1414:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V21*/ curfptr[12] = /*_.RETURN___V27*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1406:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1411:/ clear"); /*clear*/ /*_.TUPEXP__V22*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1406:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1411:/ clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1406:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1411:/ clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1406:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1411:/ clear"); /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;} ; /*_.LET___V8*/ curfptr[6] = /*_.LET___V21*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1396:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1401:/ clear"); /*clear*/ /*_.FLATLIST__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1396:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1401:/ clear"); /*clear*/ /*_.FOREVER___V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1396:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1401:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1396:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1401:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[12] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1393:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1398:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; - BASILYS_LOCATION("warmelt-macro.melt:1393:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1398:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1393:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1398:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1393:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1398:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1393:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1398:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; @@ -13462,18 +13529,18 @@ basilys_trace_start("CHECK_C_EXPANSION", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1414:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1419:/ getarg"); /*_.ETUPLE__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1414:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1419:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.LOC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.LOC__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:1414:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1419:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.SUBSTMAP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SUBSTMAP__V4*/ curfptr[3])) != NULL); @@ -13482,73 +13549,73 @@ basilys_trace_start("CHECK_C_EXPANSION", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1414:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1419:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1415:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1415:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1420:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1420:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1415:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1420:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1415:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1420:/ apply.arg"); argtab[0].bp_cstring = "check_c_expansion etuple"; - BASILYS_LOCATION("warmelt-macro.melt:1415:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1420:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1415:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1420:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1415:/ apply.arg"); - argtab[3].bp_long = 1415; + BASILYS_LOCATION("warmelt-macro.melt:1420:/ apply.arg"); + argtab[3].bp_long = 1420; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.ETUPLE__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1415:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1420:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1415:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1420:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1415:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1420:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1416:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1416:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1421:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1421:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1416:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1421:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1416:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1421:/ apply.arg"); argtab[0].bp_cstring = "check_c_expansion loc"; - BASILYS_LOCATION("warmelt-macro.melt:1416:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1421:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1416:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1421:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1416:/ apply.arg"); - argtab[3].bp_long = 1416; + BASILYS_LOCATION("warmelt-macro.melt:1421:/ apply.arg"); + argtab[3].bp_long = 1421; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.LOC__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1416:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1421:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1416:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1421:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1416:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1421:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -13562,139 +13629,139 @@ for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix /*_#NULL__L4*/ curfnum[3] = ((/*_.ECOMP__V9*/ curfptr[7]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:1421:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1426:/ cond"); /*cond*/ if (/*_#NULL__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1421:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1421:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1426:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1426:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1422:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1427:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V3*/ curfptr[2]), ( "null component in C expansion"), (basilys_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1421:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1426:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1421:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1426:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.ECOMP__V9*/ curfptr[7]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1423:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1428:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1423:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1423:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1428:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1428:/ block"); /*block*/{ /*_.MAPOBJECT_GET__V12*/ curfptr[11] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.SUBSTMAP__V4*/ curfptr[3]), (basilysobject_ptr_t)(/*_.ECOMP__V9*/ curfptr[7])));; /*_#NULL__L6*/ curfnum[5] = ((/*_.MAPOBJECT_GET__V12*/ curfptr[11]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:1424:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1429:/ cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1424:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1424:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1429:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1429:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1426:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1431:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.ECOMP__V9*/ curfptr[7]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[2])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1426:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1426:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1431:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1431:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ECOMP__V9*/ curfptr[7]), 1, "NAMED_NAME");/*_.NAMED_NAME__V13*/ curfptr[12] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1426:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1431:/ cond.else"); /*_.NAMED_NAME__V13*/ curfptr[12] = NULL;; } ; { - BASILYS_LOCATION("warmelt-macro.melt:1425:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1430:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V3*/ curfptr[2]), ( "unexpected symbol in C expansion"), (basilys_ptr_t)(/*_.NAMED_NAME__V13*/ curfptr[12]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1424:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1429:/ clear"); /*clear*/ /*_.NAMED_NAME__V13*/ curfptr[12] = 0 ;} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1423:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1428:/ block"); /*block*/{ /*_.PROGN___V14*/ curfptr[12] = (/*nil*/NULL);;} ; /*_.IFELSE___V11*/ curfptr[10] = /*_.PROGN___V14*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1423:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1428:/ clear"); /*clear*/ /*_.MAPOBJECT_GET__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1423:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1428:/ clear"); /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1423:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1428:/ clear"); /*clear*/ /*_.PROGN___V14*/ curfptr[12] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1423:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1428:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1423:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1428:/ block"); /*block*/{ /*_#IS_STRING__L7*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.ECOMP__V9*/ curfptr[7])) == OBMAG_STRING);; - BASILYS_LOCATION("warmelt-macro.melt:1429:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1434:/ cond"); /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1429:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1434:/ cond.then"); /*_.IFELSE___V15*/ curfptr[11] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1429:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1434:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1429:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1434:/ block"); /*block*/{ /*_.DISCRIM__V16*/ curfptr[12] = (basilys_discr((basilys_ptr_t)(/*_.ECOMP__V9*/ curfptr[7])));; - BASILYS_LOCATION("warmelt-macro.melt:1434:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1439:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.DISCRIM__V16*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[2])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1434:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1434:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1439:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1439:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DISCRIM__V16*/ curfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V17*/ curfptr[16] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1434:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1439:/ cond.else"); /*_.NAMED_NAME__V17*/ curfptr[16] = NULL;; } ; { - BASILYS_LOCATION("warmelt-macro.melt:1433:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1438:/ locexp"); basilys_warning_str(0, (basilys_ptr_t)(/*_.LOC__V3*/ curfptr[2]), ( "unexpected C expansion component of "), (basilys_ptr_t)(/*_.NAMED_NAME__V17*/ curfptr[16]));} ; - BASILYS_LOCATION("warmelt-macro.melt:1432:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1437:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = (/*nil*/NULL);;} ; /*_.IFELSE___V15*/ curfptr[11] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1429:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1434:/ clear"); /*clear*/ /*_.DISCRIM__V16*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1429:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1434:/ clear"); /*clear*/ /*_.NAMED_NAME__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1429:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1434:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; } ; /*_.IFELSE___V11*/ curfptr[10] = /*_.IFELSE___V15*/ curfptr[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1423:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1428:/ clear"); /*clear*/ /*_#IS_STRING__L7*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1423:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1428:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[11] = 0 ;} ; } ; /*_.IFELSE___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1421:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1426:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1421:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1426:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; } @@ -13702,19 +13769,19 @@ for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix } /* end cit1__EACHTUP*/ /*citerepilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1417:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1422:/ clear"); /*clear*/ /*_.ECOMP__V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1417:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1422:/ clear"); /*clear*/ /*_#IX__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1417:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1422:/ clear"); /*clear*/ /*_#NULL__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1417:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1422:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1414:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1419:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1414:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1419:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; @@ -13775,18 +13842,18 @@ basilys_trace_start("MEXPAND_DEFPRIMITIVE", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1440:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1440:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:1440:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -13795,62 +13862,62 @@ basilys_trace_start("MEXPAND_DEFPRIMITIVE", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1440:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1445:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1441:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1441:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1446:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1446:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1441:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1446:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1441:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1446:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defprimitive sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:1441:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1446:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1441:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1446:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1441:/ apply.arg"); - argtab[3].bp_long = 1441; + BASILYS_LOCATION("warmelt-macro.melt:1446:/ apply.arg"); + argtab[3].bp_long = 1446; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1441:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1446:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1441:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1446:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1441:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1446:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1442:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1442:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1447:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1447:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1442:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1447:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1442:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1447:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1442:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1447:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1442:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1447:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1442:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1442)?(1442):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1447:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1447)?(1447):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -13860,36 +13927,36 @@ BASILYS_LOCATION("warmelt-macro.melt:1440:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1442:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1447:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1442:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1447:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1442:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1447:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1443:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1443:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1448:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1448:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:1443:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1448:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1443:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1448:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1443:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1448:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1443:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1448:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1443:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1443)?(1443):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1448:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1448)?(1448):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; @@ -13899,23 +13966,23 @@ BASILYS_LOCATION("warmelt-macro.melt:1440:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1448:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1448:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1443:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1448:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1444:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1449:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1444:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1449:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1445:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1450:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -13927,14 +13994,14 @@ BASILYS_LOCATION("warmelt-macro.melt:1440:/ block"); (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_#IS_NOT_A__L4*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:1449:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1454:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1449:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1449:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1454:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1454:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1450:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1455:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing symbol for (DEFPRIMITIVE symb args type expansion...)"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -13943,230 +14010,230 @@ BASILYS_LOCATION("warmelt-macro.melt:1440:/ block"); ; /*_.PAIR_TAIL__V17*/ curfptr[16] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1451:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1456:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V18*/ curfptr[17] = /*_.PAIR_TAIL__V17*/ curfptr[16];; - BASILYS_LOCATION("warmelt-macro.melt:1453:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1458:/ block"); /*block*/{ /*_.PAIR_HEAD__V20*/ curfptr[19] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_.THE_NULL__V21*/ curfptr[20] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:1453:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1458:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1453:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1458:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V21*/ curfptr[20]; /*_.BTUP__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.PAIR_HEAD__V20*/ curfptr[19]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.PAIR_TAIL__V23*/ curfptr[22] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1454:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1459:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V24*/ curfptr[23] = /*_.PAIR_TAIL__V23*/ curfptr[22];; - BASILYS_LOCATION("warmelt-macro.melt:1456:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1461:/ block"); /*block*/{ /*_.TYPKW__V26*/ curfptr[25] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_#IS_NOT_A__L5*/ curfnum[4] = !basilys_is_instance_of((basilys_ptr_t)(/*_.TYPKW__V26*/ curfptr[25]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[5])));; - BASILYS_LOCATION("warmelt-macro.melt:1457:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1462:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1457:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1457:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1462:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1462:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1458:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1463:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing type keyword for (DEFPRIMITIVE symb args type expansion...)"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1459:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1464:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1459:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1464:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.TYPKW__V26*/ curfptr[25]), 2, "SYMB_DATA");/*_.CTY__V28*/ curfptr[27] = slot; }; ; /*_#IS_NOT_A__L6*/ curfnum[5] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CTY__V28*/ curfptr[27]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));; - BASILYS_LOCATION("warmelt-macro.melt:1460:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1465:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1460:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1460:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1465:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1465:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1462:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1462:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1467:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1467:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1462:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1467:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1462:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1467:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defprimitive bad cty"; - BASILYS_LOCATION("warmelt-macro.melt:1462:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1467:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.melt:1462:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1467:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1462:/ apply.arg"); - argtab[3].bp_long = 1462; + BASILYS_LOCATION("warmelt-macro.melt:1467:/ apply.arg"); + argtab[3].bp_long = 1467; /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.TYPKW__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V30*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1462:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1467:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1462:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1467:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1462:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1467:/ cppif.else"); /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1464:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1469:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.TYPKW__V26*/ curfptr[25]), 1, "NAMED_NAME");/*_.NAMED_NAME__V32*/ curfptr[30] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:1463:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1468:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad type keyword for "), (basilys_ptr_t)(/*_.NAMED_NAME__V32*/ curfptr[30]));} ; /*_.THE_NULL__V33*/ curfptr[32] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:1465:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1470:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V33*/ curfptr[32];; - BASILYS_LOCATION("warmelt-macro.melt:1465:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1470:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1461:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1466:/ block"); /*block*/{ /*_.PROGN___V35*/ curfptr[34] = /*_.RETURN___V34*/ curfptr[33];;} ; /*_.IF___V29*/ curfptr[28] = /*_.PROGN___V35*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1460:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1465:/ clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1460:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1465:/ clear"); /*clear*/ /*_.NAMED_NAME__V32*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1460:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1465:/ clear"); /*clear*/ /*_.THE_NULL__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1460:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1465:/ clear"); /*clear*/ /*_.RETURN___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1460:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1465:/ clear"); /*clear*/ /*_.PROGN___V35*/ curfptr[34] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1460:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1465:/ cond.else"); /*_.IF___V29*/ curfptr[28] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:1467:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1472:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CTY__V28*/ curfptr[27]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V36*/ curfptr[29] = slot; }; ; /*_#__L8*/ curfnum[6] = ((/*_.CTYPE_KEYWORD__V36*/ curfptr[29]) != (/*_.TYPKW__V26*/ curfptr[25]));; - BASILYS_LOCATION("warmelt-macro.melt:1467:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1472:/ cond"); /*cond*/ if (/*_#__L8*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1467:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1467:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1472:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1472:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1469:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1469:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1474:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1474:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1469:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1474:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1469:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1474:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defprimitive strange typkw"; - BASILYS_LOCATION("warmelt-macro.melt:1469:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1474:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.melt:1469:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1474:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1469:/ apply.arg"); - argtab[3].bp_long = 1469; + BASILYS_LOCATION("warmelt-macro.melt:1474:/ apply.arg"); + argtab[3].bp_long = 1474; /*_.DEBUG_MSG_FUN__V39*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.TYPKW__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V38*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1469:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1474:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1469:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1474:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1469:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1474:/ cppif.else"); /*_.IFCPP___V38*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1471:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1476:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.TYPKW__V26*/ curfptr[25]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[34] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:1470:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1475:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "invalid type keyword for defprimitive"), (basilys_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[34]));} ; /*_.THE_NULL__V41*/ curfptr[33] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:1472:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1477:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V41*/ curfptr[33];; - BASILYS_LOCATION("warmelt-macro.melt:1472:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1477:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1468:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1473:/ block"); /*block*/{ /*_.PROGN___V43*/ curfptr[42] = /*_.RETURN___V42*/ curfptr[41];;} ; /*_.IF___V37*/ curfptr[30] = /*_.PROGN___V43*/ curfptr[42];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1467:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1472:/ clear"); /*clear*/ /*_.IFCPP___V38*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1467:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1472:/ clear"); /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1467:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1472:/ clear"); /*clear*/ /*_.THE_NULL__V41*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1467:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1472:/ clear"); /*clear*/ /*_.RETURN___V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1467:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1472:/ clear"); /*clear*/ /*_.PROGN___V43*/ curfptr[42] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1467:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1472:/ cond.else"); /*_.IF___V37*/ curfptr[30] = NULL;; } ; /*_.PAIR_TAIL__V44*/ curfptr[32] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1475:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1480:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V45*/ curfptr[34] = /*_.PAIR_TAIL__V44*/ curfptr[32];; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1477:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1482:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1477:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1482:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURPAIR__V15*/ curfptr[14]; /*_.ETUPLE__V47*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_PAIRLIST_C_CODE_EXPANSION*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -14179,91 +14246,91 @@ BASILYS_LOCATION("warmelt-macro.melt:1440:/ block"); ((5) + (/*_#I__L11*/ curfnum[10]));; /*_.SUBSTMAP__V48*/ curfptr[42] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[8])), (/*_#I__L12*/ curfnum[11])));; - BASILYS_LOCATION("warmelt-macro.melt:1481:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1486:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1481:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1486:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_DEFPRIMITIVE*/ curfrout->tabval[9])), (5), "CLASS_SRC_DEFPRIMITIVE");/*_.INST__V50*/ curfptr[49] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1481:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1486:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49]))));basilys_putfield_object((/*_.INST__V50*/ curfptr[49]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:1481:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1486:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49]))));basilys_putfield_object((/*_.INST__V50*/ curfptr[49]), (1), (/*_.SYMB__V16*/ curfptr[15]), "SDEF_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:1481:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1486:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49]))));basilys_putfield_object((/*_.INST__V50*/ curfptr[49]), (2), (/*_.BTUP__V22*/ curfptr[21]), "SFORMAL_ARGS"); ; - BASILYS_LOCATION("warmelt-macro.melt:1481:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1486:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49]))));basilys_putfield_object((/*_.INST__V50*/ curfptr[49]), (3), (/*_.CTY__V28*/ curfptr[27]), "SPRIM_TYPE"); ; - BASILYS_LOCATION("warmelt-macro.melt:1481:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1486:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49]))));basilys_putfield_object((/*_.INST__V50*/ curfptr[49]), (4), (/*_.ETUPLE__V47*/ curfptr[41]), "SPRIM_EXPANSION"); ; /*_.SDEFPRI__V49*/ curfptr[48] = /*_.INST__V50*/ curfptr[49];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1489:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1494:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V51*/ curfptr[50] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1488:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1493:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1488:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1493:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[10])), (5), "CLASS_PRIMITIVE");/*_.INST__V53*/ curfptr[52] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1488:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1493:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (1), (/*_.NAMED_NAME__V51*/ curfptr[50]), "NAMED_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:1488:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1493:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (2), (/*_.BTUP__V22*/ curfptr[21]), "PRIM_FORMALS"); ; - BASILYS_LOCATION("warmelt-macro.melt:1488:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1493:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (3), (/*_.CTY__V28*/ curfptr[27]), "PRIM_TYPE"); ; - BASILYS_LOCATION("warmelt-macro.melt:1488:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1493:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (4), (/*_.ETUPLE__V47*/ curfptr[41]), "PRIM_EXPANSION"); ; /*_.PRIMIT__V52*/ curfptr[51] = /*_.INST__V53*/ curfptr[52];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1494:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1499:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1494:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1499:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ curfrout->tabval[11])), (4), "CLASS_PRIMITIVE_BINDING");/*_.INST__V55*/ curfptr[54] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1494:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1499:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54]))));basilys_putfield_object((/*_.INST__V55*/ curfptr[54]), (0), (/*_.SYMB__V16*/ curfptr[15]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:1494:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1499:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54]))));basilys_putfield_object((/*_.INST__V55*/ curfptr[54]), (2), (/*_.SDEFPRI__V49*/ curfptr[48]), "PBIND_PRIMDEF"); ; - BASILYS_LOCATION("warmelt-macro.melt:1494:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1499:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V55*/ curfptr[54]))));basilys_putfield_object((/*_.INST__V55*/ curfptr[54]), (3), (/*_.PRIMIT__V52*/ curfptr[51]), "PBIND_PRIMITIVE"); @@ -14280,24 +14347,24 @@ for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1504:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1504:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1509:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1509:/ block"); /*block*/{ /*_#IS_A__L14*/ curfnum[13] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURBIND__V56*/ curfptr[55]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[12])));; - BASILYS_LOCATION("warmelt-macro.melt:1504:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1509:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ curfnum[13]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1504:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1509:/ cond.then"); /*_.IFELSE___V58*/ curfptr[57] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1504:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1509:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1504:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1509:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1504:/ locexp"); - basilys_assert_failed(( "check curbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1504)?(1504):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1509:/ locexp"); + basilys_assert_failed(( "check curbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1509)?(1509):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V58*/ curfptr[57] = 0 ;} ; @@ -14307,265 +14374,265 @@ for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix ; /*_.IFCPP___V57*/ curfptr[56] = /*_.IFELSE___V58*/ curfptr[57];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1504:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1509:/ clear"); /*clear*/ /*_#IS_A__L14*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1504:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1509:/ clear"); /*clear*/ /*_.IFELSE___V58*/ curfptr[57] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1504:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1509:/ cppif.else"); /*_.IFCPP___V57*/ curfptr[56] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1505:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1510:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.CURBIND__V56*/ curfptr[55]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[13])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1505:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1505:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1510:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1510:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURBIND__V56*/ curfptr[55]), 0, "BINDER");/*_.BINDER__V59*/ curfptr[57] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1505:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1510:/ cond.else"); /*_.BINDER__V59*/ curfptr[57] = NULL;; } ; { - BASILYS_LOCATION("warmelt-macro.melt:1505:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1510:/ locexp"); basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V48*/ curfptr[42]), (basilysobject_ptr_t) (/*_.BINDER__V59*/ curfptr[57]), (basilys_ptr_t)(/*_.CURBIND__V56*/ curfptr[55]));} ; } /* end cit1__EACHTUP*/ /*citerepilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1501:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1506:/ clear"); /*clear*/ /*_.CURBIND__V56*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1501:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1506:/ clear"); /*clear*/ /*_#BIX__L13*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1501:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1506:/ clear"); /*clear*/ /*_.IFCPP___V57*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1501:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1506:/ clear"); /*clear*/ /*_.BINDER__V59*/ curfptr[57] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1507:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1507:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1512:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1512:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1507:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1512:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1507:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1512:/ apply.arg"); argtab[0].bp_cstring = "defprimitive primit"; - BASILYS_LOCATION("warmelt-macro.melt:1507:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1512:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.melt:1507:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1512:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1507:/ apply.arg"); - argtab[3].bp_long = 1507; + BASILYS_LOCATION("warmelt-macro.melt:1512:/ apply.arg"); + argtab[3].bp_long = 1512; /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PRIMIT__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V60*/ curfptr[59] = /*_.DEBUG_MSG_FUN__V61*/ curfptr[60];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1507:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1512:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1507:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1512:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ curfptr[60] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1507:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1512:/ cppif.else"); /*_.IFCPP___V60*/ curfptr[59] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1508:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1513:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1508:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1513:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.melt:1508:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1513:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SUBSTMAP__V48*/ curfptr[42]; /*_.CHECK_C_EXPANSION__V62*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.ETUPLE__V47*/ curfptr[41]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1510:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1515:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1510:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1515:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:1510:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1515:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; /*_.WARN_IF_REDEFINED__V63*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1511:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1516:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1511:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1516:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PBIND__V54*/ curfptr[53]; /*_.PUT_ENV__V64*/ curfptr[63] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1512:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1512:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1517:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1517:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1512:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1517:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1512:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1517:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defprimitive result sdefpri"; - BASILYS_LOCATION("warmelt-macro.melt:1512:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1517:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.melt:1512:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1517:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1512:/ apply.arg"); - argtab[3].bp_long = 1512; + BASILYS_LOCATION("warmelt-macro.melt:1517:/ apply.arg"); + argtab[3].bp_long = 1517; /*_.DEBUG_MSG_FUN__V66*/ curfptr[65] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SDEFPRI__V49*/ curfptr[48]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V65*/ curfptr[64] = /*_.DEBUG_MSG_FUN__V66*/ curfptr[65];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1512:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1517:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1512:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1517:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V66*/ curfptr[65] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1512:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1517:/ cppif.else"); /*_.IFCPP___V65*/ curfptr[64] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1513:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1518:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SDEFPRI__V49*/ curfptr[48];; - BASILYS_LOCATION("warmelt-macro.melt:1513:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1518:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V46*/ curfptr[33] = /*_.RETURN___V67*/ curfptr[65];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_.ETUPLE__V47*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_.SUBSTMAP__V48*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_.SDEFPRI__V49*/ curfptr[48] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_.NAMED_NAME__V51*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_.PRIMIT__V52*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_.PBIND__V54*/ curfptr[53] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_.IFCPP___V60*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_.CHECK_C_EXPANSION__V62*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_.WARN_IF_REDEFINED__V63*/ curfptr[62] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_.PUT_ENV__V64*/ curfptr[63] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_.IFCPP___V65*/ curfptr[64] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1476:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1481:/ clear"); /*clear*/ /*_.RETURN___V67*/ curfptr[65] = 0 ;} ; /*_.LET___V27*/ curfptr[26] = /*_.LET___V46*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1464:/ clear"); /*clear*/ /*_.CTY__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1464:/ clear"); /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1464:/ clear"); /*clear*/ /*_.IF___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1464:/ clear"); /*clear*/ /*_.CTYPE_KEYWORD__V36*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1464:/ clear"); /*clear*/ /*_#__L8*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1464:/ clear"); /*clear*/ /*_.IF___V37*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1464:/ clear"); /*clear*/ /*_.PAIR_TAIL__V44*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1464:/ clear"); /*clear*/ /*_.SETQ___V45*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1464:/ clear"); /*clear*/ /*_.LET___V46*/ curfptr[33] = 0 ;} ; /*_.LET___V25*/ curfptr[24] = /*_.LET___V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1456:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1461:/ clear"); /*clear*/ /*_.TYPKW__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1456:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1461:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1456:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1461:/ clear"); /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;} ; /*_.LET___V19*/ curfptr[18] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1453:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1458:/ clear"); /*clear*/ /*_.PAIR_HEAD__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1453:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1458:/ clear"); /*clear*/ /*_.THE_NULL__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1453:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1458:/ clear"); /*clear*/ /*_.BTUP__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1453:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1458:/ clear"); /*clear*/ /*_.PAIR_TAIL__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1453:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1458:/ clear"); /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1453:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1458:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1444:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1449:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1444:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1449:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1444:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1449:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1444:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1449:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1444:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1449:/ clear"); /*clear*/ /*_.SYMB__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1444:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1449:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1444:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1449:/ clear"); /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1444:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1449:/ clear"); /*clear*/ /*_.SETQ___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1444:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1449:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1440:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:1440:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1440:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1440:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1440:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1440:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -14626,18 +14693,18 @@ basilys_trace_start("MEXPAND_DEFCITERATOR", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1522:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1522:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:1522:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -14646,62 +14713,62 @@ basilys_trace_start("MEXPAND_DEFCITERATOR", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1522:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1527:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1523:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1523:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1528:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1528:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1523:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1528:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1523:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1528:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defciterator sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:1523:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1528:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1523:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1528:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1523:/ apply.arg"); - argtab[3].bp_long = 1523; + BASILYS_LOCATION("warmelt-macro.melt:1528:/ apply.arg"); + argtab[3].bp_long = 1528; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1523:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1528:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1523:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1528:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1523:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1528:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1524:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1524:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1529:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1529:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1524:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1529:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1524:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1529:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1524:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1529:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1524:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1529:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1524:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1524)?(1524):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1529:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1529)?(1529):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -14711,36 +14778,36 @@ BASILYS_LOCATION("warmelt-macro.melt:1522:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1524:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1529:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1524:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1529:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1524:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1529:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1525:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1525:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1530:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1530:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:1525:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1530:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1525:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1530:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1525:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1530:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1525:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1530:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1525:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1525)?(1525):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1530:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1530)?(1530):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; @@ -14750,23 +14817,23 @@ BASILYS_LOCATION("warmelt-macro.melt:1522:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1525:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1530:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1525:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1530:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1525:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1530:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1526:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1527:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1532:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -14783,349 +14850,349 @@ BASILYS_LOCATION("warmelt-macro.melt:1522:/ block"); /*_.EXPAFT__V21*/ curfptr[20] = (/*nil*/NULL);; /*_#IS_NOT_A__L4*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:1537:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1542:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1537:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1537:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1542:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1542:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1539:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1544:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing symbol for (DEFCITERATOR symb startformals statesymb locformals expbefore expafter)"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1541:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1546:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1541:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1546:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1538:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1543:/ block"); /*block*/{ /*_.PROGN___V24*/ curfptr[23] = /*_.RETURN___V23*/ curfptr[22];;} ; /*_.IF___V22*/ curfptr[21] = /*_.PROGN___V24*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1537:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1542:/ clear"); /*clear*/ /*_.RETURN___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1537:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1542:/ clear"); /*clear*/ /*_.PROGN___V24*/ curfptr[23] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1537:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1542:/ cond.else"); /*_.IF___V22*/ curfptr[21] = NULL;; } ; /*_.PAIR_TAIL__V25*/ curfptr[22] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1543:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1548:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V26*/ curfptr[23] = /*_.PAIR_TAIL__V25*/ curfptr[22];; /*_.PAIR_HEAD__V27*/ curfptr[26] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1545:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1550:/ apply"); /*apply*/{ /*_.LAMBDA_ARG_BINDINGS__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.PAIR_HEAD__V27*/ curfptr[26]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1545:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1550:/ compute"); /*_.BSTARTUP__V17*/ curfptr[16] = /*_.SETQ___V29*/ curfptr[28] = /*_.LAMBDA_ARG_BINDINGS__V28*/ curfptr[27];; /*_.PAIR_TAIL__V30*/ curfptr[29] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1546:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1551:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V31*/ curfptr[30] = /*_.PAIR_TAIL__V30*/ curfptr[29];; /*_.PAIR_HEAD__V32*/ curfptr[31] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1547:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1552:/ compute"); /*_.STATSYMB__V18*/ curfptr[17] = /*_.SETQ___V33*/ curfptr[32] = /*_.PAIR_HEAD__V32*/ curfptr[31];; /*_#IS_NOT_A__L5*/ curfnum[4] = !basilys_is_instance_of((basilys_ptr_t)(/*_.STATSYMB__V18*/ curfptr[17]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:1548:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1553:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1548:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1548:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1553:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1553:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1550:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1555:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing statsymb for (DEFCITERATOR symb startformals statesymb locformals expbefore expafter)"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1552:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1557:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1552:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1557:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1549:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1554:/ block"); /*block*/{ /*_.PROGN___V36*/ curfptr[35] = /*_.RETURN___V35*/ curfptr[34];;} ; /*_.IF___V34*/ curfptr[33] = /*_.PROGN___V36*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1553:/ clear"); /*clear*/ /*_.RETURN___V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1548:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1553:/ clear"); /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1548:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1553:/ cond.else"); /*_.IF___V34*/ curfptr[33] = NULL;; } ; /*_.PAIR_TAIL__V37*/ curfptr[34] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1553:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1558:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V38*/ curfptr[35] = /*_.PAIR_TAIL__V37*/ curfptr[34];; /*_.PAIR_HEAD__V39*/ curfptr[38] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1554:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1559:/ apply"); /*apply*/{ /*_.LAMBDA_ARG_BINDINGS__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.PAIR_HEAD__V39*/ curfptr[38]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1554:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1559:/ compute"); /*_.BLOCVTUP__V19*/ curfptr[18] = /*_.SETQ___V41*/ curfptr[40] = /*_.LAMBDA_ARG_BINDINGS__V40*/ curfptr[39];; /*_.PAIR_TAIL__V42*/ curfptr[41] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1555:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1560:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V43*/ curfptr[42] = /*_.PAIR_TAIL__V42*/ curfptr[41];; - BASILYS_LOCATION("warmelt-macro.melt:1557:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1562:/ block"); /*block*/{ /*_.SEXPBEF__V45*/ curfptr[44] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_#IS_NOT_A__L6*/ curfnum[5] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPBEF__V45*/ curfptr[44]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1558:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1563:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1558:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1558:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1563:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1563:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1560:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1565:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing before expansion for (DEFCITERATOR symb startformals statesymb locformals expbefore expafter)"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1561:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1566:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1561:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1566:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1559:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1564:/ block"); /*block*/{ /*_.PROGN___V48*/ curfptr[47] = /*_.RETURN___V47*/ curfptr[46];;} ; /*_.IF___V46*/ curfptr[45] = /*_.PROGN___V48*/ curfptr[47];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1558:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1563:/ clear"); /*clear*/ /*_.RETURN___V47*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1558:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1563:/ clear"); /*clear*/ /*_.PROGN___V48*/ curfptr[47] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1558:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1563:/ cond.else"); /*_.IF___V46*/ curfptr[45] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:1562:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1567:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPBEF__V45*/ curfptr[44]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V49*/ curfptr[46] = slot; }; ; /*_.LIST_FIRST__V50*/ curfptr[47] = (basilys_list_first((basilys_ptr_t)(/*_.SEXP_CONTENTS__V49*/ curfptr[46])));; - BASILYS_LOCATION("warmelt-macro.melt:1562:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1567:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1562:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1567:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LIST_FIRST__V50*/ curfptr[47]; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_PAIRLIST_C_CODE_EXPANSION*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1562:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1567:/ compute"); /*_.EXPBEF__V20*/ curfptr[19] = /*_.SETQ___V52*/ curfptr[51] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V51*/ curfptr[50];; /*_.LET___V44*/ curfptr[43] = /*_.SETQ___V52*/ curfptr[51];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1557:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1562:/ clear"); /*clear*/ /*_.SEXPBEF__V45*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1557:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1562:/ clear"); /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1557:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1562:/ clear"); /*clear*/ /*_.IF___V46*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1557:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1562:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V49*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1557:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1562:/ clear"); /*clear*/ /*_.LIST_FIRST__V50*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1557:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1562:/ clear"); /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V51*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1557:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1562:/ clear"); /*clear*/ /*_.SETQ___V52*/ curfptr[51] = 0 ;} ; /*_.PAIR_TAIL__V53*/ curfptr[44] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1564:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1569:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V54*/ curfptr[45] = /*_.PAIR_TAIL__V53*/ curfptr[44];; - BASILYS_LOCATION("warmelt-macro.melt:1566:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1571:/ block"); /*block*/{ /*_.SEXPAFT__V56*/ curfptr[47] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_#IS_NOT_A__L7*/ curfnum[5] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPAFT__V56*/ curfptr[47]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1567:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1572:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L7*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1567:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1567:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1572:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1572:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1569:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1574:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing after expansion for (DEFCITERATOR symb startformals statesymb locformals expbefore expafter)"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1570:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1575:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1570:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1575:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1568:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1573:/ block"); /*block*/{ /*_.PROGN___V59*/ curfptr[58] = /*_.RETURN___V58*/ curfptr[51];;} ; /*_.IF___V57*/ curfptr[50] = /*_.PROGN___V59*/ curfptr[58];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1567:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1572:/ clear"); /*clear*/ /*_.RETURN___V58*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1567:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1572:/ clear"); /*clear*/ /*_.PROGN___V59*/ curfptr[58] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1567:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1572:/ cond.else"); /*_.IF___V57*/ curfptr[50] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:1571:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1576:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPAFT__V56*/ curfptr[47]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V60*/ curfptr[51] = slot; }; ; /*_.LIST_FIRST__V61*/ curfptr[58] = (basilys_list_first((basilys_ptr_t)(/*_.SEXP_CONTENTS__V60*/ curfptr[51])));; - BASILYS_LOCATION("warmelt-macro.melt:1571:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1576:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1571:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1576:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LIST_FIRST__V61*/ curfptr[58]; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V62*/ curfptr[61] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_PAIRLIST_C_CODE_EXPANSION*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1571:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1576:/ compute"); /*_.EXPAFT__V21*/ curfptr[20] = /*_.SETQ___V63*/ curfptr[62] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V62*/ curfptr[61];; /*_.LET___V55*/ curfptr[46] = /*_.SETQ___V63*/ curfptr[62];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1571:/ clear"); /*clear*/ /*_.SEXPAFT__V56*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1571:/ clear"); /*clear*/ /*_#IS_NOT_A__L7*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1571:/ clear"); /*clear*/ /*_.IF___V57*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1571:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V60*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1571:/ clear"); /*clear*/ /*_.LIST_FIRST__V61*/ curfptr[58] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1571:/ clear"); /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V62*/ curfptr[61] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1571:/ clear"); /*clear*/ /*_.SETQ___V63*/ curfptr[62] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1575:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1580:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V65*/ curfptr[50] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1574:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[6])), (7), "CLASS_CITERATOR");/*_.INST__V67*/ curfptr[58] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V67*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V67*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V67*/ curfptr[58]), (1), (/*_.NAMED_NAME__V65*/ curfptr[50]), "NAMED_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V67*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V67*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V67*/ curfptr[58]), (2), (/*_.BSTARTUP__V17*/ curfptr[16]), "CITER_START_FORMALS"); ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V67*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V67*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V67*/ curfptr[58]), (3), (/*_.STATSYMB__V18*/ curfptr[17]), "CITER_STATE"); ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V67*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V67*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V67*/ curfptr[58]), (4), (/*_.BLOCVTUP__V19*/ curfptr[18]), "CITER_BODY_FORMALS"); ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V67*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V67*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V67*/ curfptr[58]), (5), (/*_.EXPBEF__V20*/ curfptr[19]), "CITER_EXPBEFORE"); ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V67*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V67*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V67*/ curfptr[58]), (6), (/*_.EXPAFT__V21*/ curfptr[20]), "CITER_EXPAFTER"); ; /*_.CITER__V66*/ curfptr[51] = /*_.INST__V67*/ curfptr[58];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1582:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1587:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1582:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1587:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_CITERATOR_BINDING*/ curfrout->tabval[7])), (4), "CLASS_CITERATOR_BINDING");/*_.INST__V69*/ curfptr[62] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1582:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1587:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V69*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V69*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V69*/ curfptr[62]), (0), (/*_.SYMB__V16*/ curfptr[15]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:1582:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1587:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V69*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V69*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V69*/ curfptr[62]), (3), (/*_.CITER__V66*/ curfptr[51]), "CBIND_CITERATOR"); ; /*_.CITBIND__V68*/ curfptr[61] = /*_.INST__V69*/ curfptr[62];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1587:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1592:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1587:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1592:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_DEFCITERATOR*/ curfrout->tabval[8])), (4), "CLASS_SRC_DEFCITERATOR");/*_.INST__V71*/ curfptr[70] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1587:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1592:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V71*/ curfptr[70])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V71*/ curfptr[70]))));basilys_putfield_object((/*_.INST__V71*/ curfptr[70]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:1587:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1592:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V71*/ curfptr[70])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V71*/ curfptr[70]))));basilys_putfield_object((/*_.INST__V71*/ curfptr[70]), (1), (/*_.SYMB__V16*/ curfptr[15]), "SDEF_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:1587:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1592:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V71*/ curfptr[70])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V71*/ curfptr[70]))));basilys_putfield_object((/*_.INST__V71*/ curfptr[70]), (2), (/*_.BSTARTUP__V17*/ curfptr[16]), "SFORMAL_ARGS"); ; - BASILYS_LOCATION("warmelt-macro.melt:1587:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1592:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V71*/ curfptr[70])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V71*/ curfptr[70]))));basilys_putfield_object((/*_.INST__V71*/ curfptr[70]), (3), (/*_.CITER__V66*/ curfptr[51]), "SCITERDEF_CITERATOR"); @@ -15148,74 +15215,74 @@ BASILYS_LOCATION("warmelt-macro.melt:1522:/ block"); (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[9])), (/*_#I__L13*/ curfnum[12])));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1598:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1598:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1603:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1603:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1598:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1603:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1598:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1603:/ apply.arg"); argtab[0].bp_cstring = "srcit citer"; - BASILYS_LOCATION("warmelt-macro.melt:1598:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1603:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.melt:1598:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1603:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1598:/ apply.arg"); - argtab[3].bp_long = 1598; + BASILYS_LOCATION("warmelt-macro.melt:1603:/ apply.arg"); + argtab[3].bp_long = 1603; /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SRCIT__V70*/ curfptr[69]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V73*/ curfptr[72] = /*_.DEBUG_MSG_FUN__V74*/ curfptr[73];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1598:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1603:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1598:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1603:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ curfptr[73] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1598:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1603:/ cppif.else"); /*_.IFCPP___V73*/ curfptr[72] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { - BASILYS_LOCATION("warmelt-macro.melt:1599:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1604:/ locexp"); basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V72*/ curfptr[71]), (basilysobject_ptr_t) (/*_.STATSYMB__V18*/ curfptr[17]), (basilys_ptr_t)(/*_.STATSYMB__V18*/ curfptr[17]));} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1600:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1600:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1605:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1605:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1600:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1605:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1600:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1605:/ apply.arg"); argtab[0].bp_cstring = "bstartup citer"; - BASILYS_LOCATION("warmelt-macro.melt:1600:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1605:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.melt:1600:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1605:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1600:/ apply.arg"); - argtab[3].bp_long = 1600; + BASILYS_LOCATION("warmelt-macro.melt:1605:/ apply.arg"); + argtab[3].bp_long = 1605; /*_.DEBUG_MSG_FUN__V76*/ curfptr[75] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.BSTARTUP__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V75*/ curfptr[73] = /*_.DEBUG_MSG_FUN__V76*/ curfptr[75];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1600:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1605:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1600:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1605:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V76*/ curfptr[75] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1600:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1605:/ cppif.else"); /*_.IFCPP___V75*/ curfptr[73] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -15229,24 +15296,24 @@ for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1604:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1604:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1609:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1609:/ block"); /*block*/{ /*_#IS_A__L17*/ curfnum[16] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURSBIND__V77*/ curfptr[75]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[10])));; - BASILYS_LOCATION("warmelt-macro.melt:1604:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1609:/ cond"); /*cond*/ if (/*_#IS_A__L17*/ curfnum[16]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1604:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1609:/ cond.then"); /*_.IFELSE___V79*/ curfptr[78] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1604:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1609:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1604:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1609:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1604:/ locexp"); - basilys_assert_failed(( "check start cursbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1604)?(1604):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1609:/ locexp"); + basilys_assert_failed(( "check start cursbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1609)?(1609):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V79*/ curfptr[78] = 0 ;} ; @@ -15256,76 +15323,76 @@ for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix ; /*_.IFCPP___V78*/ curfptr[77] = /*_.IFELSE___V79*/ curfptr[78];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1604:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1609:/ clear"); /*clear*/ /*_#IS_A__L17*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1604:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1609:/ clear"); /*clear*/ /*_.IFELSE___V79*/ curfptr[78] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1604:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1609:/ cppif.else"); /*_.IFCPP___V78*/ curfptr[77] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1605:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1610:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.CURSBIND__V77*/ curfptr[75]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[11])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1605:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1605:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1610:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1610:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURSBIND__V77*/ curfptr[75]), 0, "BINDER");/*_.BINDER__V80*/ curfptr[78] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1605:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1610:/ cond.else"); /*_.BINDER__V80*/ curfptr[78] = NULL;; } ; { - BASILYS_LOCATION("warmelt-macro.melt:1605:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1610:/ locexp"); basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V72*/ curfptr[71]), (basilysobject_ptr_t) (/*_.BINDER__V80*/ curfptr[78]), (basilys_ptr_t)(/*_.CURSBIND__V77*/ curfptr[75]));} ; } /* end cit1__EACHTUP*/ /*citerepilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1601:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1606:/ clear"); /*clear*/ /*_.CURSBIND__V77*/ curfptr[75] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1601:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1606:/ clear"); /*clear*/ /*_#BSIX__L16*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1601:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1606:/ clear"); /*clear*/ /*_.IFCPP___V78*/ curfptr[77] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1601:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1606:/ clear"); /*clear*/ /*_.BINDER__V80*/ curfptr[78] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1606:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1606:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1611:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1611:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[16] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1606:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1611:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1606:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1611:/ apply.arg"); argtab[0].bp_cstring = "blocvtup citer"; - BASILYS_LOCATION("warmelt-macro.melt:1606:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1611:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[16]; - BASILYS_LOCATION("warmelt-macro.melt:1606:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1611:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1606:/ apply.arg"); - argtab[3].bp_long = 1606; + BASILYS_LOCATION("warmelt-macro.melt:1611:/ apply.arg"); + argtab[3].bp_long = 1611; /*_.DEBUG_MSG_FUN__V82*/ curfptr[81] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.BLOCVTUP__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V81*/ curfptr[80] = /*_.DEBUG_MSG_FUN__V82*/ curfptr[81];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1606:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1611:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1606:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1611:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V82*/ curfptr[81] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1606:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1611:/ cppif.else"); /*_.IFCPP___V81*/ curfptr[80] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -15339,58 +15406,58 @@ for (cit2__EACHTUP_ix = 0; cit2__EACHTUP_ix < cit2__EACHTUP_ln; cit2__EACHTUP_ix #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1610:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1610:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1615:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1615:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1610:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1615:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1610:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1615:/ apply.arg"); argtab[0].bp_cstring = "curlbind local citer"; - BASILYS_LOCATION("warmelt-macro.melt:1610:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1615:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19]; - BASILYS_LOCATION("warmelt-macro.melt:1610:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1615:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1610:/ apply.arg"); - argtab[3].bp_long = 1610; + BASILYS_LOCATION("warmelt-macro.melt:1615:/ apply.arg"); + argtab[3].bp_long = 1615; /*_.DEBUG_MSG_FUN__V85*/ curfptr[84] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURLBIND__V83*/ curfptr[81]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V84*/ curfptr[83] = /*_.DEBUG_MSG_FUN__V85*/ curfptr[84];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1610:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1615:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1610:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1615:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V85*/ curfptr[84] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1610:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1615:/ cppif.else"); /*_.IFCPP___V84*/ curfptr[83] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1611:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1611:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1616:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1616:/ block"); /*block*/{ /*_#IS_A__L21*/ curfnum[19] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURLBIND__V83*/ curfptr[81]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[11])));; - BASILYS_LOCATION("warmelt-macro.melt:1611:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1616:/ cond"); /*cond*/ if (/*_#IS_A__L21*/ curfnum[19]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1611:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1616:/ cond.then"); /*_.IFELSE___V87*/ curfptr[86] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1611:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1616:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1611:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1616:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1611:/ locexp"); - basilys_assert_failed(( "check local curlbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1611)?(1611):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1616:/ locexp"); + basilys_assert_failed(( "check local curlbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1616)?(1616):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V87*/ curfptr[86] = 0 ;} ; @@ -15400,260 +15467,260 @@ for (cit2__EACHTUP_ix = 0; cit2__EACHTUP_ix < cit2__EACHTUP_ln; cit2__EACHTUP_ix ; /*_.IFCPP___V86*/ curfptr[84] = /*_.IFELSE___V87*/ curfptr[86];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1611:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1616:/ clear"); /*clear*/ /*_#IS_A__L21*/ curfnum[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1611:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1616:/ clear"); /*clear*/ /*_.IFELSE___V87*/ curfptr[86] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1611:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1616:/ cppif.else"); /*_.IFCPP___V86*/ curfptr[84] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1612:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1617:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.CURLBIND__V83*/ curfptr[81]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[11])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1612:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1612:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1617:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1617:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURLBIND__V83*/ curfptr[81]), 0, "BINDER");/*_.BINDER__V88*/ curfptr[86] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1612:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1617:/ cond.else"); /*_.BINDER__V88*/ curfptr[86] = NULL;; } ; { - BASILYS_LOCATION("warmelt-macro.melt:1612:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1617:/ locexp"); basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V72*/ curfptr[71]), (basilysobject_ptr_t) (/*_.BINDER__V88*/ curfptr[86]), (basilys_ptr_t)(/*_.CURLBIND__V83*/ curfptr[81]));} ; } /* end cit2__EACHTUP*/ /*citerepilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1607:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1612:/ clear"); /*clear*/ /*_.CURLBIND__V83*/ curfptr[81] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1607:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1612:/ clear"); /*clear*/ /*_#BLIX__L19*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1607:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1612:/ clear"); /*clear*/ /*_.IFCPP___V84*/ curfptr[83] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1607:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1612:/ clear"); /*clear*/ /*_.IFCPP___V86*/ curfptr[84] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1607:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1612:/ clear"); /*clear*/ /*_.BINDER__V88*/ curfptr[86] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1614:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1619:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1614:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1619:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.melt:1614:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1619:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SUBSTMAP__V72*/ curfptr[71]; /*_.CHECK_C_EXPANSION__V89*/ curfptr[88] = basilys_apply ((basilysclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.EXPBEF__V20*/ curfptr[19]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1615:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1620:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1615:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1620:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.melt:1615:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1620:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SUBSTMAP__V72*/ curfptr[71]; /*_.CHECK_C_EXPANSION__V90*/ curfptr[89] = basilys_apply ((basilysclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.EXPAFT__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1617:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1622:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1617:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1622:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.CITBIND__V68*/ curfptr[61])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.CITBIND__V68*/ curfptr[61]))));basilys_putfield_object((/*_.CITBIND__V68*/ curfptr[61]), (2), (/*_.SRCIT__V70*/ curfptr[69]), "CBIND_CITERDEF"); ; - BASILYS_LOCATION("warmelt-macro.melt:1617:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1622:/ touch"); basilysgc_touch(/*_.CITBIND__V68*/ curfptr[61]); ; /*epilog*/} ; - BASILYS_LOCATION("warmelt-macro.melt:1618:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1623:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1618:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1623:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CITBIND__V68*/ curfptr[61]; /*_.PUT_ENV__V91*/ curfptr[90] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1619:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1619:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1624:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1624:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1619:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1624:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1619:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1624:/ apply.arg"); argtab[0].bp_cstring = "parsed citerator citer"; - BASILYS_LOCATION("warmelt-macro.melt:1619:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1624:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[19]; - BASILYS_LOCATION("warmelt-macro.melt:1619:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1624:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1619:/ apply.arg"); - argtab[3].bp_long = 1619; + BASILYS_LOCATION("warmelt-macro.melt:1624:/ apply.arg"); + argtab[3].bp_long = 1624; /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CITER__V66*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V92*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[92];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1619:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1624:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1619:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1624:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1619:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1624:/ cppif.else"); /*_.IFCPP___V92*/ curfptr[91] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1620:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1625:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SRCIT__V70*/ curfptr[69];; - BASILYS_LOCATION("warmelt-macro.melt:1620:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1625:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V64*/ curfptr[47] = /*_.RETURN___V94*/ curfptr[92];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_.NAMED_NAME__V65*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_.CITER__V66*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_.CITBIND__V68*/ curfptr[61] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_.SRCIT__V70*/ curfptr[69] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_.SUBSTMAP__V72*/ curfptr[71] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_.IFCPP___V73*/ curfptr[72] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_.IFCPP___V75*/ curfptr[73] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_.IFCPP___V81*/ curfptr[80] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_.CHECK_C_EXPANSION__V89*/ curfptr[88] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_.CHECK_C_EXPANSION__V90*/ curfptr[89] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_.PUT_ENV__V91*/ curfptr[90] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_.IFCPP___V92*/ curfptr[91] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1574:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1579:/ clear"); /*clear*/ /*_.RETURN___V94*/ curfptr[92] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V64*/ curfptr[47];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.SYMB__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.BSTARTUP__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.STATSYMB__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.BLOCVTUP__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.EXPBEF__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.EXPAFT__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.IF___V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.PAIR_HEAD__V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.PAIR_HEAD__V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.SETQ___V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.IF___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.PAIR_TAIL__V37*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.SETQ___V38*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.PAIR_HEAD__V39*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.SETQ___V41*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.PAIR_TAIL__V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.SETQ___V43*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.LET___V44*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.PAIR_TAIL__V53*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.SETQ___V54*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.LET___V55*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1531:/ clear"); /*clear*/ /*_.LET___V64*/ curfptr[47] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1522:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:1522:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1522:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1522:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1522:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1522:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -15714,18 +15781,18 @@ basilys_trace_start("MEXPAND_DEFCMATCHER", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1629:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1629:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:1629:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -15734,62 +15801,62 @@ basilys_trace_start("MEXPAND_DEFCMATCHER", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1629:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1634:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1630:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1630:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1635:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1635:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1630:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1635:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1630:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1635:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:1630:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1635:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1630:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1635:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1630:/ apply.arg"); - argtab[3].bp_long = 1630; + BASILYS_LOCATION("warmelt-macro.melt:1635:/ apply.arg"); + argtab[3].bp_long = 1635; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1630:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1635:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1630:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1635:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1630:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1635:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1631:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1631:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1636:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1636:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1631:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1636:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1631:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1636:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1631:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1636:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1631:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1636:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1631:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1631)?(1631):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1636:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1636)?(1636):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -15799,36 +15866,36 @@ BASILYS_LOCATION("warmelt-macro.melt:1629:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1631:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1636:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1631:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1636:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1631:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1636:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1632:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1632:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1637:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1637:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:1632:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1637:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1632:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1637:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1632:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1637:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1632:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1637:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1632:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1632)?(1632):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1637:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1637)?(1637):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; @@ -15838,23 +15905,23 @@ BASILYS_LOCATION("warmelt-macro.melt:1629:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1632:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1637:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1632:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1637:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1632:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1637:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1633:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1634:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1639:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -15874,82 +15941,82 @@ BASILYS_LOCATION("warmelt-macro.melt:1629:/ block"); /*_.EXPOPER__V24*/ curfptr[23] = (/*nil*/NULL);; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1648:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1648:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1653:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1653:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1648:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1653:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1648:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1653:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher symb"; - BASILYS_LOCATION("warmelt-macro.melt:1648:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1653:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1648:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1653:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1648:/ apply.arg"); - argtab[3].bp_long = 1648; + BASILYS_LOCATION("warmelt-macro.melt:1653:/ apply.arg"); + argtab[3].bp_long = 1653; /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V25*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1648:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1653:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1648:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1653:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1648:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1653:/ cppif.else"); /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_NOT_A__L5*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:1649:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1654:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1649:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1649:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1654:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1654:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1651:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1656:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "symbol expected for (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1654:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1659:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1654:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1659:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1650:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1655:/ block"); /*block*/{ /*_.PROGN___V29*/ curfptr[28] = /*_.RETURN___V28*/ curfptr[27];;} ; /*_.IF___V27*/ curfptr[25] = /*_.PROGN___V29*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1649:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1654:/ clear"); /*clear*/ /*_.RETURN___V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1649:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1654:/ clear"); /*clear*/ /*_.PROGN___V29*/ curfptr[28] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1649:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1654:/ cond.else"); /*_.IF___V27*/ curfptr[25] = NULL;; } ; /*_.PAIR_TAIL__V30*/ curfptr[27] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1655:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1660:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V31*/ curfptr[28] = /*_.PAIR_TAIL__V30*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ block"); /*block*/{ /*_.PAIR_HEAD__V33*/ curfptr[32] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ apply"); /*apply*/{ /*_.MATINFORMALS__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.PAIR_HEAD__V33*/ curfptr[32]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } @@ -15958,99 +16025,99 @@ BASILYS_LOCATION("warmelt-macro.melt:1629:/ block"); (basilys_multiple_length((basilys_ptr_t)(/*_.MATINFORMALS__V34*/ curfptr[33])));; /*_#I__L7*/ curfnum[6] = ((/*_#NBMATINFORMALS__L6*/ curfnum[5]) < (1));; - BASILYS_LOCATION("warmelt-macro.melt:1660:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1665:/ cond"); /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1660:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1660:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1665:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1665:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1662:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1667:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "empty ins for (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1663:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1668:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1663:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1668:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1661:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1666:/ block"); /*block*/{ /*_.PROGN___V37*/ curfptr[36] = /*_.RETURN___V36*/ curfptr[35];;} ; /*_.IF___V35*/ curfptr[34] = /*_.PROGN___V37*/ curfptr[36];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1660:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1665:/ clear"); /*clear*/ /*_.RETURN___V36*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1660:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1665:/ clear"); /*clear*/ /*_.PROGN___V37*/ curfptr[36] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1660:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1665:/ cond.else"); /*_.IF___V35*/ curfptr[34] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:1664:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1669:/ compute"); /*_.SFORMALS__V17*/ curfptr[16] = /*_.SETQ___V38*/ curfptr[35] = /*_.MATINFORMALS__V34*/ curfptr[33];; /*_.MULTIPLE_NTH__V39*/ curfptr[36] = (basilys_multiple_nth((basilys_ptr_t)(/*_.MATINFORMALS__V34*/ curfptr[33]), (0)));; - BASILYS_LOCATION("warmelt-macro.melt:1665:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1670:/ compute"); /*_.MATCHFORMAL__V18*/ curfptr[17] = /*_.SETQ___V40*/ curfptr[39] = /*_.MULTIPLE_NTH__V39*/ curfptr[36];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1666:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1666:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1671:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1671:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1666:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1671:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1666:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1671:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher matchformal"; - BASILYS_LOCATION("warmelt-macro.melt:1666:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1671:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.melt:1666:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1671:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1666:/ apply.arg"); - argtab[3].bp_long = 1666; + BASILYS_LOCATION("warmelt-macro.melt:1671:/ apply.arg"); + argtab[3].bp_long = 1671; /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MATCHFORMAL__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V41*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1666:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1671:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1666:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1671:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1666:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1671:/ cppif.else"); /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1667:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1667:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1672:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1672:/ block"); /*block*/{ /*_#IS_A__L9*/ curfnum[7] = basilys_is_instance_of((basilys_ptr_t)(/*_.MATCHFORMAL__V18*/ curfptr[17]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[5])));; - BASILYS_LOCATION("warmelt-macro.melt:1667:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1672:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1667:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1672:/ cond.then"); /*_.IFELSE___V44*/ curfptr[43] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1667:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1672:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1667:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1672:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1667:/ locexp"); - basilys_assert_failed(( "check matchformal"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1667)?(1667):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1672:/ locexp"); + basilys_assert_failed(( "check matchformal"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1672)?(1672):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} ; @@ -16060,13 +16127,13 @@ BASILYS_LOCATION("warmelt-macro.melt:1629:/ block"); ; /*_.IFCPP___V43*/ curfptr[41] = /*_.IFELSE___V44*/ curfptr[43];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1667:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1672:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1667:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1672:/ clear"); /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1667:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1672:/ cppif.else"); /*_.IFCPP___V43*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -16074,15 +16141,15 @@ BASILYS_LOCATION("warmelt-macro.melt:1629:/ block"); ((/*_#NBMATINFORMALS__L6*/ curfnum[5]) - (1));; /*_.MAKE_MULTIPLE__V45*/ curfptr[43] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#I__L10*/ curfnum[7])));; - BASILYS_LOCATION("warmelt-macro.melt:1668:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1673:/ compute"); /*_.INFORMALS__V19*/ curfptr[18] = /*_.SETQ___V46*/ curfptr[45] = /*_.MAKE_MULTIPLE__V45*/ curfptr[43];; - BASILYS_LOCATION("warmelt-macro.melt:1671:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1676:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1671:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:1676:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V48*/ curfptr[47] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (1)); ; - BASILYS_LOCATION("warmelt-macro.melt:1671:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:1676:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V48*/ curfptr[47])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V48*/ curfptr[47]))); @@ -16090,128 +16157,128 @@ BASILYS_LOCATION("warmelt-macro.melt:1629:/ block"); ; /*_.LAMBDA___V47*/ curfptr[46] = /*_.LAMBDA___V48*/ curfptr[47];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1669:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1674:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1669:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1674:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V47*/ curfptr[46]; /*_.MULTIPLE_EVERY__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.MATINFORMALS__V34*/ curfptr[33]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1672:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1672:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1677:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1677:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1672:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1677:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1672:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1677:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher informals"; - BASILYS_LOCATION("warmelt-macro.melt:1672:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1677:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10]; - BASILYS_LOCATION("warmelt-macro.melt:1672:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1677:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1672:/ apply.arg"); - argtab[3].bp_long = 1672; + BASILYS_LOCATION("warmelt-macro.melt:1677:/ apply.arg"); + argtab[3].bp_long = 1677; /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.INFORMALS__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V50*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V51*/ curfptr[50];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1672:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1677:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1672:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1677:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1672:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1677:/ cppif.else"); /*_.IFCPP___V50*/ curfptr[49] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V32*/ curfptr[31] = /*_.IFCPP___V50*/ curfptr[49];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_.PAIR_HEAD__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_.MATINFORMALS__V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_#NBMATINFORMALS__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_.IF___V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_.SETQ___V38*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_.MULTIPLE_NTH__V39*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_.SETQ___V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_.IFCPP___V43*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_.MAKE_MULTIPLE__V45*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_.SETQ___V46*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_.LAMBDA___V47*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V49*/ curfptr[48] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1662:/ clear"); /*clear*/ /*_.IFCPP___V50*/ curfptr[49] = 0 ;} ; /*_.PAIR_TAIL__V52*/ curfptr[50] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1675:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1680:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V53*/ curfptr[32] = /*_.PAIR_TAIL__V52*/ curfptr[50];; /*_.PAIR_HEAD__V54*/ curfptr[33] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1676:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1681:/ apply"); /*apply*/{ /*_.LAMBDA_ARG_BINDINGS__V55*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.PAIR_HEAD__V54*/ curfptr[33]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1676:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1681:/ compute"); /*_.OUTFORMALS__V20*/ curfptr[19] = /*_.SETQ___V56*/ curfptr[35] = /*_.LAMBDA_ARG_BINDINGS__V55*/ curfptr[34];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1677:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1677:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1682:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1682:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1677:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1682:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1677:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1682:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher outformals"; - BASILYS_LOCATION("warmelt-macro.melt:1677:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1682:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10]; - BASILYS_LOCATION("warmelt-macro.melt:1677:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1682:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1677:/ apply.arg"); - argtab[3].bp_long = 1677; + BASILYS_LOCATION("warmelt-macro.melt:1682:/ apply.arg"); + argtab[3].bp_long = 1682; /*_.DEBUG_MSG_FUN__V58*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OUTFORMALS__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V57*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V58*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1677:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1682:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1677:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1682:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V58*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1677:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1682:/ cppif.else"); /*_.IFCPP___V57*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -16219,635 +16286,635 @@ BASILYS_LOCATION("warmelt-macro.melt:1629:/ block"); (basilys_magic_discr((basilys_ptr_t)(/*_.OUTFORMALS__V20*/ curfptr[19])) == OBMAG_MULTIPLE);; /*_#NOT__L14*/ curfnum[6] = (!(/*_#IS_MULTIPLE__L13*/ curfnum[5]));; - BASILYS_LOCATION("warmelt-macro.melt:1678:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1683:/ cond"); /*cond*/ if (/*_#NOT__L14*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1678:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1678:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1683:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1683:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1680:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1685:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad outs for (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1681:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1686:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1681:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1686:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1679:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1684:/ block"); /*block*/{ /*_.PROGN___V61*/ curfptr[43] = /*_.RETURN___V60*/ curfptr[41];;} ; /*_.IF___V59*/ curfptr[40] = /*_.PROGN___V61*/ curfptr[43];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1678:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1683:/ clear"); /*clear*/ /*_.RETURN___V60*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1678:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1683:/ clear"); /*clear*/ /*_.PROGN___V61*/ curfptr[43] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1678:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1683:/ cond.else"); /*_.IF___V59*/ curfptr[40] = NULL;; } ; /*_.PAIR_TAIL__V62*/ curfptr[45] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1683:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1688:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V63*/ curfptr[46] = /*_.PAIR_TAIL__V62*/ curfptr[45];; /*_.PAIR_HEAD__V64*/ curfptr[48] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1684:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1689:/ compute"); /*_.STATESYM__V21*/ curfptr[20] = /*_.SETQ___V65*/ curfptr[49] = /*_.PAIR_HEAD__V64*/ curfptr[48];; /*_#IS_NOT_A__L15*/ curfnum[7] = !basilys_is_instance_of((basilys_ptr_t)(/*_.STATESYM__V21*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:1685:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1690:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L15*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1685:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1685:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1690:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1690:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1687:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1687:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1692:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1692:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[10] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1687:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1692:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1687:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1692:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher bad statesym"; - BASILYS_LOCATION("warmelt-macro.melt:1687:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1692:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[10]; - BASILYS_LOCATION("warmelt-macro.melt:1687:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1692:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1687:/ apply.arg"); - argtab[3].bp_long = 1687; + BASILYS_LOCATION("warmelt-macro.melt:1692:/ apply.arg"); + argtab[3].bp_long = 1692; /*_.DEBUG_MSG_FUN__V68*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.STATESYM__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V67*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V68*/ curfptr[43];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1687:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1692:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1687:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1692:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V68*/ curfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1687:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1692:/ cppif.else"); /*_.IFCPP___V67*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { - BASILYS_LOCATION("warmelt-macro.melt:1688:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1693:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad statesym for (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1689:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1694:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1689:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1694:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1686:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1691:/ block"); /*block*/{ /*_.PROGN___V70*/ curfptr[69] = /*_.RETURN___V69*/ curfptr[43];;} ; /*_.IF___V66*/ curfptr[39] = /*_.PROGN___V70*/ curfptr[69];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1685:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1690:/ clear"); /*clear*/ /*_.IFCPP___V67*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1685:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1690:/ clear"); /*clear*/ /*_.RETURN___V69*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1685:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1690:/ clear"); /*clear*/ /*_.PROGN___V70*/ curfptr[69] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1685:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1690:/ cond.else"); /*_.IF___V66*/ curfptr[39] = NULL;; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1690:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1690:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1695:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1695:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[10] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1690:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1695:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1690:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1695:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher statesym"; - BASILYS_LOCATION("warmelt-macro.melt:1690:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1695:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[10]; - BASILYS_LOCATION("warmelt-macro.melt:1690:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1695:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1690:/ apply.arg"); - argtab[3].bp_long = 1690; + BASILYS_LOCATION("warmelt-macro.melt:1695:/ apply.arg"); + argtab[3].bp_long = 1695; /*_.DEBUG_MSG_FUN__V72*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.STATESYM__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V71*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V72*/ curfptr[43];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1690:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1695:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1690:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1695:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V72*/ curfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1690:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1695:/ cppif.else"); /*_.IFCPP___V71*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V73*/ curfptr[69] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1692:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1697:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V74*/ curfptr[43] = /*_.PAIR_TAIL__V73*/ curfptr[69];; - BASILYS_LOCATION("warmelt-macro.melt:1693:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1698:/ block"); /*block*/{ /*_.SEXPTEST__V76*/ curfptr[75] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1694:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1699:/ cond"); /*cond*/ if (/*_.SEXPTEST__V76*/ curfptr[75]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1694:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1694:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1699:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1699:/ block"); /*block*/{ /*_#IS_NOT_A__L19*/ curfnum[18] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPTEST__V76*/ curfptr[75]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; /*_#IF___L18*/ curfnum[10] = /*_#IS_NOT_A__L19*/ curfnum[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1694:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1699:/ clear"); /*clear*/ /*_#IS_NOT_A__L19*/ curfnum[18] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1694:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1699:/ cond.else"); /*_#IF___L18*/ curfnum[10] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:1694:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1699:/ cond"); /*cond*/ if (/*_#IF___L18*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1694:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1694:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1699:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1699:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1696:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1696:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1701:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1701:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L20*/ curfnum[18] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1696:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1701:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1696:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1701:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher bad sexptest"; - BASILYS_LOCATION("warmelt-macro.melt:1696:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1701:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[18]; - BASILYS_LOCATION("warmelt-macro.melt:1696:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1701:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1696:/ apply.arg"); - argtab[3].bp_long = 1696; + BASILYS_LOCATION("warmelt-macro.melt:1701:/ apply.arg"); + argtab[3].bp_long = 1701; /*_.DEBUG_MSG_FUN__V79*/ curfptr[78] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SEXPTEST__V76*/ curfptr[75]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V78*/ curfptr[77] = /*_.DEBUG_MSG_FUN__V79*/ curfptr[78];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1696:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1701:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1696:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1701:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V79*/ curfptr[78] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1696:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1701:/ cppif.else"); /*_.IFCPP___V78*/ curfptr[77] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { - BASILYS_LOCATION("warmelt-macro.melt:1697:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1702:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad test expansion in (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1698:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1703:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1698:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1703:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1695:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1700:/ block"); /*block*/{ /*_.PROGN___V81*/ curfptr[80] = /*_.RETURN___V80*/ curfptr[78];;} ; /*_.IFELSE___V77*/ curfptr[76] = /*_.PROGN___V81*/ curfptr[80];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1694:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1699:/ clear"); /*clear*/ /*_.IFCPP___V78*/ curfptr[77] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1694:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1699:/ clear"); /*clear*/ /*_.RETURN___V80*/ curfptr[78] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1694:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1699:/ clear"); /*clear*/ /*_.PROGN___V81*/ curfptr[80] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1694:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1699:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1694:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1699:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1699:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1704:/ cond"); /*cond*/ if (/*_.SEXPTEST__V76*/ curfptr[75]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1699:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1699:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1704:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1704:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1703:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1708:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPTEST__V76*/ curfptr[75]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V83*/ curfptr[78] = slot; }; ; /*_.LIST_FIRST__V84*/ curfptr[80] = (basilys_list_first((basilys_ptr_t)(/*_.SEXP_CONTENTS__V83*/ curfptr[78])));; - BASILYS_LOCATION("warmelt-macro.melt:1701:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1706:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1701:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1706:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LIST_FIRST__V84*/ curfptr[80]; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V85*/ curfptr[84] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_PAIRLIST_C_CODE_EXPANSION*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1700:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1705:/ compute"); /*_.EXPTEST__V22*/ curfptr[21] = /*_.SETQ___V86*/ curfptr[85] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V85*/ curfptr[84];; /*_.IF___V82*/ curfptr[77] = /*_.SETQ___V86*/ curfptr[85];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1699:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1704:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V83*/ curfptr[78] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1699:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1704:/ clear"); /*clear*/ /*_.LIST_FIRST__V84*/ curfptr[80] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1699:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1704:/ clear"); /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V85*/ curfptr[84] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1699:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1704:/ clear"); /*clear*/ /*_.SETQ___V86*/ curfptr[85] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1699:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1704:/ cond.else"); /*_.IF___V82*/ curfptr[77] = NULL;; } ; /*_.IFELSE___V77*/ curfptr[76] = /*_.IF___V82*/ curfptr[77];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1694:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1699:/ clear"); /*clear*/ /*_.IF___V82*/ curfptr[77] = 0 ;} ; } ; /*_.LET___V75*/ curfptr[74] = /*_.IFELSE___V77*/ curfptr[76];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1693:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1698:/ clear"); /*clear*/ /*_.SEXPTEST__V76*/ curfptr[75] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1693:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1698:/ clear"); /*clear*/ /*_#IF___L18*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1693:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1698:/ clear"); /*clear*/ /*_.IFELSE___V77*/ curfptr[76] = 0 ;} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1705:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1705:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1710:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1710:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L21*/ curfnum[18] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1705:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1710:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1705:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1710:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher exptest"; - BASILYS_LOCATION("warmelt-macro.melt:1705:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1710:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[18]; - BASILYS_LOCATION("warmelt-macro.melt:1705:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1710:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1705:/ apply.arg"); - argtab[3].bp_long = 1705; + BASILYS_LOCATION("warmelt-macro.melt:1710:/ apply.arg"); + argtab[3].bp_long = 1710; /*_.DEBUG_MSG_FUN__V88*/ curfptr[80] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.EXPTEST__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V87*/ curfptr[78] = /*_.DEBUG_MSG_FUN__V88*/ curfptr[80];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1705:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1710:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1705:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1710:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ curfptr[80] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1705:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1710:/ cppif.else"); /*_.IFCPP___V87*/ curfptr[78] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V89*/ curfptr[84] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1707:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1712:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V90*/ curfptr[85] = /*_.PAIR_TAIL__V89*/ curfptr[84];; - BASILYS_LOCATION("warmelt-macro.melt:1708:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1713:/ block"); /*block*/{ /*_.SEXPFILL__V92*/ curfptr[75] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1709:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1714:/ cond"); /*cond*/ if (/*_.SEXPFILL__V92*/ curfptr[75]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1709:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1709:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1714:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1714:/ block"); /*block*/{ /*_#IS_NOT_A__L23*/ curfnum[18] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPFILL__V92*/ curfptr[75]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; /*_#IF___L22*/ curfnum[10] = /*_#IS_NOT_A__L23*/ curfnum[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1709:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1714:/ clear"); /*clear*/ /*_#IS_NOT_A__L23*/ curfnum[18] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1709:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1714:/ cond.else"); /*_#IF___L22*/ curfnum[10] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:1709:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1714:/ cond"); /*cond*/ if (/*_#IF___L22*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1709:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1709:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1714:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1714:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1711:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1716:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad fill expansion in (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1712:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1717:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1712:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1717:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1710:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1715:/ block"); /*block*/{ /*_.PROGN___V95*/ curfptr[94] = /*_.RETURN___V94*/ curfptr[80];;} ; /*_.IFELSE___V93*/ curfptr[76] = /*_.PROGN___V95*/ curfptr[94];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1709:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1714:/ clear"); /*clear*/ /*_.RETURN___V94*/ curfptr[80] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1709:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1714:/ clear"); /*clear*/ /*_.PROGN___V95*/ curfptr[94] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1709:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1714:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1709:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1714:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1713:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1718:/ cond"); /*cond*/ if (/*_.SEXPFILL__V92*/ curfptr[75]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1713:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1713:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1718:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1718:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1716:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1721:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPFILL__V92*/ curfptr[75]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V97*/ curfptr[94] = slot; }; ; /*_.LIST_FIRST__V98*/ curfptr[97] = (basilys_list_first((basilys_ptr_t)(/*_.SEXP_CONTENTS__V97*/ curfptr[94])));; - BASILYS_LOCATION("warmelt-macro.melt:1715:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1720:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1715:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1720:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LIST_FIRST__V98*/ curfptr[97]; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V99*/ curfptr[98] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_PAIRLIST_C_CODE_EXPANSION*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1714:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1719:/ compute"); /*_.EXPFILL__V23*/ curfptr[22] = /*_.SETQ___V100*/ curfptr[99] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V99*/ curfptr[98];; /*_.IF___V96*/ curfptr[80] = /*_.SETQ___V100*/ curfptr[99];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1713:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1718:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V97*/ curfptr[94] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1713:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1718:/ clear"); /*clear*/ /*_.LIST_FIRST__V98*/ curfptr[97] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1713:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1718:/ clear"); /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V99*/ curfptr[98] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1713:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1718:/ clear"); /*clear*/ /*_.SETQ___V100*/ curfptr[99] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1713:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1718:/ cond.else"); /*_.IF___V96*/ curfptr[80] = NULL;; } ; /*_.IFELSE___V93*/ curfptr[76] = /*_.IF___V96*/ curfptr[80];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1709:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1714:/ clear"); /*clear*/ /*_.IF___V96*/ curfptr[80] = 0 ;} ; } ; /*_.LET___V91*/ curfptr[77] = /*_.IFELSE___V93*/ curfptr[76];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1708:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1713:/ clear"); /*clear*/ /*_.SEXPFILL__V92*/ curfptr[75] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1708:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1713:/ clear"); /*clear*/ /*_#IF___L22*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1708:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1713:/ clear"); /*clear*/ /*_.IFELSE___V93*/ curfptr[76] = 0 ;} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1718:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1718:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1723:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1723:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L24*/ curfnum[18] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1718:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1723:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1718:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1723:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher expfill"; - BASILYS_LOCATION("warmelt-macro.melt:1718:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1723:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L24*/ curfnum[18]; - BASILYS_LOCATION("warmelt-macro.melt:1718:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1723:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1718:/ apply.arg"); - argtab[3].bp_long = 1718; + BASILYS_LOCATION("warmelt-macro.melt:1723:/ apply.arg"); + argtab[3].bp_long = 1723; /*_.DEBUG_MSG_FUN__V102*/ curfptr[97] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.EXPFILL__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V101*/ curfptr[94] = /*_.DEBUG_MSG_FUN__V102*/ curfptr[97];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1718:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1723:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L24*/ curfnum[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1718:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1723:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V102*/ curfptr[97] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1718:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1723:/ cppif.else"); /*_.IFCPP___V101*/ curfptr[94] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V103*/ curfptr[98] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1720:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1725:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V104*/ curfptr[99] = /*_.PAIR_TAIL__V103*/ curfptr[98];; - BASILYS_LOCATION("warmelt-macro.melt:1721:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1726:/ block"); /*block*/{ /*_.SEXPOPER__V106*/ curfptr[75] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1722:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1727:/ cond"); /*cond*/ if (/*_.SEXPOPER__V106*/ curfptr[75]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1722:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1722:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1727:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1727:/ block"); /*block*/{ /*_#IS_NOT_A__L26*/ curfnum[18] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPOPER__V106*/ curfptr[75]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; /*_#IF___L25*/ curfnum[10] = /*_#IS_NOT_A__L26*/ curfnum[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1722:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1727:/ clear"); /*clear*/ /*_#IS_NOT_A__L26*/ curfnum[18] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1722:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1727:/ cond.else"); /*_#IF___L25*/ curfnum[10] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:1722:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1727:/ cond"); /*cond*/ if (/*_#IF___L25*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1722:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1722:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1727:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1727:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1724:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1729:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad oper expansion in (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1725:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1730:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1725:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1730:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1723:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1728:/ block"); /*block*/{ /*_.PROGN___V109*/ curfptr[108] = /*_.RETURN___V108*/ curfptr[97];;} ; /*_.IFELSE___V107*/ curfptr[76] = /*_.PROGN___V109*/ curfptr[108];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1722:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1727:/ clear"); /*clear*/ /*_.RETURN___V108*/ curfptr[97] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1722:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1727:/ clear"); /*clear*/ /*_.PROGN___V109*/ curfptr[108] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1722:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1727:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1722:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1727:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1727:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1732:/ cond"); /*cond*/ if (/*_.SEXPOPER__V106*/ curfptr[75]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1727:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1727:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1732:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1732:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1728:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1733:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPOPER__V106*/ curfptr[75]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V111*/ curfptr[108] = slot; }; ; /*_.LIST_FIRST__V112*/ curfptr[111] = (basilys_list_first((basilys_ptr_t)(/*_.SEXP_CONTENTS__V111*/ curfptr[108])));; - BASILYS_LOCATION("warmelt-macro.melt:1728:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1733:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1728:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1733:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LIST_FIRST__V112*/ curfptr[111]; /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V113*/ curfptr[112] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_PAIRLIST_C_CODE_EXPANSION*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V110*/ curfptr[97] = /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V113*/ curfptr[112];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1727:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1732:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V111*/ curfptr[108] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1727:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1732:/ clear"); /*clear*/ /*_.LIST_FIRST__V112*/ curfptr[111] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1727:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1732:/ clear"); /*clear*/ /*_.PARSE_PAIRLIST_C_CODE_EXPANSION__V113*/ curfptr[112] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1727:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1732:/ cond.else"); /*_.IF___V110*/ curfptr[97] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:1726:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1731:/ compute"); /*_.EXPOPER__V24*/ curfptr[23] = /*_.SETQ___V114*/ curfptr[108] = /*_.IF___V110*/ curfptr[97];; /*_.IFELSE___V107*/ curfptr[76] = /*_.SETQ___V114*/ curfptr[108];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1722:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1727:/ clear"); /*clear*/ /*_.IF___V110*/ curfptr[97] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1722:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1727:/ clear"); /*clear*/ /*_.SETQ___V114*/ curfptr[108] = 0 ;} ; } ; /*_.LET___V105*/ curfptr[80] = /*_.IFELSE___V107*/ curfptr[76];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1726:/ clear"); /*clear*/ /*_.SEXPOPER__V106*/ curfptr[75] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1726:/ clear"); /*clear*/ /*_#IF___L25*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1721:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1726:/ clear"); /*clear*/ /*_.IFELSE___V107*/ curfptr[76] = 0 ;} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1730:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1730:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1735:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1735:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L27*/ curfnum[18] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1730:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1735:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1730:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1735:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher expfill"; - BASILYS_LOCATION("warmelt-macro.melt:1730:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1735:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[18]; - BASILYS_LOCATION("warmelt-macro.melt:1730:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1735:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1730:/ apply.arg"); - argtab[3].bp_long = 1730; + BASILYS_LOCATION("warmelt-macro.melt:1735:/ apply.arg"); + argtab[3].bp_long = 1735; /*_.DEBUG_MSG_FUN__V116*/ curfptr[112] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.EXPOPER__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V115*/ curfptr[111] = /*_.DEBUG_MSG_FUN__V116*/ curfptr[112];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1730:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1735:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1730:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1735:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V116*/ curfptr[112] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1730:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1735:/ cppif.else"); /*_.IFCPP___V115*/ curfptr[111] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V117*/ curfptr[97] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1732:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1737:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V118*/ curfptr[108] = /*_.PAIR_TAIL__V117*/ curfptr[97];; - BASILYS_LOCATION("warmelt-macro.melt:1733:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1738:/ cond"); /*cond*/ if (/*_.CURPAIR__V15*/ curfptr[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1733:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1733:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1738:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1738:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1734:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1739:/ locexp"); basilys_warning_str(0, (basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "extra in (DEFCMATCHER <symb> <ins> <outs> <statesym> <test> <fill> <oper>)"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -16856,24 +16923,24 @@ BASILYS_LOCATION("warmelt-macro.melt:1629:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1735:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1735:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1740:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1740:/ block"); /*block*/{ /*_#IS_A__L28*/ curfnum[10] = basilys_is_instance_of((basilys_ptr_t)(/*_.MATCHFORMAL__V18*/ curfptr[17]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[5])));; - BASILYS_LOCATION("warmelt-macro.melt:1735:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1740:/ cond"); /*cond*/ if (/*_#IS_A__L28*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1735:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1740:/ cond.then"); /*_.IFELSE___V120*/ curfptr[76] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1735:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1740:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1735:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1740:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1735:/ locexp"); - basilys_assert_failed(( "check matchformal again"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1735)?(1735):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1740:/ locexp"); + basilys_assert_failed(( "check matchformal again"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1740)?(1740):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V120*/ curfptr[76] = 0 ;} ; @@ -16883,113 +16950,113 @@ BASILYS_LOCATION("warmelt-macro.melt:1629:/ block"); ; /*_.IFCPP___V119*/ curfptr[75] = /*_.IFELSE___V120*/ curfptr[76];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1735:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1740:/ clear"); /*clear*/ /*_#IS_A__L28*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1735:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1740:/ clear"); /*clear*/ /*_.IFELSE___V120*/ curfptr[76] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1735:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1740:/ cppif.else"); /*_.IFCPP___V119*/ curfptr[75] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1739:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1744:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V122*/ curfptr[76] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1738:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1743:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1738:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1743:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_CMATCHER*/ curfrout->tabval[10])), (9), "CLASS_CMATCHER");/*_.INST__V124*/ curfptr[123] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1738:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1743:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123]))));basilys_putfield_object((/*_.INST__V124*/ curfptr[123]), (1), (/*_.NAMED_NAME__V122*/ curfptr[76]), "NAMED_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:1738:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1743:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123]))));basilys_putfield_object((/*_.INST__V124*/ curfptr[123]), (2), (/*_.INFORMALS__V19*/ curfptr[18]), "AMATCH_IN"); ; - BASILYS_LOCATION("warmelt-macro.melt:1738:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1743:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123]))));basilys_putfield_object((/*_.INST__V124*/ curfptr[123]), (3), (/*_.MATCHFORMAL__V18*/ curfptr[17]), "AMATCH_MATCHBIND"); ; - BASILYS_LOCATION("warmelt-macro.melt:1738:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1743:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123]))));basilys_putfield_object((/*_.INST__V124*/ curfptr[123]), (4), (/*_.OUTFORMALS__V20*/ curfptr[19]), "AMATCH_OUT"); ; - BASILYS_LOCATION("warmelt-macro.melt:1738:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1743:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123]))));basilys_putfield_object((/*_.INST__V124*/ curfptr[123]), (5), (/*_.STATESYM__V21*/ curfptr[20]), "CMATCH_STATE"); ; - BASILYS_LOCATION("warmelt-macro.melt:1738:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1743:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123]))));basilys_putfield_object((/*_.INST__V124*/ curfptr[123]), (6), (/*_.EXPTEST__V22*/ curfptr[21]), "CMATCH_EXPTEST"); ; - BASILYS_LOCATION("warmelt-macro.melt:1738:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1743:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123]))));basilys_putfield_object((/*_.INST__V124*/ curfptr[123]), (7), (/*_.EXPFILL__V23*/ curfptr[22]), "CMATCH_EXPFILL"); ; - BASILYS_LOCATION("warmelt-macro.melt:1738:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1743:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V124*/ curfptr[123]))));basilys_putfield_object((/*_.INST__V124*/ curfptr[123]), (8), (/*_.EXPOPER__V24*/ curfptr[23]), "CMATCH_EXPOPER"); ; /*_.CMATCH__V123*/ curfptr[122] = /*_.INST__V124*/ curfptr[123];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1748:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1753:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1748:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1753:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_DEFCMATCHER*/ curfrout->tabval[11])), (4), "CLASS_SRC_DEFCMATCHER");/*_.INST__V126*/ curfptr[125] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1748:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1753:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V126*/ curfptr[125])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V126*/ curfptr[125]))));basilys_putfield_object((/*_.INST__V126*/ curfptr[125]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:1748:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1753:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V126*/ curfptr[125])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V126*/ curfptr[125]))));basilys_putfield_object((/*_.INST__V126*/ curfptr[125]), (1), (/*_.SYMB__V16*/ curfptr[15]), "SDEF_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:1748:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1753:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V126*/ curfptr[125])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V126*/ curfptr[125]))));basilys_putfield_object((/*_.INST__V126*/ curfptr[125]), (2), (/*_.SFORMALS__V17*/ curfptr[16]), "SFORMAL_ARGS"); ; - BASILYS_LOCATION("warmelt-macro.melt:1748:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1753:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V126*/ curfptr[125])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V126*/ curfptr[125]))));basilys_putfield_object((/*_.INST__V126*/ curfptr[125]), (3), (/*_.CMATCH__V123*/ curfptr[122]), "SCMATDEF_CMATCHER"); ; /*_.SDEFCMATCH__V125*/ curfptr[124] = /*_.INST__V126*/ curfptr[125];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1753:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1758:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1753:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1758:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_CMATCHER_BINDING*/ curfrout->tabval[12])), (3), "CLASS_CMATCHER_BINDING");/*_.INST__V128*/ curfptr[127] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1753:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1758:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V128*/ curfptr[127])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V128*/ curfptr[127]))));basilys_putfield_object((/*_.INST__V128*/ curfptr[127]), (0), (/*_.SYMB__V16*/ curfptr[15]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:1753:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1758:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V128*/ curfptr[127])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V128*/ curfptr[127]))));basilys_putfield_object((/*_.INST__V128*/ curfptr[127]), (2), (/*_.CMATCH__V123*/ curfptr[122]), "CMBIND_MATCHER"); @@ -17010,24 +17077,24 @@ BASILYS_LOCATION("warmelt-macro.melt:1629:/ block"); (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[13])), (/*_#I__L33*/ curfnum[32])));; { - BASILYS_LOCATION("warmelt-macro.melt:1763:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1768:/ locexp"); basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V129*/ curfptr[128]), (basilysobject_ptr_t) (/*_.STATESYM__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.STATESYM__V21*/ curfptr[20]));} ; - BASILYS_LOCATION("warmelt-macro.melt:1764:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1769:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.MATCHFORMAL__V18*/ curfptr[17]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[14])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1764:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1764:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1769:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1769:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MATCHFORMAL__V18*/ curfptr[17]), 0, "BINDER");/*_.BINDER__V130*/ curfptr[129] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1764:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1769:/ cond.else"); /*_.BINDER__V130*/ curfptr[129] = NULL;; } ; { - BASILYS_LOCATION("warmelt-macro.melt:1764:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1769:/ locexp"); basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V129*/ curfptr[128]), (basilysobject_ptr_t) (/*_.BINDER__V130*/ curfptr[129]), (basilys_ptr_t)(/*_.MATCHFORMAL__V18*/ curfptr[17]));} ; /*citerblock FOREACH_IN_MULTIPLE*/ { @@ -17040,24 +17107,24 @@ for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1768:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1768:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1773:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1773:/ block"); /*block*/{ /*_#IS_A__L35*/ curfnum[34] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURIBIND__V131*/ curfptr[130]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[5])));; - BASILYS_LOCATION("warmelt-macro.melt:1768:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1773:/ cond"); /*cond*/ if (/*_#IS_A__L35*/ curfnum[34]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1768:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1773:/ cond.then"); /*_.IFELSE___V133*/ curfptr[132] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1768:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1773:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1768:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1773:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1768:/ locexp"); - basilys_assert_failed(( "check input curibind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1768)?(1768):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1773:/ locexp"); + basilys_assert_failed(( "check input curibind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1773)?(1773):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V133*/ curfptr[132] = 0 ;} ; @@ -17067,43 +17134,43 @@ for (cit1__EACHTUP_ix = 0; cit1__EACHTUP_ix < cit1__EACHTUP_ln; cit1__EACHTUP_ix ; /*_.IFCPP___V132*/ curfptr[131] = /*_.IFELSE___V133*/ curfptr[132];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1768:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1773:/ clear"); /*clear*/ /*_#IS_A__L35*/ curfnum[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1768:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1773:/ clear"); /*clear*/ /*_.IFELSE___V133*/ curfptr[132] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1768:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1773:/ cppif.else"); /*_.IFCPP___V132*/ curfptr[131] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1769:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1774:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.CURIBIND__V131*/ curfptr[130]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[14])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1769:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1769:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1774:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1774:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURIBIND__V131*/ curfptr[130]), 0, "BINDER");/*_.BINDER__V134*/ curfptr[132] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1769:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1774:/ cond.else"); /*_.BINDER__V134*/ curfptr[132] = NULL;; } ; { - BASILYS_LOCATION("warmelt-macro.melt:1769:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1774:/ locexp"); basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V129*/ curfptr[128]), (basilysobject_ptr_t) (/*_.BINDER__V134*/ curfptr[132]), (basilys_ptr_t)(/*_.CURIBIND__V131*/ curfptr[130]));} ; } /* end cit1__EACHTUP*/ /*citerepilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1765:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1770:/ clear"); /*clear*/ /*_.CURIBIND__V131*/ curfptr[130] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1765:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1770:/ clear"); /*clear*/ /*_#IBIX__L34*/ curfnum[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1765:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1770:/ clear"); /*clear*/ /*_.IFCPP___V132*/ curfptr[131] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1765:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1770:/ clear"); /*clear*/ /*_.BINDER__V134*/ curfptr[132] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; /*citerblock FOREACH_IN_MULTIPLE*/ { @@ -17116,24 +17183,24 @@ for (cit2__EACHTUP_ix = 0; cit2__EACHTUP_ix < cit2__EACHTUP_ln; cit2__EACHTUP_ix #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1773:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1773:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1778:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1778:/ block"); /*block*/{ /*_#IS_A__L37*/ curfnum[36] = basilys_is_instance_of((basilys_ptr_t)(/*_.CUROBIND__V135*/ curfptr[134]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[5])));; - BASILYS_LOCATION("warmelt-macro.melt:1773:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1778:/ cond"); /*cond*/ if (/*_#IS_A__L37*/ curfnum[36]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1773:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1778:/ cond.then"); /*_.IFELSE___V137*/ curfptr[136] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1773:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1778:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1773:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1778:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1773:/ locexp"); - basilys_assert_failed(( "check output curbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1773)?(1773):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1778:/ locexp"); + basilys_assert_failed(( "check output curbind"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1778)?(1778):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V137*/ curfptr[136] = 0 ;} ; @@ -17143,285 +17210,285 @@ for (cit2__EACHTUP_ix = 0; cit2__EACHTUP_ix < cit2__EACHTUP_ln; cit2__EACHTUP_ix ; /*_.IFCPP___V136*/ curfptr[135] = /*_.IFELSE___V137*/ curfptr[136];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1773:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1778:/ clear"); /*clear*/ /*_#IS_A__L37*/ curfnum[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1773:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1778:/ clear"); /*clear*/ /*_.IFELSE___V137*/ curfptr[136] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1773:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1778:/ cppif.else"); /*_.IFCPP___V136*/ curfptr[135] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1774:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1779:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.CUROBIND__V135*/ curfptr[134]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[14])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1774:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1774:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1779:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1779:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CUROBIND__V135*/ curfptr[134]), 0, "BINDER");/*_.BINDER__V138*/ curfptr[136] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1774:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1779:/ cond.else"); /*_.BINDER__V138*/ curfptr[136] = NULL;; } ; { - BASILYS_LOCATION("warmelt-macro.melt:1774:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1779:/ locexp"); basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SUBSTMAP__V129*/ curfptr[128]), (basilysobject_ptr_t) (/*_.BINDER__V138*/ curfptr[136]), (basilys_ptr_t)(/*_.CUROBIND__V135*/ curfptr[134]));} ; } /* end cit2__EACHTUP*/ /*citerepilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1770:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1775:/ clear"); /*clear*/ /*_.CUROBIND__V135*/ curfptr[134] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1770:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1775:/ clear"); /*clear*/ /*_#OBIX__L36*/ curfnum[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1770:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1775:/ clear"); /*clear*/ /*_.IFCPP___V136*/ curfptr[135] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1770:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1775:/ clear"); /*clear*/ /*_.BINDER__V138*/ curfptr[136] = 0 ;} /*endciterblock FOREACH_IN_MULTIPLE*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1776:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1781:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1776:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1781:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.melt:1776:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1781:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SUBSTMAP__V129*/ curfptr[128]; /*_.CHECK_C_EXPANSION__V139*/ curfptr[138] = basilys_apply ((basilysclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.EXPTEST__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1777:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1782:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1777:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1782:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.melt:1777:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1782:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SUBSTMAP__V129*/ curfptr[128]; /*_.CHECK_C_EXPANSION__V140*/ curfptr[139] = basilys_apply ((basilysclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.EXPFILL__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1778:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1783:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1778:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1783:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.melt:1778:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1783:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SUBSTMAP__V129*/ curfptr[128]; /*_.CHECK_C_EXPANSION__V141*/ curfptr[140] = basilys_apply ((basilysclosure_ptr_t)((/*!CHECK_C_EXPANSION*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.EXPOPER__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1779:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1779:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1784:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1784:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L38*/ curfnum[36] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1779:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1784:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1779:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1784:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defcmatcher sdefcmatch"; - BASILYS_LOCATION("warmelt-macro.melt:1779:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1784:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L38*/ curfnum[36]; - BASILYS_LOCATION("warmelt-macro.melt:1779:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1784:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1779:/ apply.arg"); - argtab[3].bp_long = 1779; + BASILYS_LOCATION("warmelt-macro.melt:1784:/ apply.arg"); + argtab[3].bp_long = 1784; /*_.DEBUG_MSG_FUN__V143*/ curfptr[142] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SDEFCMATCH__V125*/ curfptr[124]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V142*/ curfptr[141] = /*_.DEBUG_MSG_FUN__V143*/ curfptr[142];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1779:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1784:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L38*/ curfnum[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1779:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1784:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V143*/ curfptr[142] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1779:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1784:/ cppif.else"); /*_.IFCPP___V142*/ curfptr[141] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1780:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1785:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1780:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1785:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CMBIND__V127*/ curfptr[126]; /*_.PUT_ENV__V144*/ curfptr[142] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1781:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1786:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SDEFCMATCH__V125*/ curfptr[124];; - BASILYS_LOCATION("warmelt-macro.melt:1781:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1786:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V121*/ curfptr[112] = /*_.RETURN___V145*/ curfptr[144];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_.NAMED_NAME__V122*/ curfptr[76] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_.CMATCH__V123*/ curfptr[122] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_.SDEFCMATCH__V125*/ curfptr[124] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_.CMBIND__V127*/ curfptr[126] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L29*/ curfnum[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L30*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_#I__L31*/ curfnum[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_#I__L32*/ curfnum[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_#I__L33*/ curfnum[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_.SUBSTMAP__V129*/ curfptr[128] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_.BINDER__V130*/ curfptr[129] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_.CHECK_C_EXPANSION__V139*/ curfptr[138] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_.CHECK_C_EXPANSION__V140*/ curfptr[139] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_.CHECK_C_EXPANSION__V141*/ curfptr[140] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_.IFCPP___V142*/ curfptr[141] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_.PUT_ENV__V144*/ curfptr[142] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1737:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1742:/ clear"); /*clear*/ /*_.RETURN___V145*/ curfptr[144] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V121*/ curfptr[112];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.SYMB__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.SFORMALS__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.MATCHFORMAL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.INFORMALS__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.OUTFORMALS__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.STATESYM__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.EXPTEST__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.EXPFILL__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.EXPOPER__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.IF___V27*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.PAIR_TAIL__V52*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.SETQ___V53*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.PAIR_HEAD__V54*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V55*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.SETQ___V56*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.IFCPP___V57*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L13*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_#NOT__L14*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.IF___V59*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.PAIR_TAIL__V62*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.SETQ___V63*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.PAIR_HEAD__V64*/ curfptr[48] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.SETQ___V65*/ curfptr[49] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_#IS_NOT_A__L15*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.IF___V66*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.IFCPP___V71*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.PAIR_TAIL__V73*/ curfptr[69] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.SETQ___V74*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.LET___V75*/ curfptr[74] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.IFCPP___V87*/ curfptr[78] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.PAIR_TAIL__V89*/ curfptr[84] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.SETQ___V90*/ curfptr[85] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.LET___V91*/ curfptr[77] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.IFCPP___V101*/ curfptr[94] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.PAIR_TAIL__V103*/ curfptr[98] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.SETQ___V104*/ curfptr[99] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.LET___V105*/ curfptr[80] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.IFCPP___V115*/ curfptr[111] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.PAIR_TAIL__V117*/ curfptr[97] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.SETQ___V118*/ curfptr[108] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.IFCPP___V119*/ curfptr[75] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1638:/ clear"); /*clear*/ /*_.LET___V121*/ curfptr[112] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1629:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:1629:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1629:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1629:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1629:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1629:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -17482,41 +17549,41 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1671:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1676:/ getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1671:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1676:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1671:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1676:/ block"); /*block*/{ /*_#I__L2*/ curfnum[1] = ((/*_#IX__L1*/ curfnum[0]) > (0));; - BASILYS_LOCATION("warmelt-macro.melt:1671:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1676:/ cond"); /*cond*/ if (/*_#I__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1671:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1671:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1676:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1676:/ block"); /*block*/{ /*_#I__L3*/ curfnum[2] = ((/*_#IX__L1*/ curfnum[0]) - (1));; { - BASILYS_LOCATION("warmelt-macro.melt:1671:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1676:/ locexp"); basilysgc_multiple_put_nth((basilys_ptr_t)((/*~INFORMALS*/ curfclos->tabval[0])), (/*_#I__L3*/ curfnum[2]), (basilys_ptr_t)(/*_.COMP__V2*/ curfptr[1]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1671:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1676:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1671:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1676:/ clear"); /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;} ; @@ -17577,18 +17644,18 @@ basilys_trace_start("MEXPAND_DEFUNMATCHER", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1788:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1788:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:1788:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -17597,62 +17664,62 @@ basilys_trace_start("MEXPAND_DEFUNMATCHER", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1788:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1793:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1789:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1789:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1794:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1794:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1789:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1794:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1789:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1794:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:1789:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1794:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1789:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1794:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1789:/ apply.arg"); - argtab[3].bp_long = 1789; + BASILYS_LOCATION("warmelt-macro.melt:1794:/ apply.arg"); + argtab[3].bp_long = 1794; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1794:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1794:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1789:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1794:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1790:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1790:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1795:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1795:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1790:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1795:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1790:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1795:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1790:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1795:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1790:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1795:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1790:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1790)?(1790):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1795:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1795)?(1795):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -17662,36 +17729,36 @@ BASILYS_LOCATION("warmelt-macro.melt:1788:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1790:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1795:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1790:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1795:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1790:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1795:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1791:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1791:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1796:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1796:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:1791:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1796:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1791:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1796:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1791:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1796:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1791:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1796:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1791:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1791)?(1791):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1796:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1796)?(1796):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; @@ -17701,23 +17768,23 @@ BASILYS_LOCATION("warmelt-macro.melt:1788:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1791:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1796:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1791:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1796:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1791:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1796:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1792:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1793:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1798:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -17736,82 +17803,82 @@ BASILYS_LOCATION("warmelt-macro.melt:1788:/ block"); /*_.DATAX__V23*/ curfptr[22] = (/*nil*/NULL);; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1806:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1806:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1811:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1811:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1806:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1811:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1806:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1811:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher symb"; - BASILYS_LOCATION("warmelt-macro.melt:1806:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1811:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1806:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1811:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1806:/ apply.arg"); - argtab[3].bp_long = 1806; + BASILYS_LOCATION("warmelt-macro.melt:1811:/ apply.arg"); + argtab[3].bp_long = 1811; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V24*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1811:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1811:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1806:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1811:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_NOT_A__L5*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:1807:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1812:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1807:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1807:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1812:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1812:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1809:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1814:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "symbol expected for (DEFUNMATCHER <symb> <ins> <outs> <matchfun> <applyfun> [<data>])"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1812:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1817:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1812:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1817:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1808:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1813:/ block"); /*block*/{ /*_.PROGN___V28*/ curfptr[27] = /*_.RETURN___V27*/ curfptr[26];;} ; /*_.IF___V26*/ curfptr[24] = /*_.PROGN___V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1807:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1812:/ clear"); /*clear*/ /*_.RETURN___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1807:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1812:/ clear"); /*clear*/ /*_.PROGN___V28*/ curfptr[27] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1807:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1812:/ cond.else"); /*_.IF___V26*/ curfptr[24] = NULL;; } ; /*_.PAIR_TAIL__V29*/ curfptr[26] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1813:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1818:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V30*/ curfptr[27] = /*_.PAIR_TAIL__V29*/ curfptr[26];; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ block"); /*block*/{ /*_.PAIR_HEAD__V32*/ curfptr[31] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ apply"); /*apply*/{ /*_.MATINFORMALS__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.PAIR_HEAD__V32*/ curfptr[31]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } @@ -17820,76 +17887,76 @@ BASILYS_LOCATION("warmelt-macro.melt:1788:/ block"); (basilys_multiple_length((basilys_ptr_t)(/*_.MATINFORMALS__V33*/ curfptr[32])));; /*_#I__L7*/ curfnum[6] = ((/*_#NBMATINFORMALS__L6*/ curfnum[5]) < (1));; - BASILYS_LOCATION("warmelt-macro.melt:1818:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1823:/ cond"); /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1818:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1818:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1823:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1823:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1820:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1825:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "empty ins for (DEFUNMATCHER <symb> <ins> <outs> <matchfun> <applyfun> [<data>])"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1821:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1826:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1821:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1826:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1819:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1824:/ block"); /*block*/{ /*_.PROGN___V36*/ curfptr[35] = /*_.RETURN___V35*/ curfptr[34];;} ; /*_.IF___V34*/ curfptr[33] = /*_.PROGN___V36*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1818:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1823:/ clear"); /*clear*/ /*_.RETURN___V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1818:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1823:/ clear"); /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1818:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1823:/ cond.else"); /*_.IF___V34*/ curfptr[33] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:1822:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1827:/ compute"); /*_.SFORMALS__V17*/ curfptr[16] = /*_.SETQ___V37*/ curfptr[34] = /*_.MATINFORMALS__V33*/ curfptr[32];; /*_.MULTIPLE_NTH__V38*/ curfptr[35] = (basilys_multiple_nth((basilys_ptr_t)(/*_.MATINFORMALS__V33*/ curfptr[32]), (0)));; - BASILYS_LOCATION("warmelt-macro.melt:1823:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1828:/ compute"); /*_.MATCHFORMAL__V18*/ curfptr[17] = /*_.SETQ___V39*/ curfptr[38] = /*_.MULTIPLE_NTH__V38*/ curfptr[35];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1824:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1824:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1829:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1829:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1824:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1829:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1824:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1829:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher matchformal"; - BASILYS_LOCATION("warmelt-macro.melt:1824:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1829:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.melt:1824:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1829:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1824:/ apply.arg"); - argtab[3].bp_long = 1824; + BASILYS_LOCATION("warmelt-macro.melt:1829:/ apply.arg"); + argtab[3].bp_long = 1829; /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MATCHFORMAL__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V40*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1829:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1829:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1824:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1829:/ cppif.else"); /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; @@ -17897,15 +17964,15 @@ BASILYS_LOCATION("warmelt-macro.melt:1788:/ block"); ((/*_#NBMATINFORMALS__L6*/ curfnum[5]) - (1));; /*_.MAKE_MULTIPLE__V42*/ curfptr[40] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#I__L9*/ curfnum[7])));; - BASILYS_LOCATION("warmelt-macro.melt:1825:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1830:/ compute"); /*_.INFORMALS__V19*/ curfptr[18] = /*_.SETQ___V43*/ curfptr[42] = /*_.MAKE_MULTIPLE__V42*/ curfptr[40];; - BASILYS_LOCATION("warmelt-macro.melt:1828:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1833:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1828:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:1833:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V45*/ curfptr[44] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1)); ; - BASILYS_LOCATION("warmelt-macro.melt:1828:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:1833:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V45*/ curfptr[44])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V45*/ curfptr[44]))); @@ -17913,173 +17980,173 @@ BASILYS_LOCATION("warmelt-macro.melt:1788:/ block"); ; /*_.LAMBDA___V44*/ curfptr[43] = /*_.LAMBDA___V45*/ curfptr[44];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1826:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1831:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1826:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1831:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V44*/ curfptr[43]; /*_.MULTIPLE_EVERY__V46*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.MATINFORMALS__V33*/ curfptr[32]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1829:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1829:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1834:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1834:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1829:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1834:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1829:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1834:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher informals"; - BASILYS_LOCATION("warmelt-macro.melt:1829:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1834:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9]; - BASILYS_LOCATION("warmelt-macro.melt:1829:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1834:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1829:/ apply.arg"); - argtab[3].bp_long = 1829; + BASILYS_LOCATION("warmelt-macro.melt:1834:/ apply.arg"); + argtab[3].bp_long = 1834; /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.INFORMALS__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V47*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1829:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1834:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1829:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1834:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1829:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1834:/ cppif.else"); /*_.IFCPP___V47*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V31*/ curfptr[30] = /*_.IFCPP___V47*/ curfptr[46];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_.PAIR_HEAD__V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_.MATINFORMALS__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_#NBMATINFORMALS__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_.IF___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_.SETQ___V37*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_.MULTIPLE_NTH__V38*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_.SETQ___V39*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_.MAKE_MULTIPLE__V42*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_.SETQ___V43*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_.LAMBDA___V44*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V46*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1820:/ clear"); /*clear*/ /*_.IFCPP___V47*/ curfptr[46] = 0 ;} ; /*_.PAIR_TAIL__V49*/ curfptr[47] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1832:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1837:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V50*/ curfptr[31] = /*_.PAIR_TAIL__V49*/ curfptr[47];; /*_.PAIR_HEAD__V51*/ curfptr[32] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1833:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1838:/ apply"); /*apply*/{ /*_.LAMBDA_ARG_BINDINGS__V52*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.PAIR_HEAD__V51*/ curfptr[32]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1833:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1838:/ compute"); /*_.OUTFORMALS__V20*/ curfptr[19] = /*_.SETQ___V53*/ curfptr[34] = /*_.LAMBDA_ARG_BINDINGS__V52*/ curfptr[33];; /*_#IS_MULTIPLE__L11*/ curfnum[9] = (basilys_magic_discr((basilys_ptr_t)(/*_.OUTFORMALS__V20*/ curfptr[19])) == OBMAG_MULTIPLE);; /*_#NOT__L12*/ curfnum[5] = (!(/*_#IS_MULTIPLE__L11*/ curfnum[9]));; - BASILYS_LOCATION("warmelt-macro.melt:1834:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1839:/ cond"); /*cond*/ if (/*_#NOT__L12*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1834:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1834:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1839:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1839:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1836:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1841:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad outs for (DEFUNMATCHER <symb> <ins> <outs> <matchfun> <applyfun> [<data>])"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1837:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1842:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:1837:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1842:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1835:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1840:/ block"); /*block*/{ /*_.PROGN___V56*/ curfptr[39] = /*_.RETURN___V55*/ curfptr[38];;} ; /*_.IF___V54*/ curfptr[35] = /*_.PROGN___V56*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1834:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1839:/ clear"); /*clear*/ /*_.RETURN___V55*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1834:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1839:/ clear"); /*clear*/ /*_.PROGN___V56*/ curfptr[39] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1834:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1839:/ cond.else"); /*_.IF___V54*/ curfptr[35] = NULL;; } ; /*_.PAIR_TAIL__V57*/ curfptr[40] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1839:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1844:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V58*/ curfptr[42] = /*_.PAIR_TAIL__V57*/ curfptr[40];; - BASILYS_LOCATION("warmelt-macro.melt:1840:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1845:/ block"); /*block*/{ /*_.MFA__V60*/ curfptr[45] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1841:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1846:/ cond"); /*cond*/ if (/*_.MFA__V60*/ curfptr[45]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1841:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1841:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1846:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1846:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1842:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1847:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1842:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1847:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:1842:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1847:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V62*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.MFA__V60*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1842:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1847:/ compute"); /*_.MATCHFUNX__V21*/ curfptr[20] = /*_.SETQ___V63*/ curfptr[39] = /*_.MACROEXPAND_1__V62*/ curfptr[38];; /*_.IFELSE___V61*/ curfptr[46] = /*_.SETQ___V63*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1841:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1846:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V62*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1841:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1846:/ clear"); /*clear*/ /*_.SETQ___V63*/ curfptr[39] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1841:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1846:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1841:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1846:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1843:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1848:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad matchfun for (DEFUNMATCHER <symb> <ins> <outs> <matchfun> <applyfun> [<data>])"), (basilys_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V61*/ curfptr[46] = 0 ;} @@ -18090,86 +18157,86 @@ BASILYS_LOCATION("warmelt-macro.melt:1788:/ block"); ; /*_.LET___V59*/ curfptr[43] = /*_.IFELSE___V61*/ curfptr[46];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1840:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1845:/ clear"); /*clear*/ /*_.MFA__V60*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1840:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1845:/ clear"); /*clear*/ /*_.IFELSE___V61*/ curfptr[46] = 0 ;} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1845:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1845:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1850:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1850:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1845:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1850:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1845:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1850:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher matchfunx"; - BASILYS_LOCATION("warmelt-macro.melt:1845:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1850:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.melt:1845:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1850:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1845:/ apply.arg"); - argtab[3].bp_long = 1845; + BASILYS_LOCATION("warmelt-macro.melt:1850:/ apply.arg"); + argtab[3].bp_long = 1850; /*_.DEBUG_MSG_FUN__V65*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MATCHFUNX__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V64*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1850:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1845:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1850:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1845:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1850:/ cppif.else"); /*_.IFCPP___V64*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V66*/ curfptr[45] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1847:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1852:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V67*/ curfptr[46] = /*_.PAIR_TAIL__V66*/ curfptr[45];; - BASILYS_LOCATION("warmelt-macro.melt:1848:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1853:/ block"); /*block*/{ /*_.AFA__V69*/ curfptr[68] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1849:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1854:/ cond"); /*cond*/ if (/*_.AFA__V69*/ curfptr[68]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1849:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1849:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1854:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1854:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1850:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1855:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1850:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1855:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:1850:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1855:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V71*/ curfptr[70] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.AFA__V69*/ curfptr[68]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1850:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1855:/ compute"); /*_.APPLYFUNX__V22*/ curfptr[21] = /*_.SETQ___V72*/ curfptr[71] = /*_.MACROEXPAND_1__V71*/ curfptr[70];; /*_.IFELSE___V70*/ curfptr[69] = /*_.SETQ___V72*/ curfptr[71];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1849:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1854:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V71*/ curfptr[70] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1849:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1854:/ clear"); /*clear*/ /*_.SETQ___V72*/ curfptr[71] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1849:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1854:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1849:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1854:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1851:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1856:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad applyfun for (DEFUNMATCHER <symb> <ins> <outs> <matchfun> <applyfun> [<data>])"), (basilys_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V70*/ curfptr[69] = 0 ;} @@ -18180,504 +18247,504 @@ BASILYS_LOCATION("warmelt-macro.melt:1788:/ block"); ; /*_.LET___V68*/ curfptr[39] = /*_.IFELSE___V70*/ curfptr[69];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1848:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1853:/ clear"); /*clear*/ /*_.AFA__V69*/ curfptr[68] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1848:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1853:/ clear"); /*clear*/ /*_.IFELSE___V70*/ curfptr[69] = 0 ;} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1853:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1853:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1858:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1858:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1853:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1858:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1853:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1858:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher applyfunx"; - BASILYS_LOCATION("warmelt-macro.melt:1853:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1858:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.melt:1853:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1858:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1853:/ apply.arg"); - argtab[3].bp_long = 1853; + BASILYS_LOCATION("warmelt-macro.melt:1858:/ apply.arg"); + argtab[3].bp_long = 1858; /*_.DEBUG_MSG_FUN__V74*/ curfptr[71] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.APPLYFUNX__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V73*/ curfptr[70] = /*_.DEBUG_MSG_FUN__V74*/ curfptr[71];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1853:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1858:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1853:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1858:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V74*/ curfptr[71] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1853:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1858:/ cppif.else"); /*_.IFCPP___V73*/ curfptr[70] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V75*/ curfptr[68] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1855:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1860:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V76*/ curfptr[69] = /*_.PAIR_TAIL__V75*/ curfptr[68];; - BASILYS_LOCATION("warmelt-macro.melt:1856:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1861:/ block"); /*block*/{ /*_.DTA__V78*/ curfptr[77] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1857:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1862:/ cond"); /*cond*/ if (/*_.DTA__V78*/ curfptr[77]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1857:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1857:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1862:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1862:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1858:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1863:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1858:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1863:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:1858:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1863:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V80*/ curfptr[79] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.DTA__V78*/ curfptr[77]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1858:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1863:/ compute"); /*_.DATAX__V23*/ curfptr[22] = /*_.SETQ___V81*/ curfptr[80] = /*_.MACROEXPAND_1__V80*/ curfptr[79];; /*_.IF___V79*/ curfptr[78] = /*_.SETQ___V81*/ curfptr[80];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1857:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1862:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V80*/ curfptr[79] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1857:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1862:/ clear"); /*clear*/ /*_.SETQ___V81*/ curfptr[80] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1857:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1862:/ cond.else"); /*_.IF___V79*/ curfptr[78] = NULL;; } ; /*_.LET___V77*/ curfptr[71] = /*_.IF___V79*/ curfptr[78];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1856:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1861:/ clear"); /*clear*/ /*_.DTA__V78*/ curfptr[77] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1856:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1861:/ clear"); /*clear*/ /*_.IF___V79*/ curfptr[78] = 0 ;} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1861:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1861:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1866:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1866:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1861:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1866:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1861:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1866:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher datax"; - BASILYS_LOCATION("warmelt-macro.melt:1861:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1866:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.melt:1861:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1866:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1861:/ apply.arg"); - argtab[3].bp_long = 1861; + BASILYS_LOCATION("warmelt-macro.melt:1866:/ apply.arg"); + argtab[3].bp_long = 1866; /*_.DEBUG_MSG_FUN__V83*/ curfptr[80] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.DATAX__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V82*/ curfptr[79] = /*_.DEBUG_MSG_FUN__V83*/ curfptr[80];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1861:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1866:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1861:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1866:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V83*/ curfptr[80] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1861:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1866:/ cppif.else"); /*_.IFCPP___V82*/ curfptr[79] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V84*/ curfptr[77] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1863:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1868:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V85*/ curfptr[78] = /*_.PAIR_TAIL__V84*/ curfptr[77];; - BASILYS_LOCATION("warmelt-macro.melt:1864:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1869:/ cond"); /*cond*/ if (/*_.CURPAIR__V15*/ curfptr[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1864:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1864:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1869:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1869:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1865:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1870:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "extra for (DEFUNMATCHER <symb> <ins> <outs> <matchfun> <applyfun> [<data>])"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1866:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1871:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1870:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1875:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1870:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1875:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_DEFUNMATCHER*/ curfrout->tabval[9])), (8), "CLASS_SRC_DEFUNMATCHER");/*_.INST__V88*/ curfptr[87] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1870:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1875:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87]))));basilys_putfield_object((/*_.INST__V88*/ curfptr[87]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:1870:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1875:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87]))));basilys_putfield_object((/*_.INST__V88*/ curfptr[87]), (1), (/*_.SYMB__V16*/ curfptr[15]), "SDEF_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:1870:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1875:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87]))));basilys_putfield_object((/*_.INST__V88*/ curfptr[87]), (2), (/*_.SFORMALS__V17*/ curfptr[16]), "SFORMAL_ARGS"); ; - BASILYS_LOCATION("warmelt-macro.melt:1870:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1875:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87]))));basilys_putfield_object((/*_.INST__V88*/ curfptr[87]), (3), (/*_.INFORMALS__V19*/ curfptr[18]), "SFUMATDEF_INS"); ; - BASILYS_LOCATION("warmelt-macro.melt:1870:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1875:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87]))));basilys_putfield_object((/*_.INST__V88*/ curfptr[87]), (4), (/*_.OUTFORMALS__V20*/ curfptr[19]), "SFUMATDEF_OUTS"); ; - BASILYS_LOCATION("warmelt-macro.melt:1870:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1875:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87]))));basilys_putfield_object((/*_.INST__V88*/ curfptr[87]), (5), (/*_.MATCHFUNX__V21*/ curfptr[20]), "SFUMATDEF_MATCHF"); ; - BASILYS_LOCATION("warmelt-macro.melt:1870:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1875:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87]))));basilys_putfield_object((/*_.INST__V88*/ curfptr[87]), (6), (/*_.APPLYFUNX__V22*/ curfptr[21]), "SFUMATDEF_APPLYF"); ; - BASILYS_LOCATION("warmelt-macro.melt:1870:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1875:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V88*/ curfptr[87]))));basilys_putfield_object((/*_.INST__V88*/ curfptr[87]), (7), (/*_.DATAX__V23*/ curfptr[22]), "SFUMATDEF_DATA"); ; /*_.SDFUM__V87*/ curfptr[86] = /*_.INST__V88*/ curfptr[87];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1881:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1886:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V89*/ curfptr[88] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1880:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1885:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1880:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1885:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_FUNMATCHER*/ curfrout->tabval[10])), (8), "CLASS_FUNMATCHER");/*_.INST__V91*/ curfptr[90] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1880:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1885:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V91*/ curfptr[90]), (1), (/*_.NAMED_NAME__V89*/ curfptr[88]), "NAMED_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:1880:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1885:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V91*/ curfptr[90]), (2), (/*_.INFORMALS__V19*/ curfptr[18]), "AMATCH_IN"); ; - BASILYS_LOCATION("warmelt-macro.melt:1880:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1885:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V91*/ curfptr[90]), (3), (/*_.MATCHFORMAL__V18*/ curfptr[17]), "AMATCH_MATCHBIND"); ; - BASILYS_LOCATION("warmelt-macro.melt:1880:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1885:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V91*/ curfptr[90]), (4), (/*_.OUTFORMALS__V20*/ curfptr[19]), "AMATCH_OUT"); ; - BASILYS_LOCATION("warmelt-macro.melt:1880:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1885:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V91*/ curfptr[90]), (5), ((/*nil*/NULL)), "FMATCH_MATCHF"); ; - BASILYS_LOCATION("warmelt-macro.melt:1880:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1885:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V91*/ curfptr[90]), (6), ((/*nil*/NULL)), "FMATCH_APPLYF"); ; - BASILYS_LOCATION("warmelt-macro.melt:1880:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1885:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V91*/ curfptr[90]), (7), ((/*nil*/NULL)), "FMATCH_DATA"); ; /*_.FUMA__V90*/ curfptr[89] = /*_.INST__V91*/ curfptr[90];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1890:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1895:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1890:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1895:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_FUNMATCHER_BINDING*/ curfrout->tabval[11])), (4), "CLASS_FUNMATCHER_BINDING");/*_.INST__V93*/ curfptr[92] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1890:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1895:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V93*/ curfptr[92]))));basilys_putfield_object((/*_.INST__V93*/ curfptr[92]), (0), (/*_.SYMB__V16*/ curfptr[15]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:1890:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1895:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V93*/ curfptr[92]))));basilys_putfield_object((/*_.INST__V93*/ curfptr[92]), (2), (/*_.FUMA__V90*/ curfptr[89]), "FMBIND_FUNMATCHER"); ; - BASILYS_LOCATION("warmelt-macro.melt:1890:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1895:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V93*/ curfptr[92])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V93*/ curfptr[92]))));basilys_putfield_object((/*_.INST__V93*/ curfptr[92]), (3), (/*_.SDFUM__V87*/ curfptr[86]), "FMBIND_DEFUNMATCHER"); ; /*_.FMBIND__V92*/ curfptr[91] = /*_.INST__V93*/ curfptr[92];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1896:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1901:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1896:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1901:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FMBIND__V92*/ curfptr[91]; /*_.PUT_ENV__V94*/ curfptr[93] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1897:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1897:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1902:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1902:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1897:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1902:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1897:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1902:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher made fuma"; - BASILYS_LOCATION("warmelt-macro.melt:1897:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1902:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.melt:1897:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1902:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1897:/ apply.arg"); - argtab[3].bp_long = 1897; + BASILYS_LOCATION("warmelt-macro.melt:1902:/ apply.arg"); + argtab[3].bp_long = 1902; /*_.DEBUG_MSG_FUN__V96*/ curfptr[95] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.FUMA__V90*/ curfptr[89]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V95*/ curfptr[94] = /*_.DEBUG_MSG_FUN__V96*/ curfptr[95];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1897:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1902:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1897:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1902:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V96*/ curfptr[95] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1897:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1902:/ cppif.else"); /*_.IFCPP___V95*/ curfptr[94] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1898:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1898:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1903:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1903:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1898:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1903:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1898:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1903:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher fmbind"; - BASILYS_LOCATION("warmelt-macro.melt:1898:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1903:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.melt:1898:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1903:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1898:/ apply.arg"); - argtab[3].bp_long = 1898; + BASILYS_LOCATION("warmelt-macro.melt:1903:/ apply.arg"); + argtab[3].bp_long = 1903; /*_.DEBUG_MSG_FUN__V98*/ curfptr[97] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.FMBIND__V92*/ curfptr[91]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V97*/ curfptr[95] = /*_.DEBUG_MSG_FUN__V98*/ curfptr[97];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1898:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1903:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1898:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1903:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V98*/ curfptr[97] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1898:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1903:/ cppif.else"); /*_.IFCPP___V97*/ curfptr[95] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1899:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1899:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1904:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1904:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1899:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1904:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1899:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1904:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defunmatcher return sdfum"; - BASILYS_LOCATION("warmelt-macro.melt:1899:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1904:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.melt:1899:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1904:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1899:/ apply.arg"); - argtab[3].bp_long = 1899; + BASILYS_LOCATION("warmelt-macro.melt:1904:/ apply.arg"); + argtab[3].bp_long = 1904; /*_.DEBUG_MSG_FUN__V100*/ curfptr[99] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SDFUM__V87*/ curfptr[86]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V99*/ curfptr[97] = /*_.DEBUG_MSG_FUN__V100*/ curfptr[99];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1899:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1904:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1899:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1904:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V100*/ curfptr[99] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1899:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1904:/ cppif.else"); /*_.IFCPP___V99*/ curfptr[97] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1900:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1905:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SDFUM__V87*/ curfptr[86];; - BASILYS_LOCATION("warmelt-macro.melt:1900:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1905:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V86*/ curfptr[80] = /*_.RETURN___V101*/ curfptr[99];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1866:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1871:/ clear"); /*clear*/ /*_.SDFUM__V87*/ curfptr[86] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1866:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1871:/ clear"); /*clear*/ /*_.NAMED_NAME__V89*/ curfptr[88] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1866:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1871:/ clear"); /*clear*/ /*_.FUMA__V90*/ curfptr[89] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1866:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1871:/ clear"); /*clear*/ /*_.FMBIND__V92*/ curfptr[91] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1866:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1871:/ clear"); /*clear*/ /*_.PUT_ENV__V94*/ curfptr[93] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1866:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1871:/ clear"); /*clear*/ /*_.IFCPP___V95*/ curfptr[94] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1866:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1871:/ clear"); /*clear*/ /*_.IFCPP___V97*/ curfptr[95] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1866:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1871:/ clear"); /*clear*/ /*_.IFCPP___V99*/ curfptr[97] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1866:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1871:/ clear"); /*clear*/ /*_.RETURN___V101*/ curfptr[99] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V86*/ curfptr[80];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.SYMB__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.SFORMALS__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.MATCHFORMAL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.INFORMALS__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.OUTFORMALS__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.MATCHFUNX__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.APPLYFUNX__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.DATAX__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.IF___V26*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.PAIR_TAIL__V29*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.SETQ___V30*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.LET___V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.PAIR_TAIL__V49*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.SETQ___V50*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.PAIR_HEAD__V51*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V52*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.SETQ___V53*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L11*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_#NOT__L12*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.IF___V54*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.PAIR_TAIL__V57*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.SETQ___V58*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.LET___V59*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.IFCPP___V64*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.PAIR_TAIL__V66*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.SETQ___V67*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.LET___V68*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.IFCPP___V73*/ curfptr[70] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.PAIR_TAIL__V75*/ curfptr[68] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.SETQ___V76*/ curfptr[69] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.LET___V77*/ curfptr[71] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.IFCPP___V82*/ curfptr[79] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.PAIR_TAIL__V84*/ curfptr[77] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.SETQ___V85*/ curfptr[78] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1792:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1797:/ clear"); /*clear*/ /*_.LET___V86*/ curfptr[80] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1788:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:1788:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1788:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1788:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1788:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1788:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -18738,41 +18805,41 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1828:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1833:/ getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1828:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1833:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1828:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1833:/ block"); /*block*/{ /*_#I__L2*/ curfnum[1] = ((/*_#IX__L1*/ curfnum[0]) > (0));; - BASILYS_LOCATION("warmelt-macro.melt:1828:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1833:/ cond"); /*cond*/ if (/*_#I__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1828:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1828:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1833:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1833:/ block"); /*block*/{ /*_#I__L3*/ curfnum[2] = ((/*_#IX__L1*/ curfnum[0]) - (1));; { - BASILYS_LOCATION("warmelt-macro.melt:1828:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1833:/ locexp"); basilysgc_multiple_put_nth((basilys_ptr_t)((/*~INFORMALS*/ curfclos->tabval[0])), (/*_#I__L3*/ curfnum[2]), (basilys_ptr_t)(/*_.COMP__V2*/ curfptr[1]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1828:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1833:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1828:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1833:/ clear"); /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ;} ; @@ -18833,18 +18900,18 @@ basilys_trace_start("MEXPAND_DEFUN", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1908:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1908:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:1908:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -18853,28 +18920,28 @@ basilys_trace_start("MEXPAND_DEFUN", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1908:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1913:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1909:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1909:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1914:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1914:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:1909:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1914:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1909:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1914:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1909:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1914:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1909:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1914:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1909:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1909)?(1909):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1914:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1914)?(1914):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -18884,36 +18951,36 @@ BASILYS_LOCATION("warmelt-macro.melt:1908:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1909:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1914:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1909:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1914:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1909:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1914:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1910:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1910:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1915:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1915:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1910:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1915:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1910:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1915:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:1910:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1915:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1910:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1915:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1910:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1910)?(1910):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:1915:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(1915)?(1915):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -18923,57 +18990,57 @@ BASILYS_LOCATION("warmelt-macro.melt:1908:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1910:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1915:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1910:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1915:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1910:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1915:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1911:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1911:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1916:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1916:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1911:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1916:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1911:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1916:/ apply.arg"); argtab[0].bp_cstring = "mexp.defun sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:1911:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1916:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1911:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1916:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1911:/ apply.arg"); - argtab[3].bp_long = 1911; + BASILYS_LOCATION("warmelt-macro.melt:1916:/ apply.arg"); + argtab[3].bp_long = 1916; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1911:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1916:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1911:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1916:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1911:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1916:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1912:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1917:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1912:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1917:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1913:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1918:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -18983,21 +19050,21 @@ BASILYS_LOCATION("warmelt-macro.melt:1908:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; /*_.SYMB__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1916:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1921:/ apply"); /*apply*/{ /*_.NEWENV__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; /*_#IS_NOT_A__L4*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:1918:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1923:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1918:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1918:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1923:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1923:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1919:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1924:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing symbol for DEFUN"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -19006,120 +19073,120 @@ BASILYS_LOCATION("warmelt-macro.melt:1908:/ block"); ; /*_.PAIR_TAIL__V18*/ curfptr[17] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1920:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1925:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_TAIL__V18*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.melt:1922:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1927:/ block"); /*block*/{ /*_.CURPAIRHEAD__V21*/ curfptr[20] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_#NULL__L5*/ curfnum[4] = ((/*_.CURPAIRHEAD__V21*/ curfptr[20]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:1924:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1929:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1924:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1924:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1929:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1929:/ block"); /*block*/{ /*_.MAKE_MULTIPLE__V23*/ curfptr[22] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (0)));; /*_.BTUP__V22*/ curfptr[21] = /*_.MAKE_MULTIPLE__V23*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1924:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1929:/ clear"); /*clear*/ /*_.MAKE_MULTIPLE__V23*/ curfptr[22] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1924:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1929:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1924:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1929:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURPAIRHEAD__V21*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:1926:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1931:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1926:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1926:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1931:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1931:/ block"); /*block*/{ /*_.PAIR_HEAD__V25*/ curfptr[24] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1927:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1932:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1927:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1932:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SEXPR__V2*/ curfptr[1]; /*_.LAMBDA_ARG_BINDINGS__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.PAIR_HEAD__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V24*/ curfptr[22] = /*_.LAMBDA_ARG_BINDINGS__V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1926:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1931:/ clear"); /*clear*/ /*_.PAIR_HEAD__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1926:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1931:/ clear"); /*clear*/ /*_.LAMBDA_ARG_BINDINGS__V26*/ curfptr[25] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1926:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1931:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1926:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1931:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1929:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1929:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1934:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1934:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1929:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1934:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1929:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1934:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defun strange arglist curpairhead"; - BASILYS_LOCATION("warmelt-macro.melt:1929:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1934:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.melt:1929:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1934:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1929:/ apply.arg"); - argtab[3].bp_long = 1929; + BASILYS_LOCATION("warmelt-macro.melt:1934:/ apply.arg"); + argtab[3].bp_long = 1934; /*_.DEBUG_MSG_FUN__V28*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CURPAIRHEAD__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V27*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1929:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1934:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1929:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1934:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1929:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1934:/ cppif.else"); /*_.IFCPP___V27*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { - BASILYS_LOCATION("warmelt-macro.melt:1930:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1935:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing or invalid arglist for DEFUN"), (basilys_ptr_t)0);} ; /*_.THE_NULL__V29*/ curfptr[25] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:1928:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1933:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.THE_NULL__V29*/ curfptr[25];;} ; /*_.IFELSE___V24*/ curfptr[22] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1926:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1931:/ clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1926:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1931:/ clear"); /*clear*/ /*_.THE_NULL__V29*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1926:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1931:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; } ; /*_.BTUP__V22*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1924:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1929:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1924:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1929:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[22] = 0 ;} ; } @@ -19128,66 +19195,66 @@ BASILYS_LOCATION("warmelt-macro.melt:1908:/ block"); (basilys_magic_discr((basilys_ptr_t)(/*_.BTUP__V22*/ curfptr[21])) == OBMAG_MULTIPLE);; /*_#NOT__L9*/ curfnum[5] = (!(/*_#IS_MULTIPLE__L8*/ curfnum[6]));; - BASILYS_LOCATION("warmelt-macro.melt:1934:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1939:/ cond"); /*cond*/ if (/*_#NOT__L9*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1934:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1934:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1939:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1939:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1936:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1936:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1941:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1941:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1936:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1941:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1936:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1941:/ apply.arg"); argtab[0].bp_cstring = "mexpand_defun strange btup"; - BASILYS_LOCATION("warmelt-macro.melt:1936:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1941:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9]; - BASILYS_LOCATION("warmelt-macro.melt:1936:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1941:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1936:/ apply.arg"); - argtab[3].bp_long = 1936; + BASILYS_LOCATION("warmelt-macro.melt:1941:/ apply.arg"); + argtab[3].bp_long = 1941; /*_.DEBUG_MSG_FUN__V32*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.BTUP__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V31*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1936:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1941:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1936:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1941:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1936:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1941:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { - BASILYS_LOCATION("warmelt-macro.melt:1937:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1942:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing formal arguments for DEFUN"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:1935:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1940:/ block"); /*block*/{} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1934:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1939:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[24] = 0 ;} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1938:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1943:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1938:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:1943:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V34*/ curfptr[22] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1)); ; - BASILYS_LOCATION("warmelt-macro.melt:1938:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:1943:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V34*/ curfptr[22])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V34*/ curfptr[22]))); @@ -19195,174 +19262,174 @@ BASILYS_LOCATION("warmelt-macro.melt:1908:/ block"); ; /*_.LAMBDA___V33*/ curfptr[29] = /*_.LAMBDA___V34*/ curfptr[22];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1938:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1943:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1938:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1943:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V33*/ curfptr[29]; /*_.MULTIPLE_EVERY__V35*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.BTUP__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.PAIR_TAIL__V36*/ curfptr[24] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:1939:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1944:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V37*/ curfptr[36] = /*_.PAIR_TAIL__V36*/ curfptr[24];; - BASILYS_LOCATION("warmelt-macro.melt:1940:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1945:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1940:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1945:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1940:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1945:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWENV__V17*/ curfptr[16]; - BASILYS_LOCATION("warmelt-macro.melt:1940:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1945:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.BODYTUP__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1942:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1947:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1942:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1947:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_DEFUN*/ curfrout->tabval[11])), (4), "CLASS_SRC_DEFUN");/*_.INST__V41*/ curfptr[40] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1942:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1947:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40]))));basilys_putfield_object((/*_.INST__V41*/ curfptr[40]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:1942:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1947:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40]))));basilys_putfield_object((/*_.INST__V41*/ curfptr[40]), (1), (/*_.SYMB__V16*/ curfptr[15]), "SDEF_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:1942:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1947:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40]))));basilys_putfield_object((/*_.INST__V41*/ curfptr[40]), (2), (/*_.BTUP__V22*/ curfptr[21]), "SFORMAL_ARGS"); ; - BASILYS_LOCATION("warmelt-macro.melt:1942:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1947:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40]))));basilys_putfield_object((/*_.INST__V41*/ curfptr[40]), (3), (/*_.BODYTUP__V39*/ curfptr[38]), "SFUN_BODY"); ; /*_.SDEFUN__V40*/ curfptr[39] = /*_.INST__V41*/ curfptr[40];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1949:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1954:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1949:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:1954:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ curfrout->tabval[12])), (3), "CLASS_FUNCTION_BINDING");/*_.INST__V43*/ curfptr[42] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1949:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1954:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V43*/ curfptr[42]), (0), (/*_.SYMB__V16*/ curfptr[15]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:1949:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1954:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V43*/ curfptr[42]), (2), (/*_.SDEFUN__V40*/ curfptr[39]), "FUBIND_DEFUN"); ; /*_.FBIND__V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;} ; - BASILYS_LOCATION("warmelt-macro.melt:1954:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1959:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1954:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1959:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:1954:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1959:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; /*_.WARN_IF_REDEFINED__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.SYMB__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1955:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1960:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1955:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1960:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FBIND__V42*/ curfptr[41]; /*_.PUT_ENV__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V38*/ curfptr[37] = /*_.SDEFUN__V40*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1940:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1945:/ clear"); /*clear*/ /*_.BODYTUP__V39*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1940:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1945:/ clear"); /*clear*/ /*_.SDEFUN__V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1940:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1945:/ clear"); /*clear*/ /*_.FBIND__V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1940:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1945:/ clear"); /*clear*/ /*_.WARN_IF_REDEFINED__V44*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1940:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1945:/ clear"); /*clear*/ /*_.PUT_ENV__V45*/ curfptr[44] = 0 ;} ; /*_.LET___V20*/ curfptr[19] = /*_.LET___V38*/ curfptr[37];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1922:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1927:/ clear"); /*clear*/ /*_.CURPAIRHEAD__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1922:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1927:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1922:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1927:/ clear"); /*clear*/ /*_.BTUP__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1922:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1927:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L8*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1922:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1927:/ clear"); /*clear*/ /*_#NOT__L9*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1922:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1927:/ clear"); /*clear*/ /*_.LAMBDA___V33*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1922:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1927:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V35*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1922:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1927:/ clear"); /*clear*/ /*_.PAIR_TAIL__V36*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1922:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1927:/ clear"); /*clear*/ /*_.SETQ___V37*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1922:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1927:/ clear"); /*clear*/ /*_.LET___V38*/ curfptr[37] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1912:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1917:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1912:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1917:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1912:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1917:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1912:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1917:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1912:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1917:/ clear"); /*clear*/ /*_.SYMB__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1912:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1917:/ clear"); /*clear*/ /*_.NEWENV__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1912:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1917:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1912:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1917:/ clear"); /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1912:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1917:/ clear"); /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1912:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1917:/ clear"); /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1908:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:1908:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1908:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1908:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1908:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1908:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -19423,32 +19490,32 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1938:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1943:/ getarg"); /*_.FB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1938:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1943:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1938:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1943:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1938:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1943:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FB__V2*/ curfptr[1]; /*_.PUT_ENV__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:1938:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1943:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:1938:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1943:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1938:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1943:/ clear"); /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;} ; @@ -19509,18 +19576,18 @@ basilys_trace_start("SCAN_DEFCLASS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:1965:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:1965:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:1965:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -19529,9 +19596,9 @@ basilys_trace_start("SCAN_DEFCLASS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:1970:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1966:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ block"); /*block*/{ /*_.PREDEF__V6*/ curfptr[5] = (/*nil*/NULL);; /*_.SUPERNAM__V7*/ curfptr[6] = (/*nil*/NULL);; @@ -19539,11 +19606,11 @@ BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); /*_.SUPERCLASS__V9*/ curfptr[8] = (/*nil*/NULL);; /*_.FIELDNAMS__V10*/ curfptr[9] = (/*nil*/NULL);; /*_.DOCSTR__V11*/ curfptr[10] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.melt:1972:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1977:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1973:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1978:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -19556,48 +19623,48 @@ BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1978:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1978:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1983:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:1983:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1978:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1983:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1978:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1983:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:1978:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1983:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:1978:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1983:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1978:/ apply.arg"); - argtab[3].bp_long = 1978; + BASILYS_LOCATION("warmelt-macro.melt:1983:/ apply.arg"); + argtab[3].bp_long = 1983; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1978:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1983:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1978:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1983:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1978:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:1983:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_NOT_A__L2*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:1979:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1984:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1979:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1979:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1984:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1984:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1980:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1985:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing symbol for DEFCLASS"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -19606,28 +19673,28 @@ BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); ; /*_.PAIR_TAIL__V20*/ curfptr[18] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; - BASILYS_LOCATION("warmelt-macro.melt:1981:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1986:/ compute"); /*_.CURPAIR__V16*/ curfptr[15] = /*_.SETQ___V21*/ curfptr[20] = /*_.PAIR_TAIL__V20*/ curfptr[18];; - BASILYS_LOCATION("warmelt-macro.melt:1982:/ loop"); - /*loop*/{ labloop_SCANLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1982:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:1987:/ loop"); + /*loop*/{ labloop_SCANLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1987:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:1982:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1987:/ block"); /*block*/{ /*_#IS_PAIR__L3*/ curfnum[2] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])) == OBMAG_PAIR);; /*_#NOT__L4*/ curfnum[3] = (!(/*_#IS_PAIR__L3*/ curfnum[2]));; - BASILYS_LOCATION("warmelt-macro.melt:1983:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1988:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1983:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1983:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1988:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1988:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1983:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1988:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1983:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1988:/ compute"); /*_.SCANLOOP__V23*/ curfptr[22] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1983:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:1988:/ exit"); /*exit*/{ goto labexit_SCANLOOP_1;} ;} @@ -19636,7 +19703,7 @@ BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1984:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1989:/ block"); /*block*/{ /*_.CURKW__V25*/ curfptr[24] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; @@ -19644,14 +19711,14 @@ BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); basilys_is_instance_of((basilys_ptr_t)(/*_.CURKW__V25*/ curfptr[24]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[2])));; /*_#NOT__L6*/ curfnum[5] = (!(/*_#IS_A__L5*/ curfnum[4]));; - BASILYS_LOCATION("warmelt-macro.melt:1985:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1990:/ cond"); /*cond*/ if (/*_#NOT__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1985:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1985:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1990:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1990:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1986:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1991:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting keyword in DEFCLASS"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -19660,31 +19727,31 @@ BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); ; /*_.PAIR_TAIL__V26*/ curfptr[25] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; - BASILYS_LOCATION("warmelt-macro.melt:1987:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1992:/ compute"); /*_.CURPAIR__V16*/ curfptr[15] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];; - BASILYS_LOCATION("warmelt-macro.melt:1988:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1993:/ block"); /*block*/{ /*_.CURVAL__V29*/ curfptr[28] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; /*_.PAIR_TAIL__V30*/ curfptr[29] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V16*/ curfptr[15])));; - BASILYS_LOCATION("warmelt-macro.melt:1989:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:1994:/ compute"); /*_.CURPAIR__V16*/ curfptr[15] = /*_.SETQ___V31*/ curfptr[30] = /*_.PAIR_TAIL__V30*/ curfptr[29];; /*_#__L7*/ curfnum[6] = ((/*_.CURKW__V25*/ curfptr[24]) == ((/*!konst_3_SUPER*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:1991:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1996:/ cond"); /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1991:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1991:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1996:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1996:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1992:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1997:/ cond"); /*cond*/ if (/*_.SUPERNAM__V7*/ curfptr[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1992:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1992:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1997:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1997:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1992:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1997:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "duplicate super in DEFCLASS"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -19695,345 +19762,345 @@ BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); basilys_is_instance_of((basilys_ptr_t)(/*_.CURVAL__V29*/ curfptr[28]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; /*_#NOT__L9*/ curfnum[8] = (!(/*_#IS_A__L8*/ curfnum[7]));; - BASILYS_LOCATION("warmelt-macro.melt:1993:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:1998:/ cond"); /*cond*/ if (/*_#NOT__L9*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:1993:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:1993:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1998:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:1998:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:1994:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:1999:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad super in DEFCLASS"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1995:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2000:/ compute"); /*_.SUPERNAM__V7*/ curfptr[6] = /*_.SETQ___V33*/ curfptr[32] = /*_.CURVAL__V29*/ curfptr[28];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:1996:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:1996:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2001:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2001:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:1996:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2001:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1996:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2001:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass supernam"; - BASILYS_LOCATION("warmelt-macro.melt:1996:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2001:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9]; - BASILYS_LOCATION("warmelt-macro.melt:1996:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2001:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:1996:/ apply.arg"); - argtab[3].bp_long = 1996; + BASILYS_LOCATION("warmelt-macro.melt:2001:/ apply.arg"); + argtab[3].bp_long = 2001; /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SUPERNAM__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1996:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2001:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1996:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2001:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:1996:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2001:/ cppif.else"); /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:1997:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2002:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1997:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2002:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1997:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2002:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SUPERNAM__V7*/ curfptr[6]; /*_.SUPERB__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_A__L11*/ curfnum[9] = basilys_is_instance_of((basilys_ptr_t)(/*_.SUPERB__V37*/ curfptr[36]), (basilys_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[5])));; - BASILYS_LOCATION("warmelt-macro.melt:2000:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2005:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ curfnum[9]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2000:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2000:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2005:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2005:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2001:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2006:/ compute"); /*_.SUPERBIND__V8*/ curfptr[7] = /*_.SETQ___V39*/ curfptr[38] = /*_.SUPERB__V37*/ curfptr[36];; - BASILYS_LOCATION("warmelt-macro.melt:2002:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2007:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SUPERB__V37*/ curfptr[36]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V40*/ curfptr[39] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2002:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2007:/ compute"); /*_.SUPERCLASS__V9*/ curfptr[8] = /*_.SETQ___V41*/ curfptr[40] = /*_.CBIND_CLASS__V40*/ curfptr[39];; - BASILYS_LOCATION("warmelt-macro.melt:2000:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2005:/ block"); /*block*/{ /*_.PROGN___V42*/ curfptr[41] = /*_.SETQ___V41*/ curfptr[40];;} ; /*_.IFELSE___V38*/ curfptr[37] = /*_.PROGN___V42*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2000:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2005:/ clear"); /*clear*/ /*_.SETQ___V39*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2000:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2005:/ clear"); /*clear*/ /*_.CBIND_CLASS__V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2000:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2005:/ clear"); /*clear*/ /*_.SETQ___V41*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2000:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2005:/ clear"); /*clear*/ /*_.PROGN___V42*/ curfptr[41] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2000:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2005:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2000:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2005:/ block"); /*block*/{ /*_#IS_A__L12*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.SUPERB__V37*/ curfptr[36]), (basilys_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[6])));; - BASILYS_LOCATION("warmelt-macro.melt:2004:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2009:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2004:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2004:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2009:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2009:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2005:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2010:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2005:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2010:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SUPERB__V37*/ curfptr[36]), 1, "VBIND_VALUE");/*_.SUPERVAL__V45*/ curfptr[40] = slot; }; ; /*_#IS_A__L13*/ curfnum[12] = basilys_is_instance_of((basilys_ptr_t)(/*_.SUPERVAL__V45*/ curfptr[40]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[7])));; - BASILYS_LOCATION("warmelt-macro.melt:2006:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2011:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2006:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2006:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2011:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2011:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2008:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2013:/ compute"); /*_.SUPERBIND__V8*/ curfptr[7] = /*_.SETQ___V47*/ curfptr[46] = /*_.SUPERB__V37*/ curfptr[36];; - BASILYS_LOCATION("warmelt-macro.melt:2009:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2014:/ compute"); /*_.SUPERCLASS__V9*/ curfptr[8] = /*_.SETQ___V48*/ curfptr[47] = /*_.SUPERVAL__V45*/ curfptr[40];; - BASILYS_LOCATION("warmelt-macro.melt:2007:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2012:/ block"); /*block*/{ /*_.PROGN___V49*/ curfptr[48] = /*_.SETQ___V48*/ curfptr[47];;} ; /*_.IFELSE___V46*/ curfptr[41] = /*_.PROGN___V49*/ curfptr[48];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2006:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2011:/ clear"); /*clear*/ /*_.SETQ___V47*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2006:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2011:/ clear"); /*clear*/ /*_.SETQ___V48*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2006:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2011:/ clear"); /*clear*/ /*_.PROGN___V49*/ curfptr[48] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2006:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2011:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2006:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2011:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2012:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2017:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SUPERNAM__V7*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V50*/ curfptr[46] = slot; }; ; /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2011:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2016:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "super is not a class in defclass"), (basilys_ptr_t)(/*_.NAMED_NAME__V50*/ curfptr[46]));} ; /*clear*/ /*_.IFELSE___V46*/ curfptr[41] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2006:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2011:/ clear"); /*clear*/ /*_.NAMED_NAME__V50*/ curfptr[46] = 0 ;} ; } ; /*_.LET___V44*/ curfptr[39] = /*_.IFELSE___V46*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2005:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2010:/ clear"); /*clear*/ /*_.SUPERVAL__V45*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2005:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2010:/ clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2005:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2010:/ clear"); /*clear*/ /*_.IFELSE___V46*/ curfptr[41] = 0 ;} ; /*_.IFELSE___V43*/ curfptr[38] = /*_.LET___V44*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2004:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2009:/ clear"); /*clear*/ /*_.LET___V44*/ curfptr[39] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2004:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2009:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2004:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2009:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2015:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2015:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2020:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2020:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2015:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2020:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2015:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2020:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass superb"; - BASILYS_LOCATION("warmelt-macro.melt:2015:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2020:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.melt:2015:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2020:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2015:/ apply.arg"); - argtab[3].bp_long = 2015; + BASILYS_LOCATION("warmelt-macro.melt:2020:/ apply.arg"); + argtab[3].bp_long = 2020; /*_.DEBUG_MSG_FUN__V52*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SUPERB__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V51*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[48];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2015:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2020:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2015:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2020:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2015:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2020:/ cppif.else"); /*_.IFCPP___V51*/ curfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2016:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2016:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2021:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2021:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2016:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2021:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2016:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2021:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass env"; - BASILYS_LOCATION("warmelt-macro.melt:2016:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2021:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.melt:2016:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2021:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2016:/ apply.arg"); - argtab[3].bp_long = 2016; + BASILYS_LOCATION("warmelt-macro.melt:2021:/ apply.arg"); + argtab[3].bp_long = 2021; /*_.DEBUG_MSG_FUN__V54*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V53*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[40];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2016:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2021:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2016:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2021:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2016:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2021:/ cppif.else"); /*_.IFCPP___V53*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2018:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2023:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SUPERNAM__V7*/ curfptr[6]), 1, "NAMED_NAME");/*_.NAMED_NAME__V55*/ curfptr[41] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2017:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2022:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "invalid super in defclass"), (basilys_ptr_t)(/*_.NAMED_NAME__V55*/ curfptr[41]));} ; - BASILYS_LOCATION("warmelt-macro.melt:2014:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2019:/ block"); /*block*/{} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2004:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2009:/ clear"); /*clear*/ /*_.IFCPP___V51*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2004:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2009:/ clear"); /*clear*/ /*_.IFCPP___V53*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2004:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2009:/ clear"); /*clear*/ /*_.NAMED_NAME__V55*/ curfptr[41] = 0 ;} ; } ; /*_.IFELSE___V38*/ curfptr[37] = /*_.IFELSE___V43*/ curfptr[38];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2000:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2005:/ clear"); /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2000:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2005:/ clear"); /*clear*/ /*_.IFELSE___V43*/ curfptr[38] = 0 ;} ; } ; /*_.LET___V36*/ curfptr[34] = /*_.IFELSE___V38*/ curfptr[37];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1997:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2002:/ clear"); /*clear*/ /*_.SUPERB__V37*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1997:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2002:/ clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1997:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2002:/ clear"); /*clear*/ /*_.IFELSE___V38*/ curfptr[37] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1991:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1996:/ block"); /*block*/{ /*_.PROGN___V56*/ curfptr[39] = /*_.LET___V36*/ curfptr[34];;} ; /*_.IFELSE___V32*/ curfptr[31] = /*_.PROGN___V56*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1996:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1996:/ clear"); /*clear*/ /*_#NOT__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1996:/ clear"); /*clear*/ /*_.SETQ___V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1996:/ clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1996:/ clear"); /*clear*/ /*_.LET___V36*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1996:/ clear"); /*clear*/ /*_.PROGN___V56*/ curfptr[39] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:1991:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:1996:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:1991:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1996:/ block"); /*block*/{ /*_#__L16*/ curfnum[12] = ((/*_.CURKW__V25*/ curfptr[24]) == ((/*!konst_8_FIELDS*/ curfrout->tabval[8])));; - BASILYS_LOCATION("warmelt-macro.melt:2022:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2027:/ cond"); /*cond*/ if (/*_#__L16*/ curfnum[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2022:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2022:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2027:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2027:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2023:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2028:/ cond"); /*cond*/ if (/*_.FIELDNAMS__V10*/ curfptr[9]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2023:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2023:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2028:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2028:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2023:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2028:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "duplicate fields in defclass"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2024:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2029:/ cond"); /*cond*/ if (/*_.CURVAL__V29*/ curfptr[28]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2024:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2024:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2029:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2029:/ block"); /*block*/{ /*_#IS_NOT_A__L17*/ curfnum[11] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CURVAL__V29*/ curfptr[28]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[9])));; - BASILYS_LOCATION("warmelt-macro.melt:2025:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2030:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L17*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2025:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2025:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2030:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2030:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2026:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2031:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad fields in defclass"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -20041,47 +20108,47 @@ BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2024:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2029:/ clear"); /*clear*/ /*_#IS_NOT_A__L17*/ curfnum[11] = 0 ;} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2027:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2027:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ cond"); /*cond*/ if (/*_.CURVAL__V29*/ curfptr[28]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2027:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2027:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2027:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURVAL__V29*/ curfptr[28]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V60*/ curfptr[46] = slot; }; ; /*_.NAMLIST__V59*/ curfptr[47] = /*_.SEXP_CONTENTS__V60*/ curfptr[46];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V60*/ curfptr[46] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2027:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2032:/ cond.else"); /*_.NAMLIST__V59*/ curfptr[47] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:2028:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2033:/ cond"); /*cond*/ if (/*_.CURVAL__V29*/ curfptr[28]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2028:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2028:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2033:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2033:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2028:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2033:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURVAL__V29*/ curfptr[28]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V62*/ curfptr[38] = slot; }; ; /*_.NAMLOC__V61*/ curfptr[41] = /*_.LOCA_LOCATION__V62*/ curfptr[38];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2028:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2033:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V62*/ curfptr[38] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2028:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2033:/ cond.else"); /*_.NAMLOC__V61*/ curfptr[41] = NULL;; } @@ -20093,28 +20160,28 @@ BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.NAMLIST__V59*/ curfptr[47])));; /*_.NAMTUPL__V64*/ curfptr[37] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[10])), (/*_#NBNAM__L18*/ curfnum[9])));; - BASILYS_LOCATION("warmelt-macro.melt:2033:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2038:/ compute"); /*_.FIELDSLOC__V14*/ curfptr[13] = /*_.SETQ___V65*/ curfptr[32] = /*_.NAMLOC__V61*/ curfptr[41];; - BASILYS_LOCATION("warmelt-macro.melt:2034:/ loop"); - /*loop*/{ labloop_NAMLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:2034:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:2039:/ loop"); + /*loop*/{ labloop_NAMLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:2039:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:2034:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2039:/ block"); /*block*/{ /*_#IS_PAIR__L20*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.NAMPAIR__V63*/ curfptr[36])) == OBMAG_PAIR);; /*_#NOT__L21*/ curfnum[11] = (!(/*_#IS_PAIR__L20*/ curfnum[8]));; - BASILYS_LOCATION("warmelt-macro.melt:2035:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2040:/ cond"); /*cond*/ if (/*_#NOT__L21*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2035:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2035:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2040:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2040:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2035:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2040:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2035:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2040:/ compute"); /*_.NAMLOOP__V67*/ curfptr[34] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2035:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:2040:/ exit"); /*exit*/{ goto labexit_NAMLOOP_1;} ;} @@ -20123,7 +20190,7 @@ BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2036:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2041:/ block"); /*block*/{ /*_.CURNAM__V68*/ curfptr[39] = (basilys_pair_head((basilys_ptr_t)(/*_.NAMPAIR__V63*/ curfptr[36])));; @@ -20131,14 +20198,14 @@ BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); basilys_is_instance_of((basilys_ptr_t)(/*_.CURNAM__V68*/ curfptr[39]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; /*_#NOT__L23*/ curfnum[22] = (!(/*_#IS_A__L22*/ curfnum[21]));; - BASILYS_LOCATION("warmelt-macro.melt:2037:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2042:/ cond"); /*cond*/ if (/*_#NOT__L23*/ curfnum[22]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2037:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2037:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2042:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2042:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2038:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2043:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.NAMLOC__V61*/ curfptr[41]), ( "non name field in DEFCLASS"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -20147,144 +20214,144 @@ BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); ; { - BASILYS_LOCATION("warmelt-macro.melt:2039:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2044:/ locexp"); basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.NAMTUPL__V64*/ curfptr[37]), (/*_#IX__L19*/ curfnum[7]), (basilys_ptr_t)(/*_.CURNAM__V68*/ curfptr[39]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2036:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2041:/ clear"); /*clear*/ /*_.CURNAM__V68*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2036:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2041:/ clear"); /*clear*/ /*_#IS_A__L22*/ curfnum[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2036:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2041:/ clear"); /*clear*/ /*_#NOT__L23*/ curfnum[22] = 0 ;} ; /*_.PAIR_TAIL__V69*/ curfptr[46] = (basilys_pair_tail((basilys_ptr_t)(/*_.NAMPAIR__V63*/ curfptr[36])));; - BASILYS_LOCATION("warmelt-macro.melt:2041:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2046:/ compute"); /*_.NAMPAIR__V63*/ curfptr[36] = /*_.SETQ___V70*/ curfptr[38] = /*_.PAIR_TAIL__V69*/ curfptr[46];; /*_#I__L24*/ curfnum[21] = ((/*_#IX__L19*/ curfnum[7]) + (1));; - BASILYS_LOCATION("warmelt-macro.melt:2042:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2047:/ compute"); /*_#IX__L19*/ curfnum[7] = /*_#SETQ___L25*/ curfnum[22] = /*_#I__L24*/ curfnum[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2034:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2039:/ clear"); /*clear*/ /*_#IS_PAIR__L20*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2034:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2039:/ clear"); /*clear*/ /*_#NOT__L21*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2034:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2039:/ clear"); /*clear*/ /*_.PAIR_TAIL__V69*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2034:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2039:/ clear"); /*clear*/ /*_.SETQ___V70*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2034:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2039:/ clear"); /*clear*/ /*_#I__L24*/ curfnum[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2034:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2039:/ clear"); /*clear*/ /*_#SETQ___L25*/ curfnum[22] = 0 ;} ; ; goto labloop_NAMLOOP_1; - labexit_NAMLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:2034:/ loopepilog"); + labexit_NAMLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:2039:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V66*/ curfptr[33] = /*_.NAMLOOP__V67*/ curfptr[34];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2044:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2049:/ compute"); /*_.FIELDNAMS__V10*/ curfptr[9] = /*_.SETQ___V71*/ curfptr[39] = /*_.NAMTUPL__V64*/ curfptr[37];; /*_.LET___V58*/ curfptr[40] = /*_.SETQ___V71*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ clear"); /*clear*/ /*_.NAMLIST__V59*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ clear"); /*clear*/ /*_.NAMLOC__V61*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ clear"); /*clear*/ /*_#NBNAM__L18*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ clear"); /*clear*/ /*_#IX__L19*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ clear"); /*clear*/ /*_.NAMPAIR__V63*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ clear"); /*clear*/ /*_.NAMTUPL__V64*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ clear"); /*clear*/ /*_.SETQ___V65*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ clear"); /*clear*/ /*_.FOREVER___V66*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2032:/ clear"); /*clear*/ /*_.SETQ___V71*/ curfptr[39] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2022:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2027:/ block"); /*block*/{ /*_.PROGN___V72*/ curfptr[46] = /*_.LET___V58*/ curfptr[40];;} ; /*_.IFELSE___V57*/ curfptr[48] = /*_.PROGN___V72*/ curfptr[46];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2022:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); /*clear*/ /*_.LET___V58*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2022:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); /*clear*/ /*_.PROGN___V72*/ curfptr[46] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2022:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2027:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2022:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2027:/ block"); /*block*/{ /*_#__L26*/ curfnum[8] = ((/*_.CURKW__V25*/ curfptr[24]) == ((/*!konst_11_PREDEF*/ curfrout->tabval[11])));; - BASILYS_LOCATION("warmelt-macro.melt:2046:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2051:/ cond"); /*cond*/ if (/*_#__L26*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2046:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2046:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2051:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2051:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2047:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2052:/ cond"); /*cond*/ if (/*_.PREDEF__V6*/ curfptr[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2047:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2047:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2052:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2052:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2047:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2052:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "duplicate predef in DEFCLASS"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2048:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2053:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2048:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2053:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2048:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2053:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V74*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.CURVAL__V29*/ curfptr[28]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2048:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2053:/ compute"); /*_.PREDEF__V6*/ curfptr[5] = /*_.SETQ___V75*/ curfptr[41] = /*_.MACROEXPAND_1__V74*/ curfptr[47];; /*_#IS_INTEGERBOX__L27*/ curfnum[11] = (basilys_magic_discr((basilys_ptr_t)(/*_.PREDEF__V6*/ curfptr[5])) == OBMAG_INT);; - BASILYS_LOCATION("warmelt-macro.melt:2050:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2055:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L27*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2050:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2055:/ cond.then"); /*_.IFELSE___V76*/ curfptr[36] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2050:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2055:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2050:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2055:/ block"); /*block*/{ /*_#IS_A__L28*/ curfnum[21] = basilys_is_instance_of((basilys_ptr_t)(/*_.PREDEF__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2053:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2058:/ cond"); /*cond*/ if (/*_#IS_A__L28*/ curfnum[21]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2053:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2058:/ cond.then"); /*_.IFELSE___V77*/ curfptr[37] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2053:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2058:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2053:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2058:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2057:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2062:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad predef in DEFCLASS"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:2056:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2061:/ block"); /*block*/{} ; /*epilog*/} @@ -20293,620 +20360,620 @@ BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); ; /*_.IFELSE___V76*/ curfptr[36] = /*_.IFELSE___V77*/ curfptr[37];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2050:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2055:/ clear"); /*clear*/ /*_#IS_A__L28*/ curfnum[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2050:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2055:/ clear"); /*clear*/ /*_.IFELSE___V77*/ curfptr[37] = 0 ;} ; } ; - BASILYS_LOCATION("warmelt-macro.melt:2046:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2051:/ block"); /*block*/{ /*_.PROGN___V78*/ curfptr[32] = /*_.IFELSE___V76*/ curfptr[36];;} ; /*_.IFELSE___V73*/ curfptr[38] = /*_.PROGN___V78*/ curfptr[32];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2046:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2051:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V74*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2046:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2051:/ clear"); /*clear*/ /*_.SETQ___V75*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2046:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2051:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L27*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2046:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2051:/ clear"); /*clear*/ /*_.IFELSE___V76*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2046:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2051:/ clear"); /*clear*/ /*_.PROGN___V78*/ curfptr[32] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2046:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2051:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2046:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2051:/ block"); /*block*/{ /*_#__L29*/ curfnum[22] = ((/*_.CURKW__V25*/ curfptr[24]) == ((/*!konst_13_DOCSTR*/ curfrout->tabval[13])));; - BASILYS_LOCATION("warmelt-macro.melt:2061:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2066:/ cond"); /*cond*/ if (/*_#__L29*/ curfnum[22]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2061:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2061:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2066:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2066:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2062:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2067:/ cond"); /*cond*/ if (/*_.DOCSTR__V11*/ curfptr[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2062:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2062:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2067:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2067:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2062:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2067:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "duplicate docstr in DEFCLASS"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2063:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2068:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2063:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2068:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2063:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2068:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V79*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.CURVAL__V29*/ curfptr[28]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2063:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2068:/ compute"); /*_.DOCSTR__V11*/ curfptr[10] = /*_.SETQ___V80*/ curfptr[39] = /*_.MACROEXPAND_1__V79*/ curfptr[33];; /*_#IS_STRING__L30*/ curfnum[9] = (basilys_magic_discr((basilys_ptr_t)(/*_.DOCSTR__V11*/ curfptr[10])) == OBMAG_STRING);; /*_#NOT__L31*/ curfnum[7] = (!(/*_#IS_STRING__L30*/ curfnum[9]));; - BASILYS_LOCATION("warmelt-macro.melt:2064:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2069:/ cond"); /*cond*/ if (/*_#NOT__L31*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2064:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2064:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2069:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2069:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2065:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2070:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad docstr in DEFCLASS"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2061:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2066:/ block"); /*block*/{} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2061:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2066:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V79*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2061:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2066:/ clear"); /*clear*/ /*_.SETQ___V80*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2061:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2066:/ clear"); /*clear*/ /*_#IS_STRING__L30*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2061:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2066:/ clear"); /*clear*/ /*_#NOT__L31*/ curfnum[7] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2061:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2066:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2061:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2066:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2069:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2074:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURKW__V25*/ curfptr[24]), 1, "NAMED_NAME");/*_.NAMED_NAME__V81*/ curfptr[40] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2068:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2073:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "invalid keyword in DEFCLASS"), (basilys_ptr_t)(/*_.NAMED_NAME__V81*/ curfptr[40]));} ; - BASILYS_LOCATION("warmelt-macro.melt:2067:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2072:/ block"); /*block*/{} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2061:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2066:/ clear"); /*clear*/ /*_.NAMED_NAME__V81*/ curfptr[40] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2046:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2051:/ clear"); /*clear*/ /*_#__L29*/ curfnum[22] = 0 ;} ; } ; /*_.IFELSE___V57*/ curfptr[48] = /*_.IFELSE___V73*/ curfptr[38];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2022:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); /*clear*/ /*_#__L26*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2022:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2027:/ clear"); /*clear*/ /*_.IFELSE___V73*/ curfptr[38] = 0 ;} ; } ; /*_.IFELSE___V32*/ curfptr[31] = /*_.IFELSE___V57*/ curfptr[48];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1996:/ clear"); /*clear*/ /*_#__L16*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1996:/ clear"); /*clear*/ /*_.IFELSE___V57*/ curfptr[48] = 0 ;} ; } ; /*_.LET___V28*/ curfptr[27] = /*_.IFELSE___V32*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1988:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1993:/ clear"); /*clear*/ /*_.CURVAL__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1988:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1993:/ clear"); /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1988:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1993:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1988:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1993:/ clear"); /*clear*/ /*_#__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1988:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1993:/ clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;} ; /*_.LET___V24*/ curfptr[23] = /*_.LET___V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1984:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1989:/ clear"); /*clear*/ /*_.CURKW__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1984:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1989:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1984:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1989:/ clear"); /*clear*/ /*_#NOT__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1984:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1989:/ clear"); /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1984:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1989:/ clear"); /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1984:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1989:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1982:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1987:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1982:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1987:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1982:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1987:/ clear"); /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;} ; ; goto labloop_SCANLOOP_1; - labexit_SCANLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1982:/ loopepilog"); + labexit_SCANLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:1987:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V22*/ curfptr[21] = /*_.SCANLOOP__V23*/ curfptr[22];; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2072:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2072:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2077:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2077:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L32*/ curfnum[21] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2072:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2077:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2072:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2077:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns symb"; - BASILYS_LOCATION("warmelt-macro.melt:2072:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2077:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[21]; - BASILYS_LOCATION("warmelt-macro.melt:2072:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2077:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2072:/ apply.arg"); - argtab[3].bp_long = 2072; + BASILYS_LOCATION("warmelt-macro.melt:2077:/ apply.arg"); + argtab[3].bp_long = 2077; /*_.DEBUG_MSG_FUN__V83*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYMB__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V82*/ curfptr[46] = /*_.DEBUG_MSG_FUN__V83*/ curfptr[37];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2072:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2077:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2072:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2077:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V83*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2072:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2077:/ cppif.else"); /*_.IFCPP___V82*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2073:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2073:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2078:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2078:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L33*/ curfnum[11] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2073:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2078:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2073:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2078:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns loc"; - BASILYS_LOCATION("warmelt-macro.melt:2073:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2078:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L33*/ curfnum[11]; - BASILYS_LOCATION("warmelt-macro.melt:2073:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2078:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2073:/ apply.arg"); - argtab[3].bp_long = 2073; + BASILYS_LOCATION("warmelt-macro.melt:2078:/ apply.arg"); + argtab[3].bp_long = 2078; /*_.DEBUG_MSG_FUN__V85*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V84*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V85*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2073:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2078:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2073:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2078:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V85*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2073:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2078:/ cppif.else"); /*_.IFCPP___V84*/ curfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2074:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2074:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2079:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2079:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L34*/ curfnum[9] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2074:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2079:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2074:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2079:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns supernam"; - BASILYS_LOCATION("warmelt-macro.melt:2074:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2079:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L34*/ curfnum[9]; - BASILYS_LOCATION("warmelt-macro.melt:2074:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2079:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2074:/ apply.arg"); - argtab[3].bp_long = 2074; + BASILYS_LOCATION("warmelt-macro.melt:2079:/ apply.arg"); + argtab[3].bp_long = 2079; /*_.DEBUG_MSG_FUN__V87*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SUPERNAM__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V86*/ curfptr[36] = /*_.DEBUG_MSG_FUN__V87*/ curfptr[32];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2074:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2079:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L34*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2074:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2079:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V87*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2074:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2079:/ cppif.else"); /*_.IFCPP___V86*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2075:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2075:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2080:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2080:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L35*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2075:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2080:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2075:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2080:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns superbinds"; - BASILYS_LOCATION("warmelt-macro.melt:2075:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2080:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L35*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.melt:2075:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2080:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2075:/ apply.arg"); - argtab[3].bp_long = 2075; + BASILYS_LOCATION("warmelt-macro.melt:2080:/ apply.arg"); + argtab[3].bp_long = 2080; /*_.DEBUG_MSG_FUN__V89*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SUPERBIND__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V88*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V89*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2075:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2080:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L35*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2075:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2080:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V89*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2075:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2080:/ cppif.else"); /*_.IFCPP___V88*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2076:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2076:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2081:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2081:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L36*/ curfnum[22] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2076:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2081:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2076:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2081:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns superclass"; - BASILYS_LOCATION("warmelt-macro.melt:2076:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2081:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L36*/ curfnum[22]; - BASILYS_LOCATION("warmelt-macro.melt:2076:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2081:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2076:/ apply.arg"); - argtab[3].bp_long = 2076; + BASILYS_LOCATION("warmelt-macro.melt:2081:/ apply.arg"); + argtab[3].bp_long = 2081; /*_.DEBUG_MSG_FUN__V91*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SUPERCLASS__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V90*/ curfptr[40] = /*_.DEBUG_MSG_FUN__V91*/ curfptr[38];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2076:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2081:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L36*/ curfnum[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2076:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2081:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ curfptr[38] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2076:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2081:/ cppif.else"); /*_.IFCPP___V90*/ curfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2077:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2077:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2082:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2082:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L37*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2077:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2082:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2077:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2082:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns predef"; - BASILYS_LOCATION("warmelt-macro.melt:2077:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2082:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L37*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.melt:2077:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2082:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2077:/ apply.arg"); - argtab[3].bp_long = 2077; + BASILYS_LOCATION("warmelt-macro.melt:2082:/ apply.arg"); + argtab[3].bp_long = 2082; /*_.DEBUG_MSG_FUN__V93*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PREDEF__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V92*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2077:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2082:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L37*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2077:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2082:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2077:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2082:/ cppif.else"); /*_.IFCPP___V92*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2078:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2078:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2083:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2083:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L38*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2078:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2083:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2078:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2083:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns fieldnams"; - BASILYS_LOCATION("warmelt-macro.melt:2078:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2083:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L38*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.melt:2078:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2083:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2078:/ apply.arg"); - argtab[3].bp_long = 2078; + BASILYS_LOCATION("warmelt-macro.melt:2083:/ apply.arg"); + argtab[3].bp_long = 2083; /*_.DEBUG_MSG_FUN__V95*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.FIELDNAMS__V10*/ curfptr[9]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V94*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2078:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2083:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L38*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2078:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2083:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2078:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2083:/ cppif.else"); /*_.IFCPP___V94*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2079:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2079:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2084:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2084:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L39*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2079:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2084:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2079:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2084:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns fieldsloc"; - BASILYS_LOCATION("warmelt-macro.melt:2079:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2084:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L39*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.melt:2079:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2084:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2079:/ apply.arg"); - argtab[3].bp_long = 2079; + BASILYS_LOCATION("warmelt-macro.melt:2084:/ apply.arg"); + argtab[3].bp_long = 2084; /*_.DEBUG_MSG_FUN__V97*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.FIELDSLOC__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V96*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V97*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2079:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2084:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L39*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2079:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2084:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V97*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2079:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2084:/ cppif.else"); /*_.IFCPP___V96*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2080:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2080:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2085:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2085:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L40*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2080:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2085:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2080:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2085:/ apply.arg"); argtab[0].bp_cstring = "scan_defclass returns docstr"; - BASILYS_LOCATION("warmelt-macro.melt:2080:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2085:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L40*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.melt:2080:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2085:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2080:/ apply.arg"); - argtab[3].bp_long = 2080; + BASILYS_LOCATION("warmelt-macro.melt:2085:/ apply.arg"); + argtab[3].bp_long = 2085; /*_.DEBUG_MSG_FUN__V99*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.DOCSTR__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V98*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V99*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2080:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2085:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L40*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2080:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2085:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V99*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2080:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2085:/ cppif.else"); /*_.IFCPP___V98*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2081:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2086:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2081:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2086:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2081:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2086:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; /*_.WARN_IF_REDEFINED__V100*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.SYMB__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2082:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2087:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SYMB__V17*/ curfptr[16];; - BASILYS_LOCATION("warmelt-macro.melt:2082:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.melt:2087:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_PTR) goto labend_rout; if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (basilys_ptr_t) (/*_.LOC__V13*/ curfptr[12]); ; - BASILYS_LOCATION("warmelt-macro.melt:2082:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.melt:2087:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[1] != BPAR_PTR) goto labend_rout; if (xrestab_[1].bp_aptr) *(xrestab_[1].bp_aptr) = (basilys_ptr_t) (/*_.SUPERNAM__V7*/ curfptr[6]); ; - BASILYS_LOCATION("warmelt-macro.melt:2082:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.melt:2087:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[2] != BPAR_PTR) goto labend_rout; if (xrestab_[2].bp_aptr) *(xrestab_[2].bp_aptr) = (basilys_ptr_t) (/*_.SUPERBIND__V8*/ curfptr[7]); ; - BASILYS_LOCATION("warmelt-macro.melt:2082:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.melt:2087:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[3] != BPAR_PTR) goto labend_rout; if (xrestab_[3].bp_aptr) *(xrestab_[3].bp_aptr) = (basilys_ptr_t) (/*_.SUPERCLASS__V9*/ curfptr[8]); ; - BASILYS_LOCATION("warmelt-macro.melt:2082:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.melt:2087:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[4] != BPAR_PTR) goto labend_rout; if (xrestab_[4].bp_aptr) *(xrestab_[4].bp_aptr) = (basilys_ptr_t) (/*_.PREDEF__V6*/ curfptr[5]); ; - BASILYS_LOCATION("warmelt-macro.melt:2082:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.melt:2087:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[5] != BPAR_PTR) goto labend_rout; if (xrestab_[5].bp_aptr) *(xrestab_[5].bp_aptr) = (basilys_ptr_t) (/*_.FIELDNAMS__V10*/ curfptr[9]); ; - BASILYS_LOCATION("warmelt-macro.melt:2082:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.melt:2087:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[6] != BPAR_PTR) goto labend_rout; if (xrestab_[6].bp_aptr) *(xrestab_[6].bp_aptr) = (basilys_ptr_t) (/*_.FIELDSLOC__V14*/ curfptr[13]); ; - BASILYS_LOCATION("warmelt-macro.melt:2082:/ putxtraresult"); + BASILYS_LOCATION("warmelt-macro.melt:2087:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[7] != BPAR_PTR) goto labend_rout; if (xrestab_[7].bp_aptr) *(xrestab_[7].bp_aptr) = (basilys_ptr_t) (/*_.DOCSTR__V11*/ curfptr[10]); ; - BASILYS_LOCATION("warmelt-macro.melt:2082:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2087:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V5*/ curfptr[4] = /*_.RETURN___V101*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.PREDEF__V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.SUPERNAM__V7*/ curfptr[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.SUPERBIND__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.SUPERCLASS__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.FIELDNAMS__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.DOCSTR__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.FIELDSLOC__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.LIST_FIRST__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.CURPAIR__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.SYMB__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.FOREVER___V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.IFCPP___V82*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.IFCPP___V84*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.IFCPP___V86*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.IFCPP___V88*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.IFCPP___V90*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.IFCPP___V92*/ curfptr[48] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.IFCPP___V94*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.IFCPP___V96*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.IFCPP___V98*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.WARN_IF_REDEFINED__V100*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:1966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1971:/ clear"); /*clear*/ /*_.RETURN___V101*/ curfptr[23] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:1965:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[4];; - BASILYS_LOCATION("warmelt-macro.melt:1965:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:1965:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ clear"); /*clear*/ /*_.LET___V5*/ curfptr[4] = 0 ;} ; @@ -20967,18 +21034,18 @@ basilys_trace_start("MEXPAND_DEFCLASS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2086:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2086:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2086:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -20987,28 +21054,28 @@ basilys_trace_start("MEXPAND_DEFCLASS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2091:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2087:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2087:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2092:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2092:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2087:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2092:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2087:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2092:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2087:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2092:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2087:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2092:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2087:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2087)?(2087):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2092:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2092)?(2092):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -21018,36 +21085,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2087:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2092:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2087:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2092:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2087:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2092:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2088:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2088:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2093:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2093:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2088:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2093:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2088:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2093:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2088:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2093:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2088:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2093:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2088:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2088)?(2088):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2093:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2093)?(2093):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -21057,410 +21124,410 @@ BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2088:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2093:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2088:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2093:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2088:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2093:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2089:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2089:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2094:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2094:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2089:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2094:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2089:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2094:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:2089:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2094:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2089:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2094:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2089:/ apply.arg"); - argtab[3].bp_long = 2089; + BASILYS_LOCATION("warmelt-macro.melt:2094:/ apply.arg"); + argtab[3].bp_long = 2094; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2089:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2094:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2089:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2094:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2089:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2094:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2090:/ multiapply"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ multiapply"); /*multiapply 3args, 8x.res*/ { union basilysparam_un argtab[2]; union basilysparam_un restab[8]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2090:/ multiapply.arg"); - argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2];BASILYS_LOCATION("warmelt-macro.melt:2090:/ multiapply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ multiapply.arg"); + argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2];BASILYS_LOCATION("warmelt-macro.melt:2095:/ multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ multiapply.xres"); restab[1].bp_aptr = (basilys_ptr_t*) &/*_.SUPERNAM__V14*/ curfptr[13]; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ multiapply.xres"); restab[2].bp_aptr = (basilys_ptr_t*) &/*_.SUPERBIND__V15*/ curfptr[14]; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ multiapply.xres"); restab[3].bp_aptr = (basilys_ptr_t*) &/*_.SUPERCLASS__V16*/ curfptr[15]; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ multiapply.xres"); restab[4].bp_aptr = (basilys_ptr_t*) &/*_.PREDEF__V17*/ curfptr[16]; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ multiapply.xres"); restab[5].bp_aptr = (basilys_ptr_t*) &/*_.FIELDNAMS__V18*/ curfptr[17]; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ multiapply.xres"); restab[6].bp_aptr = (basilys_ptr_t*) &/*_.FIELDSLOC__V19*/ curfptr[18]; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ multiapply.xres"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ multiapply.xres"); restab[7].bp_aptr = (basilys_ptr_t*) &/*_.DOCSTR__V20*/ curfptr[19]; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ multiapply.appl"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ multiapply.appl"); /*_.SYMB__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!SCAN_DEFCLASS*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), restab); } ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2093:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2093:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2098:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2098:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2093:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2098:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2093:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2098:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned symb"; - BASILYS_LOCATION("warmelt-macro.melt:2093:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2098:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2093:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2098:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2093:/ apply.arg"); - argtab[3].bp_long = 2093; + BASILYS_LOCATION("warmelt-macro.melt:2098:/ apply.arg"); + argtab[3].bp_long = 2098; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SYMB__V12*/ curfptr[11]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2093:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2098:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2093:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2098:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2093:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2098:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2094:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2094:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2099:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2099:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2094:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2099:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2094:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2099:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned loc"; - BASILYS_LOCATION("warmelt-macro.melt:2094:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2099:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2094:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2099:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2094:/ apply.arg"); - argtab[3].bp_long = 2094; + BASILYS_LOCATION("warmelt-macro.melt:2099:/ apply.arg"); + argtab[3].bp_long = 2099; /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V23*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2094:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2099:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2094:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2099:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2094:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2099:/ cppif.else"); /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2095:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2095:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2100:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2100:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2095:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2100:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2095:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2100:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned supernam"; - BASILYS_LOCATION("warmelt-macro.melt:2095:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2100:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2095:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2100:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2095:/ apply.arg"); - argtab[3].bp_long = 2095; + BASILYS_LOCATION("warmelt-macro.melt:2100:/ apply.arg"); + argtab[3].bp_long = 2100; /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SUPERNAM__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V25*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2100:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2100:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2095:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2100:/ cppif.else"); /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2096:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2096:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2101:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2101:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2096:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2101:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2096:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2101:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned superbind"; - BASILYS_LOCATION("warmelt-macro.melt:2096:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2101:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2096:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2101:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2096:/ apply.arg"); - argtab[3].bp_long = 2096; + BASILYS_LOCATION("warmelt-macro.melt:2101:/ apply.arg"); + argtab[3].bp_long = 2101; /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SUPERBIND__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V27*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2096:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2101:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2096:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2101:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2096:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2101:/ cppif.else"); /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2097:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2097:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2102:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2102:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2097:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2102:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2097:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2102:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned superclass"; - BASILYS_LOCATION("warmelt-macro.melt:2097:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2102:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2097:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2102:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2097:/ apply.arg"); - argtab[3].bp_long = 2097; + BASILYS_LOCATION("warmelt-macro.melt:2102:/ apply.arg"); + argtab[3].bp_long = 2102; /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SUPERCLASS__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V29*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2097:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2102:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2097:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2102:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2097:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2102:/ cppif.else"); /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2098:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2098:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2103:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2103:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2098:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2103:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2098:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2103:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned predef"; - BASILYS_LOCATION("warmelt-macro.melt:2098:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2103:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2098:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2103:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2098:/ apply.arg"); - argtab[3].bp_long = 2098; + BASILYS_LOCATION("warmelt-macro.melt:2103:/ apply.arg"); + argtab[3].bp_long = 2103; /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.PREDEF__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2098:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2098:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2098:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2103:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2099:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2099:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2104:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2104:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2099:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2104:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2099:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2104:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned fieldnams"; - BASILYS_LOCATION("warmelt-macro.melt:2099:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2104:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2099:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2104:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2099:/ apply.arg"); - argtab[3].bp_long = 2099; + BASILYS_LOCATION("warmelt-macro.melt:2104:/ apply.arg"); + argtab[3].bp_long = 2104; /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.FIELDNAMS__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2099:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2104:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2099:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2104:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2099:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2104:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2100:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2100:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2105:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2105:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2100:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2105:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2100:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2105:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned fieldsloc"; - BASILYS_LOCATION("warmelt-macro.melt:2100:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2105:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2100:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2105:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2100:/ apply.arg"); - argtab[3].bp_long = 2100; + BASILYS_LOCATION("warmelt-macro.melt:2105:/ apply.arg"); + argtab[3].bp_long = 2105; /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.FIELDSLOC__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V35*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2100:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2105:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2100:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2105:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2100:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2105:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2101:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2101:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2106:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2106:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2101:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2106:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2101:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2106:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass scanned docstr"; - BASILYS_LOCATION("warmelt-macro.melt:2101:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2106:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2101:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2106:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2101:/ apply.arg"); - argtab[3].bp_long = 2101; + BASILYS_LOCATION("warmelt-macro.melt:2106:/ apply.arg"); + argtab[3].bp_long = 2106; /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.DOCSTR__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2101:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2106:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2101:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2106:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2101:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2106:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2102:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2102:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2107:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2107:/ block"); /*block*/{ /*_#IS_A__L13*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:2102:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2107:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2102:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2107:/ cond.then"); /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2102:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2107:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2102:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2107:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2102:/ locexp"); - basilys_assert_failed(( "check symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2102)?(2102):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2107:/ locexp"); + basilys_assert_failed(( "check symb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2107)?(2107):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} ; @@ -21470,28 +21537,28 @@ BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); ; /*_.IFCPP___V39*/ curfptr[37] = /*_.IFELSE___V40*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2102:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2107:/ clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2102:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2107:/ clear"); /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2102:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2107:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ block"); /*block*/{ /*_#IS_OBJECT__L14*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.SUPERCLASS__V16*/ curfptr[15])) == OBMAG_OBJECT);; - BASILYS_LOCATION("warmelt-macro.melt:2104:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2109:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L14*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2104:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2104:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2109:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2109:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2105:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2110:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2105:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2110:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SUPERCLASS__V16*/ curfptr[15]), 5, "CLASS_ANCESTORS");/*_.SUPERANCESTORS__V44*/ curfptr[43] = slot; }; ; @@ -21504,24 +21571,24 @@ BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); /*_#IX__L17*/ curfnum[16] = 0;; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2110:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2110:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2115:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2115:/ block"); /*block*/{ /*_#IS_A__L18*/ curfnum[17] = basilys_is_instance_of((basilys_ptr_t)(/*_.SUPERCLASS__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[6])));; - BASILYS_LOCATION("warmelt-macro.melt:2110:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2115:/ cond"); /*cond*/ if (/*_#IS_A__L18*/ curfnum[17]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2110:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2115:/ cond.then"); /*_.IFELSE___V47*/ curfptr[46] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2110:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2115:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2110:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2115:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2110:/ locexp"); - basilys_assert_failed(( "check superclass"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2110)?(2110):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2115:/ locexp"); + basilys_assert_failed(( "check superclass"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2115)?(2115):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;} ; @@ -21531,36 +21598,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); ; /*_.IFCPP___V46*/ curfptr[45] = /*_.IFELSE___V47*/ curfptr[46];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2110:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2115:/ clear"); /*clear*/ /*_#IS_A__L18*/ curfnum[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2110:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2115:/ clear"); /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2110:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2115:/ cppif.else"); /*_.IFCPP___V46*/ curfptr[45] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2111:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2111:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2116:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2116:/ block"); /*block*/{ /*_#IS_MULTIPLE__L19*/ curfnum[17] = (basilys_magic_discr((basilys_ptr_t)(/*_.SUPERANCESTORS__V44*/ curfptr[43])) == OBMAG_MULTIPLE);; - BASILYS_LOCATION("warmelt-macro.melt:2111:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2116:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L19*/ curfnum[17]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2111:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2116:/ cond.then"); /*_.IFELSE___V49*/ curfptr[48] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2111:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2116:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2111:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2116:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2111:/ locexp"); - basilys_assert_failed(( "check superancestors"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2111)?(2111):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2116:/ locexp"); + basilys_assert_failed(( "check superancestors"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2116)?(2116):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V49*/ curfptr[48] = 0 ;} ; @@ -21570,34 +21637,34 @@ BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); ; /*_.IFCPP___V48*/ curfptr[46] = /*_.IFELSE___V49*/ curfptr[48];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2111:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2116:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L19*/ curfnum[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2111:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2116:/ clear"); /*clear*/ /*_.IFELSE___V49*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2111:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2116:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2112:/ loop"); - /*loop*/{ labloop_ANCLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:2112:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:2117:/ loop"); + /*loop*/{ labloop_ANCLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:2117:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:2112:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2117:/ block"); /*block*/{ /*_#I__L20*/ curfnum[17] = ((/*_#IX__L17*/ curfnum[16]) >= (/*_#NBSUPERANC__L15*/ curfnum[14]));; - BASILYS_LOCATION("warmelt-macro.melt:2113:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2118:/ cond"); /*cond*/ if (/*_#I__L20*/ curfnum[17]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2113:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2113:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2118:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2118:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2113:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2118:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2113:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2118:/ compute"); /*_.ANCLOOP__V51*/ curfptr[50] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2113:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:2118:/ exit"); /*exit*/{ goto labexit_ANCLOOP_1;} ;} @@ -21610,89 +21677,89 @@ BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); (basilys_multiple_nth((basilys_ptr_t)(/*_.SUPERANCESTORS__V44*/ curfptr[43]), (/*_#IX__L17*/ curfnum[16])));; { - BASILYS_LOCATION("warmelt-macro.melt:2114:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2119:/ locexp"); basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.ANCTUPLE__V45*/ curfptr[44]), (/*_#IX__L17*/ curfnum[16]), (basilys_ptr_t)(/*_.MULTIPLE_NTH__V52*/ curfptr[51]));} ; /*_#I__L21*/ curfnum[20] = ((/*_#IX__L17*/ curfnum[16]) + (1));; - BASILYS_LOCATION("warmelt-macro.melt:2115:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2120:/ compute"); /*_#IX__L17*/ curfnum[16] = /*_#SETQ___L22*/ curfnum[21] = /*_#I__L21*/ curfnum[20];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2112:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2117:/ clear"); /*clear*/ /*_#I__L20*/ curfnum[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2112:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2117:/ clear"); /*clear*/ /*_.MULTIPLE_NTH__V52*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2112:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2117:/ clear"); /*clear*/ /*_#I__L21*/ curfnum[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2112:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2117:/ clear"); /*clear*/ /*_#SETQ___L22*/ curfnum[21] = 0 ;} ; ; goto labloop_ANCLOOP_1; - labexit_ANCLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:2112:/ loopepilog"); + labexit_ANCLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:2117:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V50*/ curfptr[48] = /*_.ANCLOOP__V51*/ curfptr[50];; } ; { - BASILYS_LOCATION("warmelt-macro.melt:2117:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2122:/ locexp"); basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.ANCTUPLE__V45*/ curfptr[44]), (/*_#NBSUPERANC__L15*/ curfnum[14]), (basilys_ptr_t)(/*_.SUPERCLASS__V16*/ curfptr[15]));} ; /*_.LET___V43*/ curfptr[42] = /*_.ANCTUPLE__V45*/ curfptr[44];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2110:/ clear"); /*clear*/ /*_.SUPERANCESTORS__V44*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2110:/ clear"); /*clear*/ /*_#NBSUPERANC__L15*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2110:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2110:/ clear"); /*clear*/ /*_.ANCTUPLE__V45*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2110:/ clear"); /*clear*/ /*_#IX__L17*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2110:/ clear"); /*clear*/ /*_.IFCPP___V46*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2110:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2105:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2110:/ clear"); /*clear*/ /*_.FOREVER___V50*/ curfptr[48] = 0 ;} ; /*_.ANCESTORS__V42*/ curfptr[41] = /*_.LET___V43*/ curfptr[42];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2104:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2109:/ clear"); /*clear*/ /*_.LET___V43*/ curfptr[42] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2104:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2109:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2104:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2109:/ block"); /*block*/{ /*_.MAKE_MULTIPLE__V53*/ curfptr[51] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_SEQCLASS*/ curfrout->tabval[5])), (0)));; /*_.ANCESTORS__V42*/ curfptr[41] = /*_.MAKE_MULTIPLE__V53*/ curfptr[51];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2104:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2109:/ clear"); /*clear*/ /*_.MAKE_MULTIPLE__V53*/ curfptr[51] = 0 ;} ; } ; /*_#IS_OBJECT__L23*/ curfnum[17] = (basilys_magic_discr((basilys_ptr_t)(/*_.SUPERCLASS__V16*/ curfptr[15])) == OBMAG_OBJECT);; - BASILYS_LOCATION("warmelt-macro.melt:2121:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2126:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L23*/ curfnum[17]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2121:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2121:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2126:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2126:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2122:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2127:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SUPERCLASS__V16*/ curfptr[15]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V55*/ curfptr[44] = slot; }; ; /*_.SUPERFIELDS__V54*/ curfptr[43] = /*_.CLASS_FIELDS__V55*/ curfptr[44];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2121:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2126:/ clear"); /*clear*/ /*_.CLASS_FIELDS__V55*/ curfptr[44] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2121:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2126:/ cond.else"); /*_.SUPERFIELDS__V54*/ curfptr[43] = NULL;; } @@ -21717,104 +21784,104 @@ BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_SEQFIELD*/ curfrout->tabval[9])), (/*_#I__L29*/ curfnum[28])));; /*_.OWNFIELDBINDINGS__V59*/ curfptr[42] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[10])), (/*_#NBFIELDNAMES__L25*/ curfnum[21])));; - BASILYS_LOCATION("warmelt-macro.melt:2130:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2135:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYMB__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V60*/ curfptr[51] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2129:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2134:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2129:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2134:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[6])), (9), "CLASS_CLASS");/*_.INST__V62*/ curfptr[61] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2129:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2134:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V62*/ curfptr[61]))));basilys_putfield_object((/*_.INST__V62*/ curfptr[61]), (1), (/*_.NAMED_NAME__V60*/ curfptr[51]), "NAMED_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:2129:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2134:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V62*/ curfptr[61]))));basilys_putfield_object((/*_.INST__V62*/ curfptr[61]), (5), (/*_.ANCESTORS__V42*/ curfptr[41]), "CLASS_ANCESTORS"); ; /*_.NEWCLASS__V61*/ curfptr[44] = /*_.INST__V62*/ curfptr[61];;} ; - BASILYS_LOCATION("warmelt-macro.melt:2134:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2139:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2134:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2139:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[11])), (4), "CLASS_CLASS_BINDING");/*_.INST__V64*/ curfptr[63] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2134:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2139:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V64*/ curfptr[63]))));basilys_putfield_object((/*_.INST__V64*/ curfptr[63]), (0), (/*_.SYMB__V12*/ curfptr[11]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:2134:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2139:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V64*/ curfptr[63]))));basilys_putfield_object((/*_.INST__V64*/ curfptr[63]), (3), (/*_.NEWCLASS__V61*/ curfptr[44]), "CBIND_CLASS"); ; /*_.CLABIND__V63*/ curfptr[62] = /*_.INST__V64*/ curfptr[63];;} ; - BASILYS_LOCATION("warmelt-macro.melt:2138:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2143:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2138:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2143:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CLABIND__V63*/ curfptr[62]; /*_.PUT_ENV__V65*/ curfptr[64] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2139:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2139:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2144:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2144:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L30*/ curfnum[29] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2139:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2144:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2139:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2144:/ apply.arg"); argtab[0].bp_cstring = "expdefclas superfields"; - BASILYS_LOCATION("warmelt-macro.melt:2139:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2144:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L30*/ curfnum[29]; - BASILYS_LOCATION("warmelt-macro.melt:2139:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2144:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2139:/ apply.arg"); - argtab[3].bp_long = 2139; + BASILYS_LOCATION("warmelt-macro.melt:2144:/ apply.arg"); + argtab[3].bp_long = 2144; /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SUPERFIELDS__V54*/ curfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V66*/ curfptr[65] = /*_.DEBUG_MSG_FUN__V67*/ curfptr[66];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2139:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2144:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2139:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2144:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V67*/ curfptr[66] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2139:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2144:/ cppif.else"); /*_.IFCPP___V66*/ curfptr[65] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2142:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2147:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2142:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:2147:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V69*/ curfptr[68] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_15*/ curfrout->tabval[15])), (2)); ; - BASILYS_LOCATION("warmelt-macro.melt:2142:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2147:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V69*/ curfptr[68])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V69*/ curfptr[68]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V69*/ curfptr[68])->tabval[0] = (basilys_ptr_t)(/*_.FIELDTUP__V58*/ curfptr[48]); ; - BASILYS_LOCATION("warmelt-macro.melt:2142:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2147:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V69*/ curfptr[68])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V69*/ curfptr[68]))); @@ -21822,70 +21889,70 @@ BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); ; /*_.LAMBDA___V68*/ curfptr[66] = /*_.LAMBDA___V69*/ curfptr[68];;} ; - BASILYS_LOCATION("warmelt-macro.melt:2140:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2145:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2140:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2145:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V68*/ curfptr[66]; /*_.MULTIPLE_EVERY__V70*/ curfptr[69] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.SUPERFIELDS__V54*/ curfptr[43]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2151:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2151:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V72*/ curfptr[71] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (9)); ; - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[71])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[71]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[71])->tabval[0] = (basilys_ptr_t)(/*_.FIELDSTRMAP__V57*/ curfptr[46]); ; - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[71])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[71]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[71])->tabval[1] = (basilys_ptr_t)(/*_.FIELDSLOC__V19*/ curfptr[18]); ; - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[71])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[71]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[71])->tabval[2] = (basilys_ptr_t)(/*_.BOXNBSUPERFIELDS__V56*/ curfptr[45]); ; - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[71])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[71]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[71])->tabval[3] = (basilys_ptr_t)(/*_.NEWCLASS__V61*/ curfptr[44]); ; - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[71])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[71]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[71])->tabval[4] = (basilys_ptr_t)(/*_.FIELDTUP__V58*/ curfptr[48]); ; - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[71])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 5>= 0 && 5< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[71]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[71])->tabval[5] = (basilys_ptr_t)(/*_.CLABIND__V63*/ curfptr[62]); ; - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[71])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 6>= 0 && 6< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[71]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[71])->tabval[6] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[71])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 7>= 0 && 7< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[71]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[71])->tabval[7] = (basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]); ; - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[71])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 8>= 0 && 8< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[71]))); @@ -21893,23 +21960,23 @@ BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); ; /*_.LAMBDA___V71*/ curfptr[70] = /*_.LAMBDA___V72*/ curfptr[71];;} ; - BASILYS_LOCATION("warmelt-macro.melt:2149:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2154:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2149:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2154:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V71*/ curfptr[70]; /*_.MULTIPLE_EVERY__V73*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.FIELDNAMS__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2176:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2181:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2176:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2181:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NEWCLASS__V61*/ curfptr[44])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.NEWCLASS__V61*/ curfptr[44]))));basilys_putfield_object((/*_.NEWCLASS__V61*/ curfptr[44]), (6), (/*_.FIELDTUP__V58*/ curfptr[48]), "CLASS_FIELDS"); ; - BASILYS_LOCATION("warmelt-macro.melt:2176:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2181:/ touch"); basilysgc_touch(/*_.NEWCLASS__V61*/ curfptr[44]); ; /*epilog*/} @@ -21918,81 +21985,81 @@ BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); (OBMAG_OBJECT);; { - BASILYS_LOCATION("warmelt-macro.melt:2179:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2184:/ locexp"); basilys_put_int((basilys_ptr_t)(/*_.NEWCLASS__V61*/ curfptr[44]), (/*_#OBJECT_MAGIC_OBJECT__L31*/ curfnum[29]));} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2180:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2180:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2185:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2185:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L32*/ curfnum[31] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2180:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2185:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2180:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2185:/ apply.arg"); argtab[0].bp_cstring = "mexp.defclass newclass"; - BASILYS_LOCATION("warmelt-macro.melt:2180:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2185:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[31]; - BASILYS_LOCATION("warmelt-macro.melt:2180:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2185:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2180:/ apply.arg"); - argtab[3].bp_long = 2180; + BASILYS_LOCATION("warmelt-macro.melt:2185:/ apply.arg"); + argtab[3].bp_long = 2185; /*_.DEBUG_MSG_FUN__V75*/ curfptr[74] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NEWCLASS__V61*/ curfptr[44]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V74*/ curfptr[73] = /*_.DEBUG_MSG_FUN__V75*/ curfptr[74];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2180:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2185:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2180:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2185:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V75*/ curfptr[74] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2180:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2185:/ cppif.else"); /*_.IFCPP___V74*/ curfptr[73] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2181:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2186:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2181:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2186:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_DEFCLASS*/ curfrout->tabval[22])), (7), "CLASS_SRC_DEFCLASS");/*_.INST__V77*/ curfptr[76] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2181:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2186:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[76]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2181:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2186:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[76]), (1), (/*_.SYMB__V12*/ curfptr[11]), "SDEF_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:2181:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2186:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[76]), (2), (/*_.PREDEF__V17*/ curfptr[16]), "SOBJ_PREDEF"); ; - BASILYS_LOCATION("warmelt-macro.melt:2181:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2186:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[76]), (3), (/*_.DOCSTR__V20*/ curfptr[19]), "SOBJ_DOCSTR"); ; - BASILYS_LOCATION("warmelt-macro.melt:2181:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2186:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[76]), (4), (/*_.CLABIND__V63*/ curfptr[62]), "SCLASS_CLABIND"); ; - BASILYS_LOCATION("warmelt-macro.melt:2181:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2186:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[76]), (5), (/*_.SUPERBIND__V15*/ curfptr[14]), "SCLASS_SUPERBIND"); ; - BASILYS_LOCATION("warmelt-macro.melt:2181:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2186:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[76]), (6), (/*_.OWNFIELDBINDINGS__V59*/ curfptr[42]), "SCLASS_FLDBINDS"); @@ -22001,117 +22068,117 @@ BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); ; /*_.LET___V41*/ curfptr[39] = /*_.INST___V76*/ curfptr[74];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_#IS_OBJECT__L14*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.ANCESTORS__V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_#IS_OBJECT__L23*/ curfnum[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.SUPERFIELDS__V54*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_#NBSUPERFIELDS__L24*/ curfnum[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_#NBFIELDNAMES__L25*/ curfnum[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.BOXNBSUPERFIELDS__V56*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_#I__L26*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_#I__L27*/ curfnum[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_#I__L28*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.FIELDSTRMAP__V57*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_#I__L29*/ curfnum[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.FIELDTUP__V58*/ curfptr[48] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.OWNFIELDBINDINGS__V59*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.NAMED_NAME__V60*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.NEWCLASS__V61*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.CLABIND__V63*/ curfptr[62] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.PUT_ENV__V65*/ curfptr[64] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.IFCPP___V66*/ curfptr[65] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.LAMBDA___V68*/ curfptr[66] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V70*/ curfptr[69] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.LAMBDA___V71*/ curfptr[70] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V73*/ curfptr[72] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_#OBJECT_MAGIC_OBJECT__L31*/ curfnum[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.IFCPP___V74*/ curfptr[73] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2108:/ clear"); /*clear*/ /*_.INST___V76*/ curfptr[74] = 0 ;} ; /*_.MULTI___V11*/ curfptr[9] = /*_.LET___V41*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.LET___V41*/ curfptr[39] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.SUPERNAM__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.SUPERBIND__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.SUPERCLASS__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.PREDEF__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.FIELDNAMS__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.FIELDSLOC__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2095:/ clear"); /*clear*/ /*_.DOCSTR__V20*/ curfptr[19] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2086:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTI___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:2086:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2086:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2086:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2086:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2086:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ clear"); /*clear*/ /*_.MULTI___V11*/ curfptr[9] = 0 ;} ; @@ -22172,49 +22239,49 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2142:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2147:/ getarg"); /*_.SFLD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2142:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2147:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2142:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2147:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2143:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2148:/ locexp"); debugnum(( "expdefclasupflds ix"), (/*_#IX__L1*/ curfnum[0]));} ; { - BASILYS_LOCATION("warmelt-macro.melt:2144:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2149:/ locexp"); debugvalue(( "expdefclasupfldsval sfld"), ((void*)(/*_.SFLD__V2*/ curfptr[1])));} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2145:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2145:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2150:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2150:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.SFLD__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2145:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2150:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2145:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2150:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2145:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2150:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2145:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2150:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2145:/ locexp"); - basilys_assert_failed(( "check superfield"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2145)?(2145):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2150:/ locexp"); + basilys_assert_failed(( "check superfield"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2150)?(2150):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; @@ -22224,34 +22291,34 @@ BASILYS_LOCATION("warmelt-macro.melt:2142:/ block"); ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2145:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2150:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2145:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2150:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2145:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2150:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { - BASILYS_LOCATION("warmelt-macro.melt:2146:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2151:/ locexp"); basilysgc_multiple_put_nth((basilys_ptr_t)((/*~FIELDTUP*/ curfclos->tabval[0])), (/*_#IX__L1*/ curfnum[0]), (basilys_ptr_t)(/*_.SFLD__V2*/ curfptr[1]));} ; - BASILYS_LOCATION("warmelt-macro.melt:2147:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2152:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SFLD__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ curfptr[3] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2147:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2152:/ locexp"); basilysgc_put_mapstrings((struct basilysmapstrings_st *) ((/*~FIELDSTRMAP*/ curfclos->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[3])), (basilys_ptr_t)(/*_.SFLD__V2*/ curfptr[1]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2142:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2147:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2142:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2147:/ clear"); /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ;} ; @@ -22312,44 +22379,44 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2151:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ getarg"); /*_.FLDNAM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2151:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2151:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2156:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2152:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2157:/ locexp"); debugnum(( "expdefclafldnam ix"), (/*_#IX__L1*/ curfnum[0]));} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2153:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2153:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2158:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2158:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLDNAM__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2153:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2158:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2153:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2158:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2153:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2158:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2153:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2158:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2153:/ locexp"); - basilys_assert_failed(( "check fldnam"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2153)?(2153):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2158:/ locexp"); + basilys_assert_failed(( "check fldnam"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2158)?(2158):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; @@ -22359,57 +22426,57 @@ BASILYS_LOCATION("warmelt-macro.melt:2151:/ block"); ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2158:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2158:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2153:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2158:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2154:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2159:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2154:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2159:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDNAM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.FLDSTR__V5*/ curfptr[3] = slot; }; ; /*_.MAPSTRING_GETSTR__V6*/ curfptr[5] = (basilys_get_mapstrings((struct basilysmapstrings_st*)((/*~FIELDSTRMAP*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.FLDSTR__V5*/ curfptr[3]))));; - BASILYS_LOCATION("warmelt-macro.melt:2156:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2161:/ cond"); /*cond*/ if (/*_.MAPSTRING_GETSTR__V6*/ curfptr[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2156:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2156:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2161:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2161:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2157:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2162:/ locexp"); basilys_error_str((basilys_ptr_t)((/*~FIELDSLOC*/ curfclos->tabval[1])), ( "duplicate field in DEFLCLASS"), (basilys_ptr_t)(/*_.FLDSTR__V5*/ curfptr[3]));} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2158:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2163:/ block"); /*block*/{ /*_#GET_INT__L3*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXNBSUPERFIELDS*/ curfclos->tabval[2]))));; /*_#FLDOFF__L4*/ curfnum[3] = ((/*_#IX__L1*/ curfnum[0]) + (/*_#GET_INT__L3*/ curfnum[1]));; - BASILYS_LOCATION("warmelt-macro.melt:2159:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2164:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2159:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2164:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])), (4), "CLASS_FIELD");/*_.INST__V8*/ curfptr[7] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2159:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2164:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (1), (/*_.FLDSTR__V5*/ curfptr[3]), "NAMED_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:2159:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2164:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V8*/ curfptr[7]))));basilys_putfield_object((/*_.INST__V8*/ curfptr[7]), (2), ((/*~NEWCLASS*/ curfclos->tabval[3])), "FLD_OWNCLASS"); @@ -22418,99 +22485,99 @@ BASILYS_LOCATION("warmelt-macro.melt:2151:/ block"); ; { - BASILYS_LOCATION("warmelt-macro.melt:2163:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2168:/ locexp"); basilys_put_int((basilys_ptr_t)(/*_.NEWFLD__V7*/ curfptr[6]), (/*_#FLDOFF__L4*/ curfnum[3]));} ; { - BASILYS_LOCATION("warmelt-macro.melt:2164:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2169:/ locexp"); debugnum(( "expdefclafldnam fldoff"), (/*_#FLDOFF__L4*/ curfnum[3]));} ; { - BASILYS_LOCATION("warmelt-macro.melt:2165:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2170:/ locexp"); basilysgc_multiple_put_nth((basilys_ptr_t)((/*~FIELDTUP*/ curfclos->tabval[4])), (/*_#FLDOFF__L4*/ curfnum[3]), (basilys_ptr_t)(/*_.NEWFLD__V7*/ curfptr[6]));} ; { - BASILYS_LOCATION("warmelt-macro.melt:2166:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2171:/ locexp"); basilysgc_put_mapstrings((struct basilysmapstrings_st *) ((/*~FIELDSTRMAP*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.FLDSTR__V5*/ curfptr[3])), (basilys_ptr_t)(/*_.NEWFLD__V7*/ curfptr[6]));} ; - BASILYS_LOCATION("warmelt-macro.melt:2167:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2172:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2167:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2172:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2167:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2172:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_FIELD_BINDING*/ curfrout->tabval[2])), (4), "CLASS_FIELD_BINDING");/*_.INST__V10*/ curfptr[9] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2167:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2172:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9]))));basilys_putfield_object((/*_.INST__V10*/ curfptr[9]), (0), (/*_.FLDNAM__V2*/ curfptr[1]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:2167:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2172:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9]))));basilys_putfield_object((/*_.INST__V10*/ curfptr[9]), (2), ((/*~CLABIND*/ curfclos->tabval[5])), "FLBIND_CLABIND"); ; - BASILYS_LOCATION("warmelt-macro.melt:2167:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2172:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9]))));basilys_putfield_object((/*_.INST__V10*/ curfptr[9]), (3), (/*_.NEWFLD__V7*/ curfptr[6]), "FLBIND_FIELD"); ; /*_.NEWFLDBIND__V9*/ curfptr[8] = /*_.INST__V10*/ curfptr[9];;} ; - BASILYS_LOCATION("warmelt-macro.melt:2171:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2176:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2171:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2176:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[6]); - BASILYS_LOCATION("warmelt-macro.melt:2171:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2176:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~LOC*/ curfclos->tabval[7]); /*_.WARN_IF_REDEFINED__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.FLDNAM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2172:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2177:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2172:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2177:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWFLDBIND__V9*/ curfptr[8]; /*_.PUT_ENV__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[4])), (basilys_ptr_t)((/*~ENV*/ curfclos->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; { - BASILYS_LOCATION("warmelt-macro.melt:2173:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2178:/ locexp"); basilysgc_multiple_put_nth((basilys_ptr_t)((/*~OWNFIELDBINDINGS*/ curfclos->tabval[8])), (/*_#IX__L1*/ curfnum[0]), (basilys_ptr_t)(/*_.NEWFLDBIND__V9*/ curfptr[8]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2167:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2172:/ clear"); /*clear*/ /*_.NEWFLDBIND__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2167:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2172:/ clear"); /*clear*/ /*_.WARN_IF_REDEFINED__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2167:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2172:/ clear"); /*clear*/ /*_.PUT_ENV__V12*/ curfptr[11] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2158:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2163:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2158:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2163:/ clear"); /*clear*/ /*_#FLDOFF__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2158:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2163:/ clear"); /*clear*/ /*_.NEWFLD__V7*/ curfptr[6] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2154:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2159:/ clear"); /*clear*/ /*_.FLDSTR__V5*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2154:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2159:/ clear"); /*clear*/ /*_.MAPSTRING_GETSTR__V6*/ curfptr[5] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2151:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ;} ; @@ -22571,39 +22638,39 @@ basilys_trace_start("PARSE_FIELD_ASSIGNMENT", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2196:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ getarg"); /*_.CLA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2196:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.LOC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.LOC__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2196:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.FLDKW__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.FLDKW__V4*/ curfptr[3])) != NULL); /*getarg#3*/ - BASILYS_LOCATION("warmelt-macro.melt:2196:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.EXPR__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.EXPR__V5*/ curfptr[4])) != NULL); /*getarg#4*/ - BASILYS_LOCATION("warmelt-macro.melt:2196:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ getarg"); if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V6*/ curfptr[5])) != NULL); /*getarg#5*/ - BASILYS_LOCATION("warmelt-macro.melt:2196:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ getarg"); if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V7*/ curfptr[6])) != NULL); @@ -22612,20 +22679,20 @@ basilys_trace_start("PARSE_FIELD_ASSIGNMENT", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2196:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2201:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLDKW__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])));; /*_#NOT__L2*/ curfnum[1] = (!(/*_#IS_A__L1*/ curfnum[0]));; - BASILYS_LOCATION("warmelt-macro.melt:2197:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2202:/ cond"); /*cond*/ if (/*_#NOT__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2197:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2197:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2202:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2202:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2198:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2203:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V3*/ curfptr[2]), ( "expecting :fieldname"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -22634,24 +22701,24 @@ BASILYS_LOCATION("warmelt-macro.melt:2196:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2199:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2199:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2204:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2204:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLDKW__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2199:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2204:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2199:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2204:/ cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2199:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2204:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2199:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2204:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2199:/ locexp"); - basilys_assert_failed(( "check fldkw"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2199)?(2199):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2204:/ locexp"); + basilys_assert_failed(( "check fldkw"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2204)?(2204):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; @@ -22661,36 +22728,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2196:/ block"); ; /*_.IFCPP___V8*/ curfptr[7] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2199:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2204:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2199:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2204:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2199:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2204:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2200:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2200:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2205:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2205:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2200:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2205:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2200:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2205:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2200:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2205:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2200:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2205:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2200:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2200)?(2200):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2205:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2205)?(2205):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; @@ -22700,36 +22767,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2196:/ block"); ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2200:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2205:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2200:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2205:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2200:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2205:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2201:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2201:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2206:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2206:/ block"); /*block*/{ /*_#IS_CLOSURE__L5*/ curfnum[2] = (basilys_magic_discr((basilys_ptr_t)(/*_.MEXPANDER__V7*/ curfptr[6])) == OBMAG_CLOSURE);; - BASILYS_LOCATION("warmelt-macro.melt:2201:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2206:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L5*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2201:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2206:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2201:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2206:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2201:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2206:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2201:/ locexp"); - basilys_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2201)?(2201):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2206:/ locexp"); + basilys_assert_failed(( "check mexpander"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2206)?(2206):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; @@ -22739,44 +22806,44 @@ BASILYS_LOCATION("warmelt-macro.melt:2196:/ block"); ; /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2201:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2206:/ clear"); /*clear*/ /*_#IS_CLOSURE__L5*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2201:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2206:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2201:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2206:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2203:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2208:/ block"); /*block*/{ /*_.FLDBOX__V15*/ curfptr[14] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[2])), (basilys_ptr_t)((/*nil*/NULL)));; /*_#IS_A__L6*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:2205:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2210:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2205:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2205:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2210:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2210:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2207:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2212:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CLA__V2*/ curfptr[1]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V17*/ curfptr[16] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2208:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2208:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V19*/ curfptr[18] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (2)); ; - BASILYS_LOCATION("warmelt-macro.melt:2208:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[0] = (basilys_ptr_t)(/*_.FLDKW__V4*/ curfptr[3]); ; - BASILYS_LOCATION("warmelt-macro.melt:2208:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18]))); @@ -22784,214 +22851,214 @@ BASILYS_LOCATION("warmelt-macro.melt:2196:/ block"); ; /*_.LAMBDA___V18*/ curfptr[17] = /*_.LAMBDA___V19*/ curfptr[18];;} ; - BASILYS_LOCATION("warmelt-macro.melt:2206:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2211:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2206:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2211:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V18*/ curfptr[17]; /*_.MULTIPLE_ITERATE_TEST__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_ITERATE_TEST*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.CLASS_FIELDS__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V16*/ curfptr[15] = /*_.MULTIPLE_ITERATE_TEST__V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2205:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2210:/ clear"); /*clear*/ /*_.CLASS_FIELDS__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2205:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2210:/ clear"); /*clear*/ /*_.LAMBDA___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2205:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2210:/ clear"); /*clear*/ /*_.MULTIPLE_ITERATE_TEST__V20*/ curfptr[19] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2205:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2210:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2205:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2210:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2219:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2224:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2219:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2224:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDKW__V4*/ curfptr[3]), 1, "NAMED_NAME");/*_.NAMED_NAME__V22*/ curfptr[17] = slot; }; ; /*_.FLDNAM__V23*/ curfptr[19] = basilysgc_named_symbol( basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V22*/ curfptr[17])), BASILYS_CREATE);; - BASILYS_LOCATION("warmelt-macro.melt:2220:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2225:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2220:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2225:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FLDNAM__V23*/ curfptr[19]; /*_.FLDBIND__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.ENV__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLDBIND__V24*/ curfptr[23]), (basilys_ptr_t)((/*!CLASS_FIELD_BINDING*/ curfrout->tabval[8])));; - BASILYS_LOCATION("warmelt-macro.melt:2222:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2227:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2222:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2222:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2227:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2227:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2223:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2228:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDBIND__V24*/ curfptr[23]), 3, "FLBIND_FIELD");/*_.FLBIND_FIELD__V26*/ curfptr[25] = slot; }; ; /*_.FLD__V25*/ curfptr[24] = /*_.FLBIND_FIELD__V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2222:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2227:/ clear"); /*clear*/ /*_.FLBIND_FIELD__V26*/ curfptr[25] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2222:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2227:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2222:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2227:/ block"); /*block*/{ /*_#IS_A__L8*/ curfnum[7] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLDBIND__V24*/ curfptr[23]), (basilys_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[9])));; - BASILYS_LOCATION("warmelt-macro.melt:2224:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2229:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2224:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2224:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2229:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2229:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2225:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2230:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2225:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2230:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDBIND__V24*/ curfptr[23]), 1, "VBIND_VALUE");/*_.VFLD__V29*/ curfptr[28] = slot; }; ; /*_#IS_A__L9*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.VFLD__V29*/ curfptr[28]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[10])));; - BASILYS_LOCATION("warmelt-macro.melt:2226:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2231:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2226:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2231:/ cond.then"); /*_.IF___V30*/ curfptr[29] = /*_.VFLD__V29*/ curfptr[28];; - } else {BASILYS_LOCATION("warmelt-macro.melt:2226:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2231:/ cond.else"); /*_.IF___V30*/ curfptr[29] = NULL;; } ; /*_.LET___V28*/ curfptr[27] = /*_.IF___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2225:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2230:/ clear"); /*clear*/ /*_.VFLD__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2225:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2230:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2225:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2230:/ clear"); /*clear*/ /*_.IF___V30*/ curfptr[29] = 0 ;} ; /*_.IFELSE___V27*/ curfptr[25] = /*_.LET___V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2224:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2229:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2224:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2229:/ cond.else"); /*_.IFELSE___V27*/ curfptr[25] = NULL;; } ; /*_.FLD__V25*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2222:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2227:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2222:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2227:/ clear"); /*clear*/ /*_.IFELSE___V27*/ curfptr[25] = 0 ;} ; } ; /*_#IS_A__L10*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLD__V25*/ curfptr[24]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[10])));; - BASILYS_LOCATION("warmelt-macro.melt:2229:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2234:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2229:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2229:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2234:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2234:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2230:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2235:/ locexp"); basilysgc_box_put((basilys_ptr_t)(/*_.FLDBOX__V15*/ curfptr[14]), (basilys_ptr_t)(/*_.FLD__V25*/ curfptr[24]));} ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2229:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2234:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2229:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2234:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2232:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2237:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDKW__V4*/ curfptr[3]), 1, "NAMED_NAME");/*_.NAMED_NAME__V31*/ curfptr[28] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2231:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2236:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V3*/ curfptr[2]), ( "invalid field name in field assignment"), (basilys_ptr_t)(/*_.NAMED_NAME__V31*/ curfptr[28]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2229:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2234:/ clear"); /*clear*/ /*_.NAMED_NAME__V31*/ curfptr[28] = 0 ;} ; } ; /*_.LET___V21*/ curfptr[16] = (/*nil*/NULL);; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2219:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2224:/ clear"); /*clear*/ /*_.NAMED_NAME__V22*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2219:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2224:/ clear"); /*clear*/ /*_.FLDNAM__V23*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2219:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2224:/ clear"); /*clear*/ /*_.FLDBIND__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2219:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2224:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2219:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2224:/ clear"); /*clear*/ /*_.FLD__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2219:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2224:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ;} ; /*_.IFELSE___V16*/ curfptr[15] = /*_.LET___V21*/ curfptr[16];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2205:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2210:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[16] = 0 ;} ; } ; - BASILYS_LOCATION("warmelt-macro.melt:2236:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2241:/ block"); /*block*/{ /*_.FLD__V33*/ curfptr[27] = basilys_box_content((basilysbox_ptr_t)(/*_.FLDBOX__V15*/ curfptr[14]));; /*_#IS_A__L11*/ curfnum[7] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLD__V33*/ curfptr[27]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[10])));; - BASILYS_LOCATION("warmelt-macro.melt:2237:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2242:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2237:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2237:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2242:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2242:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2238:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2243:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2238:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2243:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2238:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2243:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V6*/ curfptr[5]; - BASILYS_LOCATION("warmelt-macro.melt:2238:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2243:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V7*/ curfptr[6]; /*_.XEX__V36*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.EXPR__V5*/ curfptr[4]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2239:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2244:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2239:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2244:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_FIELDASSIGN*/ curfrout->tabval[12])), (3), "CLASS_SRC_FIELDASSIGN");/*_.INST__V38*/ curfptr[23] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2239:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2244:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[23]), (0), (/*_.LOC__V3*/ curfptr[2]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2239:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2244:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[23]), (1), (/*_.FLD__V33*/ curfptr[27]), "SFLA_FIELD"); ; - BASILYS_LOCATION("warmelt-macro.melt:2239:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2244:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[23]), (2), (/*_.XEX__V36*/ curfptr[17]), "SFLA_EXPR"); @@ -23000,77 +23067,77 @@ BASILYS_LOCATION("warmelt-macro.melt:2196:/ block"); ; /*_.LET___V35*/ curfptr[28] = /*_.INST___V37*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2238:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2243:/ clear"); /*clear*/ /*_.XEX__V36*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2238:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2243:/ clear"); /*clear*/ /*_.INST___V37*/ curfptr[19] = 0 ;} ; /*_.IFELSE___V34*/ curfptr[25] = /*_.LET___V35*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2237:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2242:/ clear"); /*clear*/ /*_.LET___V35*/ curfptr[28] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2237:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2242:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2237:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2242:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2245:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2250:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDKW__V4*/ curfptr[3]), 1, "NAMED_NAME");/*_.NAMED_NAME__V39*/ curfptr[24] = slot; }; ; /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2244:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2249:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V3*/ curfptr[2]), ( "unknown field name in field assignment"), (basilys_ptr_t)(/*_.NAMED_NAME__V39*/ curfptr[24]));} ; /*clear*/ /*_.IFELSE___V34*/ curfptr[25] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2237:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2242:/ clear"); /*clear*/ /*_.NAMED_NAME__V39*/ curfptr[24] = 0 ;} ; } ; /*_.LET___V32*/ curfptr[29] = /*_.IFELSE___V34*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2236:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2241:/ clear"); /*clear*/ /*_.FLD__V33*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2236:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2241:/ clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2236:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2241:/ clear"); /*clear*/ /*_.IFELSE___V34*/ curfptr[25] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.LET___V32*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2203:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2208:/ clear"); /*clear*/ /*_.FLDBOX__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2203:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2208:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2203:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2208:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2203:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2208:/ clear"); /*clear*/ /*_.LET___V32*/ curfptr[29] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2196:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; - BASILYS_LOCATION("warmelt-macro.melt:2196:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2196:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2196:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ clear"); /*clear*/ /*_#NOT__L2*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2196:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2196:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2196:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2196:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; @@ -23131,39 +23198,39 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2208:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ getarg"); /*_.CFLD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2208:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2208:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2213:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2209:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2209:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2214:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2214:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CFLD__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2209:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2214:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2209:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2214:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2209:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2214:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2209:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2214:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2209:/ locexp"); - basilys_assert_failed(( "check fld"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2209)?(2209):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2214:/ locexp"); + basilys_assert_failed(( "check fld"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2214)?(2214):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; @@ -23173,67 +23240,67 @@ BASILYS_LOCATION("warmelt-macro.melt:2208:/ block"); ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2209:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2214:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2209:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2214:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2209:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2214:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2210:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2215:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CFLD__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ curfptr[3] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2211:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2216:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*~FLDKW*/ curfclos->tabval[0])), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ curfptr[5] = slot; }; ; /*_#S__L3*/ curfnum[1] = basilys_string_same((basilys_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[3]), (basilys_ptr_t)(/*_.NAMED_NAME__V6*/ curfptr[5]));; - BASILYS_LOCATION("warmelt-macro.melt:2210:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2215:/ cond"); /*cond*/ if (/*_#S__L3*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2210:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2210:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2215:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2215:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2213:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2218:/ locexp"); basilysgc_box_put((basilys_ptr_t)((/*~FLDBOX*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.CFLD__V2*/ curfptr[1]));} ; - BASILYS_LOCATION("warmelt-macro.melt:2212:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2217:/ block"); /*block*/{ /*_.PROGN___V8*/ curfptr[7] = (/*nil*/NULL);;} ; /*_.IFELSE___V7*/ curfptr[6] = /*_.PROGN___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2210:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2215:/ clear"); /*clear*/ /*_.PROGN___V8*/ curfptr[7] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2210:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2215:/ cond.else"); /*_.IFELSE___V7*/ curfptr[6] = /*_.CFLD__V2*/ curfptr[1];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2208:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V7*/ curfptr[6];; - BASILYS_LOCATION("warmelt-macro.melt:2208:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ clear"); /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ clear"); /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ clear"); /*clear*/ /*_#S__L3*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2208:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; @@ -23294,18 +23361,18 @@ basilys_trace_start("MEXPAND_DEFINSTANCE", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2249:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2249:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2249:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -23314,28 +23381,28 @@ basilys_trace_start("MEXPAND_DEFINSTANCE", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2254:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2250:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2250:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2255:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2255:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2250:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2255:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2250:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2255:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2250:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2255:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2250:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2255:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2250:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2250)?(2250):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2255:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2255)?(2255):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -23345,36 +23412,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2250:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2255:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2250:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2255:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2250:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2255:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2251:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2251:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2256:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2256:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2251:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2256:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2251:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2256:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2251:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2256:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2251:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2256:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2251:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2251)?(2251):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2256:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2256)?(2256):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -23384,61 +23451,61 @@ BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2251:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2256:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2251:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2256:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2251:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2256:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2252:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2252:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2257:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2257:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2252:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2257:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2252:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2257:/ apply.arg"); argtab[0].bp_cstring = "mexp.definstance sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:2252:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2257:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2252:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2257:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2252:/ apply.arg"); - argtab[3].bp_long = 2252; + BASILYS_LOCATION("warmelt-macro.melt:2257:/ apply.arg"); + argtab[3].bp_long = 2257; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2252:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2257:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2252:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2257:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2252:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2257:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ block"); /*block*/{ /*_.PREDEF__V12*/ curfptr[11] = (/*nil*/NULL);; /*_.OBJNUM__V13*/ curfptr[12] = (/*nil*/NULL);; /*_.FIELDS__V14*/ curfptr[13] = (/*nil*/NULL);; /*_.FIELDNAMS__V15*/ curfptr[14] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2257:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2262:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V16*/ curfptr[15] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2258:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2263:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V17*/ curfptr[16] = slot; }; ; @@ -23453,14 +23520,14 @@ BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); /*_.CLABIND__V23*/ curfptr[22] = (/*nil*/NULL);; /*_#IS_NOT_A__L4*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V20*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:2265:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2270:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2265:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2265:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2270:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2270:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2266:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2271:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "missing symbol for DEFINSTANCE"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -23469,35 +23536,35 @@ BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); ; /*_.PAIR_TAIL__V24*/ curfptr[23] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2267:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2272:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V25*/ curfptr[24] = /*_.PAIR_TAIL__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.melt:2268:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2273:/ block"); /*block*/{ /*_.NAM__V27*/ curfptr[26] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; /*_#IS_NOT_A__L5*/ curfnum[4] = !basilys_is_instance_of((basilys_ptr_t)(/*_.NAM__V27*/ curfptr[26]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:2269:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2274:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2269:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2269:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2274:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2274:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2270:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2275:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "missing class name for DEFINSTANCE"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2271:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2276:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2271:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2276:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2271:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2276:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NAM__V27*/ curfptr[26]; /*_.BND__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -23506,46 +23573,46 @@ BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.BND__V29*/ curfptr[28]), (basilys_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[6])));; - BASILYS_LOCATION("warmelt-macro.melt:2275:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2280:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2275:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2275:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2280:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2280:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2276:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2281:/ compute"); /*_.CLABIND__V23*/ curfptr[22] = /*_.SETQ___V32*/ curfptr[31] = /*_.BND__V29*/ curfptr[28];; - BASILYS_LOCATION("warmelt-macro.melt:2277:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2282:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V29*/ curfptr[28]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V33*/ curfptr[32] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2277:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2282:/ compute"); /*_.CLA__V22*/ curfptr[21] = /*_.SETQ___V34*/ curfptr[33] = /*_.CBIND_CLASS__V33*/ curfptr[32];; - BASILYS_LOCATION("warmelt-macro.melt:2275:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2280:/ block"); /*block*/{ /*_.PROGN___V35*/ curfptr[34] = /*_.SETQ___V34*/ curfptr[33];;} ; /*_.IFELSE___V31*/ curfptr[30] = /*_.PROGN___V35*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2275:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2280:/ clear"); /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2275:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2280:/ clear"); /*clear*/ /*_.CBIND_CLASS__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2275:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2280:/ clear"); /*clear*/ /*_.SETQ___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2275:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2280:/ clear"); /*clear*/ /*_.PROGN___V35*/ curfptr[34] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2275:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2280:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2275:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2280:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.BND__V29*/ curfptr[28]), (basilys_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[7])));; - BASILYS_LOCATION("warmelt-macro.melt:2278:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2278:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2278:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2279:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2284:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V29*/ curfptr[28]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V36*/ curfptr[31] = slot; }; ; @@ -23553,116 +23620,116 @@ BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); basilys_is_instance_of((basilys_ptr_t)(/*_.VBIND_VALUE__V36*/ curfptr[31]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));; /*_#IF___L8*/ curfnum[7] = /*_#IS_A__L9*/ curfnum[8];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2278:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ clear"); /*clear*/ /*_.VBIND_VALUE__V36*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2278:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2278:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2283:/ cond.else"); /*_#IF___L8*/ curfnum[7] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:2278:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ cond"); /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2278:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2278:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2280:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2285:/ compute"); /*_.CLABIND__V23*/ curfptr[22] = /*_.SETQ___V38*/ curfptr[33] = /*_.BND__V29*/ curfptr[28];; - BASILYS_LOCATION("warmelt-macro.melt:2281:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2286:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V29*/ curfptr[28]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V39*/ curfptr[34] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2281:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2286:/ compute"); /*_.CLA__V22*/ curfptr[21] = /*_.SETQ___V40*/ curfptr[31] = /*_.VBIND_VALUE__V39*/ curfptr[34];; - BASILYS_LOCATION("warmelt-macro.melt:2278:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ block"); /*block*/{ /*_.PROGN___V41*/ curfptr[40] = /*_.SETQ___V40*/ curfptr[31];;} ; /*_.IFELSE___V37*/ curfptr[32] = /*_.PROGN___V41*/ curfptr[40];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2278:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ clear"); /*clear*/ /*_.SETQ___V38*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2278:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ clear"); /*clear*/ /*_.VBIND_VALUE__V39*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2278:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ clear"); /*clear*/ /*_.SETQ___V40*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2278:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ clear"); /*clear*/ /*_.PROGN___V41*/ curfptr[40] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2278:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2283:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2278:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2284:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2289:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NAM__V27*/ curfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V42*/ curfptr[33] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2283:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2288:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "invalid class name for DEFINSTANCE"), (basilys_ptr_t)(/*_.NAMED_NAME__V42*/ curfptr[33]));} ; /*_.THE_NULL__V43*/ curfptr[34] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2285:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2290:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V43*/ curfptr[34];; - BASILYS_LOCATION("warmelt-macro.melt:2285:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2290:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2282:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2287:/ block"); /*block*/{ /*_.PROGN___V45*/ curfptr[40] = /*_.RETURN___V44*/ curfptr[31];;} ; /*_.IFELSE___V37*/ curfptr[32] = /*_.PROGN___V45*/ curfptr[40];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2278:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ clear"); /*clear*/ /*_.NAMED_NAME__V42*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2278:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ clear"); /*clear*/ /*_.THE_NULL__V43*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2278:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ clear"); /*clear*/ /*_.RETURN___V44*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2278:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2283:/ clear"); /*clear*/ /*_.PROGN___V45*/ curfptr[40] = 0 ;} ; } ; /*_.IFELSE___V31*/ curfptr[30] = /*_.IFELSE___V37*/ curfptr[32];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2275:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2280:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2275:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2280:/ clear"); /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2275:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2280:/ clear"); /*clear*/ /*_.IFELSE___V37*/ curfptr[32] = 0 ;} ; } ; - BASILYS_LOCATION("warmelt-macro.melt:2287:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2292:/ compute"); /*_.CLANAME__V21*/ curfptr[20] = /*_.SETQ___V46*/ curfptr[33] = /*_.NAM__V27*/ curfptr[26];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2288:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2288:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2293:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2293:/ block"); /*block*/{ /*_#IS_A__L10*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLA__V22*/ curfptr[21]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));; - BASILYS_LOCATION("warmelt-macro.melt:2288:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2293:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2288:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2293:/ cond.then"); /*_.IFELSE___V48*/ curfptr[31] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2288:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2293:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2288:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2293:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2288:/ locexp"); - basilys_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2288)?(2288):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2293:/ locexp"); + basilys_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2293)?(2293):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V48*/ curfptr[31] = 0 ;} ; @@ -23672,40 +23739,40 @@ BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); ; /*_.IFCPP___V47*/ curfptr[34] = /*_.IFELSE___V48*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2288:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2293:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2288:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2293:/ clear"); /*clear*/ /*_.IFELSE___V48*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2288:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2293:/ cppif.else"); /*_.IFCPP___V47*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V49*/ curfptr[40] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2289:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2294:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V50*/ curfptr[32] = /*_.PAIR_TAIL__V49*/ curfptr[40];; - BASILYS_LOCATION("warmelt-macro.melt:2290:/ loop"); - /*loop*/{ labloop_INSLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:2290:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:2295:/ loop"); + /*loop*/{ labloop_INSLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:2295:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:2290:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2295:/ block"); /*block*/{ /*_#IS_PAIR__L11*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])) == OBMAG_PAIR);; /*_#NOT__L12*/ curfnum[7] = (!(/*_#IS_PAIR__L11*/ curfnum[6]));; - BASILYS_LOCATION("warmelt-macro.melt:2291:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2296:/ cond"); /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2291:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2291:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2296:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2296:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2291:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2296:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2291:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2296:/ compute"); /*_.INSLOOP__V52*/ curfptr[51] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2291:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:2296:/ exit"); /*exit*/{ goto labexit_INSLOOP_1;} ;} @@ -23714,20 +23781,20 @@ BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2292:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2297:/ block"); /*block*/{ /*_.CURFKW__V54*/ curfptr[53] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; /*_#IS_NOT_A__L13*/ curfnum[8] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CURFKW__V54*/ curfptr[53]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[9])));; - BASILYS_LOCATION("warmelt-macro.melt:2293:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2298:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2293:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2293:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2298:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2298:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2294:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2299:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "expecting keyword in DEFINSTANCE"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -23736,27 +23803,27 @@ BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); ; /*_.PAIR_TAIL__V55*/ curfptr[54] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2295:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2300:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V56*/ curfptr[55] = /*_.PAIR_TAIL__V55*/ curfptr[54];; - BASILYS_LOCATION("warmelt-macro.melt:2296:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2301:/ block"); /*block*/{ /*_.CUREXP__V58*/ curfptr[57] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; /*_#__L14*/ curfnum[13] = ((/*_.CURFKW__V54*/ curfptr[53]) == ((/*!konst_10_OBJ_NUM*/ curfrout->tabval[10])));; - BASILYS_LOCATION("warmelt-macro.melt:2297:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2302:/ cond"); /*cond*/ if (/*_#__L14*/ curfnum[13]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2297:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2297:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2302:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2302:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2298:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2303:/ cond"); /*cond*/ if (/*_.OBJNUM__V13*/ curfptr[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2298:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2298:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2303:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2303:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2298:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2303:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :obj_num in DEFINSTANCE"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -23765,68 +23832,68 @@ BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); ; /*_#IS_A__L15*/ curfnum[14] = basilys_is_instance_of((basilys_ptr_t)(/*_.CUREXP__V58*/ curfptr[57]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2300:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2305:/ cond"); /*cond*/ if (/*_#IS_A__L15*/ curfnum[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2300:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2300:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2305:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2305:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2301:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2306:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2301:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2306:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2301:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2306:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.CUREXP__V58*/ curfptr[57]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V60*/ curfptr[59] = /*_.MACROEXPAND_1__V61*/ curfptr[60];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2300:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2305:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V61*/ curfptr[60] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2300:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2305:/ cond.else"); /*_.IFELSE___V60*/ curfptr[59] = /*_.CUREXP__V58*/ curfptr[57];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2299:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2304:/ compute"); /*_.OBJNUM__V13*/ curfptr[12] = /*_.SETQ___V62*/ curfptr[60] = /*_.IFELSE___V60*/ curfptr[59];; - BASILYS_LOCATION("warmelt-macro.melt:2297:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2302:/ block"); /*block*/{ /*_.PROGN___V63*/ curfptr[62] = /*_.SETQ___V62*/ curfptr[60];;} ; /*_.IFELSE___V59*/ curfptr[58] = /*_.PROGN___V63*/ curfptr[62];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2297:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2302:/ clear"); /*clear*/ /*_#IS_A__L15*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2297:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2302:/ clear"); /*clear*/ /*_.IFELSE___V60*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2297:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2302:/ clear"); /*clear*/ /*_.SETQ___V62*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2297:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2302:/ clear"); /*clear*/ /*_.PROGN___V63*/ curfptr[62] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2297:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2302:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2297:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2302:/ block"); /*block*/{ /*_#__L16*/ curfnum[14] = ((/*_.CURFKW__V54*/ curfptr[53]) == ((/*!konst_12_PREDEF*/ curfrout->tabval[12])));; - BASILYS_LOCATION("warmelt-macro.melt:2304:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2309:/ cond"); /*cond*/ if (/*_#__L16*/ curfnum[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2304:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2304:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2309:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2309:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2305:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2310:/ cond"); /*cond*/ if (/*_.PREDEF__V12*/ curfptr[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2305:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2305:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2310:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2310:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2305:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2310:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :predef in DEFINSTANCE"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -23835,80 +23902,80 @@ BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); ; /*_#IS_A__L17*/ curfnum[16] = basilys_is_instance_of((basilys_ptr_t)(/*_.CUREXP__V58*/ curfptr[57]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2307:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2312:/ cond"); /*cond*/ if (/*_#IS_A__L17*/ curfnum[16]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2307:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2307:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2312:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2312:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2308:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2313:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2308:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2313:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2308:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2313:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V66*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.CUREXP__V58*/ curfptr[57]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V65*/ curfptr[60] = /*_.MACROEXPAND_1__V66*/ curfptr[62];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2312:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V66*/ curfptr[62] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2307:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2312:/ cond.else"); /*_.IFELSE___V65*/ curfptr[60] = /*_.CUREXP__V58*/ curfptr[57];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2306:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2311:/ compute"); /*_.PREDEF__V12*/ curfptr[11] = /*_.SETQ___V67*/ curfptr[62] = /*_.IFELSE___V65*/ curfptr[60];; - BASILYS_LOCATION("warmelt-macro.melt:2304:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2309:/ block"); /*block*/{ /*_.PROGN___V68*/ curfptr[67] = /*_.SETQ___V67*/ curfptr[62];;} ; /*_.IFELSE___V64*/ curfptr[59] = /*_.PROGN___V68*/ curfptr[67];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2304:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2309:/ clear"); /*clear*/ /*_#IS_A__L17*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2304:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2309:/ clear"); /*clear*/ /*_.IFELSE___V65*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2304:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2309:/ clear"); /*clear*/ /*_.SETQ___V67*/ curfptr[62] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2304:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2309:/ clear"); /*clear*/ /*_.PROGN___V68*/ curfptr[67] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2304:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2309:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2304:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2309:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2312:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2317:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2312:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2317:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2312:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2317:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V17*/ curfptr[16]; - BASILYS_LOCATION("warmelt-macro.melt:2312:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2317:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V54*/ curfptr[53]; - BASILYS_LOCATION("warmelt-macro.melt:2312:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2317:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V58*/ curfptr[57]; - BASILYS_LOCATION("warmelt-macro.melt:2312:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2317:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2312:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2317:/ apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.FLDA__V69*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.CLA__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2313:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2318:/ cond"); /*cond*/ if (/*_.FLDA__V69*/ curfptr[60]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2313:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2313:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2318:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2318:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2314:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2319:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V30*/ curfptr[29]), (basilys_ptr_t)(/*_.FLDA__V69*/ curfptr[60]));} ; /*epilog*/} @@ -23916,10 +23983,10 @@ BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2312:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2317:/ clear"); /*clear*/ /*_.FLDA__V69*/ curfptr[60] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2311:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2316:/ block"); /*block*/{} ; /*epilog*/} @@ -23928,292 +23995,292 @@ BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); ; /*_.IFELSE___V59*/ curfptr[58] = /*_.IFELSE___V64*/ curfptr[59];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2297:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2302:/ clear"); /*clear*/ /*_#__L16*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2297:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2302:/ clear"); /*clear*/ /*_.IFELSE___V64*/ curfptr[59] = 0 ;} ; } ; /*_.LET___V57*/ curfptr[56] = /*_.IFELSE___V59*/ curfptr[58];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2296:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2301:/ clear"); /*clear*/ /*_.CUREXP__V58*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2296:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2301:/ clear"); /*clear*/ /*_#__L14*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2296:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2301:/ clear"); /*clear*/ /*_.IFELSE___V59*/ curfptr[58] = 0 ;} ; /*_.PAIR_TAIL__V70*/ curfptr[62] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2317:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2322:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V71*/ curfptr[67] = /*_.PAIR_TAIL__V70*/ curfptr[62];; /*_.LET___V53*/ curfptr[52] = /*_.SETQ___V71*/ curfptr[67];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2292:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2297:/ clear"); /*clear*/ /*_.CURFKW__V54*/ curfptr[53] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2292:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2297:/ clear"); /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2292:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2297:/ clear"); /*clear*/ /*_.PAIR_TAIL__V55*/ curfptr[54] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2292:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2297:/ clear"); /*clear*/ /*_.SETQ___V56*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2292:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2297:/ clear"); /*clear*/ /*_.LET___V57*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2292:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2297:/ clear"); /*clear*/ /*_.PAIR_TAIL__V70*/ curfptr[62] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2292:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2297:/ clear"); /*clear*/ /*_.SETQ___V71*/ curfptr[67] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2290:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2295:/ clear"); /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2290:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2295:/ clear"); /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2290:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2295:/ clear"); /*clear*/ /*_.LET___V53*/ curfptr[52] = 0 ;} ; ; goto labloop_INSLOOP_1; - labexit_INSLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:2290:/ loopepilog"); + labexit_INSLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:2295:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V51*/ curfptr[31] = /*_.INSLOOP__V52*/ curfptr[51];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2319:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2324:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2319:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2324:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2319:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2324:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[15]); /*_.FASTUP__V73*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.FLDLIST__V30*/ curfptr[29]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2321:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2326:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2321:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2326:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_DEFINSTANCE*/ curfrout->tabval[16])), (8), "CLASS_SRC_DEFINSTANCE");/*_.INST__V75*/ curfptr[58] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2321:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2326:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (0), (/*_.LOC__V17*/ curfptr[16]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2321:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2326:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (1), (/*_.SYMB__V20*/ curfptr[19]), "SDEF_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:2321:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2326:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (2), (/*_.PREDEF__V12*/ curfptr[11]), "SOBJ_PREDEF"); ; - BASILYS_LOCATION("warmelt-macro.melt:2321:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2326:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (4), (/*_.CLA__V22*/ curfptr[21]), "SINST_CLASS"); ; - BASILYS_LOCATION("warmelt-macro.melt:2321:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2326:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (5), (/*_.CLABIND__V23*/ curfptr[22]), "SINST_CLABIND"); ; - BASILYS_LOCATION("warmelt-macro.melt:2321:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2326:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (6), (/*_.OBJNUM__V13*/ curfptr[12]), "SINST_OBJNUM"); ; - BASILYS_LOCATION("warmelt-macro.melt:2321:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2326:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (7), (/*_.FASTUP__V73*/ curfptr[59]), "SINST_FIELDS"); ; /*_.SINST__V74*/ curfptr[57] = /*_.INST__V75*/ curfptr[58];;} ; - BASILYS_LOCATION("warmelt-macro.melt:2331:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2336:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2331:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2336:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_INSTANCE_BINDING*/ curfrout->tabval[17])), (3), "CLASS_INSTANCE_BINDING");/*_.INST__V77*/ curfptr[54] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2331:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2336:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[54])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[54]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[54]), (0), (/*_.SYMB__V20*/ curfptr[19]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:2331:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2336:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[54])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[54]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[54]), (2), (/*_.CLA__V22*/ curfptr[21]), "IBIND_ICLASS"); ; /*_.IBIND__V76*/ curfptr[53] = /*_.INST__V77*/ curfptr[54];;} ; - BASILYS_LOCATION("warmelt-macro.melt:2336:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2341:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2336:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2341:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2336:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2341:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V17*/ curfptr[16]; /*_.WARN_IF_REDEFINED__V78*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.SYMB__V20*/ curfptr[19]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2337:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2342:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2337:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2342:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IBIND__V76*/ curfptr[53]; /*_.PUT_ENV__V79*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2338:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2338:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2343:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2343:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[16] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2338:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2343:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2338:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2343:/ apply.arg"); argtab[0].bp_cstring = "mexp.definstance sinst"; - BASILYS_LOCATION("warmelt-macro.melt:2338:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2343:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[16]; - BASILYS_LOCATION("warmelt-macro.melt:2338:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2343:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2338:/ apply.arg"); - argtab[3].bp_long = 2338; + BASILYS_LOCATION("warmelt-macro.melt:2343:/ apply.arg"); + argtab[3].bp_long = 2343; /*_.DEBUG_MSG_FUN__V81*/ curfptr[67] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SINST__V74*/ curfptr[57]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V80*/ curfptr[62] = /*_.DEBUG_MSG_FUN__V81*/ curfptr[67];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2338:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2343:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2338:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2343:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[67] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2338:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2343:/ cppif.else"); /*_.IFCPP___V80*/ curfptr[62] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2339:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2344:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SINST__V74*/ curfptr[57];; - BASILYS_LOCATION("warmelt-macro.melt:2339:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2344:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V72*/ curfptr[60] = /*_.RETURN___V82*/ curfptr[52];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2319:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2324:/ clear"); /*clear*/ /*_.FASTUP__V73*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2319:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2324:/ clear"); /*clear*/ /*_.SINST__V74*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2319:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2324:/ clear"); /*clear*/ /*_.IBIND__V76*/ curfptr[53] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2319:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2324:/ clear"); /*clear*/ /*_.WARN_IF_REDEFINED__V78*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2319:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2324:/ clear"); /*clear*/ /*_.PUT_ENV__V79*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2319:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2324:/ clear"); /*clear*/ /*_.IFCPP___V80*/ curfptr[62] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2319:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2324:/ clear"); /*clear*/ /*_.RETURN___V82*/ curfptr[52] = 0 ;} ; /*_.LET___V28*/ curfptr[27] = /*_.LET___V72*/ curfptr[60];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2271:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2276:/ clear"); /*clear*/ /*_.BND__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2271:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2276:/ clear"); /*clear*/ /*_.FLDLIST__V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2271:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2276:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2271:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2276:/ clear"); /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2271:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2276:/ clear"); /*clear*/ /*_.SETQ___V46*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2271:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2276:/ clear"); /*clear*/ /*_.IFCPP___V47*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2271:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2276:/ clear"); /*clear*/ /*_.PAIR_TAIL__V49*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2271:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2276:/ clear"); /*clear*/ /*_.SETQ___V50*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2271:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2276:/ clear"); /*clear*/ /*_.FOREVER___V51*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2271:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2276:/ clear"); /*clear*/ /*_.LET___V72*/ curfptr[60] = 0 ;} ; /*_.LET___V26*/ curfptr[25] = /*_.LET___V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2268:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2273:/ clear"); /*clear*/ /*_.NAM__V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2268:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2273:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2268:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2273:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.PREDEF__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.OBJNUM__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.FIELDS__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.FIELDNAMS__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.CONT__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.LOC__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.SYMB__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.CLANAME__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.CLA__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.CLABIND__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2258:/ clear"); /*clear*/ /*_.LET___V26*/ curfptr[25] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2249:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:2249:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2249:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2249:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2249:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2249:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -24274,18 +24341,18 @@ basilys_trace_start("MEXPAND_DEFSELECTOR", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2346:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2346:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2346:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -24294,28 +24361,28 @@ basilys_trace_start("MEXPAND_DEFSELECTOR", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2351:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2347:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2347:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2352:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2352:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2347:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2352:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2347:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2352:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2347:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2352:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2347:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2352:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2347:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2347)?(2347):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2352:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2352)?(2352):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -24325,36 +24392,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2347:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2352:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2347:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2352:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2347:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2352:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2348:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2348:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2353:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2353:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2348:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2353:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2348:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2353:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2348:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2353:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2348:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2353:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2348:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2348)?(2348):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2353:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2353)?(2353):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -24364,61 +24431,61 @@ BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2348:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2353:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2348:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2353:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2348:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2353:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2349:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2349:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2354:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2354:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2349:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2354:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2349:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2354:/ apply.arg"); argtab[0].bp_cstring = "mexp.definstance sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:2349:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2354:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2349:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2354:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2349:/ apply.arg"); - argtab[3].bp_long = 2349; + BASILYS_LOCATION("warmelt-macro.melt:2354:/ apply.arg"); + argtab[3].bp_long = 2354; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2349:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2354:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2349:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2354:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2349:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2354:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ block"); /*block*/{ /*_.PREDEF__V12*/ curfptr[11] = (/*nil*/NULL);; /*_.OBJNUM__V13*/ curfptr[12] = (/*nil*/NULL);; /*_.FIELDS__V14*/ curfptr[13] = (/*nil*/NULL);; /*_.FIELDNAMS__V15*/ curfptr[14] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2354:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2359:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V16*/ curfptr[15] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2355:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2360:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V17*/ curfptr[16] = slot; }; ; @@ -24433,14 +24500,14 @@ BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); /*_.CLABIND__V23*/ curfptr[22] = (/*nil*/NULL);; /*_#IS_NOT_A__L4*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V20*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:2362:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2367:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2362:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2362:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2367:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2367:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2363:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2368:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "missing symbol for DEFINSTANCE"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -24449,35 +24516,35 @@ BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); ; /*_.PAIR_TAIL__V24*/ curfptr[23] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2364:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2369:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V25*/ curfptr[24] = /*_.PAIR_TAIL__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.melt:2365:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2370:/ block"); /*block*/{ /*_.NAM__V27*/ curfptr[26] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; /*_#IS_NOT_A__L5*/ curfnum[4] = !basilys_is_instance_of((basilys_ptr_t)(/*_.NAM__V27*/ curfptr[26]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:2366:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2371:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2366:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2366:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2371:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2371:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2367:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2372:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "missing class name for DEFINSTANCE"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2368:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2373:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2368:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2373:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2368:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2373:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NAM__V27*/ curfptr[26]; /*_.BND__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -24486,46 +24553,46 @@ BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.BND__V29*/ curfptr[28]), (basilys_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[6])));; - BASILYS_LOCATION("warmelt-macro.melt:2372:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2377:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2372:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2372:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2377:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2377:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2373:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2378:/ compute"); /*_.CLABIND__V23*/ curfptr[22] = /*_.SETQ___V32*/ curfptr[31] = /*_.BND__V29*/ curfptr[28];; - BASILYS_LOCATION("warmelt-macro.melt:2374:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2379:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V29*/ curfptr[28]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V33*/ curfptr[32] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2374:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2379:/ compute"); /*_.CLA__V22*/ curfptr[21] = /*_.SETQ___V34*/ curfptr[33] = /*_.CBIND_CLASS__V33*/ curfptr[32];; - BASILYS_LOCATION("warmelt-macro.melt:2372:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2377:/ block"); /*block*/{ /*_.PROGN___V35*/ curfptr[34] = /*_.SETQ___V34*/ curfptr[33];;} ; /*_.IFELSE___V31*/ curfptr[30] = /*_.PROGN___V35*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2377:/ clear"); /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2377:/ clear"); /*clear*/ /*_.CBIND_CLASS__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2377:/ clear"); /*clear*/ /*_.SETQ___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2377:/ clear"); /*clear*/ /*_.PROGN___V35*/ curfptr[34] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2372:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2377:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2372:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2377:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.BND__V29*/ curfptr[28]), (basilys_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[7])));; - BASILYS_LOCATION("warmelt-macro.melt:2375:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2375:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2375:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2376:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2381:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V29*/ curfptr[28]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V36*/ curfptr[31] = slot; }; ; @@ -24533,116 +24600,116 @@ BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); basilys_is_instance_of((basilys_ptr_t)(/*_.VBIND_VALUE__V36*/ curfptr[31]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));; /*_#IF___L8*/ curfnum[7] = /*_#IS_A__L9*/ curfnum[8];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ clear"); /*clear*/ /*_.VBIND_VALUE__V36*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2375:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2380:/ cond.else"); /*_#IF___L8*/ curfnum[7] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:2375:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ cond"); /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2375:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2375:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2377:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2382:/ compute"); /*_.CLABIND__V23*/ curfptr[22] = /*_.SETQ___V38*/ curfptr[33] = /*_.BND__V29*/ curfptr[28];; - BASILYS_LOCATION("warmelt-macro.melt:2378:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2383:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V29*/ curfptr[28]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V39*/ curfptr[34] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2378:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2383:/ compute"); /*_.CLA__V22*/ curfptr[21] = /*_.SETQ___V40*/ curfptr[31] = /*_.VBIND_VALUE__V39*/ curfptr[34];; - BASILYS_LOCATION("warmelt-macro.melt:2375:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ block"); /*block*/{ /*_.PROGN___V41*/ curfptr[40] = /*_.SETQ___V40*/ curfptr[31];;} ; /*_.IFELSE___V37*/ curfptr[32] = /*_.PROGN___V41*/ curfptr[40];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ clear"); /*clear*/ /*_.SETQ___V38*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ clear"); /*clear*/ /*_.VBIND_VALUE__V39*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ clear"); /*clear*/ /*_.SETQ___V40*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ clear"); /*clear*/ /*_.PROGN___V41*/ curfptr[40] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2375:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2380:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2375:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2381:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2386:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NAM__V27*/ curfptr[26]), 1, "NAMED_NAME");/*_.NAMED_NAME__V42*/ curfptr[33] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2380:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2385:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "invalid class name for DEFINSTANCE"), (basilys_ptr_t)(/*_.NAMED_NAME__V42*/ curfptr[33]));} ; /*_.THE_NULL__V43*/ curfptr[34] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2382:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2387:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V43*/ curfptr[34];; - BASILYS_LOCATION("warmelt-macro.melt:2382:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2387:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2379:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2384:/ block"); /*block*/{ /*_.PROGN___V45*/ curfptr[40] = /*_.RETURN___V44*/ curfptr[31];;} ; /*_.IFELSE___V37*/ curfptr[32] = /*_.PROGN___V45*/ curfptr[40];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ clear"); /*clear*/ /*_.NAMED_NAME__V42*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ clear"); /*clear*/ /*_.THE_NULL__V43*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ clear"); /*clear*/ /*_.RETURN___V44*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2380:/ clear"); /*clear*/ /*_.PROGN___V45*/ curfptr[40] = 0 ;} ; } ; /*_.IFELSE___V31*/ curfptr[30] = /*_.IFELSE___V37*/ curfptr[32];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2377:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2377:/ clear"); /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2372:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2377:/ clear"); /*clear*/ /*_.IFELSE___V37*/ curfptr[32] = 0 ;} ; } ; - BASILYS_LOCATION("warmelt-macro.melt:2384:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2389:/ compute"); /*_.CLANAME__V21*/ curfptr[20] = /*_.SETQ___V46*/ curfptr[33] = /*_.NAM__V27*/ curfptr[26];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2385:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2385:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2390:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2390:/ block"); /*block*/{ /*_#IS_A__L10*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLA__V22*/ curfptr[21]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));; - BASILYS_LOCATION("warmelt-macro.melt:2385:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2390:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2385:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2390:/ cond.then"); /*_.IFELSE___V48*/ curfptr[31] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2385:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2390:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2385:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2390:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2385:/ locexp"); - basilys_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2385)?(2385):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2390:/ locexp"); + basilys_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2390)?(2390):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V48*/ curfptr[31] = 0 ;} ; @@ -24652,40 +24719,40 @@ BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); ; /*_.IFCPP___V47*/ curfptr[34] = /*_.IFELSE___V48*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2385:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2390:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2385:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2390:/ clear"); /*clear*/ /*_.IFELSE___V48*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2385:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2390:/ cppif.else"); /*_.IFCPP___V47*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V49*/ curfptr[40] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2386:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2391:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V50*/ curfptr[32] = /*_.PAIR_TAIL__V49*/ curfptr[40];; - BASILYS_LOCATION("warmelt-macro.melt:2387:/ loop"); - /*loop*/{ labloop_INSLOOP_2:;BASILYS_LOCATION("warmelt-macro.melt:2387:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:2392:/ loop"); + /*loop*/{ labloop_INSLOOP_2:;BASILYS_LOCATION("warmelt-macro.melt:2392:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:2387:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2392:/ block"); /*block*/{ /*_#IS_PAIR__L11*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])) == OBMAG_PAIR);; /*_#NOT__L12*/ curfnum[7] = (!(/*_#IS_PAIR__L11*/ curfnum[6]));; - BASILYS_LOCATION("warmelt-macro.melt:2388:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2393:/ cond"); /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2388:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2388:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2393:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2393:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2388:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2393:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2388:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2393:/ compute"); /*_.INSLOOP__V52*/ curfptr[51] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2388:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:2393:/ exit"); /*exit*/{ goto labexit_INSLOOP_2;} ;} @@ -24694,20 +24761,20 @@ BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2389:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2394:/ block"); /*block*/{ /*_.CURFKW__V54*/ curfptr[53] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; /*_#IS_NOT_A__L13*/ curfnum[8] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CURFKW__V54*/ curfptr[53]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[9])));; - BASILYS_LOCATION("warmelt-macro.melt:2390:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2395:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2390:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2390:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2395:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2395:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2391:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2396:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "expecting keyword in DEFINSTANCE"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -24716,27 +24783,27 @@ BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); ; /*_.PAIR_TAIL__V55*/ curfptr[54] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2392:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2397:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V56*/ curfptr[55] = /*_.PAIR_TAIL__V55*/ curfptr[54];; - BASILYS_LOCATION("warmelt-macro.melt:2393:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2398:/ block"); /*block*/{ /*_.CUREXP__V58*/ curfptr[57] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; /*_#__L14*/ curfnum[13] = ((/*_.CURFKW__V54*/ curfptr[53]) == ((/*!konst_10_OBJ_NUM*/ curfrout->tabval[10])));; - BASILYS_LOCATION("warmelt-macro.melt:2394:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2399:/ cond"); /*cond*/ if (/*_#__L14*/ curfnum[13]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2394:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2394:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2399:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2399:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2395:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2400:/ cond"); /*cond*/ if (/*_.CUREXP__V58*/ curfptr[57]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2395:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2395:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2400:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2400:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2395:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2400:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :obj_num in DEFINSTANCE"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -24745,68 +24812,68 @@ BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); ; /*_#IS_A__L15*/ curfnum[14] = basilys_is_instance_of((basilys_ptr_t)(/*_.CUREXP__V58*/ curfptr[57]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2397:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2402:/ cond"); /*cond*/ if (/*_#IS_A__L15*/ curfnum[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2397:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2397:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2402:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2402:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2398:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2403:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2398:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2403:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2398:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2403:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.CUREXP__V58*/ curfptr[57]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V60*/ curfptr[59] = /*_.MACROEXPAND_1__V61*/ curfptr[60];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2397:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2402:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V61*/ curfptr[60] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2397:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2402:/ cond.else"); /*_.IFELSE___V60*/ curfptr[59] = /*_.CUREXP__V58*/ curfptr[57];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2396:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2401:/ compute"); /*_.OBJNUM__V13*/ curfptr[12] = /*_.SETQ___V62*/ curfptr[60] = /*_.IFELSE___V60*/ curfptr[59];; - BASILYS_LOCATION("warmelt-macro.melt:2394:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2399:/ block"); /*block*/{ /*_.PROGN___V63*/ curfptr[62] = /*_.SETQ___V62*/ curfptr[60];;} ; /*_.IFELSE___V59*/ curfptr[58] = /*_.PROGN___V63*/ curfptr[62];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2394:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2399:/ clear"); /*clear*/ /*_#IS_A__L15*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2394:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2399:/ clear"); /*clear*/ /*_.IFELSE___V60*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2394:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2399:/ clear"); /*clear*/ /*_.SETQ___V62*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2394:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2399:/ clear"); /*clear*/ /*_.PROGN___V63*/ curfptr[62] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2394:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2399:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2394:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2399:/ block"); /*block*/{ /*_#__L16*/ curfnum[14] = ((/*_.CURFKW__V54*/ curfptr[53]) == ((/*!konst_12_PREDEF*/ curfrout->tabval[12])));; - BASILYS_LOCATION("warmelt-macro.melt:2401:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2406:/ cond"); /*cond*/ if (/*_#__L16*/ curfnum[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2401:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2401:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2406:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2406:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2402:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2407:/ cond"); /*cond*/ if (/*_.CUREXP__V58*/ curfptr[57]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2402:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2402:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2407:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2407:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2402:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2407:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V17*/ curfptr[16]), ( "duplicate :predef in DEFINSTANCE"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -24815,80 +24882,80 @@ BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); ; /*_#IS_A__L17*/ curfnum[16] = basilys_is_instance_of((basilys_ptr_t)(/*_.CUREXP__V58*/ curfptr[57]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2404:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2409:/ cond"); /*cond*/ if (/*_#IS_A__L17*/ curfnum[16]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2404:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2404:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2409:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2409:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2405:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2410:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2405:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2410:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2405:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2410:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V66*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.CUREXP__V58*/ curfptr[57]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V65*/ curfptr[60] = /*_.MACROEXPAND_1__V66*/ curfptr[62];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2404:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2409:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V66*/ curfptr[62] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2404:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2409:/ cond.else"); /*_.IFELSE___V65*/ curfptr[60] = /*_.CUREXP__V58*/ curfptr[57];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2403:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2408:/ compute"); /*_.PREDEF__V12*/ curfptr[11] = /*_.SETQ___V67*/ curfptr[62] = /*_.IFELSE___V65*/ curfptr[60];; - BASILYS_LOCATION("warmelt-macro.melt:2401:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2406:/ block"); /*block*/{ /*_.PROGN___V68*/ curfptr[67] = /*_.SETQ___V67*/ curfptr[62];;} ; /*_.IFELSE___V64*/ curfptr[59] = /*_.PROGN___V68*/ curfptr[67];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2401:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2406:/ clear"); /*clear*/ /*_#IS_A__L17*/ curfnum[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2401:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2406:/ clear"); /*clear*/ /*_.IFELSE___V65*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2401:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2406:/ clear"); /*clear*/ /*_.SETQ___V67*/ curfptr[62] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2401:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2406:/ clear"); /*clear*/ /*_.PROGN___V68*/ curfptr[67] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2401:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2406:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2401:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2406:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2409:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2414:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2409:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2414:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2409:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2414:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V17*/ curfptr[16]; - BASILYS_LOCATION("warmelt-macro.melt:2409:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2414:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V54*/ curfptr[53]; - BASILYS_LOCATION("warmelt-macro.melt:2409:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2414:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V58*/ curfptr[57]; - BASILYS_LOCATION("warmelt-macro.melt:2409:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2414:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2409:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2414:/ apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.FLDA__V69*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.CLA__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2410:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2415:/ cond"); /*cond*/ if (/*_.FLDA__V69*/ curfptr[60]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2410:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2410:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2415:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2415:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2411:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2416:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V30*/ curfptr[29]), (basilys_ptr_t)(/*_.FLDA__V69*/ curfptr[60]));} ; /*epilog*/} @@ -24896,10 +24963,10 @@ BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2409:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2414:/ clear"); /*clear*/ /*_.FLDA__V69*/ curfptr[60] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2408:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2413:/ block"); /*block*/{} ; /*epilog*/} @@ -24908,247 +24975,247 @@ BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); ; /*_.IFELSE___V59*/ curfptr[58] = /*_.IFELSE___V64*/ curfptr[59];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2394:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2399:/ clear"); /*clear*/ /*_#__L16*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2394:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2399:/ clear"); /*clear*/ /*_.IFELSE___V64*/ curfptr[59] = 0 ;} ; } ; /*_.LET___V57*/ curfptr[56] = /*_.IFELSE___V59*/ curfptr[58];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2393:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2398:/ clear"); /*clear*/ /*_.CUREXP__V58*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2393:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2398:/ clear"); /*clear*/ /*_#__L14*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2393:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2398:/ clear"); /*clear*/ /*_.IFELSE___V59*/ curfptr[58] = 0 ;} ; /*_.PAIR_TAIL__V70*/ curfptr[62] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2414:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2419:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V71*/ curfptr[67] = /*_.PAIR_TAIL__V70*/ curfptr[62];; /*_.LET___V53*/ curfptr[52] = /*_.SETQ___V71*/ curfptr[67];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2389:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2394:/ clear"); /*clear*/ /*_.CURFKW__V54*/ curfptr[53] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2389:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2394:/ clear"); /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2389:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2394:/ clear"); /*clear*/ /*_.PAIR_TAIL__V55*/ curfptr[54] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2389:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2394:/ clear"); /*clear*/ /*_.SETQ___V56*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2389:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2394:/ clear"); /*clear*/ /*_.LET___V57*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2389:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2394:/ clear"); /*clear*/ /*_.PAIR_TAIL__V70*/ curfptr[62] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2389:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2394:/ clear"); /*clear*/ /*_.SETQ___V71*/ curfptr[67] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2387:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2392:/ clear"); /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2387:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2392:/ clear"); /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2387:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2392:/ clear"); /*clear*/ /*_.LET___V53*/ curfptr[52] = 0 ;} ; ; goto labloop_INSLOOP_2; - labexit_INSLOOP_2:;BASILYS_LOCATION("warmelt-macro.melt:2387:/ loopepilog"); + labexit_INSLOOP_2:;BASILYS_LOCATION("warmelt-macro.melt:2392:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V51*/ curfptr[31] = /*_.INSLOOP__V52*/ curfptr[51];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2416:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2421:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2416:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2421:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2416:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2421:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[15]); /*_.FASTUP__V73*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.FLDLIST__V30*/ curfptr[29]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2417:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2422:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2417:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2422:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_DEFSELECTOR*/ curfrout->tabval[16])), (8), "CLASS_SRC_DEFSELECTOR");/*_.INST__V75*/ curfptr[58] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2417:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2422:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (0), (/*_.LOC__V17*/ curfptr[16]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2417:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2422:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (1), (/*_.SYMB__V20*/ curfptr[19]), "SDEF_NAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:2417:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2422:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (2), (/*_.PREDEF__V12*/ curfptr[11]), "SOBJ_PREDEF"); ; - BASILYS_LOCATION("warmelt-macro.melt:2417:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2422:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (4), (/*_.CLA__V22*/ curfptr[21]), "SINST_CLASS"); ; - BASILYS_LOCATION("warmelt-macro.melt:2417:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2422:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (5), (/*_.CLABIND__V23*/ curfptr[22]), "SINST_CLABIND"); ; - BASILYS_LOCATION("warmelt-macro.melt:2417:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2422:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (6), (/*_.OBJNUM__V13*/ curfptr[12]), "SINST_OBJNUM"); ; - BASILYS_LOCATION("warmelt-macro.melt:2417:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2422:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[58]), (7), (/*_.FASTUP__V73*/ curfptr[59]), "SINST_FIELDS"); ; /*_.RES__V74*/ curfptr[57] = /*_.INST__V75*/ curfptr[58];;} ; - BASILYS_LOCATION("warmelt-macro.melt:2426:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2431:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2426:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2431:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ curfrout->tabval[17])), (3), "CLASS_SELECTOR_BINDING");/*_.INST__V77*/ curfptr[54] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2426:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2431:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[54])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[54]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[54]), (0), (/*_.SYMB__V20*/ curfptr[19]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:2426:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2431:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[54])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[54]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[54]), (2), (/*_.RES__V74*/ curfptr[57]), "SBIND_SELECTORDEF"); ; /*_.SELBIND__V76*/ curfptr[53] = /*_.INST__V77*/ curfptr[54];;} ; - BASILYS_LOCATION("warmelt-macro.melt:2431:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2436:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2431:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2436:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2431:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2436:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V17*/ curfptr[16]; /*_.WARN_IF_REDEFINED__V78*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)((/*!WARN_IF_REDEFINED*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.SYMB__V20*/ curfptr[19]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2432:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2437:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2432:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2437:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SELBIND__V76*/ curfptr[53]; /*_.PUT_ENV__V79*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V72*/ curfptr[60] = /*_.RES__V74*/ curfptr[57];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2416:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2421:/ clear"); /*clear*/ /*_.FASTUP__V73*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2416:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2421:/ clear"); /*clear*/ /*_.RES__V74*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2416:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2421:/ clear"); /*clear*/ /*_.SELBIND__V76*/ curfptr[53] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2416:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2421:/ clear"); /*clear*/ /*_.WARN_IF_REDEFINED__V78*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2416:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2421:/ clear"); /*clear*/ /*_.PUT_ENV__V79*/ curfptr[56] = 0 ;} ; /*_.LET___V28*/ curfptr[27] = /*_.LET___V72*/ curfptr[60];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2368:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2373:/ clear"); /*clear*/ /*_.BND__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2368:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2373:/ clear"); /*clear*/ /*_.FLDLIST__V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2368:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2373:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2368:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2373:/ clear"); /*clear*/ /*_.IFELSE___V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2368:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2373:/ clear"); /*clear*/ /*_.SETQ___V46*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2368:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2373:/ clear"); /*clear*/ /*_.IFCPP___V47*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2368:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2373:/ clear"); /*clear*/ /*_.PAIR_TAIL__V49*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2368:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2373:/ clear"); /*clear*/ /*_.SETQ___V50*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2368:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2373:/ clear"); /*clear*/ /*_.FOREVER___V51*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2368:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2373:/ clear"); /*clear*/ /*_.LET___V72*/ curfptr[60] = 0 ;} ; /*_.LET___V26*/ curfptr[25] = /*_.LET___V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2365:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2370:/ clear"); /*clear*/ /*_.NAM__V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2365:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2370:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2365:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2370:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.PREDEF__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.OBJNUM__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.FIELDS__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.FIELDNAMS__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.CONT__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.LOC__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.SYMB__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.CLANAME__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.CLA__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.CLABIND__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2350:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2355:/ clear"); /*clear*/ /*_.LET___V26*/ curfptr[25] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2346:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:2346:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2346:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2346:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2346:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2346:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -25209,18 +25276,18 @@ basilys_trace_start("MEXPAND_INSTANCE", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2440:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2440:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2440:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -25229,28 +25296,28 @@ basilys_trace_start("MEXPAND_INSTANCE", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2440:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2445:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2441:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2441:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2446:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2446:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2441:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2446:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2441:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2446:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2441:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2446:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2441:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2446:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2441:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2441)?(2441):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2446:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2446)?(2446):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -25260,36 +25327,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2440:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2441:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2446:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2441:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2446:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2441:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2446:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2442:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2442:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2447:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2447:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2442:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2447:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2442:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2447:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2442:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2447:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2442:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2447:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2442:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2442)?(2442):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2447:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2447)?(2447):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -25299,25 +25366,25 @@ BASILYS_LOCATION("warmelt-macro.melt:2440:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2442:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2447:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2442:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2447:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2442:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2447:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2443:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2448:/ block"); /*block*/{ /*_.FIELDS__V10*/ curfptr[9] = (/*nil*/NULL);; /*_.FIELDNAMS__V11*/ curfptr[10] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2445:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2450:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2446:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2451:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -25331,61 +25398,61 @@ BASILYS_LOCATION("warmelt-macro.melt:2440:/ block"); /*_.CLABIND__V18*/ curfptr[17] = (/*nil*/NULL);; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2452:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2452:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2457:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2457:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2452:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2457:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2452:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2457:/ apply.arg"); argtab[0].bp_cstring = "mexpand_instance start sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:2452:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2457:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2452:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2457:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2452:/ apply.arg"); - argtab[3].bp_long = 2452; + BASILYS_LOCATION("warmelt-macro.melt:2457:/ apply.arg"); + argtab[3].bp_long = 2457; /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2452:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2457:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2452:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2457:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2452:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2457:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_NOT_A__L4*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CLANAME__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:2453:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2458:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2453:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2453:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2458:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2458:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2454:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2459:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing class symbol for INSTANCE"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2455:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2460:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2455:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2460:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2455:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2460:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CLANAME__V16*/ curfptr[15]; /*_.BND__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -25394,46 +25461,46 @@ BASILYS_LOCATION("warmelt-macro.melt:2440:/ block"); (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.BND__V22*/ curfptr[21]), (basilys_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[6])));; - BASILYS_LOCATION("warmelt-macro.melt:2459:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2464:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2459:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2459:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2464:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2464:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2460:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2465:/ compute"); /*_.CLABIND__V18*/ curfptr[17] = /*_.SETQ___V25*/ curfptr[24] = /*_.BND__V22*/ curfptr[21];; - BASILYS_LOCATION("warmelt-macro.melt:2461:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2466:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V22*/ curfptr[21]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V26*/ curfptr[25] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2461:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2466:/ compute"); /*_.CLA__V17*/ curfptr[16] = /*_.SETQ___V27*/ curfptr[26] = /*_.CBIND_CLASS__V26*/ curfptr[25];; - BASILYS_LOCATION("warmelt-macro.melt:2459:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2464:/ block"); /*block*/{ /*_.PROGN___V28*/ curfptr[27] = /*_.SETQ___V27*/ curfptr[26];;} ; /*_.IFELSE___V24*/ curfptr[23] = /*_.PROGN___V28*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2464:/ clear"); /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2464:/ clear"); /*clear*/ /*_.CBIND_CLASS__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2464:/ clear"); /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2464:/ clear"); /*clear*/ /*_.PROGN___V28*/ curfptr[27] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2459:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2464:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2459:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2464:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.BND__V22*/ curfptr[21]), (basilys_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[7])));; - BASILYS_LOCATION("warmelt-macro.melt:2463:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2463:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2463:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2464:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2469:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V22*/ curfptr[21]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V29*/ curfptr[24] = slot; }; ; @@ -25441,114 +25508,114 @@ BASILYS_LOCATION("warmelt-macro.melt:2440:/ block"); basilys_is_instance_of((basilys_ptr_t)(/*_.VBIND_VALUE__V29*/ curfptr[24]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));; /*_#IF___L7*/ curfnum[6] = /*_#IS_A__L8*/ curfnum[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2463:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ clear"); /*clear*/ /*_.VBIND_VALUE__V29*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2463:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2463:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2468:/ cond.else"); /*_#IF___L7*/ curfnum[6] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:2463:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ cond"); /*cond*/ if (/*_#IF___L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2463:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2463:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2465:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2470:/ compute"); /*_.CLABIND__V18*/ curfptr[17] = /*_.SETQ___V31*/ curfptr[26] = /*_.BND__V22*/ curfptr[21];; - BASILYS_LOCATION("warmelt-macro.melt:2466:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2471:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V22*/ curfptr[21]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V32*/ curfptr[27] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2466:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2471:/ compute"); /*_.CLA__V17*/ curfptr[16] = /*_.SETQ___V33*/ curfptr[24] = /*_.VBIND_VALUE__V32*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.melt:2463:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ block"); /*block*/{ /*_.PROGN___V34*/ curfptr[33] = /*_.SETQ___V33*/ curfptr[24];;} ; /*_.IFELSE___V30*/ curfptr[25] = /*_.PROGN___V34*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2463:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2463:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ clear"); /*clear*/ /*_.VBIND_VALUE__V32*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2463:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ clear"); /*clear*/ /*_.SETQ___V33*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2463:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ clear"); /*clear*/ /*_.PROGN___V34*/ curfptr[33] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2463:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2468:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2463:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2470:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2475:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CLANAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[26] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2469:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2474:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "invalid class name for INSTANCE"), (basilys_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[26]));} ; /*_.THE_NULL__V36*/ curfptr[27] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2471:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2476:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V36*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.melt:2471:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2476:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2468:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2473:/ block"); /*block*/{ /*_.PROGN___V38*/ curfptr[33] = /*_.RETURN___V37*/ curfptr[24];;} ; /*_.IFELSE___V30*/ curfptr[25] = /*_.PROGN___V38*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2463:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ clear"); /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2463:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ clear"); /*clear*/ /*_.THE_NULL__V36*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2463:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ clear"); /*clear*/ /*_.RETURN___V37*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2463:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2468:/ clear"); /*clear*/ /*_.PROGN___V38*/ curfptr[33] = 0 ;} ; } ; /*_.IFELSE___V24*/ curfptr[23] = /*_.IFELSE___V30*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2464:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2464:/ clear"); /*clear*/ /*_#IF___L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2459:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2464:/ clear"); /*clear*/ /*_.IFELSE___V30*/ curfptr[25] = 0 ;} ; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2473:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2473:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2478:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2478:/ block"); /*block*/{ /*_#IS_A__L9*/ curfnum[7] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLA__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));; - BASILYS_LOCATION("warmelt-macro.melt:2473:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2478:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2473:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2478:/ cond.then"); /*_.IFELSE___V40*/ curfptr[27] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2473:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2478:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2473:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2478:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2473:/ locexp"); - basilys_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2473)?(2473):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2478:/ locexp"); + basilys_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2478)?(2478):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V40*/ curfptr[27] = 0 ;} ; @@ -25558,40 +25625,40 @@ BASILYS_LOCATION("warmelt-macro.melt:2440:/ block"); ; /*_.IFCPP___V39*/ curfptr[26] = /*_.IFELSE___V40*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2473:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2478:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2473:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2478:/ clear"); /*clear*/ /*_.IFELSE___V40*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2473:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2478:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V41*/ curfptr[24] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2474:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2479:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V42*/ curfptr[33] = /*_.PAIR_TAIL__V41*/ curfptr[24];; - BASILYS_LOCATION("warmelt-macro.melt:2475:/ loop"); - /*loop*/{ labloop_INSLOOP_3:;BASILYS_LOCATION("warmelt-macro.melt:2475:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:2480:/ loop"); + /*loop*/{ labloop_INSLOOP_3:;BASILYS_LOCATION("warmelt-macro.melt:2480:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:2475:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2480:/ block"); /*block*/{ /*_#IS_PAIR__L10*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; /*_#NOT__L11*/ curfnum[6] = (!(/*_#IS_PAIR__L10*/ curfnum[5]));; - BASILYS_LOCATION("warmelt-macro.melt:2476:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2481:/ cond"); /*cond*/ if (/*_#NOT__L11*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2476:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2476:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2481:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2481:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2476:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2481:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2476:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2481:/ compute"); /*_.INSLOOP__V44*/ curfptr[27] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2476:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:2481:/ exit"); /*exit*/{ goto labexit_INSLOOP_3;} ;} @@ -25600,20 +25667,20 @@ BASILYS_LOCATION("warmelt-macro.melt:2440:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2477:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2482:/ block"); /*block*/{ /*_.CURFKW__V45*/ curfptr[44] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_#IS_NOT_A__L12*/ curfnum[7] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CURFKW__V45*/ curfptr[44]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[9])));; - BASILYS_LOCATION("warmelt-macro.melt:2478:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2483:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L12*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2478:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2478:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2483:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2483:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2479:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2484:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting keyword in INSTANCE"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -25622,135 +25689,135 @@ BASILYS_LOCATION("warmelt-macro.melt:2440:/ block"); ; /*_.PAIR_TAIL__V46*/ curfptr[45] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2480:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2485:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V47*/ curfptr[46] = /*_.PAIR_TAIL__V46*/ curfptr[45];; - BASILYS_LOCATION("warmelt-macro.melt:2481:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2486:/ block"); /*block*/{ /*_.CUREXP__V48*/ curfptr[47] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2482:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2487:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2482:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2487:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2482:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2487:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.melt:2482:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2487:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V45*/ curfptr[44]; - BASILYS_LOCATION("warmelt-macro.melt:2482:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2487:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V48*/ curfptr[47]; - BASILYS_LOCATION("warmelt-macro.melt:2482:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2487:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2482:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2487:/ apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.FLDA__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.CLA__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2483:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2488:/ cond"); /*cond*/ if (/*_.FLDA__V49*/ curfptr[48]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2483:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2483:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2488:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2488:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2484:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2489:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V23*/ curfptr[22]), (basilys_ptr_t)(/*_.FLDA__V49*/ curfptr[48]));} ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2483:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2488:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2483:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2488:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2486:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2491:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURFKW__V45*/ curfptr[44]), 1, "NAMED_NAME");/*_.NAMED_NAME__V50*/ curfptr[49] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2485:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2490:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "bad field name in INSTANCE"), (basilys_ptr_t)(/*_.NAMED_NAME__V50*/ curfptr[49]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2483:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2488:/ clear"); /*clear*/ /*_.NAMED_NAME__V50*/ curfptr[49] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2482:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2487:/ clear"); /*clear*/ /*_.FLDA__V49*/ curfptr[48] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2481:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2486:/ clear"); /*clear*/ /*_.CUREXP__V48*/ curfptr[47] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2477:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2482:/ clear"); /*clear*/ /*_.CURFKW__V45*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2477:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2482:/ clear"); /*clear*/ /*_#IS_NOT_A__L12*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2477:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2482:/ clear"); /*clear*/ /*_.PAIR_TAIL__V46*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2477:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2482:/ clear"); /*clear*/ /*_.SETQ___V47*/ curfptr[46] = 0 ;} ; /*_.PAIR_TAIL__V51*/ curfptr[49] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2488:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2493:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V52*/ curfptr[48] = /*_.PAIR_TAIL__V51*/ curfptr[49];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2475:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2480:/ clear"); /*clear*/ /*_#IS_PAIR__L10*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2475:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2480:/ clear"); /*clear*/ /*_#NOT__L11*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2475:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2480:/ clear"); /*clear*/ /*_.PAIR_TAIL__V51*/ curfptr[49] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2475:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2480:/ clear"); /*clear*/ /*_.SETQ___V52*/ curfptr[48] = 0 ;} ; ; goto labloop_INSLOOP_3; - labexit_INSLOOP_3:;BASILYS_LOCATION("warmelt-macro.melt:2475:/ loopepilog"); + labexit_INSLOOP_3:;BASILYS_LOCATION("warmelt-macro.melt:2480:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V43*/ curfptr[25] = /*_.INSLOOP__V44*/ curfptr[27];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2490:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2495:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2490:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2495:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2490:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2495:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[12]); /*_.FASTUP__V54*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.FLDLIST__V23*/ curfptr[22]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2491:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2496:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2491:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2496:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_MAKE_INSTANCE*/ curfrout->tabval[13])), (4), "CLASS_SRC_MAKE_INSTANCE");/*_.INST__V56*/ curfptr[46] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2491:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2496:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[46]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2491:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2496:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[46]), (1), (/*_.CLA__V17*/ curfptr[16]), "SMINS_CLASS"); ; - BASILYS_LOCATION("warmelt-macro.melt:2491:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2496:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[46]), (2), (/*_.CLABIND__V18*/ curfptr[17]), "SMINS_CLABIND"); ; - BASILYS_LOCATION("warmelt-macro.melt:2491:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2496:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[46]), (3), (/*_.FASTUP__V54*/ curfptr[44]), "SMINS_FIELDS"); @@ -25759,72 +25826,72 @@ BASILYS_LOCATION("warmelt-macro.melt:2440:/ block"); ; /*_.LET___V53*/ curfptr[47] = /*_.INST___V55*/ curfptr[45];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2490:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2495:/ clear"); /*clear*/ /*_.FASTUP__V54*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2490:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2495:/ clear"); /*clear*/ /*_.INST___V55*/ curfptr[45] = 0 ;} ; /*_.LET___V21*/ curfptr[19] = /*_.LET___V53*/ curfptr[47];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2455:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2460:/ clear"); /*clear*/ /*_.BND__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2455:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2460:/ clear"); /*clear*/ /*_.FLDLIST__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2455:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2460:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2455:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2460:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2455:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2460:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2455:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2460:/ clear"); /*clear*/ /*_.PAIR_TAIL__V41*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2455:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2460:/ clear"); /*clear*/ /*_.SETQ___V42*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2455:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2460:/ clear"); /*clear*/ /*_.FOREVER___V43*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2455:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2460:/ clear"); /*clear*/ /*_.LET___V53*/ curfptr[47] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2448:/ clear"); /*clear*/ /*_.FIELDS__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2448:/ clear"); /*clear*/ /*_.FIELDNAMS__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2448:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2448:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2448:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2448:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2448:/ clear"); /*clear*/ /*_.CLANAME__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2448:/ clear"); /*clear*/ /*_.CLA__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2448:/ clear"); /*clear*/ /*_.CLABIND__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2448:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2448:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2448:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2440:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.melt:2440:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2440:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2440:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2440:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -25885,39 +25952,39 @@ basilys_trace_start("PARSE_FIELD_PATTERN", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2503:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ getarg"); /*_.FKEYW__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2503:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.CLA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.CLA__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2503:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.FLPSEXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.FLPSEXP__V4*/ curfptr[3])) != NULL); /*getarg#3*/ - BASILYS_LOCATION("warmelt-macro.melt:2503:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL); /*getarg#4*/ - BASILYS_LOCATION("warmelt-macro.melt:2503:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ getarg"); if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; /*_.PCTX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PCTX__V6*/ curfptr[5])) != NULL); /*getarg#5*/ - BASILYS_LOCATION("warmelt-macro.melt:2503:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ getarg"); if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL); @@ -25926,62 +25993,62 @@ basilys_trace_start("PARSE_FIELD_PATTERN", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2503:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2508:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2504:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2504:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2509:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2509:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2504:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2509:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2504:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2509:/ apply.arg"); argtab[0].bp_cstring = "parse_field_pattern keyw"; - BASILYS_LOCATION("warmelt-macro.melt:2504:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2509:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2504:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2509:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2504:/ apply.arg"); - argtab[3].bp_long = 2504; + BASILYS_LOCATION("warmelt-macro.melt:2509:/ apply.arg"); + argtab[3].bp_long = 2509; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.FKEYW__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2504:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2509:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2504:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2509:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2504:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2509:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2505:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2505:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2510:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2510:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.FKEYW__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2505:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2510:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2505:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2510:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2505:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2510:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2505:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2510:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2505:/ locexp"); - basilys_assert_failed(( "check fkeyw"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2505)?(2505):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2510:/ locexp"); + basilys_assert_failed(( "check fkeyw"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2510)?(2510):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; @@ -25991,36 +26058,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2503:/ block"); ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2505:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2510:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2505:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2510:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2505:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2510:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2506:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2506:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2511:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2511:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:2506:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2511:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2506:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2511:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2506:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2511:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2506:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2511:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2506:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2506)?(2506):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2511:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2511)?(2511):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; @@ -26030,36 +26097,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2503:/ block"); ; /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2506:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2511:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2506:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2511:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2506:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2511:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2507:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2507:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2512:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2512:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PCTX__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_PATTEXPCONTEXT*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:2507:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2512:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2507:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2512:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2507:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2512:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2507:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2512:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2507:/ locexp"); - basilys_assert_failed(( "check pctc"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2507)?(2507):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2512:/ locexp"); + basilys_assert_failed(( "check pctc"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2512)?(2512):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; @@ -26069,36 +26136,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2503:/ block"); ; /*_.IFCPP___V14*/ curfptr[12] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2507:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2512:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2507:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2512:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2507:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2512:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2508:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2508:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2513:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2513:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLA__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:2508:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2513:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2508:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2513:/ cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2508:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2513:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2508:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2513:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2508:/ locexp"); - basilys_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2508)?(2508):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2513:/ locexp"); + basilys_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2513)?(2513):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; @@ -26108,48 +26175,50 @@ BASILYS_LOCATION("warmelt-macro.melt:2503:/ block"); ; /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2508:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2513:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2508:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2513:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2508:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2513:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2509:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2514:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2510:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2515:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CLA__V3*/ curfptr[2]), 6, "CLASS_FIELDS");/*_.CLAFIELDS__V19*/ curfptr[18] = slot; }; ; /*_.FLDBOX__V20*/ curfptr[19] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (basilys_ptr_t)((/*nil*/NULL)));; - BASILYS_LOCATION("warmelt-macro.melt:2512:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2517:/ apply"); /*apply*/{ - union basilysparam_un argtab[2]; + union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2512:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2517:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V5*/ curfptr[4]; - BASILYS_LOCATION("warmelt-macro.melt:2512:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2517:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V6*/ curfptr[5]; - /*_.FLPAT__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.FLPSEXP__V4*/ curfptr[3]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.melt:2517:/ apply.arg"); + argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6]; + /*_.FLPAT__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.FLPSEXP__V4*/ curfptr[3]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2517:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2517:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V23*/ curfptr[22] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2)); ; - BASILYS_LOCATION("warmelt-macro.melt:2517:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[0] = (basilys_ptr_t)(/*_.FKEYW__V2*/ curfptr[1]); ; - BASILYS_LOCATION("warmelt-macro.melt:2517:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22]))); @@ -26157,80 +26226,80 @@ BASILYS_LOCATION("warmelt-macro.melt:2503:/ block"); ; /*_.LAMBDA___V22*/ curfptr[21] = /*_.LAMBDA___V23*/ curfptr[22];;} ; - BASILYS_LOCATION("warmelt-macro.melt:2515:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2520:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2515:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2520:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V22*/ curfptr[21]; /*_.MULTIPLE_ITERATE_TEST__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_ITERATE_TEST*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.CLAFIELDS__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2527:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2532:/ block"); /*block*/{ /*_.FLD__V26*/ curfptr[25] = basilys_box_content((basilysbox_ptr_t)(/*_.FLDBOX__V20*/ curfptr[19]));; /*_#IS_NOT_A__L6*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.FLD__V26*/ curfptr[25]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[10])));; - BASILYS_LOCATION("warmelt-macro.melt:2529:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2534:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2529:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2529:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2534:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2534:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2532:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2537:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FKEYW__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V28*/ curfptr[27] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2531:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2536:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.PSLOC__V7*/ curfptr[6]), ( "invalid :field in pattern"), (basilys_ptr_t)(/*_.NAMED_NAME__V28*/ curfptr[27]));} ; - BASILYS_LOCATION("warmelt-macro.melt:2533:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2538:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:2533:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2538:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2530:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2535:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[28];;} ; /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2529:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2534:/ clear"); /*clear*/ /*_.NAMED_NAME__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2529:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2534:/ clear"); /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2529:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2534:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2529:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2534:/ cond.else"); /*_.IF___V27*/ curfptr[26] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:2534:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2539:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2535:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2540:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2535:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2540:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCFIELDPATTERN*/ curfrout->tabval[11])), (3), "CLASS_SRCFIELDPATTERN");/*_.INST__V33*/ curfptr[29] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2535:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2540:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[29]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2535:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2540:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[29]), (1), (/*_.FLD__V26*/ curfptr[25]), "SPAF_FIELD"); ; - BASILYS_LOCATION("warmelt-macro.melt:2535:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2540:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[29]), (2), (/*_.FLPAT__V21*/ curfptr[20]), "SPAF_PATTERN"); @@ -26239,99 +26308,99 @@ BASILYS_LOCATION("warmelt-macro.melt:2503:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2541:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2541:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2546:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2546:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2541:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2546:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2541:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2546:/ apply.arg"); argtab[0].bp_cstring = "parse_field_pattern return patf"; - BASILYS_LOCATION("warmelt-macro.melt:2541:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2546:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.melt:2541:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2546:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2541:/ apply.arg"); - argtab[3].bp_long = 2541; + BASILYS_LOCATION("warmelt-macro.melt:2546:/ apply.arg"); + argtab[3].bp_long = 2546; /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PATF__V32*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2541:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2546:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2541:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2546:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2541:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2546:/ cppif.else"); /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2542:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2547:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PATF__V32*/ curfptr[28];; - BASILYS_LOCATION("warmelt-macro.melt:2542:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2547:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V31*/ curfptr[27] = /*_.RETURN___V36*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2534:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2539:/ clear"); /*clear*/ /*_.PATF__V32*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2534:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2539:/ clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2534:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2539:/ clear"); /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;} ; /*_.LET___V25*/ curfptr[24] = /*_.LET___V31*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2527:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2532:/ clear"); /*clear*/ /*_.FLD__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2527:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2532:/ clear"); /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2527:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2532:/ clear"); /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2527:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2532:/ clear"); /*clear*/ /*_.LET___V31*/ curfptr[27] = 0 ;} ; /*_.LET___V18*/ curfptr[16] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2509:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2514:/ clear"); /*clear*/ /*_.CLAFIELDS__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2509:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2514:/ clear"); /*clear*/ /*_.FLDBOX__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2509:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2514:/ clear"); /*clear*/ /*_.FLPAT__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2509:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2514:/ clear"); /*clear*/ /*_.LAMBDA___V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2509:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2514:/ clear"); /*clear*/ /*_.MULTIPLE_ITERATE_TEST__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2509:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2514:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2503:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V18*/ curfptr[16];; - BASILYS_LOCATION("warmelt-macro.melt:2503:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2503:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2503:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2503:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2503:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2503:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2503:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ clear"); /*clear*/ /*_.LET___V18*/ curfptr[16] = 0 ;} ; @@ -26392,39 +26461,39 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2517:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ getarg"); /*_.CFLD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2517:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2517:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2522:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2518:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2518:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2523:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2523:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CFLD__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2518:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2523:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2518:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2523:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2518:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2523:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2518:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2523:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2518:/ locexp"); - basilys_assert_failed(( "check fld"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2518)?(2518):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2523:/ locexp"); + basilys_assert_failed(( "check fld"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2523)?(2523):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; @@ -26434,67 +26503,67 @@ BASILYS_LOCATION("warmelt-macro.melt:2517:/ block"); ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2518:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2523:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2518:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2523:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2518:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2523:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2519:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2524:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CFLD__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ curfptr[3] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2520:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2525:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*~FKEYW*/ curfclos->tabval[0])), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ curfptr[5] = slot; }; ; /*_#S__L3*/ curfnum[1] = basilys_string_same((basilys_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[3]), (basilys_ptr_t)(/*_.NAMED_NAME__V6*/ curfptr[5]));; - BASILYS_LOCATION("warmelt-macro.melt:2519:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2524:/ cond"); /*cond*/ if (/*_#S__L3*/ curfnum[1]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2519:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2519:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2524:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2524:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2522:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2527:/ locexp"); basilysgc_box_put((basilys_ptr_t)((/*~FLDBOX*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.CFLD__V2*/ curfptr[1]));} ; - BASILYS_LOCATION("warmelt-macro.melt:2521:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2526:/ block"); /*block*/{ /*_.PROGN___V8*/ curfptr[7] = (/*nil*/NULL);;} ; /*_.IFELSE___V7*/ curfptr[6] = /*_.PROGN___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2519:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2524:/ clear"); /*clear*/ /*_.PROGN___V8*/ curfptr[7] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2519:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2524:/ cond.else"); /*_.IFELSE___V7*/ curfptr[6] = /*_.CFLD__V2*/ curfptr[1];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2517:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V7*/ curfptr[6];; - BASILYS_LOCATION("warmelt-macro.melt:2517:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2517:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2517:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ clear"); /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2517:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ clear"); /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2517:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ clear"); /*clear*/ /*_#S__L3*/ curfnum[1] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2517:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; @@ -26555,18 +26624,18 @@ basilys_trace_start("PATEXPAND_INSTANCE", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2545:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2545:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2545:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL); @@ -26575,28 +26644,28 @@ basilys_trace_start("PATEXPAND_INSTANCE", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2545:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2550:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2546:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2546:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2551:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2551:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2546:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2551:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2546:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2551:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2546:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2551:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2546:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2551:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2546:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2546)?(2546):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2551:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2551)?(2551):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -26606,36 +26675,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2545:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2546:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2551:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2546:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2551:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2546:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2551:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2547:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2547:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2552:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2552:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2547:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2552:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2547:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2552:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2547:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2552:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2547:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2552:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2547:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2547)?(2547):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2552:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2552)?(2552):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -26645,36 +26714,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2545:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2547:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2552:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2547:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2552:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2547:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2552:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2548:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2548:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2553:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2553:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_PATTEXPCONTEXT*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:2548:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2553:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2548:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2553:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2548:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2553:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2548:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2553:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2548:/ locexp"); - basilys_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2548)?(2548):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2553:/ locexp"); + basilys_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2553)?(2553):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; @@ -26684,57 +26753,57 @@ BASILYS_LOCATION("warmelt-macro.melt:2545:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2548:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2553:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2548:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2553:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2548:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2553:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2549:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2549:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2554:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2554:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2549:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2554:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2549:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2554:/ apply.arg"); argtab[0].bp_cstring = "patexpand_instance sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:2549:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2554:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2549:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2554:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2549:/ apply.arg"); - argtab[3].bp_long = 2549; + BASILYS_LOCATION("warmelt-macro.melt:2554:/ apply.arg"); + argtab[3].bp_long = 2554; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2549:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2554:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2549:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2554:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2549:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2554:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2550:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2555:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2551:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2556:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2552:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2557:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; }; ; @@ -26750,27 +26819,27 @@ BASILYS_LOCATION("warmelt-macro.melt:2545:/ block"); /*_.CLABIND__V22*/ curfptr[21] = (/*nil*/NULL);; /*_#IS_NOT_A__L5*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CLANAME__V20*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:2560:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2565:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2560:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2560:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2565:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2565:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2561:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2566:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "missing class symbol for INSTANCE pattern"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2562:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2567:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2562:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2567:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2562:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2567:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CLANAME__V20*/ curfptr[19]; /*_.BND__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -26779,46 +26848,46 @@ BASILYS_LOCATION("warmelt-macro.melt:2545:/ block"); (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.BND__V24*/ curfptr[23]), (basilys_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[7])));; - BASILYS_LOCATION("warmelt-macro.melt:2566:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2571:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2566:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2566:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2571:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2571:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2567:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2572:/ compute"); /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V27*/ curfptr[26] = /*_.BND__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.melt:2568:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2573:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V24*/ curfptr[23]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V28*/ curfptr[27] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2568:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2573:/ compute"); /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V29*/ curfptr[28] = /*_.CBIND_CLASS__V28*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.melt:2566:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2571:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.SETQ___V29*/ curfptr[28];;} ; /*_.IFELSE___V26*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2571:/ clear"); /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2571:/ clear"); /*clear*/ /*_.CBIND_CLASS__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2571:/ clear"); /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2571:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2566:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2571:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2566:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2571:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.BND__V24*/ curfptr[23]), (basilys_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[8])));; - BASILYS_LOCATION("warmelt-macro.melt:2570:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2570:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2570:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2571:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2576:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V24*/ curfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V31*/ curfptr[26] = slot; }; ; @@ -26826,114 +26895,114 @@ BASILYS_LOCATION("warmelt-macro.melt:2545:/ block"); basilys_is_instance_of((basilys_ptr_t)(/*_.VBIND_VALUE__V31*/ curfptr[26]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[9])));; /*_#IF___L8*/ curfnum[7] = /*_#IS_A__L9*/ curfnum[8];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2570:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ clear"); /*clear*/ /*_.VBIND_VALUE__V31*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2570:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2570:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2575:/ cond.else"); /*_#IF___L8*/ curfnum[7] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:2570:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ cond"); /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2570:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2570:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2572:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2577:/ compute"); /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V33*/ curfptr[28] = /*_.BND__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.melt:2573:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2578:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V24*/ curfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V34*/ curfptr[29] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2573:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2578:/ compute"); /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V35*/ curfptr[26] = /*_.VBIND_VALUE__V34*/ curfptr[29];; - BASILYS_LOCATION("warmelt-macro.melt:2570:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ block"); /*block*/{ /*_.PROGN___V36*/ curfptr[35] = /*_.SETQ___V35*/ curfptr[26];;} ; /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V36*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2570:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ clear"); /*clear*/ /*_.SETQ___V33*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2570:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ clear"); /*clear*/ /*_.VBIND_VALUE__V34*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2570:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ clear"); /*clear*/ /*_.SETQ___V35*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2570:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ clear"); /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2570:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2575:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2570:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2577:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2582:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CLANAME__V20*/ curfptr[19]), 1, "NAMED_NAME");/*_.NAMED_NAME__V37*/ curfptr[28] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2576:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2581:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "invalid class name for INSTANCE"), (basilys_ptr_t)(/*_.NAMED_NAME__V37*/ curfptr[28]));} ; /*_.THE_NULL__V38*/ curfptr[29] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2578:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2583:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V38*/ curfptr[29];; - BASILYS_LOCATION("warmelt-macro.melt:2578:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2583:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2575:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2580:/ block"); /*block*/{ /*_.PROGN___V40*/ curfptr[35] = /*_.RETURN___V39*/ curfptr[26];;} ; /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V40*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2570:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ clear"); /*clear*/ /*_.NAMED_NAME__V37*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2570:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ clear"); /*clear*/ /*_.THE_NULL__V38*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2570:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ clear"); /*clear*/ /*_.RETURN___V39*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2570:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2575:/ clear"); /*clear*/ /*_.PROGN___V40*/ curfptr[35] = 0 ;} ; } ; /*_.IFELSE___V26*/ curfptr[25] = /*_.IFELSE___V32*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2571:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2571:/ clear"); /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2566:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2571:/ clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[27] = 0 ;} ; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2580:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2580:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2585:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2585:/ block"); /*block*/{ /*_#IS_A__L10*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLA__V21*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[9])));; - BASILYS_LOCATION("warmelt-macro.melt:2580:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2585:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2580:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2585:/ cond.then"); /*_.IFELSE___V42*/ curfptr[29] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2580:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2585:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2580:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2585:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2580:/ locexp"); - basilys_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2580)?(2580):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2585:/ locexp"); + basilys_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2585)?(2585):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V42*/ curfptr[29] = 0 ;} ; @@ -26943,40 +27012,40 @@ BASILYS_LOCATION("warmelt-macro.melt:2545:/ block"); ; /*_.IFCPP___V41*/ curfptr[28] = /*_.IFELSE___V42*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2580:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2585:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2580:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2585:/ clear"); /*clear*/ /*_.IFELSE___V42*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2580:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2585:/ cppif.else"); /*_.IFCPP___V41*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V43*/ curfptr[26] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2581:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2586:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V44*/ curfptr[35] = /*_.PAIR_TAIL__V43*/ curfptr[26];; - BASILYS_LOCATION("warmelt-macro.melt:2583:/ loop"); - /*loop*/{ labloop_INSLOOP_4:;BASILYS_LOCATION("warmelt-macro.melt:2583:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:2588:/ loop"); + /*loop*/{ labloop_INSLOOP_4:;BASILYS_LOCATION("warmelt-macro.melt:2588:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:2583:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2588:/ block"); /*block*/{ /*_#IS_PAIR__L11*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])) == OBMAG_PAIR);; /*_#NOT__L12*/ curfnum[7] = (!(/*_#IS_PAIR__L11*/ curfnum[6]));; - BASILYS_LOCATION("warmelt-macro.melt:2585:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2590:/ cond"); /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2585:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2585:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2590:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2590:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2585:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2590:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2585:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2590:/ compute"); /*_.INSLOOP__V46*/ curfptr[29] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2585:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:2590:/ exit"); /*exit*/{ goto labexit_INSLOOP_4;} ;} @@ -26985,20 +27054,20 @@ BASILYS_LOCATION("warmelt-macro.melt:2545:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2586:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2591:/ block"); /*block*/{ /*_.CURFKW__V47*/ curfptr[46] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; /*_#IS_NOT_A__L13*/ curfnum[8] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CURFKW__V47*/ curfptr[46]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[10])));; - BASILYS_LOCATION("warmelt-macro.melt:2587:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2592:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2587:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2587:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2592:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2592:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2588:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2593:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "expecting keyword in INSTANCE"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -27007,166 +27076,166 @@ BASILYS_LOCATION("warmelt-macro.melt:2545:/ block"); ; /*_.PAIR_TAIL__V48*/ curfptr[47] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2589:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2594:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V49*/ curfptr[48] = /*_.PAIR_TAIL__V48*/ curfptr[47];; - BASILYS_LOCATION("warmelt-macro.melt:2590:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2595:/ block"); /*block*/{ /*_.CUREXP__V50*/ curfptr[49] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2591:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2596:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2591:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2596:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2591:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2596:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CLA__V21*/ curfptr[20]; - BASILYS_LOCATION("warmelt-macro.melt:2591:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2596:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V50*/ curfptr[49]; - BASILYS_LOCATION("warmelt-macro.melt:2591:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2596:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2591:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2596:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V4*/ curfptr[3]; - BASILYS_LOCATION("warmelt-macro.melt:2591:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2596:/ apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V15*/ curfptr[14]; /*_.FLDP__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_FIELD_PATTERN*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.CURFKW__V47*/ curfptr[46]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2592:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2592:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2597:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2597:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2592:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2597:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2592:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2597:/ apply.arg"); argtab[0].bp_cstring = "patexpand_instance fldp"; - BASILYS_LOCATION("warmelt-macro.melt:2592:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2597:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.melt:2592:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2597:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2592:/ apply.arg"); - argtab[3].bp_long = 2592; + BASILYS_LOCATION("warmelt-macro.melt:2597:/ apply.arg"); + argtab[3].bp_long = 2597; /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.FLDP__V51*/ curfptr[50]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2592:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2597:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2592:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2597:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2592:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2597:/ cppif.else"); /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2593:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2598:/ cond"); /*cond*/ if (/*_.FLDP__V51*/ curfptr[50]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2593:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2593:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2598:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2598:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2594:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2599:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (basilys_ptr_t)(/*_.FLDP__V51*/ curfptr[50]));} ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2593:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2598:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2593:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2598:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2596:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2601:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURFKW__V47*/ curfptr[46]), 1, "NAMED_NAME");/*_.NAMED_NAME__V54*/ curfptr[52] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2595:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2600:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "bad field name in INSTANCE"), (basilys_ptr_t)(/*_.NAMED_NAME__V54*/ curfptr[52]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2593:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2598:/ clear"); /*clear*/ /*_.NAMED_NAME__V54*/ curfptr[52] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2591:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2596:/ clear"); /*clear*/ /*_.FLDP__V51*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2591:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2596:/ clear"); /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2590:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2595:/ clear"); /*clear*/ /*_.CUREXP__V50*/ curfptr[49] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2586:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2591:/ clear"); /*clear*/ /*_.CURFKW__V47*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2586:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2591:/ clear"); /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2586:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2591:/ clear"); /*clear*/ /*_.PAIR_TAIL__V48*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2586:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2591:/ clear"); /*clear*/ /*_.SETQ___V49*/ curfptr[48] = 0 ;} ; /*_.PAIR_TAIL__V55*/ curfptr[52] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2598:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2603:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V56*/ curfptr[50] = /*_.PAIR_TAIL__V55*/ curfptr[52];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2583:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2588:/ clear"); /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2583:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2588:/ clear"); /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2583:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2588:/ clear"); /*clear*/ /*_.PAIR_TAIL__V55*/ curfptr[52] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2583:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2588:/ clear"); /*clear*/ /*_.SETQ___V56*/ curfptr[50] = 0 ;} ; ; goto labloop_INSLOOP_4; - labexit_INSLOOP_4:;BASILYS_LOCATION("warmelt-macro.melt:2583:/ loopepilog"); + labexit_INSLOOP_4:;BASILYS_LOCATION("warmelt-macro.melt:2588:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V45*/ curfptr[27] = /*_.INSLOOP__V46*/ curfptr[29];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2600:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2605:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2603:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2608:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2603:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2608:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]); /*_.LIST_TO_MULTIPLE__V58*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2600:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2605:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2600:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2605:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_INSTANCE*/ curfrout->tabval[12])), (3), "CLASS_SRCPATTERN_INSTANCE");/*_.INST__V60*/ curfptr[47] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2600:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2605:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V60*/ curfptr[47])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V60*/ curfptr[47]))));basilys_putfield_object((/*_.INST__V60*/ curfptr[47]), (0), (/*_.LOC__V15*/ curfptr[14]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2600:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2605:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V60*/ curfptr[47])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V60*/ curfptr[47]))));basilys_putfield_object((/*_.INST__V60*/ curfptr[47]), (1), (/*_.CLA__V21*/ curfptr[20]), "SPAT_CLASS"); ; - BASILYS_LOCATION("warmelt-macro.melt:2600:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2605:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V60*/ curfptr[47])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V60*/ curfptr[47]))));basilys_putfield_object((/*_.INST__V60*/ curfptr[47]), (2), (/*_.LIST_TO_MULTIPLE__V58*/ curfptr[49]), "SPAT_FIELDS"); @@ -27175,119 +27244,119 @@ BASILYS_LOCATION("warmelt-macro.melt:2545:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2605:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2605:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2610:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2610:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2605:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2610:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2605:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2610:/ apply.arg"); argtab[0].bp_cstring = "patexpand_instance return spati"; - BASILYS_LOCATION("warmelt-macro.melt:2605:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2610:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.melt:2605:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2610:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2605:/ apply.arg"); - argtab[3].bp_long = 2605; + BASILYS_LOCATION("warmelt-macro.melt:2610:/ apply.arg"); + argtab[3].bp_long = 2610; /*_.DEBUG_MSG_FUN__V62*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SPATI__V59*/ curfptr[46]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V61*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[52];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2605:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2610:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2605:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2610:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2605:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2610:/ cppif.else"); /*_.IFCPP___V61*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2606:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2611:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SPATI__V59*/ curfptr[46];; - BASILYS_LOCATION("warmelt-macro.melt:2606:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2611:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V57*/ curfptr[51] = /*_.RETURN___V63*/ curfptr[50];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2605:/ clear"); /*clear*/ /*_.LIST_TO_MULTIPLE__V58*/ curfptr[49] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2605:/ clear"); /*clear*/ /*_.SPATI__V59*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2605:/ clear"); /*clear*/ /*_.IFCPP___V61*/ curfptr[48] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2600:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2605:/ clear"); /*clear*/ /*_.RETURN___V63*/ curfptr[50] = 0 ;} ; /*_.LET___V23*/ curfptr[22] = /*_.LET___V57*/ curfptr[51];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2567:/ clear"); /*clear*/ /*_.BND__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2567:/ clear"); /*clear*/ /*_.FLDLIST__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2567:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2567:/ clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2567:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2567:/ clear"); /*clear*/ /*_.PAIR_TAIL__V43*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2567:/ clear"); /*clear*/ /*_.SETQ___V44*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2567:/ clear"); /*clear*/ /*_.FOREVER___V45*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2567:/ clear"); /*clear*/ /*_.LET___V57*/ curfptr[51] = 0 ;} ; /*_.LET___V13*/ curfptr[11] = /*_.LET___V23*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2555:/ clear"); /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2555:/ clear"); /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2555:/ clear"); /*clear*/ /*_.FIELDS__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2555:/ clear"); /*clear*/ /*_.FIELDNAMS__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2555:/ clear"); /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2555:/ clear"); /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2555:/ clear"); /*clear*/ /*_.CLANAME__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2555:/ clear"); /*clear*/ /*_.CLA__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2555:/ clear"); /*clear*/ /*_.CLABIND__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2555:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2555:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2545:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; - BASILYS_LOCATION("warmelt-macro.melt:2545:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2545:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2545:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2545:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2545:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2545:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; @@ -27348,18 +27417,18 @@ basilys_trace_start("PATEXPAND_OBJECT", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2612:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2612:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2612:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL); @@ -27368,28 +27437,28 @@ basilys_trace_start("PATEXPAND_OBJECT", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2612:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2617:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2613:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2613:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2618:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2618:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2613:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2618:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2613:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2618:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2613:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2618:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2613:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2618:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2613:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2613)?(2613):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2618:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2618)?(2618):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -27399,36 +27468,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2612:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2613:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2618:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2613:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2618:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2613:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2618:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2614:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2614:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2619:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2619:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2614:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2619:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2614:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2619:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2614:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2619:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2614:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2619:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2614:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2614)?(2614):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2619:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2619)?(2619):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -27438,36 +27507,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2612:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2614:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2619:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2614:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2619:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2614:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2619:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2615:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2615:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2620:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2620:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_PATTEXPCONTEXT*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:2615:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2620:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2615:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2620:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2615:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2620:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2615:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2620:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2615:/ locexp"); - basilys_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2615)?(2615):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2620:/ locexp"); + basilys_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2620)?(2620):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; @@ -27477,57 +27546,57 @@ BASILYS_LOCATION("warmelt-macro.melt:2612:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2615:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2620:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2615:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2620:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2615:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2620:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2616:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2616:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2621:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2621:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2616:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2621:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2616:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2621:/ apply.arg"); argtab[0].bp_cstring = "patexpand_object sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:2616:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2621:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2616:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2621:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2616:/ apply.arg"); - argtab[3].bp_long = 2616; + BASILYS_LOCATION("warmelt-macro.melt:2621:/ apply.arg"); + argtab[3].bp_long = 2621; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2616:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2621:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2616:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2621:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2616:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2621:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2617:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2622:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2618:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2623:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2619:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2624:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; }; ; @@ -27543,27 +27612,27 @@ BASILYS_LOCATION("warmelt-macro.melt:2612:/ block"); /*_.CLABIND__V22*/ curfptr[21] = (/*nil*/NULL);; /*_#IS_NOT_A__L5*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CLANAME__V20*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:2627:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2632:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2627:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2627:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2632:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2632:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2628:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2633:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "missing class symbol for OBJECT pattern"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2629:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2634:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2629:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2634:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2629:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2634:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CLANAME__V20*/ curfptr[19]; /*_.BND__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -27572,46 +27641,46 @@ BASILYS_LOCATION("warmelt-macro.melt:2612:/ block"); (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.BND__V24*/ curfptr[23]), (basilys_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[7])));; - BASILYS_LOCATION("warmelt-macro.melt:2633:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2638:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2633:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2633:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2638:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2638:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2634:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2639:/ compute"); /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V27*/ curfptr[26] = /*_.BND__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.melt:2635:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2640:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V24*/ curfptr[23]), 3, "CBIND_CLASS");/*_.CBIND_CLASS__V28*/ curfptr[27] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2635:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2640:/ compute"); /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V29*/ curfptr[28] = /*_.CBIND_CLASS__V28*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.melt:2633:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2638:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.SETQ___V29*/ curfptr[28];;} ; /*_.IFELSE___V26*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2638:/ clear"); /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2638:/ clear"); /*clear*/ /*_.CBIND_CLASS__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2638:/ clear"); /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2638:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2633:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2638:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2633:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2638:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.BND__V24*/ curfptr[23]), (basilys_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[8])));; - BASILYS_LOCATION("warmelt-macro.melt:2637:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2637:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2637:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2638:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2643:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V24*/ curfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V31*/ curfptr[26] = slot; }; ; @@ -27619,114 +27688,114 @@ BASILYS_LOCATION("warmelt-macro.melt:2612:/ block"); basilys_is_instance_of((basilys_ptr_t)(/*_.VBIND_VALUE__V31*/ curfptr[26]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[9])));; /*_#IF___L8*/ curfnum[7] = /*_#IS_A__L9*/ curfnum[8];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2637:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ clear"); /*clear*/ /*_.VBIND_VALUE__V31*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2637:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2637:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2642:/ cond.else"); /*_#IF___L8*/ curfnum[7] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:2637:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ cond"); /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2637:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2637:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2639:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2644:/ compute"); /*_.CLABIND__V22*/ curfptr[21] = /*_.SETQ___V33*/ curfptr[28] = /*_.BND__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.melt:2640:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2645:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V24*/ curfptr[23]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V34*/ curfptr[29] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2640:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2645:/ compute"); /*_.CLA__V21*/ curfptr[20] = /*_.SETQ___V35*/ curfptr[26] = /*_.VBIND_VALUE__V34*/ curfptr[29];; - BASILYS_LOCATION("warmelt-macro.melt:2637:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ block"); /*block*/{ /*_.PROGN___V36*/ curfptr[35] = /*_.SETQ___V35*/ curfptr[26];;} ; /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V36*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2637:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ clear"); /*clear*/ /*_.SETQ___V33*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2637:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ clear"); /*clear*/ /*_.VBIND_VALUE__V34*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2637:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ clear"); /*clear*/ /*_.SETQ___V35*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2637:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ clear"); /*clear*/ /*_.PROGN___V36*/ curfptr[35] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2637:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2642:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2637:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2644:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2649:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CLANAME__V20*/ curfptr[19]), 1, "NAMED_NAME");/*_.NAMED_NAME__V37*/ curfptr[28] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2643:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2648:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "invalid class name for OBJECT pattern"), (basilys_ptr_t)(/*_.NAMED_NAME__V37*/ curfptr[28]));} ; /*_.THE_NULL__V38*/ curfptr[29] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2645:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2650:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V38*/ curfptr[29];; - BASILYS_LOCATION("warmelt-macro.melt:2645:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2650:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2642:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2647:/ block"); /*block*/{ /*_.PROGN___V40*/ curfptr[35] = /*_.RETURN___V39*/ curfptr[26];;} ; /*_.IFELSE___V32*/ curfptr[27] = /*_.PROGN___V40*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2637:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ clear"); /*clear*/ /*_.NAMED_NAME__V37*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2637:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ clear"); /*clear*/ /*_.THE_NULL__V38*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2637:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ clear"); /*clear*/ /*_.RETURN___V39*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2637:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2642:/ clear"); /*clear*/ /*_.PROGN___V40*/ curfptr[35] = 0 ;} ; } ; /*_.IFELSE___V26*/ curfptr[25] = /*_.IFELSE___V32*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2638:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2638:/ clear"); /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2633:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2638:/ clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[27] = 0 ;} ; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2647:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2647:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2652:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2652:/ block"); /*block*/{ /*_#IS_A__L10*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLA__V21*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[9])));; - BASILYS_LOCATION("warmelt-macro.melt:2647:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2652:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2647:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2652:/ cond.then"); /*_.IFELSE___V42*/ curfptr[29] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2647:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2652:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2647:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2652:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2647:/ locexp"); - basilys_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2647)?(2647):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2652:/ locexp"); + basilys_assert_failed(( "check cla"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2652)?(2652):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V42*/ curfptr[29] = 0 ;} ; @@ -27736,40 +27805,40 @@ BASILYS_LOCATION("warmelt-macro.melt:2612:/ block"); ; /*_.IFCPP___V41*/ curfptr[28] = /*_.IFELSE___V42*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2647:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2652:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2647:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2652:/ clear"); /*clear*/ /*_.IFELSE___V42*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2647:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2652:/ cppif.else"); /*_.IFCPP___V41*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V43*/ curfptr[26] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2648:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2653:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V44*/ curfptr[35] = /*_.PAIR_TAIL__V43*/ curfptr[26];; - BASILYS_LOCATION("warmelt-macro.melt:2650:/ loop"); - /*loop*/{ labloop_INSLOOP_5:;BASILYS_LOCATION("warmelt-macro.melt:2650:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:2655:/ loop"); + /*loop*/{ labloop_INSLOOP_5:;BASILYS_LOCATION("warmelt-macro.melt:2655:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:2650:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2655:/ block"); /*block*/{ /*_#IS_PAIR__L11*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])) == OBMAG_PAIR);; /*_#NOT__L12*/ curfnum[7] = (!(/*_#IS_PAIR__L11*/ curfnum[6]));; - BASILYS_LOCATION("warmelt-macro.melt:2652:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2657:/ cond"); /*cond*/ if (/*_#NOT__L12*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2652:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2652:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2657:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2657:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2652:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2657:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2652:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2657:/ compute"); /*_.INSLOOP__V46*/ curfptr[29] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2652:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:2657:/ exit"); /*exit*/{ goto labexit_INSLOOP_5;} ;} @@ -27778,20 +27847,20 @@ BASILYS_LOCATION("warmelt-macro.melt:2612:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2653:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2658:/ block"); /*block*/{ /*_.CURFKW__V47*/ curfptr[46] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; /*_#IS_NOT_A__L13*/ curfnum[8] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CURFKW__V47*/ curfptr[46]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[10])));; - BASILYS_LOCATION("warmelt-macro.melt:2654:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2659:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L13*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2654:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2654:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2659:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2659:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2655:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2660:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "expecting keyword in OBJECT pattern"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -27800,166 +27869,166 @@ BASILYS_LOCATION("warmelt-macro.melt:2612:/ block"); ; /*_.PAIR_TAIL__V48*/ curfptr[47] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2656:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2661:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V49*/ curfptr[48] = /*_.PAIR_TAIL__V48*/ curfptr[47];; - BASILYS_LOCATION("warmelt-macro.melt:2657:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2662:/ block"); /*block*/{ /*_.CUREXP__V50*/ curfptr[49] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2658:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2663:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2658:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2663:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2658:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2663:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CLA__V21*/ curfptr[20]; - BASILYS_LOCATION("warmelt-macro.melt:2658:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2663:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V50*/ curfptr[49]; - BASILYS_LOCATION("warmelt-macro.melt:2658:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2663:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2658:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2663:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V4*/ curfptr[3]; - BASILYS_LOCATION("warmelt-macro.melt:2658:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2663:/ apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V15*/ curfptr[14]; /*_.FLDP__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_FIELD_PATTERN*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.CURFKW__V47*/ curfptr[46]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2659:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2659:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2664:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2664:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2659:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2664:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2659:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2664:/ apply.arg"); argtab[0].bp_cstring = "patexpand_object fldp"; - BASILYS_LOCATION("warmelt-macro.melt:2659:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2664:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.melt:2659:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2664:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2659:/ apply.arg"); - argtab[3].bp_long = 2659; + BASILYS_LOCATION("warmelt-macro.melt:2664:/ apply.arg"); + argtab[3].bp_long = 2664; /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.FLDP__V51*/ curfptr[50]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2659:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2664:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2659:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2664:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2659:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2664:/ cppif.else"); /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2660:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2665:/ cond"); /*cond*/ if (/*_.FLDP__V51*/ curfptr[50]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2660:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2660:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2665:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2665:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2661:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2666:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (basilys_ptr_t)(/*_.FLDP__V51*/ curfptr[50]));} ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2660:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2665:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2660:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2665:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2663:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2668:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURFKW__V47*/ curfptr[46]), 1, "NAMED_NAME");/*_.NAMED_NAME__V54*/ curfptr[52] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2662:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2667:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "bad field name in OBJECT pattern"), (basilys_ptr_t)(/*_.NAMED_NAME__V54*/ curfptr[52]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2660:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2665:/ clear"); /*clear*/ /*_.NAMED_NAME__V54*/ curfptr[52] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2658:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2663:/ clear"); /*clear*/ /*_.FLDP__V51*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2658:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2663:/ clear"); /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2657:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2662:/ clear"); /*clear*/ /*_.CUREXP__V50*/ curfptr[49] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2653:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2658:/ clear"); /*clear*/ /*_.CURFKW__V47*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2653:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2658:/ clear"); /*clear*/ /*_#IS_NOT_A__L13*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2653:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2658:/ clear"); /*clear*/ /*_.PAIR_TAIL__V48*/ curfptr[47] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2653:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2658:/ clear"); /*clear*/ /*_.SETQ___V49*/ curfptr[48] = 0 ;} ; /*_.PAIR_TAIL__V55*/ curfptr[52] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:2665:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2670:/ compute"); /*_.CURPAIR__V19*/ curfptr[18] = /*_.SETQ___V56*/ curfptr[50] = /*_.PAIR_TAIL__V55*/ curfptr[52];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2650:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2655:/ clear"); /*clear*/ /*_#IS_PAIR__L11*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2650:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2655:/ clear"); /*clear*/ /*_#NOT__L12*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2650:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2655:/ clear"); /*clear*/ /*_.PAIR_TAIL__V55*/ curfptr[52] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2650:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2655:/ clear"); /*clear*/ /*_.SETQ___V56*/ curfptr[50] = 0 ;} ; ; goto labloop_INSLOOP_5; - labexit_INSLOOP_5:;BASILYS_LOCATION("warmelt-macro.melt:2650:/ loopepilog"); + labexit_INSLOOP_5:;BASILYS_LOCATION("warmelt-macro.melt:2655:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V45*/ curfptr[27] = /*_.INSLOOP__V46*/ curfptr[29];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2667:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2672:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2670:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2675:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2670:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2675:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]); /*_.LIST_TO_MULTIPLE__V58*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.FLDLIST__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2667:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2672:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2667:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2672:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_OBJECT*/ curfrout->tabval[12])), (3), "CLASS_SRCPATTERN_OBJECT");/*_.INST__V60*/ curfptr[47] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2667:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2672:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V60*/ curfptr[47])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V60*/ curfptr[47]))));basilys_putfield_object((/*_.INST__V60*/ curfptr[47]), (0), (/*_.LOC__V15*/ curfptr[14]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2667:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2672:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V60*/ curfptr[47])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V60*/ curfptr[47]))));basilys_putfield_object((/*_.INST__V60*/ curfptr[47]), (1), (/*_.CLA__V21*/ curfptr[20]), "SPAT_CLASS"); ; - BASILYS_LOCATION("warmelt-macro.melt:2667:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2672:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V60*/ curfptr[47])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V60*/ curfptr[47]))));basilys_putfield_object((/*_.INST__V60*/ curfptr[47]), (2), (/*_.LIST_TO_MULTIPLE__V58*/ curfptr[49]), "SPAT_FIELDS"); @@ -27968,119 +28037,119 @@ BASILYS_LOCATION("warmelt-macro.melt:2612:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2672:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2672:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2677:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2677:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2672:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2677:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2672:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2677:/ apply.arg"); argtab[0].bp_cstring = "patexpand_object return spati"; - BASILYS_LOCATION("warmelt-macro.melt:2672:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2677:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.melt:2672:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2677:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2672:/ apply.arg"); - argtab[3].bp_long = 2672; + BASILYS_LOCATION("warmelt-macro.melt:2677:/ apply.arg"); + argtab[3].bp_long = 2677; /*_.DEBUG_MSG_FUN__V62*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SPATI__V59*/ curfptr[46]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V61*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[52];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2672:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2677:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2672:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2677:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2672:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2677:/ cppif.else"); /*_.IFCPP___V61*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2673:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2678:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SPATI__V59*/ curfptr[46];; - BASILYS_LOCATION("warmelt-macro.melt:2673:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2678:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V57*/ curfptr[51] = /*_.RETURN___V63*/ curfptr[50];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2667:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2672:/ clear"); /*clear*/ /*_.LIST_TO_MULTIPLE__V58*/ curfptr[49] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2667:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2672:/ clear"); /*clear*/ /*_.SPATI__V59*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2667:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2672:/ clear"); /*clear*/ /*_.IFCPP___V61*/ curfptr[48] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2667:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2672:/ clear"); /*clear*/ /*_.RETURN___V63*/ curfptr[50] = 0 ;} ; /*_.LET___V23*/ curfptr[22] = /*_.LET___V57*/ curfptr[51];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2629:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2634:/ clear"); /*clear*/ /*_.BND__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2629:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2634:/ clear"); /*clear*/ /*_.FLDLIST__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2629:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2634:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2629:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2634:/ clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2629:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2634:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2629:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2634:/ clear"); /*clear*/ /*_.PAIR_TAIL__V43*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2629:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2634:/ clear"); /*clear*/ /*_.SETQ___V44*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2629:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2634:/ clear"); /*clear*/ /*_.FOREVER___V45*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2629:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2634:/ clear"); /*clear*/ /*_.LET___V57*/ curfptr[51] = 0 ;} ; /*_.LET___V13*/ curfptr[11] = /*_.LET___V23*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2622:/ clear"); /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2622:/ clear"); /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2622:/ clear"); /*clear*/ /*_.FIELDS__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2622:/ clear"); /*clear*/ /*_.FIELDNAMS__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2622:/ clear"); /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2622:/ clear"); /*clear*/ /*_.CURPAIR__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2622:/ clear"); /*clear*/ /*_.CLANAME__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2622:/ clear"); /*clear*/ /*_.CLA__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2622:/ clear"); /*clear*/ /*_.CLABIND__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2622:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2622:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2612:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; - BASILYS_LOCATION("warmelt-macro.melt:2612:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2612:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2612:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2612:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2612:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2612:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; @@ -28141,18 +28210,18 @@ basilys_trace_start("MEXPAND_OBJECT", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2677:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2682:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2677:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2682:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2677:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2682:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -28161,28 +28230,28 @@ basilys_trace_start("MEXPAND_OBJECT", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2677:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2682:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2678:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2678:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2683:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2683:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2678:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2683:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2678:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2683:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2678:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2683:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2678:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2683:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2678:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2678)?(2678):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2683:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2683)?(2683):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -28192,36 +28261,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2677:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2678:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2683:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2678:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2683:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2678:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2683:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2679:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2679:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2684:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2684:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2679:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2684:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2679:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2684:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2679:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2684:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2679:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2684:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2679:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2679)?(2679):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2684:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2684)?(2684):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -28231,90 +28300,90 @@ BASILYS_LOCATION("warmelt-macro.melt:2677:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2679:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2684:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2679:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2684:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2679:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2684:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2680:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2680:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2685:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2685:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2680:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2685:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2680:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2685:/ apply.arg"); argtab[0].bp_cstring = "mexpand_object sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:2680:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2685:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2680:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2685:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2680:/ apply.arg"); - argtab[3].bp_long = 2680; + BASILYS_LOCATION("warmelt-macro.melt:2685:/ apply.arg"); + argtab[3].bp_long = 2685; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2680:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2685:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2680:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2685:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2680:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2685:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2681:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2686:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2682:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2687:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ curfptr[11] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:2684:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2689:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V12*/ curfptr[11]), ( "OBJECT cannot be macro-expanded in expression context - use INSTANCE instead"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:2685:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2690:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:2685:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2690:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V13*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2681:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2686:/ clear"); /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2681:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2686:/ clear"); /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2677:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2682:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:2677:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2682:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2677:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2682:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2677:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2682:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2677:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2682:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2677:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2682:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -28375,18 +28444,18 @@ basilys_trace_start("MEXPAND_CODE_CHUNK", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2692:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2692:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2692:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -28395,28 +28464,28 @@ basilys_trace_start("MEXPAND_CODE_CHUNK", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2692:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2697:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2693:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2693:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2698:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2698:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2693:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2698:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2693:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2698:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2693:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2698:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2693:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2698:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2693:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2693)?(2693):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2698:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2698)?(2698):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -28426,36 +28495,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2692:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2693:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2698:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2693:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2698:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2693:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2698:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2694:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2694:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2699:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2699:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2694:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2699:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2694:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2699:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2694:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2699:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2694:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2699:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2694:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2694)?(2694):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2699:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2699)?(2699):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -28465,23 +28534,23 @@ BASILYS_LOCATION("warmelt-macro.melt:2692:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2694:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2699:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2694:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2699:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2694:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2699:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2695:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2696:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2701:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V11*/ curfptr[10] = slot; }; ; @@ -28496,30 +28565,30 @@ BASILYS_LOCATION("warmelt-macro.melt:2692:/ block"); /*_.CUREL__V17*/ curfptr[16] = (/*nil*/NULL);; /*_.PAIR_HEAD__V18*/ curfptr[17] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:2703:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2708:/ compute"); /*_.CUREL__V17*/ curfptr[16] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_HEAD__V18*/ curfptr[17];; /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CUREL__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:2704:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2709:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2704:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2704:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2709:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2709:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2705:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2710:/ compute"); /*_.GSYM__V15*/ curfptr[14] = /*_.SETQ___V21*/ curfptr[20] = /*_.CUREL__V17*/ curfptr[16];; /*_.IFELSE___V20*/ curfptr[19] = /*_.SETQ___V21*/ curfptr[20];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2704:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2709:/ clear"); /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2704:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2709:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2704:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2709:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2706:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2711:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.SLOC__V11*/ curfptr[10]), ( "missing symbol in (CODE_CHUNK <gensymbol> <chunk>)"), (basilys_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} @@ -28530,22 +28599,22 @@ BASILYS_LOCATION("warmelt-macro.melt:2692:/ block"); ; /*_.PAIR_TAIL__V22*/ curfptr[20] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:2707:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2712:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V23*/ curfptr[22] = /*_.PAIR_TAIL__V22*/ curfptr[20];; /*_.PAIR_HEAD__V24*/ curfptr[23] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:2708:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2713:/ compute"); /*_.CURCHK__V14*/ curfptr[13] = /*_.SETQ___V25*/ curfptr[24] = /*_.PAIR_HEAD__V24*/ curfptr[23];; /*_.PAIR_TAIL__V26*/ curfptr[25] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:2709:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2714:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V26*/ curfptr[25]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2709:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2709:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2714:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2714:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2710:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2715:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.SLOC__V11*/ curfptr[10]), ( "CODE_CHUNK expects one single chunk sexpr"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -28554,42 +28623,42 @@ BASILYS_LOCATION("warmelt-macro.melt:2692:/ block"); ; /*_#IS_NOT_A__L4*/ curfnum[3] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2711:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2716:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2711:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2711:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2716:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2716:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2712:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2717:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.SLOC__V11*/ curfptr[10]), ( "CODE_CHUNK expects a chunk sexpr"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2713:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2718:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2713:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2718:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[4])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2713:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2713:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2718:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2718:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), 1, "LOCA_LOCATION");/*_.LOC__V28*/ curfptr[27] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2713:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2718:/ cond.else"); /*_.LOC__V28*/ curfptr[27] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:2714:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2719:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2714:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2714:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2719:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2719:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCHK__V14*/ curfptr[13]), 2, "SEXP_CONTENTS");/*_.CHKCONT__V29*/ curfptr[28] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2714:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2719:/ cond.else"); /*_.CHKCONT__V29*/ curfptr[28] = NULL;; } @@ -28604,50 +28673,50 @@ basilys_magic_discr(/*_.CURPAIR__V30*/ curfptr[29]) == OBMAG_PAIR; /*_#IS_STRING__L5*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURCOMP__V31*/ curfptr[30])) == OBMAG_STRING);; - BASILYS_LOCATION("warmelt-macro.melt:2719:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2724:/ cond"); /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2719:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2719:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2724:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2724:/ block"); /*block*/{ /*_.MAKE_STRING__V32*/ curfptr[31] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[5])), basilys_string_str((basilys_ptr_t)(/*_.CURCOMP__V31*/ curfptr[30]))));; { - BASILYS_LOCATION("warmelt-macro.melt:2720:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2725:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.CHKLIST__V16*/ curfptr[15]), (basilys_ptr_t)(/*_.MAKE_STRING__V32*/ curfptr[31]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2719:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2724:/ clear"); /*clear*/ /*_.MAKE_STRING__V32*/ curfptr[31] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2719:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2724:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2719:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2724:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURCOMP__V31*/ curfptr[30]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:2722:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2727:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2722:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2722:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2727:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2727:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2723:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2728:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.CHKLIST__V16*/ curfptr[15]), (basilys_ptr_t)(/*_.CURCOMP__V31*/ curfptr[30]));} ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2722:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2727:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2722:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2727:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2725:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2730:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V28*/ curfptr[27]), ( "bad content in CODE_CHUNK - expecting string or symbol"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:2724:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2729:/ block"); /*block*/{} ; /*epilog*/} @@ -28655,7 +28724,7 @@ basilys_magic_discr(/*_.CURPAIR__V30*/ curfptr[29]) == OBMAG_PAIR; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2719:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2724:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ;} ; } @@ -28664,51 +28733,51 @@ basilys_magic_discr(/*_.CURPAIR__V30*/ curfptr[29]) == OBMAG_PAIR; /*citerepilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2716:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2721:/ clear"); /*clear*/ /*_.CURPAIR__V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2716:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2721:/ clear"); /*clear*/ /*_.CURCOMP__V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2716:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2721:/ clear"); /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ;} /*endciterblock FOREACH_IN_LIST*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2727:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2732:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2728:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2733:/ cond"); /*cond*/ if (/*_.LOC__V28*/ curfptr[27]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2728:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2733:/ cond.then"); /*_.OR___V34*/ curfptr[33] = /*_.LOC__V28*/ curfptr[27];; - } else {BASILYS_LOCATION("warmelt-macro.melt:2728:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2733:/ cond.else"); /*_.OR___V34*/ curfptr[33] = /*_.SLOC__V11*/ curfptr[10];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2730:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2735:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2730:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2735:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[8]); /*_.LIST_TO_MULTIPLE__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.CHKLIST__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2727:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2732:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2727:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2732:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_CODECHUNK*/ curfrout->tabval[6])), (3), "CLASS_SRC_CODECHUNK");/*_.INST__V37*/ curfptr[36] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2727:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2732:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (0), (/*_.OR___V34*/ curfptr[33]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2727:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2732:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (1), (/*_.GSYM__V15*/ curfptr[14]), "SCH_GENSYM"); ; - BASILYS_LOCATION("warmelt-macro.melt:2727:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2732:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V37*/ curfptr[36]))));basilys_putfield_object((/*_.INST__V37*/ curfptr[36]), (2), (/*_.LIST_TO_MULTIPLE__V35*/ curfptr[34]), "SCH_CHUNKS"); @@ -28717,121 +28786,121 @@ basilys_magic_discr(/*_.CURPAIR__V30*/ curfptr[29]) == OBMAG_PAIR; ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2732:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2732:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2737:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2737:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2732:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2737:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2732:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2737:/ apply.arg"); argtab[0].bp_cstring = "mexpand_code_chunk result"; - BASILYS_LOCATION("warmelt-macro.melt:2732:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2737:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; - BASILYS_LOCATION("warmelt-macro.melt:2732:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2737:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2732:/ apply.arg"); - argtab[3].bp_long = 2732; + BASILYS_LOCATION("warmelt-macro.melt:2737:/ apply.arg"); + argtab[3].bp_long = 2737; /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.MRES__V36*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2732:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2737:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2732:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2737:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2732:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2737:/ cppif.else"); /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2733:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2738:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MRES__V36*/ curfptr[35];; - BASILYS_LOCATION("warmelt-macro.melt:2733:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2738:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V33*/ curfptr[31] = /*_.RETURN___V40*/ curfptr[38];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2727:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2732:/ clear"); /*clear*/ /*_.OR___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2727:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2732:/ clear"); /*clear*/ /*_.LIST_TO_MULTIPLE__V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2727:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2732:/ clear"); /*clear*/ /*_.MRES__V36*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2727:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2732:/ clear"); /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2727:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2732:/ clear"); /*clear*/ /*_.RETURN___V40*/ curfptr[38] = 0 ;} ; /*_.LET___V27*/ curfptr[26] = /*_.LET___V33*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2713:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2718:/ clear"); /*clear*/ /*_.LOC__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2713:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2718:/ clear"); /*clear*/ /*_.CHKCONT__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2713:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2718:/ clear"); /*clear*/ /*_.LET___V33*/ curfptr[31] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.SLOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.CURCHK__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.GSYM__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.CHKLIST__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.CUREL__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.PAIR_HEAD__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.PAIR_TAIL__V22*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.PAIR_HEAD__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2700:/ clear"); /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2692:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.melt:2692:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2692:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2692:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2692:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -28892,18 +28961,18 @@ basilys_trace_start("MEXPAND_UNSAFE_PUT_FIELDS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2741:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2741:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2741:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -28912,28 +28981,28 @@ basilys_trace_start("MEXPAND_UNSAFE_PUT_FIELDS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2741:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2746:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2742:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2742:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2747:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2747:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2742:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2747:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2742:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2747:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2742:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2747:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2742:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2747:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2742:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2742)?(2742):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2747:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2747)?(2747):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -28943,36 +29012,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2741:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2742:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2747:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2742:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2747:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2742:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2747:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2743:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2743:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2748:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2748:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2743:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2748:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2743:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2748:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2743:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2748:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2743:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2748:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2743:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2743)?(2743):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2748:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2748)?(2748):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -28982,25 +29051,25 @@ BASILYS_LOCATION("warmelt-macro.melt:2741:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2743:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2748:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2743:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2748:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2743:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2748:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2744:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2749:/ block"); /*block*/{ /*_.FIELDS__V10*/ curfptr[9] = (/*nil*/NULL);; /*_.FIELDNAMS__V11*/ curfptr[10] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2746:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2751:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2747:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2752:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -29012,60 +29081,60 @@ BASILYS_LOCATION("warmelt-macro.melt:2741:/ block"); (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBJSRC__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2751:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2756:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2751:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2751:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2756:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2756:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2752:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2757:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2752:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2757:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2752:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2757:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBJSRC__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OBJEXP__V17*/ curfptr[16] = /*_.MACROEXPAND_1__V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2751:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2756:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2751:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2756:/ cond.else"); /*_.OBJEXP__V17*/ curfptr[16] = /*_.OBJSRC__V16*/ curfptr[15];; } ; /*_.PAIR_TAIL__V19*/ curfptr[17] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2755:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2760:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_TAIL__V19*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.melt:2756:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2761:/ block"); /*block*/{ /*_.FLDLIST__V22*/ curfptr[21] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));; - BASILYS_LOCATION("warmelt-macro.melt:2758:/ loop"); - /*loop*/{ labloop_INSLOOP_6:;BASILYS_LOCATION("warmelt-macro.melt:2758:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:2763:/ loop"); + /*loop*/{ labloop_INSLOOP_6:;BASILYS_LOCATION("warmelt-macro.melt:2763:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:2758:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2763:/ block"); /*block*/{ /*_#IS_PAIR__L4*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; /*_#NOT__L5*/ curfnum[4] = (!(/*_#IS_PAIR__L4*/ curfnum[3]));; - BASILYS_LOCATION("warmelt-macro.melt:2759:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2764:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2759:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2759:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2764:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2764:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2759:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2764:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2759:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2764:/ compute"); /*_.INSLOOP__V24*/ curfptr[23] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2759:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:2764:/ exit"); /*exit*/{ goto labexit_INSLOOP_6;} ;} @@ -29074,20 +29143,20 @@ BASILYS_LOCATION("warmelt-macro.melt:2741:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2760:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2765:/ block"); /*block*/{ /*_.CURFKW__V25*/ curfptr[24] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_#IS_NOT_A__L6*/ curfnum[5] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CURFKW__V25*/ curfptr[24]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:2761:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2766:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2761:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2761:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2766:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2766:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2762:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2767:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting heyword in UNSAFE_PUT_FIELDS"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -29096,39 +29165,39 @@ BASILYS_LOCATION("warmelt-macro.melt:2741:/ block"); ; /*_.PAIR_TAIL__V26*/ curfptr[25] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2763:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2768:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];; - BASILYS_LOCATION("warmelt-macro.melt:2764:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2769:/ block"); /*block*/{ /*_.CUREXP__V28*/ curfptr[27] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2765:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2770:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2765:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2770:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2765:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2770:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.melt:2765:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2770:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V25*/ curfptr[24]; - BASILYS_LOCATION("warmelt-macro.melt:2765:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2770:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V28*/ curfptr[27]; - BASILYS_LOCATION("warmelt-macro.melt:2765:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2770:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2765:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2770:/ apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.FLDA__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[5])), (basilys_ptr_t)((/*nil*/NULL)), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2766:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2771:/ cond"); /*cond*/ if (/*_.FLDA__V29*/ curfptr[28]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2766:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2766:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2771:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2771:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2767:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2772:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (basilys_ptr_t)(/*_.FLDA__V29*/ curfptr[28]));} ; /*epilog*/} @@ -29136,73 +29205,73 @@ BASILYS_LOCATION("warmelt-macro.melt:2741:/ block"); } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2765:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2770:/ clear"); /*clear*/ /*_.FLDA__V29*/ curfptr[28] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2764:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2769:/ clear"); /*clear*/ /*_.CUREXP__V28*/ curfptr[27] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2760:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2765:/ clear"); /*clear*/ /*_.CURFKW__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2760:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2765:/ clear"); /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2760:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2765:/ clear"); /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2760:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2765:/ clear"); /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;} ; /*_.PAIR_TAIL__V30*/ curfptr[28] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2769:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2774:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V31*/ curfptr[27] = /*_.PAIR_TAIL__V30*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2758:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2763:/ clear"); /*clear*/ /*_#IS_PAIR__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2758:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2763:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2758:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2763:/ clear"); /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2758:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2763:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[27] = 0 ;} ; ; goto labloop_INSLOOP_6; - labexit_INSLOOP_6:;BASILYS_LOCATION("warmelt-macro.melt:2758:/ loopepilog"); + labexit_INSLOOP_6:;BASILYS_LOCATION("warmelt-macro.melt:2763:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V23*/ curfptr[22] = /*_.INSLOOP__V24*/ curfptr[23];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2771:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2776:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2771:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2776:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2771:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2776:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]); /*_.FASTUP__V33*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2772:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2777:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2772:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2777:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_UNSAFE_PUT_FIELDS*/ curfrout->tabval[8])), (3), "CLASS_SRC_UNSAFE_PUT_FIELDS");/*_.INST__V35*/ curfptr[28] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2772:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2777:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[28]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2772:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2777:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[28]), (1), (/*_.OBJEXP__V17*/ curfptr[16]), "SUPUT_OBJ"); ; - BASILYS_LOCATION("warmelt-macro.melt:2772:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2777:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[28]), (2), (/*_.FASTUP__V33*/ curfptr[25]), "SUPUT_FIELDS"); @@ -29211,60 +29280,60 @@ BASILYS_LOCATION("warmelt-macro.melt:2741:/ block"); ; /*_.LET___V32*/ curfptr[24] = /*_.INST___V34*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2771:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2776:/ clear"); /*clear*/ /*_.FASTUP__V33*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2771:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2776:/ clear"); /*clear*/ /*_.INST___V34*/ curfptr[26] = 0 ;} ; /*_.LET___V21*/ curfptr[20] = /*_.LET___V32*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2756:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2761:/ clear"); /*clear*/ /*_.FLDLIST__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2756:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2761:/ clear"); /*clear*/ /*_.FOREVER___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2756:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2761:/ clear"); /*clear*/ /*_.LET___V32*/ curfptr[24] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[20];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2749:/ clear"); /*clear*/ /*_.FIELDS__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2749:/ clear"); /*clear*/ /*_.FIELDNAMS__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2749:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2749:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2749:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2749:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2749:/ clear"); /*clear*/ /*_.OBJSRC__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2749:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2749:/ clear"); /*clear*/ /*_.OBJEXP__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2749:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2749:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2744:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2749:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[20] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2741:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.melt:2741:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2741:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2741:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2741:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -29325,18 +29394,18 @@ basilys_trace_start("MEXPAND_PUT_FIELDS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2781:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2781:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2781:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -29345,28 +29414,28 @@ basilys_trace_start("MEXPAND_PUT_FIELDS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2781:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2786:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2782:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2782:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2787:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2787:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2782:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2787:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2782:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2787:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2782:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2787:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2782:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2787:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2782:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2782)?(2782):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2787:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2787)?(2787):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -29376,36 +29445,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2781:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2782:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2787:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2782:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2787:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2782:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2787:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2783:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2783:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2788:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2788:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2783:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2788:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2783:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2788:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2783:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2788:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2783:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2788:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2783:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2783)?(2783):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2788:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2788)?(2788):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -29415,25 +29484,25 @@ BASILYS_LOCATION("warmelt-macro.melt:2781:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2783:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2788:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2783:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2788:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2783:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2788:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2784:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2789:/ block"); /*block*/{ /*_.FIELDS__V10*/ curfptr[9] = (/*nil*/NULL);; /*_.FIELDNAMS__V11*/ curfptr[10] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2786:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2791:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2787:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2792:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -29445,60 +29514,60 @@ BASILYS_LOCATION("warmelt-macro.melt:2781:/ block"); (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBJSRC__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2791:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2796:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2791:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2791:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2796:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2796:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2792:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2797:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2792:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2797:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2792:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2797:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBJSRC__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OBJEXP__V17*/ curfptr[16] = /*_.MACROEXPAND_1__V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2791:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2796:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2791:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2796:/ cond.else"); /*_.OBJEXP__V17*/ curfptr[16] = /*_.OBJSRC__V16*/ curfptr[15];; } ; /*_.PAIR_TAIL__V19*/ curfptr[17] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2795:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2800:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_TAIL__V19*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.melt:2796:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2801:/ block"); /*block*/{ /*_.FLDLIST__V22*/ curfptr[21] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));; - BASILYS_LOCATION("warmelt-macro.melt:2798:/ loop"); - /*loop*/{ labloop_INSLOOP_7:;BASILYS_LOCATION("warmelt-macro.melt:2798:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:2803:/ loop"); + /*loop*/{ labloop_INSLOOP_7:;BASILYS_LOCATION("warmelt-macro.melt:2803:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:2798:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2803:/ block"); /*block*/{ /*_#IS_PAIR__L4*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; /*_#NOT__L5*/ curfnum[4] = (!(/*_#IS_PAIR__L4*/ curfnum[3]));; - BASILYS_LOCATION("warmelt-macro.melt:2799:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2804:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2799:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2799:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2804:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2804:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2799:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2804:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2799:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2804:/ compute"); /*_.INSLOOP__V24*/ curfptr[23] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2799:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:2804:/ exit"); /*exit*/{ goto labexit_INSLOOP_7;} ;} @@ -29507,20 +29576,20 @@ BASILYS_LOCATION("warmelt-macro.melt:2781:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2800:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2805:/ block"); /*block*/{ /*_.CURFKW__V25*/ curfptr[24] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_#IS_NOT_A__L6*/ curfnum[5] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CURFKW__V25*/ curfptr[24]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:2801:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2806:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2801:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2801:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2806:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2806:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2802:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2807:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "expecting heyword in PUT_FIELDS"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -29529,39 +29598,39 @@ BASILYS_LOCATION("warmelt-macro.melt:2781:/ block"); ; /*_.PAIR_TAIL__V26*/ curfptr[25] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2803:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2808:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V27*/ curfptr[26] = /*_.PAIR_TAIL__V26*/ curfptr[25];; - BASILYS_LOCATION("warmelt-macro.melt:2804:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2809:/ block"); /*block*/{ /*_.CUREXP__V28*/ curfptr[27] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2805:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2810:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2805:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2810:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2805:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2810:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V13*/ curfptr[12]; - BASILYS_LOCATION("warmelt-macro.melt:2805:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2810:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V25*/ curfptr[24]; - BASILYS_LOCATION("warmelt-macro.melt:2805:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2810:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V28*/ curfptr[27]; - BASILYS_LOCATION("warmelt-macro.melt:2805:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2810:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2805:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2810:/ apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.FLDA__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[5])), (basilys_ptr_t)((/*nil*/NULL)), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2806:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2811:/ cond"); /*cond*/ if (/*_.FLDA__V29*/ curfptr[28]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2806:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2806:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2811:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2811:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2807:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2812:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (basilys_ptr_t)(/*_.FLDA__V29*/ curfptr[28]));} ; /*epilog*/} @@ -29569,73 +29638,73 @@ BASILYS_LOCATION("warmelt-macro.melt:2781:/ block"); } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2805:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2810:/ clear"); /*clear*/ /*_.FLDA__V29*/ curfptr[28] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2804:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2809:/ clear"); /*clear*/ /*_.CUREXP__V28*/ curfptr[27] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2800:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2805:/ clear"); /*clear*/ /*_.CURFKW__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2800:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2805:/ clear"); /*clear*/ /*_#IS_NOT_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2800:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2805:/ clear"); /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2800:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2805:/ clear"); /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;} ; /*_.PAIR_TAIL__V30*/ curfptr[28] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2809:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2814:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V31*/ curfptr[27] = /*_.PAIR_TAIL__V30*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2798:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2803:/ clear"); /*clear*/ /*_#IS_PAIR__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2798:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2803:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2798:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2803:/ clear"); /*clear*/ /*_.PAIR_TAIL__V30*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2798:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2803:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[27] = 0 ;} ; ; goto labloop_INSLOOP_7; - labexit_INSLOOP_7:;BASILYS_LOCATION("warmelt-macro.melt:2798:/ loopepilog"); + labexit_INSLOOP_7:;BASILYS_LOCATION("warmelt-macro.melt:2803:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V23*/ curfptr[22] = /*_.INSLOOP__V24*/ curfptr[23];; } ; - BASILYS_LOCATION("warmelt-macro.melt:2811:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2816:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2811:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2816:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2811:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2816:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]); /*_.FASTUP__V33*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.FLDLIST__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2812:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2817:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2812:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2817:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_PUT_FIELDS*/ curfrout->tabval[8])), (3), "CLASS_SRC_PUT_FIELDS");/*_.INST__V35*/ curfptr[28] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2812:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2817:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[28]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2812:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2817:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[28]), (1), (/*_.OBJEXP__V17*/ curfptr[16]), "SUPUT_OBJ"); ; - BASILYS_LOCATION("warmelt-macro.melt:2812:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2817:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[28]), (2), (/*_.FASTUP__V33*/ curfptr[25]), "SUPUT_FIELDS"); @@ -29644,60 +29713,60 @@ BASILYS_LOCATION("warmelt-macro.melt:2781:/ block"); ; /*_.LET___V32*/ curfptr[24] = /*_.INST___V34*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2811:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2816:/ clear"); /*clear*/ /*_.FASTUP__V33*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2811:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2816:/ clear"); /*clear*/ /*_.INST___V34*/ curfptr[26] = 0 ;} ; /*_.LET___V21*/ curfptr[20] = /*_.LET___V32*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2796:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2801:/ clear"); /*clear*/ /*_.FLDLIST__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2796:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2801:/ clear"); /*clear*/ /*_.FOREVER___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2796:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2801:/ clear"); /*clear*/ /*_.LET___V32*/ curfptr[24] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[20];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2789:/ clear"); /*clear*/ /*_.FIELDS__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2789:/ clear"); /*clear*/ /*_.FIELDNAMS__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2789:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2789:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2789:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2789:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2789:/ clear"); /*clear*/ /*_.OBJSRC__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2789:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2789:/ clear"); /*clear*/ /*_.OBJEXP__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2789:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2789:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2784:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2789:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[20] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2781:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.melt:2781:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2781:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2781:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2781:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -29758,18 +29827,18 @@ basilys_trace_start("MEXPAND_UNSAFE_GET_FIELD", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2821:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2821:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2821:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -29778,28 +29847,28 @@ basilys_trace_start("MEXPAND_UNSAFE_GET_FIELD", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2821:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2826:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2822:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2822:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2827:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2827:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2822:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2827:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2822:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2827:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2822:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2827:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2822:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2827:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2822:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2822)?(2822):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2827:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2827)?(2827):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -29809,36 +29878,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2821:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2822:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2827:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2822:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2827:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2822:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2827:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2823:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2823:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2828:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2828:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2823:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2828:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2823:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2828:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2823:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2828:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2823:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2828:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2823:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2823)?(2823):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2828:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2828)?(2828):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -29848,23 +29917,23 @@ BASILYS_LOCATION("warmelt-macro.melt:2821:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2823:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2828:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2823:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2828:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2823:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2828:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2824:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2829:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2824:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2829:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2825:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2830:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; }; ; @@ -29876,84 +29945,84 @@ BASILYS_LOCATION("warmelt-macro.melt:2821:/ block"); (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; /*_#IS_NOT_A__L3*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CURFKW__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:2829:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2834:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2829:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2829:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2834:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2834:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2831:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2836:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "field keyword expected in UNSAFE_GET_FIELD"), (basilys_ptr_t)0);} ; /*_.THE_NULL__V16*/ curfptr[15] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2832:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2837:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:2832:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2837:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2830:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2835:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[16];;} ; /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2829:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2834:/ clear"); /*clear*/ /*_.THE_NULL__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2829:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2834:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2829:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2834:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2829:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2834:/ cond.else"); /*_.IF___V15*/ curfptr[14] = NULL;; } ; /*_.PAIR_TAIL__V19*/ curfptr[15] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:2833:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2838:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V20*/ curfptr[16] = /*_.PAIR_TAIL__V19*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:2834:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2839:/ block"); /*block*/{ /*_.CUREXP__V22*/ curfptr[21] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; /*_.PAIR_TAIL__V23*/ curfptr[22] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:2835:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2840:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V24*/ curfptr[23] = /*_.PAIR_TAIL__V23*/ curfptr[22];; - BASILYS_LOCATION("warmelt-macro.melt:2836:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2841:/ cond"); /*cond*/ if (/*_.CURPAIR__V13*/ curfptr[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2836:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2836:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2841:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2841:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2836:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2841:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "UNSAFE_GET_FIELD with more than two sons"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2839:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2844:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2839:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2844:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2839:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2844:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V11*/ curfptr[10]; - BASILYS_LOCATION("warmelt-macro.melt:2839:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2844:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V14*/ curfptr[13]; - BASILYS_LOCATION("warmelt-macro.melt:2839:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2844:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V22*/ curfptr[21]; - BASILYS_LOCATION("warmelt-macro.melt:2839:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2844:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2839:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2844:/ apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.FLDA__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[3])), (basilys_ptr_t)((/*nil*/NULL)), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -29962,71 +30031,71 @@ BASILYS_LOCATION("warmelt-macro.melt:2821:/ block"); basilys_is_instance_of((basilys_ptr_t)(/*_.FLDA__V26*/ curfptr[25]), (basilys_ptr_t)((/*!CLASS_SRC_FIELDASSIGN*/ curfrout->tabval[4])));; /*_#NOT__L5*/ curfnum[4] = (!(/*_#IS_A__L4*/ curfnum[3]));; - BASILYS_LOCATION("warmelt-macro.melt:2840:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2845:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2840:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2840:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2845:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2845:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2842:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2847:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "bad field and expression in UNSAFE_GET_FIELD"), (basilys_ptr_t)0);} ; /*_.THE_NULL__V28*/ curfptr[27] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2843:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2848:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V28*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.melt:2843:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2848:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2841:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2846:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[28];;} ; /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2840:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2845:/ clear"); /*clear*/ /*_.THE_NULL__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2840:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2845:/ clear"); /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2840:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2845:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2840:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2845:/ cond.else"); /*_.IF___V27*/ curfptr[26] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:2844:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2849:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2844:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2849:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDA__V26*/ curfptr[25]), 1, "SFLA_FIELD");/*_.FLD__V32*/ curfptr[28] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2845:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2850:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDA__V26*/ curfptr[25]), 2, "SFLA_EXPR");/*_.EXP__V33*/ curfptr[29] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2846:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2851:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2846:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2851:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_UNSAFE_GET_FIELD*/ curfrout->tabval[5])), (3), "CLASS_SRC_UNSAFE_GET_FIELD");/*_.INST__V35*/ curfptr[34] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2846:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2851:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (0), (/*_.LOC__V11*/ curfptr[10]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2846:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2851:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (1), (/*_.EXP__V33*/ curfptr[29]), "SUGET_OBJ"); ; - BASILYS_LOCATION("warmelt-macro.melt:2846:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2851:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (2), (/*_.FLD__V32*/ curfptr[28]), "SUGET_FIELD"); @@ -30035,73 +30104,73 @@ BASILYS_LOCATION("warmelt-macro.melt:2821:/ block"); ; /*_.LET___V31*/ curfptr[27] = /*_.INST___V34*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2844:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2849:/ clear"); /*clear*/ /*_.FLD__V32*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2844:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2849:/ clear"); /*clear*/ /*_.EXP__V33*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2844:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2849:/ clear"); /*clear*/ /*_.INST___V34*/ curfptr[33] = 0 ;} ; /*_.LET___V25*/ curfptr[24] = /*_.LET___V31*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2839:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2844:/ clear"); /*clear*/ /*_.FLDA__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2839:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2844:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2839:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2844:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2839:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2844:/ clear"); /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2839:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2844:/ clear"); /*clear*/ /*_.LET___V31*/ curfptr[27] = 0 ;} ; /*_.LET___V21*/ curfptr[17] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2834:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2839:/ clear"); /*clear*/ /*_.CUREXP__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2834:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2839:/ clear"); /*clear*/ /*_.PAIR_TAIL__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2834:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2839:/ clear"); /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2834:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2839:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2829:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2829:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2829:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2829:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2829:/ clear"); /*clear*/ /*_.CURFKW__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2829:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2829:/ clear"); /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2829:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2829:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2829:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[17] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2821:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.melt:2821:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2821:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2821:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2821:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -30162,18 +30231,18 @@ basilys_trace_start("MEXPAND_GET_FIELD", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2855:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2855:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2855:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -30182,28 +30251,28 @@ basilys_trace_start("MEXPAND_GET_FIELD", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2855:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2860:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2856:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2856:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2861:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2861:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2856:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2861:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2856:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2861:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2856:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2861:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2856:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2861:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2856:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2856)?(2856):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2861:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2861)?(2861):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -30213,36 +30282,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2855:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2856:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2861:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2856:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2861:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2856:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2861:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2857:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2857:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2862:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2862:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2857:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2862:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2857:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2862:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2857:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2862:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2857:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2862:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2857:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2857)?(2857):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2862:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2862)?(2862):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -30252,23 +30321,23 @@ BASILYS_LOCATION("warmelt-macro.melt:2855:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2857:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2862:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2857:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2862:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2857:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2862:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2858:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2863:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2858:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2863:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2859:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2864:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; }; ; @@ -30280,84 +30349,84 @@ BASILYS_LOCATION("warmelt-macro.melt:2855:/ block"); (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; /*_#IS_NOT_A__L3*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CURFKW__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:2863:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2868:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2863:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2863:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2868:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2868:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2865:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2870:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "field keyword expected in GET_FIELD"), (basilys_ptr_t)0);} ; /*_.THE_NULL__V16*/ curfptr[15] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2866:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2871:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:2866:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2871:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2864:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2869:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[16];;} ; /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2863:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2868:/ clear"); /*clear*/ /*_.THE_NULL__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2863:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2868:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2863:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2868:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2863:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2868:/ cond.else"); /*_.IF___V15*/ curfptr[14] = NULL;; } ; /*_.PAIR_TAIL__V19*/ curfptr[15] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:2867:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2872:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V20*/ curfptr[16] = /*_.PAIR_TAIL__V19*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:2868:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2873:/ block"); /*block*/{ /*_.CUREXP__V22*/ curfptr[21] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; /*_.PAIR_TAIL__V23*/ curfptr[22] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:2869:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2874:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V24*/ curfptr[23] = /*_.PAIR_TAIL__V23*/ curfptr[22];; - BASILYS_LOCATION("warmelt-macro.melt:2870:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2875:/ cond"); /*cond*/ if (/*_.CURPAIR__V13*/ curfptr[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2870:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2870:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2875:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2875:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2870:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2875:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "UNSAFE_GET_FIELD with more than two sons"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2873:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2878:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2873:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2878:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2873:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2878:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V11*/ curfptr[10]; - BASILYS_LOCATION("warmelt-macro.melt:2873:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2878:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURFKW__V14*/ curfptr[13]; - BASILYS_LOCATION("warmelt-macro.melt:2873:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2878:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CUREXP__V22*/ curfptr[21]; - BASILYS_LOCATION("warmelt-macro.melt:2873:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2878:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2873:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2878:/ apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.FLDA__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!PARSE_FIELD_ASSIGNMENT*/ curfrout->tabval[3])), (basilys_ptr_t)((/*nil*/NULL)), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -30366,71 +30435,71 @@ BASILYS_LOCATION("warmelt-macro.melt:2855:/ block"); basilys_is_instance_of((basilys_ptr_t)(/*_.FLDA__V26*/ curfptr[25]), (basilys_ptr_t)((/*!CLASS_SRC_FIELDASSIGN*/ curfrout->tabval[4])));; /*_#NOT__L5*/ curfnum[4] = (!(/*_#IS_A__L4*/ curfnum[3]));; - BASILYS_LOCATION("warmelt-macro.melt:2874:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2879:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2874:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2874:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2879:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2879:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2876:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2881:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "bad field and expression in GET_FIELD"), (basilys_ptr_t)0);} ; /*_.THE_NULL__V28*/ curfptr[27] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2877:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2882:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V28*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.melt:2877:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2882:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2875:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2880:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[28];;} ; /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2874:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2879:/ clear"); /*clear*/ /*_.THE_NULL__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2874:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2879:/ clear"); /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2874:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2879:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2874:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2879:/ cond.else"); /*_.IF___V27*/ curfptr[26] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:2878:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2883:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2878:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2883:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDA__V26*/ curfptr[25]), 1, "SFLA_FIELD");/*_.FLD__V32*/ curfptr[28] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2879:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2884:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDA__V26*/ curfptr[25]), 2, "SFLA_EXPR");/*_.EXP__V33*/ curfptr[29] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2880:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2885:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2880:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2885:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_GET_FIELD*/ curfrout->tabval[5])), (3), "CLASS_SRC_GET_FIELD");/*_.INST__V35*/ curfptr[34] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2880:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2885:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (0), (/*_.LOC__V11*/ curfptr[10]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2880:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2885:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (1), (/*_.EXP__V33*/ curfptr[29]), "SUGET_OBJ"); ; - BASILYS_LOCATION("warmelt-macro.melt:2880:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2885:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (2), (/*_.FLD__V32*/ curfptr[28]), "SUGET_FIELD"); @@ -30439,73 +30508,73 @@ BASILYS_LOCATION("warmelt-macro.melt:2855:/ block"); ; /*_.LET___V31*/ curfptr[27] = /*_.INST___V34*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2878:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2883:/ clear"); /*clear*/ /*_.FLD__V32*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2878:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2883:/ clear"); /*clear*/ /*_.EXP__V33*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2878:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2883:/ clear"); /*clear*/ /*_.INST___V34*/ curfptr[33] = 0 ;} ; /*_.LET___V25*/ curfptr[24] = /*_.LET___V31*/ curfptr[27];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2873:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2878:/ clear"); /*clear*/ /*_.FLDA__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2873:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2878:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2873:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2878:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2873:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2878:/ clear"); /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2873:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2878:/ clear"); /*clear*/ /*_.LET___V31*/ curfptr[27] = 0 ;} ; /*_.LET___V21*/ curfptr[17] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2868:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2873:/ clear"); /*clear*/ /*_.CUREXP__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2868:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2873:/ clear"); /*clear*/ /*_.PAIR_TAIL__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2868:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2873:/ clear"); /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2868:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2873:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2858:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2863:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2858:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2863:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2858:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2863:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2858:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2863:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2858:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2863:/ clear"); /*clear*/ /*_.CURFKW__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2858:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2863:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2858:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2863:/ clear"); /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2858:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2863:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2858:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2863:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2858:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2863:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[17] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2855:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.melt:2855:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2855:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2855:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2855:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -30566,18 +30635,18 @@ basilys_trace_start("MEXPAND_SETQ", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2890:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2890:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2890:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -30586,28 +30655,28 @@ basilys_trace_start("MEXPAND_SETQ", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2890:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2895:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2891:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2891:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2896:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2896:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2891:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2896:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2891:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2896:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2891:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2896:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2891:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2896:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2891:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2891)?(2891):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2896:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2896)?(2896):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -30617,36 +30686,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2890:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2891:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2896:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2891:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2896:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2891:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2896:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2892:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2892:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2897:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2897:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2892:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2897:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2892:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2897:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2892:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2897:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2892:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2897:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2892:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2892)?(2892):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2897:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2897)?(2897):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -30656,23 +30725,23 @@ BASILYS_LOCATION("warmelt-macro.melt:2890:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2892:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2897:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2892:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2897:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2892:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2897:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2893:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2898:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2893:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2898:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2894:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2899:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; }; ; @@ -30684,98 +30753,98 @@ BASILYS_LOCATION("warmelt-macro.melt:2890:/ block"); (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; /*_#IS_NOT_A__L3*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CURSYM__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:2898:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2903:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2898:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2898:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2903:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2903:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2900:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2905:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "var symbol name expected in SETQ"), (basilys_ptr_t)0);} ; /*_.THE_NULL__V16*/ curfptr[15] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2901:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2906:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:2901:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2906:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2899:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2904:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[16];;} ; /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2898:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2903:/ clear"); /*clear*/ /*_.THE_NULL__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2898:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2903:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2898:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2903:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2898:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2903:/ cond.else"); /*_.IF___V15*/ curfptr[14] = NULL;; } ; /*_.PAIR_TAIL__V19*/ curfptr[15] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:2902:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2907:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V20*/ curfptr[16] = /*_.PAIR_TAIL__V19*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:2903:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2908:/ block"); /*block*/{ /*_.CUREXP__V22*/ curfptr[21] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; /*_.PAIR_TAIL__V23*/ curfptr[22] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:2904:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2909:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V24*/ curfptr[23] = /*_.PAIR_TAIL__V23*/ curfptr[22];; - BASILYS_LOCATION("warmelt-macro.melt:2905:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2910:/ cond"); /*cond*/ if (/*_.CURPAIR__V13*/ curfptr[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2905:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2905:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2910:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2910:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2905:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2910:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "SETQ with more than two sons"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2909:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2914:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2909:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2914:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2909:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2914:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.CUREXP__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:2906:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2911:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2906:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2911:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_SETQ*/ curfrout->tabval[3])), (3), "CLASS_SRC_SETQ");/*_.INST__V27*/ curfptr[26] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2906:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2911:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.LOC__V11*/ curfptr[10]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2906:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2911:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.CURSYM__V14*/ curfptr[13]), "SSTQ_VAR"); ; - BASILYS_LOCATION("warmelt-macro.melt:2906:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2911:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.MACROEXPAND_1__V25*/ curfptr[24]), "SSTQ_EXPR"); @@ -30784,53 +30853,53 @@ BASILYS_LOCATION("warmelt-macro.melt:2890:/ block"); ; /*_.LET___V21*/ curfptr[17] = /*_.INST___V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2903:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2908:/ clear"); /*clear*/ /*_.CUREXP__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2903:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2908:/ clear"); /*clear*/ /*_.PAIR_TAIL__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2903:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2908:/ clear"); /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2903:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2908:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2903:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2908:/ clear"); /*clear*/ /*_.INST___V26*/ curfptr[25] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V21*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2893:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2898:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2893:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2898:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2893:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2898:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2893:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2898:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2893:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2898:/ clear"); /*clear*/ /*_.CURSYM__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2893:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2898:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2893:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2898:/ clear"); /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2893:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2898:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2893:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2898:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2893:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2898:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[17] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2890:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.melt:2890:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2890:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2890:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2890:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -30891,18 +30960,18 @@ basilys_trace_start("MEXPAND_IF", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2916:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2916:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2916:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -30911,28 +30980,28 @@ basilys_trace_start("MEXPAND_IF", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2916:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2921:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2917:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2917:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2922:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2922:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2917:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2922:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2917:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2922:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2917:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2922:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2917:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2922:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2917:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2917)?(2917):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2922:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2922)?(2922):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -30942,36 +31011,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2916:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2917:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2922:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2917:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2922:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2917:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2922:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2918:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2918:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2923:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2923:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2918:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2923:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2918:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2923:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2918:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2923:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2918:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2923:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2918:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2918)?(2918):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2923:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2923)?(2923):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -30981,57 +31050,57 @@ BASILYS_LOCATION("warmelt-macro.melt:2916:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2918:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2923:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2918:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2923:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2918:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2923:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2919:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2919:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2924:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2924:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2919:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2924:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2919:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2924:/ apply.arg"); argtab[0].bp_cstring = "mexpand_if sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:2919:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2924:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2919:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2924:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2919:/ apply.arg"); - argtab[3].bp_long = 2919; + BASILYS_LOCATION("warmelt-macro.melt:2924:/ apply.arg"); + argtab[3].bp_long = 2924; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2919:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2924:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2919:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2924:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2919:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2924:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2920:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2925:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2921:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2926:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2922:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2927:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -31045,14 +31114,14 @@ BASILYS_LOCATION("warmelt-macro.melt:2916:/ block"); (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; /*_#NOT__L5*/ curfnum[4] = (!(/*_#IS_PAIR__L4*/ curfnum[0]));; - BASILYS_LOCATION("warmelt-macro.melt:2925:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2930:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2925:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2925:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2930:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2930:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2926:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2931:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing condition in IF"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -31061,229 +31130,229 @@ BASILYS_LOCATION("warmelt-macro.melt:2916:/ block"); ; /*_.PAIR_TAIL__V17*/ curfptr[16] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2927:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2932:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V18*/ curfptr[17] = /*_.PAIR_TAIL__V17*/ curfptr[16];; /*_#IS_PAIR__L6*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; /*_#NOT__L7*/ curfnum[6] = (!(/*_#IS_PAIR__L6*/ curfnum[5]));; - BASILYS_LOCATION("warmelt-macro.melt:2928:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2933:/ cond"); /*cond*/ if (/*_#NOT__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2928:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2928:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2933:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2933:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2929:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2934:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing then in IF"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2930:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2935:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2930:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2935:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2930:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2935:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2930:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2935:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.XCOND__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CURIF__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2931:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2931:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2936:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2936:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2931:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2936:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2931:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2936:/ apply.arg"); argtab[0].bp_cstring = "mexpand_if xcond"; - BASILYS_LOCATION("warmelt-macro.melt:2931:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2936:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.melt:2931:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2936:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2931:/ apply.arg"); - argtab[3].bp_long = 2931; + BASILYS_LOCATION("warmelt-macro.melt:2936:/ apply.arg"); + argtab[3].bp_long = 2936; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.XCOND__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2931:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2936:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2931:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2936:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2931:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2936:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2932:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2937:/ block"); /*block*/{ /*_.CURTHEN__V24*/ curfptr[23] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_.PAIR_TAIL__V25*/ curfptr[24] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2933:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2938:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V26*/ curfptr[25] = /*_.PAIR_TAIL__V25*/ curfptr[24];; - BASILYS_LOCATION("warmelt-macro.melt:2934:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2939:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2934:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2939:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2934:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2939:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2934:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2939:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.XTHEN__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CURTHEN__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2935:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2935:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2940:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2940:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2935:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2940:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2935:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2940:/ apply.arg"); argtab[0].bp_cstring = "mexpand_if xthen"; - BASILYS_LOCATION("warmelt-macro.melt:2935:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2940:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.melt:2935:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2940:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2935:/ apply.arg"); - argtab[3].bp_long = 2935; + BASILYS_LOCATION("warmelt-macro.melt:2940:/ apply.arg"); + argtab[3].bp_long = 2940; /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.XTHEN__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2935:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2940:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2935:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2940:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2935:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2940:/ cppif.else"); /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_PAIR__L10*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; - BASILYS_LOCATION("warmelt-macro.melt:2936:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2941:/ cond"); /*cond*/ if (/*_#IS_PAIR__L10*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2936:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2936:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2941:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2941:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2937:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2942:/ block"); /*block*/{ /*_.CURELSE__V33*/ curfptr[32] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2938:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2943:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2938:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2943:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2938:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2943:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.XELSE__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CURELSE__V33*/ curfptr[32]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2939:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2939:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2944:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2944:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2939:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2944:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2939:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2944:/ apply.arg"); argtab[0].bp_cstring = "mexpand_if xelse"; - BASILYS_LOCATION("warmelt-macro.melt:2939:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2944:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10]; - BASILYS_LOCATION("warmelt-macro.melt:2939:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2944:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2939:/ apply.arg"); - argtab[3].bp_long = 2939; + BASILYS_LOCATION("warmelt-macro.melt:2944:/ apply.arg"); + argtab[3].bp_long = 2944; /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.XELSE__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2939:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2944:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2939:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2944:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2939:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2944:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V37*/ curfptr[35] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2940:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2945:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V38*/ curfptr[37] = /*_.PAIR_TAIL__V37*/ curfptr[35];; /*_#IS_PAIR__L12*/ curfnum[10] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; - BASILYS_LOCATION("warmelt-macro.melt:2941:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2946:/ cond"); /*cond*/ if (/*_#IS_PAIR__L12*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2941:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2941:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2946:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2946:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2942:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2947:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "IF with more than three sons"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2943:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2948:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2944:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2949:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2944:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2949:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_IFELSE*/ curfrout->tabval[4])), (4), "CLASS_SRC_IFELSE");/*_.INST__V41*/ curfptr[40] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2944:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2949:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40]))));basilys_putfield_object((/*_.INST__V41*/ curfptr[40]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2944:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2949:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40]))));basilys_putfield_object((/*_.INST__V41*/ curfptr[40]), (1), (/*_.XCOND__V20*/ curfptr[19]), "SIF_TEST"); ; - BASILYS_LOCATION("warmelt-macro.melt:2944:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2949:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40]))));basilys_putfield_object((/*_.INST__V41*/ curfptr[40]), (2), (/*_.XTHEN__V28*/ curfptr[27]), "SIF_THEN"); ; - BASILYS_LOCATION("warmelt-macro.melt:2944:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2949:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40]))));basilys_putfield_object((/*_.INST__V41*/ curfptr[40]), (3), (/*_.XELSE__V34*/ curfptr[33]), "SIF_ELSE"); @@ -31292,100 +31361,100 @@ BASILYS_LOCATION("warmelt-macro.melt:2916:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2950:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2950:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2955:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2955:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2950:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2955:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2950:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2955:/ apply.arg"); argtab[0].bp_cstring = "mexpand_if with else return rese"; - BASILYS_LOCATION("warmelt-macro.melt:2950:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2955:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.melt:2950:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2955:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2950:/ apply.arg"); - argtab[3].bp_long = 2950; + BASILYS_LOCATION("warmelt-macro.melt:2955:/ apply.arg"); + argtab[3].bp_long = 2955; /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RESE__V40*/ curfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2950:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2955:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2950:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2955:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2950:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2955:/ cppif.else"); /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2951:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2956:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RESE__V40*/ curfptr[39];; - BASILYS_LOCATION("warmelt-macro.melt:2951:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2956:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V39*/ curfptr[38] = /*_.RETURN___V44*/ curfptr[42];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2943:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2948:/ clear"); /*clear*/ /*_.RESE__V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2943:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2948:/ clear"); /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2943:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2948:/ clear"); /*clear*/ /*_.RETURN___V44*/ curfptr[42] = 0 ;} ; /*_.LET___V32*/ curfptr[31] = /*_.LET___V39*/ curfptr[38];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2937:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2942:/ clear"); /*clear*/ /*_.CURELSE__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2937:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2942:/ clear"); /*clear*/ /*_.XELSE__V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2937:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2942:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2937:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2942:/ clear"); /*clear*/ /*_.PAIR_TAIL__V37*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2937:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2942:/ clear"); /*clear*/ /*_.SETQ___V38*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2937:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2942:/ clear"); /*clear*/ /*_#IS_PAIR__L12*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2937:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2942:/ clear"); /*clear*/ /*_.LET___V39*/ curfptr[38] = 0 ;} ; /*_.IFELSE___V31*/ curfptr[29] = /*_.LET___V32*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2936:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2941:/ clear"); /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:2936:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2941:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2936:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2941:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2952:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2957:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2952:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2957:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2952:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:2957:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_IF*/ curfrout->tabval[5])), (3), "CLASS_SRC_IF");/*_.INST__V47*/ curfptr[42] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2952:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2957:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[42]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2952:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2957:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[42]), (1), (/*_.XCOND__V20*/ curfptr[19]), "SIF_TEST"); ; - BASILYS_LOCATION("warmelt-macro.melt:2952:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:2957:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[42]), (2), (/*_.XTHEN__V28*/ curfptr[27]), "SIF_THEN"); @@ -31394,134 +31463,134 @@ BASILYS_LOCATION("warmelt-macro.melt:2916:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2956:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2956:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2961:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2961:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2956:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2961:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2956:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2961:/ apply.arg"); argtab[0].bp_cstring = "mexpand_if plain return resp"; - BASILYS_LOCATION("warmelt-macro.melt:2956:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2961:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.melt:2956:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2961:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2956:/ apply.arg"); - argtab[3].bp_long = 2956; + BASILYS_LOCATION("warmelt-macro.melt:2961:/ apply.arg"); + argtab[3].bp_long = 2961; /*_.DEBUG_MSG_FUN__V49*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RESP__V46*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V48*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2956:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2961:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2956:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2961:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2956:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2961:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2957:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2962:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RESP__V46*/ curfptr[41];; - BASILYS_LOCATION("warmelt-macro.melt:2957:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2962:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V45*/ curfptr[39] = /*_.RETURN___V50*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2952:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2957:/ clear"); /*clear*/ /*_.RESP__V46*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2952:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2957:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2952:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2957:/ clear"); /*clear*/ /*_.RETURN___V50*/ curfptr[34] = 0 ;} ; /*_.IFELSE___V31*/ curfptr[29] = /*_.LET___V45*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2936:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2941:/ clear"); /*clear*/ /*_.LET___V45*/ curfptr[39] = 0 ;} ; } ; /*_.LET___V27*/ curfptr[26] = /*_.IFELSE___V31*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2934:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2939:/ clear"); /*clear*/ /*_.XTHEN__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2934:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2939:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2934:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2939:/ clear"); /*clear*/ /*_#IS_PAIR__L10*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2934:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2939:/ clear"); /*clear*/ /*_.IFELSE___V31*/ curfptr[29] = 0 ;} ; /*_.LET___V23*/ curfptr[21] = /*_.LET___V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2932:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2937:/ clear"); /*clear*/ /*_.CURTHEN__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2932:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2937:/ clear"); /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2932:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2937:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2932:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2937:/ clear"); /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;} ; /*_.LET___V19*/ curfptr[18] = /*_.LET___V23*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2930:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2935:/ clear"); /*clear*/ /*_.XCOND__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2930:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2935:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2930:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2935:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[21] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2925:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2925:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2925:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2925:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2925:/ clear"); /*clear*/ /*_.CURIF__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2925:/ clear"); /*clear*/ /*_#IS_PAIR__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2925:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2925:/ clear"); /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2925:/ clear"); /*clear*/ /*_.SETQ___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2925:/ clear"); /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2925:/ clear"); /*clear*/ /*_#NOT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2920:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2925:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2916:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:2916:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2916:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2916:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2916:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2916:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -31582,18 +31651,18 @@ basilys_trace_start("MEXPAND_CPPIF", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:2963:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:2963:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:2963:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -31602,28 +31671,28 @@ basilys_trace_start("MEXPAND_CPPIF", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:2963:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:2968:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2964:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2964:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2969:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2969:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:2964:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2969:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2964:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2969:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2964:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2969:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2964:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2969:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2964:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2964)?(2964):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2969:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2969)?(2969):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -31633,36 +31702,36 @@ BASILYS_LOCATION("warmelt-macro.melt:2963:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2964:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2969:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2964:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2969:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2964:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2969:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2965:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2965:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2970:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2970:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:2965:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2970:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2965:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2970:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2965:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2970:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2965:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2970:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2965:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2965)?(2965):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:2970:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(2970)?(2970):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -31672,57 +31741,57 @@ BASILYS_LOCATION("warmelt-macro.melt:2963:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2965:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2970:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2965:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2970:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2965:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2970:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2966:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2966:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2971:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2971:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2966:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2971:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2966:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2971:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cppif sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:2966:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2971:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:2966:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2971:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2966:/ apply.arg"); - argtab[3].bp_long = 2966; + BASILYS_LOCATION("warmelt-macro.melt:2971:/ apply.arg"); + argtab[3].bp_long = 2971; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2971:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2966:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2971:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2966:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2971:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2967:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2972:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2968:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2973:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2969:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2974:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -31736,14 +31805,14 @@ BASILYS_LOCATION("warmelt-macro.melt:2963:/ block"); (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; /*_#NOT__L5*/ curfnum[4] = (!(/*_#IS_PAIR__L4*/ curfnum[0]));; - BASILYS_LOCATION("warmelt-macro.melt:2972:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2977:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2972:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2972:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2977:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2977:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2973:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2978:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing condition in CPPIF"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -31752,144 +31821,144 @@ BASILYS_LOCATION("warmelt-macro.melt:2963:/ block"); ; /*_.PAIR_TAIL__V17*/ curfptr[16] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2974:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2979:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V18*/ curfptr[17] = /*_.PAIR_TAIL__V17*/ curfptr[16];; /*_#IS_PAIR__L6*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; /*_#NOT__L7*/ curfnum[6] = (!(/*_#IS_PAIR__L6*/ curfnum[5]));; - BASILYS_LOCATION("warmelt-macro.melt:2975:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2980:/ cond"); /*cond*/ if (/*_#NOT__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2975:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2975:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2980:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2980:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2976:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2981:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing then in CPPIF"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2977:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2982:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2977:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2982:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2977:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2982:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2977:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2982:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.XCOND__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CURIF__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2978:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2978:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2983:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2983:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2978:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2983:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2978:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2983:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cppif xcond"; - BASILYS_LOCATION("warmelt-macro.melt:2978:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2983:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; - BASILYS_LOCATION("warmelt-macro.melt:2978:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2983:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2978:/ apply.arg"); - argtab[3].bp_long = 2978; + BASILYS_LOCATION("warmelt-macro.melt:2983:/ apply.arg"); + argtab[3].bp_long = 2983; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.XCOND__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2978:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2983:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2978:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2983:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2978:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2983:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_STRING__L9*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.XCOND__V20*/ curfptr[19])) == OBMAG_STRING);; - BASILYS_LOCATION("warmelt-macro.melt:2980:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2985:/ cond"); /*cond*/ if (/*_#IS_STRING__L9*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2980:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2985:/ cond.then"); /*_.IFELSE___V23*/ curfptr[21] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2980:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2985:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2980:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2985:/ block"); /*block*/{ /*_#IS_A__L10*/ curfnum[9] = basilys_is_instance_of((basilys_ptr_t)(/*_.XCOND__V20*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:2981:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2986:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2981:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2986:/ cond.then"); /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:2981:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:2986:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:2981:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2986:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2983:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:2988:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "invalid cpp-condition in CPPIF - string or symbol expected"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:2984:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2989:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.melt:2984:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2989:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2982:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2987:/ block"); /*block*/{ /*_.PROGN___V26*/ curfptr[25] = /*_.RETURN___V25*/ curfptr[24];;} ; /*_.IFELSE___V24*/ curfptr[23] = /*_.PROGN___V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2981:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2986:/ clear"); /*clear*/ /*_.RETURN___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2981:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2986:/ clear"); /*clear*/ /*_.PROGN___V26*/ curfptr[25] = 0 ;} ; } ; /*_.IFELSE___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2980:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2985:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2980:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2985:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} ; } ; - BASILYS_LOCATION("warmelt-macro.melt:2985:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2990:/ block"); /*block*/{ /*_.CURTHEN__V28*/ curfptr[25] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_.PAIR_TAIL__V29*/ curfptr[23] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2986:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:2991:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V30*/ curfptr[29] = /*_.PAIR_TAIL__V29*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.melt:2987:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2992:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2987:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2992:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2987:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2992:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2987:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2992:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.XTHEN__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CURTHEN__V28*/ curfptr[25]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -31897,110 +31966,110 @@ BASILYS_LOCATION("warmelt-macro.melt:2963:/ block"); /*_.XELSE__V33*/ curfptr[32] = (/*nil*/NULL);; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2990:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2990:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2995:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2995:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2990:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2995:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2990:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2995:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cppif xthen"; - BASILYS_LOCATION("warmelt-macro.melt:2990:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2995:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[9]; - BASILYS_LOCATION("warmelt-macro.melt:2990:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2995:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2990:/ apply.arg"); - argtab[3].bp_long = 2990; + BASILYS_LOCATION("warmelt-macro.melt:2995:/ apply.arg"); + argtab[3].bp_long = 2995; /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.XTHEN__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2990:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2995:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2990:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2995:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2990:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2995:/ cppif.else"); /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_PAIR__L12*/ curfnum[9] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; - BASILYS_LOCATION("warmelt-macro.melt:2991:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:2996:/ cond"); /*cond*/ if (/*_#IS_PAIR__L12*/ curfnum[9]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2991:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2991:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2996:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:2996:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2992:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2997:/ block"); /*block*/{ /*_.CURELSE__V36*/ curfptr[34] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2993:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2998:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2993:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2998:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:2993:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2998:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.GOTXELSE__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CURELSE__V36*/ curfptr[34]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:2994:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:2994:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2999:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:2999:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:2994:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2999:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2994:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2999:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cppif gotxelse"; - BASILYS_LOCATION("warmelt-macro.melt:2994:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2999:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.melt:2994:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2999:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:2994:/ apply.arg"); - argtab[3].bp_long = 2994; + BASILYS_LOCATION("warmelt-macro.melt:2999:/ apply.arg"); + argtab[3].bp_long = 2999; /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.GOTXELSE__V37*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V38*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2994:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2999:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2994:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2999:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:2994:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:2999:/ cppif.else"); /*_.IFCPP___V38*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.PAIR_TAIL__V40*/ curfptr[38] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:2995:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3000:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V41*/ curfptr[40] = /*_.PAIR_TAIL__V40*/ curfptr[38];; - BASILYS_LOCATION("warmelt-macro.melt:2996:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3001:/ compute"); /*_.XELSE__V33*/ curfptr[32] = /*_.SETQ___V42*/ curfptr[41] = /*_.GOTXELSE__V37*/ curfptr[36];; /*_#IS_PAIR__L14*/ curfnum[12] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; - BASILYS_LOCATION("warmelt-macro.melt:2997:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3002:/ cond"); /*cond*/ if (/*_#IS_PAIR__L14*/ curfnum[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:2997:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:2997:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3002:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3002:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:2998:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3003:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "CPPIF with more than three sons"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -32008,50 +32077,50 @@ BASILYS_LOCATION("warmelt-macro.melt:2963:/ block"); } /*noelse*/ ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2992:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2997:/ clear"); /*clear*/ /*_.CURELSE__V36*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2992:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2997:/ clear"); /*clear*/ /*_.GOTXELSE__V37*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2992:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2997:/ clear"); /*clear*/ /*_.IFCPP___V38*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2992:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2997:/ clear"); /*clear*/ /*_.PAIR_TAIL__V40*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2992:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2997:/ clear"); /*clear*/ /*_.SETQ___V41*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2992:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2997:/ clear"); /*clear*/ /*_.SETQ___V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2992:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2997:/ clear"); /*clear*/ /*_#IS_PAIR__L14*/ curfnum[12] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:2999:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3004:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2999:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3004:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2999:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3004:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_CPPIF*/ curfrout->tabval[5])), (4), "CLASS_SRC_CPPIF");/*_.INST__V45*/ curfptr[37] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2999:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3004:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[37]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:2999:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3004:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[37]), (1), (/*_.XCOND__V20*/ curfptr[19]), "SIFP_COND"); ; - BASILYS_LOCATION("warmelt-macro.melt:2999:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3004:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[37]), (2), (/*_.XTHEN__V32*/ curfptr[31]), "SIFP_THEN"); ; - BASILYS_LOCATION("warmelt-macro.melt:2999:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3004:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V45*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V45*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V45*/ curfptr[37]), (3), (/*_.XELSE__V33*/ curfptr[32]), "SIFP_ELSE"); @@ -32060,133 +32129,133 @@ BASILYS_LOCATION("warmelt-macro.melt:2963:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3006:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3006:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3011:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3011:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3006:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3011:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3006:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3011:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cppif return resp"; - BASILYS_LOCATION("warmelt-macro.melt:3006:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3011:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.melt:3006:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3011:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3006:/ apply.arg"); - argtab[3].bp_long = 3006; + BASILYS_LOCATION("warmelt-macro.melt:3011:/ apply.arg"); + argtab[3].bp_long = 3011; /*_.DEBUG_MSG_FUN__V47*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RESP__V44*/ curfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V46*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[40];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3006:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3011:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3006:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3011:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3006:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3011:/ cppif.else"); /*_.IFCPP___V46*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3007:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3012:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RESP__V44*/ curfptr[36];; - BASILYS_LOCATION("warmelt-macro.melt:3007:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3012:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V43*/ curfptr[34] = /*_.RETURN___V48*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2999:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3004:/ clear"); /*clear*/ /*_.RESP__V44*/ curfptr[36] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2999:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3004:/ clear"); /*clear*/ /*_.IFCPP___V46*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2999:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3004:/ clear"); /*clear*/ /*_.RETURN___V48*/ curfptr[41] = 0 ;} ; /*_.LET___V31*/ curfptr[30] = /*_.LET___V43*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2987:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2992:/ clear"); /*clear*/ /*_.XTHEN__V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2987:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2992:/ clear"); /*clear*/ /*_.XELSE__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2987:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2992:/ clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2987:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2992:/ clear"); /*clear*/ /*_#IS_PAIR__L12*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2987:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2992:/ clear"); /*clear*/ /*_.LET___V43*/ curfptr[34] = 0 ;} ; /*_.LET___V27*/ curfptr[24] = /*_.LET___V31*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2985:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2990:/ clear"); /*clear*/ /*_.CURTHEN__V28*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2985:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2990:/ clear"); /*clear*/ /*_.PAIR_TAIL__V29*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2985:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2990:/ clear"); /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2985:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2990:/ clear"); /*clear*/ /*_.LET___V31*/ curfptr[30] = 0 ;} ; /*_.LET___V19*/ curfptr[18] = /*_.LET___V27*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2977:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2982:/ clear"); /*clear*/ /*_.XCOND__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2977:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2982:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2977:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2982:/ clear"); /*clear*/ /*_#IS_STRING__L9*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2977:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2982:/ clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2977:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2982:/ clear"); /*clear*/ /*_.LET___V27*/ curfptr[24] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2967:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2972:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2967:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2972:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2967:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2972:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2967:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2972:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2967:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2972:/ clear"); /*clear*/ /*_.CURIF__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2967:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2972:/ clear"); /*clear*/ /*_#IS_PAIR__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2967:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2972:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2967:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2972:/ clear"); /*clear*/ /*_.PAIR_TAIL__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2967:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2972:/ clear"); /*clear*/ /*_.SETQ___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2967:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2972:/ clear"); /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2967:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2972:/ clear"); /*clear*/ /*_#NOT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2967:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2972:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:2963:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:2963:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:2963:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2963:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2963:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:2963:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -32247,18 +32316,18 @@ basilys_trace_start("MEXPAND_COND", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3015:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3015:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3015:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -32267,28 +32336,28 @@ basilys_trace_start("MEXPAND_COND", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3015:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3020:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3016:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3016:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3021:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3021:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3016:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3021:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3016:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3021:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3016:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3021:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3016:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3021:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3016:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3016)?(3016):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3021:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3021)?(3021):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -32298,36 +32367,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3015:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3016:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3021:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3016:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3021:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3016:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3021:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3017:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3017:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3022:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3022:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3017:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3022:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3017:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3022:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3017:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3022:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3017:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3022:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3017:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3017)?(3017):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3022:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3022)?(3022):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -32337,57 +32406,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3015:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3017:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3022:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3017:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3022:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3017:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3022:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3018:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3018:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3023:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3023:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3018:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3023:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3018:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3023:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3018:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3023:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3018:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3023:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3018:/ apply.arg"); - argtab[3].bp_long = 3018; + BASILYS_LOCATION("warmelt-macro.melt:3023:/ apply.arg"); + argtab[3].bp_long = 3023; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3018:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3023:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3018:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3023:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3018:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3023:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3020:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3025:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3021:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3026:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -32395,13 +32464,13 @@ BASILYS_LOCATION("warmelt-macro.melt:3015:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.CONT__V12*/ curfptr[11])));; /*_.PAIR_TAIL__V15*/ curfptr[14] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; - BASILYS_LOCATION("warmelt-macro.melt:3025:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3030:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3025:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3030:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1)); ; - BASILYS_LOCATION("warmelt-macro.melt:3025:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3030:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); @@ -32409,62 +32478,62 @@ BASILYS_LOCATION("warmelt-macro.melt:3015:/ block"); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3022:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3027:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3022:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3027:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.melt:3022:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3027:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15]; /*_.CEXPTUPLE__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_TAIL__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#NBCOND__L4*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.CEXPTUPLE__V18*/ curfptr[17])));; - BASILYS_LOCATION("warmelt-macro.melt:3031:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3036:/ block"); /*block*/{ /*_.LX__V20*/ curfptr[19] = (basilys_multiple_nth((basilys_ptr_t)(/*_.CEXPTUPLE__V18*/ curfptr[17]), (-1)));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3032:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3032:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3037:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3037:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3032:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3037:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3032:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3037:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond lastcexp lx"; - BASILYS_LOCATION("warmelt-macro.melt:3032:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3037:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.melt:3032:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3037:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3032:/ apply.arg"); - argtab[3].bp_long = 3032; + BASILYS_LOCATION("warmelt-macro.melt:3037:/ apply.arg"); + argtab[3].bp_long = 3037; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LX__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3032:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3037:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3032:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3037:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3032:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3037:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V19*/ curfptr[18] = /*_.LX__V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3031:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3036:/ clear"); /*clear*/ /*_.LX__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3031:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3036:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;} ; /*_.LASTCEXP__V23*/ curfptr[21] = /*_.LET___V19*/ curfptr[18];; @@ -32473,56 +32542,56 @@ BASILYS_LOCATION("warmelt-macro.melt:3015:/ block"); /*_.RES__V24*/ curfptr[19] = (/*nil*/NULL);; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3037:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3037:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3042:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3042:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3037:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3042:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3037:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3042:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond cexptuple"; - BASILYS_LOCATION("warmelt-macro.melt:3037:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3042:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.melt:3037:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3042:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3037:/ apply.arg"); - argtab[3].bp_long = 3037; + BASILYS_LOCATION("warmelt-macro.melt:3042:/ apply.arg"); + argtab[3].bp_long = 3042; /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CEXPTUPLE__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V25*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3037:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3042:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3037:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3042:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3037:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3042:/ cppif.else"); /*_.IFCPP___V25*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3038:/ loop"); - /*loop*/{ labloop_CONDLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:3038:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:3043:/ loop"); + /*loop*/{ labloop_CONDLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:3043:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:3038:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3043:/ block"); /*block*/{ /*_#I__L8*/ curfnum[6] = ((/*_#IX__L6*/ curfnum[4]) < (0));; - BASILYS_LOCATION("warmelt-macro.melt:3039:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3044:/ cond"); /*cond*/ if (/*_#I__L8*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3039:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3039:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3044:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3044:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3039:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3044:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3039:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3044:/ compute"); /*_.CONDLOOP__V28*/ curfptr[27] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3039:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:3044:/ exit"); /*exit*/{ goto labexit_CONDLOOP_1;} ;} @@ -32531,59 +32600,59 @@ BASILYS_LOCATION("warmelt-macro.melt:3015:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3040:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3045:/ block"); /*block*/{ /*_.CURCOND__V30*/ curfptr[29] = (basilys_multiple_nth((basilys_ptr_t)(/*_.CEXPTUPLE__V18*/ curfptr[17]), (/*_#IX__L6*/ curfnum[4])));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3041:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3041:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3046:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3046:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3041:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3046:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3041:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3046:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond curcond"; - BASILYS_LOCATION("warmelt-macro.melt:3041:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3046:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.melt:3041:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3046:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3041:/ apply.arg"); - argtab[3].bp_long = 3041; + BASILYS_LOCATION("warmelt-macro.melt:3046:/ apply.arg"); + argtab[3].bp_long = 3046; /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V31*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3041:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3046:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3041:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3046:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3041:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3046:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#NULL__L10*/ curfnum[8] = ((/*_.RES__V24*/ curfptr[19]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3043:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ cond"); /*cond*/ if (/*_#NULL__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3043:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3043:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ block"); /*block*/{ /*_#IS_A__L12*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3043:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3043:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3043:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3046:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3051:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V33*/ curfptr[31] = slot; }; ; @@ -32595,40 +32664,40 @@ BASILYS_LOCATION("warmelt-macro.melt:3015:/ block"); (((/*!konst_7_ELSE*/ curfrout->tabval[7])) == (/*_.PAIR_HEAD__V35*/ curfptr[34]));; /*_#IF___L13*/ curfnum[12] = /*_#__L14*/ curfnum[13];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3043:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V33*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3043:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ clear"); /*clear*/ /*_.LIST_FIRST__V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3043:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ clear"); /*clear*/ /*_.PAIR_HEAD__V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3043:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ clear"); /*clear*/ /*_#__L14*/ curfnum[13] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3043:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3048:/ cond.else"); /*_#IF___L13*/ curfnum[12] = 0;; } ; /*_#IF___L11*/ curfnum[10] = /*_#IF___L13*/ curfnum[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3043:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ clear"); /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3043:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ clear"); /*clear*/ /*_#IF___L13*/ curfnum[12] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3043:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3048:/ cond.else"); /*_#IF___L11*/ curfnum[10] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3043:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ cond"); /*cond*/ if (/*_#IF___L11*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3043:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3043:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3047:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3052:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3048:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3053:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V38*/ curfptr[34] = slot; }; ; @@ -32636,114 +32705,114 @@ BASILYS_LOCATION("warmelt-macro.melt:3015:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.SEXP_CONTENTS__V38*/ curfptr[34])));; /*_.RESTPAIRS__V40*/ curfptr[39] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V39*/ curfptr[38])));; - BASILYS_LOCATION("warmelt-macro.melt:3050:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3055:/ cond"); /*cond*/ if (/*_.RESTPAIRS__V40*/ curfptr[39]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3050:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3050:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3055:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3055:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3052:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3057:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V42*/ curfptr[41] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3051:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3056:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3051:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3056:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOCA_LOCATION__V42*/ curfptr[41]; - BASILYS_LOCATION("warmelt-macro.melt:3051:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3056:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3051:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3056:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.PAIRLIST_TO_PROGN__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.RESTPAIRS__V40*/ curfptr[39]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3051:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3056:/ compute"); /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V44*/ curfptr[43] = /*_.PAIRLIST_TO_PROGN__V43*/ curfptr[42];; /*_.IF___V41*/ curfptr[40] = /*_.SETQ___V44*/ curfptr[43];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3050:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3055:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V42*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3050:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3055:/ clear"); /*clear*/ /*_.PAIRLIST_TO_PROGN__V43*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3050:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3055:/ clear"); /*clear*/ /*_.SETQ___V44*/ curfptr[43] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3050:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3055:/ cond.else"); /*_.IF___V41*/ curfptr[40] = NULL;; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3054:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3054:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3059:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3059:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3054:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3059:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3054:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3059:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond res for :else"; - BASILYS_LOCATION("warmelt-macro.melt:3054:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3059:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.melt:3054:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3059:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3054:/ apply.arg"); - argtab[3].bp_long = 3054; + BASILYS_LOCATION("warmelt-macro.melt:3059:/ apply.arg"); + argtab[3].bp_long = 3059; /*_.DEBUG_MSG_FUN__V46*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V45*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[42];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3054:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3059:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3054:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3059:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3054:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3059:/ cppif.else"); /*_.IFCPP___V45*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V37*/ curfptr[33] = /*_.IFCPP___V45*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3047:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3052:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V38*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3047:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3052:/ clear"); /*clear*/ /*_.LIST_FIRST__V39*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3047:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3052:/ clear"); /*clear*/ /*_.RESTPAIRS__V40*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3047:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3052:/ clear"); /*clear*/ /*_.IF___V41*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3047:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3052:/ clear"); /*clear*/ /*_.IFCPP___V45*/ curfptr[41] = 0 ;} ; /*_.IFELSE___V36*/ curfptr[31] = /*_.LET___V37*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3043:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ clear"); /*clear*/ /*_.LET___V37*/ curfptr[33] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3043:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3048:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3043:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ block"); /*block*/{ /*_#IS_A__L16*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3056:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3061:/ cond"); /*cond*/ if (/*_#IS_A__L16*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3056:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3056:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3061:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3061:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3057:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3062:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3057:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3062:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 2, "SEXP_CONTENTS");/*_.CURCONDCONT__V49*/ curfptr[34] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3058:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3063:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), 1, "LOCA_LOCATION");/*_.CURCONDLOC__V50*/ curfptr[38] = slot; }; ; @@ -32757,582 +32826,582 @@ BASILYS_LOCATION("warmelt-macro.melt:3015:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V53*/ curfptr[41])));; /*_#NULL__L17*/ curfnum[12] = ((/*_.CURCONDRESTPAIRS__V54*/ curfptr[33]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3062:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ cond"); /*cond*/ if (/*_#NULL__L17*/ curfnum[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3062:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3062:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3066:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3071:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3066:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3071:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3066:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3071:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V56*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.CURCONDTEST__V52*/ curfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.MAKE_TUPLE2__V57*/ curfptr[56] = (basilysgc_new_mult2((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.MACROEXPAND_1__V56*/ curfptr[55]), (basilys_ptr_t)(/*_.RES__V24*/ curfptr[19])));; - BASILYS_LOCATION("warmelt-macro.melt:3063:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3068:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3063:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3068:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_OR*/ curfrout->tabval[9])), (2), "CLASS_SRC_OR");/*_.INST__V59*/ curfptr[58] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3063:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3068:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (0), (/*_.CURCONDLOC__V50*/ curfptr[38]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3063:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3068:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (1), (/*_.MAKE_TUPLE2__V57*/ curfptr[56]), "SOR_DISJ"); ; /*_.INST___V58*/ curfptr[57] = /*_.INST__V59*/ curfptr[58];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3063:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3068:/ compute"); /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V60*/ curfptr[59] = /*_.INST___V58*/ curfptr[57];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3068:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3068:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3073:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3073:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[13] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3068:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3073:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3068:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3073:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond res for monoexp cond"; - BASILYS_LOCATION("warmelt-macro.melt:3068:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3073:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[13]; - BASILYS_LOCATION("warmelt-macro.melt:3068:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3073:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3068:/ apply.arg"); - argtab[3].bp_long = 3068; + BASILYS_LOCATION("warmelt-macro.melt:3073:/ apply.arg"); + argtab[3].bp_long = 3073; /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V61*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V62*/ curfptr[61];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3068:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3073:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3068:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3073:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V62*/ curfptr[61] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3068:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3073:/ cppif.else"); /*_.IFCPP___V61*/ curfptr[60] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3062:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ block"); /*block*/{ /*_.PROGN___V63*/ curfptr[61] = /*_.IFCPP___V61*/ curfptr[60];;} ; /*_.IFELSE___V55*/ curfptr[54] = /*_.PROGN___V63*/ curfptr[61];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V56*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ clear"); /*clear*/ /*_.MAKE_TUPLE2__V57*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ clear"); /*clear*/ /*_.INST___V58*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ clear"); /*clear*/ /*_.SETQ___V60*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ clear"); /*clear*/ /*_.IFCPP___V61*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ clear"); /*clear*/ /*_.PROGN___V63*/ curfptr[61] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3062:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3067:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3062:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ block"); /*block*/{ /*_.PAIR_TAIL__V64*/ curfptr[55] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ curfptr[33])));; /*_#NULL__L19*/ curfnum[13] = ((/*_.PAIR_TAIL__V64*/ curfptr[55]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3070:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ cond"); /*cond*/ if (/*_#NULL__L19*/ curfnum[13]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3070:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3070:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3073:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3078:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3073:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3078:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3073:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3078:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V66*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.CURCONDTEST__V52*/ curfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.PAIR_HEAD__V67*/ curfptr[59] = (basilys_pair_head((basilys_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ curfptr[33])));; - BASILYS_LOCATION("warmelt-macro.melt:3074:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3079:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3074:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3079:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3074:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3079:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V68*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.PAIR_HEAD__V67*/ curfptr[59]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3071:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3076:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3071:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3076:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_IFELSE*/ curfrout->tabval[11])), (4), "CLASS_SRC_IFELSE");/*_.INST__V70*/ curfptr[69] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3071:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3076:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V70*/ curfptr[69]))));basilys_putfield_object((/*_.INST__V70*/ curfptr[69]), (0), (/*_.CURCONDLOC__V50*/ curfptr[38]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3071:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3076:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V70*/ curfptr[69]))));basilys_putfield_object((/*_.INST__V70*/ curfptr[69]), (1), (/*_.MACROEXPAND_1__V66*/ curfptr[57]), "SIF_TEST"); ; - BASILYS_LOCATION("warmelt-macro.melt:3071:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3076:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V70*/ curfptr[69]))));basilys_putfield_object((/*_.INST__V70*/ curfptr[69]), (2), (/*_.MACROEXPAND_1__V68*/ curfptr[60]), "SIF_THEN"); ; - BASILYS_LOCATION("warmelt-macro.melt:3071:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3076:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V70*/ curfptr[69])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V70*/ curfptr[69]))));basilys_putfield_object((/*_.INST__V70*/ curfptr[69]), (3), (/*_.RES__V24*/ curfptr[19]), "SIF_ELSE"); ; /*_.INST___V69*/ curfptr[61] = /*_.INST__V70*/ curfptr[69];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3071:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3076:/ compute"); /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V71*/ curfptr[70] = /*_.INST___V69*/ curfptr[61];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3077:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3077:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3082:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3082:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3077:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3082:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3077:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3082:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond res for biexp cond"; - BASILYS_LOCATION("warmelt-macro.melt:3077:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3082:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19]; - BASILYS_LOCATION("warmelt-macro.melt:3077:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3082:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3077:/ apply.arg"); - argtab[3].bp_long = 3077; + BASILYS_LOCATION("warmelt-macro.melt:3082:/ apply.arg"); + argtab[3].bp_long = 3082; /*_.DEBUG_MSG_FUN__V73*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V72*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V73*/ curfptr[72];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3077:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3082:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3077:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3082:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ curfptr[72] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3077:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3082:/ cppif.else"); /*_.IFCPP___V72*/ curfptr[71] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3070:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ block"); /*block*/{ /*_.PROGN___V74*/ curfptr[72] = /*_.IFCPP___V72*/ curfptr[71];;} ; /*_.IFELSE___V65*/ curfptr[56] = /*_.PROGN___V74*/ curfptr[72];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3070:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V66*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3070:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ clear"); /*clear*/ /*_.PAIR_HEAD__V67*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3070:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V68*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3070:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ clear"); /*clear*/ /*_.INST___V69*/ curfptr[61] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3070:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ clear"); /*clear*/ /*_.SETQ___V71*/ curfptr[70] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3070:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ clear"); /*clear*/ /*_.IFCPP___V72*/ curfptr[71] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3070:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ clear"); /*clear*/ /*_.PROGN___V74*/ curfptr[72] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3070:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3075:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3070:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3082:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3087:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3082:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3087:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3082:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3087:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V75*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.CURCONDTEST__V52*/ curfptr[40]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3083:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3088:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3083:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3088:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURCONDLOC__V50*/ curfptr[38]; - BASILYS_LOCATION("warmelt-macro.melt:3083:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3088:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3083:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3088:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.PAIRLIST_TO_PROGN__V76*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.CURCONDRESTPAIRS__V54*/ curfptr[33]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3080:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3085:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3080:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3085:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_IFELSE*/ curfrout->tabval[11])), (4), "CLASS_SRC_IFELSE");/*_.INST__V78*/ curfptr[61] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3080:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3085:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V78*/ curfptr[61])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V78*/ curfptr[61]))));basilys_putfield_object((/*_.INST__V78*/ curfptr[61]), (0), (/*_.CURCONDLOC__V50*/ curfptr[38]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3080:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3085:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V78*/ curfptr[61])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V78*/ curfptr[61]))));basilys_putfield_object((/*_.INST__V78*/ curfptr[61]), (1), (/*_.MACROEXPAND_1__V75*/ curfptr[57]), "SIF_TEST"); ; - BASILYS_LOCATION("warmelt-macro.melt:3080:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3085:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V78*/ curfptr[61])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V78*/ curfptr[61]))));basilys_putfield_object((/*_.INST__V78*/ curfptr[61]), (2), (/*_.PAIRLIST_TO_PROGN__V76*/ curfptr[59]), "SIF_THEN"); ; - BASILYS_LOCATION("warmelt-macro.melt:3080:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3085:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V78*/ curfptr[61])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V78*/ curfptr[61]))));basilys_putfield_object((/*_.INST__V78*/ curfptr[61]), (3), (/*_.RES__V24*/ curfptr[19]), "SIF_ELSE"); ; /*_.INST___V77*/ curfptr[60] = /*_.INST__V78*/ curfptr[61];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3080:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3085:/ compute"); /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V79*/ curfptr[70] = /*_.INST___V77*/ curfptr[60];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3085:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3085:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3090:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3090:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L21*/ curfnum[19] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3085:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3090:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3085:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3090:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond res for manyexp cond"; - BASILYS_LOCATION("warmelt-macro.melt:3085:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3090:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[19]; - BASILYS_LOCATION("warmelt-macro.melt:3085:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3090:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3085:/ apply.arg"); - argtab[3].bp_long = 3085; + BASILYS_LOCATION("warmelt-macro.melt:3090:/ apply.arg"); + argtab[3].bp_long = 3090; /*_.DEBUG_MSG_FUN__V81*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V80*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V81*/ curfptr[72];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3085:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3090:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3085:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3090:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[72] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3085:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3090:/ cppif.else"); /*_.IFCPP___V80*/ curfptr[71] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3079:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3084:/ block"); /*block*/{ /*_.PROGN___V82*/ curfptr[72] = /*_.IFCPP___V80*/ curfptr[71];;} ; /*_.IFELSE___V65*/ curfptr[56] = /*_.PROGN___V82*/ curfptr[72];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3070:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V75*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3070:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ clear"); /*clear*/ /*_.PAIRLIST_TO_PROGN__V76*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3070:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ clear"); /*clear*/ /*_.INST___V77*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3070:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ clear"); /*clear*/ /*_.SETQ___V79*/ curfptr[70] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3070:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ clear"); /*clear*/ /*_.IFCPP___V80*/ curfptr[71] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3070:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3075:/ clear"); /*clear*/ /*_.PROGN___V82*/ curfptr[72] = 0 ;} ; } ; /*_.IFELSE___V55*/ curfptr[54] = /*_.IFELSE___V65*/ curfptr[56];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ clear"); /*clear*/ /*_.PAIR_TAIL__V64*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ clear"); /*clear*/ /*_#NULL__L19*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3067:/ clear"); /*clear*/ /*_.IFELSE___V65*/ curfptr[56] = 0 ;} ; } ; /*_.LET___V48*/ curfptr[42] = /*_.IFELSE___V55*/ curfptr[54];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3057:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); /*clear*/ /*_.CURCONDCONT__V49*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3057:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); /*clear*/ /*_.CURCONDLOC__V50*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3057:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); /*clear*/ /*_.LIST_FIRST__V51*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3057:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); /*clear*/ /*_.CURCONDTEST__V52*/ curfptr[40] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3057:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); /*clear*/ /*_.LIST_FIRST__V53*/ curfptr[41] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3057:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); /*clear*/ /*_.CURCONDRESTPAIRS__V54*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3057:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); /*clear*/ /*_#NULL__L17*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3057:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3062:/ clear"); /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;} ; /*_.IFELSE___V47*/ curfptr[43] = /*_.LET___V48*/ curfptr[42];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3061:/ clear"); /*clear*/ /*_.LET___V48*/ curfptr[42] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3056:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3061:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3056:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3061:/ block"); /*block*/{ /*_.MAKE_TUPLE2__V83*/ curfptr[57] = (basilysgc_new_mult2((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.CURCOND__V30*/ curfptr[29]), (basilys_ptr_t)(/*_.RES__V24*/ curfptr[19])));; - BASILYS_LOCATION("warmelt-macro.melt:3089:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3094:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3089:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3094:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_OR*/ curfrout->tabval[9])), (2), "CLASS_SRC_OR");/*_.INST__V85*/ curfptr[60] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3089:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3094:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V85*/ curfptr[60])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V85*/ curfptr[60]))));basilys_putfield_object((/*_.INST__V85*/ curfptr[60]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3089:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3094:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V85*/ curfptr[60])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V85*/ curfptr[60]))));basilys_putfield_object((/*_.INST__V85*/ curfptr[60]), (1), (/*_.MAKE_TUPLE2__V83*/ curfptr[57]), "SOR_DISJ"); ; /*_.INST___V84*/ curfptr[59] = /*_.INST__V85*/ curfptr[60];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3089:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3094:/ compute"); /*_.RES__V24*/ curfptr[19] = /*_.SETQ___V86*/ curfptr[70] = /*_.INST___V84*/ curfptr[59];; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3092:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3092:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3097:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3097:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3092:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3097:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3092:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3097:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond res for nonsexp cond"; - BASILYS_LOCATION("warmelt-macro.melt:3092:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3097:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[19]; - BASILYS_LOCATION("warmelt-macro.melt:3092:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3097:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3092:/ apply.arg"); - argtab[3].bp_long = 3092; + BASILYS_LOCATION("warmelt-macro.melt:3097:/ apply.arg"); + argtab[3].bp_long = 3097; /*_.DEBUG_MSG_FUN__V88*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V87*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V88*/ curfptr[72];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3092:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3097:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3092:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3097:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ curfptr[72] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3092:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3097:/ cppif.else"); /*_.IFCPP___V87*/ curfptr[71] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3088:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3093:/ block"); /*block*/{ /*_.PROGN___V89*/ curfptr[55] = /*_.IFCPP___V87*/ curfptr[71];;} ; /*_.IFELSE___V47*/ curfptr[43] = /*_.PROGN___V89*/ curfptr[55];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3061:/ clear"); /*clear*/ /*_.MAKE_TUPLE2__V83*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3061:/ clear"); /*clear*/ /*_.INST___V84*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3061:/ clear"); /*clear*/ /*_.SETQ___V86*/ curfptr[70] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3061:/ clear"); /*clear*/ /*_.IFCPP___V87*/ curfptr[71] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3061:/ clear"); /*clear*/ /*_.PROGN___V89*/ curfptr[55] = 0 ;} ; } ; /*_.IFELSE___V36*/ curfptr[31] = /*_.IFELSE___V47*/ curfptr[43];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3043:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ clear"); /*clear*/ /*_#IS_A__L16*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3043:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3048:/ clear"); /*clear*/ /*_.IFELSE___V47*/ curfptr[43] = 0 ;} ; } ; /*_.LET___V29*/ curfptr[28] = /*_.IFELSE___V36*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3045:/ clear"); /*clear*/ /*_.CURCOND__V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3045:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3045:/ clear"); /*clear*/ /*_#NULL__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3045:/ clear"); /*clear*/ /*_#IF___L11*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3040:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3045:/ clear"); /*clear*/ /*_.IFELSE___V36*/ curfptr[31] = 0 ;} ; /*_#I__L23*/ curfnum[13] = ((/*_#IX__L6*/ curfnum[4]) - (1));; - BASILYS_LOCATION("warmelt-macro.melt:3096:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3101:/ compute"); /*_#IX__L6*/ curfnum[4] = /*_#SETQ___L24*/ curfnum[12] = /*_#I__L23*/ curfnum[13];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3038:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3043:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3038:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3043:/ clear"); /*clear*/ /*_.LET___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3038:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3043:/ clear"); /*clear*/ /*_#I__L23*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3038:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3043:/ clear"); /*clear*/ /*_#SETQ___L24*/ curfnum[12] = 0 ;} ; ; goto labloop_CONDLOOP_1; - labexit_CONDLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:3038:/ loopepilog"); + labexit_CONDLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:3043:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V27*/ curfptr[25] = /*_.CONDLOOP__V28*/ curfptr[27];; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3098:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3098:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3103:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3103:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L25*/ curfnum[19] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3098:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3103:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3098:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3103:/ apply.arg"); argtab[0].bp_cstring = "mexpand_cond final res"; - BASILYS_LOCATION("warmelt-macro.melt:3098:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3103:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[19]; - BASILYS_LOCATION("warmelt-macro.melt:3098:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3103:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3098:/ apply.arg"); - argtab[3].bp_long = 3098; + BASILYS_LOCATION("warmelt-macro.melt:3103:/ apply.arg"); + argtab[3].bp_long = 3103; /*_.DEBUG_MSG_FUN__V91*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V24*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V90*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V91*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3098:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3103:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3098:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3103:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V91*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3098:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3103:/ cppif.else"); /*_.IFCPP___V90*/ curfptr[56] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3099:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3104:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V24*/ curfptr[19];; - BASILYS_LOCATION("warmelt-macro.melt:3099:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3104:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V92*/ curfptr[38];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_.CEXPTUPLE__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_#NBCOND__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_.LASTCEXP__V23*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_#IX__L6*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_.RES__V24*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_.FOREVER___V27*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_.IFCPP___V90*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3019:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3024:/ clear"); /*clear*/ /*_.RETURN___V92*/ curfptr[38] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3015:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:3015:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3015:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3015:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3015:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3015:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -33393,39 +33462,39 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3025:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3030:/ getarg"); /*_.C__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3025:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3030:/ block"); /*block*/{ /*_#IS_NOT_A__L1*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.C__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3026:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3031:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3026:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3026:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3031:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3031:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3027:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3032:/ locexp"); basilys_error_str((basilys_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "COND with non-sexpr"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3025:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3030:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.C__V2*/ curfptr[1];; - BASILYS_LOCATION("warmelt-macro.melt:3025:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3030:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3025:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3030:/ clear"); /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;} ; @@ -33486,18 +33555,18 @@ basilys_trace_start("MEXPAND_AND", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3110:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3110:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3110:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -33506,28 +33575,28 @@ basilys_trace_start("MEXPAND_AND", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3110:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3115:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3111:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3111:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3116:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3116:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3111:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3116:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3111:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3116:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3111:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3116:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3111:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3116:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3111:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3111)?(3111):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3116:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3116)?(3116):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -33537,36 +33606,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3110:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3111:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3116:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3111:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3116:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3111:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3116:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3112:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3112:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3117:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3117:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3112:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3117:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3112:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3117:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3112:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3117:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3112:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3117:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3112:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3112)?(3112):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3117:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3117)?(3117):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -33576,57 +33645,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3110:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3112:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3117:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3112:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3117:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3112:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3117:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3113:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3113:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3118:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3118:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3113:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3118:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3113:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3118:/ apply.arg"); argtab[0].bp_cstring = "mexpand_and sexpr:"; - BASILYS_LOCATION("warmelt-macro.melt:3113:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3118:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3113:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3118:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3113:/ apply.arg"); - argtab[3].bp_long = 3113; + BASILYS_LOCATION("warmelt-macro.melt:3118:/ apply.arg"); + argtab[3].bp_long = 3118; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3113:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3118:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3113:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3118:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3113:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3118:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3114:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3119:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3115:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3120:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3116:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3121:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -33634,19 +33703,19 @@ BASILYS_LOCATION("warmelt-macro.melt:3110:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.CONT__V12*/ curfptr[11])));; /*_.CURPAIR__V15*/ curfptr[14] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; - BASILYS_LOCATION("warmelt-macro.melt:3121:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3126:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3121:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3126:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (2)); ; - BASILYS_LOCATION("warmelt-macro.melt:3121:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3126:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; - BASILYS_LOCATION("warmelt-macro.melt:3121:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3126:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); @@ -33654,13 +33723,13 @@ BASILYS_LOCATION("warmelt-macro.melt:3110:/ block"); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3118:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3123:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3118:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3123:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.melt:3118:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3123:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15]; /*_.CXTUP__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -33669,73 +33738,73 @@ BASILYS_LOCATION("warmelt-macro.melt:3110:/ block"); (basilys_multiple_length((basilys_ptr_t)(/*_.CXTUP__V18*/ curfptr[17])));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3125:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3125:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3130:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3130:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3125:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3130:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3125:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3130:/ apply.arg"); argtab[0].bp_cstring = "mexpand_and cxtup"; - BASILYS_LOCATION("warmelt-macro.melt:3125:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3130:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.melt:3125:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3130:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3125:/ apply.arg"); - argtab[3].bp_long = 3125; + BASILYS_LOCATION("warmelt-macro.melt:3130:/ apply.arg"); + argtab[3].bp_long = 3130; /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CXTUP__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V19*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3125:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3130:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3125:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3130:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3125:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3130:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#I__L6*/ curfnum[4] = ((/*_#NBCOMP__L4*/ curfnum[0]) < (1));; - BASILYS_LOCATION("warmelt-macro.melt:3126:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3131:/ cond"); /*cond*/ if (/*_#I__L6*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3126:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3126:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3131:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3131:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3128:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3133:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "AND without sons"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:3129:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3134:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:3129:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3134:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3127:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3132:/ block"); /*block*/{ /*_.PROGN___V23*/ curfptr[22] = /*_.RETURN___V22*/ curfptr[21];;} ; /*_.IFELSE___V21*/ curfptr[19] = /*_.PROGN___V23*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3126:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3131:/ clear"); /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3126:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3131:/ clear"); /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3126:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3131:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3126:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3131:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3130:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3135:/ block"); /*block*/{ /*_#I__L7*/ curfnum[6] = ((/*_#NBCOMP__L4*/ curfnum[0]) - (1));; @@ -33743,24 +33812,24 @@ BASILYS_LOCATION("warmelt-macro.melt:3110:/ block"); (basilys_multiple_nth((basilys_ptr_t)(/*_.CXTUP__V18*/ curfptr[17]), (/*_#I__L7*/ curfnum[6])));; /*_#IX__L8*/ curfnum[7] = ((/*_#NBCOMP__L4*/ curfnum[0]) - (2));; - BASILYS_LOCATION("warmelt-macro.melt:3132:/ loop"); - /*loop*/{ labloop_REVLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:3132:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:3137:/ loop"); + /*loop*/{ labloop_REVLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:3137:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:3132:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3137:/ block"); /*block*/{ /*_#I__L9*/ curfnum[8] = ((/*_#IX__L8*/ curfnum[7]) < (0));; - BASILYS_LOCATION("warmelt-macro.melt:3133:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3138:/ cond"); /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3133:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3133:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3138:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3138:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3133:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3138:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3133:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3138:/ compute"); /*_.REVLOOP__V27*/ curfptr[26] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3133:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:3138:/ exit"); /*exit*/{ goto labexit_REVLOOP_1;} ;} @@ -33769,167 +33838,167 @@ BASILYS_LOCATION("warmelt-macro.melt:3110:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3134:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3139:/ block"); /*block*/{ /*_.CURC__V29*/ curfptr[28] = (basilys_multiple_nth((basilys_ptr_t)(/*_.CXTUP__V18*/ curfptr[17]), (/*_#IX__L8*/ curfnum[7])));; - BASILYS_LOCATION("warmelt-macro.melt:3136:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3141:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3136:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3141:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_IF*/ curfrout->tabval[7])), (3), "CLASS_SRC_IF");/*_.INST__V31*/ curfptr[30] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3136:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3141:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3136:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3141:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.CURC__V29*/ curfptr[28]), "SIF_TEST"); ; - BASILYS_LOCATION("warmelt-macro.melt:3136:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3141:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.RES__V25*/ curfptr[22]), "SIF_THEN"); ; /*_.INST___V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3135:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3140:/ compute"); /*_.RES__V25*/ curfptr[22] = /*_.SETQ___V32*/ curfptr[31] = /*_.INST___V30*/ curfptr[29];; /*_.LET___V28*/ curfptr[27] = /*_.SETQ___V32*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3134:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3139:/ clear"); /*clear*/ /*_.CURC__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3134:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3139:/ clear"); /*clear*/ /*_.INST___V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3134:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3139:/ clear"); /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;} ; /*_#I__L10*/ curfnum[9] = ((/*_#IX__L8*/ curfnum[7]) - (1));; - BASILYS_LOCATION("warmelt-macro.melt:3141:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3146:/ compute"); /*_#IX__L8*/ curfnum[7] = /*_#SETQ___L11*/ curfnum[10] = /*_#I__L10*/ curfnum[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3137:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3137:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3137:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3132:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3137:/ clear"); /*clear*/ /*_#SETQ___L11*/ curfnum[10] = 0 ;} ; ; goto labloop_REVLOOP_1; - labexit_REVLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:3132:/ loopepilog"); + labexit_REVLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:3137:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V26*/ curfptr[25] = /*_.REVLOOP__V27*/ curfptr[26];; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3143:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3143:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3148:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3148:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3143:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3148:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3143:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3148:/ apply.arg"); argtab[0].bp_cstring = "mexpand_and res:"; - BASILYS_LOCATION("warmelt-macro.melt:3143:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3148:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.melt:3143:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3148:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3143:/ apply.arg"); - argtab[3].bp_long = 3143; + BASILYS_LOCATION("warmelt-macro.melt:3148:/ apply.arg"); + argtab[3].bp_long = 3148; /*_.DEBUG_MSG_FUN__V34*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V25*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3143:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3148:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3143:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3148:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3143:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3148:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3144:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3149:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V25*/ curfptr[22];; - BASILYS_LOCATION("warmelt-macro.melt:3144:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3149:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V24*/ curfptr[21] = /*_.RETURN___V35*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3130:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3135:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3130:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3135:/ clear"); /*clear*/ /*_.RES__V25*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3130:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3135:/ clear"); /*clear*/ /*_#IX__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3130:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3135:/ clear"); /*clear*/ /*_.FOREVER___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3130:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3135:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3130:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3135:/ clear"); /*clear*/ /*_.RETURN___V35*/ curfptr[31] = 0 ;} ; /*_.IFELSE___V21*/ curfptr[19] = /*_.LET___V24*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3126:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3131:/ clear"); /*clear*/ /*_.LET___V24*/ curfptr[21] = 0 ;} ; } ; /*_.LET___V11*/ curfptr[9] = /*_.IFELSE___V21*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3114:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3119:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3114:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3119:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3114:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3119:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3114:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3119:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3114:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3119:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3114:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3119:/ clear"); /*clear*/ /*_.CXTUP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3114:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3119:/ clear"); /*clear*/ /*_#NBCOMP__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3114:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3119:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3114:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3119:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3114:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3119:/ clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[19] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3110:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:3110:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3110:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3110:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3110:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3110:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -33990,34 +34059,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3121:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3126:/ getarg"); /*_.C__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3121:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3126:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3121:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3126:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3121:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3126:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.melt:3121:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3126:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]); /*_.MACROEXPAND_1__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.C__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3121:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3126:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:3121:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3126:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3121:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3126:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -34078,18 +34147,18 @@ basilys_trace_start("PATEXPAND_AS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3148:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3148:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3148:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL); @@ -34098,28 +34167,28 @@ basilys_trace_start("PATEXPAND_AS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3148:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3153:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3149:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3149:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3154:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3154:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3149:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3154:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3149:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3154:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3149:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3154:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3149:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3154:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3149:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3149)?(3149):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3154:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3154)?(3154):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -34129,36 +34198,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3148:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3149:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3154:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3149:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3154:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3149:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3154:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3150:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3150:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3155:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3155:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3150:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3155:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3150:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3155:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3150:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3155:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3150:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3155:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3150:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3150)?(3150):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3155:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3155)?(3155):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -34168,36 +34237,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3148:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3150:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3155:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3150:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3155:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3150:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3155:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3151:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3151:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3156:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3156:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_PATTEXPCONTEXT*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:3151:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3156:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3151:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3156:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3151:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3156:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3151:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3156:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3151:/ locexp"); - basilys_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3151)?(3151):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3156:/ locexp"); + basilys_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3156)?(3156):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; @@ -34207,57 +34276,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3148:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3151:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3156:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3151:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3156:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3151:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3156:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3152:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3152:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3157:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3157:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3152:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3157:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3152:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3157:/ apply.arg"); argtab[0].bp_cstring = "patexpand_as sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3152:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3157:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3152:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3157:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3152:/ apply.arg"); - argtab[3].bp_long = 3152; + BASILYS_LOCATION("warmelt-macro.melt:3157:/ apply.arg"); + argtab[3].bp_long = 3157; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3152:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3157:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3152:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3157:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3152:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3157:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3153:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3158:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3154:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3159:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3155:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3160:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; }; ; @@ -34265,55 +34334,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3148:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.CONT__V14*/ curfptr[13])));; /*_.CURPAIR__V17*/ curfptr[16] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V16*/ curfptr[15])));; - BASILYS_LOCATION("warmelt-macro.melt:3157:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3162:/ apply"); /*apply*/{ - union basilysparam_un argtab[2]; + union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3157:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3162:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3157:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3162:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V4*/ curfptr[3]; - /*_.ARGSP__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.melt:3162:/ apply.arg"); + argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V15*/ curfptr[14]; + /*_.ARGSP__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.ARGSP__V18*/ curfptr[17])));; /*_#I__L6*/ curfnum[5] = ((/*_#MULTIPLE_LENGTH__L5*/ curfnum[0]) != (2));; - BASILYS_LOCATION("warmelt-macro.melt:3159:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3164:/ cond"); /*cond*/ if (/*_#I__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3159:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3159:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3164:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3164:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3161:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3166:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "AS pattern expects two arguments: ?patvar subpattern"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:3162:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3167:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:3162:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3167:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3160:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3165:/ block"); /*block*/{ /*_.PROGN___V21*/ curfptr[20] = /*_.RETURN___V20*/ curfptr[19];;} ; /*_.IF___V19*/ curfptr[18] = /*_.PROGN___V21*/ curfptr[20];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3159:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3164:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3159:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3164:/ clear"); /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3159:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3164:/ cond.else"); /*_.IF___V19*/ curfptr[18] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3163:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3168:/ block"); /*block*/{ /*_.ARGVAR__V23*/ curfptr[20] = (basilys_multiple_nth((basilys_ptr_t)(/*_.ARGSP__V18*/ curfptr[17]), (0)));; @@ -34321,94 +34392,94 @@ BASILYS_LOCATION("warmelt-macro.melt:3148:/ block"); (basilys_multiple_nth((basilys_ptr_t)(/*_.ARGSP__V18*/ curfptr[17]), (1)));; /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.ARGVAR__V23*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_SRCPATTERN_JOKERVAR*/ curfrout->tabval[5])));; - BASILYS_LOCATION("warmelt-macro.melt:3166:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3171:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3166:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3166:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3171:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3171:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3168:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3173:/ locexp"); basilys_warning_str(0, (basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "AS pattern with useless joker"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:3169:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3174:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.ARGSUB__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.melt:3169:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3174:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3167:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3172:/ block"); /*block*/{ /*_.PROGN___V27*/ curfptr[26] = /*_.RETURN___V26*/ curfptr[25];;} ; /*_.IF___V25*/ curfptr[24] = /*_.PROGN___V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3166:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3171:/ clear"); /*clear*/ /*_.RETURN___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3166:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3171:/ clear"); /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3166:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3171:/ cond.else"); /*_.IF___V25*/ curfptr[24] = NULL;; } ; /*_#IS_NOT_A__L8*/ curfnum[7] = !basilys_is_instance_of((basilys_ptr_t)(/*_.ARGVAR__V23*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_SRCPATTERN_VARIABLE*/ curfrout->tabval[6])));; - BASILYS_LOCATION("warmelt-macro.melt:3170:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3175:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3170:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3170:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3175:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3175:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3172:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3177:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V15*/ curfptr[14]), ( "AS pattern needs a pattern variable as first argument"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:3173:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3178:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:3173:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3178:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3171:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3176:/ block"); /*block*/{ /*_.PROGN___V30*/ curfptr[29] = /*_.RETURN___V29*/ curfptr[26];;} ; /*_.IF___V28*/ curfptr[25] = /*_.PROGN___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3170:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3175:/ clear"); /*clear*/ /*_.RETURN___V29*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3170:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3175:/ clear"); /*clear*/ /*_.PROGN___V30*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3170:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3175:/ cond.else"); /*_.IF___V28*/ curfptr[25] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3174:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3179:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3175:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3180:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3175:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3180:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_AS*/ curfrout->tabval[7])), (3), "CLASS_SRCPATTERN_AS");/*_.INST__V33*/ curfptr[32] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3175:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3180:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (0), (/*_.LOC__V15*/ curfptr[14]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3175:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3180:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.ARGVAR__V23*/ curfptr[20]), "ASPAT_VARPAT"); ; - BASILYS_LOCATION("warmelt-macro.melt:3175:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3180:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.ARGSUB__V24*/ curfptr[23]), "ASPAT_SUBPAT"); @@ -34417,109 +34488,109 @@ BASILYS_LOCATION("warmelt-macro.melt:3148:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3180:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3180:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3185:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3185:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3180:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3185:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3180:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3185:/ apply.arg"); argtab[0].bp_cstring = "patexpand_as returns res"; - BASILYS_LOCATION("warmelt-macro.melt:3180:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3185:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.melt:3180:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3185:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3180:/ apply.arg"); - argtab[3].bp_long = 3180; + BASILYS_LOCATION("warmelt-macro.melt:3185:/ apply.arg"); + argtab[3].bp_long = 3185; /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RES__V32*/ curfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V34*/ curfptr[33] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3180:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3185:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3180:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3185:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3180:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3185:/ cppif.else"); /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3181:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3186:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V32*/ curfptr[29];; - BASILYS_LOCATION("warmelt-macro.melt:3181:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3186:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V31*/ curfptr[26] = /*_.RETURN___V36*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3174:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3179:/ clear"); /*clear*/ /*_.RES__V32*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3174:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3179:/ clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3174:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3179:/ clear"); /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;} ; /*_.LET___V22*/ curfptr[19] = /*_.LET___V31*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3163:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3168:/ clear"); /*clear*/ /*_.ARGVAR__V23*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3163:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3168:/ clear"); /*clear*/ /*_.ARGSUB__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3163:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3168:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3163:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3168:/ clear"); /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3163:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3168:/ clear"); /*clear*/ /*_#IS_NOT_A__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3163:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3168:/ clear"); /*clear*/ /*_.IF___V28*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3163:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3168:/ clear"); /*clear*/ /*_.LET___V31*/ curfptr[26] = 0 ;} ; /*_.LET___V13*/ curfptr[11] = /*_.LET___V22*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3158:/ clear"); /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3158:/ clear"); /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3158:/ clear"); /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3158:/ clear"); /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3158:/ clear"); /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3158:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3158:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3158:/ clear"); /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3158:/ clear"); /*clear*/ /*_.LET___V22*/ curfptr[19] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3148:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; - BASILYS_LOCATION("warmelt-macro.melt:3148:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3148:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3148:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3148:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3148:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3148:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; @@ -34580,18 +34651,18 @@ basilys_trace_start("MEXPAND_AS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3184:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3189:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3184:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3189:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3184:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3189:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -34600,28 +34671,28 @@ basilys_trace_start("MEXPAND_AS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3184:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3189:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3185:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3185:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3190:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3190:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3185:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3190:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3185:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3190:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3185:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3190:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3185:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3190:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3185:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3185)?(3185):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3190:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3190)?(3190):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -34631,36 +34702,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3184:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3185:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3190:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3185:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3190:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3185:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3190:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3186:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3186:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3191:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3191:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3186:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3191:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3186:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3191:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3186:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3191:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3186:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3191:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3186:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3186)?(3186):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3191:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3191)?(3191):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -34670,90 +34741,90 @@ BASILYS_LOCATION("warmelt-macro.melt:3184:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3186:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3191:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3186:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3191:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3186:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3191:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3187:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3187:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3192:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3192:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3192:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3192:/ apply.arg"); argtab[0].bp_cstring = "mexpand_as sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3192:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3192:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3187:/ apply.arg"); - argtab[3].bp_long = 3187; + BASILYS_LOCATION("warmelt-macro.melt:3192:/ apply.arg"); + argtab[3].bp_long = 3192; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3187:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3192:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3187:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3192:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3187:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3192:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3188:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3193:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3189:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3194:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ curfptr[11] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:3191:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3196:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V12*/ curfptr[11]), ( "AS cannot be macro-expanded in expression context"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:3192:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3197:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:3192:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3197:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V13*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3188:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3193:/ clear"); /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3188:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3193:/ clear"); /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3184:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3189:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:3184:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3189:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3184:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3189:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3184:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3189:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3184:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3189:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3184:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3189:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -34814,18 +34885,18 @@ basilys_trace_start("PATEXPAND_AND", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3199:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3199:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3199:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL); @@ -34834,28 +34905,28 @@ basilys_trace_start("PATEXPAND_AND", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3199:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3204:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3200:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3200:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3205:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3205:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3200:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3205:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3200:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3205:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3200:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3205:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3200:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3205:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3200:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3200)?(3200):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3205:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3205)?(3205):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -34865,36 +34936,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3199:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3200:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3205:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3200:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3205:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3200:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3205:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3201:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3201:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3206:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3206:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3201:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3206:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3201:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3206:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3201:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3206:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3201:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3206:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3201:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3201)?(3201):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3206:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3206)?(3206):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -34904,36 +34975,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3199:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3201:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3206:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3201:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3206:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3201:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3206:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3202:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3202:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3207:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3207:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_PATTEXPCONTEXT*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:3202:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3207:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3202:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3207:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3202:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3207:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3202:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3207:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3202:/ locexp"); - basilys_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3202)?(3202):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3207:/ locexp"); + basilys_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3207)?(3207):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; @@ -34943,57 +35014,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3199:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3202:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3207:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3202:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3207:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3202:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3207:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3203:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3203:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3208:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3208:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3203:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3208:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3203:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3208:/ apply.arg"); argtab[0].bp_cstring = "patexpand_and sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3203:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3208:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3203:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3208:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3203:/ apply.arg"); - argtab[3].bp_long = 3203; + BASILYS_LOCATION("warmelt-macro.melt:3208:/ apply.arg"); + argtab[3].bp_long = 3208; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3203:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3208:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3203:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3208:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3203:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3208:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3204:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3209:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3205:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3210:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3206:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3211:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; }; ; @@ -35001,30 +35072,32 @@ BASILYS_LOCATION("warmelt-macro.melt:3199:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.CONT__V14*/ curfptr[13])));; /*_.CURPAIR__V17*/ curfptr[16] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V16*/ curfptr[15])));; - BASILYS_LOCATION("warmelt-macro.melt:3208:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3213:/ apply"); /*apply*/{ - union basilysparam_un argtab[2]; + union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3208:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3213:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3208:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3213:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V4*/ curfptr[3]; - /*_.ARGSP__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.melt:3213:/ apply.arg"); + argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V15*/ curfptr[14]; + /*_.ARGSP__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3209:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3214:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3209:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3214:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_AND*/ curfrout->tabval[5])), (2), "CLASS_SRCPATTERN_AND");/*_.INST__V20*/ curfptr[19] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3209:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3214:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.LOC__V15*/ curfptr[14]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3209:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3214:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.ARGSP__V18*/ curfptr[17]), "ANDPAT_CONJ"); @@ -35033,81 +35106,81 @@ BASILYS_LOCATION("warmelt-macro.melt:3199:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3213:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3213:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3218:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3218:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3213:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3218:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3213:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3218:/ apply.arg"); argtab[0].bp_cstring = "patexpand_and res"; - BASILYS_LOCATION("warmelt-macro.melt:3213:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3218:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3213:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3218:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3213:/ apply.arg"); - argtab[3].bp_long = 3213; + BASILYS_LOCATION("warmelt-macro.melt:3218:/ apply.arg"); + argtab[3].bp_long = 3218; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3213:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3218:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3213:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3218:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3213:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3218:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3214:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3219:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];; - BASILYS_LOCATION("warmelt-macro.melt:3214:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3219:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V23*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3204:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3209:/ clear"); /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3204:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3209:/ clear"); /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3204:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3209:/ clear"); /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3204:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3209:/ clear"); /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3204:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3209:/ clear"); /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3204:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3209:/ clear"); /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3204:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3209:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3204:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3209:/ clear"); /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3199:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; - BASILYS_LOCATION("warmelt-macro.melt:3199:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3199:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3199:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3199:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3199:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3199:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; @@ -35168,18 +35241,18 @@ basilys_trace_start("MEXPAND_OR", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3222:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3222:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3222:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -35188,62 +35261,62 @@ basilys_trace_start("MEXPAND_OR", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3222:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3227:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3223:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3223:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3228:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3228:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3223:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3228:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3223:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3228:/ apply.arg"); argtab[0].bp_cstring = "mexpand_or sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3223:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3228:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3223:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3228:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3223:/ apply.arg"); - argtab[3].bp_long = 3223; + BASILYS_LOCATION("warmelt-macro.melt:3228:/ apply.arg"); + argtab[3].bp_long = 3228; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3223:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3228:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3223:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3228:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3223:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3228:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3224:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3224:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3229:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3229:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3224:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3229:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3224:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3229:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3224:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3229:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3224:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3229:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3224:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3224)?(3224):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3229:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3229)?(3229):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -35253,36 +35326,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3222:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3224:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3229:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3224:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3229:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3224:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3229:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3225:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3225:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3230:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3230:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:3225:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3230:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3225:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3230:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3225:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3230:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3225:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3230:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3225:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3225)?(3225):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3230:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3230)?(3230):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; @@ -35292,23 +35365,23 @@ BASILYS_LOCATION("warmelt-macro.melt:3222:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3225:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3230:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3225:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3230:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3225:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3230:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3226:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3231:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3227:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3232:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3228:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3233:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -35316,19 +35389,19 @@ BASILYS_LOCATION("warmelt-macro.melt:3222:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.CONT__V12*/ curfptr[11])));; /*_.PAIR_TAIL__V15*/ curfptr[14] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; - BASILYS_LOCATION("warmelt-macro.melt:3232:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3237:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3232:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3237:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (2)); ; - BASILYS_LOCATION("warmelt-macro.melt:3232:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3237:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; - BASILYS_LOCATION("warmelt-macro.melt:3232:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3237:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); @@ -35336,13 +35409,13 @@ BASILYS_LOCATION("warmelt-macro.melt:3222:/ block"); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3229:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3234:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3229:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3234:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.melt:3229:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3234:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15]; /*_.CXTUP__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_TAIL__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -35351,57 +35424,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3222:/ block"); (basilys_multiple_length((basilys_ptr_t)(/*_.CXTUP__V18*/ curfptr[17])));; /*_#I__L5*/ curfnum[4] = ((/*_#NBCOMP__L4*/ curfnum[0]) < (1));; - BASILYS_LOCATION("warmelt-macro.melt:3236:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3241:/ cond"); /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3236:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3236:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3241:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3241:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3238:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3243:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "OR without sons"), (basilys_ptr_t)0);} ; /*_.THE_NULL__V20*/ curfptr[19] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3239:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3244:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V20*/ curfptr[19];; - BASILYS_LOCATION("warmelt-macro.melt:3239:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3244:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3237:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3242:/ block"); /*block*/{ /*_.PROGN___V22*/ curfptr[21] = /*_.RETURN___V21*/ curfptr[20];;} ; /*_.IFELSE___V19*/ curfptr[18] = /*_.PROGN___V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3236:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3241:/ clear"); /*clear*/ /*_.THE_NULL__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3236:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3241:/ clear"); /*clear*/ /*_.RETURN___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3236:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3241:/ clear"); /*clear*/ /*_.PROGN___V22*/ curfptr[21] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3236:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3241:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3236:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3241:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3240:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3245:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3241:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3246:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3241:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3246:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_OR*/ curfrout->tabval[7])), (2), "CLASS_SRC_OR");/*_.INST__V25*/ curfptr[21] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3241:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3246:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[21])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[21]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[21]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3241:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3246:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[21])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[21]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[21]), (1), (/*_.CXTUP__V18*/ curfptr[17]), "SOR_DISJ"); @@ -35410,97 +35483,97 @@ BASILYS_LOCATION("warmelt-macro.melt:3222:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3244:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3244:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3249:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3249:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3244:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3249:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3244:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3249:/ apply.arg"); argtab[0].bp_cstring = "mexpand_or res"; - BASILYS_LOCATION("warmelt-macro.melt:3244:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3249:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; - BASILYS_LOCATION("warmelt-macro.melt:3244:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3249:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3244:/ apply.arg"); - argtab[3].bp_long = 3244; + BASILYS_LOCATION("warmelt-macro.melt:3249:/ apply.arg"); + argtab[3].bp_long = 3249; /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.RES__V24*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3244:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3249:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3244:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3249:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3244:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3249:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3245:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3250:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V24*/ curfptr[20];; - BASILYS_LOCATION("warmelt-macro.melt:3245:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3250:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V23*/ curfptr[19] = /*_.RETURN___V28*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3240:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3245:/ clear"); /*clear*/ /*_.RES__V24*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3240:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3245:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3240:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3245:/ clear"); /*clear*/ /*_.RETURN___V28*/ curfptr[26] = 0 ;} ; /*_.IFELSE___V19*/ curfptr[18] = /*_.LET___V23*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3236:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3241:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[19] = 0 ;} ; } ; /*_.LET___V11*/ curfptr[9] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3226:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3231:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3226:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3231:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3226:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3231:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3226:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3231:/ clear"); /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3226:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3231:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3226:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3231:/ clear"); /*clear*/ /*_.CXTUP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3226:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3231:/ clear"); /*clear*/ /*_#NBCOMP__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3226:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3231:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3226:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3231:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3222:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:3222:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3222:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3222:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3222:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3222:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -35561,34 +35634,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3232:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3237:/ getarg"); /*_.C__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3232:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3237:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3232:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3237:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3232:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3237:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.melt:3232:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3237:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]); /*_.MACROEXPAND_1__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.C__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3232:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3237:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:3232:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3237:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3232:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3237:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -35649,18 +35722,18 @@ basilys_trace_start("PATEXPAND_OR", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3249:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3249:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3249:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.PCTX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3])) != NULL); @@ -35669,28 +35742,28 @@ basilys_trace_start("PATEXPAND_OR", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3249:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3254:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3250:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3250:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3255:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3255:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3250:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3255:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3250:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3255:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3250:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3255:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3250:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3255:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3250:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3250)?(3250):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3255:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3255)?(3255):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -35700,36 +35773,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3249:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3250:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3255:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3250:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3255:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3250:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3255:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3251:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3251:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3256:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3256:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3251:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3256:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3251:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3256:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3251:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3256:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3251:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3256:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3251:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3251)?(3251):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3256:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3256)?(3256):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -35739,36 +35812,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3249:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3251:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3256:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3251:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3256:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3251:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3256:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3252:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3252:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3257:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3257:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PCTX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_PATTEXPCONTEXT*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:3252:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3257:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3252:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3257:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3252:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3257:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3252:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3257:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3252:/ locexp"); - basilys_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3252)?(3252):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3257:/ locexp"); + basilys_assert_failed(( "check pctx"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3257)?(3257):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; @@ -35778,57 +35851,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3249:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3252:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3257:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3252:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3257:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3252:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3257:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3253:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3253:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3258:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3258:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3253:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3258:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3253:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3258:/ apply.arg"); argtab[0].bp_cstring = "patexpand_or sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3253:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3258:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3253:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3258:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3253:/ apply.arg"); - argtab[3].bp_long = 3253; + BASILYS_LOCATION("warmelt-macro.melt:3258:/ apply.arg"); + argtab[3].bp_long = 3258; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3258:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3253:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3258:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3253:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3258:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3254:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3259:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3255:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3260:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V14*/ curfptr[13] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3256:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3261:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V15*/ curfptr[14] = slot; }; ; @@ -35836,30 +35909,32 @@ BASILYS_LOCATION("warmelt-macro.melt:3249:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.CONT__V14*/ curfptr[13])));; /*_.CURPAIR__V17*/ curfptr[16] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V16*/ curfptr[15])));; - BASILYS_LOCATION("warmelt-macro.melt:3258:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3263:/ apply"); /*apply*/{ - union basilysparam_un argtab[2]; + union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3263:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3263:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.PCTX__V4*/ curfptr[3]; - /*_.ARGSP__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.melt:3263:/ apply.arg"); + argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.LOC__V15*/ curfptr[14]; + /*_.ARGSP__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3259:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3264:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3259:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3264:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRCPATTERN_OR*/ curfrout->tabval[5])), (2), "CLASS_SRCPATTERN_OR");/*_.INST__V20*/ curfptr[19] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3259:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3264:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.LOC__V15*/ curfptr[14]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3259:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3264:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.ARGSP__V18*/ curfptr[17]), "ORPAT_DISJ"); @@ -35868,81 +35943,81 @@ BASILYS_LOCATION("warmelt-macro.melt:3249:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3263:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3263:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3268:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3268:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3263:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3268:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3263:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3268:/ apply.arg"); argtab[0].bp_cstring = "patexpand_or res"; - BASILYS_LOCATION("warmelt-macro.melt:3263:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3268:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3263:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3268:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3263:/ apply.arg"); - argtab[3].bp_long = 3263; + BASILYS_LOCATION("warmelt-macro.melt:3268:/ apply.arg"); + argtab[3].bp_long = 3268; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3263:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3268:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3263:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3268:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3263:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3268:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3264:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3269:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];; - BASILYS_LOCATION("warmelt-macro.melt:3264:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3269:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V13*/ curfptr[11] = /*_.RETURN___V23*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3254:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3259:/ clear"); /*clear*/ /*_.CONT__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3254:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3259:/ clear"); /*clear*/ /*_.LOC__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3254:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3259:/ clear"); /*clear*/ /*_.LIST_FIRST__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3254:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3259:/ clear"); /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3254:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3259:/ clear"); /*clear*/ /*_.ARGSP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3254:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3259:/ clear"); /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3254:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3259:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3254:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3259:/ clear"); /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3249:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V13*/ curfptr[11];; - BASILYS_LOCATION("warmelt-macro.melt:3249:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3249:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ clear"); /*clear*/ /*_.LET___V13*/ curfptr[11] = 0 ;} ; @@ -36003,18 +36078,18 @@ basilys_trace_start("MEXPAND_MATCH", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3272:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3272:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3272:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -36023,28 +36098,28 @@ basilys_trace_start("MEXPAND_MATCH", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3277:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3273:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3273:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3278:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3278:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3273:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3278:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3273:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3278:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3273:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3278:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3273:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3278:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3273:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3273)?(3273):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3278:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3278)?(3278):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -36054,36 +36129,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3273:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3278:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3273:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3278:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3273:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3278:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3274:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3274:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3279:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3279:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3274:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3279:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3274:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3279:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3274:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3279:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3274:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3279:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3274:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3274)?(3274):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3279:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3279)?(3279):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -36093,57 +36168,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3274:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3279:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3274:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3279:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3274:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3279:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3275:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3275:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3280:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3280:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3275:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3280:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3275:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3280:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3275:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3280:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3275:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3280:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3275:/ apply.arg"); - argtab[3].bp_long = 3275; + BASILYS_LOCATION("warmelt-macro.melt:3280:/ apply.arg"); + argtab[3].bp_long = 3280; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3275:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3280:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3275:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3280:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3275:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3280:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3277:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3282:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3278:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3283:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -36153,13 +36228,13 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; /*_.MSEXP__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.PAIR_TAIL__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3280:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3285:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3280:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3285:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3280:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3285:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MATSX__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.MSEXP__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -36170,13 +36245,13 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V18*/ curfptr[17])));; /*_.PAIR_TAIL__V20*/ curfptr[19] = (basilys_pair_tail((basilys_ptr_t)(/*_.PAIR_TAIL__V19*/ curfptr[18])));; - BASILYS_LOCATION("warmelt-macro.melt:3284:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3289:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3284:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3289:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[21] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1)); ; - BASILYS_LOCATION("warmelt-macro.melt:3284:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3289:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21]))); @@ -36184,62 +36259,62 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); ; /*_.LAMBDA___V21*/ curfptr[20] = /*_.LAMBDA___V22*/ curfptr[21];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3281:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3286:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3281:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3286:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]); - BASILYS_LOCATION("warmelt-macro.melt:3281:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3286:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[20]; /*_.MEXPTUPLE__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.PAIR_TAIL__V20*/ curfptr[19]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#NBMATCH__L4*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.MEXPTUPLE__V23*/ curfptr[22])));; - BASILYS_LOCATION("warmelt-macro.melt:3290:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3295:/ block"); /*block*/{ /*_.LX__V25*/ curfptr[24] = (basilys_multiple_nth((basilys_ptr_t)(/*_.MEXPTUPLE__V23*/ curfptr[22]), (-1)));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3291:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3291:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3296:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3296:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3291:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3296:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3291:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3296:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match lastmexp lx"; - BASILYS_LOCATION("warmelt-macro.melt:3291:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3296:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.melt:3291:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3296:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3291:/ apply.arg"); - argtab[3].bp_long = 3291; + BASILYS_LOCATION("warmelt-macro.melt:3296:/ apply.arg"); + argtab[3].bp_long = 3296; /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LX__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3291:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3296:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3291:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3296:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3291:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3296:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V24*/ curfptr[23] = /*_.LX__V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3290:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3295:/ clear"); /*clear*/ /*_.LX__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3290:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3295:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;} ; /*_.LASTMEXP__V28*/ curfptr[26] = /*_.LET___V24*/ curfptr[23];; @@ -36249,56 +36324,56 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3296:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3296:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3301:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3301:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3296:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3301:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3296:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3301:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match mexptuple"; - BASILYS_LOCATION("warmelt-macro.melt:3296:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3301:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.melt:3296:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3301:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3296:/ apply.arg"); - argtab[3].bp_long = 3296; + BASILYS_LOCATION("warmelt-macro.melt:3301:/ apply.arg"); + argtab[3].bp_long = 3301; /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.MEXPTUPLE__V23*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V30*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3296:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3301:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3296:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3301:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3296:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3301:/ cppif.else"); /*_.IFCPP___V30*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3297:/ loop"); - /*loop*/{ labloop_MATCHLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:3297:/ loopbody"); + BASILYS_LOCATION("warmelt-macro.melt:3302:/ loop"); + /*loop*/{ labloop_MATCHLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:3302:/ loopbody"); - BASILYS_LOCATION("warmelt-macro.melt:3297:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3302:/ block"); /*block*/{ /*_#I__L8*/ curfnum[6] = ((/*_#IX__L6*/ curfnum[4]) < (0));; - BASILYS_LOCATION("warmelt-macro.melt:3298:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3303:/ cond"); /*cond*/ if (/*_#I__L8*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3298:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3298:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3303:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3303:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3298:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3303:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3298:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3303:/ compute"); /*_.MATCHLOOP__V33*/ curfptr[32] = NULL;; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3298:/ exit"); + BASILYS_LOCATION("warmelt-macro.melt:3303:/ exit"); /*exit*/{ goto labexit_MATCHLOOP_1;} ;} @@ -36307,52 +36382,52 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3299:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3304:/ block"); /*block*/{ /*_.CURMATCH__V34*/ curfptr[33] = (basilys_multiple_nth((basilys_ptr_t)(/*_.MEXPTUPLE__V23*/ curfptr[22]), (/*_#IX__L6*/ curfnum[4])));; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3300:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3300:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3305:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3305:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3300:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3305:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3300:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3305:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match curmatch"; - BASILYS_LOCATION("warmelt-macro.melt:3300:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3305:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.melt:3300:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3305:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3300:/ apply.arg"); - argtab[3].bp_long = 3300; + BASILYS_LOCATION("warmelt-macro.melt:3305:/ apply.arg"); + argtab[3].bp_long = 3305; /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V35*/ curfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3300:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3305:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3300:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3305:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3300:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3305:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L10*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3303:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3308:/ cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3303:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3303:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3308:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3308:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3306:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3311:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V37*/ curfptr[35] = slot; }; ; @@ -36364,28 +36439,28 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); (((/*!konst_9_WHEN*/ curfrout->tabval[9])) == (/*_.PAIR_HEAD__V39*/ curfptr[38]));; /*_#IF___L11*/ curfnum[10] = /*_#__L12*/ curfnum[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3303:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3308:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V37*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3303:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3308:/ clear"); /*clear*/ /*_.LIST_FIRST__V38*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3303:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3308:/ clear"); /*clear*/ /*_.PAIR_HEAD__V39*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3303:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3308:/ clear"); /*clear*/ /*_#__L12*/ curfnum[11] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3303:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3308:/ cond.else"); /*_#IF___L11*/ curfnum[10] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3303:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3308:/ cond"); /*cond*/ if (/*_#IF___L11*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3303:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3303:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3308:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3308:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3307:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3308:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3313:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V40*/ curfptr[35] = slot; }; ; @@ -36393,134 +36468,136 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.SEXP_CONTENTS__V40*/ curfptr[35])));; /*_.CURPAIR__V42*/ curfptr[38] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V41*/ curfptr[37])));; - BASILYS_LOCATION("warmelt-macro.melt:3309:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3314:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), 1, "LOCA_LOCATION");/*_.CURMATCHLOC__V43*/ curfptr[42] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3310:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3315:/ block"); /*block*/{ /*_.SW__V45*/ curfptr[44] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V42*/ curfptr[38])));; /*_.PAIR_TAIL__V46*/ curfptr[45] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V42*/ curfptr[38])));; - BASILYS_LOCATION("warmelt-macro.melt:3310:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3315:/ compute"); /*_.CURPAIR__V42*/ curfptr[38] = /*_.SETQ___V47*/ curfptr[46] = /*_.PAIR_TAIL__V46*/ curfptr[45];; /*_.LET___V44*/ curfptr[43] = /*_.SW__V45*/ curfptr[44];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3310:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3315:/ clear"); /*clear*/ /*_.SW__V45*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3310:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3315:/ clear"); /*clear*/ /*_.PAIR_TAIL__V46*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3310:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3315:/ clear"); /*clear*/ /*_.SETQ___V47*/ curfptr[46] = 0 ;} ; /*_.SWHENPAT__V48*/ curfptr[44] = /*_.LET___V44*/ curfptr[43];; - BASILYS_LOCATION("warmelt-macro.melt:3311:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3316:/ block"); /*block*/{ /*_.SC__V50*/ curfptr[46] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V42*/ curfptr[38])));; /*_.PAIR_TAIL__V51*/ curfptr[50] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V42*/ curfptr[38])));; - BASILYS_LOCATION("warmelt-macro.melt:3311:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3316:/ compute"); /*_.CURPAIR__V42*/ curfptr[38] = /*_.SETQ___V52*/ curfptr[51] = /*_.PAIR_TAIL__V51*/ curfptr[50];; /*_.LET___V49*/ curfptr[45] = /*_.SC__V50*/ curfptr[46];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3311:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3316:/ clear"); /*clear*/ /*_.SC__V50*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3311:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3316:/ clear"); /*clear*/ /*_.PAIR_TAIL__V51*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3311:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3316:/ clear"); /*clear*/ /*_.SETQ___V52*/ curfptr[51] = 0 ;} ; /*_.SWHENCOND__V53*/ curfptr[46] = /*_.LET___V49*/ curfptr[45];; - BASILYS_LOCATION("warmelt-macro.melt:3312:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3317:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3312:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3317:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3312:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3317:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.WHENCONDX__V54*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SWHENCOND__V53*/ curfptr[46]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3314:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3319:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V55*/ curfptr[51] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3313:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3318:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3313:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3318:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOCA_LOCATION__V55*/ curfptr[51]; - BASILYS_LOCATION("warmelt-macro.melt:3313:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3318:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3313:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3318:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.WHENBODY__V56*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.CURPAIR__V42*/ curfptr[38]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.MAKE_MAPOBJECT__V57*/ curfptr[56] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[13])), (13)));; - BASILYS_LOCATION("warmelt-macro.melt:3316:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3321:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3316:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3321:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_PATTEXPCONTEXT*/ curfrout->tabval[11])), (3), "CLASS_PATTEXPCONTEXT");/*_.INST__V59*/ curfptr[58] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3316:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3321:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (0), (/*_.MEXPANDER__V4*/ curfptr[3]), "PCTX_MEXPANDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:3316:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3321:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (1), ((/*!PATTERNEXPAND_1*/ curfrout->tabval[12])), "PCTX_PEXPANDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:3316:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3321:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (2), (/*_.MAKE_MAPOBJECT__V57*/ curfptr[56]), "PCTX_VARMAP"); ; /*_.CURPATCTX__V58*/ curfptr[57] = /*_.INST__V59*/ curfptr[58];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3320:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3325:/ apply"); /*apply*/{ - union basilysparam_un argtab[2]; + union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3320:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3325:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3320:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3325:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURPATCTX__V58*/ curfptr[57]; - /*_.CURPAT__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.SWHENPAT__V48*/ curfptr[44]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.melt:3325:/ apply.arg"); + argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CURMATCH__V34*/ curfptr[33]; + /*_.CURPAT__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.SWHENPAT__V48*/ curfptr[44]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3321:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3326:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3321:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3326:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_CASEWHENMATCH*/ curfrout->tabval[14])), (4), "CLASS_SRC_CASEWHENMATCH");/*_.INST__V62*/ curfptr[61] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3321:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3326:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V62*/ curfptr[61]))));basilys_putfield_object((/*_.INST__V62*/ curfptr[61]), (0), (/*_.CURMATCHLOC__V43*/ curfptr[42]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3321:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3326:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V62*/ curfptr[61]))));basilys_putfield_object((/*_.INST__V62*/ curfptr[61]), (1), (/*_.CURPAT__V60*/ curfptr[59]), "SCAM_PATT"); ; - BASILYS_LOCATION("warmelt-macro.melt:3321:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3326:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V62*/ curfptr[61]))));basilys_putfield_object((/*_.INST__V62*/ curfptr[61]), (3), (/*_.WHENCONDX__V54*/ curfptr[50]), "SCWM_WHEN"); ; - BASILYS_LOCATION("warmelt-macro.melt:3321:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3326:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V62*/ curfptr[61])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V62*/ curfptr[61]))));basilys_putfield_object((/*_.INST__V62*/ curfptr[61]), (2), (/*_.WHENBODY__V56*/ curfptr[55]), "SCAM_BODY"); @@ -36529,97 +36606,97 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3327:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3327:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3332:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3332:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3327:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3332:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3327:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3332:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match when curcase"; - BASILYS_LOCATION("warmelt-macro.melt:3327:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3332:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11]; - BASILYS_LOCATION("warmelt-macro.melt:3327:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3332:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3327:/ apply.arg"); - argtab[3].bp_long = 3327; + BASILYS_LOCATION("warmelt-macro.melt:3332:/ apply.arg"); + argtab[3].bp_long = 3332; /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CURCASE__V61*/ curfptr[60]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V63*/ curfptr[62] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[63];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3327:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3332:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3327:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3332:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3327:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3332:/ cppif.else"); /*_.IFCPP___V63*/ curfptr[62] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { - BASILYS_LOCATION("warmelt-macro.melt:3328:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3333:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.CASELIST__V29*/ curfptr[24]), (basilys_ptr_t)(/*_.CURCASE__V61*/ curfptr[60]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V40*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.LIST_FIRST__V41*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.CURPAIR__V42*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.CURMATCHLOC__V43*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.LET___V44*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.SWHENPAT__V48*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.LET___V49*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.SWHENCOND__V53*/ curfptr[46] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.WHENCONDX__V54*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V55*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.WHENBODY__V56*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V57*/ curfptr[56] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.CURPATCTX__V58*/ curfptr[57] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.CURPAT__V60*/ curfptr[59] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.CURCASE__V61*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3307:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3312:/ clear"); /*clear*/ /*_.IFCPP___V63*/ curfptr[62] = 0 ;} ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3303:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3308:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3303:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3308:/ block"); /*block*/{ /*_#IS_A__L14*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3332:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3337:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3332:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3332:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3337:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3337:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3333:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3333:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), 2, "SEXP_CONTENTS");/*_.CURMATCHCONT__V65*/ curfptr[63] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3334:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3339:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURMATCH__V34*/ curfptr[33]), 1, "LOCA_LOCATION");/*_.CURMATCHLOC__V66*/ curfptr[35] = slot; }; ; @@ -36633,70 +36710,72 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V69*/ curfptr[42])));; /*_.MAKE_MAPOBJECT__V71*/ curfptr[44] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[13])), (13)));; - BASILYS_LOCATION("warmelt-macro.melt:3337:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3342:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3337:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3342:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_PATTEXPCONTEXT*/ curfrout->tabval[11])), (3), "CLASS_PATTEXPCONTEXT");/*_.INST__V73*/ curfptr[46] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3337:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3342:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V73*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V73*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V73*/ curfptr[46]), (0), (/*_.MEXPANDER__V4*/ curfptr[3]), "PCTX_MEXPANDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:3337:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3342:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V73*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V73*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V73*/ curfptr[46]), (1), ((/*!PATTERNEXPAND_1*/ curfrout->tabval[12])), "PCTX_PEXPANDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:3337:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3342:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V73*/ curfptr[46])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V73*/ curfptr[46]))));basilys_putfield_object((/*_.INST__V73*/ curfptr[46]), (2), (/*_.MAKE_MAPOBJECT__V71*/ curfptr[44]), "PCTX_VARMAP"); ; /*_.CURPATCTX__V72*/ curfptr[45] = /*_.INST__V73*/ curfptr[46];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3341:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3346:/ apply"); /*apply*/{ - union basilysparam_un argtab[2]; + union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3341:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3346:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3341:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3346:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CURPATCTX__V72*/ curfptr[45]; - /*_.CURPAT__V74*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.CURMATCHPATX__V68*/ curfptr[38]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); + BASILYS_LOCATION("warmelt-macro.melt:3346:/ apply.arg"); + argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CURMATCHLOC__V66*/ curfptr[35]; + /*_.CURPAT__V74*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!PATTERNEXPAND_1*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.CURMATCHPATX__V68*/ curfptr[38]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3342:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3347:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3342:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3347:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3342:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3347:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.CURBODY__V75*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)((/*!EXPAND_PAIRLIST_AS_TUPLE*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.CURMATCHRESTPAIRS__V70*/ curfptr[43]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3343:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3348:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3343:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3348:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_CASEMATCH*/ curfrout->tabval[15])), (3), "CLASS_SRC_CASEMATCH");/*_.INST__V77*/ curfptr[56] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3343:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3348:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[56])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[56]), (0), (/*_.CURMATCHLOC__V66*/ curfptr[35]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3343:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3348:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[56])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[56]), (1), (/*_.CURPAT__V74*/ curfptr[50]), "SCAM_PATT"); ; - BASILYS_LOCATION("warmelt-macro.melt:3343:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3348:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[56])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[56]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[56]), (2), (/*_.CURBODY__V75*/ curfptr[51]), "SCAM_BODY"); @@ -36705,81 +36784,81 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3348:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3348:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3353:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3353:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3348:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3353:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3348:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3353:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match curcase"; - BASILYS_LOCATION("warmelt-macro.melt:3348:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3353:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[14]; - BASILYS_LOCATION("warmelt-macro.melt:3348:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3353:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3348:/ apply.arg"); - argtab[3].bp_long = 3348; + BASILYS_LOCATION("warmelt-macro.melt:3353:/ apply.arg"); + argtab[3].bp_long = 3353; /*_.DEBUG_MSG_FUN__V79*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CURCASE__V76*/ curfptr[55]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V78*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V79*/ curfptr[59];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3348:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3353:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3348:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3353:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V79*/ curfptr[59] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3348:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3353:/ cppif.else"); /*_.IFCPP___V78*/ curfptr[57] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { - BASILYS_LOCATION("warmelt-macro.melt:3349:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3354:/ locexp"); basilysgc_prepend_list((basilys_ptr_t)(/*_.CASELIST__V29*/ curfptr[24]), (basilys_ptr_t)(/*_.CURCASE__V76*/ curfptr[55]));} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3333:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ clear"); /*clear*/ /*_.CURMATCHCONT__V65*/ curfptr[63] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3333:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ clear"); /*clear*/ /*_.CURMATCHLOC__V66*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3333:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ clear"); /*clear*/ /*_.LIST_FIRST__V67*/ curfptr[37] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3333:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ clear"); /*clear*/ /*_.CURMATCHPATX__V68*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3333:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ clear"); /*clear*/ /*_.LIST_FIRST__V69*/ curfptr[42] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3333:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ clear"); /*clear*/ /*_.CURMATCHRESTPAIRS__V70*/ curfptr[43] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3333:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V71*/ curfptr[44] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3333:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ clear"); /*clear*/ /*_.CURPATCTX__V72*/ curfptr[45] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3333:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ clear"); /*clear*/ /*_.CURPAT__V74*/ curfptr[50] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3333:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ clear"); /*clear*/ /*_.CURBODY__V75*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3333:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ clear"); /*clear*/ /*_.CURCASE__V76*/ curfptr[55] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3333:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3338:/ clear"); /*clear*/ /*_.IFCPP___V78*/ curfptr[57] = 0 ;} ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3332:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3337:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3332:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3337:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3353:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3358:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(MATCH <expr> <match-case>...) with non sexpr matchcase"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:3352:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3357:/ block"); /*block*/{} ; /*epilog*/} @@ -36787,103 +36866,103 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3303:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3308:/ clear"); /*clear*/ /*_#IS_A__L14*/ curfnum[11] = 0 ;} ; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3299:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3304:/ clear"); /*clear*/ /*_.CURMATCH__V34*/ curfptr[33] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3299:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3304:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3299:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3304:/ clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3299:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3304:/ clear"); /*clear*/ /*_#IF___L11*/ curfnum[10] = 0 ;} ; /*_#I__L16*/ curfnum[14] = ((/*_#IX__L6*/ curfnum[4]) - (1));; - BASILYS_LOCATION("warmelt-macro.melt:3355:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3360:/ compute"); /*_#IX__L6*/ curfnum[4] = /*_#SETQ___L17*/ curfnum[11] = /*_#I__L16*/ curfnum[14];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3297:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3302:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3297:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3302:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3297:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3302:/ clear"); /*clear*/ /*_#SETQ___L17*/ curfnum[11] = 0 ;} ; ; goto labloop_MATCHLOOP_1; - labexit_MATCHLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:3297:/ loopepilog"); + labexit_MATCHLOOP_1:;BASILYS_LOCATION("warmelt-macro.melt:3302:/ loopepilog"); /*loopepilog*/ /*_.FOREVER___V32*/ curfptr[30] = /*_.MATCHLOOP__V33*/ curfptr[32];; } ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3356:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3356:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3361:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3361:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3356:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3361:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3356:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3361:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match caselist"; - BASILYS_LOCATION("warmelt-macro.melt:3356:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3361:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.melt:3356:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3361:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3356:/ apply.arg"); - argtab[3].bp_long = 3356; + BASILYS_LOCATION("warmelt-macro.melt:3361:/ apply.arg"); + argtab[3].bp_long = 3361; /*_.DEBUG_MSG_FUN__V81*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CASELIST__V29*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V80*/ curfptr[60] = /*_.DEBUG_MSG_FUN__V81*/ curfptr[62];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3356:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3361:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3356:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3361:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V81*/ curfptr[62] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3356:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3361:/ cppif.else"); /*_.IFCPP___V80*/ curfptr[60] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3357:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3362:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3360:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3365:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3360:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3365:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[5]); /*_.LIST_TO_MULTIPLE__V83*/ curfptr[63] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.CASELIST__V29*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3357:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3362:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3357:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3362:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_MATCH*/ curfrout->tabval[16])), (3), "CLASS_SRC_MATCH");/*_.INST__V85*/ curfptr[37] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3357:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3362:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V85*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V85*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V85*/ curfptr[37]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3357:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3362:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V85*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V85*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V85*/ curfptr[37]), (1), (/*_.MATSX__V17*/ curfptr[16]), "SMAT_MATCHEDX"); ; - BASILYS_LOCATION("warmelt-macro.melt:3357:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3362:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V85*/ curfptr[37])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V85*/ curfptr[37]))));basilys_putfield_object((/*_.INST__V85*/ curfptr[37]), (2), (/*_.LIST_TO_MULTIPLE__V83*/ curfptr[63]), "SMAT_CASES"); @@ -36892,114 +36971,114 @@ BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3362:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3362:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3367:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3367:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L19*/ curfnum[10] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3362:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3367:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3362:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3367:/ apply.arg"); argtab[0].bp_cstring = "mexpand_match result smat"; - BASILYS_LOCATION("warmelt-macro.melt:3362:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3367:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[10]; - BASILYS_LOCATION("warmelt-macro.melt:3362:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3367:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3362:/ apply.arg"); - argtab[3].bp_long = 3362; + BASILYS_LOCATION("warmelt-macro.melt:3367:/ apply.arg"); + argtab[3].bp_long = 3367; /*_.DEBUG_MSG_FUN__V87*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SMAT__V84*/ curfptr[35]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V86*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V87*/ curfptr[42];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3362:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3367:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3362:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3367:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V87*/ curfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3362:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3367:/ cppif.else"); /*_.IFCPP___V86*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3363:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3368:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SMAT__V84*/ curfptr[35];; - BASILYS_LOCATION("warmelt-macro.melt:3363:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3368:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V82*/ curfptr[59] = /*_.RETURN___V88*/ curfptr[43];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3357:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3362:/ clear"); /*clear*/ /*_.LIST_TO_MULTIPLE__V83*/ curfptr[63] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3357:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3362:/ clear"); /*clear*/ /*_.SMAT__V84*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3357:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3362:/ clear"); /*clear*/ /*_.IFCPP___V86*/ curfptr[38] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3357:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3362:/ clear"); /*clear*/ /*_.RETURN___V88*/ curfptr[43] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V82*/ curfptr[59];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.MSEXP__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.MATSX__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.LIST_FIRST__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.LAMBDA___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.MEXPTUPLE__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_#NBMATCH__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.LASTMEXP__V28*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_#IX__L6*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.CASELIST__V29*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.FOREVER___V32*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.IFCPP___V80*/ curfptr[60] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3276:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3281:/ clear"); /*clear*/ /*_.LET___V82*/ curfptr[59] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3272:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:3272:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3272:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -37060,39 +37139,39 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3284:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3289:/ getarg"); /*_.C__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3284:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3289:/ block"); /*block*/{ /*_#IS_NOT_A__L1*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.C__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3285:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3290:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3285:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3285:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3290:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3290:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3286:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3291:/ locexp"); basilys_error_str((basilys_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "MATCH with non-sexpr"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3284:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3289:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.C__V2*/ curfptr[1];; - BASILYS_LOCATION("warmelt-macro.melt:3284:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3289:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3284:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3289:/ clear"); /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;} ; @@ -37153,18 +37232,18 @@ basilys_trace_start("MEXPAND_LETBINDING", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3371:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3371:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3371:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -37173,62 +37252,62 @@ basilys_trace_start("MEXPAND_LETBINDING", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3371:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3376:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3372:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3372:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3377:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3377:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3372:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3377:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3372:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3377:/ apply.arg"); argtab[0].bp_cstring = "mexpand_letbinding sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3372:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3377:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3372:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3377:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3372:/ apply.arg"); - argtab[3].bp_long = 3372; + BASILYS_LOCATION("warmelt-macro.melt:3377:/ apply.arg"); + argtab[3].bp_long = 3377; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3372:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3377:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3372:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3377:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3372:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3377:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3373:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3373:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3378:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3378:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3373:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3378:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3373:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3378:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3373:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3378:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3373:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3378:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3373:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3373)?(3373):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3378:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3378)?(3378):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -37238,36 +37317,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3371:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3373:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3378:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3373:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3378:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3373:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3378:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3374:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3374:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3379:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3379:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));; - BASILYS_LOCATION("warmelt-macro.melt:3374:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3379:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3374:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3379:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3374:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3379:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3374:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3379:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3374:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3374)?(3374):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3379:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3379)?(3379):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; @@ -37277,23 +37356,23 @@ BASILYS_LOCATION("warmelt-macro.melt:3371:/ block"); ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3374:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3379:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3374:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3379:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3374:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3379:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3376:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3381:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3377:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3382:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -37305,29 +37384,29 @@ BASILYS_LOCATION("warmelt-macro.melt:3371:/ block"); /*_.CURARG__V18*/ curfptr[17] = (/*nil*/NULL);; /*_.PAIR_HEAD__V19*/ curfptr[18] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));; - BASILYS_LOCATION("warmelt-macro.melt:3384:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3389:/ compute"); /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_HEAD__V19*/ curfptr[18];; /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:3385:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3390:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3385:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3385:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3390:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3390:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3386:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3391:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3386:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3391:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), 2, "SYMB_DATA");/*_.CTY__V23*/ curfptr[22] = slot; }; ; /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.CTY__V23*/ curfptr[22]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[5])));; - BASILYS_LOCATION("warmelt-macro.melt:3387:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3392:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3387:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3387:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3392:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3392:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3388:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3393:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CTY__V23*/ curfptr[22]), 2, "CTYPE_KEYWORD");/*_.CTYPE_KEYWORD__V24*/ curfptr[23] = slot; }; ; @@ -37335,311 +37414,311 @@ BASILYS_LOCATION("warmelt-macro.melt:3371:/ block"); ((/*_.CTYPE_KEYWORD__V24*/ curfptr[23]) == (/*_.CURARG__V18*/ curfptr[17]));; /*_#IF___L6*/ curfnum[5] = /*_#__L7*/ curfnum[6];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3387:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3392:/ clear"); /*clear*/ /*_.CTYPE_KEYWORD__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3387:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3392:/ clear"); /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3387:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3392:/ cond.else"); /*_#IF___L6*/ curfnum[5] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3387:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3392:/ cond"); /*cond*/ if (/*_#IF___L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3387:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3387:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3392:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3392:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3389:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3394:/ compute"); /*_.CTYP__V14*/ curfptr[13] = /*_.SETQ___V26*/ curfptr[25] = /*_.CTY__V23*/ curfptr[22];; /*_.IFELSE___V25*/ curfptr[23] = /*_.SETQ___V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3387:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3392:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3387:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3392:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3387:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3392:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3391:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3396:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V27*/ curfptr[25] = slot; }; ; /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3390:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3395:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "letbinding with invalid type keyword"), (basilys_ptr_t)(/*_.NAMED_NAME__V27*/ curfptr[25]));} ; /*clear*/ /*_.IFELSE___V25*/ curfptr[23] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3387:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3392:/ clear"); /*clear*/ /*_.NAMED_NAME__V27*/ curfptr[25] = 0 ;} ; } ; /*_.PAIR_TAIL__V28*/ curfptr[25] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));; - BASILYS_LOCATION("warmelt-macro.melt:3392:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3397:/ compute"); /*_.CURPAIR__V17*/ curfptr[16] = /*_.SETQ___V29*/ curfptr[28] = /*_.PAIR_TAIL__V28*/ curfptr[25];; /*_.PAIR_HEAD__V30*/ curfptr[29] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));; - BASILYS_LOCATION("warmelt-macro.melt:3393:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3398:/ compute"); /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V31*/ curfptr[30] = /*_.PAIR_HEAD__V30*/ curfptr[29];; /*_.LET___V22*/ curfptr[21] = /*_.SETQ___V31*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3386:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3391:/ clear"); /*clear*/ /*_.CTY__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3386:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3391:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3386:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3391:/ clear"); /*clear*/ /*_#IF___L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3386:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3391:/ clear"); /*clear*/ /*_.IFELSE___V25*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3386:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3391:/ clear"); /*clear*/ /*_.PAIR_TAIL__V28*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3386:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3391:/ clear"); /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3386:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3391:/ clear"); /*clear*/ /*_.PAIR_HEAD__V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3386:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3391:/ clear"); /*clear*/ /*_.SETQ___V31*/ curfptr[30] = 0 ;} ; /*_.IF___V21*/ curfptr[20] = /*_.LET___V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3385:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3390:/ clear"); /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3385:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3390:/ cond.else"); /*_.IF___V21*/ curfptr[20] = NULL;; } ; /*_#IS_A__L8*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:3395:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3400:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3395:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3395:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3400:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3400:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3397:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3402:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V33*/ curfptr[23] = slot; }; ; /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3396:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3401:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "letbinding cannot bind keyword"), (basilys_ptr_t)(/*_.NAMED_NAME__V33*/ curfptr[23]));} ; /*clear*/ /*_.IFELSE___V32*/ curfptr[22] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3395:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3400:/ clear"); /*clear*/ /*_.NAMED_NAME__V33*/ curfptr[23] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3395:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3400:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3395:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3400:/ block"); /*block*/{ /*_#IS_A__L9*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[6])));; - BASILYS_LOCATION("warmelt-macro.melt:3398:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3403:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3398:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3398:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3403:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3403:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3399:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3404:/ compute"); /*_.VAR__V15*/ curfptr[14] = /*_.SETQ___V35*/ curfptr[28] = /*_.CURARG__V18*/ curfptr[17];; /*_.PAIR_TAIL__V36*/ curfptr[29] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));; - BASILYS_LOCATION("warmelt-macro.melt:3400:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3405:/ compute"); /*_.CURPAIR__V17*/ curfptr[16] = /*_.SETQ___V37*/ curfptr[30] = /*_.PAIR_TAIL__V36*/ curfptr[29];; /*_.PAIR_HEAD__V38*/ curfptr[21] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));; - BASILYS_LOCATION("warmelt-macro.melt:3401:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3406:/ compute"); /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V39*/ curfptr[23] = /*_.PAIR_HEAD__V38*/ curfptr[21];; - BASILYS_LOCATION("warmelt-macro.melt:3398:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3403:/ block"); /*block*/{ /*_.PROGN___V40*/ curfptr[39] = /*_.SETQ___V39*/ curfptr[23];;} ; /*_.IFELSE___V34*/ curfptr[25] = /*_.PROGN___V40*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3398:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3403:/ clear"); /*clear*/ /*_.SETQ___V35*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3398:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3403:/ clear"); /*clear*/ /*_.PAIR_TAIL__V36*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3398:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3403:/ clear"); /*clear*/ /*_.SETQ___V37*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3398:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3403:/ clear"); /*clear*/ /*_.PAIR_HEAD__V38*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3398:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3403:/ clear"); /*clear*/ /*_.SETQ___V39*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3398:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3403:/ clear"); /*clear*/ /*_.PROGN___V40*/ curfptr[39] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3398:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3403:/ cond.else"); /*_.IFELSE___V34*/ curfptr[25] = NULL;; } ; /*_.IFELSE___V32*/ curfptr[22] = /*_.IFELSE___V34*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3395:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3400:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3395:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3400:/ clear"); /*clear*/ /*_.IFELSE___V34*/ curfptr[25] = 0 ;} ; } ; /*_#NULL__L10*/ curfnum[5] = ((/*_.VAR__V15*/ curfptr[14]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3403:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3408:/ cond"); /*cond*/ if (/*_#NULL__L10*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3403:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3403:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3408:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3408:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3404:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3409:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing variable in letbinding"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3405:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3410:/ cond"); /*cond*/ if (/*_.CURARG__V18*/ curfptr[17]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3405:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3405:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3410:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3410:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3407:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3412:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3407:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3412:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3407:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3412:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V41*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.CURARG__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3407:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3412:/ compute"); /*_.EXPR__V16*/ curfptr[15] = /*_.SETQ___V42*/ curfptr[29] = /*_.MACROEXPAND_1__V41*/ curfptr[28];; /*_.PAIR_TAIL__V43*/ curfptr[30] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));; - BASILYS_LOCATION("warmelt-macro.melt:3408:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3413:/ compute"); /*_.CURPAIR__V17*/ curfptr[16] = /*_.SETQ___V44*/ curfptr[21] = /*_.PAIR_TAIL__V43*/ curfptr[30];; /*_.PAIR_HEAD__V45*/ curfptr[23] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V17*/ curfptr[16])));; - BASILYS_LOCATION("warmelt-macro.melt:3409:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3414:/ compute"); /*_.CURARG__V18*/ curfptr[17] = /*_.SETQ___V46*/ curfptr[39] = /*_.PAIR_HEAD__V45*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.melt:3410:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3415:/ cond"); /*cond*/ if (/*_.CURARG__V18*/ curfptr[17]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3410:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3410:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3415:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3415:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3410:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3415:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "too long letbinding"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3406:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3411:/ block"); /*block*/{} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3405:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3410:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V41*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3405:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3410:/ clear"); /*clear*/ /*_.SETQ___V42*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3405:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3410:/ clear"); /*clear*/ /*_.PAIR_TAIL__V43*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3405:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3410:/ clear"); /*clear*/ /*_.SETQ___V44*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3405:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3410:/ clear"); /*clear*/ /*_.PAIR_HEAD__V45*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3405:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3410:/ clear"); /*clear*/ /*_.SETQ___V46*/ curfptr[39] = 0 ;} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3412:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3417:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3412:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3417:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3412:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3417:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VAR__V15*/ curfptr[14]; /*_.PREVBIND__V48*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#NULL__L11*/ curfnum[4] = ((/*_.PREVBIND__V48*/ curfptr[28]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3414:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3419:/ cond"); /*cond*/ if (/*_#NULL__L11*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3414:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3419:/ cond.then"); /*_.IFELSE___V49*/ curfptr[29] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3414:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3419:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3414:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3419:/ block"); /*block*/{ /*_#IS_A__L12*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.PREVBIND__V48*/ curfptr[28]), (basilys_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[9])));; - BASILYS_LOCATION("warmelt-macro.melt:3415:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3420:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3415:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3415:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3420:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3420:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3416:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3421:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3416:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3421:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.PREVBIND__V48*/ curfptr[28]), (basilys_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[9])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3416:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3416:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3421:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3421:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PREVBIND__V48*/ curfptr[28]), 3, "LETBIND_LOC");/*_.PREVLOC__V51*/ curfptr[21] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3416:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3421:/ cond.else"); /*_.PREVLOC__V51*/ curfptr[21] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3419:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3424:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.VAR__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[10])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3419:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3419:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3424:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3424:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.VAR__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V52*/ curfptr[23] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3419:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3424:/ cond.else"); /*_.NAMED_NAME__V52*/ curfptr[23] = NULL;; } ; { - BASILYS_LOCATION("warmelt-macro.melt:3417:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3422:/ locexp"); basilys_warning_str(0, (basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "local let binding hides upper one"), (basilys_ptr_t)(/*_.NAMED_NAME__V52*/ curfptr[23]));} ; - BASILYS_LOCATION("warmelt-macro.melt:3420:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3425:/ cond"); /*cond*/ if (/*_.PREVLOC__V51*/ curfptr[21]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3420:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3420:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3425:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3425:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3423:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3428:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.VAR__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[10])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3423:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3423:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3428:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3428:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.VAR__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V53*/ curfptr[39] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3423:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3428:/ cond.else"); /*_.NAMED_NAME__V53*/ curfptr[39] = NULL;; } @@ -37647,47 +37726,47 @@ BASILYS_LOCATION("warmelt-macro.melt:3371:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3421:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3426:/ locexp"); basilys_warning_str(0, (basilys_ptr_t)(/*_.PREVLOC__V51*/ curfptr[21]), ( "here is the hidden binding"), (basilys_ptr_t)(/*_.NAMED_NAME__V53*/ curfptr[39]));} ; /*clear*/ /*_.IFELSE___V50*/ curfptr[30] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3420:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3425:/ clear"); /*clear*/ /*_.NAMED_NAME__V53*/ curfptr[39] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3420:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3425:/ cond.else"); /*_.IFELSE___V50*/ curfptr[30] = NULL;; } ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3416:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3421:/ clear"); /*clear*/ /*_.PREVLOC__V51*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3416:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3421:/ clear"); /*clear*/ /*_.NAMED_NAME__V52*/ curfptr[23] = 0 ;} ; /*epilog*/} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3415:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3420:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3415:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3420:/ block"); /*block*/{ /*_#IS_A__L13*/ curfnum[12] = basilys_is_instance_of((basilys_ptr_t)(/*_.PREVBIND__V48*/ curfptr[28]), (basilys_ptr_t)((/*!CLASS_FIXED_BINDING*/ curfrout->tabval[11])));; - BASILYS_LOCATION("warmelt-macro.melt:3426:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3431:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3426:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3426:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3431:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3431:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3429:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3434:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.VAR__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[10])))) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3429:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3429:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3434:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3434:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.VAR__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V55*/ curfptr[21] = slot; }; ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3429:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3434:/ cond.else"); /*_.NAMED_NAME__V55*/ curfptr[21] = NULL;; } @@ -37695,142 +37774,142 @@ BASILYS_LOCATION("warmelt-macro.melt:3371:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3427:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3432:/ locexp"); basilys_warning_str(0, (basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "local let binding hides definition"), (basilys_ptr_t)(/*_.NAMED_NAME__V55*/ curfptr[21]));} ; /*clear*/ /*_.IFELSE___V54*/ curfptr[39] = 0 ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3426:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3431:/ clear"); /*clear*/ /*_.NAMED_NAME__V55*/ curfptr[21] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3426:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3431:/ cond.else"); /*_.IFELSE___V54*/ curfptr[39] = NULL;; } ; /*_.IFELSE___V50*/ curfptr[30] = /*_.IFELSE___V54*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3415:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3420:/ clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3415:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3420:/ clear"); /*clear*/ /*_.IFELSE___V54*/ curfptr[39] = 0 ;} ; } ; /*_.IFELSE___V49*/ curfptr[29] = /*_.IFELSE___V50*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3414:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3419:/ clear"); /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3414:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3419:/ clear"); /*clear*/ /*_.IFELSE___V50*/ curfptr[30] = 0 ;} ; } ; /*_.LET___V47*/ curfptr[25] = /*_.IFELSE___V49*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3412:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3417:/ clear"); /*clear*/ /*_.PREVBIND__V48*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3412:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3417:/ clear"); /*clear*/ /*_#NULL__L11*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3412:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3417:/ clear"); /*clear*/ /*_.IFELSE___V49*/ curfptr[29] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3432:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3437:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3433:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3438:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3433:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3438:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_LETBINDING*/ curfrout->tabval[12])), (4), "CLASS_SRC_LETBINDING");/*_.INST__V58*/ curfptr[39] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3433:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V58*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V58*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V58*/ curfptr[39]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3433:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V58*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V58*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V58*/ curfptr[39]), (1), (/*_.CTYP__V14*/ curfptr[13]), "SLETB_TYPE"); ; - BASILYS_LOCATION("warmelt-macro.melt:3433:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V58*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V58*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V58*/ curfptr[39]), (2), (/*_.VAR__V15*/ curfptr[14]), "SLETB_BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:3433:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3438:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V58*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V58*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V58*/ curfptr[39]), (3), (/*_.EXPR__V16*/ curfptr[15]), "SLETB_EXPR"); ; /*_.LETB__V57*/ curfptr[21] = /*_.INST__V58*/ curfptr[39];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3438:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3443:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LETB__V57*/ curfptr[21];; - BASILYS_LOCATION("warmelt-macro.melt:3438:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3443:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V56*/ curfptr[23] = /*_.RETURN___V59*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3432:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3437:/ clear"); /*clear*/ /*_.LETB__V57*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3432:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3437:/ clear"); /*clear*/ /*_.RETURN___V59*/ curfptr[30] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V56*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_.CTYP__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_.VAR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_.EXPR__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_.CURPAIR__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_.CURARG__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_.PAIR_HEAD__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_.IF___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_#NULL__L10*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_.LET___V47*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3375:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3380:/ clear"); /*clear*/ /*_.LET___V56*/ curfptr[23] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3371:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:3371:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3371:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3371:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3371:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3371:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -37891,18 +37970,18 @@ basilys_trace_start("MEXPAND_LET", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3442:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3442:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3442:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -37911,28 +37990,28 @@ basilys_trace_start("MEXPAND_LET", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3442:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3447:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3443:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3443:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3448:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3448:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3443:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3448:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3443:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3448:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3443:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3448:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3443:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3448:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3443:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3443)?(3443):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3448:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3448)?(3448):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -37942,36 +38021,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3442:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3448:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3443:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3448:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3443:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3448:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3444:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3444:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3449:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3449:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3444:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3449:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3444:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3449:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3444:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3449:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3444:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3449:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3444:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3444)?(3444):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3449:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3449)?(3449):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -37981,23 +38060,23 @@ BASILYS_LOCATION("warmelt-macro.melt:3442:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3444:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3449:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3444:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3449:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3444:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3449:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3446:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3451:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3447:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3452:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; }; ; @@ -38009,50 +38088,50 @@ BASILYS_LOCATION("warmelt-macro.melt:3442:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.SECPAIR__V13*/ curfptr[12])));; /*_.BINDEXPR__V15*/ curfptr[14] = (basilys_pair_head((basilys_ptr_t)(/*_.SECPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:3451:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3456:/ apply"); /*apply*/{ /*_.NEWENV__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; /*_.BINDTUP__V17*/ curfptr[16] = (/*nil*/NULL);; /*_.BODYTUP__V18*/ curfptr[17] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3455:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3460:/ cond"); /*cond*/ if (/*_.BINDEXPR__V15*/ curfptr[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3455:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3455:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3460:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3460:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.BINDEXPR__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3456:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3461:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3456:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3456:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3461:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3461:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3459:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3464:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BINDEXPR__V15*/ curfptr[14]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V21*/ curfptr[20] = slot; }; ; /*_.LIST_FIRST__V22*/ curfptr[21] = (basilys_list_first((basilys_ptr_t)(/*_.SEXP_CONTENTS__V21*/ curfptr[20])));; - BASILYS_LOCATION("warmelt-macro.melt:3461:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3466:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3461:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3466:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (3)); ; - BASILYS_LOCATION("warmelt-macro.melt:3461:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3466:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[0] = (basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]); ; - BASILYS_LOCATION("warmelt-macro.melt:3461:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3466:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V24*/ curfptr[23])->tabval[1] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; - BASILYS_LOCATION("warmelt-macro.melt:3461:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3466:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V24*/ curfptr[23])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V24*/ curfptr[23]))); @@ -38060,40 +38139,40 @@ BASILYS_LOCATION("warmelt-macro.melt:3442:/ block"); ; /*_.LAMBDA___V23*/ curfptr[22] = /*_.LAMBDA___V24*/ curfptr[23];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3458:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3463:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3458:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3463:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.melt:3458:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3463:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[22]; /*_.PAIRLIST_TO_MULTIPLE__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.LIST_FIRST__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3457:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3462:/ compute"); /*_.BINDTUP__V17*/ curfptr[16] = /*_.SETQ___V26*/ curfptr[25] = /*_.PAIRLIST_TO_MULTIPLE__V25*/ curfptr[24];; /*_.IFELSE___V20*/ curfptr[19] = /*_.SETQ___V26*/ curfptr[25];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3456:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3461:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3456:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3461:/ clear"); /*clear*/ /*_.LIST_FIRST__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3456:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3461:/ clear"); /*clear*/ /*_.LAMBDA___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3456:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3461:/ clear"); /*clear*/ /*_.PAIRLIST_TO_MULTIPLE__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3456:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3461:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3456:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3461:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3456:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3461:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3465:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3470:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing letbinding-s in LET"), (basilys_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} @@ -38104,23 +38183,23 @@ BASILYS_LOCATION("warmelt-macro.melt:3442:/ block"); ; /*_.IF___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3455:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3460:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3455:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3460:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3455:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3460:/ cond.else"); /*_.IF___V19*/ curfptr[18] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3469:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3474:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3469:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3474:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V28*/ curfptr[21] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (1)); ; - BASILYS_LOCATION("warmelt-macro.melt:3469:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3474:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V28*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V28*/ curfptr[21]))); @@ -38128,28 +38207,28 @@ BASILYS_LOCATION("warmelt-macro.melt:3442:/ block"); ; /*_.LAMBDA___V27*/ curfptr[20] = /*_.LAMBDA___V28*/ curfptr[21];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3467:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3472:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3467:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3472:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V27*/ curfptr[20]; /*_.MULTIPLE_EVERY__V29*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.BINDTUP__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3481:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3486:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3481:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3486:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V31*/ curfptr[25] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (2)); ; - BASILYS_LOCATION("warmelt-macro.melt:3481:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3486:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V31*/ curfptr[25])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V31*/ curfptr[25]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[25])->tabval[0] = (basilys_ptr_t)(/*_.NEWENV__V16*/ curfptr[15]); ; - BASILYS_LOCATION("warmelt-macro.melt:3481:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3486:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V31*/ curfptr[25])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V31*/ curfptr[25]))); @@ -38157,107 +38236,107 @@ BASILYS_LOCATION("warmelt-macro.melt:3442:/ block"); ; /*_.LAMBDA___V30*/ curfptr[24] = /*_.LAMBDA___V31*/ curfptr[25];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3480:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3485:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3480:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3485:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.melt:3480:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3485:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V30*/ curfptr[24]; /*_.PAIRLIST_TO_MULTIPLE__V32*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RESTPAIR__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3480:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3485:/ compute"); /*_.BODYTUP__V18*/ curfptr[17] = /*_.SETQ___V33*/ curfptr[32] = /*_.PAIRLIST_TO_MULTIPLE__V32*/ curfptr[19];; - BASILYS_LOCATION("warmelt-macro.melt:3482:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3487:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3483:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3488:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3483:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3488:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_LET*/ curfrout->tabval[15])), (3), "CLASS_SRC_LET");/*_.INST__V36*/ curfptr[35] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3483:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3488:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (0), (/*_.LOC__V11*/ curfptr[10]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3483:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3488:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.BINDTUP__V17*/ curfptr[16]), "SLET_BINDINGS"); ; - BASILYS_LOCATION("warmelt-macro.melt:3483:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3488:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (2), (/*_.BODYTUP__V18*/ curfptr[17]), "SLET_BODY"); ; /*_.LETR__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3487:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3492:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LETR__V35*/ curfptr[34];; - BASILYS_LOCATION("warmelt-macro.melt:3487:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3492:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V34*/ curfptr[33] = /*_.RETURN___V37*/ curfptr[36];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3482:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3487:/ clear"); /*clear*/ /*_.LETR__V35*/ curfptr[34] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3482:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3487:/ clear"); /*clear*/ /*_.RETURN___V37*/ curfptr[36] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V34*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.SECPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.RESTPAIR__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.BINDEXPR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.NEWENV__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.BINDTUP__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.BODYTUP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.LAMBDA___V27*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V29*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.LAMBDA___V30*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.PAIRLIST_TO_MULTIPLE__V32*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.SETQ___V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3445:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3450:/ clear"); /*clear*/ /*_.LET___V34*/ curfptr[33] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3442:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.melt:3442:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3442:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3442:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3442:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -38318,52 +38397,52 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3461:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3466:/ getarg"); /*_.B__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3461:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3466:/ block"); /*block*/{ /*_#IS_NOT_A__L1*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.B__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3462:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3467:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3462:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3462:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3467:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3467:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3463:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3468:/ locexp"); basilys_error_str((basilys_ptr_t)((/*~LOC*/ curfclos->tabval[0])), ( "sexpr expected in LET binding"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3464:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3469:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3464:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3469:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]); - BASILYS_LOCATION("warmelt-macro.melt:3464:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3469:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[2]); /*_.MEXPAND_LETBINDING__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!MEXPAND_LETBINDING*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.B__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3461:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3466:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MEXPAND_LETBINDING__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:3461:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3466:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3461:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3466:/ clear"); /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3461:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3466:/ clear"); /*clear*/ /*_.MEXPAND_LETBINDING__V3*/ curfptr[2] = 0 ;} ; @@ -38424,34 +38503,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3469:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3474:/ getarg"); /*_.SLB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3469:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3474:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3470:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3470:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3475:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3475:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SLB__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_LETBINDING*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3470:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3475:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3470:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3475:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3470:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3475:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3470:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3475:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3470:/ locexp"); - basilys_assert_failed(( "mexp.let. check slb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3470)?(3470):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3475:/ locexp"); + basilys_assert_failed(( "mexp.let. check slb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3475)?(3475):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; @@ -38461,48 +38540,48 @@ BASILYS_LOCATION("warmelt-macro.melt:3469:/ block"); ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3470:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3475:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3470:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3475:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3470:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3475:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3471:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3476:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3472:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3477:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SLB__V2*/ curfptr[1]), 3, "SLETB_EXPR");/*_.SX__V6*/ curfptr[5] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3474:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3479:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SLB__V2*/ curfptr[1]), 2, "SLETB_BINDER");/*_.SLETB_BINDER__V7*/ curfptr[6] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3475:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3480:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SLB__V2*/ curfptr[1]), 1, "SLETB_TYPE");/*_.SLETB_TYPE__V8*/ curfptr[7] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3473:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3478:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3473:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3478:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[1])), (4), "CLASS_LET_BINDING");/*_.INST__V10*/ curfptr[9] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3473:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3478:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9]))));basilys_putfield_object((/*_.INST__V10*/ curfptr[9]), (0), (/*_.SLETB_BINDER__V7*/ curfptr[6]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:3473:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3478:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9]))));basilys_putfield_object((/*_.INST__V10*/ curfptr[9]), (1), (/*_.SLETB_TYPE__V8*/ curfptr[7]), "LETBIND_TYPE"); ; - BASILYS_LOCATION("warmelt-macro.melt:3473:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3478:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V10*/ curfptr[9]))));basilys_putfield_object((/*_.INST__V10*/ curfptr[9]), (2), (/*_.SX__V6*/ curfptr[5]), "LETBIND_EXPR"); @@ -38511,26 +38590,26 @@ BASILYS_LOCATION("warmelt-macro.melt:3469:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3477:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3477:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3482:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3482:/ block"); /*block*/{ /*_#IS_LIST__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.LB__V9*/ curfptr[8])) == OBMAG_LIST);; /*_#NOT__L3*/ curfnum[2] = (!(/*_#IS_LIST__L2*/ curfnum[0]));; - BASILYS_LOCATION("warmelt-macro.melt:3477:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3482:/ cond"); /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3477:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3482:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3477:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3482:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3477:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3482:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3477:/ locexp"); - basilys_assert_failed(( "mexp.let not list lb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3477)?(3477):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3482:/ locexp"); + basilys_assert_failed(( "mexp.let not list lb"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3482)?(3482):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; @@ -38540,53 +38619,53 @@ BASILYS_LOCATION("warmelt-macro.melt:3469:/ block"); ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3477:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3482:/ clear"); /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3477:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3482:/ clear"); /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3477:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3482:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3477:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3482:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3478:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3483:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3478:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3483:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LB__V9*/ curfptr[8]; /*_.PUT_ENV__V13*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[2])), (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V5*/ curfptr[3] = /*_.PUT_ENV__V13*/ curfptr[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3471:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3476:/ clear"); /*clear*/ /*_.SX__V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3471:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3476:/ clear"); /*clear*/ /*_.SLETB_BINDER__V7*/ curfptr[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3471:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3476:/ clear"); /*clear*/ /*_.SLETB_TYPE__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3471:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3476:/ clear"); /*clear*/ /*_.LB__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3471:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3476:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3471:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3476:/ clear"); /*clear*/ /*_.PUT_ENV__V13*/ curfptr[11] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3469:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3474:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; - BASILYS_LOCATION("warmelt-macro.melt:3469:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3474:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3469:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3474:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3469:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3474:/ clear"); /*clear*/ /*_.LET___V5*/ curfptr[3] = 0 ;} ; @@ -38647,34 +38726,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3481:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3486:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3481:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3486:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3481:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3486:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3481:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3486:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.melt:3481:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3486:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]); /*_.MACROEXPAND_1__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3481:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3486:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:3481:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3486:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3481:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3486:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -38735,18 +38814,18 @@ basilys_trace_start("MEXPAND_LAMBDA", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3493:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3493:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3493:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -38755,28 +38834,28 @@ basilys_trace_start("MEXPAND_LAMBDA", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3493:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3498:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3494:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3494:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3499:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3499:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3494:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3499:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3494:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3499:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3494:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3499:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3494:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3499:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3494:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3494)?(3494):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3499:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3499)?(3499):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -38786,36 +38865,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3493:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3494:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3499:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3494:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3499:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3494:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3499:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3495:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3495:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3500:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3500:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3495:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3500:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3495:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3500:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3495:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3500:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3495:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3500:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3495:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3495)?(3495):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3500:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3500)?(3500):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -38825,23 +38904,23 @@ BASILYS_LOCATION("warmelt-macro.melt:3493:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3495:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3500:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3495:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3500:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3495:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3500:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3496:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3501:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3496:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3501:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3497:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3502:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; }; ; @@ -38849,7 +38928,7 @@ BASILYS_LOCATION("warmelt-macro.melt:3493:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.CONT__V10*/ curfptr[9])));; /*_.CURPAIR__V13*/ curfptr[12] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));; - BASILYS_LOCATION("warmelt-macro.melt:3499:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3504:/ apply"); /*apply*/{ /*_.NEWENV__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } @@ -38858,59 +38937,59 @@ BASILYS_LOCATION("warmelt-macro.melt:3493:/ block"); (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; /*_#NOTNULL__L3*/ curfnum[0] = ((/*_.FORMALS__V15*/ curfptr[14]) != NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3503:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3508:/ cond"); /*cond*/ if (/*_#NOTNULL__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3503:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3503:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3508:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3508:/ block"); /*block*/{ /*_#IS_NOT_A__L5*/ curfnum[4] = !basilys_is_instance_of((basilys_ptr_t)(/*_.FORMALS__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; /*_#IF___L4*/ curfnum[3] = /*_#IS_NOT_A__L5*/ curfnum[4];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3503:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3508:/ clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[4] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3503:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3508:/ cond.else"); /*_#IF___L4*/ curfnum[3] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3503:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3508:/ cond"); /*cond*/ if (/*_#IF___L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3503:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3503:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3508:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3508:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3504:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3509:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing formal argument list in (LAMBDA (arglist...) body...)"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3505:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3510:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3505:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3510:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3505:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3510:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SEXPR__V2*/ curfptr[1]; /*_.ARGTUP__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.FORMALS__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.PAIR_TAIL__V18*/ curfptr[17] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:3506:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3511:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_TAIL__V18*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.melt:3508:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3513:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3508:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3513:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (1)); ; - BASILYS_LOCATION("warmelt-macro.melt:3508:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3513:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20]))); @@ -38918,30 +38997,30 @@ BASILYS_LOCATION("warmelt-macro.melt:3493:/ block"); ; /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3507:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3512:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3507:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3512:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19]; /*_.MULTIPLE_EVERY__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ARGTUP__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3509:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3514:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3510:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3515:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3510:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3515:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[24] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (2)); ; - BASILYS_LOCATION("warmelt-macro.melt:3510:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3515:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[0] = (basilys_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]); ; - BASILYS_LOCATION("warmelt-macro.melt:3510:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3515:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); @@ -38949,108 +39028,108 @@ BASILYS_LOCATION("warmelt-macro.melt:3493:/ block"); ; /*_.LAMBDA___V24*/ curfptr[23] = /*_.LAMBDA___V25*/ curfptr[24];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3509:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3514:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3509:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3514:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[8]); - BASILYS_LOCATION("warmelt-macro.melt:3509:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3514:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[23]; /*_.BODYTUP__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3512:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3517:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3512:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3517:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_LAMBDA*/ curfrout->tabval[11])), (3), "CLASS_SRC_LAMBDA");/*_.INST__V28*/ curfptr[27] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3512:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3517:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (0), (/*_.LOC__V11*/ curfptr[10]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3512:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3517:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (1), (/*_.ARGTUP__V17*/ curfptr[16]), "SLAM_ARGBIND"); ; - BASILYS_LOCATION("warmelt-macro.melt:3512:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3517:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V28*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V28*/ curfptr[27]), (2), (/*_.BODYTUP__V26*/ curfptr[25]), "SLAM_BODY"); ; /*_.LAMBR__V27*/ curfptr[26] = /*_.INST__V28*/ curfptr[27];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3517:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3522:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LAMBR__V27*/ curfptr[26];; - BASILYS_LOCATION("warmelt-macro.melt:3517:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3522:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V23*/ curfptr[22] = /*_.RETURN___V29*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3509:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3514:/ clear"); /*clear*/ /*_.LAMBDA___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3509:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3514:/ clear"); /*clear*/ /*_.BODYTUP__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3509:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3514:/ clear"); /*clear*/ /*_.LAMBR__V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3509:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3514:/ clear"); /*clear*/ /*_.RETURN___V29*/ curfptr[28] = 0 ;} ; /*_.LET___V16*/ curfptr[15] = /*_.LET___V23*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3505:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3510:/ clear"); /*clear*/ /*_.ARGTUP__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3505:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3510:/ clear"); /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3505:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3510:/ clear"); /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3505:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3510:/ clear"); /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3505:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3510:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3505:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3510:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V16*/ curfptr[15];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3501:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3501:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3501:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3501:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3501:/ clear"); /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3501:/ clear"); /*clear*/ /*_.FORMALS__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3501:/ clear"); /*clear*/ /*_#NOTNULL__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3501:/ clear"); /*clear*/ /*_#IF___L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3496:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3501:/ clear"); /*clear*/ /*_.LET___V16*/ curfptr[15] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3493:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.melt:3493:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3493:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -39111,32 +39190,32 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3508:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3513:/ getarg"); /*_.LB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3508:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3513:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3508:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3513:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3508:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3513:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LB__V2*/ curfptr[1]; /*_.PUT_ENV__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3508:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3513:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:3508:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3513:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3508:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3513:/ clear"); /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;} ; @@ -39197,34 +39276,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3510:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3515:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3510:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3515:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3510:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3515:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3510:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3515:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.melt:3510:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3515:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]); /*_.MACROEXPAND_1__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3510:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3515:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:3510:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3515:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3510:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3515:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -39285,18 +39364,18 @@ basilys_trace_start("MEXPAND_MULTICALL", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3523:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3523:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3523:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -39305,28 +39384,28 @@ basilys_trace_start("MEXPAND_MULTICALL", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3523:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3528:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3524:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3524:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3529:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3529:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3524:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3529:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3524:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3529:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3524:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3529:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3524:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3529:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3524:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3524)?(3524):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3529:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3529)?(3529):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -39336,36 +39415,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3523:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3524:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3529:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3524:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3529:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3524:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3529:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3525:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3525:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3530:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3530:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3525:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3530:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3525:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3530:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3525:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3530:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3525:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3530:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3525:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3525)?(3525):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3530:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3530)?(3530):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -39375,23 +39454,23 @@ BASILYS_LOCATION("warmelt-macro.melt:3523:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3525:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3530:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3525:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3530:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3525:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3530:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3526:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3531:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3526:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3531:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3527:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3532:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; }; ; @@ -39399,29 +39478,29 @@ BASILYS_LOCATION("warmelt-macro.melt:3523:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.CONT__V10*/ curfptr[9])));; /*_.CURPAIR__V13*/ curfptr[12] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));; - BASILYS_LOCATION("warmelt-macro.melt:3529:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3534:/ apply"); /*apply*/{ /*_.NEWENV__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3532:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3537:/ block"); /*block*/{ /*_.PAIR_HEAD__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:3532:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3537:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3532:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3537:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SEXPR__V2*/ curfptr[1]; /*_.RESTUP__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!LAMBDA_ARG_BINDINGS*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.PAIR_TAIL__V18*/ curfptr[17] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:3533:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3538:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_TAIL__V18*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.melt:3534:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3539:/ block"); /*block*/{ /*_.CURCALLEXP__V21*/ curfptr[20] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; @@ -39429,14 +39508,14 @@ BASILYS_LOCATION("warmelt-macro.melt:3523:/ block"); basilys_is_instance_of((basilys_ptr_t)(/*_.CURCALLEXP__V21*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; /*_#NOT__L4*/ curfnum[3] = (!(/*_#IS_A__L3*/ curfnum[0]));; - BASILYS_LOCATION("warmelt-macro.melt:3535:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3540:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3535:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3535:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3540:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3540:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3536:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3541:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing called expression in multicall"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -39445,28 +39524,28 @@ BASILYS_LOCATION("warmelt-macro.melt:3523:/ block"); ; /*_.PAIR_TAIL__V22*/ curfptr[21] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:3537:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3542:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V23*/ curfptr[22] = /*_.PAIR_TAIL__V22*/ curfptr[21];; - BASILYS_LOCATION("warmelt-macro.melt:3538:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3543:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3538:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3543:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3538:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3543:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3538:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3543:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.CURCALL__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.CURCALLEXP__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3540:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3545:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3540:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3545:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V27*/ curfptr[26] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1)); ; - BASILYS_LOCATION("warmelt-macro.melt:3540:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3545:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26]))); @@ -39474,30 +39553,30 @@ BASILYS_LOCATION("warmelt-macro.melt:3523:/ block"); ; /*_.LAMBDA___V26*/ curfptr[25] = /*_.LAMBDA___V27*/ curfptr[26];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3539:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3544:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3539:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3544:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V26*/ curfptr[25]; /*_.MULTIPLE_EVERY__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.RESTUP__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3542:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3547:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3543:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3548:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3543:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3548:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V31*/ curfptr[30] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (2)); ; - BASILYS_LOCATION("warmelt-macro.melt:3543:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3548:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V31*/ curfptr[30])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V31*/ curfptr[30]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[30])->tabval[0] = (basilys_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]); ; - BASILYS_LOCATION("warmelt-macro.melt:3543:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3548:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V31*/ curfptr[30])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V31*/ curfptr[30]))); @@ -39505,131 +39584,131 @@ BASILYS_LOCATION("warmelt-macro.melt:3523:/ block"); ; /*_.LAMBDA___V30*/ curfptr[29] = /*_.LAMBDA___V31*/ curfptr[30];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3542:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3547:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3542:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3547:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[9]); - BASILYS_LOCATION("warmelt-macro.melt:3542:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3547:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V30*/ curfptr[29]; /*_.BODYTUP__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3545:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3550:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3545:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3550:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_MULTICALL*/ curfrout->tabval[12])), (4), "CLASS_SRC_MULTICALL");/*_.INST__V34*/ curfptr[33] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3545:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3550:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (0), (/*_.LOC__V11*/ curfptr[10]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3545:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3550:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (1), (/*_.RESTUP__V17*/ curfptr[16]), "SMULC_RESBIND"); ; - BASILYS_LOCATION("warmelt-macro.melt:3545:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3550:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (2), (/*_.CURCALL__V25*/ curfptr[24]), "SMULC_CALL"); ; - BASILYS_LOCATION("warmelt-macro.melt:3545:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3550:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (3), (/*_.BODYTUP__V32*/ curfptr[31]), "SMULC_BODY"); ; /*_.MULCR__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3552:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3557:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULCR__V33*/ curfptr[32];; - BASILYS_LOCATION("warmelt-macro.melt:3552:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3557:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V29*/ curfptr[28] = /*_.RETURN___V35*/ curfptr[34];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3542:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3547:/ clear"); /*clear*/ /*_.LAMBDA___V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3542:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3547:/ clear"); /*clear*/ /*_.BODYTUP__V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3542:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3547:/ clear"); /*clear*/ /*_.MULCR__V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3542:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3547:/ clear"); /*clear*/ /*_.RETURN___V35*/ curfptr[34] = 0 ;} ; /*_.LET___V24*/ curfptr[23] = /*_.LET___V29*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3538:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3543:/ clear"); /*clear*/ /*_.CURCALL__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3538:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3543:/ clear"); /*clear*/ /*_.LAMBDA___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3538:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3543:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3538:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3543:/ clear"); /*clear*/ /*_.LET___V29*/ curfptr[28] = 0 ;} ; /*_.LET___V20*/ curfptr[19] = /*_.LET___V24*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3534:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3539:/ clear"); /*clear*/ /*_.CURCALLEXP__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3534:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3539:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3534:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3539:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3534:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3539:/ clear"); /*clear*/ /*_.PAIR_TAIL__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3534:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3539:/ clear"); /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3534:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3539:/ clear"); /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;} ; /*_.LET___V15*/ curfptr[14] = /*_.LET___V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3532:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3537:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3532:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3537:/ clear"); /*clear*/ /*_.RESTUP__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3532:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3537:/ clear"); /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3532:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3537:/ clear"); /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3532:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3537:/ clear"); /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V15*/ curfptr[14];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3531:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3531:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3531:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3531:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3531:/ clear"); /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3526:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3531:/ clear"); /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3523:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.melt:3523:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3523:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3523:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3523:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -39690,32 +39769,32 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3540:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3545:/ getarg"); /*_.LB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3540:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3545:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3540:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3545:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3540:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3545:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LB__V2*/ curfptr[1]; /*_.PUT_ENV__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3540:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3545:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:3540:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3545:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3540:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3545:/ clear"); /*clear*/ /*_.PUT_ENV__V3*/ curfptr[2] = 0 ;} ; @@ -39776,34 +39855,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3543:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3548:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3543:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3548:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3543:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3548:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3543:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3548:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.melt:3543:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3548:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]); /*_.MACROEXPAND_1__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3543:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3548:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:3543:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3548:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3543:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3548:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -39864,18 +39943,18 @@ basilys_trace_start("MEXPAND_QUOTE", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3559:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3559:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3559:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -39884,28 +39963,28 @@ basilys_trace_start("MEXPAND_QUOTE", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3559:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3564:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3560:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3560:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3565:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3565:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3560:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3565:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3560:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3565:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3560:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3565:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3560:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3565:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3560:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3560)?(3560):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3565:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3565)?(3565):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -39915,36 +39994,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3559:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3560:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3565:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3560:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3565:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3560:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3565:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3561:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3561:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3566:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3566:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3561:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3566:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3561:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3566:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3561:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3566:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3561:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3566:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3561:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3561)?(3561):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3566:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3566)?(3566):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -39954,23 +40033,23 @@ BASILYS_LOCATION("warmelt-macro.melt:3559:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3561:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3566:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3561:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3566:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3561:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3566:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3562:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3567:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3562:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3567:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3563:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3568:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; }; ; @@ -39982,14 +40061,14 @@ BASILYS_LOCATION("warmelt-macro.melt:3559:/ block"); (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; /*_.PAIR_TAIL__V15*/ curfptr[14] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:3567:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3572:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V15*/ curfptr[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3567:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3567:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3572:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3572:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3568:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3573:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "QUOTE should have only one symbol argument"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -40000,14 +40079,14 @@ BASILYS_LOCATION("warmelt-macro.melt:3559:/ block"); basilys_is_instance_of((basilys_ptr_t)(/*_.QUOTED__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[2])));; /*_#NOT__L4*/ curfnum[3] = (!(/*_#IS_A__L3*/ curfnum[0]));; - BASILYS_LOCATION("warmelt-macro.melt:3569:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3574:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3569:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3569:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3574:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3574:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3570:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3575:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "QUOTE should have a symbol argument - composite quotations unsupported"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -40016,101 +40095,101 @@ BASILYS_LOCATION("warmelt-macro.melt:3559:/ block"); ; /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.QUOTED__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:3571:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3576:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3571:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3571:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3576:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3576:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3572:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3577:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.QUOTED__V14*/ curfptr[13];; - BASILYS_LOCATION("warmelt-macro.melt:3572:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3577:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IF___V16*/ curfptr[15] = /*_.RETURN___V17*/ curfptr[16];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3571:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3576:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3571:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3576:/ cond.else"); /*_.IF___V16*/ curfptr[15] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3573:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3578:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3573:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3578:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3573:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3578:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_QUOTE*/ curfrout->tabval[4])), (2), "CLASS_SRC_QUOTE");/*_.INST__V20*/ curfptr[19] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3573:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3578:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.LOC__V11*/ curfptr[10]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3573:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3578:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.QUOTED__V14*/ curfptr[13]), "SQUOTED"); ; /*_.SQU__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3576:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3581:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SQU__V19*/ curfptr[18];; - BASILYS_LOCATION("warmelt-macro.melt:3576:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3581:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V18*/ curfptr[16] = /*_.RETURN___V21*/ curfptr[20];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3573:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3578:/ clear"); /*clear*/ /*_.SQU__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3573:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3578:/ clear"); /*clear*/ /*_.RETURN___V21*/ curfptr[20] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V18*/ curfptr[16];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3567:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3567:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3567:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3567:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3567:/ clear"); /*clear*/ /*_.QUOTED__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3567:/ clear"); /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3567:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3567:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3567:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3567:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3562:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3567:/ clear"); /*clear*/ /*_.LET___V18*/ curfptr[16] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3559:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.melt:3559:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3559:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3559:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3559:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -40171,18 +40250,18 @@ basilys_trace_start("MEXPAND_COMMENT", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3582:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3587:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3582:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3587:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3582:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3587:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -40191,28 +40270,28 @@ basilys_trace_start("MEXPAND_COMMENT", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3582:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3587:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3583:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3583:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3588:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3588:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3583:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3588:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3583:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3588:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3583:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3588:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3583:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3588:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3583:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3583)?(3583):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3588:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3588)?(3588):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -40222,36 +40301,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3582:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3583:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3588:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3583:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3588:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3583:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3588:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3584:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3584:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3589:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3589:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3584:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3589:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3584:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3589:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3584:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3589:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3584:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3589:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3584:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3584)?(3584):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3589:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3589)?(3589):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -40261,23 +40340,23 @@ BASILYS_LOCATION("warmelt-macro.melt:3582:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3584:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3589:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3584:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3589:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3584:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3589:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3585:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3590:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3585:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3590:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3586:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3591:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; }; ; @@ -40289,14 +40368,14 @@ BASILYS_LOCATION("warmelt-macro.melt:3582:/ block"); (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; /*_.PAIR_TAIL__V15*/ curfptr[14] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:3590:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3595:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V15*/ curfptr[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3590:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3590:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3595:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3595:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3591:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3596:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "COMMENT should have only one string argument"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -40307,105 +40386,105 @@ BASILYS_LOCATION("warmelt-macro.melt:3582:/ block"); (basilys_magic_discr((basilys_ptr_t)(/*_.COMSTR__V14*/ curfptr[13])) == OBMAG_STRING);; /*_#NOT__L4*/ curfnum[3] = (!(/*_#IS_STRING__L3*/ curfnum[0]));; - BASILYS_LOCATION("warmelt-macro.melt:3592:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3597:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3592:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3592:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3597:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3597:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3594:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3599:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "COMMENT should have a string"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:3595:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3600:/ compute"); /*_.COMSTR__V14*/ curfptr[13] = /*_.SETQ___V17*/ curfptr[16] = (/*nil*/NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3593:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3598:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.SETQ___V17*/ curfptr[16];;} ; /*_.IF___V16*/ curfptr[15] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3592:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3597:/ clear"); /*clear*/ /*_.SETQ___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3592:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3597:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3592:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3597:/ cond.else"); /*_.IF___V16*/ curfptr[15] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3597:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3602:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3597:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3602:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3597:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3602:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_COMMENT*/ curfrout->tabval[2])), (2), "CLASS_SRC_COMMENT");/*_.INST__V21*/ curfptr[20] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3597:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3602:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20]))));basilys_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.LOC__V11*/ curfptr[10]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3597:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3602:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20]))));basilys_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.COMSTR__V14*/ curfptr[13]), "SCOMM_STR"); ; /*_.SCOM__V20*/ curfptr[17] = /*_.INST__V21*/ curfptr[20];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3600:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3605:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SCOM__V20*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.melt:3600:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3605:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V19*/ curfptr[16] = /*_.RETURN___V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3597:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3602:/ clear"); /*clear*/ /*_.SCOM__V20*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3597:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3602:/ clear"); /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V19*/ curfptr[16];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3585:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3590:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3585:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3590:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3585:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3590:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3585:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3590:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3585:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3590:/ clear"); /*clear*/ /*_.COMSTR__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3585:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3590:/ clear"); /*clear*/ /*_.PAIR_TAIL__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3585:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3590:/ clear"); /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3585:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3590:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3585:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3590:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3585:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3590:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[16] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3582:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3587:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.melt:3582:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3587:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3582:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3587:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3582:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3587:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3582:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3587:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -40466,25 +40545,25 @@ basilys_trace_start("PAIRLIST_TO_PROGN", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3607:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ getarg"); /*_.PAIR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3607:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.LOC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.LOC__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3607:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V4*/ curfptr[3])) != NULL); /*getarg#3*/ - BASILYS_LOCATION("warmelt-macro.melt:3607:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V5*/ curfptr[4])) != NULL); @@ -40493,28 +40572,28 @@ basilys_trace_start("PAIRLIST_TO_PROGN", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3607:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3612:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3608:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3608:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3613:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3613:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3608:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3613:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3608:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3613:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3608:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3613:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3608:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3613:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3608:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3608)?(3608):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3613:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3613)?(3613):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; @@ -40524,70 +40603,70 @@ BASILYS_LOCATION("warmelt-macro.melt:3607:/ block"); ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3608:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3613:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3608:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3613:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3608:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3613:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3609:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3609:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3614:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3614:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3609:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3614:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3609:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3614:/ apply.arg"); argtab[0].bp_cstring = "pairlist_to_progn pair"; - BASILYS_LOCATION("warmelt-macro.melt:3609:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3614:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3609:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3614:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3609:/ apply.arg"); - argtab[3].bp_long = 3609; + BASILYS_LOCATION("warmelt-macro.melt:3614:/ apply.arg"); + argtab[3].bp_long = 3614; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.PAIR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3609:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3614:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3609:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3614:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3609:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3614:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3610:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3610:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3615:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3615:/ block"); /*block*/{ /*_#IS_PAIR__L3*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.PAIR__V2*/ curfptr[1])) == OBMAG_PAIR);; - BASILYS_LOCATION("warmelt-macro.melt:3610:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3615:/ cond"); /*cond*/ if (/*_#IS_PAIR__L3*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3610:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3615:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3610:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3615:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3610:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3615:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3610:/ locexp"); - basilys_assert_failed(( "check_pair"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3610)?(3610):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3615:/ locexp"); + basilys_assert_failed(( "check_pair"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3615)?(3615):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; @@ -40597,31 +40676,31 @@ BASILYS_LOCATION("warmelt-macro.melt:3607:/ block"); ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3610:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3615:/ clear"); /*clear*/ /*_#IS_PAIR__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3610:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3615:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3610:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3615:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3611:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3616:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3614:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3619:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3614:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3619:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V14*/ curfptr[13] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (2)); ; - BASILYS_LOCATION("warmelt-macro.melt:3614:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3619:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[0] = (basilys_ptr_t)(/*_.ENV__V4*/ curfptr[3]); ; - BASILYS_LOCATION("warmelt-macro.melt:3614:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3619:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13]))); @@ -40629,30 +40708,30 @@ BASILYS_LOCATION("warmelt-macro.melt:3607:/ block"); ; /*_.LAMBDA___V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3611:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3616:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3611:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3616:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[3]); - BASILYS_LOCATION("warmelt-macro.melt:3611:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3616:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V13*/ curfptr[12]; /*_.BODYTUP__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.PAIR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3616:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3621:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3616:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3621:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_PROGN*/ curfrout->tabval[6])), (2), "CLASS_SRC_PROGN");/*_.INST__V17*/ curfptr[16] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3616:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3621:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.LOC__V3*/ curfptr[2]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3616:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3621:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (1), (/*_.BODYTUP__V15*/ curfptr[14]), "SPROGN_BODY"); @@ -40661,73 +40740,73 @@ BASILYS_LOCATION("warmelt-macro.melt:3607:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3620:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3620:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3625:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3625:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3620:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3625:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3620:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3625:/ apply.arg"); argtab[0].bp_cstring = "pairlist_to_progn sprogn"; - BASILYS_LOCATION("warmelt-macro.melt:3620:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3625:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3620:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3625:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3620:/ apply.arg"); - argtab[3].bp_long = 3620; + BASILYS_LOCATION("warmelt-macro.melt:3625:/ apply.arg"); + argtab[3].bp_long = 3625; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.SPROGN__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3620:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3625:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3620:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3625:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3620:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3625:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3621:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3626:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SPROGN__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:3621:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3626:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V20*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3611:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3616:/ clear"); /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3611:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3616:/ clear"); /*clear*/ /*_.BODYTUP__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3611:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3616:/ clear"); /*clear*/ /*_.SPROGN__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3611:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3616:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3611:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3616:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3607:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; - BASILYS_LOCATION("warmelt-macro.melt:3607:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3607:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3607:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3607:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3607:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ clear"); /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} ; @@ -40788,34 +40867,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3614:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3619:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3614:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3619:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3614:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3619:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3614:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3619:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.melt:3614:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3619:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]); /*_.MACROEXPAND_1__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3614:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3619:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:3614:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3619:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3614:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3619:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -40876,25 +40955,25 @@ basilys_trace_start("PAIRLIST_TO_RETURN", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3625:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ getarg"); /*_.PAIR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3625:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.LOC__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.LOC__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3625:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V4*/ curfptr[3])) != NULL); /*getarg#3*/ - BASILYS_LOCATION("warmelt-macro.melt:3625:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V5*/ curfptr[4])) != NULL); @@ -40903,28 +40982,28 @@ basilys_trace_start("PAIRLIST_TO_RETURN", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3625:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3630:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3626:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3626:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3631:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3631:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3626:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3631:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3626:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3631:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3626:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3631:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3626:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3631:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3626:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3626)?(3626):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3631:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3631)?(3631):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; @@ -40934,31 +41013,31 @@ BASILYS_LOCATION("warmelt-macro.melt:3625:/ block"); ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3626:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3631:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3626:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3631:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3626:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3631:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3627:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3632:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3630:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3635:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3630:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3635:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V10*/ curfptr[9] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (2)); ; - BASILYS_LOCATION("warmelt-macro.melt:3630:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3635:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[0] = (basilys_ptr_t)(/*_.ENV__V4*/ curfptr[3]); ; - BASILYS_LOCATION("warmelt-macro.melt:3630:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3635:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9]))); @@ -40966,30 +41045,30 @@ BASILYS_LOCATION("warmelt-macro.melt:3625:/ block"); ; /*_.LAMBDA___V9*/ curfptr[8] = /*_.LAMBDA___V10*/ curfptr[9];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3627:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3632:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3627:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3632:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[2]); - BASILYS_LOCATION("warmelt-macro.melt:3627:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3632:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V9*/ curfptr[8]; /*_.BODYTUP__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.PAIR__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3631:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3636:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3631:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3636:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_RETURN*/ curfrout->tabval[5])), (2), "CLASS_SRC_RETURN");/*_.INST__V13*/ curfptr[12] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3631:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3636:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12]))));basilys_putfield_object((/*_.INST__V13*/ curfptr[12]), (0), (/*_.LOC__V3*/ curfptr[2]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3631:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3636:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V13*/ curfptr[12]))));basilys_putfield_object((/*_.INST__V13*/ curfptr[12]), (1), (/*_.BODYTUP__V11*/ curfptr[10]), "SRETURN_BODY"); @@ -40998,24 +41077,24 @@ BASILYS_LOCATION("warmelt-macro.melt:3625:/ block"); ; /*_.LET___V8*/ curfptr[6] = /*_.INST___V12*/ curfptr[11];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3627:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3632:/ clear"); /*clear*/ /*_.LAMBDA___V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3627:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3632:/ clear"); /*clear*/ /*_.BODYTUP__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3627:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3632:/ clear"); /*clear*/ /*_.INST___V12*/ curfptr[11] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3625:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; - BASILYS_LOCATION("warmelt-macro.melt:3625:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3625:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3625:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; @@ -41076,34 +41155,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3630:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3635:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3630:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3635:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3630:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3635:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3630:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3635:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.melt:3630:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3635:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]); /*_.MACROEXPAND_1__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3630:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3635:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:3630:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3635:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3630:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3635:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -41164,18 +41243,18 @@ basilys_trace_start("MEXPAND_PROGN", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3638:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3643:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3638:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3643:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3638:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3643:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -41184,28 +41263,28 @@ basilys_trace_start("MEXPAND_PROGN", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3638:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3643:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3639:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3639:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3644:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3644:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3639:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3644:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3639:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3644:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3639:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3644:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3639:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3644:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3639:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3639)?(3639):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3644:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3644)?(3644):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -41215,23 +41294,23 @@ BASILYS_LOCATION("warmelt-macro.melt:3638:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3639:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3644:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3639:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3644:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3639:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3644:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3640:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3645:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3640:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3645:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V8*/ curfptr[7] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3642:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3647:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V9*/ curfptr[8] = slot; }; ; @@ -41243,98 +41322,98 @@ BASILYS_LOCATION("warmelt-macro.melt:3638:/ block"); (basilys_magic_discr((basilys_ptr_t)(/*_.PAIRS__V11*/ curfptr[10])) == OBMAG_PAIR);; /*_#NOT__L3*/ curfnum[2] = (!(/*_#IS_PAIR__L2*/ curfnum[0]));; - BASILYS_LOCATION("warmelt-macro.melt:3644:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3649:/ cond"); /*cond*/ if (/*_#NOT__L3*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3644:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3644:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3649:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3649:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3646:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3651:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.SLOC__V8*/ curfptr[7]), ( "empty PROGN"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:3647:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3652:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:3647:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3652:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3645:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3650:/ block"); /*block*/{ /*_.PROGN___V14*/ curfptr[13] = /*_.RETURN___V13*/ curfptr[12];;} ; /*_.IF___V12*/ curfptr[11] = /*_.PROGN___V14*/ curfptr[13];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3644:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3649:/ clear"); /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3644:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3649:/ clear"); /*clear*/ /*_.PROGN___V14*/ curfptr[13] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3644:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3649:/ cond.else"); /*_.IF___V12*/ curfptr[11] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3648:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3653:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3649:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3654:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3649:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3654:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V8*/ curfptr[7]; - BASILYS_LOCATION("warmelt-macro.melt:3649:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3654:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3649:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3654:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.PROGR__V16*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_PROGN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.PAIRS__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3653:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3658:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PROGR__V16*/ curfptr[13];; - BASILYS_LOCATION("warmelt-macro.melt:3653:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3658:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V15*/ curfptr[12] = /*_.RETURN___V17*/ curfptr[16];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3648:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3653:/ clear"); /*clear*/ /*_.PROGR__V16*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3648:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3653:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ;} ; /*_.LET___V7*/ curfptr[5] = /*_.LET___V15*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3640:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3645:/ clear"); /*clear*/ /*_.SLOC__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3640:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3645:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3640:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3645:/ clear"); /*clear*/ /*_.LIST_FIRST__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3640:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3645:/ clear"); /*clear*/ /*_.PAIRS__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3640:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3645:/ clear"); /*clear*/ /*_#IS_PAIR__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3640:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3645:/ clear"); /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3640:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3645:/ clear"); /*clear*/ /*_.IF___V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3640:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3645:/ clear"); /*clear*/ /*_.LET___V15*/ curfptr[12] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3638:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3643:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; - BASILYS_LOCATION("warmelt-macro.melt:3638:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3643:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3638:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3643:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3638:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3643:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; @@ -41395,18 +41474,18 @@ basilys_trace_start("MEXPAND_RETURN", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3659:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3664:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3659:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3664:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3659:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3664:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -41415,28 +41494,28 @@ basilys_trace_start("MEXPAND_RETURN", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3659:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3664:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3660:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3660:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3665:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3665:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3660:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3665:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3660:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3665:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3660:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3665:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3660:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3665:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3660:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3660)?(3660):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3665:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3665)?(3665):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -41446,19 +41525,19 @@ BASILYS_LOCATION("warmelt-macro.melt:3659:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3660:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3665:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3660:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3665:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3660:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3665:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3661:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3666:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3662:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3667:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.SEXP_CONTENTS__V8*/ curfptr[7] = slot; }; ; @@ -41466,56 +41545,56 @@ BASILYS_LOCATION("warmelt-macro.melt:3659:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.SEXP_CONTENTS__V8*/ curfptr[7])));; /*_.PAIR_TAIL__V10*/ curfptr[9] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V9*/ curfptr[8])));; - BASILYS_LOCATION("warmelt-macro.melt:3663:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3668:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V11*/ curfptr[10] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3662:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3667:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3662:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3667:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LOCA_LOCATION__V11*/ curfptr[10]; - BASILYS_LOCATION("warmelt-macro.melt:3662:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3667:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3662:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3667:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.RETR__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_RETURN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.PAIR_TAIL__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3667:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3672:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RETR__V12*/ curfptr[11];; - BASILYS_LOCATION("warmelt-macro.melt:3667:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3672:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V7*/ curfptr[5] = /*_.RETURN___V13*/ curfptr[12];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3661:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3666:/ clear"); /*clear*/ /*_.SEXP_CONTENTS__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3661:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3666:/ clear"); /*clear*/ /*_.LIST_FIRST__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3661:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3666:/ clear"); /*clear*/ /*_.PAIR_TAIL__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3661:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3666:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3661:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3666:/ clear"); /*clear*/ /*_.RETR__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3661:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3666:/ clear"); /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3659:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3664:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; - BASILYS_LOCATION("warmelt-macro.melt:3659:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3664:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3659:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3664:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3659:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3664:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; @@ -41576,18 +41655,18 @@ basilys_trace_start("MEXPAND_FOREVER", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3674:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3674:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3674:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -41596,28 +41675,28 @@ basilys_trace_start("MEXPAND_FOREVER", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3674:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3679:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3675:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3675:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3680:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3680:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3675:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3680:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3675:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3680:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3675:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3680:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3675:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3680:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3675:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3675)?(3675):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3680:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3680)?(3680):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -41627,23 +41706,23 @@ BASILYS_LOCATION("warmelt-macro.melt:3674:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3675:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3680:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3675:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3680:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3675:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3680:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3676:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3676:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V8*/ curfptr[7] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3677:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3682:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V9*/ curfptr[8] = slot; }; ; @@ -41653,110 +41732,110 @@ BASILYS_LOCATION("warmelt-macro.melt:3674:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V10*/ curfptr[9])));; /*_.SLABNAM__V12*/ curfptr[11] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10])));; - BASILYS_LOCATION("warmelt-macro.melt:3680:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3685:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3680:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3685:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3680:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3685:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.XLABNAM__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.SLABNAM__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3681:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3686:/ apply"); /*apply*/{ /*_.NEWENV__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; /*_#IS_NOT_A__L2*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.XLABNAM__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:3683:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3688:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3683:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3683:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3688:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3688:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3685:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3690:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V9*/ curfptr[8]), ( "missing label in FOREVER"), (basilys_ptr_t)0);} ; /*_.THE_NULL__V16*/ curfptr[15] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3686:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3691:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:3686:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3691:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3684:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3689:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[16];;} ; /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3683:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3688:/ clear"); /*clear*/ /*_.THE_NULL__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3683:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3688:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3683:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3688:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3683:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3688:/ cond.else"); /*_.IF___V15*/ curfptr[14] = NULL;; } ; /*_.PAIR_TAIL__V19*/ curfptr[15] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10])));; - BASILYS_LOCATION("warmelt-macro.melt:3687:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3692:/ compute"); /*_.CURPAIR__V11*/ curfptr[10] = /*_.SETQ___V20*/ curfptr[16] = /*_.PAIR_TAIL__V19*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:3688:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3693:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3688:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3693:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3688:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3693:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[4])), (4), "CLASS_LABEL_BINDING");/*_.INST__V23*/ curfptr[22] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3688:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3693:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (0), (/*_.XLABNAM__V13*/ curfptr[12]), "BINDER"); ; - BASILYS_LOCATION("warmelt-macro.melt:3688:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3693:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V23*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V23*/ curfptr[22]), (1), (/*_.LOC__V9*/ curfptr[8]), "LABIND_LOC"); ; /*_.LABIND__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3691:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3696:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3691:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3696:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LABIND__V22*/ curfptr[21]; /*_.PUT_ENV__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3692:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3697:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3695:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3700:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3695:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3700:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V27*/ curfptr[26] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2)); ; - BASILYS_LOCATION("warmelt-macro.melt:3695:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3700:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V27*/ curfptr[26])->tabval[0] = (basilys_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]); ; - BASILYS_LOCATION("warmelt-macro.melt:3695:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3700:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V27*/ curfptr[26])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V27*/ curfptr[26]))); @@ -41764,106 +41843,106 @@ BASILYS_LOCATION("warmelt-macro.melt:3674:/ block"); ; /*_.LAMBDA___V26*/ curfptr[25] = /*_.LAMBDA___V27*/ curfptr[26];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3692:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3697:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3692:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3697:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]); - BASILYS_LOCATION("warmelt-macro.melt:3692:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3697:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V26*/ curfptr[25]; /*_.BODYTUP__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3697:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3702:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3697:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3702:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_FOREVER*/ curfrout->tabval[10])), (3), "CLASS_SRC_FOREVER");/*_.INST__V30*/ curfptr[29] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3697:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3702:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (0), (/*_.LOC__V9*/ curfptr[8]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3697:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3702:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (1), (/*_.LABIND__V22*/ curfptr[21]), "SLABEL_BIND"); ; - BASILYS_LOCATION("warmelt-macro.melt:3697:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3702:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (2), (/*_.BODYTUP__V28*/ curfptr[27]), "SFRV_BODY"); ; /*_.FORR__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3702:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3707:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.FORR__V29*/ curfptr[28];; - BASILYS_LOCATION("warmelt-macro.melt:3702:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3707:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V25*/ curfptr[24] = /*_.RETURN___V31*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3692:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3697:/ clear"); /*clear*/ /*_.LAMBDA___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3692:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3697:/ clear"); /*clear*/ /*_.BODYTUP__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3692:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3697:/ clear"); /*clear*/ /*_.FORR__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3692:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3697:/ clear"); /*clear*/ /*_.RETURN___V31*/ curfptr[30] = 0 ;} ; /*_.LET___V21*/ curfptr[17] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3688:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3693:/ clear"); /*clear*/ /*_.LABIND__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3688:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3693:/ clear"); /*clear*/ /*_.PUT_ENV__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3688:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3693:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; /*_.LET___V7*/ curfptr[5] = /*_.LET___V21*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ clear"); /*clear*/ /*_.CONT__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ clear"); /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ clear"); /*clear*/ /*_.LIST_FIRST__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ clear"); /*clear*/ /*_.CURPAIR__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ clear"); /*clear*/ /*_.SLABNAM__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ clear"); /*clear*/ /*_.XLABNAM__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ clear"); /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ clear"); /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ clear"); /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3676:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3681:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[17] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3674:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; - BASILYS_LOCATION("warmelt-macro.melt:3674:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3674:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3674:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; @@ -41924,34 +42003,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3695:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3700:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3695:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3700:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3695:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3700:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3695:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3700:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.melt:3695:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3700:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]); /*_.MACROEXPAND_1__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3695:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3700:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:3695:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3700:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3695:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3700:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -42012,18 +42091,18 @@ basilys_trace_start("MEXPAND_EXIT", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3708:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3708:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3708:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -42032,28 +42111,28 @@ basilys_trace_start("MEXPAND_EXIT", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3708:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3713:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3709:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3709:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3714:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3714:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3709:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3714:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3709:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3714:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3709:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3714:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3709:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3714:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3709:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3709)?(3709):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3714:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3714)?(3714):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -42063,23 +42142,23 @@ BASILYS_LOCATION("warmelt-macro.melt:3708:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3709:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3714:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3709:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3714:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3709:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3714:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3710:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3710:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V8*/ curfptr[7] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3711:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3716:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V9*/ curfptr[8] = slot; }; ; @@ -42089,136 +42168,136 @@ BASILYS_LOCATION("warmelt-macro.melt:3708:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V10*/ curfptr[9])));; /*_.SLABNAM__V12*/ curfptr[11] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10])));; - BASILYS_LOCATION("warmelt-macro.melt:3714:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3719:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3714:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3719:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3714:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3719:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.XLABNAM__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.SLABNAM__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3715:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3720:/ apply"); /*apply*/{ /*_.NEWENV__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; /*_#IS_NOT_A__L2*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.XLABNAM__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; - BASILYS_LOCATION("warmelt-macro.melt:3717:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3722:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3717:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3717:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3722:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3722:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3719:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3724:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V9*/ curfptr[8]), ( "missing label in EXIT"), (basilys_ptr_t)0);} ; /*_.THE_NULL__V16*/ curfptr[15] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3720:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3725:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:3720:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3725:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3718:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3723:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.RETURN___V17*/ curfptr[16];;} ; /*_.IF___V15*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3717:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3722:/ clear"); /*clear*/ /*_.THE_NULL__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3717:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3722:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3717:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3722:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3717:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3722:/ cond.else"); /*_.IF___V15*/ curfptr[14] = NULL;; } ; /*_.PAIR_TAIL__V19*/ curfptr[15] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10])));; - BASILYS_LOCATION("warmelt-macro.melt:3721:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3726:/ compute"); /*_.CURPAIR__V11*/ curfptr[10] = /*_.SETQ___V20*/ curfptr[16] = /*_.PAIR_TAIL__V19*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:3722:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3727:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3722:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3727:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3722:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3727:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.XLABNAM__V13*/ curfptr[12]; /*_.LABIND__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_NOT_A__L3*/ curfnum[2] = !basilys_is_instance_of((basilys_ptr_t)(/*_.LABIND__V22*/ curfptr[21]), (basilys_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[5])));; - BASILYS_LOCATION("warmelt-macro.melt:3723:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3728:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[2]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3723:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3723:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3728:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3728:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3726:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3731:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.XLABNAM__V13*/ curfptr[12]), 1, "NAMED_NAME");/*_.NAMED_NAME__V24*/ curfptr[23] = slot; }; ; { - BASILYS_LOCATION("warmelt-macro.melt:3725:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3730:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V9*/ curfptr[8]), ( "bad label in EXIT"), (basilys_ptr_t)(/*_.NAMED_NAME__V24*/ curfptr[23]));} ; /*_.THE_NULL__V25*/ curfptr[24] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3727:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3732:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V25*/ curfptr[24];; - BASILYS_LOCATION("warmelt-macro.melt:3727:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3732:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3724:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3729:/ block"); /*block*/{ /*_.PROGN___V27*/ curfptr[26] = /*_.RETURN___V26*/ curfptr[25];;} ; /*_.IF___V23*/ curfptr[22] = /*_.PROGN___V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3723:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3728:/ clear"); /*clear*/ /*_.NAMED_NAME__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3723:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3728:/ clear"); /*clear*/ /*_.THE_NULL__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3723:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3728:/ clear"); /*clear*/ /*_.RETURN___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3723:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3728:/ clear"); /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3723:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3728:/ cond.else"); /*_.IF___V23*/ curfptr[22] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3728:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3733:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3731:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3736:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3731:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3736:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[25] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2)); ; - BASILYS_LOCATION("warmelt-macro.melt:3731:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3736:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V30*/ curfptr[25])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V30*/ curfptr[25]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[25])->tabval[0] = (basilys_ptr_t)(/*_.NEWENV__V14*/ curfptr[13]); ; - BASILYS_LOCATION("warmelt-macro.melt:3731:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3736:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V30*/ curfptr[25])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V30*/ curfptr[25]))); @@ -42226,108 +42305,108 @@ BASILYS_LOCATION("warmelt-macro.melt:3708:/ block"); ; /*_.LAMBDA___V29*/ curfptr[24] = /*_.LAMBDA___V30*/ curfptr[25];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3728:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3733:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3728:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3733:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[7]); - BASILYS_LOCATION("warmelt-macro.melt:3728:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3733:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[24]; /*_.BODYTUP__V31*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.CURPAIR__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3733:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3738:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3733:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3738:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_EXIT*/ curfrout->tabval[10])), (3), "CLASS_SRC_EXIT");/*_.INST__V33*/ curfptr[32] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3733:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3738:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (0), (/*_.LOC__V9*/ curfptr[8]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3733:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3738:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.LABIND__V22*/ curfptr[21]), "SLABEL_BIND"); ; - BASILYS_LOCATION("warmelt-macro.melt:3733:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3738:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.BODYTUP__V31*/ curfptr[26]), "SEXI_BODY"); ; /*_.EXR__V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3738:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3743:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.EXR__V32*/ curfptr[31];; - BASILYS_LOCATION("warmelt-macro.melt:3738:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3743:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V28*/ curfptr[23] = /*_.RETURN___V34*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3728:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3733:/ clear"); /*clear*/ /*_.LAMBDA___V29*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3728:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3733:/ clear"); /*clear*/ /*_.BODYTUP__V31*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3728:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3733:/ clear"); /*clear*/ /*_.EXR__V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3728:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3733:/ clear"); /*clear*/ /*_.RETURN___V34*/ curfptr[33] = 0 ;} ; /*_.LET___V21*/ curfptr[17] = /*_.LET___V28*/ curfptr[23];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3722:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3727:/ clear"); /*clear*/ /*_.LABIND__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3722:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3727:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[2] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3722:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3727:/ clear"); /*clear*/ /*_.IF___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3722:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3727:/ clear"); /*clear*/ /*_.LET___V28*/ curfptr[23] = 0 ;} ; /*_.LET___V7*/ curfptr[5] = /*_.LET___V21*/ curfptr[17];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3710:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ clear"); /*clear*/ /*_.CONT__V8*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3710:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ clear"); /*clear*/ /*_.LOC__V9*/ curfptr[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3710:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ clear"); /*clear*/ /*_.LIST_FIRST__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3710:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ clear"); /*clear*/ /*_.CURPAIR__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3710:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ clear"); /*clear*/ /*_.SLABNAM__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3710:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ clear"); /*clear*/ /*_.XLABNAM__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3710:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ clear"); /*clear*/ /*_.NEWENV__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3710:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ clear"); /*clear*/ /*_#IS_NOT_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3710:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ clear"); /*clear*/ /*_.IF___V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3710:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3710:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3710:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3715:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[17] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3708:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; - BASILYS_LOCATION("warmelt-macro.melt:3708:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3708:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3708:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; @@ -42388,34 +42467,34 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3731:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3736:/ getarg"); /*_.E__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3731:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3736:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3731:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3736:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3731:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3736:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.melt:3731:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3736:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]); /*_.MACROEXPAND_1__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.E__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3731:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3736:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MACROEXPAND_1__V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:3731:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3736:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3731:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3736:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V3*/ curfptr[2] = 0 ;} ; @@ -42476,18 +42555,18 @@ basilys_trace_start("MEXPAND_COMPILE_WARNING", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3746:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3751:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3746:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3751:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3746:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3751:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -42496,28 +42575,28 @@ basilys_trace_start("MEXPAND_COMPILE_WARNING", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3746:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3751:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3747:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3747:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3752:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3752:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3747:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3752:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3747:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3752:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3747:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3752:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3747:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3752:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3747:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3747)?(3747):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3752:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3752)?(3752):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -42527,57 +42606,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3746:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3747:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3752:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3747:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3752:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3747:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3752:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3748:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3748:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3753:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3753:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3748:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3753:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3748:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3753:/ apply.arg"); argtab[0].bp_cstring = "mexpand_compile_warning sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3748:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3753:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3748:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3753:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3748:/ apply.arg"); - argtab[3].bp_long = 3748; + BASILYS_LOCATION("warmelt-macro.melt:3753:/ apply.arg"); + argtab[3].bp_long = 3753; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3748:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3753:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3748:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3753:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3748:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3753:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3749:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3749:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V10*/ curfptr[9] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3750:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3755:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V11*/ curfptr[10] = slot; }; ; @@ -42587,13 +42666,13 @@ BASILYS_LOCATION("warmelt-macro.melt:3746:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V12*/ curfptr[11])));; /*_.SMSG__V14*/ curfptr[13] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:3753:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3758:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3753:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3758:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3753:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3758:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.XMSG__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SMSG__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -42602,102 +42681,102 @@ BASILYS_LOCATION("warmelt-macro.melt:3746:/ block"); (basilys_magic_discr((basilys_ptr_t)(/*_.XMSG__V15*/ curfptr[14])) == OBMAG_STRING);; /*_#NOT__L4*/ curfnum[3] = (!(/*_#IS_STRING__L3*/ curfnum[0]));; - BASILYS_LOCATION("warmelt-macro.melt:3755:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3760:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3755:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3755:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3760:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3760:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3757:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3762:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "missing message string in (COMPILE_WARNING <msg> <exp>)"), (basilys_ptr_t)0);} ; /*_.THE_NULL__V17*/ curfptr[16] = (NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3758:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3763:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V17*/ curfptr[16];; - BASILYS_LOCATION("warmelt-macro.melt:3758:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3763:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3756:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3761:/ block"); /*block*/{ /*_.PROGN___V19*/ curfptr[18] = /*_.RETURN___V18*/ curfptr[17];;} ; /*_.IF___V16*/ curfptr[15] = /*_.PROGN___V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3755:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3760:/ clear"); /*clear*/ /*_.THE_NULL__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3755:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3760:/ clear"); /*clear*/ /*_.RETURN___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3755:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3760:/ clear"); /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3755:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3760:/ cond.else"); /*_.IF___V16*/ curfptr[15] = NULL;; } ; /*_.PAIR_TAIL__V20*/ curfptr[16] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:3759:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3764:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V21*/ curfptr[17] = /*_.PAIR_TAIL__V20*/ curfptr[16];; - BASILYS_LOCATION("warmelt-macro.melt:3760:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3765:/ block"); /*block*/{ /*_.SEXP__V23*/ curfptr[22] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:3761:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3766:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3761:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3766:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3761:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3766:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.XEXP__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXP__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.PAIR_TAIL__V25*/ curfptr[24] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V13*/ curfptr[12])));; - BASILYS_LOCATION("warmelt-macro.melt:3763:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3768:/ compute"); /*_.CURPAIR__V13*/ curfptr[12] = /*_.SETQ___V26*/ curfptr[25] = /*_.PAIR_TAIL__V25*/ curfptr[24];; /*_#NOTNULL__L5*/ curfnum[4] = ((/*_.CURPAIR__V13*/ curfptr[12]) != NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3764:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3769:/ cond"); /*cond*/ if (/*_#NOTNULL__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3764:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3764:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3769:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3769:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3765:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3770:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V11*/ curfptr[10]), ( "too many arguments in (COMPILE_WARNING <msg> <exp>)"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3766:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3771:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3766:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3771:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3766:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3771:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_COMPILEWARNING*/ curfrout->tabval[3])), (3), "CLASS_SRC_COMPILEWARNING");/*_.INST__V29*/ curfptr[28] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3766:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3771:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V29*/ curfptr[28]), (0), (/*_.LOC__V11*/ curfptr[10]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3766:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3771:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V29*/ curfptr[28]), (1), (/*_.XMSG__V15*/ curfptr[14]), "SCWARN_MSG"); ; - BASILYS_LOCATION("warmelt-macro.melt:3766:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3771:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V29*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V29*/ curfptr[28]), (2), (/*_.XEXP__V24*/ curfptr[23]), "SCWARN_EXPR"); @@ -42706,109 +42785,109 @@ BASILYS_LOCATION("warmelt-macro.melt:3746:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3772:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3772:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3777:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3777:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3772:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3777:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3772:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3777:/ apply.arg"); argtab[0].bp_cstring = "mexpand_compile_warning result"; - BASILYS_LOCATION("warmelt-macro.melt:3772:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3777:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; - BASILYS_LOCATION("warmelt-macro.melt:3772:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3777:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3772:/ apply.arg"); - argtab[3].bp_long = 3772; + BASILYS_LOCATION("warmelt-macro.melt:3777:/ apply.arg"); + argtab[3].bp_long = 3777; /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RES__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V30*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3772:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3777:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3772:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3777:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3772:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3777:/ cppif.else"); /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3773:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3778:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V28*/ curfptr[27];; - BASILYS_LOCATION("warmelt-macro.melt:3773:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3778:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V27*/ curfptr[26] = /*_.RETURN___V32*/ curfptr[30];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3766:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3771:/ clear"); /*clear*/ /*_.RES__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3766:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3771:/ clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3766:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3771:/ clear"); /*clear*/ /*_.RETURN___V32*/ curfptr[30] = 0 ;} ; /*_.LET___V22*/ curfptr[18] = /*_.LET___V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3760:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3765:/ clear"); /*clear*/ /*_.SEXP__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3760:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3765:/ clear"); /*clear*/ /*_.XEXP__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3760:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3765:/ clear"); /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3760:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3765:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3760:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3765:/ clear"); /*clear*/ /*_#NOTNULL__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3760:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3765:/ clear"); /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;} ; /*_.LET___V9*/ curfptr[7] = /*_.LET___V22*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3749:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ clear"); /*clear*/ /*_.CONT__V10*/ curfptr[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3749:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ clear"); /*clear*/ /*_.LOC__V11*/ curfptr[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3749:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ clear"); /*clear*/ /*_.LIST_FIRST__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3749:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ clear"); /*clear*/ /*_.CURPAIR__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3749:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ clear"); /*clear*/ /*_.SMSG__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3749:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ clear"); /*clear*/ /*_.XMSG__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3749:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ clear"); /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3749:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3749:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3749:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ clear"); /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3749:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ clear"); /*clear*/ /*_.SETQ___V21*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3749:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3754:/ clear"); /*clear*/ /*_.LET___V22*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3746:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3751:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; - BASILYS_LOCATION("warmelt-macro.melt:3746:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3751:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3746:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3751:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3746:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3751:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3746:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3751:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; @@ -42869,18 +42948,18 @@ basilys_trace_start("MEXPAND_ASSERT_MSG", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3785:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3785:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3785:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -42889,28 +42968,28 @@ basilys_trace_start("MEXPAND_ASSERT_MSG", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3785:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3790:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3786:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3786:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3791:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3791:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3786:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3791:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3786:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3791:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3786:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3791:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3786:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3791:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3786:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3786)?(3786):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3791:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3791)?(3791):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -42920,36 +42999,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3785:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3786:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3791:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3786:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3791:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3786:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3791:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3787:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3787:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3792:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3792:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3787:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3792:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3787:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3792:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3787:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3792:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3787:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3792:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3787:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3787)?(3787):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3792:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3792)?(3792):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -42959,57 +43038,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3785:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3787:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3792:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3787:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3792:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3787:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3792:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3788:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3788:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3793:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3793:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3788:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3793:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3788:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3793:/ apply.arg"); argtab[0].bp_cstring = "mexpand_assert_msg sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3788:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3793:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3788:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3793:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3788:/ apply.arg"); - argtab[3].bp_long = 3788; + BASILYS_LOCATION("warmelt-macro.melt:3793:/ apply.arg"); + argtab[3].bp_long = 3793; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3788:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3793:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3788:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3793:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3788:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3793:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3790:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3795:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3791:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3796:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -43019,24 +43098,24 @@ BASILYS_LOCATION("warmelt-macro.melt:3785:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; /*_.PAIR_HEAD__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3793:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3798:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3793:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3798:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3793:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3798:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.XMSG__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.XTEST__V18*/ curfptr[17] = (/*nil*/NULL);; /*_.ASSFAIL_SYMB__V19*/ curfptr[18] = (/*!konst_4_ASSERT_FAILED*/ curfrout->tabval[4]);; - BASILYS_LOCATION("warmelt-macro.melt:3796:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3801:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3796:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3801:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ASSFAIL_SYMB__V19*/ curfptr[18]; /*_.ASSFAIL_BINDING__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -43045,14 +43124,14 @@ BASILYS_LOCATION("warmelt-macro.melt:3785:/ block"); (basilys_magic_discr((basilys_ptr_t)(/*_.XMSG__V17*/ curfptr[16])) == OBMAG_STRING);; /*_#NOT__L5*/ curfnum[4] = (!(/*_#IS_STRING__L4*/ curfnum[0]));; - BASILYS_LOCATION("warmelt-macro.melt:3798:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3803:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3798:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3798:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3803:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3803:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3799:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3804:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "non string message in (ASSERT_MSG <msg> <test>)"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -43061,20 +43140,20 @@ BASILYS_LOCATION("warmelt-macro.melt:3785:/ block"); ; /*_.PAIR_TAIL__V21*/ curfptr[20] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3800:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3805:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V22*/ curfptr[21] = /*_.PAIR_TAIL__V21*/ curfptr[20];; /*_#IS_PAIR__L6*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; /*_#NOT__L7*/ curfnum[6] = (!(/*_#IS_PAIR__L6*/ curfnum[5]));; - BASILYS_LOCATION("warmelt-macro.melt:3801:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3806:/ cond"); /*cond*/ if (/*_#NOT__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3801:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3801:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3806:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3806:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3802:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3807:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing test in (ASSERT_MSG <msg> <test>)"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -43083,218 +43162,218 @@ BASILYS_LOCATION("warmelt-macro.melt:3785:/ block"); ; /*_.PAIR_HEAD__V23*/ curfptr[22] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3803:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3808:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3803:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3808:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3803:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3808:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3803:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3808:/ compute"); /*_.XTEST__V18*/ curfptr[17] = /*_.SETQ___V25*/ curfptr[24] = /*_.MACROEXPAND_1__V24*/ curfptr[23];; /*_.PAIR_TAIL__V26*/ curfptr[25] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3804:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3809:/ cond"); /*cond*/ if (/*_.PAIR_TAIL__V26*/ curfptr[25]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3804:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3804:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3809:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3809:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3805:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3810:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "extra arg for (ASSERT_MSG <msg> <test>)"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3806:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3811:/ block"); /*block*/{ /*_#NULL__L8*/ curfnum[7] = ((/*_.ASSFAIL_BINDING__V20*/ curfptr[19]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3809:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ cond"); /*cond*/ if (/*_#NULL__L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3809:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3809:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3810:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3815:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "unbound ASSERT_FAILED in (ASSERT_MSG <msg> <test>)"), (basilys_ptr_t)0);} ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3811:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3811:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3816:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3816:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3811:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3816:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3811:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3816:/ apply.arg"); argtab[0].bp_cstring = "mexpand_assert_msg env without assert_failed"; - BASILYS_LOCATION("warmelt-macro.melt:3811:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3816:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.melt:3811:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3816:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3811:/ apply.arg"); - argtab[3].bp_long = 3811; + BASILYS_LOCATION("warmelt-macro.melt:3816:/ apply.arg"); + argtab[3].bp_long = 3816; /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V29*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3816:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3816:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3811:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3816:/ cppif.else"); /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3812:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3812:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3817:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3817:/ block"); /*block*/{ /*_.DISCRIM__V32*/ curfptr[31] = (basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])));; /*_#THE_CALLCOUNT__L10*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3812:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3817:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3812:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3817:/ apply.arg"); argtab[0].bp_cstring = "mexpand_assert_msg env\'s class without assert_failed"; - BASILYS_LOCATION("warmelt-macro.melt:3812:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3817:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.melt:3812:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3817:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3812:/ apply.arg"); - argtab[3].bp_long = 3812; + BASILYS_LOCATION("warmelt-macro.melt:3817:/ apply.arg"); + argtab[3].bp_long = 3817; /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.DISCRIM__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V31*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3812:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3817:/ clear"); /*clear*/ /*_.DISCRIM__V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3812:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3817:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3812:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3817:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3812:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3817:/ cppif.else"); /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3813:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3813:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3818:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3818:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3813:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3818:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3813:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3818:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ASSFAIL_SYMB__V19*/ curfptr[18]; /*_.FIND_ENV_DEBUG__V35*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV_DEBUG*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#THE_CALLCOUNT__L11*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3813:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3818:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3813:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3818:/ apply.arg"); argtab[0].bp_cstring = "mexpand_assert_msg findenvdbg give"; - BASILYS_LOCATION("warmelt-macro.melt:3813:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3818:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.melt:3813:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3818:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3813:/ apply.arg"); - argtab[3].bp_long = 3813; + BASILYS_LOCATION("warmelt-macro.melt:3818:/ apply.arg"); + argtab[3].bp_long = 3818; /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.FIND_ENV_DEBUG__V35*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V34*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3813:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3818:/ clear"); /*clear*/ /*_.FIND_ENV_DEBUG__V35*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3813:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3818:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3813:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3818:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3813:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3818:/ cppif.else"); /*_.IFCPP___V34*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3814:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3814:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3819:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3819:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3814:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3819:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3814:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3819:/ apply.arg"); argtab[0].bp_cstring = "mexpand_assert_msg ASSERT_FAILED symbol"; - BASILYS_LOCATION("warmelt-macro.melt:3814:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3819:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.melt:3814:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3819:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3814:/ apply.arg"); - argtab[3].bp_long = 3814; + BASILYS_LOCATION("warmelt-macro.melt:3819:/ apply.arg"); + argtab[3].bp_long = 3819; /*_.DEBUG_MSG_FUN__V38*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ASSFAIL_SYMB__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V37*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3814:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3819:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3814:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3819:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3814:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3819:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3815:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3815:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3820:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3820:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3815:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3820:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3815:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3820:/ cond.then"); /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3815:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3820:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3815:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3820:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3815:/ locexp"); - basilys_assert_failed(( "assfail_binding nul! @@"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3815)?(3815):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3820:/ locexp"); + basilys_assert_failed(( "assfail_binding nul! @@"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3820)?(3820):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} ; @@ -43304,74 +43383,74 @@ BASILYS_LOCATION("warmelt-macro.melt:3785:/ block"); ; /*_.IFCPP___V39*/ curfptr[35] = /*_.IFELSE___V40*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3815:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3820:/ clear"); /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3815:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3820:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3816:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3821:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:3816:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3821:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3809:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ block"); /*block*/{ /*_.PROGN___V42*/ curfptr[41] = /*_.RETURN___V41*/ curfptr[39];;} ; /*_.AFPRIM__V28*/ curfptr[27] = /*_.PROGN___V42*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3809:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3809:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3809:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3809:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3809:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3809:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ clear"); /*clear*/ /*_.RETURN___V41*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3809:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ clear"); /*clear*/ /*_.PROGN___V42*/ curfptr[41] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3809:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3814:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3809:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ block"); /*block*/{ /*_#IS_A__L13*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ curfrout->tabval[7])));; - BASILYS_LOCATION("warmelt-macro.melt:3817:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3822:/ cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3817:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3817:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3822:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3822:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3818:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3823:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), 3, "PBIND_PRIMITIVE");/*_.PBIND_PRIMITIVE__V44*/ curfptr[29] = slot; }; ; /*_.IFELSE___V43*/ curfptr[28] = /*_.PBIND_PRIMITIVE__V44*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3817:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3822:/ clear"); /*clear*/ /*_.PBIND_PRIMITIVE__V44*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3817:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3822:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3817:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3822:/ block"); /*block*/{ /*_#IS_A__L14*/ curfnum[13] = basilys_is_instance_of((basilys_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[8])));; - BASILYS_LOCATION("warmelt-macro.melt:3819:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3824:/ cond"); /*cond*/ if (/*_#IS_A__L14*/ curfnum[13]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3819:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3819:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3824:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3824:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3820:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3825:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V45*/ curfptr[31] = slot; }; ; @@ -43379,157 +43458,157 @@ BASILYS_LOCATION("warmelt-macro.melt:3785:/ block"); basilys_is_instance_of((basilys_ptr_t)(/*_.VBIND_VALUE__V45*/ curfptr[31]), (basilys_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[9])));; /*_#IF___L15*/ curfnum[14] = /*_#IS_A__L16*/ curfnum[15];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3819:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3824:/ clear"); /*clear*/ /*_.VBIND_VALUE__V45*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3819:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3824:/ clear"); /*clear*/ /*_#IS_A__L16*/ curfnum[15] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3819:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3824:/ cond.else"); /*_#IF___L15*/ curfnum[14] = 0;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3819:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3824:/ cond"); /*cond*/ if (/*_#IF___L15*/ curfnum[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3819:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3819:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3824:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3824:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3822:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3827:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V47*/ curfptr[35] = slot; }; ; /*_.IFELSE___V46*/ curfptr[32] = /*_.VBIND_VALUE__V47*/ curfptr[35];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3819:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3824:/ clear"); /*clear*/ /*_.VBIND_VALUE__V47*/ curfptr[35] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3819:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3824:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3819:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3824:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3824:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3824:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3829:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3829:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[15] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3824:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3829:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3824:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3829:/ apply.arg"); argtab[0].bp_cstring = "bad assfail_binding"; - BASILYS_LOCATION("warmelt-macro.melt:3824:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3829:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[15]; - BASILYS_LOCATION("warmelt-macro.melt:3824:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3829:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3824:/ apply.arg"); - argtab[3].bp_long = 3824; + BASILYS_LOCATION("warmelt-macro.melt:3829:/ apply.arg"); + argtab[3].bp_long = 3829; /*_.DEBUG_MSG_FUN__V49*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ASSFAIL_BINDING__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V48*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V49*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3829:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3824:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3829:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3824:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3829:/ cppif.else"); /*_.IFCPP___V48*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { - BASILYS_LOCATION("warmelt-macro.melt:3825:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3830:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "ASSERT_FAILED not bound to a primitive in (ASSERT_MSG <msg> <test>)"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:3826:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3831:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; - BASILYS_LOCATION("warmelt-macro.melt:3826:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3831:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3823:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3828:/ block"); /*block*/{ /*_.PROGN___V51*/ curfptr[31] = /*_.RETURN___V50*/ curfptr[29];;} ; /*_.IFELSE___V46*/ curfptr[32] = /*_.PROGN___V51*/ curfptr[31];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3819:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3824:/ clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3819:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3824:/ clear"); /*clear*/ /*_.RETURN___V50*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3819:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3824:/ clear"); /*clear*/ /*_.PROGN___V51*/ curfptr[31] = 0 ;} ; } ; /*_.IFELSE___V43*/ curfptr[28] = /*_.IFELSE___V46*/ curfptr[32];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3817:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3822:/ clear"); /*clear*/ /*_#IS_A__L14*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3817:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3822:/ clear"); /*clear*/ /*_#IF___L15*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3817:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3822:/ clear"); /*clear*/ /*_.IFELSE___V46*/ curfptr[32] = 0 ;} ; } ; /*_.AFPRIM__V28*/ curfptr[27] = /*_.IFELSE___V43*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3809:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3809:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3814:/ clear"); /*clear*/ /*_.IFELSE___V43*/ curfptr[28] = 0 ;} ; } ; /*_#IS_MIXINT__L18*/ curfnum[15] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXINT);; - BASILYS_LOCATION("warmelt-macro.melt:3829:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3834:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L18*/ curfnum[15]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3829:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3829:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3834:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3834:/ block"); /*block*/{ /*_.MIXINT_VAL__V53*/ curfptr[41] = (basilys_val_mixint((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12])));; /*_.FILNAM__V52*/ curfptr[35] = /*_.MIXINT_VAL__V53*/ curfptr[41];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3829:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3834:/ clear"); /*clear*/ /*_.MIXINT_VAL__V53*/ curfptr[41] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3829:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3834:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3829:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3834:/ block"); /*block*/{ /*_#IS_MIXLOC__L19*/ curfnum[13] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXLOC);; - BASILYS_LOCATION("warmelt-macro.melt:3830:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3835:/ cond"); /*cond*/ if (/*_#IS_MIXLOC__L19*/ curfnum[13]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3830:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3830:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3835:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3835:/ block"); /*block*/{ /*_.MIXLOC_VAL__V55*/ curfptr[29] = (basilys_val_mixloc((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12])));; /*_.IFELSE___V54*/ curfptr[39] = /*_.MIXLOC_VAL__V55*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3830:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3835:/ clear"); /*clear*/ /*_.MIXLOC_VAL__V55*/ curfptr[29] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3830:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3835:/ cond.else"); /*_.IFELSE___V54*/ curfptr[39] = NULL;; } ; /*_.FILNAM__V52*/ curfptr[35] = /*_.IFELSE___V54*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3829:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3834:/ clear"); /*clear*/ /*_#IS_MIXLOC__L19*/ curfnum[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3829:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3834:/ clear"); /*clear*/ /*_.IFELSE___V54*/ curfptr[39] = 0 ;} ; } @@ -43540,82 +43619,82 @@ BASILYS_LOCATION("warmelt-macro.melt:3785:/ block"); (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[12])), (/*_#GET_INT__L20*/ curfnum[14])));; /*_.MAKE_TUPLE3__V57*/ curfptr[32] = (basilysgc_new_mult3((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.XMSG__V17*/ curfptr[16]), (basilys_ptr_t)(/*_.FILNAM__V52*/ curfptr[35]), (basilys_ptr_t)(/*_.MAKE_INTEGERBOX__V56*/ curfptr[31])));; - BASILYS_LOCATION("warmelt-macro.melt:3831:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3836:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3831:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3836:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_PRIMITIVE*/ curfrout->tabval[10])), (3), "CLASS_SRC_PRIMITIVE");/*_.INST__V59*/ curfptr[41] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3831:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3836:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[41])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[41]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[41]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3831:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3836:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[41])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[41]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[41]), (1), (/*_.AFPRIM__V28*/ curfptr[27]), "SPRIM_OPER"); ; - BASILYS_LOCATION("warmelt-macro.melt:3831:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3836:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[41])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[41]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[41]), (2), (/*_.MAKE_TUPLE3__V57*/ curfptr[32]), "SPRIM_ARGS"); ; /*_.APRIM__V58*/ curfptr[28] = /*_.INST__V59*/ curfptr[41];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3839:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3844:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3839:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3844:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_IFELSE*/ curfrout->tabval[13])), (4), "CLASS_SRC_IFELSE");/*_.INST__V61*/ curfptr[39] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3839:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3844:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V61*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V61*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V61*/ curfptr[39]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3839:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3844:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V61*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V61*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V61*/ curfptr[39]), (1), (/*_.XTEST__V18*/ curfptr[17]), "SIF_TEST"); ; - BASILYS_LOCATION("warmelt-macro.melt:3839:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3844:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V61*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V61*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V61*/ curfptr[39]), (2), ((/*nil*/NULL)), "SIF_THEN"); ; - BASILYS_LOCATION("warmelt-macro.melt:3839:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3844:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V61*/ curfptr[39])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V61*/ curfptr[39]))));basilys_putfield_object((/*_.INST__V61*/ curfptr[39]), (3), (/*_.APRIM__V58*/ curfptr[28]), "SIF_ELSE"); ; /*_.ATEST__V60*/ curfptr[29] = /*_.INST__V61*/ curfptr[39];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3845:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3850:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3845:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3850:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_CPPIF*/ curfrout->tabval[14])), (4), "CLASS_SRC_CPPIF");/*_.INST__V63*/ curfptr[62] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3845:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3850:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3845:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3850:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), ((/*!konst_15_ENABLE_CHECKING*/ curfrout->tabval[15])), "SIFP_COND"); ; - BASILYS_LOCATION("warmelt-macro.melt:3845:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3850:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (2), (/*_.ATEST__V60*/ curfptr[29]), "SIFP_THEN"); ; - BASILYS_LOCATION("warmelt-macro.melt:3845:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3850:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (3), ((/*nil*/NULL)), "SIFP_ELSE"); @@ -43624,130 +43703,130 @@ BASILYS_LOCATION("warmelt-macro.melt:3785:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3852:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3852:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3857:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3857:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L21*/ curfnum[8] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3852:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3857:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3852:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3857:/ apply.arg"); argtab[0].bp_cstring = "mexpand_assert_msg result acppif"; - BASILYS_LOCATION("warmelt-macro.melt:3852:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3857:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[8]; - BASILYS_LOCATION("warmelt-macro.melt:3852:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3857:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3852:/ apply.arg"); - argtab[3].bp_long = 3852; + BASILYS_LOCATION("warmelt-macro.melt:3857:/ apply.arg"); + argtab[3].bp_long = 3857; /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ACPPIF__V62*/ curfptr[61]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V64*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V65*/ curfptr[64];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3852:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3857:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3852:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3857:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3852:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3857:/ cppif.else"); /*_.IFCPP___V64*/ curfptr[63] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3853:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3858:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.ACPPIF__V62*/ curfptr[61];; - BASILYS_LOCATION("warmelt-macro.melt:3853:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3858:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V27*/ curfptr[26] = /*_.RETURN___V66*/ curfptr[64];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); /*clear*/ /*_#NULL__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); /*clear*/ /*_.AFPRIM__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); /*clear*/ /*_#IS_MIXINT__L18*/ curfnum[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); /*clear*/ /*_.FILNAM__V52*/ curfptr[35] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); /*clear*/ /*_#GET_INT__L20*/ curfnum[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V56*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); /*clear*/ /*_.MAKE_TUPLE3__V57*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); /*clear*/ /*_.APRIM__V58*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); /*clear*/ /*_.ATEST__V60*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); /*clear*/ /*_.ACPPIF__V62*/ curfptr[61] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); /*clear*/ /*_.IFCPP___V64*/ curfptr[63] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3806:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3811:/ clear"); /*clear*/ /*_.RETURN___V66*/ curfptr[64] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.XMSG__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.XTEST__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.ASSFAIL_SYMB__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.ASSFAIL_BINDING__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.PAIR_TAIL__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.SETQ___V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_#NOT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.PAIR_HEAD__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.PAIR_TAIL__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3789:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3794:/ clear"); /*clear*/ /*_.LET___V27*/ curfptr[26] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3785:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:3785:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3785:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3785:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3785:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3785:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -43808,18 +43887,18 @@ basilys_trace_start("MEXPAND_DEBUG_MSG", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3865:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3865:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3865:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -43828,28 +43907,28 @@ basilys_trace_start("MEXPAND_DEBUG_MSG", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3865:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3870:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3866:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3866:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3871:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3871:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3866:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3871:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3866:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3871:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3866:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3871:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3866:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3871:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3866:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3866)?(3866):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3871:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3871)?(3871):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -43859,36 +43938,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3865:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3866:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3871:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3866:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3871:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3866:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3871:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3867:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3867:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3872:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3872:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3867:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3872:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3867:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3872:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3867:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3872:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3867:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3872:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3867:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3867)?(3867):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3872:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3872)?(3872):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -43898,57 +43977,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3865:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3867:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3872:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3867:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3872:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3867:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3872:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3868:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3868:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3873:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3873:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3868:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3873:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3868:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3873:/ apply.arg"); argtab[0].bp_cstring = "mexpand_debug_msg sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3868:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3873:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3868:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3873:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3868:/ apply.arg"); - argtab[3].bp_long = 3868; + BASILYS_LOCATION("warmelt-macro.melt:3873:/ apply.arg"); + argtab[3].bp_long = 3873; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3868:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3873:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3868:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3873:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3868:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3873:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3870:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3875:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3871:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3876:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -43958,13 +44037,13 @@ BASILYS_LOCATION("warmelt-macro.melt:3865:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; /*_.PAIR_HEAD__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3873:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3878:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3873:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3878:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3873:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3878:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.XVAL__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -43973,20 +44052,20 @@ BASILYS_LOCATION("warmelt-macro.melt:3865:/ block"); /*_.XCOUNT__V19*/ curfptr[18] = (/*nil*/NULL);; /*_.PAIR_TAIL__V20*/ curfptr[19] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3877:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3882:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V21*/ curfptr[20] = /*_.PAIR_TAIL__V20*/ curfptr[19];; /*_#IS_PAIR__L4*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; /*_#NOT__L5*/ curfnum[4] = (!(/*_#IS_PAIR__L4*/ curfnum[0]));; - BASILYS_LOCATION("warmelt-macro.melt:3878:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3883:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3878:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3878:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3883:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3883:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3879:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3884:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "missing message in DEBUG_MSG"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -43995,81 +44074,81 @@ BASILYS_LOCATION("warmelt-macro.melt:3865:/ block"); ; /*_.PAIR_HEAD__V22*/ curfptr[21] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3880:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3885:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3880:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3885:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3880:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3885:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3880:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3885:/ compute"); /*_.XMSG__V18*/ curfptr[17] = /*_.SETQ___V24*/ curfptr[23] = /*_.MACROEXPAND_1__V23*/ curfptr[22];; /*_.PAIR_TAIL__V25*/ curfptr[24] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3881:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3886:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V26*/ curfptr[25] = /*_.PAIR_TAIL__V25*/ curfptr[24];; /*_#IS_PAIR__L6*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])) == OBMAG_PAIR);; - BASILYS_LOCATION("warmelt-macro.melt:3882:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3887:/ cond"); /*cond*/ if (/*_#IS_PAIR__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3882:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3882:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3887:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3887:/ block"); /*block*/{ /*_.PAIR_HEAD__V28*/ curfptr[27] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3884:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3889:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3884:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3889:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3884:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3889:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3884:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3889:/ compute"); /*_.XCOUNT__V19*/ curfptr[18] = /*_.SETQ___V30*/ curfptr[29] = /*_.MACROEXPAND_1__V29*/ curfptr[28];; /*_.PAIR_TAIL__V31*/ curfptr[30] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3885:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3890:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V32*/ curfptr[31] = /*_.PAIR_TAIL__V31*/ curfptr[30];; - BASILYS_LOCATION("warmelt-macro.melt:3883:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3888:/ block"); /*block*/{ /*_.PROGN___V33*/ curfptr[32] = /*_.SETQ___V32*/ curfptr[31];;} ; /*_.IF___V27*/ curfptr[26] = /*_.PROGN___V33*/ curfptr[32];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3882:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3887:/ clear"); /*clear*/ /*_.PAIR_HEAD__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3882:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3887:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3882:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3887:/ clear"); /*clear*/ /*_.SETQ___V30*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3882:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3887:/ clear"); /*clear*/ /*_.PAIR_TAIL__V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3882:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3887:/ clear"); /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3882:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3887:/ clear"); /*clear*/ /*_.PROGN___V33*/ curfptr[32] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3882:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3887:/ cond.else"); /*_.IF___V27*/ curfptr[26] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3886:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3891:/ cond"); /*cond*/ if (/*_.CURPAIR__V15*/ curfptr[14]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3886:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3886:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3891:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3891:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3887:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3892:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "too many arguments to DEBUG_MSG"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -44080,14 +44159,14 @@ BASILYS_LOCATION("warmelt-macro.melt:3865:/ block"); (basilys_magic_discr((basilys_ptr_t)(/*_.XMSG__V18*/ curfptr[17])) == OBMAG_STRING);; /*_#NOT__L8*/ curfnum[7] = (!(/*_#IS_STRING__L7*/ curfnum[6]));; - BASILYS_LOCATION("warmelt-macro.melt:3888:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3893:/ cond"); /*cond*/ if (/*_#NOT__L8*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3888:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3888:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3893:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3893:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3889:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3894:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "message argument should be string in DEBUG_MSG"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -44096,117 +44175,117 @@ BASILYS_LOCATION("warmelt-macro.melt:3865:/ block"); ; /*_#NULL__L9*/ curfnum[8] = ((/*_.XCOUNT__V19*/ curfptr[18]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3890:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3895:/ cond"); /*cond*/ if (/*_#NULL__L9*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3890:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3890:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3895:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3895:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3891:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3896:/ block"); /*block*/{ /*_.CONLIS__V36*/ curfptr[29] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; { - BASILYS_LOCATION("warmelt-macro.melt:3892:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3897:/ locexp"); basilysgc_append_list((basilys_ptr_t)(/*_.CONLIS__V36*/ curfptr[29]), (basilys_ptr_t)((/*!konst_5_THE_CALLCOUNT*/ curfrout->tabval[5])));} ; - BASILYS_LOCATION("warmelt-macro.melt:3893:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3898:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3893:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3898:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])), (3), "CLASS_SEXPR");/*_.INST__V38*/ curfptr[31] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3893:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3898:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[31]), (2), (/*_.CONLIS__V36*/ curfptr[29]), "SEXP_CONTENTS"); ; - BASILYS_LOCATION("warmelt-macro.melt:3893:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3898:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V38*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V38*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V38*/ curfptr[31]), (1), (/*_.LOC__V13*/ curfptr[12]), "LOCA_LOCATION"); ; /*_.INST___V37*/ curfptr[30] = /*_.INST__V38*/ curfptr[31];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3893:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3898:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3893:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3898:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3893:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3898:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V39*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.INST___V37*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3893:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3898:/ compute"); /*_.XCOUNT__V19*/ curfptr[18] = /*_.SETQ___V40*/ curfptr[39] = /*_.MACROEXPAND_1__V39*/ curfptr[32];; /*_.LET___V35*/ curfptr[28] = /*_.SETQ___V40*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3891:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3896:/ clear"); /*clear*/ /*_.CONLIS__V36*/ curfptr[29] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3891:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3896:/ clear"); /*clear*/ /*_.INST___V37*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3891:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3896:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V39*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3891:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3896:/ clear"); /*clear*/ /*_.SETQ___V40*/ curfptr[39] = 0 ;} ; /*_.IF___V34*/ curfptr[27] = /*_.LET___V35*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3890:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3895:/ clear"); /*clear*/ /*_.LET___V35*/ curfptr[28] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3890:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3895:/ cond.else"); /*_.IF___V34*/ curfptr[27] = NULL;; } ; - BASILYS_LOCATION("warmelt-macro.melt:3897:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3902:/ block"); /*block*/{ /*_#IS_MIXINT__L10*/ curfnum[9] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXINT);; - BASILYS_LOCATION("warmelt-macro.melt:3899:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3904:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L10*/ curfnum[9]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3899:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3899:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3904:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3904:/ block"); /*block*/{ /*_.MIXINT_VAL__V43*/ curfptr[32] = (basilys_val_mixint((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12])));; /*_.DFILNAM__V42*/ curfptr[30] = /*_.MIXINT_VAL__V43*/ curfptr[32];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3899:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3904:/ clear"); /*clear*/ /*_.MIXINT_VAL__V43*/ curfptr[32] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3899:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3904:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3899:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3904:/ block"); /*block*/{ /*_#IS_MIXLOC__L11*/ curfnum[10] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12])) == OBMAG_MIXLOC);; - BASILYS_LOCATION("warmelt-macro.melt:3900:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3905:/ cond"); /*cond*/ if (/*_#IS_MIXLOC__L11*/ curfnum[10]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3900:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3900:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3905:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3905:/ block"); /*block*/{ /*_.MIXLOC_VAL__V45*/ curfptr[28] = (basilys_val_mixloc((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12])));; /*_.IFELSE___V44*/ curfptr[39] = /*_.MIXLOC_VAL__V45*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3900:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3905:/ clear"); /*clear*/ /*_.MIXLOC_VAL__V45*/ curfptr[28] = 0 ;} ; - } else {BASILYS_LOCATION("warmelt-macro.melt:3900:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3905:/ cond.else"); /*_.IFELSE___V44*/ curfptr[39] = NULL;; } ; /*_.DFILNAM__V42*/ curfptr[30] = /*_.IFELSE___V44*/ curfptr[39];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3899:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3904:/ clear"); /*clear*/ /*_#IS_MIXLOC__L11*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3899:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3904:/ clear"); /*clear*/ /*_.IFELSE___V44*/ curfptr[39] = 0 ;} ; } @@ -44217,53 +44296,53 @@ BASILYS_LOCATION("warmelt-macro.melt:3865:/ block"); (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[9])), (/*_#GET_INT__L12*/ curfnum[10])));; /*_.MAKE_TUPLE5__V47*/ curfptr[28] = (basilysgc_new_mult5((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.XVAL__V17*/ curfptr[16]), (basilys_ptr_t)(/*_.XMSG__V18*/ curfptr[17]), (basilys_ptr_t)(/*_.XCOUNT__V19*/ curfptr[18]), (basilys_ptr_t)(/*_.DFILNAM__V42*/ curfptr[30]), (basilys_ptr_t)(/*_.MAKE_INTEGERBOX__V46*/ curfptr[32])));; - BASILYS_LOCATION("warmelt-macro.melt:3901:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3906:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3901:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3906:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_APPLY*/ curfrout->tabval[6])), (3), "CLASS_SRC_APPLY");/*_.INST__V49*/ curfptr[48] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3901:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3906:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3901:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3906:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (1), ((/*!konst_7_DEBUG_MSG_FUN*/ curfrout->tabval[7])), "SAPP_FUN"); ; - BASILYS_LOCATION("warmelt-macro.melt:3901:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3906:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (2), (/*_.MAKE_TUPLE5__V47*/ curfptr[28]), "SAPP_ARGS"); ; /*_.DCALL__V48*/ curfptr[39] = /*_.INST__V49*/ curfptr[48];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3911:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3916:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3911:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3916:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_CPPIF*/ curfrout->tabval[10])), (4), "CLASS_SRC_CPPIF");/*_.INST__V51*/ curfptr[50] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3911:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3916:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[50]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3911:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3916:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[50]), (1), ((/*!konst_11_ENABLE_CHECKING*/ curfrout->tabval[11])), "SIFP_COND"); ; - BASILYS_LOCATION("warmelt-macro.melt:3911:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3916:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[50]), (2), (/*_.DCALL__V48*/ curfptr[39]), "SIFP_THEN"); ; - BASILYS_LOCATION("warmelt-macro.melt:3911:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3916:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[50]), (3), ((/*nil*/NULL)), "SIFP_ELSE"); @@ -44272,132 +44351,132 @@ BASILYS_LOCATION("warmelt-macro.melt:3865:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3918:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3918:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3923:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3923:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3918:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3923:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3918:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3923:/ apply.arg"); argtab[0].bp_cstring = "mexpand_debug_msg result dcppif"; - BASILYS_LOCATION("warmelt-macro.melt:3918:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3923:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[12]; - BASILYS_LOCATION("warmelt-macro.melt:3918:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3923:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3918:/ apply.arg"); - argtab[3].bp_long = 3918; + BASILYS_LOCATION("warmelt-macro.melt:3923:/ apply.arg"); + argtab[3].bp_long = 3923; /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.DCPPIF__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3918:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3923:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3918:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3923:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3918:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3923:/ cppif.else"); /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3919:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3924:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.DCPPIF__V50*/ curfptr[49];; - BASILYS_LOCATION("warmelt-macro.melt:3919:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3924:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V41*/ curfptr[29] = /*_.RETURN___V54*/ curfptr[52];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3897:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3902:/ clear"); /*clear*/ /*_#IS_MIXINT__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3897:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3902:/ clear"); /*clear*/ /*_.DFILNAM__V42*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3897:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3902:/ clear"); /*clear*/ /*_#GET_INT__L12*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3897:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3902:/ clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V46*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3897:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3902:/ clear"); /*clear*/ /*_.MAKE_TUPLE5__V47*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3897:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3902:/ clear"); /*clear*/ /*_.DCALL__V48*/ curfptr[39] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3897:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3902:/ clear"); /*clear*/ /*_.DCPPIF__V50*/ curfptr[49] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3897:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3902:/ clear"); /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3897:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3902:/ clear"); /*clear*/ /*_.RETURN___V54*/ curfptr[52] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V41*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.XVAL__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.XMSG__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.XCOUNT__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_#IS_PAIR__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.PAIR_HEAD__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_#IS_PAIR__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_#IS_STRING__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_#NOT__L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_#NULL__L9*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.IF___V34*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3869:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3874:/ clear"); /*clear*/ /*_.LET___V41*/ curfptr[29] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3865:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:3865:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3865:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3865:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3865:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3865:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -44458,18 +44537,18 @@ basilys_trace_start("MEXPAND_EXPORT_VALUES", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3926:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3926:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3926:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -44478,28 +44557,28 @@ basilys_trace_start("MEXPAND_EXPORT_VALUES", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3926:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3931:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3927:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3927:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3932:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3932:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3927:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3932:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3927:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3932:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3927:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3932:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3927:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3932:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3927:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3927)?(3927):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3932:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3932)?(3932):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -44509,36 +44588,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3926:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3927:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3932:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3927:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3932:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3927:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3932:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3928:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3928:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3933:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3933:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3928:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3933:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3928:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3933:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3928:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3933:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3928:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3933:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3928:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3928)?(3928):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3933:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3933)?(3933):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -44548,57 +44627,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3926:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3928:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3933:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3928:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3933:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3928:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3933:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3929:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3929:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3934:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3934:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3929:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3934:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3929:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3934:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_values sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3929:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3934:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3929:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3934:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3929:/ apply.arg"); - argtab[3].bp_long = 3929; + BASILYS_LOCATION("warmelt-macro.melt:3934:/ apply.arg"); + argtab[3].bp_long = 3934; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3929:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3934:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3929:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3934:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3929:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3934:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3930:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3935:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3931:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3936:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3932:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3937:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -44606,25 +44685,25 @@ BASILYS_LOCATION("warmelt-macro.melt:3926:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.CONT__V12*/ curfptr[11])));; /*_.CURPAIR__V15*/ curfptr[14] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; - BASILYS_LOCATION("warmelt-macro.melt:3936:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3941:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3936:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:3941:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3)); ; - BASILYS_LOCATION("warmelt-macro.melt:3936:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3941:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; - BASILYS_LOCATION("warmelt-macro.melt:3936:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3941:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]); ; - BASILYS_LOCATION("warmelt-macro.melt:3936:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:3941:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); @@ -44632,30 +44711,30 @@ BASILYS_LOCATION("warmelt-macro.melt:3926:/ block"); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; - BASILYS_LOCATION("warmelt-macro.melt:3934:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3939:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3934:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3939:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.melt:3934:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3939:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15]; /*_.SYMBTUP__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:3944:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3949:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3944:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3949:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_EXPORT_VALUES*/ curfrout->tabval[9])), (2), "CLASS_SRC_EXPORT_VALUES");/*_.INST__V20*/ curfptr[19] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3944:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3949:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3944:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3949:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.SYMBTUP__V18*/ curfptr[17]), "SEXPORT_NAMES"); @@ -44664,81 +44743,81 @@ BASILYS_LOCATION("warmelt-macro.melt:3926:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3948:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3948:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3953:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3953:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3948:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3953:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3948:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3953:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_values result res"; - BASILYS_LOCATION("warmelt-macro.melt:3948:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3953:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3948:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3953:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3948:/ apply.arg"); - argtab[3].bp_long = 3948; + BASILYS_LOCATION("warmelt-macro.melt:3953:/ apply.arg"); + argtab[3].bp_long = 3953; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3948:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3953:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3948:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3953:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3948:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3953:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3949:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3954:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];; - BASILYS_LOCATION("warmelt-macro.melt:3949:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3954:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V23*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3930:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3935:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3930:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3935:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3930:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3935:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3930:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3935:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3930:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3935:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3930:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3935:/ clear"); /*clear*/ /*_.SYMBTUP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3930:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3935:/ clear"); /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3930:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3935:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3930:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3935:/ clear"); /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3926:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:3926:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3926:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3926:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3926:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3926:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -44799,73 +44878,73 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3936:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3941:/ getarg"); /*_.S__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3936:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3941:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3937:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3942:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3937:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3942:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3937:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3942:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.melt:3937:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3942:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]); /*_.SYM__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.S__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_NOT_A__L1*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SYM__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3938:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3943:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3938:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3938:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3943:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3943:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3940:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3945:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3940:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3945:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_values bad sym"; /*_.DEBUGMSG__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUGMSG*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SYM__V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; { - BASILYS_LOCATION("warmelt-macro.melt:3941:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3946:/ locexp"); basilys_error_str((basilys_ptr_t)((/*~LOC*/ curfclos->tabval[2])), ( "(EXPORT_VALUES <sym>...) expecting symbol"), (basilys_ptr_t)0);} ; - BASILYS_LOCATION("warmelt-macro.melt:3939:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3944:/ block"); /*block*/{} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3938:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3943:/ clear"); /*clear*/ /*_.DEBUGMSG__V5*/ curfptr[4] = 0 ;} ; } /*noelse*/ ; /*_.LET___V3*/ curfptr[2] = /*_.SYM__V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3937:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3942:/ clear"); /*clear*/ /*_.SYM__V4*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3937:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3942:/ clear"); /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3936:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3941:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:3936:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3941:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3936:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3941:/ clear"); /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;} ; @@ -44926,18 +45005,18 @@ basilys_trace_start("MEXPAND_EXPORT_MACRO", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3956:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3956:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3956:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -44946,28 +45025,28 @@ basilys_trace_start("MEXPAND_EXPORT_MACRO", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3956:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3961:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3957:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3957:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3962:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3962:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3957:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3962:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3957:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3962:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3957:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3962:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3957:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3962:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3957:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3957)?(3957):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3962:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3962)?(3962):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -44977,36 +45056,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3956:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3957:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3962:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3957:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3962:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3957:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3962:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3958:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3958:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3963:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3963:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3958:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3963:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3958:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3963:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3958:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3963:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3958:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3963:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3958:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3958)?(3958):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3963:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3963)?(3963):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -45016,57 +45095,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3956:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3958:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3963:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3958:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3963:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3958:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3963:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3959:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3959:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3964:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3964:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3959:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3964:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3959:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3964:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_macro sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3959:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3964:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3959:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3964:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3959:/ apply.arg"); - argtab[3].bp_long = 3959; + BASILYS_LOCATION("warmelt-macro.melt:3964:/ apply.arg"); + argtab[3].bp_long = 3964; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3959:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3964:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3959:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3964:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3959:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3964:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3960:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3965:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3961:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3966:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3962:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3967:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -45076,27 +45155,27 @@ BASILYS_LOCATION("warmelt-macro.melt:3956:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; /*_.PAIR_HEAD__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3964:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3969:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3964:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3969:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3964:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3969:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.SYMB__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_NOT_A__L4*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:3966:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3971:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3966:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3966:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3971:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3971:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3967:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3972:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_MACRO <sym> <expander>) expecting symbol"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -45105,59 +45184,59 @@ BASILYS_LOCATION("warmelt-macro.melt:3956:/ block"); ; /*_.PAIR_TAIL__V18*/ curfptr[17] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3968:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:3973:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V19*/ curfptr[18] = /*_.PAIR_TAIL__V18*/ curfptr[17];; - BASILYS_LOCATION("warmelt-macro.melt:3969:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3974:/ block"); /*block*/{ /*_.PAIR_HEAD__V21*/ curfptr[20] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3969:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3974:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3969:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3974:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3969:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3974:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.EXPV__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#NULL__L5*/ curfnum[4] = ((/*_.EXPV__V22*/ curfptr[21]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:3971:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3976:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3971:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3971:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3976:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3976:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3972:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:3977:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_MACRO <sym> <expander>) expecting expander"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3973:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3978:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3973:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3978:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3973:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:3978:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_EXPORT_MACRO*/ curfrout->tabval[5])), (3), "CLASS_SRC_EXPORT_MACRO");/*_.INST__V25*/ curfptr[24] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3973:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3978:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[24]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:3973:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3978:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[24]), (1), (/*_.SYMB__V17*/ curfptr[16]), "SEXPMAC_MNAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:3973:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:3978:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V25*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V25*/ curfptr[24]), (2), (/*_.EXPV__V22*/ curfptr[21]), "SEXPMAC_MVAL"); @@ -45166,103 +45245,103 @@ BASILYS_LOCATION("warmelt-macro.melt:3956:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3979:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3979:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3984:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3984:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3979:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3984:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3979:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3984:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_macro result res"; - BASILYS_LOCATION("warmelt-macro.melt:3979:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3984:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; - BASILYS_LOCATION("warmelt-macro.melt:3979:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3984:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3979:/ apply.arg"); - argtab[3].bp_long = 3979; + BASILYS_LOCATION("warmelt-macro.melt:3984:/ apply.arg"); + argtab[3].bp_long = 3984; /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V26*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3979:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3984:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3979:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3984:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3979:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3984:/ cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3980:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3985:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V24*/ curfptr[23];; - BASILYS_LOCATION("warmelt-macro.melt:3980:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3985:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V23*/ curfptr[22] = /*_.RETURN___V28*/ curfptr[26];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3973:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3978:/ clear"); /*clear*/ /*_.RES__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3973:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3978:/ clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3973:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3978:/ clear"); /*clear*/ /*_.RETURN___V28*/ curfptr[26] = 0 ;} ; /*_.LET___V20*/ curfptr[19] = /*_.LET___V23*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3969:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3974:/ clear"); /*clear*/ /*_.PAIR_HEAD__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3969:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3974:/ clear"); /*clear*/ /*_.EXPV__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3969:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3974:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3969:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3974:/ clear"); /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V20*/ curfptr[19];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3960:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3965:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3960:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3965:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3960:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3965:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3960:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3965:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3960:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3965:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3960:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3965:/ clear"); /*clear*/ /*_.SYMB__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3960:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3965:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3960:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3965:/ clear"); /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3960:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3965:/ clear"); /*clear*/ /*_.SETQ___V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3960:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3965:/ clear"); /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3956:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:3956:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3956:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3956:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3956:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3956:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -45323,18 +45402,18 @@ basilys_trace_start("MEXPAND_EXPORT_PATMACRO", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:3987:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:3987:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:3987:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -45343,28 +45422,28 @@ basilys_trace_start("MEXPAND_EXPORT_PATMACRO", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:3987:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:3992:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3988:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3988:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3993:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3993:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:3988:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3993:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3988:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3993:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3988:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3993:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3988:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3993:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3988:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3988)?(3988):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3993:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3993)?(3993):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -45374,36 +45453,36 @@ BASILYS_LOCATION("warmelt-macro.melt:3987:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3988:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3993:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3988:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3993:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3988:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3993:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3989:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3989:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3994:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3994:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:3989:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:3994:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3989:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:3994:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:3989:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:3994:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:3989:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3994:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:3989:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3989)?(3989):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:3994:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(3994)?(3994):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -45413,57 +45492,57 @@ BASILYS_LOCATION("warmelt-macro.melt:3987:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3989:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3994:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3989:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3994:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3989:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3994:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:3990:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:3990:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3995:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:3995:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:3990:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3995:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3990:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3995:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_patmacro sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:3990:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3995:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:3990:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3995:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:3990:/ apply.arg"); - argtab[3].bp_long = 3990; + BASILYS_LOCATION("warmelt-macro.melt:3995:/ apply.arg"); + argtab[3].bp_long = 3995; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3990:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3995:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3990:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3995:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:3990:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:3995:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3992:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3997:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3993:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3998:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -45473,13 +45552,13 @@ BASILYS_LOCATION("warmelt-macro.melt:3987:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; /*_.PAIR_HEAD__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:3995:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4000:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3995:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4000:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:3995:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4000:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.SYMB__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -45488,14 +45567,14 @@ BASILYS_LOCATION("warmelt-macro.melt:3987:/ block"); /*_.MACEXPV__V19*/ curfptr[18] = (/*nil*/NULL);; /*_#IS_NOT_A__L4*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SYMB__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:3999:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4004:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:3999:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:3999:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4004:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4004:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4000:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4005:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander>) expecting symbol"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -45504,33 +45583,33 @@ BASILYS_LOCATION("warmelt-macro.melt:3987:/ block"); ; /*_.PAIR_TAIL__V20*/ curfptr[19] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:4001:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:4006:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V21*/ curfptr[20] = /*_.PAIR_TAIL__V20*/ curfptr[19];; /*_.PAIR_HEAD__V22*/ curfptr[21] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:4002:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4007:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4002:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4007:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:4002:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4007:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4002:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:4007:/ compute"); /*_.PATEXPV__V18*/ curfptr[17] = /*_.SETQ___V24*/ curfptr[23] = /*_.MACROEXPAND_1__V23*/ curfptr[22];; /*_#NULL__L5*/ curfnum[4] = ((/*_.PATEXPV__V18*/ curfptr[17]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:4003:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4008:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4003:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:4003:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4008:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4008:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4004:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4009:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander>) expecting patexpander"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -45539,64 +45618,64 @@ BASILYS_LOCATION("warmelt-macro.melt:3987:/ block"); ; /*_.PAIR_TAIL__V25*/ curfptr[24] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:4005:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:4010:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V26*/ curfptr[25] = /*_.PAIR_TAIL__V25*/ curfptr[24];; /*_.PAIR_HEAD__V27*/ curfptr[26] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:4006:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4011:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4006:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4011:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:4006:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4011:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V27*/ curfptr[26]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4006:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:4011:/ compute"); /*_.MACEXPV__V19*/ curfptr[18] = /*_.SETQ___V29*/ curfptr[28] = /*_.MACROEXPAND_1__V28*/ curfptr[27];; /*_#NULL__L6*/ curfnum[5] = ((/*_.MACEXPV__V19*/ curfptr[18]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:4007:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4012:/ cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4007:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:4007:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4012:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4012:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4008:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4013:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(EXPORT_PATMACRO <sym> <patexpander> <macexpander>) expecting macexpander"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4009:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4014:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4009:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4014:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4009:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:4014:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_EXPORT_PATMACRO*/ curfrout->tabval[5])), (4), "CLASS_SRC_EXPORT_PATMACRO");/*_.INST__V32*/ curfptr[31] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4009:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4014:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:4009:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4014:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (1), (/*_.SYMB__V17*/ curfptr[16]), "SEXPMAC_MNAME"); ; - BASILYS_LOCATION("warmelt-macro.melt:4009:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4014:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (3), (/*_.PATEXPV__V18*/ curfptr[17]), "SEXPPAT_PVAL"); ; - BASILYS_LOCATION("warmelt-macro.melt:4009:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4014:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (2), (/*_.MACEXPV__V19*/ curfptr[18]), "SEXPMAC_MVAL"); @@ -45605,116 +45684,116 @@ BASILYS_LOCATION("warmelt-macro.melt:3987:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4016:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4016:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4021:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4021:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:4016:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4021:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4016:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4021:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_patmacro result res"; - BASILYS_LOCATION("warmelt-macro.melt:4016:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4021:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; - BASILYS_LOCATION("warmelt-macro.melt:4016:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4021:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:4016:/ apply.arg"); - argtab[3].bp_long = 4016; + BASILYS_LOCATION("warmelt-macro.melt:4021:/ apply.arg"); + argtab[3].bp_long = 4021; /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4016:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4021:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4016:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4021:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4016:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4021:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4017:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4022:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V31*/ curfptr[30];; - BASILYS_LOCATION("warmelt-macro.melt:4017:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4022:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V30*/ curfptr[29] = /*_.RETURN___V35*/ curfptr[33];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4009:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4014:/ clear"); /*clear*/ /*_.RES__V31*/ curfptr[30] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4009:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4014:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[32] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4009:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4014:/ clear"); /*clear*/ /*_.RETURN___V35*/ curfptr[33] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V30*/ curfptr[29];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.SYMB__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.PATEXPV__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.MACEXPV__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_#IS_NOT_A__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.PAIR_TAIL__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.PAIR_HEAD__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.SETQ___V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.PAIR_TAIL__V25*/ curfptr[24] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.SETQ___V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.PAIR_HEAD__V27*/ curfptr[26] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3991:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3996:/ clear"); /*clear*/ /*_.LET___V30*/ curfptr[29] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:3987:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:3987:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:3987:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3987:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3987:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:3987:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -45775,18 +45854,18 @@ basilys_trace_start("MEXPAND_EXPORT_CLASS", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:4024:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:4024:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:4024:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -45795,28 +45874,28 @@ basilys_trace_start("MEXPAND_EXPORT_CLASS", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:4024:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:4029:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4025:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4025:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4030:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4030:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:4025:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4030:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4025:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4030:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:4025:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4030:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4025:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4030:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4025:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4025)?(4025):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:4030:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4030)?(4030):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -45826,36 +45905,36 @@ BASILYS_LOCATION("warmelt-macro.melt:4024:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4025:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4030:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4025:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4030:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4025:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4030:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4026:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4026:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4031:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4031:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:4026:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4031:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4026:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4031:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:4026:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4031:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4026:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4031:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4026:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4026)?(4026):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:4031:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4031)?(4031):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -45865,57 +45944,57 @@ BASILYS_LOCATION("warmelt-macro.melt:4024:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4026:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4031:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4026:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4031:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4026:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4031:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4027:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4027:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4032:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4032:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:4027:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4032:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4027:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4032:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_class sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:4027:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4032:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:4027:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4032:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:4027:/ apply.arg"); - argtab[3].bp_long = 4027; + BASILYS_LOCATION("warmelt-macro.melt:4032:/ apply.arg"); + argtab[3].bp_long = 4032; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4027:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4032:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4027:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4032:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4027:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4032:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4028:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4033:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4029:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4034:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4030:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4035:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -45923,25 +46002,25 @@ BASILYS_LOCATION("warmelt-macro.melt:4024:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.CONT__V12*/ curfptr[11])));; /*_.CURPAIR__V15*/ curfptr[14] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; - BASILYS_LOCATION("warmelt-macro.melt:4034:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4039:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4034:/ newclosure"); + BASILYS_LOCATION("warmelt-macro.melt:4039:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (3)); ; - BASILYS_LOCATION("warmelt-macro.melt:4034:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:4039:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[0] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; - BASILYS_LOCATION("warmelt-macro.melt:4034:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:4039:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[1] = (basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3]); ; - BASILYS_LOCATION("warmelt-macro.melt:4034:/ putclosedv"); + BASILYS_LOCATION("warmelt-macro.melt:4039:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); @@ -45949,30 +46028,30 @@ BASILYS_LOCATION("warmelt-macro.melt:4024:/ block"); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; - BASILYS_LOCATION("warmelt-macro.melt:4032:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4037:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4032:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4037:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[4]); - BASILYS_LOCATION("warmelt-macro.melt:4032:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4037:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15]; /*_.SYMBTUP__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!PAIRLIST_TO_MULTIPLE*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4040:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4045:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4040:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:4045:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_EXPORT_CLASS*/ curfrout->tabval[8])), (2), "CLASS_SRC_EXPORT_CLASS");/*_.INST__V20*/ curfptr[19] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4040:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4045:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:4040:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4045:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.SYMBTUP__V18*/ curfptr[17]), "SEXPORT_NAMES"); @@ -45981,81 +46060,81 @@ BASILYS_LOCATION("warmelt-macro.melt:4024:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4044:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4044:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4049:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4049:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:4044:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4049:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4044:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4049:/ apply.arg"); argtab[0].bp_cstring = "mexpand_export_class result res"; - BASILYS_LOCATION("warmelt-macro.melt:4044:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4049:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:4044:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4049:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:4044:/ apply.arg"); - argtab[3].bp_long = 4044; + BASILYS_LOCATION("warmelt-macro.melt:4049:/ apply.arg"); + argtab[3].bp_long = 4049; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4044:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4049:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4044:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4049:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4044:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4049:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4045:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4050:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V19*/ curfptr[18];; - BASILYS_LOCATION("warmelt-macro.melt:4045:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4050:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V23*/ curfptr[21];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4028:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4033:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4028:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4033:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4028:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4033:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4028:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4033:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4028:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4033:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4028:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4033:/ clear"); /*clear*/ /*_.SYMBTUP__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4028:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4033:/ clear"); /*clear*/ /*_.RES__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4028:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4033:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4028:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4033:/ clear"); /*clear*/ /*_.RETURN___V23*/ curfptr[21] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:4024:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:4024:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4024:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4024:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4024:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4024:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -46116,37 +46195,37 @@ basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:4034:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4039:/ getarg"); /*_.S__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:4034:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:4039:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4035:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4040:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4035:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4040:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4035:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4040:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); - BASILYS_LOCATION("warmelt-macro.melt:4035:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4040:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~MEXPANDER*/ curfclos->tabval[1]); /*_.SYM__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.S__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_NOT_A__L1*/ curfnum[0] = !basilys_is_instance_of((basilys_ptr_t)(/*_.SYM__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:4036:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4041:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4036:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:4036:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4041:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4041:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4037:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4042:/ locexp"); basilys_error_str((basilys_ptr_t)((/*~LOC*/ curfclos->tabval[2])), ( "(EXPORT_CLASS <sym>...) expecting symbol"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -46155,20 +46234,20 @@ BASILYS_LOCATION("warmelt-macro.melt:4034:/ block"); ; /*_.LET___V3*/ curfptr[2] = /*_.SYM__V4*/ curfptr[3];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4035:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4040:/ clear"); /*clear*/ /*_.SYM__V4*/ curfptr[3] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4035:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4040:/ clear"); /*clear*/ /*_#IS_NOT_A__L1*/ curfnum[0] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:4034:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4039:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; - BASILYS_LOCATION("warmelt-macro.melt:4034:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4039:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4034:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4039:/ clear"); /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;} ; @@ -46229,18 +46308,18 @@ basilys_trace_start("MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:4052:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:4052:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:4052:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -46249,28 +46328,28 @@ basilys_trace_start("MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:4052:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:4057:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4053:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4053:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4058:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4058:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:4053:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4058:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4053:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4058:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:4053:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4058:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4053:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4058:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4053:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4053)?(4053):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:4058:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4058)?(4058):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -46280,36 +46359,36 @@ BASILYS_LOCATION("warmelt-macro.melt:4052:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4053:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4058:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4053:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4058:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4053:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4058:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4054:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4054:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4059:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4059:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:4054:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4059:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4054:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4059:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:4054:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4059:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4054:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4059:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4054:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4054)?(4054):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:4059:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4059)?(4059):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -46319,57 +46398,57 @@ BASILYS_LOCATION("warmelt-macro.melt:4052:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4054:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4059:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4054:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4059:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4054:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4059:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4055:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4055:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4060:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4060:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:4055:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4060:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4055:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4060:/ apply.arg"); argtab[0].bp_cstring = "mexpand_current_module_environment_container sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:4055:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4060:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:4055:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4060:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:4055:/ apply.arg"); - argtab[3].bp_long = 4055; + BASILYS_LOCATION("warmelt-macro.melt:4060:/ apply.arg"); + argtab[3].bp_long = 4060; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4055:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4060:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4055:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4060:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4055:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4060:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4056:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4061:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4057:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4062:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4058:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4063:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -46377,14 +46456,14 @@ BASILYS_LOCATION("warmelt-macro.melt:4052:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.CONT__V12*/ curfptr[11])));; /*_.CURPAIR__V15*/ curfptr[14] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; - BASILYS_LOCATION("warmelt-macro.melt:4060:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4065:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4060:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:4065:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[3])), (2), "CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V17*/ curfptr[16] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4060:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4065:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); @@ -46393,14 +46472,14 @@ BASILYS_LOCATION("warmelt-macro.melt:4052:/ block"); ; /*_#NOTNULL__L4*/ curfnum[0] = ((/*_.CURPAIR__V15*/ curfptr[14]) != NULL);; - BASILYS_LOCATION("warmelt-macro.melt:4063:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4068:/ cond"); /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4063:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:4063:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4068:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4068:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4064:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4069:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -46409,79 +46488,79 @@ BASILYS_LOCATION("warmelt-macro.melt:4052:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4065:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4065:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4070:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4070:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:4065:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4070:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4065:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4070:/ apply.arg"); argtab[0].bp_cstring = "mexpand_current_module_environment_container return res"; - BASILYS_LOCATION("warmelt-macro.melt:4065:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4070:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.melt:4065:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4070:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:4065:/ apply.arg"); - argtab[3].bp_long = 4065; + BASILYS_LOCATION("warmelt-macro.melt:4070:/ apply.arg"); + argtab[3].bp_long = 4070; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4065:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4070:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4065:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4070:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4065:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4070:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4066:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4071:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:4066:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4071:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V20*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4061:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4061:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4061:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4061:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4061:/ clear"); /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4061:/ clear"); /*clear*/ /*_#NOTNULL__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4061:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4056:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4061:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:4052:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:4052:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4052:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4052:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4052:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4052:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -46542,18 +46621,18 @@ basilys_trace_start("MEXPAND_PARENT_MODULE_ENVIRONMENT", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:4077:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:4077:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:4077:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -46562,28 +46641,28 @@ basilys_trace_start("MEXPAND_PARENT_MODULE_ENVIRONMENT", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:4077:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:4082:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4078:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4078:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4083:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4083:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:4078:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4083:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4078:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4083:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:4078:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4083:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4078:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4083:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4078:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4078)?(4078):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:4083:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4083)?(4083):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -46593,36 +46672,36 @@ BASILYS_LOCATION("warmelt-macro.melt:4077:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4078:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4083:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4078:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4083:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4078:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4083:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4079:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4079:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4084:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4084:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:4079:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4084:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4079:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4084:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:4079:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4084:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4079:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4084:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4079:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4079)?(4079):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:4084:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4084)?(4084):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -46632,57 +46711,57 @@ BASILYS_LOCATION("warmelt-macro.melt:4077:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4079:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4084:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4079:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4084:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4079:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4084:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4080:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4080:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4085:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4085:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:4080:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4085:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4080:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4085:/ apply.arg"); argtab[0].bp_cstring = "mexpand_parent_module_environment sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:4080:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4085:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:4080:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4085:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:4080:/ apply.arg"); - argtab[3].bp_long = 4080; + BASILYS_LOCATION("warmelt-macro.melt:4085:/ apply.arg"); + argtab[3].bp_long = 4085; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4080:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4085:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4080:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4085:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4080:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4085:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4081:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4086:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4082:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4087:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4083:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4088:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -46690,14 +46769,14 @@ BASILYS_LOCATION("warmelt-macro.melt:4077:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.CONT__V12*/ curfptr[11])));; /*_.CURPAIR__V15*/ curfptr[14] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; - BASILYS_LOCATION("warmelt-macro.melt:4085:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4090:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4085:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:4090:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[3])), (1), "CLASS_SRC_PARENT_MODULE_ENVIRONMENT");/*_.INST__V17*/ curfptr[16] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4085:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4090:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); @@ -46706,14 +46785,14 @@ BASILYS_LOCATION("warmelt-macro.melt:4077:/ block"); ; /*_#NOTNULL__L4*/ curfnum[0] = ((/*_.CURPAIR__V15*/ curfptr[14]) != NULL);; - BASILYS_LOCATION("warmelt-macro.melt:4088:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4093:/ cond"); /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4088:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:4088:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4093:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4093:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4089:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4094:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(PARENT_MODULE_ENVIRONMENT) should not have any argument"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -46722,79 +46801,79 @@ BASILYS_LOCATION("warmelt-macro.melt:4077:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4090:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4090:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4095:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4095:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:4090:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4095:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4090:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4095:/ apply.arg"); argtab[0].bp_cstring = "mexpand_parent_module_environment return res"; - BASILYS_LOCATION("warmelt-macro.melt:4090:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4095:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.melt:4090:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4095:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:4090:/ apply.arg"); - argtab[3].bp_long = 4090; + BASILYS_LOCATION("warmelt-macro.melt:4095:/ apply.arg"); + argtab[3].bp_long = 4095; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4095:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4090:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4095:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4090:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4095:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4091:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4096:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:4091:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4096:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V20*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4081:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4086:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4081:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4086:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4081:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4086:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4081:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4086:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4081:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4086:/ clear"); /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4081:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4086:/ clear"); /*clear*/ /*_#NOTNULL__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4081:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4086:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4081:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4086:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:4077:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:4077:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4077:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4077:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4077:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4077:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -46855,18 +46934,18 @@ basilys_trace_start("MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callc /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:4100:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:4100:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:4100:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -46875,28 +46954,28 @@ basilys_trace_start("MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callc goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:4100:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:4105:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4101:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4101:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4106:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4106:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:4101:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4106:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4101:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4106:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:4101:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4106:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4101:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4106:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4101:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4101)?(4101):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:4106:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4106)?(4106):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -46906,36 +46985,36 @@ BASILYS_LOCATION("warmelt-macro.melt:4100:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4101:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4106:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4101:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4106:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4101:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4106:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4102:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4102:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4107:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4107:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:4102:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4107:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4102:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4107:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:4102:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4107:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4102:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4107:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4102:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4102)?(4102):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:4107:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4107)?(4107):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -46945,57 +47024,57 @@ BASILYS_LOCATION("warmelt-macro.melt:4100:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4102:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4107:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4102:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4107:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4102:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4107:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4103:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4103:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4108:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4108:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:4103:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4108:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4103:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4108:/ apply.arg"); argtab[0].bp_cstring = "mexpand_update_current_module_environment_container sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:4103:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4108:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:4103:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4108:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:4103:/ apply.arg"); - argtab[3].bp_long = 4103; + BASILYS_LOCATION("warmelt-macro.melt:4108:/ apply.arg"); + argtab[3].bp_long = 4108; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4108:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4103:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4108:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4103:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4108:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4104:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4109:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4105:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4110:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4106:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4111:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V13*/ curfptr[12] = slot; }; ; @@ -47003,14 +47082,14 @@ BASILYS_LOCATION("warmelt-macro.melt:4100:/ block"); (basilys_list_first((basilys_ptr_t)(/*_.CONT__V13*/ curfptr[12])));; /*_.CURPAIR__V15*/ curfptr[14] = (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; - BASILYS_LOCATION("warmelt-macro.melt:4108:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4113:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4108:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:4113:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[3])), (2), "CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V17*/ curfptr[16] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4108:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4113:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V17*/ curfptr[16]))));basilys_putfield_object((/*_.INST__V17*/ curfptr[16]), (0), (/*_.LOC__V12*/ curfptr[11]), "SRC_LOC"); @@ -47019,14 +47098,14 @@ BASILYS_LOCATION("warmelt-macro.melt:4100:/ block"); ; /*_#NOTNULL__L4*/ curfnum[0] = ((/*_.CURPAIR__V15*/ curfptr[14]) != NULL);; - BASILYS_LOCATION("warmelt-macro.melt:4111:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4116:/ cond"); /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4111:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:4111:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4116:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4116:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4112:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4117:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V12*/ curfptr[11]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER) should not have any argument"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -47035,79 +47114,79 @@ BASILYS_LOCATION("warmelt-macro.melt:4100:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4113:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4113:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4118:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4118:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:4113:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4118:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4113:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4118:/ apply.arg"); argtab[0].bp_cstring = "mexpand_update_current_module_environment_container return res"; - BASILYS_LOCATION("warmelt-macro.melt:4113:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4118:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; - BASILYS_LOCATION("warmelt-macro.melt:4113:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4118:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:4113:/ apply.arg"); - argtab[3].bp_long = 4113; + BASILYS_LOCATION("warmelt-macro.melt:4118:/ apply.arg"); + argtab[3].bp_long = 4118; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V16*/ curfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4113:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4118:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4113:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4118:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4113:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4118:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4114:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4119:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V16*/ curfptr[15];; - BASILYS_LOCATION("warmelt-macro.melt:4114:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4119:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V11*/ curfptr[9] = /*_.RETURN___V20*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4104:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4109:/ clear"); /*clear*/ /*_.LOC__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4104:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4109:/ clear"); /*clear*/ /*_.CONT__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4104:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4109:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4104:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4109:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4104:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4109:/ clear"); /*clear*/ /*_.RES__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4104:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4109:/ clear"); /*clear*/ /*_#NOTNULL__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4104:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4109:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4104:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4109:/ clear"); /*clear*/ /*_.RETURN___V20*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:4100:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:4100:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4100:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4100:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4100:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4100:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -47168,18 +47247,18 @@ basilys_trace_start("MEXPAND_FETCH_PREDEFINED", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:4127:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:4127:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:4127:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -47188,28 +47267,28 @@ basilys_trace_start("MEXPAND_FETCH_PREDEFINED", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:4127:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:4132:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4128:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4128:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4133:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4133:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:4128:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4133:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4128:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4133:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:4128:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4133:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4128:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4133:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4128:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4128)?(4128):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:4133:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4133)?(4133):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -47219,36 +47298,36 @@ BASILYS_LOCATION("warmelt-macro.melt:4127:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4128:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4133:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4128:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4133:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4128:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4133:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4129:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4129:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4134:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4134:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:4129:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4134:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4129:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4134:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:4129:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4134:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4129:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4134:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4129:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4129)?(4129):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:4134:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4134)?(4134):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -47258,57 +47337,57 @@ BASILYS_LOCATION("warmelt-macro.melt:4127:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4129:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4134:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4129:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4134:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4129:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4134:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4130:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4130:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4135:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4135:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:4130:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4135:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4130:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4135:/ apply.arg"); argtab[0].bp_cstring = "mexpand_fetch_predefined sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:4130:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4135:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:4130:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4135:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:4130:/ apply.arg"); - argtab[3].bp_long = 4130; + BASILYS_LOCATION("warmelt-macro.melt:4135:/ apply.arg"); + argtab[3].bp_long = 4135; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4130:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4135:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4130:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4135:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4130:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4135:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4131:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4132:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4137:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4133:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4138:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -47318,27 +47397,27 @@ BASILYS_LOCATION("warmelt-macro.melt:4127:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; /*_.PAIR_HEAD__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:4135:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4140:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4135:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4140:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:4135:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4140:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.SPREDEF__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#NULL__L4*/ curfnum[0] = ((/*_.CURPAIR__V15*/ curfptr[14]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:4137:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4142:/ cond"); /*cond*/ if (/*_#NULL__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4137:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:4137:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4142:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4142:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4138:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4143:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) missing argument"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -47349,14 +47428,14 @@ BASILYS_LOCATION("warmelt-macro.melt:4127:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_#NOTNULL__L5*/ curfnum[4] = ((/*_.PAIR_TAIL__V18*/ curfptr[17]) != NULL);; - BASILYS_LOCATION("warmelt-macro.melt:4139:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4144:/ cond"); /*cond*/ if (/*_#NOTNULL__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4139:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:4139:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4144:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4144:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4140:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4145:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) extra argument"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -47365,54 +47444,54 @@ BASILYS_LOCATION("warmelt-macro.melt:4127:/ block"); ; /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:4141:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4146:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4141:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4146:/ cond.then"); /*_#OR___L7*/ curfnum[6] = /*_#IS_A__L6*/ curfnum[5];; - } else {BASILYS_LOCATION("warmelt-macro.melt:4141:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4146:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4141:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4146:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L8*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);; /*_#OR___L7*/ curfnum[6] = /*_#IS_INTEGERBOX__L8*/ curfnum[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4141:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4146:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L8*/ curfnum[7] = 0 ;} ; } ; /*_#NOT__L9*/ curfnum[7] = (!(/*_#OR___L7*/ curfnum[6]));; - BASILYS_LOCATION("warmelt-macro.melt:4141:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4146:/ cond"); /*cond*/ if (/*_#NOT__L9*/ curfnum[7]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4141:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:4141:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4146:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4146:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4142:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4147:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(FETCH_PREDEFINED <predef-name-or-rank>) invalid argument"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4143:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4148:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4143:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4148:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4143:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:4148:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_FETCH_PREDEFINED*/ curfrout->tabval[5])), (2), "CLASS_SRC_FETCH_PREDEFINED");/*_.INST__V21*/ curfptr[20] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4143:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4148:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20]))));basilys_putfield_object((/*_.INST__V21*/ curfptr[20]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:4143:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4148:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20]))));basilys_putfield_object((/*_.INST__V21*/ curfptr[20]), (1), (/*_.SPREDEF__V17*/ curfptr[16]), "SFEPD_PREDEF"); @@ -47421,98 +47500,98 @@ BASILYS_LOCATION("warmelt-macro.melt:4127:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4146:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4146:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4151:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4151:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:4146:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4151:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4146:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4151:/ apply.arg"); argtab[0].bp_cstring = "mexpand_fetch_predefined result"; - BASILYS_LOCATION("warmelt-macro.melt:4146:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4151:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9]; - BASILYS_LOCATION("warmelt-macro.melt:4146:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4151:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:4146:/ apply.arg"); - argtab[3].bp_long = 4146; + BASILYS_LOCATION("warmelt-macro.melt:4151:/ apply.arg"); + argtab[3].bp_long = 4151; /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V22*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4146:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4151:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4146:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4151:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4146:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4151:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4147:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4152:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V20*/ curfptr[19];; - BASILYS_LOCATION("warmelt-macro.melt:4147:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4152:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V19*/ curfptr[18] = /*_.RETURN___V24*/ curfptr[22];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4143:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4148:/ clear"); /*clear*/ /*_.RES__V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4143:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4148:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4143:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4148:/ clear"); /*clear*/ /*_.RETURN___V24*/ curfptr[22] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V19*/ curfptr[18];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4131:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4131:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4131:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4131:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4131:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4131:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ clear"); /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4131:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ clear"); /*clear*/ /*_#NULL__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4131:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ clear"); /*clear*/ /*_.PAIR_TAIL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4131:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ clear"); /*clear*/ /*_#NOTNULL__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4131:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4131:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ clear"); /*clear*/ /*_#OR___L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4131:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ clear"); /*clear*/ /*_#NOT__L9*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4131:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4136:/ clear"); /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:4127:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:4127:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4127:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4127:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4127:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4127:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -47573,18 +47652,18 @@ basilys_trace_start("MEXPAND_STORE_PREDEFINED", callcount); /*getargs*/ /*getarg#0*/ - BASILYS_LOCATION("warmelt-macro.melt:4153:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ getarg"); /*_.SEXPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ - BASILYS_LOCATION("warmelt-macro.melt:4153:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ - BASILYS_LOCATION("warmelt-macro.melt:4153:/ getarg"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MEXPANDER__V4*/ curfptr[3])) != NULL); @@ -47593,28 +47672,28 @@ basilys_trace_start("MEXPAND_STORE_PREDEFINED", callcount); goto lab_endgetargs; lab_endgetargs:; /*body*/ -BASILYS_LOCATION("warmelt-macro.melt:4153:/ block"); +BASILYS_LOCATION("warmelt-macro.melt:4158:/ block"); /*block*/{ #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4154:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4154:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4159:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4159:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SEXPR*/ curfrout->tabval[0])));; - BASILYS_LOCATION("warmelt-macro.melt:4154:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4159:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4154:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4159:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:4154:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4159:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4154:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4159:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4154:/ locexp"); - basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4154)?(4154):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:4159:/ locexp"); + basilys_assert_failed(( "check sexpr"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4159)?(4159):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; @@ -47624,36 +47703,36 @@ BASILYS_LOCATION("warmelt-macro.melt:4153:/ block"); ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4154:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4159:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4154:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4159:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4154:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4159:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4155:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4155:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4160:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4160:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; - BASILYS_LOCATION("warmelt-macro.melt:4155:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4160:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4155:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4160:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; - } else {BASILYS_LOCATION("warmelt-macro.melt:4155:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4160:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4155:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4160:/ block"); /*block*/{ /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4155:/ locexp"); - basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4155)?(4155):__LINE__, __FUNCTION__);} + BASILYS_LOCATION("warmelt-macro.melt:4160:/ locexp"); + basilys_assert_failed(( "check env"),( "warmelt-macro.melt")?( "warmelt-macro.melt"):__FILE__,(4160)?(4160):__LINE__, __FUNCTION__);} ; /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; @@ -47663,57 +47742,57 @@ BASILYS_LOCATION("warmelt-macro.melt:4153:/ block"); ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4155:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4160:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4155:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4160:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4155:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4160:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4156:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4156:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4161:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4161:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:4156:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4161:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4156:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4161:/ apply.arg"); argtab[0].bp_cstring = "mexpand_store_predefined sexpr"; - BASILYS_LOCATION("warmelt-macro.melt:4156:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4161:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; - BASILYS_LOCATION("warmelt-macro.melt:4156:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4161:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:4156:/ apply.arg"); - argtab[3].bp_long = 4156; + BASILYS_LOCATION("warmelt-macro.melt:4161:/ apply.arg"); + argtab[3].bp_long = 4161; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4156:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4161:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4156:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4161:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4156:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4161:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4158:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4163:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 2, "SEXP_CONTENTS");/*_.CONT__V12*/ curfptr[11] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4159:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4164:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXPR__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOC__V13*/ curfptr[12] = slot; }; ; @@ -47723,13 +47802,13 @@ BASILYS_LOCATION("warmelt-macro.melt:4153:/ block"); (basilys_pair_tail((basilys_ptr_t)(/*_.LIST_FIRST__V14*/ curfptr[13])));; /*_.PAIR_HEAD__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:4161:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4166:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4161:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4166:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:4161:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4166:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.SPREDEF__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -47737,14 +47816,14 @@ BASILYS_LOCATION("warmelt-macro.melt:4153:/ block"); /*_.SVAL__V18*/ curfptr[17] = (/*nil*/NULL);; /*_#NULL__L4*/ curfnum[0] = ((/*_.CURPAIR__V15*/ curfptr[14]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:4164:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4169:/ cond"); /*cond*/ if (/*_#NULL__L4*/ curfnum[0]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4164:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:4164:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4169:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4169:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4165:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4170:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -47753,18 +47832,18 @@ BASILYS_LOCATION("warmelt-macro.melt:4153:/ block"); ; /*_.PAIR_TAIL__V19*/ curfptr[18] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:4166:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:4171:/ compute"); /*_.CURPAIR__V15*/ curfptr[14] = /*_.SETQ___V20*/ curfptr[19] = /*_.PAIR_TAIL__V19*/ curfptr[18];; /*_#NULL__L5*/ curfnum[4] = ((/*_.CURPAIR__V15*/ curfptr[14]) == NULL);; - BASILYS_LOCATION("warmelt-macro.melt:4167:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4172:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4167:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:4167:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4172:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4172:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4168:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4173:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) missing predef"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -47773,31 +47852,31 @@ BASILYS_LOCATION("warmelt-macro.melt:4153:/ block"); ; /*_.PAIR_HEAD__V21*/ curfptr[20] = (basilys_pair_head((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; - BASILYS_LOCATION("warmelt-macro.melt:4169:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4174:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4169:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4174:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; - BASILYS_LOCATION("warmelt-macro.melt:4169:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4174:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.MEXPANDER__V4*/ curfptr[3]; /*_.MACROEXPAND_1__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_1*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PAIR_HEAD__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4169:/ compute"); + BASILYS_LOCATION("warmelt-macro.melt:4174:/ compute"); /*_.SVAL__V18*/ curfptr[17] = /*_.SETQ___V23*/ curfptr[22] = /*_.MACROEXPAND_1__V22*/ curfptr[21];; /*_.PAIR_TAIL__V24*/ curfptr[23] = (basilys_pair_tail((basilys_ptr_t)(/*_.CURPAIR__V15*/ curfptr[14])));; /*_#NOTNULL__L6*/ curfnum[5] = ((/*_.PAIR_TAIL__V24*/ curfptr[23]) != NULL);; - BASILYS_LOCATION("warmelt-macro.melt:4170:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4175:/ cond"); /*cond*/ if (/*_#NOTNULL__L6*/ curfnum[5]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4170:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:4170:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4175:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4175:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4171:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4176:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) extra argument"), (basilys_ptr_t)0);} ; /*epilog*/} @@ -47806,59 +47885,59 @@ BASILYS_LOCATION("warmelt-macro.melt:4153:/ block"); ; /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; - BASILYS_LOCATION("warmelt-macro.melt:4172:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4177:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4172:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4177:/ cond.then"); /*_#OR___L8*/ curfnum[7] = /*_#IS_A__L7*/ curfnum[6];; - } else {BASILYS_LOCATION("warmelt-macro.melt:4172:/ cond.else"); + } else {BASILYS_LOCATION("warmelt-macro.melt:4177:/ cond.else"); - BASILYS_LOCATION("warmelt-macro.melt:4172:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4177:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L9*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);; /*_#OR___L8*/ curfnum[7] = /*_#IS_INTEGERBOX__L9*/ curfnum[8];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4172:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4177:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L9*/ curfnum[8] = 0 ;} ; } ; /*_#NOT__L10*/ curfnum[8] = (!(/*_#OR___L8*/ curfnum[7]));; - BASILYS_LOCATION("warmelt-macro.melt:4172:/ cond"); + BASILYS_LOCATION("warmelt-macro.melt:4177:/ cond"); /*cond*/ if (/*_#NOT__L10*/ curfnum[8]) /*then*/ { - BASILYS_LOCATION("warmelt-macro.melt:4172:/ cond.then"); - BASILYS_LOCATION("warmelt-macro.melt:4172:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4177:/ cond.then"); + BASILYS_LOCATION("warmelt-macro.melt:4177:/ block"); /*block*/{ { - BASILYS_LOCATION("warmelt-macro.melt:4173:/ locexp"); + BASILYS_LOCATION("warmelt-macro.melt:4178:/ locexp"); basilys_error_str((basilys_ptr_t)(/*_.LOC__V13*/ curfptr[12]), ( "(STORE_PREDEFINED <predef-name-or-rank> <value>) invalid predef"), (basilys_ptr_t)0);} ; /*epilog*/} ; } /*noelse*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4174:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4179:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4174:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4179:/ block"); /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4174:/ rawallocobj"); + BASILYS_LOCATION("warmelt-macro.melt:4179:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_STORE_PREDEFINED*/ curfrout->tabval[5])), (3), "CLASS_SRC_STORE_PREDEFINED");/*_.INST__V27*/ curfptr[26] = newobj; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4174:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4179:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V27*/ curfptr[26]), (0), (/*_.LOC__V13*/ curfptr[12]), "SRC_LOC"); ; - BASILYS_LOCATION("warmelt-macro.melt:4174:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4179:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V27*/ curfptr[26]), (1), (/*_.SPREDEF__V17*/ curfptr[16]), "SSTPD_PREDEF"); ; - BASILYS_LOCATION("warmelt-macro.melt:4174:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:4179:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V27*/ curfptr[26]), (2), (/*_.SVAL__V18*/ curfptr[17]), "SSTPD_VALUE"); @@ -47867,112 +47946,112 @@ BASILYS_LOCATION("warmelt-macro.melt:4153:/ block"); ; #if ENABLE_CHECKING - BASILYS_LOCATION("warmelt-macro.melt:4179:/ cppif.then"); - BASILYS_LOCATION("warmelt-macro.melt:4179:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4184:/ cppif.then"); + BASILYS_LOCATION("warmelt-macro.melt:4184:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = callcount;; - BASILYS_LOCATION("warmelt-macro.melt:4179:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4184:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4179:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4184:/ apply.arg"); argtab[0].bp_cstring = "mexpand_store_predefined result"; - BASILYS_LOCATION("warmelt-macro.melt:4179:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4184:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10]; - BASILYS_LOCATION("warmelt-macro.melt:4179:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4184:/ apply.arg"); argtab[2].bp_cstring = "warmelt-macro.melt"; - BASILYS_LOCATION("warmelt-macro.melt:4179:/ apply.arg"); - argtab[3].bp_long = 4179; + BASILYS_LOCATION("warmelt-macro.melt:4184:/ apply.arg"); + argtab[3].bp_long = 4184; /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V28*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4179:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4184:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4179:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4184:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ - BASILYS_LOCATION("warmelt-macro.melt:4179:/ cppif.else"); + BASILYS_LOCATION("warmelt-macro.melt:4184:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; - BASILYS_LOCATION("warmelt-macro.melt:4180:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4185:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V26*/ curfptr[25];; - BASILYS_LOCATION("warmelt-macro.melt:4180:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4185:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V25*/ curfptr[24] = /*_.RETURN___V30*/ curfptr[28];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4174:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4179:/ clear"); /*clear*/ /*_.RES__V26*/ curfptr[25] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4174:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4179:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4174:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4179:/ clear"); /*clear*/ /*_.RETURN___V30*/ curfptr[28] = 0 ;} ; /*_.LET___V11*/ curfptr[9] = /*_.LET___V25*/ curfptr[24];; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.CONT__V12*/ curfptr[11] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.LOC__V13*/ curfptr[12] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.LIST_FIRST__V14*/ curfptr[13] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.CURPAIR__V15*/ curfptr[14] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.PAIR_HEAD__V16*/ curfptr[15] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.SVAL__V18*/ curfptr[17] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_#NULL__L4*/ curfnum[0] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.PAIR_TAIL__V19*/ curfptr[18] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.SETQ___V20*/ curfptr[19] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.PAIR_HEAD__V21*/ curfptr[20] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.MACROEXPAND_1__V22*/ curfptr[21] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.PAIR_TAIL__V24*/ curfptr[23] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_#NOTNULL__L6*/ curfnum[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_#OR___L8*/ curfnum[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_#NOT__L10*/ curfnum[8] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4157:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4162:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ;} ; - BASILYS_LOCATION("warmelt-macro.melt:4153:/ block"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[9];; - BASILYS_LOCATION("warmelt-macro.melt:4153:/ finalreturn"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ - BASILYS_LOCATION("warmelt-macro.melt:4153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; - BASILYS_LOCATION("warmelt-macro.melt:4153:/ clear"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[9] = 0 ;} ; @@ -49327,7 +49406,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_3__CLASS_SRC)); basilys_assertmsg("iniobj checkdiscr dobj_5__CLASS_SRC_APPLY", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_5__CLASS_SRC_APPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_5__CLASS_SRC_APPLY.obj_num = OBMAG_OBJECT; - cdat->dobj_5__CLASS_SRC_APPLY.obj_hash = 588024828; + cdat->dobj_5__CLASS_SRC_APPLY.obj_hash = 844808957; cdat->dobj_5__CLASS_SRC_APPLY.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_5__CLASS_SRC_APPLY)); @@ -49363,7 +49442,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_9__SAPP_FUN)); basilys_assertmsg("iniobj checkdiscr dobj_11__SAPP_FUN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_11__SAPP_FUN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_11__SAPP_FUN.obj_num = 1; - cdat->dobj_11__SAPP_FUN.obj_hash = 388979865; + cdat->dobj_11__SAPP_FUN.obj_hash = 349216910; cdat->dobj_11__SAPP_FUN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_11__SAPP_FUN)); @@ -49391,7 +49470,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_13__SAPP_ARGS)); basilys_assertmsg("iniobj checkdiscr dobj_15__SAPP_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_15__SAPP_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_15__SAPP_ARGS.obj_num = 2; - cdat->dobj_15__SAPP_ARGS.obj_hash = 535864786; + cdat->dobj_15__SAPP_ARGS.obj_hash = 415950100; cdat->dobj_15__SAPP_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_15__SAPP_ARGS)); @@ -49419,7 +49498,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_17__CLASS_SRC_MSEND basilys_assertmsg("iniobj checkdiscr dobj_19__CLASS_SRC_MSEND", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_19__CLASS_SRC_MSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_19__CLASS_SRC_MSEND.obj_num = OBMAG_OBJECT; - cdat->dobj_19__CLASS_SRC_MSEND.obj_hash = 1027444470; + cdat->dobj_19__CLASS_SRC_MSEND.obj_hash = 595552983; cdat->dobj_19__CLASS_SRC_MSEND.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_19__CLASS_SRC_MSEND)); @@ -49455,7 +49534,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_23__MSEND_SELSYMB)) basilys_assertmsg("iniobj checkdiscr dobj_25__MSEND_SELSYMB", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_25__MSEND_SELSYMB.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_25__MSEND_SELSYMB.obj_num = 1; - cdat->dobj_25__MSEND_SELSYMB.obj_hash = 334411918; + cdat->dobj_25__MSEND_SELSYMB.obj_hash = 661827431; cdat->dobj_25__MSEND_SELSYMB.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_25__MSEND_SELSYMB)); @@ -49483,7 +49562,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_27__MSEND_RECV)); basilys_assertmsg("iniobj checkdiscr dobj_29__MSEND_RECV", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_29__MSEND_RECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_29__MSEND_RECV.obj_num = 2; - cdat->dobj_29__MSEND_RECV.obj_hash = 463165101; + cdat->dobj_29__MSEND_RECV.obj_hash = 1057067627; cdat->dobj_29__MSEND_RECV.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_29__MSEND_RECV)); @@ -49511,7 +49590,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_31__MSEND_ARGS)); basilys_assertmsg("iniobj checkdiscr dobj_33__MSEND_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_33__MSEND_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_33__MSEND_ARGS.obj_num = 3; - cdat->dobj_33__MSEND_ARGS.obj_hash = 451886571; + cdat->dobj_33__MSEND_ARGS.obj_hash = 160764745; cdat->dobj_33__MSEND_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_33__MSEND_ARGS)); @@ -49539,7 +49618,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_35__CLASS_SRC_PRIMI basilys_assertmsg("iniobj checkdiscr dobj_37__CLASS_SRC_PRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_37__CLASS_SRC_PRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_37__CLASS_SRC_PRIMITIVE.obj_num = OBMAG_OBJECT; - cdat->dobj_37__CLASS_SRC_PRIMITIVE.obj_hash = 285996600; + cdat->dobj_37__CLASS_SRC_PRIMITIVE.obj_hash = 1030091720; cdat->dobj_37__CLASS_SRC_PRIMITIVE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_37__CLASS_SRC_PRIMITIVE)); @@ -49575,7 +49654,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_41__SPRIM_OPER)); basilys_assertmsg("iniobj checkdiscr dobj_43__SPRIM_OPER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_43__SPRIM_OPER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_43__SPRIM_OPER.obj_num = 1; - cdat->dobj_43__SPRIM_OPER.obj_hash = 907696095; + cdat->dobj_43__SPRIM_OPER.obj_hash = 677447027; cdat->dobj_43__SPRIM_OPER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_43__SPRIM_OPER)); @@ -49603,7 +49682,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_45__SPRIM_ARGS)); basilys_assertmsg("iniobj checkdiscr dobj_47__SPRIM_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_47__SPRIM_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_47__SPRIM_ARGS.obj_num = 2; - cdat->dobj_47__SPRIM_ARGS.obj_hash = 280639958; + cdat->dobj_47__SPRIM_ARGS.obj_hash = 345727155; cdat->dobj_47__SPRIM_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_47__SPRIM_ARGS)); @@ -49631,7 +49710,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_49__CLASS_SRC_CITER basilys_assertmsg("iniobj checkdiscr dobj_51__CLASS_SRC_CITERATION", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_51__CLASS_SRC_CITERATION.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_51__CLASS_SRC_CITERATION.obj_num = OBMAG_OBJECT; - cdat->dobj_51__CLASS_SRC_CITERATION.obj_hash = 357971058; + cdat->dobj_51__CLASS_SRC_CITERATION.obj_hash = 118348019; cdat->dobj_51__CLASS_SRC_CITERATION.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_51__CLASS_SRC_CITERATION)); @@ -49667,7 +49746,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_55__SCITER_OPER)); basilys_assertmsg("iniobj checkdiscr dobj_57__SCITER_OPER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_57__SCITER_OPER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_57__SCITER_OPER.obj_num = 1; - cdat->dobj_57__SCITER_OPER.obj_hash = 535613880; + cdat->dobj_57__SCITER_OPER.obj_hash = 889400375; cdat->dobj_57__SCITER_OPER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_57__SCITER_OPER)); @@ -49695,7 +49774,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_59__SCITER_ARGS)); basilys_assertmsg("iniobj checkdiscr dobj_61__SCITER_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_61__SCITER_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_61__SCITER_ARGS.obj_num = 2; - cdat->dobj_61__SCITER_ARGS.obj_hash = 479150547; + cdat->dobj_61__SCITER_ARGS.obj_hash = 508343706; cdat->dobj_61__SCITER_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_61__SCITER_ARGS)); @@ -49723,7 +49802,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_63__SCITER_VARBIND) basilys_assertmsg("iniobj checkdiscr dobj_65__SCITER_VARBIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_65__SCITER_VARBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_65__SCITER_VARBIND.obj_num = 3; - cdat->dobj_65__SCITER_VARBIND.obj_hash = 478968987; + cdat->dobj_65__SCITER_VARBIND.obj_hash = 126061094; cdat->dobj_65__SCITER_VARBIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_65__SCITER_VARBIND)); @@ -49751,7 +49830,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_67__SCITER_BODY)); basilys_assertmsg("iniobj checkdiscr dobj_69__SCITER_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_69__SCITER_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_69__SCITER_BODY.obj_num = 4; - cdat->dobj_69__SCITER_BODY.obj_hash = 754200128; + cdat->dobj_69__SCITER_BODY.obj_hash = 89930768; cdat->dobj_69__SCITER_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_69__SCITER_BODY)); @@ -49779,7 +49858,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_71__CLASS_SRC_CMATC basilys_assertmsg("iniobj checkdiscr dobj_73__CLASS_SRC_CMATCHEXPR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_73__CLASS_SRC_CMATCHEXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_73__CLASS_SRC_CMATCHEXPR.obj_num = OBMAG_OBJECT; - cdat->dobj_73__CLASS_SRC_CMATCHEXPR.obj_hash = 571453104; + cdat->dobj_73__CLASS_SRC_CMATCHEXPR.obj_hash = 361668481; cdat->dobj_73__CLASS_SRC_CMATCHEXPR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_73__CLASS_SRC_CMATCHEXPR)); @@ -49815,7 +49894,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_77__SCMATX_CMATCHER basilys_assertmsg("iniobj checkdiscr dobj_79__SCMATX_CMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_79__SCMATX_CMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_79__SCMATX_CMATCHER.obj_num = 1; - cdat->dobj_79__SCMATX_CMATCHER.obj_hash = 333416435; + cdat->dobj_79__SCMATX_CMATCHER.obj_hash = 668665555; cdat->dobj_79__SCMATX_CMATCHER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_79__SCMATX_CMATCHER)); @@ -49843,7 +49922,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_81__SCMATX_ARGS)); basilys_assertmsg("iniobj checkdiscr dobj_83__SCMATX_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_83__SCMATX_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_83__SCMATX_ARGS.obj_num = 2; - cdat->dobj_83__SCMATX_ARGS.obj_hash = 588463774; + cdat->dobj_83__SCMATX_ARGS.obj_hash = 507646662; cdat->dobj_83__SCMATX_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_83__SCMATX_ARGS)); @@ -49871,7 +49950,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_85__CLASS_SRC_FUNMA basilys_assertmsg("iniobj checkdiscr dobj_87__CLASS_SRC_FUNMATCHEXPR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_87__CLASS_SRC_FUNMATCHEXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_87__CLASS_SRC_FUNMATCHEXPR.obj_num = OBMAG_OBJECT; - cdat->dobj_87__CLASS_SRC_FUNMATCHEXPR.obj_hash = 188441103; + cdat->dobj_87__CLASS_SRC_FUNMATCHEXPR.obj_hash = 540694795; cdat->dobj_87__CLASS_SRC_FUNMATCHEXPR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_87__CLASS_SRC_FUNMATCHEXPR)); @@ -49907,7 +49986,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_91__SFMATX_FMATCHER basilys_assertmsg("iniobj checkdiscr dobj_93__SFMATX_FMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_93__SFMATX_FMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_93__SFMATX_FMATCHER.obj_num = 1; - cdat->dobj_93__SFMATX_FMATCHER.obj_hash = 907514071; + cdat->dobj_93__SFMATX_FMATCHER.obj_hash = 796521840; cdat->dobj_93__SFMATX_FMATCHER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_93__SFMATX_FMATCHER)); @@ -49935,7 +50014,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_95__SFMATX_ARGS)); basilys_assertmsg("iniobj checkdiscr dobj_97__SFMATX_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_97__SFMATX_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_97__SFMATX_ARGS.obj_num = 2; - cdat->dobj_97__SFMATX_ARGS.obj_hash = 673125376; + cdat->dobj_97__SFMATX_ARGS.obj_hash = 100139201; cdat->dobj_97__SFMATX_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_97__SFMATX_ARGS)); @@ -49963,7 +50042,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_99__CLASS_SRC_PROGN basilys_assertmsg("iniobj checkdiscr dobj_101__CLASS_SRC_PROGN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_101__CLASS_SRC_PROGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_101__CLASS_SRC_PROGN.obj_num = OBMAG_OBJECT; - cdat->dobj_101__CLASS_SRC_PROGN.obj_hash = 696429596; + cdat->dobj_101__CLASS_SRC_PROGN.obj_hash = 979835783; cdat->dobj_101__CLASS_SRC_PROGN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_101__CLASS_SRC_PROGN)); @@ -49999,7 +50078,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_105__SPROGN_BODY)); basilys_assertmsg("iniobj checkdiscr dobj_107__SPROGN_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_107__SPROGN_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_107__SPROGN_BODY.obj_num = 1; - cdat->dobj_107__SPROGN_BODY.obj_hash = 303710672; + cdat->dobj_107__SPROGN_BODY.obj_hash = 293794701; cdat->dobj_107__SPROGN_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_107__SPROGN_BODY)); @@ -50027,7 +50106,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_109__CLASS_SRC_RETU basilys_assertmsg("iniobj checkdiscr dobj_111__CLASS_SRC_RETURN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_111__CLASS_SRC_RETURN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_111__CLASS_SRC_RETURN.obj_num = OBMAG_OBJECT; - cdat->dobj_111__CLASS_SRC_RETURN.obj_hash = 779977475; + cdat->dobj_111__CLASS_SRC_RETURN.obj_hash = 600024933; cdat->dobj_111__CLASS_SRC_RETURN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_111__CLASS_SRC_RETURN)); @@ -50063,7 +50142,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_115__SRETURN_BODY)) basilys_assertmsg("iniobj checkdiscr dobj_117__SRETURN_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_117__SRETURN_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_117__SRETURN_BODY.obj_num = 1; - cdat->dobj_117__SRETURN_BODY.obj_hash = 431618331; + cdat->dobj_117__SRETURN_BODY.obj_hash = 984131275; cdat->dobj_117__SRETURN_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_117__SRETURN_BODY)); @@ -50091,7 +50170,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_119__CLASS_SRC_SETQ basilys_assertmsg("iniobj checkdiscr dobj_121__CLASS_SRC_SETQ", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_121__CLASS_SRC_SETQ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_121__CLASS_SRC_SETQ.obj_num = OBMAG_OBJECT; - cdat->dobj_121__CLASS_SRC_SETQ.obj_hash = 112827688; + cdat->dobj_121__CLASS_SRC_SETQ.obj_hash = 929807001; cdat->dobj_121__CLASS_SRC_SETQ.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_121__CLASS_SRC_SETQ)); @@ -50127,7 +50206,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_125__SSTQ_VAR)); basilys_assertmsg("iniobj checkdiscr dobj_127__SSTQ_VAR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_127__SSTQ_VAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_127__SSTQ_VAR.obj_num = 1; - cdat->dobj_127__SSTQ_VAR.obj_hash = 533545827; + cdat->dobj_127__SSTQ_VAR.obj_hash = 543349438; cdat->dobj_127__SSTQ_VAR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_127__SSTQ_VAR)); @@ -50155,7 +50234,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_129__SSTQ_EXPR)); basilys_assertmsg("iniobj checkdiscr dobj_131__SSTQ_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_131__SSTQ_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_131__SSTQ_EXPR.obj_num = 2; - cdat->dobj_131__SSTQ_EXPR.obj_hash = 355313945; + cdat->dobj_131__SSTQ_EXPR.obj_hash = 258893543; cdat->dobj_131__SSTQ_EXPR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_131__SSTQ_EXPR)); @@ -50183,7 +50262,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_133__CLASS_SRC_COMM basilys_assertmsg("iniobj checkdiscr dobj_135__CLASS_SRC_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_135__CLASS_SRC_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_135__CLASS_SRC_COMMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_135__CLASS_SRC_COMMENT.obj_hash = 529329683; + cdat->dobj_135__CLASS_SRC_COMMENT.obj_hash = 678019588; cdat->dobj_135__CLASS_SRC_COMMENT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_135__CLASS_SRC_COMMENT)); @@ -50219,7 +50298,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_139__SCOMM_STR)); basilys_assertmsg("iniobj checkdiscr dobj_141__SCOMM_STR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_141__SCOMM_STR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_141__SCOMM_STR.obj_num = 1; - cdat->dobj_141__SCOMM_STR.obj_hash = 698006940; + cdat->dobj_141__SCOMM_STR.obj_hash = 489107305; cdat->dobj_141__SCOMM_STR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_141__SCOMM_STR)); @@ -50247,7 +50326,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_143__CLASS_SRC_QUOT basilys_assertmsg("iniobj checkdiscr dobj_145__CLASS_SRC_QUOTE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_145__CLASS_SRC_QUOTE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_145__CLASS_SRC_QUOTE.obj_num = OBMAG_OBJECT; - cdat->dobj_145__CLASS_SRC_QUOTE.obj_hash = 112670123; + cdat->dobj_145__CLASS_SRC_QUOTE.obj_hash = 411531865; cdat->dobj_145__CLASS_SRC_QUOTE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_145__CLASS_SRC_QUOTE)); @@ -50283,7 +50362,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_149__SQUOTED)); basilys_assertmsg("iniobj checkdiscr dobj_151__SQUOTED", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_151__SQUOTED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_151__SQUOTED.obj_num = 1; - cdat->dobj_151__SQUOTED.obj_hash = 690424332; + cdat->dobj_151__SQUOTED.obj_hash = 986752256; cdat->dobj_151__SQUOTED.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_151__SQUOTED)); @@ -50311,7 +50390,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_153__CLASS_SRC_EXPO basilys_assertmsg("iniobj checkdiscr dobj_155__CLASS_SRC_EXPORTCOMMON", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_155__CLASS_SRC_EXPORTCOMMON.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_155__CLASS_SRC_EXPORTCOMMON.obj_num = OBMAG_OBJECT; - cdat->dobj_155__CLASS_SRC_EXPORTCOMMON.obj_hash = 851088382; + cdat->dobj_155__CLASS_SRC_EXPORTCOMMON.obj_hash = 59632600; cdat->dobj_155__CLASS_SRC_EXPORTCOMMON.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_155__CLASS_SRC_EXPORTCOMMON)); @@ -50347,7 +50426,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_159__SEXPORT_NAMES) basilys_assertmsg("iniobj checkdiscr dobj_161__SEXPORT_NAMES", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_161__SEXPORT_NAMES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_161__SEXPORT_NAMES.obj_num = 1; - cdat->dobj_161__SEXPORT_NAMES.obj_hash = 999836286; + cdat->dobj_161__SEXPORT_NAMES.obj_hash = 458441743; cdat->dobj_161__SEXPORT_NAMES.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_161__SEXPORT_NAMES)); @@ -50375,7 +50454,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_163__CLASS_SRC_EXPO basilys_assertmsg("iniobj checkdiscr dobj_165__CLASS_SRC_EXPORT_VALUES", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_165__CLASS_SRC_EXPORT_VALUES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_165__CLASS_SRC_EXPORT_VALUES.obj_num = OBMAG_OBJECT; - cdat->dobj_165__CLASS_SRC_EXPORT_VALUES.obj_hash = 701054111; + cdat->dobj_165__CLASS_SRC_EXPORT_VALUES.obj_hash = 404035575; cdat->dobj_165__CLASS_SRC_EXPORT_VALUES.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_165__CLASS_SRC_EXPORT_VALUES)); @@ -50411,7 +50490,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_169__CLASS_SRC_EXPO basilys_assertmsg("iniobj checkdiscr dobj_171__CLASS_SRC_EXPORT_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_171__CLASS_SRC_EXPORT_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_171__CLASS_SRC_EXPORT_CLASS.obj_num = OBMAG_OBJECT; - cdat->dobj_171__CLASS_SRC_EXPORT_CLASS.obj_hash = 992099742; + cdat->dobj_171__CLASS_SRC_EXPORT_CLASS.obj_hash = 171485442; cdat->dobj_171__CLASS_SRC_EXPORT_CLASS.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_171__CLASS_SRC_EXPORT_CLASS)); @@ -50447,7 +50526,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_175__CLASS_SRC_EXPO basilys_assertmsg("iniobj checkdiscr dobj_177__CLASS_SRC_EXPORT_MACRO", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_177__CLASS_SRC_EXPORT_MACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_177__CLASS_SRC_EXPORT_MACRO.obj_num = OBMAG_OBJECT; - cdat->dobj_177__CLASS_SRC_EXPORT_MACRO.obj_hash = 407154889; + cdat->dobj_177__CLASS_SRC_EXPORT_MACRO.obj_hash = 747611101; cdat->dobj_177__CLASS_SRC_EXPORT_MACRO.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_177__CLASS_SRC_EXPORT_MACRO)); @@ -50483,7 +50562,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_181__SEXPMAC_MNAME) basilys_assertmsg("iniobj checkdiscr dobj_183__SEXPMAC_MNAME", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_183__SEXPMAC_MNAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_183__SEXPMAC_MNAME.obj_num = 1; - cdat->dobj_183__SEXPMAC_MNAME.obj_hash = 114963462; + cdat->dobj_183__SEXPMAC_MNAME.obj_hash = 647607002; cdat->dobj_183__SEXPMAC_MNAME.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_183__SEXPMAC_MNAME)); @@ -50511,7 +50590,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_185__SEXPMAC_MVAL)) basilys_assertmsg("iniobj checkdiscr dobj_187__SEXPMAC_MVAL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_187__SEXPMAC_MVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_187__SEXPMAC_MVAL.obj_num = 2; - cdat->dobj_187__SEXPMAC_MVAL.obj_hash = 170072299; + cdat->dobj_187__SEXPMAC_MVAL.obj_hash = 630630223; cdat->dobj_187__SEXPMAC_MVAL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_187__SEXPMAC_MVAL)); @@ -50539,7 +50618,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_189__CLASS_SRC_EXPO basilys_assertmsg("iniobj checkdiscr dobj_191__CLASS_SRC_EXPORT_PATMACRO", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_191__CLASS_SRC_EXPORT_PATMACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_191__CLASS_SRC_EXPORT_PATMACRO.obj_num = OBMAG_OBJECT; - cdat->dobj_191__CLASS_SRC_EXPORT_PATMACRO.obj_hash = 586231796; + cdat->dobj_191__CLASS_SRC_EXPORT_PATMACRO.obj_hash = 359523775; cdat->dobj_191__CLASS_SRC_EXPORT_PATMACRO.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_191__CLASS_SRC_EXPORT_PATMACRO)); @@ -50575,7 +50654,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_195__SEXPPAT_PVAL)) basilys_assertmsg("iniobj checkdiscr dobj_197__SEXPPAT_PVAL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_197__SEXPPAT_PVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_197__SEXPPAT_PVAL.obj_num = 3; - cdat->dobj_197__SEXPPAT_PVAL.obj_hash = 5393911; + cdat->dobj_197__SEXPPAT_PVAL.obj_hash = 661021708; cdat->dobj_197__SEXPPAT_PVAL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_197__SEXPPAT_PVAL)); @@ -50603,7 +50682,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_199__CLASS_SRCDEF)) basilys_assertmsg("iniobj checkdiscr dobj_201__CLASS_SRCDEF", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_201__CLASS_SRCDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_201__CLASS_SRCDEF.obj_num = OBMAG_OBJECT; - cdat->dobj_201__CLASS_SRCDEF.obj_hash = 795919515; + cdat->dobj_201__CLASS_SRCDEF.obj_hash = 611921871; cdat->dobj_201__CLASS_SRCDEF.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_201__CLASS_SRCDEF)); @@ -50639,7 +50718,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_205__SDEF_NAME)); basilys_assertmsg("iniobj checkdiscr dobj_207__SDEF_NAME", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_207__SDEF_NAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_207__SDEF_NAME.obj_num = 1; - cdat->dobj_207__SDEF_NAME.obj_hash = 556163101; + cdat->dobj_207__SDEF_NAME.obj_hash = 643199580; cdat->dobj_207__SDEF_NAME.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_207__SDEF_NAME)); @@ -50667,7 +50746,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_209__CLASS_SRCDEFOR basilys_assertmsg("iniobj checkdiscr dobj_211__CLASS_SRCDEFORMAL", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_211__CLASS_SRCDEFORMAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_211__CLASS_SRCDEFORMAL.obj_num = OBMAG_OBJECT; - cdat->dobj_211__CLASS_SRCDEFORMAL.obj_hash = 650608393; + cdat->dobj_211__CLASS_SRCDEFORMAL.obj_hash = 857700230; cdat->dobj_211__CLASS_SRCDEFORMAL.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_211__CLASS_SRCDEFORMAL)); @@ -50703,7 +50782,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_215__SFORMAL_ARGS)) basilys_assertmsg("iniobj checkdiscr dobj_217__SFORMAL_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_217__SFORMAL_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_217__SFORMAL_ARGS.obj_num = 2; - cdat->dobj_217__SFORMAL_ARGS.obj_hash = 133000527; + cdat->dobj_217__SFORMAL_ARGS.obj_hash = 79065319; cdat->dobj_217__SFORMAL_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_217__SFORMAL_ARGS)); @@ -50731,7 +50810,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_219__CLASS_SRC_DEFU basilys_assertmsg("iniobj checkdiscr dobj_221__CLASS_SRC_DEFUN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_221__CLASS_SRC_DEFUN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_221__CLASS_SRC_DEFUN.obj_num = OBMAG_OBJECT; - cdat->dobj_221__CLASS_SRC_DEFUN.obj_hash = 524910787; + cdat->dobj_221__CLASS_SRC_DEFUN.obj_hash = 60682057; cdat->dobj_221__CLASS_SRC_DEFUN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_221__CLASS_SRC_DEFUN)); @@ -50767,7 +50846,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_225__SFUN_BODY)); basilys_assertmsg("iniobj checkdiscr dobj_227__SFUN_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_227__SFUN_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_227__SFUN_BODY.obj_num = 3; - cdat->dobj_227__SFUN_BODY.obj_hash = 550143810; + cdat->dobj_227__SFUN_BODY.obj_hash = 28133488; cdat->dobj_227__SFUN_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_227__SFUN_BODY)); @@ -50795,7 +50874,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_229__CLASS_SRC_DEFP basilys_assertmsg("iniobj checkdiscr dobj_231__CLASS_SRC_DEFPRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_231__CLASS_SRC_DEFPRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_231__CLASS_SRC_DEFPRIMITIVE.obj_num = OBMAG_OBJECT; - cdat->dobj_231__CLASS_SRC_DEFPRIMITIVE.obj_hash = 102367120; + cdat->dobj_231__CLASS_SRC_DEFPRIMITIVE.obj_hash = 1072241599; cdat->dobj_231__CLASS_SRC_DEFPRIMITIVE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_231__CLASS_SRC_DEFPRIMITIVE)); @@ -50831,7 +50910,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_235__SPRIM_TYPE)); basilys_assertmsg("iniobj checkdiscr dobj_237__SPRIM_TYPE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_237__SPRIM_TYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_237__SPRIM_TYPE.obj_num = 3; - cdat->dobj_237__SPRIM_TYPE.obj_hash = 647648766; + cdat->dobj_237__SPRIM_TYPE.obj_hash = 1048865477; cdat->dobj_237__SPRIM_TYPE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_237__SPRIM_TYPE)); @@ -50859,7 +50938,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_239__SPRIM_EXPANSIO basilys_assertmsg("iniobj checkdiscr dobj_241__SPRIM_EXPANSION", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_241__SPRIM_EXPANSION.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_241__SPRIM_EXPANSION.obj_num = 4; - cdat->dobj_241__SPRIM_EXPANSION.obj_hash = 51536104; + cdat->dobj_241__SPRIM_EXPANSION.obj_hash = 618025847; cdat->dobj_241__SPRIM_EXPANSION.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_241__SPRIM_EXPANSION)); @@ -50887,7 +50966,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_243__CLASS_SRC_DEFC basilys_assertmsg("iniobj checkdiscr dobj_245__CLASS_SRC_DEFCITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_245__CLASS_SRC_DEFCITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_245__CLASS_SRC_DEFCITERATOR.obj_num = OBMAG_OBJECT; - cdat->dobj_245__CLASS_SRC_DEFCITERATOR.obj_hash = 618790505; + cdat->dobj_245__CLASS_SRC_DEFCITERATOR.obj_hash = 225984339; cdat->dobj_245__CLASS_SRC_DEFCITERATOR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_245__CLASS_SRC_DEFCITERATOR)); @@ -50923,7 +51002,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_249__SCITERDEF_CITE basilys_assertmsg("iniobj checkdiscr dobj_251__SCITERDEF_CITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_251__SCITERDEF_CITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_251__SCITERDEF_CITERATOR.obj_num = 3; - cdat->dobj_251__SCITERDEF_CITERATOR.obj_hash = 1072570299; + cdat->dobj_251__SCITERDEF_CITERATOR.obj_hash = 298508460; cdat->dobj_251__SCITERDEF_CITERATOR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_251__SCITERDEF_CITERATOR)); @@ -50951,7 +51030,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_253__CLASS_SRC_DEFC basilys_assertmsg("iniobj checkdiscr dobj_255__CLASS_SRC_DEFCMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_255__CLASS_SRC_DEFCMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_255__CLASS_SRC_DEFCMATCHER.obj_num = OBMAG_OBJECT; - cdat->dobj_255__CLASS_SRC_DEFCMATCHER.obj_hash = 367155688; + cdat->dobj_255__CLASS_SRC_DEFCMATCHER.obj_hash = 936279639; cdat->dobj_255__CLASS_SRC_DEFCMATCHER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_255__CLASS_SRC_DEFCMATCHER)); @@ -50987,7 +51066,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_259__SCMATDEF_CMATC basilys_assertmsg("iniobj checkdiscr dobj_261__SCMATDEF_CMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_261__SCMATDEF_CMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_261__SCMATDEF_CMATCHER.obj_num = 3; - cdat->dobj_261__SCMATDEF_CMATCHER.obj_hash = 194386737; + cdat->dobj_261__SCMATDEF_CMATCHER.obj_hash = 690272343; cdat->dobj_261__SCMATDEF_CMATCHER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_261__SCMATDEF_CMATCHER)); @@ -51015,7 +51094,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_263__CLASS_SRC_DEFU basilys_assertmsg("iniobj checkdiscr dobj_265__CLASS_SRC_DEFUNMATCHER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_265__CLASS_SRC_DEFUNMATCHER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_265__CLASS_SRC_DEFUNMATCHER.obj_num = OBMAG_OBJECT; - cdat->dobj_265__CLASS_SRC_DEFUNMATCHER.obj_hash = 81988023; + cdat->dobj_265__CLASS_SRC_DEFUNMATCHER.obj_hash = 849027955; cdat->dobj_265__CLASS_SRC_DEFUNMATCHER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_265__CLASS_SRC_DEFUNMATCHER)); @@ -51051,7 +51130,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_269__SFUMATDEF_INS) basilys_assertmsg("iniobj checkdiscr dobj_271__SFUMATDEF_INS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_271__SFUMATDEF_INS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_271__SFUMATDEF_INS.obj_num = 3; - cdat->dobj_271__SFUMATDEF_INS.obj_hash = 161033390; + cdat->dobj_271__SFUMATDEF_INS.obj_hash = 574479278; cdat->dobj_271__SFUMATDEF_INS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_271__SFUMATDEF_INS)); @@ -51079,7 +51158,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_273__SFUMATDEF_OUTS basilys_assertmsg("iniobj checkdiscr dobj_275__SFUMATDEF_OUTS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_275__SFUMATDEF_OUTS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_275__SFUMATDEF_OUTS.obj_num = 4; - cdat->dobj_275__SFUMATDEF_OUTS.obj_hash = 271511545; + cdat->dobj_275__SFUMATDEF_OUTS.obj_hash = 1057750924; cdat->dobj_275__SFUMATDEF_OUTS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_275__SFUMATDEF_OUTS)); @@ -51107,7 +51186,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_277__SFUMATDEF_MATC basilys_assertmsg("iniobj checkdiscr dobj_279__SFUMATDEF_MATCHF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_279__SFUMATDEF_MATCHF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_279__SFUMATDEF_MATCHF.obj_num = 5; - cdat->dobj_279__SFUMATDEF_MATCHF.obj_hash = 389541427; + cdat->dobj_279__SFUMATDEF_MATCHF.obj_hash = 166672498; cdat->dobj_279__SFUMATDEF_MATCHF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_279__SFUMATDEF_MATCHF)); @@ -51135,7 +51214,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_281__SFUMATDEF_APPL basilys_assertmsg("iniobj checkdiscr dobj_283__SFUMATDEF_APPLYF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_283__SFUMATDEF_APPLYF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_283__SFUMATDEF_APPLYF.obj_num = 6; - cdat->dobj_283__SFUMATDEF_APPLYF.obj_hash = 492835439; + cdat->dobj_283__SFUMATDEF_APPLYF.obj_hash = 569006824; cdat->dobj_283__SFUMATDEF_APPLYF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_283__SFUMATDEF_APPLYF)); @@ -51163,7 +51242,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_285__SFUMATDEF_DATA basilys_assertmsg("iniobj checkdiscr dobj_287__SFUMATDEF_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_287__SFUMATDEF_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_287__SFUMATDEF_DATA.obj_num = 7; - cdat->dobj_287__SFUMATDEF_DATA.obj_hash = 313111509; + cdat->dobj_287__SFUMATDEF_DATA.obj_hash = 882059144; cdat->dobj_287__SFUMATDEF_DATA.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_287__SFUMATDEF_DATA)); @@ -51191,7 +51270,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_289__CLASS_SRC_DEFO basilys_assertmsg("iniobj checkdiscr dobj_291__CLASS_SRC_DEFOBJCOMMON", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_291__CLASS_SRC_DEFOBJCOMMON.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_291__CLASS_SRC_DEFOBJCOMMON.obj_num = OBMAG_OBJECT; - cdat->dobj_291__CLASS_SRC_DEFOBJCOMMON.obj_hash = 866757682; + cdat->dobj_291__CLASS_SRC_DEFOBJCOMMON.obj_hash = 252557941; cdat->dobj_291__CLASS_SRC_DEFOBJCOMMON.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_291__CLASS_SRC_DEFOBJCOMMON)); @@ -51227,7 +51306,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_295__SOBJ_PREDEF)); basilys_assertmsg("iniobj checkdiscr dobj_297__SOBJ_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_297__SOBJ_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_297__SOBJ_PREDEF.obj_num = 2; - cdat->dobj_297__SOBJ_PREDEF.obj_hash = 422052849; + cdat->dobj_297__SOBJ_PREDEF.obj_hash = 159966052; cdat->dobj_297__SOBJ_PREDEF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_297__SOBJ_PREDEF)); @@ -51255,7 +51334,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_299__SOBJ_DOCSTR)); basilys_assertmsg("iniobj checkdiscr dobj_301__SOBJ_DOCSTR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_301__SOBJ_DOCSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_301__SOBJ_DOCSTR.obj_num = 3; - cdat->dobj_301__SOBJ_DOCSTR.obj_hash = 484857705; + cdat->dobj_301__SOBJ_DOCSTR.obj_hash = 916059288; cdat->dobj_301__SOBJ_DOCSTR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_301__SOBJ_DOCSTR)); @@ -51283,7 +51362,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_303__CLASS_SRC_DEFC basilys_assertmsg("iniobj checkdiscr dobj_305__CLASS_SRC_DEFCLASS", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_305__CLASS_SRC_DEFCLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_305__CLASS_SRC_DEFCLASS.obj_num = OBMAG_OBJECT; - cdat->dobj_305__CLASS_SRC_DEFCLASS.obj_hash = 280735119; + cdat->dobj_305__CLASS_SRC_DEFCLASS.obj_hash = 677101553; cdat->dobj_305__CLASS_SRC_DEFCLASS.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_305__CLASS_SRC_DEFCLASS)); @@ -51319,7 +51398,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_309__SCLASS_CLABIND basilys_assertmsg("iniobj checkdiscr dobj_311__SCLASS_CLABIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_311__SCLASS_CLABIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_311__SCLASS_CLABIND.obj_num = 4; - cdat->dobj_311__SCLASS_CLABIND.obj_hash = 749274756; + cdat->dobj_311__SCLASS_CLABIND.obj_hash = 801959348; cdat->dobj_311__SCLASS_CLABIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_311__SCLASS_CLABIND)); @@ -51347,7 +51426,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_313__SCLASS_SUPERBI basilys_assertmsg("iniobj checkdiscr dobj_315__SCLASS_SUPERBIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_315__SCLASS_SUPERBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_315__SCLASS_SUPERBIND.obj_num = 5; - cdat->dobj_315__SCLASS_SUPERBIND.obj_hash = 723363003; + cdat->dobj_315__SCLASS_SUPERBIND.obj_hash = 582031955; cdat->dobj_315__SCLASS_SUPERBIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_315__SCLASS_SUPERBIND)); @@ -51375,7 +51454,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_317__SCLASS_FLDBIND basilys_assertmsg("iniobj checkdiscr dobj_319__SCLASS_FLDBINDS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_319__SCLASS_FLDBINDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_319__SCLASS_FLDBINDS.obj_num = 6; - cdat->dobj_319__SCLASS_FLDBINDS.obj_hash = 554557379; + cdat->dobj_319__SCLASS_FLDBINDS.obj_hash = 1018716533; cdat->dobj_319__SCLASS_FLDBINDS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_319__SCLASS_FLDBINDS)); @@ -51403,7 +51482,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_321__CLASS_SRC_DEFI basilys_assertmsg("iniobj checkdiscr dobj_323__CLASS_SRC_DEFINSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_323__CLASS_SRC_DEFINSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_323__CLASS_SRC_DEFINSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_323__CLASS_SRC_DEFINSTANCE.obj_hash = 805406746; + cdat->dobj_323__CLASS_SRC_DEFINSTANCE.obj_hash = 291925063; cdat->dobj_323__CLASS_SRC_DEFINSTANCE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_323__CLASS_SRC_DEFINSTANCE)); @@ -51439,7 +51518,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_327__SINST_CLASS)); basilys_assertmsg("iniobj checkdiscr dobj_329__SINST_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_329__SINST_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_329__SINST_CLASS.obj_num = 4; - cdat->dobj_329__SINST_CLASS.obj_hash = 709787513; + cdat->dobj_329__SINST_CLASS.obj_hash = 38477934; cdat->dobj_329__SINST_CLASS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_329__SINST_CLASS)); @@ -51467,7 +51546,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_331__SINST_CLABIND) basilys_assertmsg("iniobj checkdiscr dobj_333__SINST_CLABIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_333__SINST_CLABIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_333__SINST_CLABIND.obj_num = 5; - cdat->dobj_333__SINST_CLABIND.obj_hash = 772286289; + cdat->dobj_333__SINST_CLABIND.obj_hash = 1014042590; cdat->dobj_333__SINST_CLABIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_333__SINST_CLABIND)); @@ -51495,7 +51574,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_335__SINST_OBJNUM)) basilys_assertmsg("iniobj checkdiscr dobj_337__SINST_OBJNUM", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_337__SINST_OBJNUM.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_337__SINST_OBJNUM.obj_num = 6; - cdat->dobj_337__SINST_OBJNUM.obj_hash = 913230664; + cdat->dobj_337__SINST_OBJNUM.obj_hash = 198833249; cdat->dobj_337__SINST_OBJNUM.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_337__SINST_OBJNUM)); @@ -51523,7 +51602,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_339__SINST_FIELDS)) basilys_assertmsg("iniobj checkdiscr dobj_341__SINST_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_341__SINST_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_341__SINST_FIELDS.obj_num = 7; - cdat->dobj_341__SINST_FIELDS.obj_hash = 262045892; + cdat->dobj_341__SINST_FIELDS.obj_hash = 297821756; cdat->dobj_341__SINST_FIELDS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_341__SINST_FIELDS)); @@ -51551,7 +51630,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_343__CLASS_SRC_DEFS basilys_assertmsg("iniobj checkdiscr dobj_345__CLASS_SRC_DEFSELECTOR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_345__CLASS_SRC_DEFSELECTOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_345__CLASS_SRC_DEFSELECTOR.obj_num = OBMAG_OBJECT; - cdat->dobj_345__CLASS_SRC_DEFSELECTOR.obj_hash = 826660437; + cdat->dobj_345__CLASS_SRC_DEFSELECTOR.obj_hash = 176664753; cdat->dobj_345__CLASS_SRC_DEFSELECTOR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_345__CLASS_SRC_DEFSELECTOR)); @@ -51587,7 +51666,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_349__CLASS_SRC_FIEL basilys_assertmsg("iniobj checkdiscr dobj_351__CLASS_SRC_FIELDASSIGN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_351__CLASS_SRC_FIELDASSIGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_351__CLASS_SRC_FIELDASSIGN.obj_num = OBMAG_OBJECT; - cdat->dobj_351__CLASS_SRC_FIELDASSIGN.obj_hash = 873283827; + cdat->dobj_351__CLASS_SRC_FIELDASSIGN.obj_hash = 632728195; cdat->dobj_351__CLASS_SRC_FIELDASSIGN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_351__CLASS_SRC_FIELDASSIGN)); @@ -51623,7 +51702,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_355__SFLA_FIELD)); basilys_assertmsg("iniobj checkdiscr dobj_357__SFLA_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_357__SFLA_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_357__SFLA_FIELD.obj_num = 1; - cdat->dobj_357__SFLA_FIELD.obj_hash = 341343466; + cdat->dobj_357__SFLA_FIELD.obj_hash = 177039774; cdat->dobj_357__SFLA_FIELD.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_357__SFLA_FIELD)); @@ -51651,7 +51730,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_359__SFLA_EXPR)); basilys_assertmsg("iniobj checkdiscr dobj_361__SFLA_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_361__SFLA_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_361__SFLA_EXPR.obj_num = 2; - cdat->dobj_361__SFLA_EXPR.obj_hash = 337447353; + cdat->dobj_361__SFLA_EXPR.obj_hash = 178475822; cdat->dobj_361__SFLA_EXPR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_361__SFLA_EXPR)); @@ -51679,7 +51758,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_363__CLASS_SRC_MAKE basilys_assertmsg("iniobj checkdiscr dobj_365__CLASS_SRC_MAKE_INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_365__CLASS_SRC_MAKE_INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_365__CLASS_SRC_MAKE_INSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_365__CLASS_SRC_MAKE_INSTANCE.obj_hash = 58462126; + cdat->dobj_365__CLASS_SRC_MAKE_INSTANCE.obj_hash = 118767565; cdat->dobj_365__CLASS_SRC_MAKE_INSTANCE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_365__CLASS_SRC_MAKE_INSTANCE)); @@ -51715,7 +51794,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_369__SMINS_CLASS)); basilys_assertmsg("iniobj checkdiscr dobj_371__SMINS_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_371__SMINS_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_371__SMINS_CLASS.obj_num = 1; - cdat->dobj_371__SMINS_CLASS.obj_hash = 788729823; + cdat->dobj_371__SMINS_CLASS.obj_hash = 188968502; cdat->dobj_371__SMINS_CLASS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_371__SMINS_CLASS)); @@ -51743,7 +51822,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_373__SMINS_CLABIND) basilys_assertmsg("iniobj checkdiscr dobj_375__SMINS_CLABIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_375__SMINS_CLABIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_375__SMINS_CLABIND.obj_num = 2; - cdat->dobj_375__SMINS_CLABIND.obj_hash = 93629402; + cdat->dobj_375__SMINS_CLABIND.obj_hash = 94374402; cdat->dobj_375__SMINS_CLABIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_375__SMINS_CLABIND)); @@ -51771,7 +51850,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_377__SMINS_FIELDS)) basilys_assertmsg("iniobj checkdiscr dobj_379__SMINS_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_379__SMINS_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_379__SMINS_FIELDS.obj_num = 3; - cdat->dobj_379__SMINS_FIELDS.obj_hash = 193002769; + cdat->dobj_379__SMINS_FIELDS.obj_hash = 942189031; cdat->dobj_379__SMINS_FIELDS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_379__SMINS_FIELDS)); @@ -51799,7 +51878,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_381__CLASS_SRC_GET_ basilys_assertmsg("iniobj checkdiscr dobj_383__CLASS_SRC_GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_383__CLASS_SRC_GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_383__CLASS_SRC_GET_FIELD.obj_num = OBMAG_OBJECT; - cdat->dobj_383__CLASS_SRC_GET_FIELD.obj_hash = 845850789; + cdat->dobj_383__CLASS_SRC_GET_FIELD.obj_hash = 504259554; cdat->dobj_383__CLASS_SRC_GET_FIELD.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_383__CLASS_SRC_GET_FIELD)); @@ -51835,7 +51914,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_387__SUGET_OBJ)); basilys_assertmsg("iniobj checkdiscr dobj_389__SUGET_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_389__SUGET_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_389__SUGET_OBJ.obj_num = 1; - cdat->dobj_389__SUGET_OBJ.obj_hash = 567991877; + cdat->dobj_389__SUGET_OBJ.obj_hash = 891414510; cdat->dobj_389__SUGET_OBJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_389__SUGET_OBJ)); @@ -51863,7 +51942,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_391__SUGET_FIELD)); basilys_assertmsg("iniobj checkdiscr dobj_393__SUGET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_393__SUGET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_393__SUGET_FIELD.obj_num = 2; - cdat->dobj_393__SUGET_FIELD.obj_hash = 737560920; + cdat->dobj_393__SUGET_FIELD.obj_hash = 853860509; cdat->dobj_393__SUGET_FIELD.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_393__SUGET_FIELD)); @@ -51891,7 +51970,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_395__CLASS_SRC_UNSA basilys_assertmsg("iniobj checkdiscr dobj_397__CLASS_SRC_UNSAFE_GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_397__CLASS_SRC_UNSAFE_GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_397__CLASS_SRC_UNSAFE_GET_FIELD.obj_num = OBMAG_OBJECT; - cdat->dobj_397__CLASS_SRC_UNSAFE_GET_FIELD.obj_hash = 578614812; + cdat->dobj_397__CLASS_SRC_UNSAFE_GET_FIELD.obj_hash = 231119681; cdat->dobj_397__CLASS_SRC_UNSAFE_GET_FIELD.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_397__CLASS_SRC_UNSAFE_GET_FIELD)); @@ -51927,7 +52006,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_401__CLASS_SRC_PUT_ basilys_assertmsg("iniobj checkdiscr dobj_403__CLASS_SRC_PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_403__CLASS_SRC_PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_403__CLASS_SRC_PUT_FIELDS.obj_num = OBMAG_OBJECT; - cdat->dobj_403__CLASS_SRC_PUT_FIELDS.obj_hash = 808290604; + cdat->dobj_403__CLASS_SRC_PUT_FIELDS.obj_hash = 1024111105; cdat->dobj_403__CLASS_SRC_PUT_FIELDS.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_403__CLASS_SRC_PUT_FIELDS)); @@ -51963,7 +52042,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_407__SUPUT_OBJ)); basilys_assertmsg("iniobj checkdiscr dobj_409__SUPUT_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_409__SUPUT_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_409__SUPUT_OBJ.obj_num = 1; - cdat->dobj_409__SUPUT_OBJ.obj_hash = 335964631; + cdat->dobj_409__SUPUT_OBJ.obj_hash = 860419250; cdat->dobj_409__SUPUT_OBJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_409__SUPUT_OBJ)); @@ -51991,7 +52070,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_411__SUPUT_FIELDS)) basilys_assertmsg("iniobj checkdiscr dobj_413__SUPUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_413__SUPUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_413__SUPUT_FIELDS.obj_num = 2; - cdat->dobj_413__SUPUT_FIELDS.obj_hash = 172421917; + cdat->dobj_413__SUPUT_FIELDS.obj_hash = 183402988; cdat->dobj_413__SUPUT_FIELDS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_413__SUPUT_FIELDS)); @@ -52019,7 +52098,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_415__CLASS_SRC_UNSA basilys_assertmsg("iniobj checkdiscr dobj_417__CLASS_SRC_UNSAFE_PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_417__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_417__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_num = OBMAG_OBJECT; - cdat->dobj_417__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_hash = 746302498; + cdat->dobj_417__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_hash = 686863619; cdat->dobj_417__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_417__CLASS_SRC_UNSAFE_PUT_FIELDS)); @@ -52055,7 +52134,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_421__CLASS_SRC_IF)) basilys_assertmsg("iniobj checkdiscr dobj_423__CLASS_SRC_IF", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_423__CLASS_SRC_IF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_423__CLASS_SRC_IF.obj_num = OBMAG_OBJECT; - cdat->dobj_423__CLASS_SRC_IF.obj_hash = 413522844; + cdat->dobj_423__CLASS_SRC_IF.obj_hash = 918050896; cdat->dobj_423__CLASS_SRC_IF.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_423__CLASS_SRC_IF)); @@ -52091,7 +52170,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_427__SIF_TEST)); basilys_assertmsg("iniobj checkdiscr dobj_429__SIF_TEST", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_429__SIF_TEST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_429__SIF_TEST.obj_num = 1; - cdat->dobj_429__SIF_TEST.obj_hash = 77485746; + cdat->dobj_429__SIF_TEST.obj_hash = 430930880; cdat->dobj_429__SIF_TEST.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_429__SIF_TEST)); @@ -52119,7 +52198,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_431__SIF_THEN)); basilys_assertmsg("iniobj checkdiscr dobj_433__SIF_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_433__SIF_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_433__SIF_THEN.obj_num = 2; - cdat->dobj_433__SIF_THEN.obj_hash = 998116529; + cdat->dobj_433__SIF_THEN.obj_hash = 853258659; cdat->dobj_433__SIF_THEN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_433__SIF_THEN)); @@ -52147,7 +52226,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_435__CLASS_SRC_IFEL basilys_assertmsg("iniobj checkdiscr dobj_437__CLASS_SRC_IFELSE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_437__CLASS_SRC_IFELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_437__CLASS_SRC_IFELSE.obj_num = OBMAG_OBJECT; - cdat->dobj_437__CLASS_SRC_IFELSE.obj_hash = 174350321; + cdat->dobj_437__CLASS_SRC_IFELSE.obj_hash = 952382017; cdat->dobj_437__CLASS_SRC_IFELSE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_437__CLASS_SRC_IFELSE)); @@ -52183,7 +52262,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_441__SIF_ELSE)); basilys_assertmsg("iniobj checkdiscr dobj_443__SIF_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_443__SIF_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_443__SIF_ELSE.obj_num = 3; - cdat->dobj_443__SIF_ELSE.obj_hash = 898424800; + cdat->dobj_443__SIF_ELSE.obj_hash = 88114958; cdat->dobj_443__SIF_ELSE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_443__SIF_ELSE)); @@ -52211,7 +52290,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_445__CLASS_SRC_OR)) basilys_assertmsg("iniobj checkdiscr dobj_447__CLASS_SRC_OR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_447__CLASS_SRC_OR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_447__CLASS_SRC_OR.obj_num = OBMAG_OBJECT; - cdat->dobj_447__CLASS_SRC_OR.obj_hash = 743808085; + cdat->dobj_447__CLASS_SRC_OR.obj_hash = 610628796; cdat->dobj_447__CLASS_SRC_OR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_447__CLASS_SRC_OR)); @@ -52247,7 +52326,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_451__SOR_DISJ)); basilys_assertmsg("iniobj checkdiscr dobj_453__SOR_DISJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_453__SOR_DISJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_453__SOR_DISJ.obj_num = 1; - cdat->dobj_453__SOR_DISJ.obj_hash = 475054408; + cdat->dobj_453__SOR_DISJ.obj_hash = 120008034; cdat->dobj_453__SOR_DISJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_453__SOR_DISJ)); @@ -52275,7 +52354,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_455__CLASS_SRC_CPPI basilys_assertmsg("iniobj checkdiscr dobj_457__CLASS_SRC_CPPIF", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_457__CLASS_SRC_CPPIF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_457__CLASS_SRC_CPPIF.obj_num = OBMAG_OBJECT; - cdat->dobj_457__CLASS_SRC_CPPIF.obj_hash = 670569305; + cdat->dobj_457__CLASS_SRC_CPPIF.obj_hash = 692159488; cdat->dobj_457__CLASS_SRC_CPPIF.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_457__CLASS_SRC_CPPIF)); @@ -52311,7 +52390,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_461__SIFP_COND)); basilys_assertmsg("iniobj checkdiscr dobj_463__SIFP_COND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_463__SIFP_COND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_463__SIFP_COND.obj_num = 1; - cdat->dobj_463__SIFP_COND.obj_hash = 529560961; + cdat->dobj_463__SIFP_COND.obj_hash = 137706761; cdat->dobj_463__SIFP_COND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_463__SIFP_COND)); @@ -52339,7 +52418,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_465__SIFP_THEN)); basilys_assertmsg("iniobj checkdiscr dobj_467__SIFP_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_467__SIFP_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_467__SIFP_THEN.obj_num = 2; - cdat->dobj_467__SIFP_THEN.obj_hash = 862902859; + cdat->dobj_467__SIFP_THEN.obj_hash = 487821914; cdat->dobj_467__SIFP_THEN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_467__SIFP_THEN)); @@ -52367,7 +52446,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_469__SIFP_ELSE)); basilys_assertmsg("iniobj checkdiscr dobj_471__SIFP_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_471__SIFP_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_471__SIFP_ELSE.obj_num = 3; - cdat->dobj_471__SIFP_ELSE.obj_hash = 229270249; + cdat->dobj_471__SIFP_ELSE.obj_hash = 511499688; cdat->dobj_471__SIFP_ELSE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_471__SIFP_ELSE)); @@ -52395,7 +52474,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_473__CLASS_SRC_MATC basilys_assertmsg("iniobj checkdiscr dobj_475__CLASS_SRC_MATCH", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_475__CLASS_SRC_MATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_475__CLASS_SRC_MATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_475__CLASS_SRC_MATCH.obj_hash = 350173481; + cdat->dobj_475__CLASS_SRC_MATCH.obj_hash = 676593841; cdat->dobj_475__CLASS_SRC_MATCH.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_475__CLASS_SRC_MATCH)); @@ -52431,7 +52510,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_479__SMAT_MATCHEDX) basilys_assertmsg("iniobj checkdiscr dobj_481__SMAT_MATCHEDX", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_481__SMAT_MATCHEDX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_481__SMAT_MATCHEDX.obj_num = 1; - cdat->dobj_481__SMAT_MATCHEDX.obj_hash = 32475632; + cdat->dobj_481__SMAT_MATCHEDX.obj_hash = 799204470; cdat->dobj_481__SMAT_MATCHEDX.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_481__SMAT_MATCHEDX)); @@ -52459,7 +52538,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_483__SMAT_CASES)); basilys_assertmsg("iniobj checkdiscr dobj_485__SMAT_CASES", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_485__SMAT_CASES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_485__SMAT_CASES.obj_num = 2; - cdat->dobj_485__SMAT_CASES.obj_hash = 856190548; + cdat->dobj_485__SMAT_CASES.obj_hash = 887244682; cdat->dobj_485__SMAT_CASES.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_485__SMAT_CASES)); @@ -52487,7 +52566,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_487__CLASS_SRC_CASE basilys_assertmsg("iniobj checkdiscr dobj_489__CLASS_SRC_CASEMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_489__CLASS_SRC_CASEMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_489__CLASS_SRC_CASEMATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_489__CLASS_SRC_CASEMATCH.obj_hash = 872588179; + cdat->dobj_489__CLASS_SRC_CASEMATCH.obj_hash = 976610864; cdat->dobj_489__CLASS_SRC_CASEMATCH.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_489__CLASS_SRC_CASEMATCH)); @@ -52523,7 +52602,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_493__SCAM_PATT)); basilys_assertmsg("iniobj checkdiscr dobj_495__SCAM_PATT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_495__SCAM_PATT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_495__SCAM_PATT.obj_num = 1; - cdat->dobj_495__SCAM_PATT.obj_hash = 858400136; + cdat->dobj_495__SCAM_PATT.obj_hash = 633867151; cdat->dobj_495__SCAM_PATT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_495__SCAM_PATT)); @@ -52551,7 +52630,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_497__SCAM_BODY)); basilys_assertmsg("iniobj checkdiscr dobj_499__SCAM_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_499__SCAM_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_499__SCAM_BODY.obj_num = 2; - cdat->dobj_499__SCAM_BODY.obj_hash = 416750796; + cdat->dobj_499__SCAM_BODY.obj_hash = 986687015; cdat->dobj_499__SCAM_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_499__SCAM_BODY)); @@ -52579,7 +52658,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_501__CLASS_SRC_CASE basilys_assertmsg("iniobj checkdiscr dobj_503__CLASS_SRC_CASEWHENMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_503__CLASS_SRC_CASEWHENMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_503__CLASS_SRC_CASEWHENMATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_503__CLASS_SRC_CASEWHENMATCH.obj_hash = 581148504; + cdat->dobj_503__CLASS_SRC_CASEWHENMATCH.obj_hash = 261245792; cdat->dobj_503__CLASS_SRC_CASEWHENMATCH.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_503__CLASS_SRC_CASEWHENMATCH)); @@ -52615,7 +52694,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_507__SCWM_WHEN)); basilys_assertmsg("iniobj checkdiscr dobj_509__SCWM_WHEN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_509__SCWM_WHEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_509__SCWM_WHEN.obj_num = 3; - cdat->dobj_509__SCWM_WHEN.obj_hash = 1020467314; + cdat->dobj_509__SCWM_WHEN.obj_hash = 1000315125; cdat->dobj_509__SCWM_WHEN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_509__SCWM_WHEN)); @@ -52643,7 +52722,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_511__CLASS_SRC_LETB basilys_assertmsg("iniobj checkdiscr dobj_513__CLASS_SRC_LETBINDING", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_513__CLASS_SRC_LETBINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_513__CLASS_SRC_LETBINDING.obj_num = OBMAG_OBJECT; - cdat->dobj_513__CLASS_SRC_LETBINDING.obj_hash = 301620347; + cdat->dobj_513__CLASS_SRC_LETBINDING.obj_hash = 478419728; cdat->dobj_513__CLASS_SRC_LETBINDING.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_513__CLASS_SRC_LETBINDING)); @@ -52679,7 +52758,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_517__SLETB_TYPE)); basilys_assertmsg("iniobj checkdiscr dobj_519__SLETB_TYPE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_519__SLETB_TYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_519__SLETB_TYPE.obj_num = 1; - cdat->dobj_519__SLETB_TYPE.obj_hash = 56320436; + cdat->dobj_519__SLETB_TYPE.obj_hash = 180771751; cdat->dobj_519__SLETB_TYPE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_519__SLETB_TYPE)); @@ -52707,7 +52786,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_521__SLETB_BINDER)) basilys_assertmsg("iniobj checkdiscr dobj_523__SLETB_BINDER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_523__SLETB_BINDER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_523__SLETB_BINDER.obj_num = 2; - cdat->dobj_523__SLETB_BINDER.obj_hash = 621372278; + cdat->dobj_523__SLETB_BINDER.obj_hash = 776607368; cdat->dobj_523__SLETB_BINDER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_523__SLETB_BINDER)); @@ -52735,7 +52814,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_525__SLETB_EXPR)); basilys_assertmsg("iniobj checkdiscr dobj_527__SLETB_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_527__SLETB_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_527__SLETB_EXPR.obj_num = 3; - cdat->dobj_527__SLETB_EXPR.obj_hash = 892913247; + cdat->dobj_527__SLETB_EXPR.obj_hash = 116701996; cdat->dobj_527__SLETB_EXPR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_527__SLETB_EXPR)); @@ -52763,7 +52842,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_529__CLASS_SRC_LET) basilys_assertmsg("iniobj checkdiscr dobj_531__CLASS_SRC_LET", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_531__CLASS_SRC_LET.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_531__CLASS_SRC_LET.obj_num = OBMAG_OBJECT; - cdat->dobj_531__CLASS_SRC_LET.obj_hash = 359117682; + cdat->dobj_531__CLASS_SRC_LET.obj_hash = 50423105; cdat->dobj_531__CLASS_SRC_LET.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_531__CLASS_SRC_LET)); @@ -52799,7 +52878,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_535__SLET_BINDINGS) basilys_assertmsg("iniobj checkdiscr dobj_537__SLET_BINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_537__SLET_BINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_537__SLET_BINDINGS.obj_num = 1; - cdat->dobj_537__SLET_BINDINGS.obj_hash = 344751872; + cdat->dobj_537__SLET_BINDINGS.obj_hash = 343962650; cdat->dobj_537__SLET_BINDINGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_537__SLET_BINDINGS)); @@ -52827,7 +52906,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_539__SLET_BODY)); basilys_assertmsg("iniobj checkdiscr dobj_541__SLET_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_541__SLET_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_541__SLET_BODY.obj_num = 2; - cdat->dobj_541__SLET_BODY.obj_hash = 227777067; + cdat->dobj_541__SLET_BODY.obj_hash = 261467090; cdat->dobj_541__SLET_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_541__SLET_BODY)); @@ -52855,7 +52934,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_543__CLASS_SRC_LAMB basilys_assertmsg("iniobj checkdiscr dobj_545__CLASS_SRC_LAMBDA", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_545__CLASS_SRC_LAMBDA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_545__CLASS_SRC_LAMBDA.obj_num = OBMAG_OBJECT; - cdat->dobj_545__CLASS_SRC_LAMBDA.obj_hash = 467510610; + cdat->dobj_545__CLASS_SRC_LAMBDA.obj_hash = 597127693; cdat->dobj_545__CLASS_SRC_LAMBDA.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_545__CLASS_SRC_LAMBDA)); @@ -52891,7 +52970,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_549__SLAM_ARGBIND)) basilys_assertmsg("iniobj checkdiscr dobj_551__SLAM_ARGBIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_551__SLAM_ARGBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_551__SLAM_ARGBIND.obj_num = 1; - cdat->dobj_551__SLAM_ARGBIND.obj_hash = 1010418583; + cdat->dobj_551__SLAM_ARGBIND.obj_hash = 223372765; cdat->dobj_551__SLAM_ARGBIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_551__SLAM_ARGBIND)); @@ -52919,7 +52998,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_553__SLAM_BODY)); basilys_assertmsg("iniobj checkdiscr dobj_555__SLAM_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_555__SLAM_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_555__SLAM_BODY.obj_num = 2; - cdat->dobj_555__SLAM_BODY.obj_hash = 272660872; + cdat->dobj_555__SLAM_BODY.obj_hash = 336320413; cdat->dobj_555__SLAM_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_555__SLAM_BODY)); @@ -52947,7 +53026,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_557__CLASS_SRC_MULT basilys_assertmsg("iniobj checkdiscr dobj_559__CLASS_SRC_MULTICALL", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_559__CLASS_SRC_MULTICALL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_559__CLASS_SRC_MULTICALL.obj_num = OBMAG_OBJECT; - cdat->dobj_559__CLASS_SRC_MULTICALL.obj_hash = 374216012; + cdat->dobj_559__CLASS_SRC_MULTICALL.obj_hash = 100013164; cdat->dobj_559__CLASS_SRC_MULTICALL.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_559__CLASS_SRC_MULTICALL)); @@ -52983,7 +53062,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_563__SMULC_RESBIND) basilys_assertmsg("iniobj checkdiscr dobj_565__SMULC_RESBIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_565__SMULC_RESBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_565__SMULC_RESBIND.obj_num = 1; - cdat->dobj_565__SMULC_RESBIND.obj_hash = 801567634; + cdat->dobj_565__SMULC_RESBIND.obj_hash = 197526228; cdat->dobj_565__SMULC_RESBIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_565__SMULC_RESBIND)); @@ -53011,7 +53090,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_567__SMULC_CALL)); basilys_assertmsg("iniobj checkdiscr dobj_569__SMULC_CALL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_569__SMULC_CALL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_569__SMULC_CALL.obj_num = 2; - cdat->dobj_569__SMULC_CALL.obj_hash = 459696518; + cdat->dobj_569__SMULC_CALL.obj_hash = 746657082; cdat->dobj_569__SMULC_CALL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_569__SMULC_CALL)); @@ -53039,7 +53118,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_571__SMULC_BODY)); basilys_assertmsg("iniobj checkdiscr dobj_573__SMULC_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_573__SMULC_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_573__SMULC_BODY.obj_num = 3; - cdat->dobj_573__SMULC_BODY.obj_hash = 739902095; + cdat->dobj_573__SMULC_BODY.obj_hash = 654760531; cdat->dobj_573__SMULC_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_573__SMULC_BODY)); @@ -53067,7 +53146,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_575__CLASS_SRC_LABE basilys_assertmsg("iniobj checkdiscr dobj_577__CLASS_SRC_LABELLED", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_577__CLASS_SRC_LABELLED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_577__CLASS_SRC_LABELLED.obj_num = OBMAG_OBJECT; - cdat->dobj_577__CLASS_SRC_LABELLED.obj_hash = 228828848; + cdat->dobj_577__CLASS_SRC_LABELLED.obj_hash = 506940107; cdat->dobj_577__CLASS_SRC_LABELLED.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_577__CLASS_SRC_LABELLED)); @@ -53103,7 +53182,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_581__SLABEL_BIND)); basilys_assertmsg("iniobj checkdiscr dobj_583__SLABEL_BIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_583__SLABEL_BIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_583__SLABEL_BIND.obj_num = 1; - cdat->dobj_583__SLABEL_BIND.obj_hash = 902289825; + cdat->dobj_583__SLABEL_BIND.obj_hash = 635564958; cdat->dobj_583__SLABEL_BIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_583__SLABEL_BIND)); @@ -53131,7 +53210,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_585__CLASS_SRC_FORE basilys_assertmsg("iniobj checkdiscr dobj_587__CLASS_SRC_FOREVER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_587__CLASS_SRC_FOREVER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_587__CLASS_SRC_FOREVER.obj_num = OBMAG_OBJECT; - cdat->dobj_587__CLASS_SRC_FOREVER.obj_hash = 1070648569; + cdat->dobj_587__CLASS_SRC_FOREVER.obj_hash = 210929570; cdat->dobj_587__CLASS_SRC_FOREVER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_587__CLASS_SRC_FOREVER)); @@ -53167,7 +53246,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_591__SFRV_BODY)); basilys_assertmsg("iniobj checkdiscr dobj_593__SFRV_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_593__SFRV_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_593__SFRV_BODY.obj_num = 2; - cdat->dobj_593__SFRV_BODY.obj_hash = 791397443; + cdat->dobj_593__SFRV_BODY.obj_hash = 953233886; cdat->dobj_593__SFRV_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_593__SFRV_BODY)); @@ -53195,7 +53274,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_595__CLASS_SRC_EXIT basilys_assertmsg("iniobj checkdiscr dobj_597__CLASS_SRC_EXIT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_597__CLASS_SRC_EXIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_597__CLASS_SRC_EXIT.obj_num = OBMAG_OBJECT; - cdat->dobj_597__CLASS_SRC_EXIT.obj_hash = 821454094; + cdat->dobj_597__CLASS_SRC_EXIT.obj_hash = 1039090434; cdat->dobj_597__CLASS_SRC_EXIT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_597__CLASS_SRC_EXIT)); @@ -53231,7 +53310,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_601__SEXI_BODY)); basilys_assertmsg("iniobj checkdiscr dobj_603__SEXI_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_603__SEXI_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_603__SEXI_BODY.obj_num = 2; - cdat->dobj_603__SEXI_BODY.obj_hash = 468294623; + cdat->dobj_603__SEXI_BODY.obj_hash = 476598078; cdat->dobj_603__SEXI_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_603__SEXI_BODY)); @@ -53259,7 +53338,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_605__CLASS_SRC_COMP basilys_assertmsg("iniobj checkdiscr dobj_607__CLASS_SRC_COMPILEWARNING", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_607__CLASS_SRC_COMPILEWARNING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_607__CLASS_SRC_COMPILEWARNING.obj_num = OBMAG_OBJECT; - cdat->dobj_607__CLASS_SRC_COMPILEWARNING.obj_hash = 154622320; + cdat->dobj_607__CLASS_SRC_COMPILEWARNING.obj_hash = 613955232; cdat->dobj_607__CLASS_SRC_COMPILEWARNING.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_607__CLASS_SRC_COMPILEWARNING)); @@ -53295,7 +53374,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_611__SCWARN_MSG)); basilys_assertmsg("iniobj checkdiscr dobj_613__SCWARN_MSG", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_613__SCWARN_MSG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_613__SCWARN_MSG.obj_num = 1; - cdat->dobj_613__SCWARN_MSG.obj_hash = 488220050; + cdat->dobj_613__SCWARN_MSG.obj_hash = 501233181; cdat->dobj_613__SCWARN_MSG.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_613__SCWARN_MSG)); @@ -53323,7 +53402,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_615__SCWARN_EXPR)); basilys_assertmsg("iniobj checkdiscr dobj_617__SCWARN_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_617__SCWARN_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_617__SCWARN_EXPR.obj_num = 2; - cdat->dobj_617__SCWARN_EXPR.obj_hash = 1039940336; + cdat->dobj_617__SCWARN_EXPR.obj_hash = 546054607; cdat->dobj_617__SCWARN_EXPR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_617__SCWARN_EXPR)); @@ -53351,7 +53430,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_619__CLASS_SRC_CURR basilys_assertmsg("iniobj checkdiscr dobj_621__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_621__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_621__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; - cdat->dobj_621__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 163264208; + cdat->dobj_621__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 869082947; cdat->dobj_621__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_621__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); @@ -53387,7 +53466,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_625__CMEC_COMMENT)) basilys_assertmsg("iniobj checkdiscr dobj_627__CMEC_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_627__CMEC_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_627__CMEC_COMMENT.obj_num = 1; - cdat->dobj_627__CMEC_COMMENT.obj_hash = 386043067; + cdat->dobj_627__CMEC_COMMENT.obj_hash = 79762239; cdat->dobj_627__CMEC_COMMENT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_627__CMEC_COMMENT)); @@ -53415,7 +53494,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_629__CLASS_SRC_PARE basilys_assertmsg("iniobj checkdiscr dobj_631__CLASS_SRC_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_631__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_631__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_num = OBMAG_OBJECT; - cdat->dobj_631__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_hash = 1305769; + cdat->dobj_631__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_hash = 47891302; cdat->dobj_631__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_631__CLASS_SRC_PARENT_MODULE_ENVIRONMENT)); @@ -53451,7 +53530,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_635__CLASS_SRC_UPDA basilys_assertmsg("iniobj checkdiscr dobj_637__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_637__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_637__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; - cdat->dobj_637__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 907876618; + cdat->dobj_637__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 959525983; cdat->dobj_637__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_637__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); @@ -53487,7 +53566,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_641__SUCME_COMMENT) basilys_assertmsg("iniobj checkdiscr dobj_643__SUCME_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_643__SUCME_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_643__SUCME_COMMENT.obj_num = 1; - cdat->dobj_643__SUCME_COMMENT.obj_hash = 130877714; + cdat->dobj_643__SUCME_COMMENT.obj_hash = 804235229; cdat->dobj_643__SUCME_COMMENT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_643__SUCME_COMMENT)); @@ -53515,7 +53594,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_645__CLASS_SRC_FETC basilys_assertmsg("iniobj checkdiscr dobj_647__CLASS_SRC_FETCH_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_647__CLASS_SRC_FETCH_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_647__CLASS_SRC_FETCH_PREDEFINED.obj_num = OBMAG_OBJECT; - cdat->dobj_647__CLASS_SRC_FETCH_PREDEFINED.obj_hash = 306741231; + cdat->dobj_647__CLASS_SRC_FETCH_PREDEFINED.obj_hash = 499319384; cdat->dobj_647__CLASS_SRC_FETCH_PREDEFINED.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_647__CLASS_SRC_FETCH_PREDEFINED)); @@ -53551,7 +53630,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_651__SFEPD_PREDEF)) basilys_assertmsg("iniobj checkdiscr dobj_653__SFEPD_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_653__SFEPD_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_653__SFEPD_PREDEF.obj_num = 1; - cdat->dobj_653__SFEPD_PREDEF.obj_hash = 967811056; + cdat->dobj_653__SFEPD_PREDEF.obj_hash = 968313293; cdat->dobj_653__SFEPD_PREDEF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_653__SFEPD_PREDEF)); @@ -53579,7 +53658,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_655__CLASS_SRC_STOR basilys_assertmsg("iniobj checkdiscr dobj_657__CLASS_SRC_STORE_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_657__CLASS_SRC_STORE_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_657__CLASS_SRC_STORE_PREDEFINED.obj_num = OBMAG_OBJECT; - cdat->dobj_657__CLASS_SRC_STORE_PREDEFINED.obj_hash = 641348768; + cdat->dobj_657__CLASS_SRC_STORE_PREDEFINED.obj_hash = 1061377980; cdat->dobj_657__CLASS_SRC_STORE_PREDEFINED.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_657__CLASS_SRC_STORE_PREDEFINED)); @@ -53615,7 +53694,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_661__SSTPD_PREDEF)) basilys_assertmsg("iniobj checkdiscr dobj_663__SSTPD_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_663__SSTPD_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_663__SSTPD_PREDEF.obj_num = 1; - cdat->dobj_663__SSTPD_PREDEF.obj_hash = 207152275; + cdat->dobj_663__SSTPD_PREDEF.obj_hash = 428607307; cdat->dobj_663__SSTPD_PREDEF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_663__SSTPD_PREDEF)); @@ -53643,7 +53722,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_665__SSTPD_VALUE)); basilys_assertmsg("iniobj checkdiscr dobj_667__SSTPD_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_667__SSTPD_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_667__SSTPD_VALUE.obj_num = 2; - cdat->dobj_667__SSTPD_VALUE.obj_hash = 701743728; + cdat->dobj_667__SSTPD_VALUE.obj_hash = 790041327; cdat->dobj_667__SSTPD_VALUE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_667__SSTPD_VALUE)); @@ -53671,7 +53750,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_669__CLASS_SRC_CODE basilys_assertmsg("iniobj checkdiscr dobj_671__CLASS_SRC_CODECHUNK", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_671__CLASS_SRC_CODECHUNK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_671__CLASS_SRC_CODECHUNK.obj_num = OBMAG_OBJECT; - cdat->dobj_671__CLASS_SRC_CODECHUNK.obj_hash = 477409155; + cdat->dobj_671__CLASS_SRC_CODECHUNK.obj_hash = 498630379; cdat->dobj_671__CLASS_SRC_CODECHUNK.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_671__CLASS_SRC_CODECHUNK)); @@ -53707,7 +53786,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_675__SCH_GENSYM)); basilys_assertmsg("iniobj checkdiscr dobj_677__SCH_GENSYM", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_677__SCH_GENSYM.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_677__SCH_GENSYM.obj_num = 1; - cdat->dobj_677__SCH_GENSYM.obj_hash = 246300434; + cdat->dobj_677__SCH_GENSYM.obj_hash = 539237272; cdat->dobj_677__SCH_GENSYM.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_677__SCH_GENSYM)); @@ -53735,7 +53814,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_679__SCH_CHUNKS)); basilys_assertmsg("iniobj checkdiscr dobj_681__SCH_CHUNKS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_681__SCH_CHUNKS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_681__SCH_CHUNKS.obj_num = 2; - cdat->dobj_681__SCH_CHUNKS.obj_hash = 735801416; + cdat->dobj_681__SCH_CHUNKS.obj_hash = 74647642; cdat->dobj_681__SCH_CHUNKS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_681__SCH_CHUNKS)); @@ -53763,7 +53842,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_683__CLASS_SRCPATTE basilys_assertmsg("iniobj checkdiscr dobj_685__CLASS_SRCPATTERN_ANY", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_685__CLASS_SRCPATTERN_ANY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_685__CLASS_SRCPATTERN_ANY.obj_num = OBMAG_OBJECT; - cdat->dobj_685__CLASS_SRCPATTERN_ANY.obj_hash = 663404327; + cdat->dobj_685__CLASS_SRCPATTERN_ANY.obj_hash = 460789697; cdat->dobj_685__CLASS_SRCPATTERN_ANY.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_685__CLASS_SRCPATTERN_ANY)); @@ -53799,7 +53878,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_689__CLASS_SRCPATTE basilys_assertmsg("iniobj checkdiscr dobj_691__CLASS_SRCPATTERN_OR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_691__CLASS_SRCPATTERN_OR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_691__CLASS_SRCPATTERN_OR.obj_num = OBMAG_OBJECT; - cdat->dobj_691__CLASS_SRCPATTERN_OR.obj_hash = 1014970933; + cdat->dobj_691__CLASS_SRCPATTERN_OR.obj_hash = 675323513; cdat->dobj_691__CLASS_SRCPATTERN_OR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_691__CLASS_SRCPATTERN_OR)); @@ -53835,7 +53914,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_695__ORPAT_DISJ)); basilys_assertmsg("iniobj checkdiscr dobj_697__ORPAT_DISJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_697__ORPAT_DISJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_697__ORPAT_DISJ.obj_num = 1; - cdat->dobj_697__ORPAT_DISJ.obj_hash = 773111283; + cdat->dobj_697__ORPAT_DISJ.obj_hash = 983162263; cdat->dobj_697__ORPAT_DISJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_697__ORPAT_DISJ)); @@ -53863,7 +53942,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_699__CLASS_SRCPATTE basilys_assertmsg("iniobj checkdiscr dobj_701__CLASS_SRCPATTERN_AND", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_701__CLASS_SRCPATTERN_AND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_701__CLASS_SRCPATTERN_AND.obj_num = OBMAG_OBJECT; - cdat->dobj_701__CLASS_SRCPATTERN_AND.obj_hash = 89457481; + cdat->dobj_701__CLASS_SRCPATTERN_AND.obj_hash = 297960833; cdat->dobj_701__CLASS_SRCPATTERN_AND.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_701__CLASS_SRCPATTERN_AND)); @@ -53899,7 +53978,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_705__ANDPAT_CONJ)); basilys_assertmsg("iniobj checkdiscr dobj_707__ANDPAT_CONJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_707__ANDPAT_CONJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_707__ANDPAT_CONJ.obj_num = 1; - cdat->dobj_707__ANDPAT_CONJ.obj_hash = 31265030; + cdat->dobj_707__ANDPAT_CONJ.obj_hash = 742033449; cdat->dobj_707__ANDPAT_CONJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_707__ANDPAT_CONJ)); @@ -53927,7 +54006,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_709__CLASS_SRCPATTE basilys_assertmsg("iniobj checkdiscr dobj_711__CLASS_SRCPATTERN_AS", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_711__CLASS_SRCPATTERN_AS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_711__CLASS_SRCPATTERN_AS.obj_num = OBMAG_OBJECT; - cdat->dobj_711__CLASS_SRCPATTERN_AS.obj_hash = 502013152; + cdat->dobj_711__CLASS_SRCPATTERN_AS.obj_hash = 663685898; cdat->dobj_711__CLASS_SRCPATTERN_AS.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_711__CLASS_SRCPATTERN_AS)); @@ -53963,7 +54042,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_715__ASPAT_VARPAT)) basilys_assertmsg("iniobj checkdiscr dobj_717__ASPAT_VARPAT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_717__ASPAT_VARPAT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_717__ASPAT_VARPAT.obj_num = 1; - cdat->dobj_717__ASPAT_VARPAT.obj_hash = 907957397; + cdat->dobj_717__ASPAT_VARPAT.obj_hash = 805273323; cdat->dobj_717__ASPAT_VARPAT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_717__ASPAT_VARPAT)); @@ -53991,7 +54070,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_719__ASPAT_SUBPAT)) basilys_assertmsg("iniobj checkdiscr dobj_721__ASPAT_SUBPAT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_721__ASPAT_SUBPAT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_721__ASPAT_SUBPAT.obj_num = 2; - cdat->dobj_721__ASPAT_SUBPAT.obj_hash = 27966294; + cdat->dobj_721__ASPAT_SUBPAT.obj_hash = 261959169; cdat->dobj_721__ASPAT_SUBPAT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_721__ASPAT_SUBPAT)); @@ -54019,7 +54098,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_723__CLASS_SRCPATTE basilys_assertmsg("iniobj checkdiscr dobj_725__CLASS_SRCPATTERN_VARIABLE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_725__CLASS_SRCPATTERN_VARIABLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_725__CLASS_SRCPATTERN_VARIABLE.obj_num = OBMAG_OBJECT; - cdat->dobj_725__CLASS_SRCPATTERN_VARIABLE.obj_hash = 558915690; + cdat->dobj_725__CLASS_SRCPATTERN_VARIABLE.obj_hash = 620242263; cdat->dobj_725__CLASS_SRCPATTERN_VARIABLE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_725__CLASS_SRCPATTERN_VARIABLE)); @@ -54055,7 +54134,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_729__SPAT_VAR)); basilys_assertmsg("iniobj checkdiscr dobj_731__SPAT_VAR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_731__SPAT_VAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_731__SPAT_VAR.obj_num = 1; - cdat->dobj_731__SPAT_VAR.obj_hash = 117413981; + cdat->dobj_731__SPAT_VAR.obj_hash = 352207700; cdat->dobj_731__SPAT_VAR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_731__SPAT_VAR)); @@ -54083,7 +54162,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_733__CLASS_SRCPATTE basilys_assertmsg("iniobj checkdiscr dobj_735__CLASS_SRCPATTERN_JOKERVAR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_735__CLASS_SRCPATTERN_JOKERVAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_735__CLASS_SRCPATTERN_JOKERVAR.obj_num = OBMAG_OBJECT; - cdat->dobj_735__CLASS_SRCPATTERN_JOKERVAR.obj_hash = 299565843; + cdat->dobj_735__CLASS_SRCPATTERN_JOKERVAR.obj_hash = 166185120; cdat->dobj_735__CLASS_SRCPATTERN_JOKERVAR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_735__CLASS_SRCPATTERN_JOKERVAR)); @@ -54119,7 +54198,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_739__CLASS_SRCPATTE basilys_assertmsg("iniobj checkdiscr dobj_741__CLASS_SRCPATTERN_CONSTANT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_741__CLASS_SRCPATTERN_CONSTANT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_741__CLASS_SRCPATTERN_CONSTANT.obj_num = OBMAG_OBJECT; - cdat->dobj_741__CLASS_SRCPATTERN_CONSTANT.obj_hash = 268447927; + cdat->dobj_741__CLASS_SRCPATTERN_CONSTANT.obj_hash = 953412314; cdat->dobj_741__CLASS_SRCPATTERN_CONSTANT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_741__CLASS_SRCPATTERN_CONSTANT)); @@ -54155,7 +54234,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_745__SPAT_CONSTX)); basilys_assertmsg("iniobj checkdiscr dobj_747__SPAT_CONSTX", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_747__SPAT_CONSTX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_747__SPAT_CONSTX.obj_num = 1; - cdat->dobj_747__SPAT_CONSTX.obj_hash = 898410624; + cdat->dobj_747__SPAT_CONSTX.obj_hash = 682209746; cdat->dobj_747__SPAT_CONSTX.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_747__SPAT_CONSTX)); @@ -54183,7 +54262,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_749__CLASS_SRCPATTE basilys_assertmsg("iniobj checkdiscr dobj_751__CLASS_SRCPATTERN_OBJECT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_751__CLASS_SRCPATTERN_OBJECT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_751__CLASS_SRCPATTERN_OBJECT.obj_num = OBMAG_OBJECT; - cdat->dobj_751__CLASS_SRCPATTERN_OBJECT.obj_hash = 624795233; + cdat->dobj_751__CLASS_SRCPATTERN_OBJECT.obj_hash = 116214696; cdat->dobj_751__CLASS_SRCPATTERN_OBJECT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_751__CLASS_SRCPATTERN_OBJECT)); @@ -54219,7 +54298,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_755__SPAT_CLASS)); basilys_assertmsg("iniobj checkdiscr dobj_757__SPAT_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_757__SPAT_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_757__SPAT_CLASS.obj_num = 1; - cdat->dobj_757__SPAT_CLASS.obj_hash = 41611606; + cdat->dobj_757__SPAT_CLASS.obj_hash = 637612186; cdat->dobj_757__SPAT_CLASS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_757__SPAT_CLASS)); @@ -54247,7 +54326,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_759__SPAT_FIELDS)); basilys_assertmsg("iniobj checkdiscr dobj_761__SPAT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_761__SPAT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_761__SPAT_FIELDS.obj_num = 2; - cdat->dobj_761__SPAT_FIELDS.obj_hash = 199761050; + cdat->dobj_761__SPAT_FIELDS.obj_hash = 893048193; cdat->dobj_761__SPAT_FIELDS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_761__SPAT_FIELDS)); @@ -54275,7 +54354,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_763__CLASS_SRCPATTE basilys_assertmsg("iniobj checkdiscr dobj_765__CLASS_SRCPATTERN_INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_765__CLASS_SRCPATTERN_INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_765__CLASS_SRCPATTERN_INSTANCE.obj_num = OBMAG_OBJECT; - cdat->dobj_765__CLASS_SRCPATTERN_INSTANCE.obj_hash = 667352655; + cdat->dobj_765__CLASS_SRCPATTERN_INSTANCE.obj_hash = 1032514860; cdat->dobj_765__CLASS_SRCPATTERN_INSTANCE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_765__CLASS_SRCPATTERN_INSTANCE)); @@ -54311,7 +54390,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_769__CLASS_SRCFIELD basilys_assertmsg("iniobj checkdiscr dobj_771__CLASS_SRCFIELDPATTERN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_771__CLASS_SRCFIELDPATTERN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_771__CLASS_SRCFIELDPATTERN.obj_num = OBMAG_OBJECT; - cdat->dobj_771__CLASS_SRCFIELDPATTERN.obj_hash = 1053387304; + cdat->dobj_771__CLASS_SRCFIELDPATTERN.obj_hash = 576372817; cdat->dobj_771__CLASS_SRCFIELDPATTERN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_771__CLASS_SRCFIELDPATTERN)); @@ -54347,7 +54426,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_775__SPAF_FIELD)); basilys_assertmsg("iniobj checkdiscr dobj_777__SPAF_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_777__SPAF_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_777__SPAF_FIELD.obj_num = 1; - cdat->dobj_777__SPAF_FIELD.obj_hash = 78247818; + cdat->dobj_777__SPAF_FIELD.obj_hash = 617181299; cdat->dobj_777__SPAF_FIELD.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_777__SPAF_FIELD)); @@ -54375,7 +54454,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_779__SPAF_PATTERN)) basilys_assertmsg("iniobj checkdiscr dobj_781__SPAF_PATTERN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_781__SPAF_PATTERN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_781__SPAF_PATTERN.obj_num = 2; - cdat->dobj_781__SPAF_PATTERN.obj_hash = 742954428; + cdat->dobj_781__SPAF_PATTERN.obj_hash = 647616590; cdat->dobj_781__SPAF_PATTERN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_781__SPAF_PATTERN)); @@ -54403,7 +54482,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_783__CLASS_SRCPATTE basilys_assertmsg("iniobj checkdiscr dobj_785__CLASS_SRCPATTERN_COMPOSITE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_785__CLASS_SRCPATTERN_COMPOSITE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_785__CLASS_SRCPATTERN_COMPOSITE.obj_num = OBMAG_OBJECT; - cdat->dobj_785__CLASS_SRCPATTERN_COMPOSITE.obj_hash = 660193239; + cdat->dobj_785__CLASS_SRCPATTERN_COMPOSITE.obj_hash = 999731817; cdat->dobj_785__CLASS_SRCPATTERN_COMPOSITE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_785__CLASS_SRCPATTERN_COMPOSITE)); @@ -54439,7 +54518,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_789__SPAC_OPERATOR) basilys_assertmsg("iniobj checkdiscr dobj_791__SPAC_OPERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_791__SPAC_OPERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_791__SPAC_OPERATOR.obj_num = 3; - cdat->dobj_791__SPAC_OPERATOR.obj_hash = 764906775; + cdat->dobj_791__SPAC_OPERATOR.obj_hash = 906419754; cdat->dobj_791__SPAC_OPERATOR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_791__SPAC_OPERATOR)); @@ -54467,7 +54546,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_793__SPAC_OPERBIND) basilys_assertmsg("iniobj checkdiscr dobj_795__SPAC_OPERBIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_795__SPAC_OPERBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_795__SPAC_OPERBIND.obj_num = 4; - cdat->dobj_795__SPAC_OPERBIND.obj_hash = 294539209; + cdat->dobj_795__SPAC_OPERBIND.obj_hash = 869118738; cdat->dobj_795__SPAC_OPERBIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_795__SPAC_OPERBIND)); @@ -54495,7 +54574,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_797__SPAC_INARGS)); basilys_assertmsg("iniobj checkdiscr dobj_799__SPAC_INARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_799__SPAC_INARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_799__SPAC_INARGS.obj_num = 5; - cdat->dobj_799__SPAC_INARGS.obj_hash = 1025710775; + cdat->dobj_799__SPAC_INARGS.obj_hash = 105292791; cdat->dobj_799__SPAC_INARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_799__SPAC_INARGS)); @@ -54523,7 +54602,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_801__SPAC_OUTARGS)) basilys_assertmsg("iniobj checkdiscr dobj_803__SPAC_OUTARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_803__SPAC_OUTARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_803__SPAC_OUTARGS.obj_num = 6; - cdat->dobj_803__SPAC_OUTARGS.obj_hash = 939352988; + cdat->dobj_803__SPAC_OUTARGS.obj_hash = 525215480; cdat->dobj_803__SPAC_OUTARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_803__SPAC_OUTARGS)); @@ -54551,7 +54630,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_805__CLASS_SRCPATTE basilys_assertmsg("iniobj checkdiscr dobj_807__CLASS_SRCPATTERN_ANYMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_807__CLASS_SRCPATTERN_ANYMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_807__CLASS_SRCPATTERN_ANYMATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_807__CLASS_SRCPATTERN_ANYMATCH.obj_hash = 21170313; + cdat->dobj_807__CLASS_SRCPATTERN_ANYMATCH.obj_hash = 722880184; cdat->dobj_807__CLASS_SRCPATTERN_ANYMATCH.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_807__CLASS_SRCPATTERN_ANYMATCH)); @@ -54587,7 +54666,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_811__CLASS_SRCPATTE basilys_assertmsg("iniobj checkdiscr dobj_813__CLASS_SRCPATTERN_CMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_813__CLASS_SRCPATTERN_CMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_813__CLASS_SRCPATTERN_CMATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_813__CLASS_SRCPATTERN_CMATCH.obj_hash = 468785038; + cdat->dobj_813__CLASS_SRCPATTERN_CMATCH.obj_hash = 266091739; cdat->dobj_813__CLASS_SRCPATTERN_CMATCH.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_813__CLASS_SRCPATTERN_CMATCH)); @@ -54623,7 +54702,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_817__CLASS_SRCPATTE basilys_assertmsg("iniobj checkdiscr dobj_819__CLASS_SRCPATTERN_FUNMATCH", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_819__CLASS_SRCPATTERN_FUNMATCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_819__CLASS_SRCPATTERN_FUNMATCH.obj_num = OBMAG_OBJECT; - cdat->dobj_819__CLASS_SRCPATTERN_FUNMATCH.obj_hash = 157085296; + cdat->dobj_819__CLASS_SRCPATTERN_FUNMATCH.obj_hash = 1027876618; cdat->dobj_819__CLASS_SRCPATTERN_FUNMATCH.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_819__CLASS_SRCPATTERN_FUNMATCH)); @@ -55077,7 +55156,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_889__CLASS_ROOT)); basilys_assertmsg("iniobj checkdiscr dobj_891__CLASS_PATTEXPCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_891__CLASS_PATTEXPCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_891__CLASS_PATTEXPCONTEXT.obj_num = OBMAG_OBJECT; - cdat->dobj_891__CLASS_PATTEXPCONTEXT.obj_hash = 313988050; + cdat->dobj_891__CLASS_PATTEXPCONTEXT.obj_hash = 290893134; cdat->dobj_891__CLASS_PATTEXPCONTEXT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_891__CLASS_PATTEXPCONTEXT)); @@ -55113,7 +55192,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_895__PCTX_MEXPANDER basilys_assertmsg("iniobj checkdiscr dobj_897__PCTX_MEXPANDER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_897__PCTX_MEXPANDER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_897__PCTX_MEXPANDER.obj_num = 0; - cdat->dobj_897__PCTX_MEXPANDER.obj_hash = 278387719; + cdat->dobj_897__PCTX_MEXPANDER.obj_hash = 352779175; cdat->dobj_897__PCTX_MEXPANDER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_897__PCTX_MEXPANDER)); @@ -55141,7 +55220,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_899__PCTX_PEXPANDER basilys_assertmsg("iniobj checkdiscr dobj_901__PCTX_PEXPANDER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_901__PCTX_PEXPANDER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_901__PCTX_PEXPANDER.obj_num = 1; - cdat->dobj_901__PCTX_PEXPANDER.obj_hash = 749313600; + cdat->dobj_901__PCTX_PEXPANDER.obj_hash = 729672921; cdat->dobj_901__PCTX_PEXPANDER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_901__PCTX_PEXPANDER)); @@ -55169,7 +55248,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_903__PCTX_VARMAP)); basilys_assertmsg("iniobj checkdiscr dobj_905__PCTX_VARMAP", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_905__PCTX_VARMAP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_905__PCTX_VARMAP.obj_num = 2; - cdat->dobj_905__PCTX_VARMAP.obj_hash = 770395560; + cdat->dobj_905__PCTX_VARMAP.obj_hash = 1047246035; cdat->dobj_905__PCTX_VARMAP.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_905__PCTX_VARMAP)); @@ -55367,7 +55446,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_934__)); /*inirout drout_936__MACROEXPAND_TOPLEVEL_LIST*/ /*_.VALROUT___V1001*/ curfptr[1000] = (void*)&cdat->drout_936__MACROEXPAND_TOPLEVEL_LIST; cdat->drout_936__MACROEXPAND_TOPLEVEL_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_936__MACROEXPAND_TOPLEVEL_LIST.routdescr, "MACROEXPAND_TOPLEVEL_LIST @warmelt-macro.melt:1179", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_936__MACROEXPAND_TOPLEVEL_LIST.routdescr, "MACROEXPAND_TOPLEVEL_LIST @warmelt-macro.melt:1184", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_936__MACROEXPAND_TOPLEVEL_LIST.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_936__MACROEXPAND_TOPLEVEL_LIST, rout_19_MACROEXPAND_TOPLEVEL_LIST); @@ -55392,14 +55471,14 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_938__LIST_MAP)); /*inirout drout_940__LAMBDA_*/ /*_.VALROUT___V1002*/ curfptr[1001] = (void*)&cdat->drout_940__LAMBDA_; cdat->drout_940__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_940__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1186", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_940__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1191", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_940__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_940__LAMBDA_, rout_20_LAMBDA_); /*inirout drout_941__LAMBDA_ARG_BINDINGS*/ /*_.VALROUT___V903*/ curfptr[902] = (void*)&cdat->drout_941__LAMBDA_ARG_BINDINGS; cdat->drout_941__LAMBDA_ARG_BINDINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_941__LAMBDA_ARG_BINDINGS.routdescr, "LAMBDA_ARG_BINDINGS @warmelt-macro.melt:1202", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_941__LAMBDA_ARG_BINDINGS.routdescr, "LAMBDA_ARG_BINDINGS @warmelt-macro.melt:1207", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_941__LAMBDA_ARG_BINDINGS.nbval = 10; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_941__LAMBDA_ARG_BINDINGS, rout_21_LAMBDA_ARG_BINDINGS); @@ -55463,7 +55542,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_949__CLASS_CTYPE)); /*inirout drout_951__INSTALL_INITIAL_MACRO*/ /*_.VALROUT___V1014*/ curfptr[1013] = (void*)&cdat->drout_951__INSTALL_INITIAL_MACRO; cdat->drout_951__INSTALL_INITIAL_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_951__INSTALL_INITIAL_MACRO.routdescr, "INSTALL_INITIAL_MACRO @warmelt-macro.melt:1286", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_951__INSTALL_INITIAL_MACRO.routdescr, "INSTALL_INITIAL_MACRO @warmelt-macro.melt:1291", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_951__INSTALL_INITIAL_MACRO.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_951__INSTALL_INITIAL_MACRO, rout_22_INSTALL_INITIAL_MACRO); @@ -55501,7 +55580,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_955__INITIAL_ENVIRO /*inirout drout_957__INSTALL_INITIAL_PATMACRO*/ /*_.VALROUT___V1020*/ curfptr[1019] = (void*)&cdat->drout_957__INSTALL_INITIAL_PATMACRO; cdat->drout_957__INSTALL_INITIAL_PATMACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_957__INSTALL_INITIAL_PATMACRO.routdescr, "INSTALL_INITIAL_PATMACRO @warmelt-macro.melt:1312", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_957__INSTALL_INITIAL_PATMACRO.routdescr, "INSTALL_INITIAL_PATMACRO @warmelt-macro.melt:1317", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_957__INSTALL_INITIAL_PATMACRO.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_957__INSTALL_INITIAL_PATMACRO, rout_23_INSTALL_INITIAL_PATMACRO); @@ -55523,12 +55602,12 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_959__WARN_SHADOW)); cdat->dstr_960__WARN_SHADOW.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strncpy(cdat->dstr_960__WARN_SHADOW.val, "WARN_SHADOW", sizeof(cdat->dstr_960__WARN_SHADOW.val)-1); - BASILYS_LOCATION("warmelt-macro.melt:1330:/ iniobj"); + BASILYS_LOCATION("warmelt-macro.melt:1335:/ iniobj"); /*iniobj dobj_961__WARN_SHADOW*/ if (!/*_.VALDATA___V1024*/ curfptr[1023]) /*_.VALDATA___V1024*/ curfptr[1023] = (void*)&cdat->dobj_961__WARN_SHADOW; basilys_assertmsg("iniobj checkdiscr dobj_961__WARN_SHADOW", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_961__WARN_SHADOW.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); - cdat->dobj_961__WARN_SHADOW.obj_hash = 904760758; + cdat->dobj_961__WARN_SHADOW.obj_hash = 113681352; cdat->dobj_961__WARN_SHADOW.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_961__WARN_SHADOW)); @@ -55553,7 +55632,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_961__WARN_SHADOW)); /*inirout drout_966__WARN_IF_REDEFINED*/ /*_.VALROUT___V1029*/ curfptr[1028] = (void*)&cdat->drout_966__WARN_IF_REDEFINED; cdat->drout_966__WARN_IF_REDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_966__WARN_IF_REDEFINED.routdescr, "WARN_IF_REDEFINED @warmelt-macro.melt:1334", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_966__WARN_IF_REDEFINED.routdescr, "WARN_IF_REDEFINED @warmelt-macro.melt:1339", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_966__WARN_IF_REDEFINED.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_966__WARN_IF_REDEFINED, rout_24_WARN_IF_REDEFINED); @@ -55565,7 +55644,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_961__WARN_SHADOW)); /*inirout drout_968__FLATTEN_FOR_C_CODE_EXPANSION*/ /*_.VALROUT___V1031*/ curfptr[1030] = (void*)&cdat->drout_968__FLATTEN_FOR_C_CODE_EXPANSION; cdat->drout_968__FLATTEN_FOR_C_CODE_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_968__FLATTEN_FOR_C_CODE_EXPANSION.routdescr, "FLATTEN_FOR_C_CODE_EXPANSION @warmelt-macro.melt:1347", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_968__FLATTEN_FOR_C_CODE_EXPANSION.routdescr, "FLATTEN_FOR_C_CODE_EXPANSION @warmelt-macro.melt:1352", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_968__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_968__FLATTEN_FOR_C_CODE_EXPANSION, rout_25_FLATTEN_FOR_C_CODE_EXPANSION); @@ -55603,7 +55682,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_972__CLASS_LOCATED) /*inirout drout_974__PARSE_PAIRLIST_C_CODE_EXPANSION*/ /*_.VALROUT___V1037*/ curfptr[1036] = (void*)&cdat->drout_974__PARSE_PAIRLIST_C_CODE_EXPANSION; cdat->drout_974__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_974__PARSE_PAIRLIST_C_CODE_EXPANSION.routdescr, "PARSE_PAIRLIST_C_CODE_EXPANSION @warmelt-macro.melt:1393", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_974__PARSE_PAIRLIST_C_CODE_EXPANSION.routdescr, "PARSE_PAIRLIST_C_CODE_EXPANSION @warmelt-macro.melt:1398", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_974__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_974__PARSE_PAIRLIST_C_CODE_EXPANSION, rout_26_PARSE_PAIRLIST_C_CODE_EXPANSION); @@ -55628,7 +55707,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_976__LIST_TO_MULTIP /*inirout drout_978__CHECK_C_EXPANSION*/ /*_.VALROUT___V1041*/ curfptr[1040] = (void*)&cdat->drout_978__CHECK_C_EXPANSION; cdat->drout_978__CHECK_C_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_978__CHECK_C_EXPANSION.routdescr, "CHECK_C_EXPANSION @warmelt-macro.melt:1414", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_978__CHECK_C_EXPANSION.routdescr, "CHECK_C_EXPANSION @warmelt-macro.melt:1419", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_978__CHECK_C_EXPANSION.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_978__CHECK_C_EXPANSION, rout_27_CHECK_C_EXPANSION); @@ -55640,7 +55719,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_976__LIST_TO_MULTIP /*inirout drout_980__MEXPAND_DEFPRIMITIVE*/ /*_.VALROUT___V1043*/ curfptr[1042] = (void*)&cdat->drout_980__MEXPAND_DEFPRIMITIVE; cdat->drout_980__MEXPAND_DEFPRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_980__MEXPAND_DEFPRIMITIVE.routdescr, "MEXPAND_DEFPRIMITIVE @warmelt-macro.melt:1440", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_980__MEXPAND_DEFPRIMITIVE.routdescr, "MEXPAND_DEFPRIMITIVE @warmelt-macro.melt:1445", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_980__MEXPAND_DEFPRIMITIVE.nbval = 17; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_980__MEXPAND_DEFPRIMITIVE, rout_28_MEXPAND_DEFPRIMITIVE); @@ -55678,7 +55757,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_984__DEFPRIMITIVE)) /*inirout drout_986__MEXPAND_DEFCITERATOR*/ /*_.VALROUT___V1049*/ curfptr[1048] = (void*)&cdat->drout_986__MEXPAND_DEFCITERATOR; cdat->drout_986__MEXPAND_DEFCITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_986__MEXPAND_DEFCITERATOR.routdescr, "MEXPAND_DEFCITERATOR @warmelt-macro.melt:1522", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_986__MEXPAND_DEFCITERATOR.routdescr, "MEXPAND_DEFCITERATOR @warmelt-macro.melt:1527", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_986__MEXPAND_DEFCITERATOR.nbval = 14; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_986__MEXPAND_DEFCITERATOR, rout_29_MEXPAND_DEFCITERATOR); @@ -55703,7 +55782,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_988__DEFCITERATOR)) /*inirout drout_990__MEXPAND_DEFCMATCHER*/ /*_.VALROUT___V1053*/ curfptr[1052] = (void*)&cdat->drout_990__MEXPAND_DEFCMATCHER; cdat->drout_990__MEXPAND_DEFCMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_990__MEXPAND_DEFCMATCHER.routdescr, "MEXPAND_DEFCMATCHER @warmelt-macro.melt:1629", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_990__MEXPAND_DEFCMATCHER.routdescr, "MEXPAND_DEFCMATCHER @warmelt-macro.melt:1634", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_990__MEXPAND_DEFCMATCHER.nbval = 17; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_990__MEXPAND_DEFCMATCHER, rout_30_MEXPAND_DEFCMATCHER); @@ -55728,7 +55807,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_992__MULTIPLE_EVERY /*inirout drout_994__LAMBDA_*/ /*_.VALROUT___V1054*/ curfptr[1053] = (void*)&cdat->drout_994__LAMBDA_; cdat->drout_994__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_994__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1671", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_994__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1676", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_994__LAMBDA_.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_994__LAMBDA_, rout_31_LAMBDA_); @@ -55748,7 +55827,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_995__DEFCMATCHER)); /*inirout drout_997__MEXPAND_DEFUNMATCHER*/ /*_.VALROUT___V1060*/ curfptr[1059] = (void*)&cdat->drout_997__MEXPAND_DEFUNMATCHER; cdat->drout_997__MEXPAND_DEFUNMATCHER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_997__MEXPAND_DEFUNMATCHER.routdescr, "MEXPAND_DEFUNMATCHER @warmelt-macro.melt:1788", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_997__MEXPAND_DEFUNMATCHER.routdescr, "MEXPAND_DEFUNMATCHER @warmelt-macro.melt:1793", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_997__MEXPAND_DEFUNMATCHER.nbval = 13; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_997__MEXPAND_DEFUNMATCHER, rout_32_MEXPAND_DEFUNMATCHER); @@ -55760,7 +55839,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_995__DEFCMATCHER)); /*inirout drout_999__LAMBDA_*/ /*_.VALROUT___V1061*/ curfptr[1060] = (void*)&cdat->drout_999__LAMBDA_; cdat->drout_999__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_999__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1828", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_999__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1833", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_999__LAMBDA_.nbval = 0; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_999__LAMBDA_, rout_33_LAMBDA_); @@ -55780,7 +55859,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1000__DEFUNMATCHER) /*inirout drout_1002__MEXPAND_DEFUN*/ /*_.VALROUT___V1065*/ curfptr[1064] = (void*)&cdat->drout_1002__MEXPAND_DEFUN; cdat->drout_1002__MEXPAND_DEFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1002__MEXPAND_DEFUN.routdescr, "MEXPAND_DEFUN @warmelt-macro.melt:1908", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1002__MEXPAND_DEFUN.routdescr, "MEXPAND_DEFUN @warmelt-macro.melt:1913", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1002__MEXPAND_DEFUN.nbval = 15; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1002__MEXPAND_DEFUN, rout_34_MEXPAND_DEFUN); @@ -55805,7 +55884,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1004__FRESH_ENV)); /*inirout drout_1006__LAMBDA_*/ /*_.VALROUT___V1066*/ curfptr[1065] = (void*)&cdat->drout_1006__LAMBDA_; cdat->drout_1006__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1006__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1938", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1006__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1943", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1006__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1006__LAMBDA_, rout_35_LAMBDA_); @@ -55825,7 +55904,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1007__CLASS_FUNCTIO /*inirout drout_1009__SCAN_DEFCLASS*/ /*_.VALROUT___V1072*/ curfptr[1071] = (void*)&cdat->drout_1009__SCAN_DEFCLASS; cdat->drout_1009__SCAN_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1009__SCAN_DEFCLASS.routdescr, "SCAN_DEFCLASS @warmelt-macro.melt:1965", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1009__SCAN_DEFCLASS.routdescr, "SCAN_DEFCLASS @warmelt-macro.melt:1970", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1009__SCAN_DEFCLASS.nbval = 15; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1009__SCAN_DEFCLASS, rout_36_SCAN_DEFCLASS); @@ -55915,7 +55994,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1021__DOCSTR)); /*inirout drout_1023__MEXPAND_DEFCLASS*/ /*_.VALROUT___V1086*/ curfptr[1085] = (void*)&cdat->drout_1023__MEXPAND_DEFCLASS; cdat->drout_1023__MEXPAND_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1023__MEXPAND_DEFCLASS.routdescr, "MEXPAND_DEFCLASS @warmelt-macro.melt:2086", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1023__MEXPAND_DEFCLASS.routdescr, "MEXPAND_DEFCLASS @warmelt-macro.melt:2091", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1023__MEXPAND_DEFCLASS.nbval = 23; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1023__MEXPAND_DEFCLASS, rout_37_MEXPAND_DEFCLASS); @@ -55979,7 +56058,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1031__DISCR_SEQFIEL /*inirout drout_1033__LAMBDA_*/ /*_.VALROUT___V1087*/ curfptr[1086] = (void*)&cdat->drout_1033__LAMBDA_; cdat->drout_1033__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1033__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2142", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1033__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2147", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1033__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1033__LAMBDA_, rout_38_LAMBDA_); @@ -55999,7 +56078,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1034__CLASS_FIELD)) /*inirout drout_1036__LAMBDA_*/ /*_.VALROUT___V1088*/ curfptr[1087] = (void*)&cdat->drout_1036__LAMBDA_; cdat->drout_1036__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1036__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2151", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1036__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2156", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1036__LAMBDA_.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1036__LAMBDA_, rout_39_LAMBDA_); @@ -56019,7 +56098,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1037__CLASS_FIELD_B /*inirout drout_1039__PARSE_FIELD_ASSIGNMENT*/ /*_.VALROUT___V1102*/ curfptr[1101] = (void*)&cdat->drout_1039__PARSE_FIELD_ASSIGNMENT; cdat->drout_1039__PARSE_FIELD_ASSIGNMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1039__PARSE_FIELD_ASSIGNMENT.routdescr, "PARSE_FIELD_ASSIGNMENT @warmelt-macro.melt:2196", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1039__PARSE_FIELD_ASSIGNMENT.routdescr, "PARSE_FIELD_ASSIGNMENT @warmelt-macro.melt:2201", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1039__PARSE_FIELD_ASSIGNMENT.nbval = 13; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1039__PARSE_FIELD_ASSIGNMENT, rout_40_PARSE_FIELD_ASSIGNMENT); @@ -56044,14 +56123,14 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1041__MULTIPLE_ITER /*inirout drout_1043__LAMBDA_*/ /*_.VALROUT___V1103*/ curfptr[1102] = (void*)&cdat->drout_1043__LAMBDA_; cdat->drout_1043__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1043__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2208", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1043__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2213", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1043__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1043__LAMBDA_, rout_41_LAMBDA_); /*inirout drout_1044__MEXPAND_DEFINSTANCE*/ /*_.VALROUT___V1107*/ curfptr[1106] = (void*)&cdat->drout_1044__MEXPAND_DEFINSTANCE; cdat->drout_1044__MEXPAND_DEFINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1044__MEXPAND_DEFINSTANCE.routdescr, "MEXPAND_DEFINSTANCE @warmelt-macro.melt:2249", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1044__MEXPAND_DEFINSTANCE.routdescr, "MEXPAND_DEFINSTANCE @warmelt-macro.melt:2254", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1044__MEXPAND_DEFINSTANCE.nbval = 20; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1044__MEXPAND_DEFINSTANCE, rout_42_MEXPAND_DEFINSTANCE); @@ -56102,7 +56181,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1050__DEFINSTANCE)) /*inirout drout_1052__MEXPAND_DEFSELECTOR*/ /*_.VALROUT___V1115*/ curfptr[1114] = (void*)&cdat->drout_1052__MEXPAND_DEFSELECTOR; cdat->drout_1052__MEXPAND_DEFSELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1052__MEXPAND_DEFSELECTOR.routdescr, "MEXPAND_DEFSELECTOR @warmelt-macro.melt:2346", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1052__MEXPAND_DEFSELECTOR.routdescr, "MEXPAND_DEFSELECTOR @warmelt-macro.melt:2351", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1052__MEXPAND_DEFSELECTOR.nbval = 20; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1052__MEXPAND_DEFSELECTOR, rout_43_MEXPAND_DEFSELECTOR); @@ -56127,7 +56206,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1054__DEFSELECTOR)) /*inirout drout_1056__MEXPAND_INSTANCE*/ /*_.VALROUT___V1119*/ curfptr[1118] = (void*)&cdat->drout_1056__MEXPAND_INSTANCE; cdat->drout_1056__MEXPAND_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1056__MEXPAND_INSTANCE.routdescr, "MEXPAND_INSTANCE @warmelt-macro.melt:2440", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1056__MEXPAND_INSTANCE.routdescr, "MEXPAND_INSTANCE @warmelt-macro.melt:2445", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1056__MEXPAND_INSTANCE.nbval = 14; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1056__MEXPAND_INSTANCE, rout_44_MEXPAND_INSTANCE); @@ -56152,7 +56231,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1058__MAKE_INSTANCE /*inirout drout_1060__PARSE_FIELD_PATTERN*/ /*_.VALROUT___V1123*/ curfptr[1122] = (void*)&cdat->drout_1060__PARSE_FIELD_PATTERN; cdat->drout_1060__PARSE_FIELD_PATTERN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1060__PARSE_FIELD_PATTERN.routdescr, "PARSE_FIELD_PATTERN @warmelt-macro.melt:2503", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1060__PARSE_FIELD_PATTERN.routdescr, "PARSE_FIELD_PATTERN @warmelt-macro.melt:2508", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1060__PARSE_FIELD_PATTERN.nbval = 12; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1060__PARSE_FIELD_PATTERN, rout_45_PARSE_FIELD_PATTERN); @@ -56164,14 +56243,14 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1058__MAKE_INSTANCE /*inirout drout_1062__LAMBDA_*/ /*_.VALROUT___V1124*/ curfptr[1123] = (void*)&cdat->drout_1062__LAMBDA_; cdat->drout_1062__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1062__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2517", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1062__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2522", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1062__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1062__LAMBDA_, rout_46_LAMBDA_); /*inirout drout_1063__PATEXPAND_INSTANCE*/ /*_.VALROUT___V1126*/ curfptr[1125] = (void*)&cdat->drout_1063__PATEXPAND_INSTANCE; cdat->drout_1063__PATEXPAND_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1063__PATEXPAND_INSTANCE.routdescr, "PATEXPAND_INSTANCE @warmelt-macro.melt:2545", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1063__PATEXPAND_INSTANCE.routdescr, "PATEXPAND_INSTANCE @warmelt-macro.melt:2550", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1063__PATEXPAND_INSTANCE.nbval = 15; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1063__PATEXPAND_INSTANCE, rout_47_PATEXPAND_INSTANCE); @@ -56196,7 +56275,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1065__INSTANCE)); /*inirout drout_1067__PATEXPAND_OBJECT*/ /*_.VALROUT___V1130*/ curfptr[1129] = (void*)&cdat->drout_1067__PATEXPAND_OBJECT; cdat->drout_1067__PATEXPAND_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1067__PATEXPAND_OBJECT.routdescr, "PATEXPAND_OBJECT @warmelt-macro.melt:2612", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1067__PATEXPAND_OBJECT.routdescr, "PATEXPAND_OBJECT @warmelt-macro.melt:2617", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1067__PATEXPAND_OBJECT.nbval = 15; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1067__PATEXPAND_OBJECT, rout_48_PATEXPAND_OBJECT); @@ -56208,7 +56287,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1065__INSTANCE)); /*inirout drout_1069__MEXPAND_OBJECT*/ /*_.VALROUT___V1132*/ curfptr[1131] = (void*)&cdat->drout_1069__MEXPAND_OBJECT; cdat->drout_1069__MEXPAND_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1069__MEXPAND_OBJECT.routdescr, "MEXPAND_OBJECT @warmelt-macro.melt:2677", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1069__MEXPAND_OBJECT.routdescr, "MEXPAND_OBJECT @warmelt-macro.melt:2682", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1069__MEXPAND_OBJECT.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1069__MEXPAND_OBJECT, rout_49_MEXPAND_OBJECT); @@ -56233,7 +56312,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1071__OBJECT)); /*inirout drout_1073__MEXPAND_CODE_CHUNK*/ /*_.VALROUT___V1136*/ curfptr[1135] = (void*)&cdat->drout_1073__MEXPAND_CODE_CHUNK; cdat->drout_1073__MEXPAND_CODE_CHUNK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1073__MEXPAND_CODE_CHUNK.routdescr, "MEXPAND_CODE_CHUNK @warmelt-macro.melt:2692", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1073__MEXPAND_CODE_CHUNK.routdescr, "MEXPAND_CODE_CHUNK @warmelt-macro.melt:2697", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1073__MEXPAND_CODE_CHUNK.nbval = 10; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1073__MEXPAND_CODE_CHUNK, rout_50_MEXPAND_CODE_CHUNK); @@ -56258,7 +56337,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1075__CODE_CHUNK)); /*inirout drout_1077__MEXPAND_UNSAFE_PUT_FIELDS*/ /*_.VALROUT___V1140*/ curfptr[1139] = (void*)&cdat->drout_1077__MEXPAND_UNSAFE_PUT_FIELDS; cdat->drout_1077__MEXPAND_UNSAFE_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1077__MEXPAND_UNSAFE_PUT_FIELDS.routdescr, "MEXPAND_UNSAFE_PUT_FIELDS @warmelt-macro.melt:2741", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1077__MEXPAND_UNSAFE_PUT_FIELDS.routdescr, "MEXPAND_UNSAFE_PUT_FIELDS @warmelt-macro.melt:2746", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1077__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1077__MEXPAND_UNSAFE_PUT_FIELDS, rout_51_MEXPAND_UNSAFE_PUT_FIELDS); @@ -56283,7 +56362,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1079__UNSAFE_PUT_FI /*inirout drout_1081__MEXPAND_PUT_FIELDS*/ /*_.VALROUT___V1144*/ curfptr[1143] = (void*)&cdat->drout_1081__MEXPAND_PUT_FIELDS; cdat->drout_1081__MEXPAND_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1081__MEXPAND_PUT_FIELDS.routdescr, "MEXPAND_PUT_FIELDS @warmelt-macro.melt:2781", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1081__MEXPAND_PUT_FIELDS.routdescr, "MEXPAND_PUT_FIELDS @warmelt-macro.melt:2786", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1081__MEXPAND_PUT_FIELDS.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1081__MEXPAND_PUT_FIELDS, rout_52_MEXPAND_PUT_FIELDS); @@ -56308,7 +56387,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1083__PUT_FIELDS)); /*inirout drout_1085__MEXPAND_UNSAFE_GET_FIELD*/ /*_.VALROUT___V1148*/ curfptr[1147] = (void*)&cdat->drout_1085__MEXPAND_UNSAFE_GET_FIELD; cdat->drout_1085__MEXPAND_UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1085__MEXPAND_UNSAFE_GET_FIELD.routdescr, "MEXPAND_UNSAFE_GET_FIELD @warmelt-macro.melt:2821", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1085__MEXPAND_UNSAFE_GET_FIELD.routdescr, "MEXPAND_UNSAFE_GET_FIELD @warmelt-macro.melt:2826", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1085__MEXPAND_UNSAFE_GET_FIELD.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1085__MEXPAND_UNSAFE_GET_FIELD, rout_53_MEXPAND_UNSAFE_GET_FIELD); @@ -56333,7 +56412,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1087__UNSAFE_GET_FI /*inirout drout_1089__MEXPAND_GET_FIELD*/ /*_.VALROUT___V1152*/ curfptr[1151] = (void*)&cdat->drout_1089__MEXPAND_GET_FIELD; cdat->drout_1089__MEXPAND_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1089__MEXPAND_GET_FIELD.routdescr, "MEXPAND_GET_FIELD @warmelt-macro.melt:2855", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1089__MEXPAND_GET_FIELD.routdescr, "MEXPAND_GET_FIELD @warmelt-macro.melt:2860", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1089__MEXPAND_GET_FIELD.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1089__MEXPAND_GET_FIELD, rout_54_MEXPAND_GET_FIELD); @@ -56358,7 +56437,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1091__GET_FIELD)); /*inirout drout_1093__MEXPAND_SETQ*/ /*_.VALROUT___V1156*/ curfptr[1155] = (void*)&cdat->drout_1093__MEXPAND_SETQ; cdat->drout_1093__MEXPAND_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1093__MEXPAND_SETQ.routdescr, "MEXPAND_SETQ @warmelt-macro.melt:2890", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1093__MEXPAND_SETQ.routdescr, "MEXPAND_SETQ @warmelt-macro.melt:2895", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1093__MEXPAND_SETQ.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1093__MEXPAND_SETQ, rout_55_MEXPAND_SETQ); @@ -56383,7 +56462,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1095__SETQ)); /*inirout drout_1097__MEXPAND_IF*/ /*_.VALROUT___V1160*/ curfptr[1159] = (void*)&cdat->drout_1097__MEXPAND_IF; cdat->drout_1097__MEXPAND_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1097__MEXPAND_IF.routdescr, "MEXPAND_IF @warmelt-macro.melt:2916", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1097__MEXPAND_IF.routdescr, "MEXPAND_IF @warmelt-macro.melt:2921", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1097__MEXPAND_IF.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1097__MEXPAND_IF, rout_56_MEXPAND_IF); @@ -56408,7 +56487,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1099__IF)); /*inirout drout_1101__MEXPAND_CPPIF*/ /*_.VALROUT___V1164*/ curfptr[1163] = (void*)&cdat->drout_1101__MEXPAND_CPPIF; cdat->drout_1101__MEXPAND_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1101__MEXPAND_CPPIF.routdescr, "MEXPAND_CPPIF @warmelt-macro.melt:2963", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1101__MEXPAND_CPPIF.routdescr, "MEXPAND_CPPIF @warmelt-macro.melt:2968", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1101__MEXPAND_CPPIF.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1101__MEXPAND_CPPIF, rout_57_MEXPAND_CPPIF); @@ -56433,7 +56512,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1103__CPPIF)); /*inirout drout_1105__MEXPAND_COND*/ /*_.VALROUT___V1168*/ curfptr[1167] = (void*)&cdat->drout_1105__MEXPAND_COND; cdat->drout_1105__MEXPAND_COND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1105__MEXPAND_COND.routdescr, "MEXPAND_COND @warmelt-macro.melt:3015", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1105__MEXPAND_COND.routdescr, "MEXPAND_COND @warmelt-macro.melt:3020", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1105__MEXPAND_COND.nbval = 12; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1105__MEXPAND_COND, rout_58_MEXPAND_COND); @@ -56445,7 +56524,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1103__CPPIF)); /*inirout drout_1107__LAMBDA_*/ /*_.VALROUT___V1169*/ curfptr[1168] = (void*)&cdat->drout_1107__LAMBDA_; cdat->drout_1107__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1107__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3025", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1107__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3030", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1107__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1107__LAMBDA_, rout_59_LAMBDA_); @@ -56478,7 +56557,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1110__COND)); /*inirout drout_1112__MEXPAND_AND*/ /*_.VALROUT___V1178*/ curfptr[1177] = (void*)&cdat->drout_1112__MEXPAND_AND; cdat->drout_1112__MEXPAND_AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1112__MEXPAND_AND.routdescr, "MEXPAND_AND @warmelt-macro.melt:3110", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1112__MEXPAND_AND.routdescr, "MEXPAND_AND @warmelt-macro.melt:3115", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1112__MEXPAND_AND.nbval = 8; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1112__MEXPAND_AND, rout_60_MEXPAND_AND); @@ -56490,14 +56569,14 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1110__COND)); /*inirout drout_1114__LAMBDA_*/ /*_.VALROUT___V1179*/ curfptr[1178] = (void*)&cdat->drout_1114__LAMBDA_; cdat->drout_1114__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1114__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3121", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1114__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3126", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1114__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1114__LAMBDA_, rout_61_LAMBDA_); /*inirout drout_1115__PATEXPAND_AS*/ /*_.VALROUT___V1181*/ curfptr[1180] = (void*)&cdat->drout_1115__PATEXPAND_AS; cdat->drout_1115__PATEXPAND_AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1115__PATEXPAND_AS.routdescr, "PATEXPAND_AS @warmelt-macro.melt:3148", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1115__PATEXPAND_AS.routdescr, "PATEXPAND_AS @warmelt-macro.melt:3153", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1115__PATEXPAND_AS.nbval = 8; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1115__PATEXPAND_AS, rout_62_PATEXPAND_AS); @@ -56509,7 +56588,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1110__COND)); /*inirout drout_1117__MEXPAND_AS*/ /*_.VALROUT___V1183*/ curfptr[1182] = (void*)&cdat->drout_1117__MEXPAND_AS; cdat->drout_1117__MEXPAND_AS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1117__MEXPAND_AS.routdescr, "MEXPAND_AS @warmelt-macro.melt:3184", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1117__MEXPAND_AS.routdescr, "MEXPAND_AS @warmelt-macro.melt:3189", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1117__MEXPAND_AS.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1117__MEXPAND_AS, rout_63_MEXPAND_AS); @@ -56534,7 +56613,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1119__AS)); /*inirout drout_1121__PATEXPAND_AND*/ /*_.VALROUT___V1187*/ curfptr[1186] = (void*)&cdat->drout_1121__PATEXPAND_AND; cdat->drout_1121__PATEXPAND_AND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1121__PATEXPAND_AND.routdescr, "PATEXPAND_AND @warmelt-macro.melt:3199", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1121__PATEXPAND_AND.routdescr, "PATEXPAND_AND @warmelt-macro.melt:3204", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1121__PATEXPAND_AND.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1121__PATEXPAND_AND, rout_64_PATEXPAND_AND); @@ -56559,7 +56638,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1123__AND)); /*inirout drout_1125__MEXPAND_OR*/ /*_.VALROUT___V1191*/ curfptr[1190] = (void*)&cdat->drout_1125__MEXPAND_OR; cdat->drout_1125__MEXPAND_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1125__MEXPAND_OR.routdescr, "MEXPAND_OR @warmelt-macro.melt:3222", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1125__MEXPAND_OR.routdescr, "MEXPAND_OR @warmelt-macro.melt:3227", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1125__MEXPAND_OR.nbval = 8; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1125__MEXPAND_OR, rout_65_MEXPAND_OR); @@ -56571,14 +56650,14 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1123__AND)); /*inirout drout_1127__LAMBDA_*/ /*_.VALROUT___V1192*/ curfptr[1191] = (void*)&cdat->drout_1127__LAMBDA_; cdat->drout_1127__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1127__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3232", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1127__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3237", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1127__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1127__LAMBDA_, rout_66_LAMBDA_); /*inirout drout_1128__PATEXPAND_OR*/ /*_.VALROUT___V1194*/ curfptr[1193] = (void*)&cdat->drout_1128__PATEXPAND_OR; cdat->drout_1128__PATEXPAND_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1128__PATEXPAND_OR.routdescr, "PATEXPAND_OR @warmelt-macro.melt:3249", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1128__PATEXPAND_OR.routdescr, "PATEXPAND_OR @warmelt-macro.melt:3254", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1128__PATEXPAND_OR.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1128__PATEXPAND_OR, rout_67_PATEXPAND_OR); @@ -56603,7 +56682,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1130__OR)); /*inirout drout_1132__MEXPAND_MATCH*/ /*_.VALROUT___V1198*/ curfptr[1197] = (void*)&cdat->drout_1132__MEXPAND_MATCH; cdat->drout_1132__MEXPAND_MATCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1132__MEXPAND_MATCH.routdescr, "MEXPAND_MATCH @warmelt-macro.melt:3272", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1132__MEXPAND_MATCH.routdescr, "MEXPAND_MATCH @warmelt-macro.melt:3277", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1132__MEXPAND_MATCH.nbval = 18; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1132__MEXPAND_MATCH, rout_68_MEXPAND_MATCH); @@ -56615,7 +56694,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1130__OR)); /*inirout drout_1134__LAMBDA_*/ /*_.VALROUT___V1199*/ curfptr[1198] = (void*)&cdat->drout_1134__LAMBDA_; cdat->drout_1134__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1134__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3284", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1134__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3289", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1134__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1134__LAMBDA_, rout_69_LAMBDA_); @@ -56648,7 +56727,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1137__MATCH)); /*inirout drout_1139__MEXPAND_LETBINDING*/ /*_.VALROUT___V1205*/ curfptr[1204] = (void*)&cdat->drout_1139__MEXPAND_LETBINDING; cdat->drout_1139__MEXPAND_LETBINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1139__MEXPAND_LETBINDING.routdescr, "MEXPAND_LETBINDING @warmelt-macro.melt:3371", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1139__MEXPAND_LETBINDING.routdescr, "MEXPAND_LETBINDING @warmelt-macro.melt:3376", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1139__MEXPAND_LETBINDING.nbval = 13; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1139__MEXPAND_LETBINDING, rout_70_MEXPAND_LETBINDING); @@ -56686,7 +56765,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1143__CLASS_FIXED_B /*inirout drout_1145__MEXPAND_LET*/ /*_.VALROUT___V1211*/ curfptr[1210] = (void*)&cdat->drout_1145__MEXPAND_LET; cdat->drout_1145__MEXPAND_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1145__MEXPAND_LET.routdescr, "MEXPAND_LET @warmelt-macro.melt:3442", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1145__MEXPAND_LET.routdescr, "MEXPAND_LET @warmelt-macro.melt:3447", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1145__MEXPAND_LET.nbval = 16; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1145__MEXPAND_LET, rout_71_MEXPAND_LET); @@ -56698,21 +56777,21 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1143__CLASS_FIXED_B /*inirout drout_1147__LAMBDA_*/ /*_.VALROUT___V1212*/ curfptr[1211] = (void*)&cdat->drout_1147__LAMBDA_; cdat->drout_1147__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1147__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3461", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1147__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3466", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1147__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1147__LAMBDA_, rout_72_LAMBDA_); /*inirout drout_1148__LAMBDA_*/ /*_.VALROUT___V1213*/ curfptr[1212] = (void*)&cdat->drout_1148__LAMBDA_; cdat->drout_1148__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1148__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3469", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1148__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3474", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1148__LAMBDA_.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1148__LAMBDA_, rout_73_LAMBDA_); /*inirout drout_1149__LAMBDA_*/ /*_.VALROUT___V1214*/ curfptr[1213] = (void*)&cdat->drout_1149__LAMBDA_; cdat->drout_1149__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1149__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3481", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1149__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3486", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1149__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1149__LAMBDA_, rout_74_LAMBDA_); @@ -56732,7 +56811,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1150__LET)); /*inirout drout_1152__MEXPAND_LAMBDA*/ /*_.VALROUT___V1218*/ curfptr[1217] = (void*)&cdat->drout_1152__MEXPAND_LAMBDA; cdat->drout_1152__MEXPAND_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1152__MEXPAND_LAMBDA.routdescr, "MEXPAND_LAMBDA @warmelt-macro.melt:3493", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1152__MEXPAND_LAMBDA.routdescr, "MEXPAND_LAMBDA @warmelt-macro.melt:3498", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1152__MEXPAND_LAMBDA.nbval = 12; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1152__MEXPAND_LAMBDA, rout_75_MEXPAND_LAMBDA); @@ -56744,14 +56823,14 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1150__LET)); /*inirout drout_1154__LAMBDA_*/ /*_.VALROUT___V1219*/ curfptr[1218] = (void*)&cdat->drout_1154__LAMBDA_; cdat->drout_1154__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1154__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3508", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1154__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3513", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1154__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1154__LAMBDA_, rout_76_LAMBDA_); /*inirout drout_1155__LAMBDA_*/ /*_.VALROUT___V1220*/ curfptr[1219] = (void*)&cdat->drout_1155__LAMBDA_; cdat->drout_1155__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1155__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3510", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1155__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3515", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1155__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1155__LAMBDA_, rout_77_LAMBDA_); @@ -56771,7 +56850,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1156__LAMBDA)); /*inirout drout_1158__MEXPAND_MULTICALL*/ /*_.VALROUT___V1224*/ curfptr[1223] = (void*)&cdat->drout_1158__MEXPAND_MULTICALL; cdat->drout_1158__MEXPAND_MULTICALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1158__MEXPAND_MULTICALL.routdescr, "MEXPAND_MULTICALL @warmelt-macro.melt:3523", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1158__MEXPAND_MULTICALL.routdescr, "MEXPAND_MULTICALL @warmelt-macro.melt:3528", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1158__MEXPAND_MULTICALL.nbval = 13; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1158__MEXPAND_MULTICALL, rout_78_MEXPAND_MULTICALL); @@ -56783,14 +56862,14 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1156__LAMBDA)); /*inirout drout_1160__LAMBDA_*/ /*_.VALROUT___V1225*/ curfptr[1224] = (void*)&cdat->drout_1160__LAMBDA_; cdat->drout_1160__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1160__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3540", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1160__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3545", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1160__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1160__LAMBDA_, rout_79_LAMBDA_); /*inirout drout_1161__LAMBDA_*/ /*_.VALROUT___V1226*/ curfptr[1225] = (void*)&cdat->drout_1161__LAMBDA_; cdat->drout_1161__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1161__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3543", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1161__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3548", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1161__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1161__LAMBDA_, rout_80_LAMBDA_); @@ -56810,7 +56889,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1162__MULTICALL)); /*inirout drout_1164__MEXPAND_QUOTE*/ /*_.VALROUT___V1230*/ curfptr[1229] = (void*)&cdat->drout_1164__MEXPAND_QUOTE; cdat->drout_1164__MEXPAND_QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1164__MEXPAND_QUOTE.routdescr, "MEXPAND_QUOTE @warmelt-macro.melt:3559", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1164__MEXPAND_QUOTE.routdescr, "MEXPAND_QUOTE @warmelt-macro.melt:3564", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1164__MEXPAND_QUOTE.nbval = 5; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1164__MEXPAND_QUOTE, rout_81_MEXPAND_QUOTE); @@ -56835,7 +56914,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1166__QUOTE)); /*inirout drout_1168__MEXPAND_COMMENT*/ /*_.VALROUT___V1234*/ curfptr[1233] = (void*)&cdat->drout_1168__MEXPAND_COMMENT; cdat->drout_1168__MEXPAND_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1168__MEXPAND_COMMENT.routdescr, "MEXPAND_COMMENT @warmelt-macro.melt:3582", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1168__MEXPAND_COMMENT.routdescr, "MEXPAND_COMMENT @warmelt-macro.melt:3587", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1168__MEXPAND_COMMENT.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1168__MEXPAND_COMMENT, rout_82_MEXPAND_COMMENT); @@ -56860,7 +56939,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1170__COMMENT)); /*inirout drout_1172__PAIRLIST_TO_PROGN*/ /*_.VALROUT___V1173*/ curfptr[1172] = (void*)&cdat->drout_1172__PAIRLIST_TO_PROGN; cdat->drout_1172__PAIRLIST_TO_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1172__PAIRLIST_TO_PROGN.routdescr, "PAIRLIST_TO_PROGN @warmelt-macro.melt:3607", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1172__PAIRLIST_TO_PROGN.routdescr, "PAIRLIST_TO_PROGN @warmelt-macro.melt:3612", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1172__PAIRLIST_TO_PROGN.nbval = 7; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1172__PAIRLIST_TO_PROGN, rout_83_PAIRLIST_TO_PROGN); @@ -56872,14 +56951,14 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1170__COMMENT)); /*inirout drout_1174__LAMBDA_*/ /*_.VALROUT___V1174*/ curfptr[1173] = (void*)&cdat->drout_1174__LAMBDA_; cdat->drout_1174__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1174__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3614", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1174__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3619", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1174__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1174__LAMBDA_, rout_84_LAMBDA_); /*inirout drout_1175__PAIRLIST_TO_RETURN*/ /*_.VALROUT___V1238*/ curfptr[1237] = (void*)&cdat->drout_1175__PAIRLIST_TO_RETURN; cdat->drout_1175__PAIRLIST_TO_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1175__PAIRLIST_TO_RETURN.routdescr, "PAIRLIST_TO_RETURN @warmelt-macro.melt:3625", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1175__PAIRLIST_TO_RETURN.routdescr, "PAIRLIST_TO_RETURN @warmelt-macro.melt:3630", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1175__PAIRLIST_TO_RETURN.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1175__PAIRLIST_TO_RETURN, rout_85_PAIRLIST_TO_RETURN); @@ -56891,14 +56970,14 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1170__COMMENT)); /*inirout drout_1177__LAMBDA_*/ /*_.VALROUT___V1239*/ curfptr[1238] = (void*)&cdat->drout_1177__LAMBDA_; cdat->drout_1177__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1177__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3630", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1177__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3635", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1177__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1177__LAMBDA_, rout_86_LAMBDA_); /*inirout drout_1178__MEXPAND_PROGN*/ /*_.VALROUT___V1241*/ curfptr[1240] = (void*)&cdat->drout_1178__MEXPAND_PROGN; cdat->drout_1178__MEXPAND_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1178__MEXPAND_PROGN.routdescr, "MEXPAND_PROGN @warmelt-macro.melt:3638", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1178__MEXPAND_PROGN.routdescr, "MEXPAND_PROGN @warmelt-macro.melt:3643", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1178__MEXPAND_PROGN.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1178__MEXPAND_PROGN, rout_87_MEXPAND_PROGN); @@ -56923,7 +57002,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1180__PROGN)); /*inirout drout_1182__MEXPAND_RETURN*/ /*_.VALROUT___V1245*/ curfptr[1244] = (void*)&cdat->drout_1182__MEXPAND_RETURN; cdat->drout_1182__MEXPAND_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1182__MEXPAND_RETURN.routdescr, "MEXPAND_RETURN @warmelt-macro.melt:3659", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1182__MEXPAND_RETURN.routdescr, "MEXPAND_RETURN @warmelt-macro.melt:3664", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1182__MEXPAND_RETURN.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1182__MEXPAND_RETURN, rout_88_MEXPAND_RETURN); @@ -56948,7 +57027,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1184__RETURN)); /*inirout drout_1186__MEXPAND_FOREVER*/ /*_.VALROUT___V1249*/ curfptr[1248] = (void*)&cdat->drout_1186__MEXPAND_FOREVER; cdat->drout_1186__MEXPAND_FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1186__MEXPAND_FOREVER.routdescr, "MEXPAND_FOREVER @warmelt-macro.melt:3674", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1186__MEXPAND_FOREVER.routdescr, "MEXPAND_FOREVER @warmelt-macro.melt:3679", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1186__MEXPAND_FOREVER.nbval = 11; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1186__MEXPAND_FOREVER, rout_89_MEXPAND_FOREVER); @@ -56973,7 +57052,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1188__CLASS_LABEL_B /*inirout drout_1190__LAMBDA_*/ /*_.VALROUT___V1250*/ curfptr[1249] = (void*)&cdat->drout_1190__LAMBDA_; cdat->drout_1190__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1190__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3695", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1190__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3700", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1190__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1190__LAMBDA_, rout_90_LAMBDA_); @@ -56993,7 +57072,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1191__FOREVER)); /*inirout drout_1193__MEXPAND_EXIT*/ /*_.VALROUT___V1256*/ curfptr[1255] = (void*)&cdat->drout_1193__MEXPAND_EXIT; cdat->drout_1193__MEXPAND_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1193__MEXPAND_EXIT.routdescr, "MEXPAND_EXIT @warmelt-macro.melt:3708", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1193__MEXPAND_EXIT.routdescr, "MEXPAND_EXIT @warmelt-macro.melt:3713", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1193__MEXPAND_EXIT.nbval = 11; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1193__MEXPAND_EXIT, rout_91_MEXPAND_EXIT); @@ -57005,7 +57084,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1191__FOREVER)); /*inirout drout_1195__LAMBDA_*/ /*_.VALROUT___V1257*/ curfptr[1256] = (void*)&cdat->drout_1195__LAMBDA_; cdat->drout_1195__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1195__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3731", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1195__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3736", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1195__LAMBDA_.nbval = 1; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1195__LAMBDA_, rout_92_LAMBDA_); @@ -57025,7 +57104,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1196__EXIT)); /*inirout drout_1198__MEXPAND_COMPILE_WARNING*/ /*_.VALROUT___V1261*/ curfptr[1260] = (void*)&cdat->drout_1198__MEXPAND_COMPILE_WARNING; cdat->drout_1198__MEXPAND_COMPILE_WARNING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1198__MEXPAND_COMPILE_WARNING.routdescr, "MEXPAND_COMPILE_WARNING @warmelt-macro.melt:3746", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1198__MEXPAND_COMPILE_WARNING.routdescr, "MEXPAND_COMPILE_WARNING @warmelt-macro.melt:3751", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1198__MEXPAND_COMPILE_WARNING.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1198__MEXPAND_COMPILE_WARNING, rout_93_MEXPAND_COMPILE_WARNING); @@ -57050,7 +57129,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1200__COMPILE_WARNI /*inirout drout_1202__MEXPAND_ASSERT_MSG*/ /*_.VALROUT___V1265*/ curfptr[1264] = (void*)&cdat->drout_1202__MEXPAND_ASSERT_MSG; cdat->drout_1202__MEXPAND_ASSERT_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1202__MEXPAND_ASSERT_MSG.routdescr, "MEXPAND_ASSERT_MSG @warmelt-macro.melt:3785", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1202__MEXPAND_ASSERT_MSG.routdescr, "MEXPAND_ASSERT_MSG @warmelt-macro.melt:3790", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1202__MEXPAND_ASSERT_MSG.nbval = 16; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1202__MEXPAND_ASSERT_MSG, rout_94_MEXPAND_ASSERT_MSG); @@ -57114,7 +57193,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1210__ASSERT_MSG)); /*inirout drout_1212__MEXPAND_DEBUG_MSG*/ /*_.VALROUT___V1275*/ curfptr[1274] = (void*)&cdat->drout_1212__MEXPAND_DEBUG_MSG; cdat->drout_1212__MEXPAND_DEBUG_MSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1212__MEXPAND_DEBUG_MSG.routdescr, "MEXPAND_DEBUG_MSG @warmelt-macro.melt:3865", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1212__MEXPAND_DEBUG_MSG.routdescr, "MEXPAND_DEBUG_MSG @warmelt-macro.melt:3870", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1212__MEXPAND_DEBUG_MSG.nbval = 12; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1212__MEXPAND_DEBUG_MSG, rout_95_MEXPAND_DEBUG_MSG); @@ -57152,7 +57231,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1216__DEBUG_MSG)); /*inirout drout_1218__MEXPAND_EXPORT_VALUES*/ /*_.VALROUT___V1281*/ curfptr[1280] = (void*)&cdat->drout_1218__MEXPAND_EXPORT_VALUES; cdat->drout_1218__MEXPAND_EXPORT_VALUES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1218__MEXPAND_EXPORT_VALUES.routdescr, "MEXPAND_EXPORT_VALUES @warmelt-macro.melt:3926", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1218__MEXPAND_EXPORT_VALUES.routdescr, "MEXPAND_EXPORT_VALUES @warmelt-macro.melt:3931", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1218__MEXPAND_EXPORT_VALUES.nbval = 10; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1218__MEXPAND_EXPORT_VALUES, rout_96_MEXPAND_EXPORT_VALUES); @@ -57164,7 +57243,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1216__DEBUG_MSG)); /*inirout drout_1220__LAMBDA_*/ /*_.VALROUT___V1282*/ curfptr[1281] = (void*)&cdat->drout_1220__LAMBDA_; cdat->drout_1220__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1220__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3936", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1220__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3941", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1220__LAMBDA_.nbval = 3; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1220__LAMBDA_, rout_97_LAMBDA_); @@ -57197,7 +57276,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1223__EXPORT_VALUES /*inirout drout_1225__MEXPAND_EXPORT_MACRO*/ /*_.VALROUT___V1288*/ curfptr[1287] = (void*)&cdat->drout_1225__MEXPAND_EXPORT_MACRO; cdat->drout_1225__MEXPAND_EXPORT_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1225__MEXPAND_EXPORT_MACRO.routdescr, "MEXPAND_EXPORT_MACRO @warmelt-macro.melt:3956", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1225__MEXPAND_EXPORT_MACRO.routdescr, "MEXPAND_EXPORT_MACRO @warmelt-macro.melt:3961", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1225__MEXPAND_EXPORT_MACRO.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1225__MEXPAND_EXPORT_MACRO, rout_98_MEXPAND_EXPORT_MACRO); @@ -57222,7 +57301,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1227__EXPORT_MACRO) /*inirout drout_1229__MEXPAND_EXPORT_PATMACRO*/ /*_.VALROUT___V1292*/ curfptr[1291] = (void*)&cdat->drout_1229__MEXPAND_EXPORT_PATMACRO; cdat->drout_1229__MEXPAND_EXPORT_PATMACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1229__MEXPAND_EXPORT_PATMACRO.routdescr, "MEXPAND_EXPORT_PATMACRO @warmelt-macro.melt:3987", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1229__MEXPAND_EXPORT_PATMACRO.routdescr, "MEXPAND_EXPORT_PATMACRO @warmelt-macro.melt:3992", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1229__MEXPAND_EXPORT_PATMACRO.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1229__MEXPAND_EXPORT_PATMACRO, rout_99_MEXPAND_EXPORT_PATMACRO); @@ -57247,7 +57326,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1231__EXPORT_PATMAC /*inirout drout_1233__MEXPAND_EXPORT_CLASS*/ /*_.VALROUT___V1296*/ curfptr[1295] = (void*)&cdat->drout_1233__MEXPAND_EXPORT_CLASS; cdat->drout_1233__MEXPAND_EXPORT_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1233__MEXPAND_EXPORT_CLASS.routdescr, "MEXPAND_EXPORT_CLASS @warmelt-macro.melt:4024", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1233__MEXPAND_EXPORT_CLASS.routdescr, "MEXPAND_EXPORT_CLASS @warmelt-macro.melt:4029", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1233__MEXPAND_EXPORT_CLASS.nbval = 9; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1233__MEXPAND_EXPORT_CLASS, rout_100_MEXPAND_EXPORT_CLASS); @@ -57259,7 +57338,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1231__EXPORT_PATMAC /*inirout drout_1235__LAMBDA_*/ /*_.VALROUT___V1297*/ curfptr[1296] = (void*)&cdat->drout_1235__LAMBDA_; cdat->drout_1235__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1235__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4034", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1235__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4039", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1235__LAMBDA_.nbval = 2; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1235__LAMBDA_, rout_101_LAMBDA_); @@ -57279,7 +57358,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1236__EXPORT_CLASS) /*inirout drout_1238__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALROUT___V1301*/ curfptr[1300] = (void*)&cdat->drout_1238__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->drout_1238__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1238__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:4052", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1238__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:4057", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1238__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1238__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER, rout_102_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER); @@ -57304,7 +57383,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1240__CURRENT_MODUL /*inirout drout_1242__MEXPAND_PARENT_MODULE_ENVIRONMENT*/ /*_.VALROUT___V1305*/ curfptr[1304] = (void*)&cdat->drout_1242__MEXPAND_PARENT_MODULE_ENVIRONMENT; cdat->drout_1242__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1242__MEXPAND_PARENT_MODULE_ENVIRONMENT.routdescr, "MEXPAND_PARENT_MODULE_ENVIRONMENT @warmelt-macro.melt:4077", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1242__MEXPAND_PARENT_MODULE_ENVIRONMENT.routdescr, "MEXPAND_PARENT_MODULE_ENVIRONMENT @warmelt-macro.melt:4082", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1242__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1242__MEXPAND_PARENT_MODULE_ENVIRONMENT, rout_103_MEXPAND_PARENT_MODULE_ENVIRONMENT); @@ -57329,7 +57408,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1244__PARENT_MODULE /*inirout drout_1246__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALROUT___V1309*/ curfptr[1308] = (void*)&cdat->drout_1246__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->drout_1246__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1246__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:4100", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1246__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:4105", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1246__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1246__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER, rout_104_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER); @@ -57354,7 +57433,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1248__UPDATE_CURREN /*inirout drout_1250__MEXPAND_FETCH_PREDEFINED*/ /*_.VALROUT___V1313*/ curfptr[1312] = (void*)&cdat->drout_1250__MEXPAND_FETCH_PREDEFINED; cdat->drout_1250__MEXPAND_FETCH_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1250__MEXPAND_FETCH_PREDEFINED.routdescr, "MEXPAND_FETCH_PREDEFINED @warmelt-macro.melt:4127", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1250__MEXPAND_FETCH_PREDEFINED.routdescr, "MEXPAND_FETCH_PREDEFINED @warmelt-macro.melt:4132", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1250__MEXPAND_FETCH_PREDEFINED.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1250__MEXPAND_FETCH_PREDEFINED, rout_105_MEXPAND_FETCH_PREDEFINED); @@ -57379,7 +57458,7 @@ basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1252__FETCH_PREDEFI /*inirout drout_1254__MEXPAND_STORE_PREDEFINED*/ /*_.VALROUT___V1317*/ curfptr[1316] = (void*)&cdat->drout_1254__MEXPAND_STORE_PREDEFINED; cdat->drout_1254__MEXPAND_STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); - strncpy(cdat->drout_1254__MEXPAND_STORE_PREDEFINED.routdescr, "MEXPAND_STORE_PREDEFINED @warmelt-macro.melt:4153", BASILYS_ROUTDESCR_LEN - 1); + strncpy(cdat->drout_1254__MEXPAND_STORE_PREDEFINED.routdescr, "MEXPAND_STORE_PREDEFINED @warmelt-macro.melt:4158", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1254__MEXPAND_STORE_PREDEFINED.nbval = 6; BASILYS_ROUTINE_SET_ROUTCODE(&cdat->drout_1254__MEXPAND_STORE_PREDEFINED, rout_106_MEXPAND_STORE_PREDEFINED); @@ -67879,67 +67958,67 @@ initial_frame_st curfram__; basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V901*/ curfptr[900])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:1202:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V903*/ curfptr[902])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_941__LAMBDA_ARG_BINDINGS#0", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V903*/ curfptr[902])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:1202:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V903*/ curfptr[902])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_941__LAMBDA_ARG_BINDINGS#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V903*/ curfptr[902])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:1202:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V903*/ curfptr[902])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_941__LAMBDA_ARG_BINDINGS#2", NULL != (/*_.CTYPE_VALUE__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V903*/ curfptr[902])->tabval[2] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V36*/ curfptr[35]); - BASILYS_LOCATION("warmelt-macro.melt:1202:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V903*/ curfptr[902])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_941__LAMBDA_ARG_BINDINGS#3", NULL != (/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V903*/ curfptr[902])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36]); - BASILYS_LOCATION("warmelt-macro.melt:1202:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V903*/ curfptr[902])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_941__LAMBDA_ARG_BINDINGS#4", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V903*/ curfptr[902])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.melt:1202:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V903*/ curfptr[902])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_941__LAMBDA_ARG_BINDINGS#5", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V903*/ curfptr[902])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:1202:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V903*/ curfptr[902])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_941__LAMBDA_ARG_BINDINGS#6", NULL != (/*_.CLASS_CTYPE__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V903*/ curfptr[902])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V39*/ curfptr[38]); - BASILYS_LOCATION("warmelt-macro.melt:1202:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V903*/ curfptr[902])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_941__LAMBDA_ARG_BINDINGS#7", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V903*/ curfptr[902])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:1202:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V903*/ curfptr[902])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_941__LAMBDA_ARG_BINDINGS#8", NULL != (/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V903*/ curfptr[902])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); - BASILYS_LOCATION("warmelt-macro.melt:1202:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V903*/ curfptr[902])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_941__LAMBDA_ARG_BINDINGS#9", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V903*/ curfptr[902])->tabval[9] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1202:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1207:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V903*/ curfptr[902]); @@ -69027,59 +69106,59 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V999*/ curfptr[998]); - BASILYS_LOCATION("warmelt-macro.melt:1179:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1001*/ curfptr[1000])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_936__MACROEXPAND_TOPLEVEL_LIST#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1001*/ curfptr[1000])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1179:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1001*/ curfptr[1000])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_936__MACROEXPAND_TOPLEVEL_LIST#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1001*/ curfptr[1000])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:1179:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1001*/ curfptr[1000])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_936__MACROEXPAND_TOPLEVEL_LIST#2", NULL != (/*_.LIST_MAP__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1001*/ curfptr[1000])->tabval[2] = (basilys_ptr_t)(/*_.LIST_MAP__V35*/ curfptr[34]); - BASILYS_LOCATION("warmelt-macro.melt:1179:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1001*/ curfptr[1000])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_936__MACROEXPAND_TOPLEVEL_LIST#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1001*/ curfptr[1000])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1179:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1001*/ curfptr[1000])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1001*/ curfptr[1000])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:1186:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1191:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1002*/ curfptr[1001])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_940__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1002*/ curfptr[1001])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1186:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1191:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1002*/ curfptr[1001])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1002*/ curfptr[1001])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:1186:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1191:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1002*/ curfptr[1001]); - BASILYS_LOCATION("warmelt-macro.melt:1179:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1001*/ curfptr[1000])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_936__MACROEXPAND_TOPLEVEL_LIST#5", NULL != (/*_.VALROUT___V1002*/ curfptr[1001])); ((basilysroutine_ptr_t)/*_.VALROUT___V1001*/ curfptr[1000])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V1002*/ curfptr[1001]); - BASILYS_LOCATION("warmelt-macro.melt:1179:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1184:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1001*/ curfptr[1000]); @@ -69136,13 +69215,13 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1012*/ curfptr[1011]); - BASILYS_LOCATION("warmelt-macro.melt:1286:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1014*/ curfptr[1013])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_951__INSTALL_INITIAL_MACRO#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1286:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1014*/ curfptr[1013])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_951__INSTALL_INITIAL_MACRO#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); @@ -69156,31 +69235,31 @@ initial_frame_st curfram__; /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1015*/ curfptr[1014]); - BASILYS_LOCATION("warmelt-macro.melt:1286:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1014*/ curfptr[1013])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1015*/ curfptr[1014]); ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]); - BASILYS_LOCATION("warmelt-macro.melt:1286:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1014*/ curfptr[1013])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_951__INSTALL_INITIAL_MACRO#3", NULL != (/*_.CLASS_MACRO_BINDING__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_MACRO_BINDING__V17*/ curfptr[16]); - BASILYS_LOCATION("warmelt-macro.melt:1286:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1014*/ curfptr[1013])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_951__INSTALL_INITIAL_MACRO#4", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[4] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:1286:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1014*/ curfptr[1013])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_951__INSTALL_INITIAL_MACRO#5", NULL != (/*_.INITIAL_ENVIRONMENT__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V1014*/ curfptr[1013])->tabval[5] = (basilys_ptr_t)(/*_.INITIAL_ENVIRONMENT__V41*/ curfptr[40]); - BASILYS_LOCATION("warmelt-macro.melt:1286:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1291:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1014*/ curfptr[1013]); @@ -69202,37 +69281,37 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1018*/ curfptr[1017]); - BASILYS_LOCATION("warmelt-macro.melt:1312:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1020*/ curfptr[1019])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_957__INSTALL_INITIAL_PATMACRO#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1020*/ curfptr[1019])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1312:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1020*/ curfptr[1019])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_957__INSTALL_INITIAL_PATMACRO#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1020*/ curfptr[1019])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:1312:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1020*/ curfptr[1019])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_957__INSTALL_INITIAL_PATMACRO#2", NULL != (/*_.CLASS_PATMACRO_BINDING__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1020*/ curfptr[1019])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_PATMACRO_BINDING__V34*/ curfptr[33]); - BASILYS_LOCATION("warmelt-macro.melt:1312:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1020*/ curfptr[1019])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_957__INSTALL_INITIAL_PATMACRO#3", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1020*/ curfptr[1019])->tabval[3] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:1312:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1020*/ curfptr[1019])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_957__INSTALL_INITIAL_PATMACRO#4", NULL != (/*_.INITIAL_ENVIRONMENT__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V1020*/ curfptr[1019])->tabval[4] = (basilys_ptr_t)(/*_.INITIAL_ENVIRONMENT__V41*/ curfptr[40]); - BASILYS_LOCATION("warmelt-macro.melt:1312:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1317:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1020*/ curfptr[1019]); @@ -69253,7 +69332,7 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1022*/ curfptr[1021]); - BASILYS_LOCATION("warmelt-macro.melt:1330:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1335:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023])))); @@ -69263,14 +69342,14 @@ initial_frame_st curfram__; /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1026*/ curfptr[1025]); - BASILYS_LOCATION("warmelt-macro.melt:1330:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1335:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1026*/ curfptr[1025]); - BASILYS_LOCATION("warmelt-macro.melt:1330:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1335:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023])))); @@ -69285,36 +69364,36 @@ initial_frame_st curfram__; /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1028*/ curfptr[1027]); - BASILYS_LOCATION("warmelt-macro.melt:1330:/ putslot"); + BASILYS_LOCATION("warmelt-macro.melt:1335:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1024*/ curfptr[1023]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1028*/ curfptr[1027]); - BASILYS_LOCATION("warmelt-macro.melt:1330:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1335:/ touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1024*/ curfptr[1023]); - BASILYS_LOCATION("warmelt-macro.melt:1334:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1339:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1029*/ curfptr[1028])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__WARN_IF_REDEFINED#0", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1029*/ curfptr[1028])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:1334:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1339:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1029*/ curfptr[1028])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__WARN_IF_REDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1029*/ curfptr[1028])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:1334:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1339:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1029*/ curfptr[1028])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_966__WARN_IF_REDEFINED#2", NULL != (/*_.FIND_ENV__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1029*/ curfptr[1028])->tabval[2] = (basilys_ptr_t)(/*_.FIND_ENV__V16*/ curfptr[15]); - BASILYS_LOCATION("warmelt-macro.melt:1334:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1339:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1029*/ curfptr[1028]); @@ -69326,13 +69405,13 @@ initial_frame_st curfram__; /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1030*/ curfptr[1029]); - BASILYS_LOCATION("warmelt-macro.melt:1347:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1031*/ curfptr[1030])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_968__FLATTEN_FOR_C_CODE_EXPANSION#0", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1031*/ curfptr[1030])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:1347:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1031*/ curfptr[1030])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_968__FLATTEN_FOR_C_CODE_EXPANSION#1", NULL != (/*_.DISCR_VERBATIMSTRING__V42*/ curfptr[41])); @@ -69346,31 +69425,31 @@ initial_frame_st curfram__; /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1032*/ curfptr[1031]); - BASILYS_LOCATION("warmelt-macro.melt:1347:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1031*/ curfptr[1030])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1032*/ curfptr[1031]); ((basilysroutine_ptr_t)/*_.VALROUT___V1031*/ curfptr[1030])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V1032*/ curfptr[1031]); - BASILYS_LOCATION("warmelt-macro.melt:1347:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1031*/ curfptr[1030])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_968__FLATTEN_FOR_C_CODE_EXPANSION#3", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1031*/ curfptr[1030])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:1347:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1031*/ curfptr[1030])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_968__FLATTEN_FOR_C_CODE_EXPANSION#4", NULL != (/*_.CLASS_LOCATED__V43*/ curfptr[42])); ((basilysroutine_ptr_t)/*_.VALROUT___V1031*/ curfptr[1030])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_LOCATED__V43*/ curfptr[42]); - BASILYS_LOCATION("warmelt-macro.melt:1347:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1031*/ curfptr[1030])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_968__FLATTEN_FOR_C_CODE_EXPANSION#5", NULL != (/*_.CLASS_NAMED__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1031*/ curfptr[1030])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NAMED__V33*/ curfptr[32]); - BASILYS_LOCATION("warmelt-macro.melt:1347:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1352:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1031*/ curfptr[1030]); @@ -69392,37 +69471,37 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1035*/ curfptr[1034]); - BASILYS_LOCATION("warmelt-macro.melt:1393:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1398:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1037*/ curfptr[1036])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_974__PARSE_PAIRLIST_C_CODE_EXPANSION#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1037*/ curfptr[1036])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1393:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1398:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1037*/ curfptr[1036])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_974__PARSE_PAIRLIST_C_CODE_EXPANSION#1", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1037*/ curfptr[1036])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.melt:1393:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1398:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1037*/ curfptr[1036])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1032*/ curfptr[1031]); ((basilysroutine_ptr_t)/*_.VALROUT___V1037*/ curfptr[1036])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V1032*/ curfptr[1031]); - BASILYS_LOCATION("warmelt-macro.melt:1393:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1398:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1037*/ curfptr[1036])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_974__PARSE_PAIRLIST_C_CODE_EXPANSION#3", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V1037*/ curfptr[1036])->tabval[3] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.melt:1393:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1398:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1037*/ curfptr[1036])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_974__PARSE_PAIRLIST_C_CODE_EXPANSION#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1037*/ curfptr[1036])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:1393:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1398:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1037*/ curfptr[1036]); @@ -69443,25 +69522,25 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1039*/ curfptr[1038]); - BASILYS_LOCATION("warmelt-macro.melt:1414:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1419:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1041*/ curfptr[1040])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_978__CHECK_C_EXPANSION#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1041*/ curfptr[1040])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1414:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1419:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1041*/ curfptr[1040])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_978__CHECK_C_EXPANSION#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1041*/ curfptr[1040])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:1414:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1419:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1041*/ curfptr[1040])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_978__CHECK_C_EXPANSION#2", NULL != (/*_.CLASS_NAMED__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1041*/ curfptr[1040])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NAMED__V33*/ curfptr[32]); - BASILYS_LOCATION("warmelt-macro.melt:1414:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1419:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1041*/ curfptr[1040]); @@ -69473,109 +69552,109 @@ initial_frame_st curfram__; /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1042*/ curfptr[1041]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__MEXPAND_DEFPRIMITIVE#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__MEXPAND_DEFPRIMITIVE#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__MEXPAND_DEFPRIMITIVE#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__MEXPAND_DEFPRIMITIVE#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V902*/ curfptr[901]); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V902*/ curfptr[901]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__MEXPAND_DEFPRIMITIVE#5", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__MEXPAND_DEFPRIMITIVE#6", NULL != (/*_.CLASS_CTYPE__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V39*/ curfptr[38]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1038*/ curfptr[1037]); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V1038*/ curfptr[1037]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__MEXPAND_DEFPRIMITIVE#8", NULL != (/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V294*/ curfptr[293]); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V294*/ curfptr[293]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__MEXPAND_DEFPRIMITIVE#10", NULL != (/*_.CLASS_PRIMITIVE__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE__V24*/ curfptr[23]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__MEXPAND_DEFPRIMITIVE#11", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V19*/ curfptr[18])); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V19*/ curfptr[18]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__MEXPAND_DEFPRIMITIVE#12", NULL != (/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__MEXPAND_DEFPRIMITIVE#13", NULL != (/*_.CLASS_ANY_BINDING__V45*/ curfptr[44])); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V45*/ curfptr[44]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1042*/ curfptr[1041]); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[14] = (basilys_ptr_t)(/*_.VALCLO___V1042*/ curfptr[1041]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1030*/ curfptr[1029]); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[15] = (basilys_ptr_t)(/*_.VALCLO___V1030*/ curfptr[1029]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1043*/ curfptr[1042])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_980__MEXPAND_DEFPRIMITIVE#16", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1043*/ curfptr[1042])->tabval[16] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:1440:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1445:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1043*/ curfptr[1042]); @@ -69605,91 +69684,91 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1047*/ curfptr[1046]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_986__MEXPAND_DEFCITERATOR#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_986__MEXPAND_DEFCITERATOR#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_986__MEXPAND_DEFCITERATOR#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_986__MEXPAND_DEFCITERATOR#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V902*/ curfptr[901]); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V902*/ curfptr[901]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1038*/ curfptr[1037]); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1038*/ curfptr[1037]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_986__MEXPAND_DEFCITERATOR#6", NULL != (/*_.CLASS_CITERATOR__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CITERATOR__V13*/ curfptr[12]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_986__MEXPAND_DEFCITERATOR#7", NULL != (/*_.CLASS_CITERATOR_BINDING__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CITERATOR_BINDING__V20*/ curfptr[19]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V308*/ curfptr[307]); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_986__MEXPAND_DEFCITERATOR#9", NULL != (/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_986__MEXPAND_DEFCITERATOR#10", NULL != (/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_986__MEXPAND_DEFCITERATOR#11", NULL != (/*_.CLASS_ANY_BINDING__V45*/ curfptr[44])); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V45*/ curfptr[44]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1042*/ curfptr[1041]); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V1042*/ curfptr[1041]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1049*/ curfptr[1048])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_986__MEXPAND_DEFCITERATOR#13", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1049*/ curfptr[1048])->tabval[13] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:1522:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1527:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1049*/ curfptr[1048]); @@ -69710,109 +69789,109 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1051*/ curfptr[1050]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_990__MEXPAND_DEFCMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_990__MEXPAND_DEFCMATCHER#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_990__MEXPAND_DEFCMATCHER#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_990__MEXPAND_DEFCMATCHER#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V902*/ curfptr[901]); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V902*/ curfptr[901]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_990__MEXPAND_DEFCMATCHER#5", NULL != (/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V32*/ curfptr[31]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_990__MEXPAND_DEFCMATCHER#6", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_990__MEXPAND_DEFCMATCHER#7", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[7] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_990__MEXPAND_DEFCMATCHER#8", NULL != (/*_.VALROUT___V1054*/ curfptr[1053])); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V1054*/ curfptr[1053]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1038*/ curfptr[1037]); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V1038*/ curfptr[1037]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_990__MEXPAND_DEFCMATCHER#10", NULL != (/*_.CLASS_CMATCHER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_CMATCHER__V14*/ curfptr[13]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V318*/ curfptr[317]); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_990__MEXPAND_DEFCMATCHER#12", NULL != (/*_.CLASS_CMATCHER_BINDING__V21*/ curfptr[20])); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_CMATCHER_BINDING__V21*/ curfptr[20]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_990__MEXPAND_DEFCMATCHER#13", NULL != (/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[13] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_990__MEXPAND_DEFCMATCHER#14", NULL != (/*_.CLASS_ANY_BINDING__V45*/ curfptr[44])); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V45*/ curfptr[44]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1042*/ curfptr[1041]); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[15] = (basilys_ptr_t)(/*_.VALCLO___V1042*/ curfptr[1041]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1053*/ curfptr[1052])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_990__MEXPAND_DEFCMATCHER#16", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1053*/ curfptr[1052])->tabval[16] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:1629:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1634:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1053*/ curfptr[1052]); @@ -69842,85 +69921,85 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1058*/ curfptr[1057]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1060*/ curfptr[1059])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_997__MEXPAND_DEFUNMATCHER#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1060*/ curfptr[1059])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1060*/ curfptr[1059])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_997__MEXPAND_DEFUNMATCHER#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1060*/ curfptr[1059])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1060*/ curfptr[1059])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_997__MEXPAND_DEFUNMATCHER#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1060*/ curfptr[1059])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1060*/ curfptr[1059])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_997__MEXPAND_DEFUNMATCHER#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1060*/ curfptr[1059])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1060*/ curfptr[1059])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V902*/ curfptr[901]); ((basilysroutine_ptr_t)/*_.VALROUT___V1060*/ curfptr[1059])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V902*/ curfptr[901]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1060*/ curfptr[1059])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_997__MEXPAND_DEFUNMATCHER#5", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1060*/ curfptr[1059])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1060*/ curfptr[1059])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_997__MEXPAND_DEFUNMATCHER#6", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1060*/ curfptr[1059])->tabval[6] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1060*/ curfptr[1059])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_997__MEXPAND_DEFUNMATCHER#7", NULL != (/*_.VALROUT___V1061*/ curfptr[1060])); ((basilysroutine_ptr_t)/*_.VALROUT___V1060*/ curfptr[1059])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1061*/ curfptr[1060]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1060*/ curfptr[1059])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1060*/ curfptr[1059])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1060*/ curfptr[1059])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V328*/ curfptr[327]); ((basilysroutine_ptr_t)/*_.VALROUT___V1060*/ curfptr[1059])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V328*/ curfptr[327]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1060*/ curfptr[1059])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_997__MEXPAND_DEFUNMATCHER#10", NULL != (/*_.CLASS_FUNMATCHER__V15*/ curfptr[14])); ((basilysroutine_ptr_t)/*_.VALROUT___V1060*/ curfptr[1059])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_FUNMATCHER__V15*/ curfptr[14]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1060*/ curfptr[1059])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_997__MEXPAND_DEFUNMATCHER#11", NULL != (/*_.CLASS_FUNMATCHER_BINDING__V22*/ curfptr[21])); ((basilysroutine_ptr_t)/*_.VALROUT___V1060*/ curfptr[1059])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_FUNMATCHER_BINDING__V22*/ curfptr[21]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1060*/ curfptr[1059])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_997__MEXPAND_DEFUNMATCHER#12", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1060*/ curfptr[1059])->tabval[12] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:1788:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1793:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1060*/ curfptr[1059]); @@ -69941,107 +70020,107 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1063*/ curfptr[1062]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1002__MEXPAND_DEFUN#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1002__MEXPAND_DEFUN#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1002__MEXPAND_DEFUN#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1002__MEXPAND_DEFUN#3", NULL != (/*_.FRESH_ENV__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[3] = (basilys_ptr_t)(/*_.FRESH_ENV__V47*/ curfptr[46]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1002__MEXPAND_DEFUN#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1002__MEXPAND_DEFUN#5", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V902*/ curfptr[901]); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V902*/ curfptr[901]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1002__MEXPAND_DEFUN#7", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[7] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1002__MEXPAND_DEFUN#8", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[8] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:1938:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1943:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1066*/ curfptr[1065])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1006__LAMBDA_#0", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1066*/ curfptr[1065])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:1938:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1943:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1066*/ curfptr[1065]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1002__MEXPAND_DEFUN#9", NULL != (/*_.VALROUT___V1066*/ curfptr[1065])); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1066*/ curfptr[1065]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V895*/ curfptr[894]); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V895*/ curfptr[894]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V284*/ curfptr[283]); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1002__MEXPAND_DEFUN#12", NULL != (/*_.CLASS_FUNCTION_BINDING__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_FUNCTION_BINDING__V48*/ curfptr[47]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1030*/ curfptr[1029]); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V1030*/ curfptr[1029]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1065*/ curfptr[1064])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1002__MEXPAND_DEFUN#14", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1065*/ curfptr[1064])->tabval[14] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:1908:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1913:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1065*/ curfptr[1064]); @@ -70071,19 +70150,19 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1070*/ curfptr[1069]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1009__SCAN_DEFCLASS#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1072*/ curfptr[1071])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1009__SCAN_DEFCLASS#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1072*/ curfptr[1071])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1009__SCAN_DEFCLASS#2", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); @@ -70098,31 +70177,31 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1073*/ curfptr[1072]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1009__SCAN_DEFCLASS#3", NULL != (/*_.VALDATA___V1073*/ curfptr[1072])); ((basilysroutine_ptr_t)/*_.VALROUT___V1072*/ curfptr[1071])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V1073*/ curfptr[1072]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1009__SCAN_DEFCLASS#4", NULL != (/*_.FIND_ENV__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1072*/ curfptr[1071])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V16*/ curfptr[15]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1009__SCAN_DEFCLASS#5", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V1072*/ curfptr[1071])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1009__SCAN_DEFCLASS#6", NULL != (/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1072*/ curfptr[1071])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1009__SCAN_DEFCLASS#7", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); @@ -70137,19 +70216,19 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1075*/ curfptr[1074]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1009__SCAN_DEFCLASS#8", NULL != (/*_.VALDATA___V1075*/ curfptr[1074])); ((basilysroutine_ptr_t)/*_.VALROUT___V1072*/ curfptr[1071])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V1075*/ curfptr[1074]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1009__SCAN_DEFCLASS#9", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1072*/ curfptr[1071])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1009__SCAN_DEFCLASS#10", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); @@ -70164,13 +70243,13 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1077*/ curfptr[1076]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1009__SCAN_DEFCLASS#11", NULL != (/*_.VALDATA___V1077*/ curfptr[1076])); ((basilysroutine_ptr_t)/*_.VALROUT___V1072*/ curfptr[1071])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); @@ -70185,19 +70264,19 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1079*/ curfptr[1078]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1009__SCAN_DEFCLASS#13", NULL != (/*_.VALDATA___V1079*/ curfptr[1078])); ((basilysroutine_ptr_t)/*_.VALROUT___V1072*/ curfptr[1071])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V1079*/ curfptr[1078]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1072*/ curfptr[1071])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1030*/ curfptr[1029]); ((basilysroutine_ptr_t)/*_.VALROUT___V1072*/ curfptr[1071])->tabval[14] = (basilys_ptr_t)(/*_.VALCLO___V1030*/ curfptr[1029]); - BASILYS_LOCATION("warmelt-macro.melt:1965:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:1970:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1072*/ curfptr[1071]); @@ -70227,189 +70306,189 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1084*/ curfptr[1083]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1081*/ curfptr[1080]); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1081*/ curfptr[1080]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#5", NULL != (/*_.DISCR_SEQCLASS__V51*/ curfptr[50])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_SEQCLASS__V51*/ curfptr[50]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#6", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#7", NULL != (/*_.DISCR_INTEGER__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V52*/ curfptr[51]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#8", NULL != (/*_.DISCR_MAPSTRINGS__V53*/ curfptr[52])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MAPSTRINGS__V53*/ curfptr[52]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#9", NULL != (/*_.DISCR_SEQFIELD__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_SEQFIELD__V54*/ curfptr[53]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#10", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#11", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#12", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[12] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#13", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[13] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#14", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.melt:2142:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2147:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1087*/ curfptr[1086])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1033__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V1087*/ curfptr[1086])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.melt:2142:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2147:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1087*/ curfptr[1086]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#15", NULL != (/*_.VALROUT___V1087*/ curfptr[1086])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[15] = (basilys_ptr_t)(/*_.VALROUT___V1087*/ curfptr[1086]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#16", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#17", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#18", NULL != (/*_.CLASS_FIELD_BINDING__V56*/ curfptr[55])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V56*/ curfptr[55]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1030*/ curfptr[1029]); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[19] = (basilys_ptr_t)(/*_.VALCLO___V1030*/ curfptr[1029]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#20", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[20] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1036__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1036__LAMBDA_#1", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1036__LAMBDA_#2", NULL != (/*_.CLASS_FIELD_BINDING__V56*/ curfptr[55])); ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V56*/ curfptr[55]); - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1030*/ curfptr[1029]); ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1030*/ curfptr[1029]); - BASILYS_LOCATION("warmelt-macro.melt:2151:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1036__LAMBDA_#4", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1088*/ curfptr[1087])->tabval[4] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:2151:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2156:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1088*/ curfptr[1087]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1023__MEXPAND_DEFCLASS#21", NULL != (/*_.VALROUT___V1088*/ curfptr[1087])); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[21] = (basilys_ptr_t)(/*_.VALROUT___V1088*/ curfptr[1087]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1086*/ curfptr[1085])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V368*/ curfptr[367]); ((basilysroutine_ptr_t)/*_.VALROUT___V1086*/ curfptr[1085])->tabval[22] = (basilys_ptr_t)(/*_.VALDATA___V368*/ curfptr[367]); - BASILYS_LOCATION("warmelt-macro.melt:2086:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2091:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1086*/ curfptr[1085]); @@ -70475,95 +70554,95 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1100*/ curfptr[1099]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1102*/ curfptr[1101])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__PARSE_FIELD_ASSIGNMENT#0", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1102*/ curfptr[1101])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1102*/ curfptr[1101])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__PARSE_FIELD_ASSIGNMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1102*/ curfptr[1101])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1102*/ curfptr[1101])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__PARSE_FIELD_ASSIGNMENT#2", NULL != (/*_.DISCR_BOX__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1102*/ curfptr[1101])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_BOX__V30*/ curfptr[29]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1102*/ curfptr[1101])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__PARSE_FIELD_ASSIGNMENT#3", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V1102*/ curfptr[1101])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1102*/ curfptr[1101])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__PARSE_FIELD_ASSIGNMENT#4", NULL != (/*_.MULTIPLE_ITERATE_TEST__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V1102*/ curfptr[1101])->tabval[4] = (basilys_ptr_t)(/*_.MULTIPLE_ITERATE_TEST__V57*/ curfptr[56]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1102*/ curfptr[1101])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__PARSE_FIELD_ASSIGNMENT#5", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V1102*/ curfptr[1101])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.melt:2208:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1043__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V1103*/ curfptr[1102])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.melt:2208:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2213:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1103*/ curfptr[1102]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1102*/ curfptr[1101])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__PARSE_FIELD_ASSIGNMENT#6", NULL != (/*_.VALROUT___V1103*/ curfptr[1102])); ((basilysroutine_ptr_t)/*_.VALROUT___V1102*/ curfptr[1101])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1103*/ curfptr[1102]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1102*/ curfptr[1101])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__PARSE_FIELD_ASSIGNMENT#7", NULL != (/*_.FIND_ENV__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1102*/ curfptr[1101])->tabval[7] = (basilys_ptr_t)(/*_.FIND_ENV__V16*/ curfptr[15]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1102*/ curfptr[1101])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__PARSE_FIELD_ASSIGNMENT#8", NULL != (/*_.CLASS_FIELD_BINDING__V56*/ curfptr[55])); ((basilysroutine_ptr_t)/*_.VALROUT___V1102*/ curfptr[1101])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V56*/ curfptr[55]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1102*/ curfptr[1101])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__PARSE_FIELD_ASSIGNMENT#9", NULL != (/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1102*/ curfptr[1101])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1102*/ curfptr[1101])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1039__PARSE_FIELD_ASSIGNMENT#10", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V1102*/ curfptr[1101])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1102*/ curfptr[1101])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1102*/ curfptr[1101])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1102*/ curfptr[1101])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V414*/ curfptr[413]); ((basilysroutine_ptr_t)/*_.VALROUT___V1102*/ curfptr[1101])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V414*/ curfptr[413]); - BASILYS_LOCATION("warmelt-macro.melt:2196:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2201:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1102*/ curfptr[1101]); @@ -70584,61 +70663,61 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1105*/ curfptr[1104]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#4", NULL != (/*_.FIND_ENV__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V16*/ curfptr[15]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#5", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#6", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#7", NULL != (/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#8", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#9", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); @@ -70653,67 +70732,67 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1108*/ curfptr[1107]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#10", NULL != (/*_.VALDATA___V1108*/ curfptr[1107])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#12", NULL != (/*_.VALDATA___V1077*/ curfptr[1076])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1104*/ curfptr[1103]); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V1104*/ curfptr[1103]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#14", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[14] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#15", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[15] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V386*/ curfptr[385]); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V386*/ curfptr[385]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#17", NULL != (/*_.CLASS_INSTANCE_BINDING__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_INSTANCE_BINDING__V58*/ curfptr[57]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1030*/ curfptr[1029]); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[18] = (basilys_ptr_t)(/*_.VALCLO___V1030*/ curfptr[1029]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1107*/ curfptr[1106])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1044__MEXPAND_DEFINSTANCE#19", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1107*/ curfptr[1106])->tabval[19] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:2249:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2254:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1107*/ curfptr[1106]); @@ -70743,127 +70822,127 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1113*/ curfptr[1112]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#4", NULL != (/*_.FIND_ENV__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V16*/ curfptr[15]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#5", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#6", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#7", NULL != (/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#8", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#9", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#10", NULL != (/*_.VALDATA___V1108*/ curfptr[1107])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1108*/ curfptr[1107]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#12", NULL != (/*_.VALDATA___V1077*/ curfptr[1076])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1104*/ curfptr[1103]); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V1104*/ curfptr[1103]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#14", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[14] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#15", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[15] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V408*/ curfptr[407]); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V408*/ curfptr[407]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#17", NULL != (/*_.CLASS_SELECTOR_BINDING__V18*/ curfptr[17])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_SELECTOR_BINDING__V18*/ curfptr[17]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1030*/ curfptr[1029]); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[18] = (basilys_ptr_t)(/*_.VALCLO___V1030*/ curfptr[1029]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1115*/ curfptr[1114])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1052__MEXPAND_DEFSELECTOR#19", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1115*/ curfptr[1114])->tabval[19] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:2346:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2351:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1115*/ curfptr[1114]); @@ -70884,91 +70963,91 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1117*/ curfptr[1116]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__MEXPAND_INSTANCE#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__MEXPAND_INSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__MEXPAND_INSTANCE#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__MEXPAND_INSTANCE#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__MEXPAND_INSTANCE#4", NULL != (/*_.FIND_ENV__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V16*/ curfptr[15]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__MEXPAND_INSTANCE#5", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__MEXPAND_INSTANCE#6", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__MEXPAND_INSTANCE#7", NULL != (/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__MEXPAND_INSTANCE#8", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__MEXPAND_INSTANCE#9", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1104*/ curfptr[1103]); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V1104*/ curfptr[1103]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__MEXPAND_INSTANCE#11", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[11] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1056__MEXPAND_INSTANCE#12", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1119*/ curfptr[1118])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V428*/ curfptr[427]); ((basilysroutine_ptr_t)/*_.VALROUT___V1119*/ curfptr[1118])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V428*/ curfptr[427]); - BASILYS_LOCATION("warmelt-macro.melt:2440:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2445:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1119*/ curfptr[1118]); @@ -70989,89 +71068,89 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1121*/ curfptr[1120]); - BASILYS_LOCATION("warmelt-macro.melt:2503:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1060__PARSE_FIELD_PATTERN#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:2503:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1060__PARSE_FIELD_PATTERN#1", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:2503:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1060__PARSE_FIELD_PATTERN#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2503:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V956*/ curfptr[955]); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]); - BASILYS_LOCATION("warmelt-macro.melt:2503:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1060__PARSE_FIELD_PATTERN#4", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.melt:2503:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1060__PARSE_FIELD_PATTERN#5", NULL != (/*_.DISCR_BOX__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_BOX__V30*/ curfptr[29]); - BASILYS_LOCATION("warmelt-macro.melt:2503:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V973*/ curfptr[972]); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V973*/ curfptr[972]); - BASILYS_LOCATION("warmelt-macro.melt:2503:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1060__PARSE_FIELD_PATTERN#7", NULL != (/*_.MULTIPLE_ITERATE_TEST__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[7] = (basilys_ptr_t)(/*_.MULTIPLE_ITERATE_TEST__V57*/ curfptr[56]); - BASILYS_LOCATION("warmelt-macro.melt:2503:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1060__PARSE_FIELD_PATTERN#8", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.melt:2517:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1124*/ curfptr[1123])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1062__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V1124*/ curfptr[1123])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.melt:2517:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2522:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1124*/ curfptr[1123]); - BASILYS_LOCATION("warmelt-macro.melt:2503:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1060__PARSE_FIELD_PATTERN#9", NULL != (/*_.VALROUT___V1124*/ curfptr[1123])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1124*/ curfptr[1123]); - BASILYS_LOCATION("warmelt-macro.melt:2503:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1060__PARSE_FIELD_PATTERN#10", NULL != (/*_.CLASS_FIELD__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_FIELD__V55*/ curfptr[54]); - BASILYS_LOCATION("warmelt-macro.melt:2503:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1123*/ curfptr[1122])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1123*/ curfptr[1122])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V834*/ curfptr[833]); - BASILYS_LOCATION("warmelt-macro.melt:2503:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2508:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1123*/ curfptr[1122]); @@ -71083,97 +71162,97 @@ initial_frame_st curfram__; /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1125*/ curfptr[1124]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1063__PATEXPAND_INSTANCE#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1063__PATEXPAND_INSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V956*/ curfptr[955]); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1063__PATEXPAND_INSTANCE#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1063__PATEXPAND_INSTANCE#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1063__PATEXPAND_INSTANCE#5", NULL != (/*_.FIND_ENV__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[5] = (basilys_ptr_t)(/*_.FIND_ENV__V16*/ curfptr[15]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1063__PATEXPAND_INSTANCE#6", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1063__PATEXPAND_INSTANCE#7", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1063__PATEXPAND_INSTANCE#8", NULL != (/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1063__PATEXPAND_INSTANCE#9", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1063__PATEXPAND_INSTANCE#10", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1125*/ curfptr[1124]); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V1125*/ curfptr[1124]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V828*/ curfptr[827]); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V828*/ curfptr[827]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1063__PATEXPAND_INSTANCE#13", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[13] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1126*/ curfptr[1125])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1063__PATEXPAND_INSTANCE#14", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1126*/ curfptr[1125])->tabval[14] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:2545:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2550:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1126*/ curfptr[1125]); @@ -71194,97 +71273,97 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1128*/ curfptr[1127]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1067__PATEXPAND_OBJECT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1067__PATEXPAND_OBJECT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V956*/ curfptr[955]); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1067__PATEXPAND_OBJECT#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1067__PATEXPAND_OBJECT#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1067__PATEXPAND_OBJECT#5", NULL != (/*_.FIND_ENV__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[5] = (basilys_ptr_t)(/*_.FIND_ENV__V16*/ curfptr[15]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1067__PATEXPAND_OBJECT#6", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1067__PATEXPAND_OBJECT#7", NULL != (/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V49*/ curfptr[48]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1067__PATEXPAND_OBJECT#8", NULL != (/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1067__PATEXPAND_OBJECT#9", NULL != (/*_.CLASS_CLASS__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_CLASS__V50*/ curfptr[49]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1067__PATEXPAND_OBJECT#10", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1125*/ curfptr[1124]); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V1125*/ curfptr[1124]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V814*/ curfptr[813]); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V814*/ curfptr[813]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1067__PATEXPAND_OBJECT#13", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[13] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1130*/ curfptr[1129])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1067__PATEXPAND_OBJECT#14", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1130*/ curfptr[1129])->tabval[14] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:2612:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2617:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1130*/ curfptr[1129]); @@ -71296,25 +71375,25 @@ initial_frame_st curfram__; /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1131*/ curfptr[1130]); - BASILYS_LOCATION("warmelt-macro.melt:2677:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2682:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1132*/ curfptr[1131])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1069__MEXPAND_OBJECT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1132*/ curfptr[1131])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2677:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2682:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1132*/ curfptr[1131])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1069__MEXPAND_OBJECT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1132*/ curfptr[1131])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2677:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2682:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1132*/ curfptr[1131])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1069__MEXPAND_OBJECT#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1132*/ curfptr[1131])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:2677:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2682:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1132*/ curfptr[1131]); @@ -71335,67 +71414,67 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1134*/ curfptr[1133]); - BASILYS_LOCATION("warmelt-macro.melt:2692:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1136*/ curfptr[1135])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1073__MEXPAND_CODE_CHUNK#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1136*/ curfptr[1135])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2692:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1136*/ curfptr[1135])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1073__MEXPAND_CODE_CHUNK#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1136*/ curfptr[1135])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2692:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1136*/ curfptr[1135])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1073__MEXPAND_CODE_CHUNK#2", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1136*/ curfptr[1135])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.melt:2692:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1136*/ curfptr[1135])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1073__MEXPAND_CODE_CHUNK#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1136*/ curfptr[1135])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:2692:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1136*/ curfptr[1135])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1073__MEXPAND_CODE_CHUNK#4", NULL != (/*_.CLASS_LOCATED__V43*/ curfptr[42])); ((basilysroutine_ptr_t)/*_.VALROUT___V1136*/ curfptr[1135])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_LOCATED__V43*/ curfptr[42]); - BASILYS_LOCATION("warmelt-macro.melt:2692:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1136*/ curfptr[1135])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1073__MEXPAND_CODE_CHUNK#5", NULL != (/*_.DISCR_VERBATIMSTRING__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1136*/ curfptr[1135])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V42*/ curfptr[41]); - BASILYS_LOCATION("warmelt-macro.melt:2692:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1136*/ curfptr[1135])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V734*/ curfptr[733]); ((basilysroutine_ptr_t)/*_.VALROUT___V1136*/ curfptr[1135])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]); - BASILYS_LOCATION("warmelt-macro.melt:2692:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1136*/ curfptr[1135])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1073__MEXPAND_CODE_CHUNK#7", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V1136*/ curfptr[1135])->tabval[7] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.melt:2692:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1136*/ curfptr[1135])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1073__MEXPAND_CODE_CHUNK#8", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1136*/ curfptr[1135])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:2692:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1136*/ curfptr[1135])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1073__MEXPAND_CODE_CHUNK#9", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1136*/ curfptr[1135])->tabval[9] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:2692:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2697:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1136*/ curfptr[1135]); @@ -71416,61 +71495,61 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1138*/ curfptr[1137]); - BASILYS_LOCATION("warmelt-macro.melt:2741:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1077__MEXPAND_UNSAFE_PUT_FIELDS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2741:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1077__MEXPAND_UNSAFE_PUT_FIELDS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2741:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:2741:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1077__MEXPAND_UNSAFE_PUT_FIELDS#3", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.melt:2741:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1077__MEXPAND_UNSAFE_PUT_FIELDS#4", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:2741:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1104*/ curfptr[1103]); ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1104*/ curfptr[1103]); - BASILYS_LOCATION("warmelt-macro.melt:2741:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1077__MEXPAND_UNSAFE_PUT_FIELDS#6", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[6] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.melt:2741:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1077__MEXPAND_UNSAFE_PUT_FIELDS#7", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:2741:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1140*/ curfptr[1139])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V480*/ curfptr[479]); ((basilysroutine_ptr_t)/*_.VALROUT___V1140*/ curfptr[1139])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V480*/ curfptr[479]); - BASILYS_LOCATION("warmelt-macro.melt:2741:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2746:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1140*/ curfptr[1139]); @@ -71491,61 +71570,61 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1142*/ curfptr[1141]); - BASILYS_LOCATION("warmelt-macro.melt:2781:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1081__MEXPAND_PUT_FIELDS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2781:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1081__MEXPAND_PUT_FIELDS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2781:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:2781:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1081__MEXPAND_PUT_FIELDS#3", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_LIST__V38*/ curfptr[37]); - BASILYS_LOCATION("warmelt-macro.melt:2781:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1081__MEXPAND_PUT_FIELDS#4", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:2781:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1104*/ curfptr[1103]); ((basilysroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1104*/ curfptr[1103]); - BASILYS_LOCATION("warmelt-macro.melt:2781:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1081__MEXPAND_PUT_FIELDS#6", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[6] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.melt:2781:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1081__MEXPAND_PUT_FIELDS#7", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:2781:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1144*/ curfptr[1143])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V466*/ curfptr[465]); ((basilysroutine_ptr_t)/*_.VALROUT___V1144*/ curfptr[1143])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]); - BASILYS_LOCATION("warmelt-macro.melt:2781:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2786:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1144*/ curfptr[1143]); @@ -71566,43 +71645,43 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1146*/ curfptr[1145]); - BASILYS_LOCATION("warmelt-macro.melt:2821:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1085__MEXPAND_UNSAFE_GET_FIELD#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2821:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1085__MEXPAND_UNSAFE_GET_FIELD#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2821:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1085__MEXPAND_UNSAFE_GET_FIELD#2", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:2821:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1104*/ curfptr[1103]); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1104*/ curfptr[1103]); - BASILYS_LOCATION("warmelt-macro.melt:2821:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V414*/ curfptr[413]); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V414*/ curfptr[413]); - BASILYS_LOCATION("warmelt-macro.melt:2821:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1148*/ curfptr[1147])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V460*/ curfptr[459]); ((basilysroutine_ptr_t)/*_.VALROUT___V1148*/ curfptr[1147])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V460*/ curfptr[459]); - BASILYS_LOCATION("warmelt-macro.melt:2821:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2826:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1148*/ curfptr[1147]); @@ -71623,43 +71702,43 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1150*/ curfptr[1149]); - BASILYS_LOCATION("warmelt-macro.melt:2855:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1152*/ curfptr[1151])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1089__MEXPAND_GET_FIELD#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1152*/ curfptr[1151])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2855:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1152*/ curfptr[1151])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1089__MEXPAND_GET_FIELD#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1152*/ curfptr[1151])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2855:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1152*/ curfptr[1151])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1089__MEXPAND_GET_FIELD#2", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1152*/ curfptr[1151])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:2855:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1152*/ curfptr[1151])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1104*/ curfptr[1103]); ((basilysroutine_ptr_t)/*_.VALROUT___V1152*/ curfptr[1151])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1104*/ curfptr[1103]); - BASILYS_LOCATION("warmelt-macro.melt:2855:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1152*/ curfptr[1151])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V414*/ curfptr[413]); ((basilysroutine_ptr_t)/*_.VALROUT___V1152*/ curfptr[1151])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V414*/ curfptr[413]); - BASILYS_LOCATION("warmelt-macro.melt:2855:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1152*/ curfptr[1151])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V446*/ curfptr[445]); ((basilysroutine_ptr_t)/*_.VALROUT___V1152*/ curfptr[1151])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V446*/ curfptr[445]); - BASILYS_LOCATION("warmelt-macro.melt:2855:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2860:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1152*/ curfptr[1151]); @@ -71680,37 +71759,37 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1154*/ curfptr[1153]); - BASILYS_LOCATION("warmelt-macro.melt:2890:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1156*/ curfptr[1155])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1093__MEXPAND_SETQ#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1156*/ curfptr[1155])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2890:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1156*/ curfptr[1155])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1093__MEXPAND_SETQ#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1156*/ curfptr[1155])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2890:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1156*/ curfptr[1155])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1093__MEXPAND_SETQ#2", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1156*/ curfptr[1155])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:2890:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1156*/ curfptr[1155])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V184*/ curfptr[183]); ((basilysroutine_ptr_t)/*_.VALROUT___V1156*/ curfptr[1155])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V184*/ curfptr[183]); - BASILYS_LOCATION("warmelt-macro.melt:2890:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1156*/ curfptr[1155])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1156*/ curfptr[1155])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:2890:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2895:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1156*/ curfptr[1155]); @@ -71731,43 +71810,43 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1158*/ curfptr[1157]); - BASILYS_LOCATION("warmelt-macro.melt:2916:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1160*/ curfptr[1159])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1097__MEXPAND_IF#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1160*/ curfptr[1159])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2916:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1160*/ curfptr[1159])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1097__MEXPAND_IF#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1160*/ curfptr[1159])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2916:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1160*/ curfptr[1159])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1097__MEXPAND_IF#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1160*/ curfptr[1159])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:2916:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1160*/ curfptr[1159])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1160*/ curfptr[1159])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:2916:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1160*/ curfptr[1159])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V500*/ curfptr[499]); ((basilysroutine_ptr_t)/*_.VALROUT___V1160*/ curfptr[1159])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499]); - BASILYS_LOCATION("warmelt-macro.melt:2916:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1160*/ curfptr[1159])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V486*/ curfptr[485]); ((basilysroutine_ptr_t)/*_.VALROUT___V1160*/ curfptr[1159])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V486*/ curfptr[485]); - BASILYS_LOCATION("warmelt-macro.melt:2916:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2921:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1160*/ curfptr[1159]); @@ -71788,43 +71867,43 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1162*/ curfptr[1161]); - BASILYS_LOCATION("warmelt-macro.melt:2963:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1164*/ curfptr[1163])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_CPPIF#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:2963:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1164*/ curfptr[1163])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_CPPIF#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:2963:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1164*/ curfptr[1163])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_CPPIF#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:2963:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1164*/ curfptr[1163])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:2963:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1164*/ curfptr[1163])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1101__MEXPAND_CPPIF#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:2963:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1164*/ curfptr[1163])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V520*/ curfptr[519]); ((basilysroutine_ptr_t)/*_.VALROUT___V1164*/ curfptr[1163])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V520*/ curfptr[519]); - BASILYS_LOCATION("warmelt-macro.melt:2963:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:2968:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1164*/ curfptr[1163]); @@ -71845,53 +71924,53 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1166*/ curfptr[1165]); - BASILYS_LOCATION("warmelt-macro.melt:3015:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1105__MEXPAND_COND#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3015:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1105__MEXPAND_COND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3015:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1105__MEXPAND_COND#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3015:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1105__MEXPAND_COND#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.melt:3015:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1105__MEXPAND_COND#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3015:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1105__MEXPAND_COND#5", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3025:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3030:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1169*/ curfptr[1168])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1107__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1169*/ curfptr[1168])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3025:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3030:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1169*/ curfptr[1168]); - BASILYS_LOCATION("warmelt-macro.melt:3015:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1105__MEXPAND_COND#6", NULL != (/*_.VALROUT___V1169*/ curfptr[1168])); @@ -71906,65 +71985,65 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1170*/ curfptr[1169]); - BASILYS_LOCATION("warmelt-macro.melt:3015:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1105__MEXPAND_COND#7", NULL != (/*_.VALDATA___V1170*/ curfptr[1169])); ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169]); - BASILYS_LOCATION("warmelt-macro.melt:3607:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1173*/ curfptr[1172])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1172__PAIRLIST_TO_PROGN#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1173*/ curfptr[1172])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3607:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1173*/ curfptr[1172])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1172__PAIRLIST_TO_PROGN#1", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1173*/ curfptr[1172])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3607:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1173*/ curfptr[1172])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1172__PAIRLIST_TO_PROGN#2", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1173*/ curfptr[1172])->tabval[2] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.melt:3607:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1173*/ curfptr[1172])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1172__PAIRLIST_TO_PROGN#3", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1173*/ curfptr[1172])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3607:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1173*/ curfptr[1172])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1173*/ curfptr[1172])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3614:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3619:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1174*/ curfptr[1173])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3614:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3619:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1174*/ curfptr[1173]); - BASILYS_LOCATION("warmelt-macro.melt:3607:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1173*/ curfptr[1172])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1172__PAIRLIST_TO_PROGN#5", NULL != (/*_.VALROUT___V1174*/ curfptr[1173])); ((basilysroutine_ptr_t)/*_.VALROUT___V1173*/ curfptr[1172])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V1174*/ curfptr[1173]); - BASILYS_LOCATION("warmelt-macro.melt:3607:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1173*/ curfptr[1172])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V1173*/ curfptr[1172])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V164*/ curfptr[163]); - BASILYS_LOCATION("warmelt-macro.melt:3607:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3612:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1173*/ curfptr[1172]); @@ -71976,31 +72055,31 @@ initial_frame_st curfram__; /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1172*/ curfptr[1171]); - BASILYS_LOCATION("warmelt-macro.melt:3015:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1172*/ curfptr[1171]); ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V1172*/ curfptr[1171]); - BASILYS_LOCATION("warmelt-macro.melt:3015:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V510*/ curfptr[509]); ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V510*/ curfptr[509]); - BASILYS_LOCATION("warmelt-macro.melt:3015:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3015:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1168*/ curfptr[1167])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V500*/ curfptr[499]); ((basilysroutine_ptr_t)/*_.VALROUT___V1168*/ curfptr[1167])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499]); - BASILYS_LOCATION("warmelt-macro.melt:3015:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3020:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1168*/ curfptr[1167]); @@ -72021,65 +72100,65 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1176*/ curfptr[1175]); - BASILYS_LOCATION("warmelt-macro.melt:3110:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1178*/ curfptr[1177])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1112__MEXPAND_AND#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1178*/ curfptr[1177])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3110:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1178*/ curfptr[1177])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1112__MEXPAND_AND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1178*/ curfptr[1177])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3110:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1178*/ curfptr[1177])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1112__MEXPAND_AND#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1178*/ curfptr[1177])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3110:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1178*/ curfptr[1177])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1112__MEXPAND_AND#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1178*/ curfptr[1177])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.melt:3110:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1178*/ curfptr[1177])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1112__MEXPAND_AND#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1178*/ curfptr[1177])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3110:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1178*/ curfptr[1177])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1178*/ curfptr[1177])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3121:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3126:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1179*/ curfptr[1178])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1179*/ curfptr[1178])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3121:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3126:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1179*/ curfptr[1178]); - BASILYS_LOCATION("warmelt-macro.melt:3110:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1178*/ curfptr[1177])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1112__MEXPAND_AND#6", NULL != (/*_.VALROUT___V1179*/ curfptr[1178])); ((basilysroutine_ptr_t)/*_.VALROUT___V1178*/ curfptr[1177])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1179*/ curfptr[1178]); - BASILYS_LOCATION("warmelt-macro.melt:3110:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1178*/ curfptr[1177])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V486*/ curfptr[485]); ((basilysroutine_ptr_t)/*_.VALROUT___V1178*/ curfptr[1177])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V486*/ curfptr[485]); - BASILYS_LOCATION("warmelt-macro.melt:3110:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3115:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1178*/ curfptr[1177]); @@ -72091,55 +72170,55 @@ initial_frame_st curfram__; /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1180*/ curfptr[1179]); - BASILYS_LOCATION("warmelt-macro.melt:3148:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__PATEXPAND_AS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3148:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__PATEXPAND_AS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3148:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V956*/ curfptr[955]); ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]); - BASILYS_LOCATION("warmelt-macro.melt:3148:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1115__PATEXPAND_AS#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3148:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V986*/ curfptr[985]); ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V986*/ curfptr[985]); - BASILYS_LOCATION("warmelt-macro.melt:3148:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V798*/ curfptr[797]); ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]); - BASILYS_LOCATION("warmelt-macro.melt:3148:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V788*/ curfptr[787]); ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V788*/ curfptr[787]); - BASILYS_LOCATION("warmelt-macro.melt:3148:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1181*/ curfptr[1180])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V774*/ curfptr[773]); ((basilysroutine_ptr_t)/*_.VALROUT___V1181*/ curfptr[1180])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V774*/ curfptr[773]); - BASILYS_LOCATION("warmelt-macro.melt:3148:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3153:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1181*/ curfptr[1180]); @@ -72151,25 +72230,25 @@ initial_frame_st curfram__; /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1182*/ curfptr[1181]); - BASILYS_LOCATION("warmelt-macro.melt:3184:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3189:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1183*/ curfptr[1182])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1117__MEXPAND_AS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1183*/ curfptr[1182])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3184:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3189:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1183*/ curfptr[1182])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1117__MEXPAND_AS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1183*/ curfptr[1182])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3184:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3189:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1183*/ curfptr[1182])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1117__MEXPAND_AS#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1183*/ curfptr[1182])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3184:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3189:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1183*/ curfptr[1182]); @@ -72190,43 +72269,43 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1185*/ curfptr[1184]); - BASILYS_LOCATION("warmelt-macro.melt:3199:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1121__PATEXPAND_AND#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3199:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1121__PATEXPAND_AND#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3199:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V956*/ curfptr[955]); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]); - BASILYS_LOCATION("warmelt-macro.melt:3199:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1121__PATEXPAND_AND#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3199:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V986*/ curfptr[985]); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V986*/ curfptr[985]); - BASILYS_LOCATION("warmelt-macro.melt:3199:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1187*/ curfptr[1186])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V764*/ curfptr[763]); ((basilysroutine_ptr_t)/*_.VALROUT___V1187*/ curfptr[1186])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V764*/ curfptr[763]); - BASILYS_LOCATION("warmelt-macro.melt:3199:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3204:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1187*/ curfptr[1186]); @@ -72247,65 +72326,65 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1189*/ curfptr[1188]); - BASILYS_LOCATION("warmelt-macro.melt:3222:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1125__MEXPAND_OR#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3222:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1125__MEXPAND_OR#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3222:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1125__MEXPAND_OR#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3222:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1125__MEXPAND_OR#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.melt:3222:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1125__MEXPAND_OR#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3222:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3232:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3237:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1192*/ curfptr[1191])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1192*/ curfptr[1191])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3232:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3237:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1192*/ curfptr[1191]); - BASILYS_LOCATION("warmelt-macro.melt:3222:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1125__MEXPAND_OR#6", NULL != (/*_.VALROUT___V1192*/ curfptr[1191])); ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1192*/ curfptr[1191]); - BASILYS_LOCATION("warmelt-macro.melt:3222:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1191*/ curfptr[1190])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V510*/ curfptr[509]); ((basilysroutine_ptr_t)/*_.VALROUT___V1191*/ curfptr[1190])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V510*/ curfptr[509]); - BASILYS_LOCATION("warmelt-macro.melt:3222:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3227:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1191*/ curfptr[1190]); @@ -72317,43 +72396,43 @@ initial_frame_st curfram__; /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1193*/ curfptr[1192]); - BASILYS_LOCATION("warmelt-macro.melt:3249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1194*/ curfptr[1193])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1128__PATEXPAND_OR#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1194*/ curfptr[1193])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1194*/ curfptr[1193])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1128__PATEXPAND_OR#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1194*/ curfptr[1193])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3249:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1194*/ curfptr[1193])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V956*/ curfptr[955]); ((basilysroutine_ptr_t)/*_.VALROUT___V1194*/ curfptr[1193])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]); - BASILYS_LOCATION("warmelt-macro.melt:3249:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1194*/ curfptr[1193])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1128__PATEXPAND_OR#3", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1194*/ curfptr[1193])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3249:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1194*/ curfptr[1193])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V986*/ curfptr[985]); ((basilysroutine_ptr_t)/*_.VALROUT___V1194*/ curfptr[1193])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V986*/ curfptr[985]); - BASILYS_LOCATION("warmelt-macro.melt:3249:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1194*/ curfptr[1193])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V754*/ curfptr[753]); ((basilysroutine_ptr_t)/*_.VALROUT___V1194*/ curfptr[1193])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V754*/ curfptr[753]); - BASILYS_LOCATION("warmelt-macro.melt:3249:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3254:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1194*/ curfptr[1193]); @@ -72374,65 +72453,65 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1196*/ curfptr[1195]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1132__MEXPAND_MATCH#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1132__MEXPAND_MATCH#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1132__MEXPAND_MATCH#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1132__MEXPAND_MATCH#4", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[4] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1132__MEXPAND_MATCH#5", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1132__MEXPAND_MATCH#6", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3284:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3289:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1134__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1199*/ curfptr[1198])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3284:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3289:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1199*/ curfptr[1198]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1132__MEXPAND_MATCH#7", NULL != (/*_.VALROUT___V1199*/ curfptr[1198])); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1199*/ curfptr[1198]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1132__MEXPAND_MATCH#8", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); @@ -72447,61 +72526,61 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1200*/ curfptr[1199]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1132__MEXPAND_MATCH#9", NULL != (/*_.VALDATA___V1200*/ curfptr[1199])); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V895*/ curfptr[894]); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V895*/ curfptr[894]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V956*/ curfptr[955]); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V956*/ curfptr[955]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V973*/ curfptr[972]); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V973*/ curfptr[972]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1132__MEXPAND_MATCH#13", NULL != (/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[13] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V37*/ curfptr[36]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V566*/ curfptr[565]); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V566*/ curfptr[565]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V552*/ curfptr[551]); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V552*/ curfptr[551]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V538*/ curfptr[537]); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V538*/ curfptr[537]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1198*/ curfptr[1197])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1132__MEXPAND_MATCH#17", NULL != (/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V1198*/ curfptr[1197])->tabval[17] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V44*/ curfptr[43]); - BASILYS_LOCATION("warmelt-macro.melt:3272:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3277:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1198*/ curfptr[1197]); @@ -72522,85 +72601,85 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1203*/ curfptr[1202]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1139__MEXPAND_LETBINDING#0", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1139__MEXPAND_LETBINDING#1", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1139__MEXPAND_LETBINDING#2", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1139__MEXPAND_LETBINDING#3", NULL != (/*_.CTYPE_VALUE__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[3] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V36*/ curfptr[35]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1139__MEXPAND_LETBINDING#4", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1139__MEXPAND_LETBINDING#5", NULL != (/*_.CLASS_CTYPE__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V39*/ curfptr[38]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1139__MEXPAND_LETBINDING#6", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1139__MEXPAND_LETBINDING#8", NULL != (/*_.FIND_ENV__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[8] = (basilys_ptr_t)(/*_.FIND_ENV__V16*/ curfptr[15]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1139__MEXPAND_LETBINDING#9", NULL != (/*_.CLASS_LET_BINDING__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_LET_BINDING__V59*/ curfptr[58]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1139__MEXPAND_LETBINDING#10", NULL != (/*_.CLASS_NAMED__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_NAMED__V33*/ curfptr[32]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1139__MEXPAND_LETBINDING#11", NULL != (/*_.CLASS_FIXED_BINDING__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_FIXED_BINDING__V60*/ curfptr[59]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1205*/ curfptr[1204])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V576*/ curfptr[575]); ((basilysroutine_ptr_t)/*_.VALROUT___V1205*/ curfptr[1204])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]); - BASILYS_LOCATION("warmelt-macro.melt:3371:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3376:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1205*/ curfptr[1204]); @@ -72630,151 +72709,151 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1209*/ curfptr[1208]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_LET#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_LET#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_LET#2", NULL != (/*_.FRESH_ENV__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V47*/ curfptr[46]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_LET#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_LET#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_LET#5", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1206*/ curfptr[1205]); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V1206*/ curfptr[1205]); - BASILYS_LOCATION("warmelt-macro.melt:3461:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3466:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1212*/ curfptr[1211])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1147__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1212*/ curfptr[1211])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3461:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3466:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1212*/ curfptr[1211])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1206*/ curfptr[1205]); ((basilysroutine_ptr_t)/*_.VALROUT___V1212*/ curfptr[1211])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V1206*/ curfptr[1205]); - BASILYS_LOCATION("warmelt-macro.melt:3461:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3466:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1212*/ curfptr[1211]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_LET#7", NULL != (/*_.VALROUT___V1212*/ curfptr[1211])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1212*/ curfptr[1211]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_LET#8", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[8] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V576*/ curfptr[575]); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_LET#10", NULL != (/*_.CLASS_LET_BINDING__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_LET_BINDING__V59*/ curfptr[58]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_LET#11", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[11] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:3469:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3474:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1213*/ curfptr[1212])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V576*/ curfptr[575]); ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]); - BASILYS_LOCATION("warmelt-macro.melt:3469:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3474:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1213*/ curfptr[1212])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1148__LAMBDA_#1", NULL != (/*_.CLASS_LET_BINDING__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_LET_BINDING__V59*/ curfptr[58]); - BASILYS_LOCATION("warmelt-macro.melt:3469:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3474:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1213*/ curfptr[1212])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1148__LAMBDA_#2", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1213*/ curfptr[1212])->tabval[2] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:3469:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3474:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1213*/ curfptr[1212]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_LET#12", NULL != (/*_.VALROUT___V1213*/ curfptr[1212])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[12] = (basilys_ptr_t)(/*_.VALROUT___V1213*/ curfptr[1212]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3481:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3486:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1214*/ curfptr[1213])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3481:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3486:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1214*/ curfptr[1213]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1145__MEXPAND_LET#14", NULL != (/*_.VALROUT___V1214*/ curfptr[1213])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V1214*/ curfptr[1213]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V594*/ curfptr[593]); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V594*/ curfptr[593]); - BASILYS_LOCATION("warmelt-macro.melt:3442:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3447:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1211*/ curfptr[1210]); @@ -72795,99 +72874,99 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1216*/ curfptr[1215]); - BASILYS_LOCATION("warmelt-macro.melt:3493:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1152__MEXPAND_LAMBDA#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3493:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1152__MEXPAND_LAMBDA#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3493:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1152__MEXPAND_LAMBDA#2", NULL != (/*_.FRESH_ENV__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V47*/ curfptr[46]); - BASILYS_LOCATION("warmelt-macro.melt:3493:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V902*/ curfptr[901]); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V902*/ curfptr[901]); - BASILYS_LOCATION("warmelt-macro.melt:3493:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1152__MEXPAND_LAMBDA#4", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[4] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); - BASILYS_LOCATION("warmelt-macro.melt:3493:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1152__MEXPAND_LAMBDA#5", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[5] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:3508:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3513:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1219*/ curfptr[1218])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1154__LAMBDA_#0", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1219*/ curfptr[1218])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:3508:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3513:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1219*/ curfptr[1218]); - BASILYS_LOCATION("warmelt-macro.melt:3493:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1152__MEXPAND_LAMBDA#6", NULL != (/*_.VALROUT___V1219*/ curfptr[1218])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V1219*/ curfptr[1218]); - BASILYS_LOCATION("warmelt-macro.melt:3493:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1152__MEXPAND_LAMBDA#7", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[7] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.melt:3493:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1152__MEXPAND_LAMBDA#8", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3493:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3510:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3515:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1220*/ curfptr[1219])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1220*/ curfptr[1219])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3510:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3515:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1220*/ curfptr[1219]); - BASILYS_LOCATION("warmelt-macro.melt:3493:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1152__MEXPAND_LAMBDA#10", NULL != (/*_.VALROUT___V1220*/ curfptr[1219])); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[10] = (basilys_ptr_t)(/*_.VALROUT___V1220*/ curfptr[1219]); - BASILYS_LOCATION("warmelt-macro.melt:3493:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1218*/ curfptr[1217])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V608*/ curfptr[607]); ((basilysroutine_ptr_t)/*_.VALROUT___V1218*/ curfptr[1217])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V608*/ curfptr[607]); - BASILYS_LOCATION("warmelt-macro.melt:3493:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3498:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1218*/ curfptr[1217]); @@ -72908,105 +72987,105 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1222*/ curfptr[1221]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__MEXPAND_MULTICALL#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__MEXPAND_MULTICALL#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__MEXPAND_MULTICALL#2", NULL != (/*_.FRESH_ENV__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V47*/ curfptr[46]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V902*/ curfptr[901]); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V902*/ curfptr[901]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__MEXPAND_MULTICALL#5", NULL != (/*_.MULTIPLE_EVERY__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V46*/ curfptr[45]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__MEXPAND_MULTICALL#6", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[6] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:3540:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3545:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1225*/ curfptr[1224])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1160__LAMBDA_#0", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1225*/ curfptr[1224])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:3540:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3545:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1225*/ curfptr[1224]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__MEXPAND_MULTICALL#7", NULL != (/*_.VALROUT___V1225*/ curfptr[1224])); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1225*/ curfptr[1224]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__MEXPAND_MULTICALL#8", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[8] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__MEXPAND_MULTICALL#9", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3543:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3548:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1226*/ curfptr[1225])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1226*/ curfptr[1225])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3543:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3548:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1226*/ curfptr[1225]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1158__MEXPAND_MULTICALL#11", NULL != (/*_.VALROUT___V1226*/ curfptr[1225])); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[11] = (basilys_ptr_t)(/*_.VALROUT___V1226*/ curfptr[1225]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1224*/ curfptr[1223])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V622*/ curfptr[621]); ((basilysroutine_ptr_t)/*_.VALROUT___V1224*/ curfptr[1223])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V622*/ curfptr[621]); - BASILYS_LOCATION("warmelt-macro.melt:3523:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3528:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1224*/ curfptr[1223]); @@ -73027,37 +73106,37 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1228*/ curfptr[1227]); - BASILYS_LOCATION("warmelt-macro.melt:3559:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1164__MEXPAND_QUOTE#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3559:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1164__MEXPAND_QUOTE#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3559:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1164__MEXPAND_QUOTE#2", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:3559:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1164__MEXPAND_QUOTE#3", NULL != (/*_.CLASS_KEYWORD__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V26*/ curfptr[25]); - BASILYS_LOCATION("warmelt-macro.melt:3559:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1230*/ curfptr[1229])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V208*/ curfptr[207]); ((basilysroutine_ptr_t)/*_.VALROUT___V1230*/ curfptr[1229])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V208*/ curfptr[207]); - BASILYS_LOCATION("warmelt-macro.melt:3559:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3564:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1230*/ curfptr[1229]); @@ -73078,25 +73157,25 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1232*/ curfptr[1231]); - BASILYS_LOCATION("warmelt-macro.melt:3582:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3587:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1234*/ curfptr[1233])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1168__MEXPAND_COMMENT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1234*/ curfptr[1233])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3582:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3587:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1234*/ curfptr[1233])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1168__MEXPAND_COMMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1234*/ curfptr[1233])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3582:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3587:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1234*/ curfptr[1233])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V198*/ curfptr[197]); ((basilysroutine_ptr_t)/*_.VALROUT___V1234*/ curfptr[1233])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V198*/ curfptr[197]); - BASILYS_LOCATION("warmelt-macro.melt:3582:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3587:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1234*/ curfptr[1233]); @@ -73117,53 +73196,53 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1236*/ curfptr[1235]); - BASILYS_LOCATION("warmelt-macro.melt:3625:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1238*/ curfptr[1237])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1175__PAIRLIST_TO_RETURN#0", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3625:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1238*/ curfptr[1237])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1175__PAIRLIST_TO_RETURN#1", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[1] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.melt:3625:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1238*/ curfptr[1237])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1175__PAIRLIST_TO_RETURN#2", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3625:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1238*/ curfptr[1237])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3630:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3635:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1239*/ curfptr[1238])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1239*/ curfptr[1238])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3630:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3635:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1239*/ curfptr[1238]); - BASILYS_LOCATION("warmelt-macro.melt:3625:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1238*/ curfptr[1237])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1175__PAIRLIST_TO_RETURN#4", NULL != (/*_.VALROUT___V1239*/ curfptr[1238])); ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V1239*/ curfptr[1238]); - BASILYS_LOCATION("warmelt-macro.melt:3625:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1238*/ curfptr[1237])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V174*/ curfptr[173]); ((basilysroutine_ptr_t)/*_.VALROUT___V1238*/ curfptr[1237])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V174*/ curfptr[173]); - BASILYS_LOCATION("warmelt-macro.melt:3625:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3630:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1238*/ curfptr[1237]); @@ -73175,19 +73254,19 @@ initial_frame_st curfram__; /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1240*/ curfptr[1239]); - BASILYS_LOCATION("warmelt-macro.melt:3638:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3643:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1241*/ curfptr[1240])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1178__MEXPAND_PROGN#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1241*/ curfptr[1240])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3638:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3643:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1241*/ curfptr[1240])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1172*/ curfptr[1171]); ((basilysroutine_ptr_t)/*_.VALROUT___V1241*/ curfptr[1240])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V1172*/ curfptr[1171]); - BASILYS_LOCATION("warmelt-macro.melt:3638:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3643:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1241*/ curfptr[1240]); @@ -73208,19 +73287,19 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1243*/ curfptr[1242]); - BASILYS_LOCATION("warmelt-macro.melt:3659:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3664:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1245*/ curfptr[1244])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1182__MEXPAND_RETURN#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3659:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3664:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1245*/ curfptr[1244])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1240*/ curfptr[1239]); ((basilysroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V1240*/ curfptr[1239]); - BASILYS_LOCATION("warmelt-macro.melt:3659:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3664:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1245*/ curfptr[1244]); @@ -73241,83 +73320,83 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1247*/ curfptr[1246]); - BASILYS_LOCATION("warmelt-macro.melt:3674:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1186__MEXPAND_FOREVER#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3674:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3674:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1186__MEXPAND_FOREVER#2", NULL != (/*_.FRESH_ENV__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V47*/ curfptr[46]); - BASILYS_LOCATION("warmelt-macro.melt:3674:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1186__MEXPAND_FOREVER#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:3674:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1186__MEXPAND_FOREVER#4", NULL != (/*_.CLASS_LABEL_BINDING__V61*/ curfptr[60])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_LABEL_BINDING__V61*/ curfptr[60]); - BASILYS_LOCATION("warmelt-macro.melt:3674:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1186__MEXPAND_FOREVER#5", NULL != (/*_.PUT_ENV__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[5] = (basilys_ptr_t)(/*_.PUT_ENV__V40*/ curfptr[39]); - BASILYS_LOCATION("warmelt-macro.melt:3674:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1186__MEXPAND_FOREVER#6", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[6] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.melt:3674:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1186__MEXPAND_FOREVER#7", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3674:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3695:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3700:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1250*/ curfptr[1249])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1250*/ curfptr[1249])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3695:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3700:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1250*/ curfptr[1249]); - BASILYS_LOCATION("warmelt-macro.melt:3674:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1186__MEXPAND_FOREVER#9", NULL != (/*_.VALROUT___V1250*/ curfptr[1249])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1250*/ curfptr[1249]); - BASILYS_LOCATION("warmelt-macro.melt:3674:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V650*/ curfptr[649]); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V650*/ curfptr[649]); - BASILYS_LOCATION("warmelt-macro.melt:3674:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3679:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1249*/ curfptr[1248]); @@ -73347,83 +73426,83 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1254*/ curfptr[1253]); - BASILYS_LOCATION("warmelt-macro.melt:3708:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1193__MEXPAND_EXIT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3708:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3708:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1193__MEXPAND_EXIT#2", NULL != (/*_.FRESH_ENV__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[2] = (basilys_ptr_t)(/*_.FRESH_ENV__V47*/ curfptr[46]); - BASILYS_LOCATION("warmelt-macro.melt:3708:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1193__MEXPAND_EXIT#3", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:3708:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1193__MEXPAND_EXIT#4", NULL != (/*_.FIND_ENV__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V16*/ curfptr[15]); - BASILYS_LOCATION("warmelt-macro.melt:3708:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1193__MEXPAND_EXIT#5", NULL != (/*_.CLASS_LABEL_BINDING__V61*/ curfptr[60])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_LABEL_BINDING__V61*/ curfptr[60]); - BASILYS_LOCATION("warmelt-macro.melt:3708:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1193__MEXPAND_EXIT#6", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[6] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.melt:3708:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1193__MEXPAND_EXIT#7", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3708:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3731:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3736:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1257*/ curfptr[1256])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1257*/ curfptr[1256])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3731:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3736:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1257*/ curfptr[1256]); - BASILYS_LOCATION("warmelt-macro.melt:3708:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1193__MEXPAND_EXIT#9", NULL != (/*_.VALROUT___V1257*/ curfptr[1256])); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1257*/ curfptr[1256]); - BASILYS_LOCATION("warmelt-macro.melt:3708:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1256*/ curfptr[1255])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V660*/ curfptr[659]); ((basilysroutine_ptr_t)/*_.VALROUT___V1256*/ curfptr[1255])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V660*/ curfptr[659]); - BASILYS_LOCATION("warmelt-macro.melt:3708:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3713:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1256*/ curfptr[1255]); @@ -73444,31 +73523,31 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1259*/ curfptr[1258]); - BASILYS_LOCATION("warmelt-macro.melt:3746:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3751:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1261*/ curfptr[1260])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1198__MEXPAND_COMPILE_WARNING#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1261*/ curfptr[1260])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3746:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3751:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1261*/ curfptr[1260])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1198__MEXPAND_COMPILE_WARNING#1", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1261*/ curfptr[1260])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3746:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3751:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1261*/ curfptr[1260])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1261*/ curfptr[1260])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3746:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3751:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1261*/ curfptr[1260])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V670*/ curfptr[669]); ((basilysroutine_ptr_t)/*_.VALROUT___V1261*/ curfptr[1260])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V670*/ curfptr[669]); - BASILYS_LOCATION("warmelt-macro.melt:3746:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3751:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1261*/ curfptr[1260]); @@ -73489,25 +73568,25 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1263*/ curfptr[1262]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_ASSERT_MSG#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_ASSERT_MSG#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_ASSERT_MSG#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); @@ -73522,67 +73601,67 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1266*/ curfptr[1265]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_ASSERT_MSG#4", NULL != (/*_.VALDATA___V1266*/ curfptr[1265])); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V1266*/ curfptr[1265]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_ASSERT_MSG#5", NULL != (/*_.FIND_ENV__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[5] = (basilys_ptr_t)(/*_.FIND_ENV__V16*/ curfptr[15]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_ASSERT_MSG#6", NULL != (/*_.FIND_ENV_DEBUG__V62*/ curfptr[61])); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[6] = (basilys_ptr_t)(/*_.FIND_ENV_DEBUG__V62*/ curfptr[61]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_ASSERT_MSG#7", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V19*/ curfptr[18])); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V19*/ curfptr[18]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_ASSERT_MSG#8", NULL != (/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V23*/ curfptr[22]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_ASSERT_MSG#9", NULL != (/*_.CLASS_PRIMITIVE__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE__V24*/ curfptr[23]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V100*/ curfptr[99]); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V100*/ curfptr[99]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_ASSERT_MSG#11", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_ASSERT_MSG#12", NULL != (/*_.DISCR_INTEGER__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V52*/ curfptr[51]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V500*/ curfptr[499]); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V500*/ curfptr[499]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V520*/ curfptr[519]); @@ -73597,13 +73676,13 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1268*/ curfptr[1267]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1265*/ curfptr[1264])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1202__MEXPAND_ASSERT_MSG#15", NULL != (/*_.VALDATA___V1268*/ curfptr[1267])); ((basilysroutine_ptr_t)/*_.VALROUT___V1265*/ curfptr[1264])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V1268*/ curfptr[1267]); - BASILYS_LOCATION("warmelt-macro.melt:3785:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3790:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1265*/ curfptr[1264]); @@ -73633,31 +73712,31 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1273*/ curfptr[1272]); - BASILYS_LOCATION("warmelt-macro.melt:3865:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1212__MEXPAND_DEBUG_MSG#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3865:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1212__MEXPAND_DEBUG_MSG#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3865:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1212__MEXPAND_DEBUG_MSG#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3865:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3865:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1212__MEXPAND_DEBUG_MSG#4", NULL != (/*_.DISCR_LIST__V38*/ curfptr[37])); @@ -73672,49 +73751,49 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1276*/ curfptr[1275]); - BASILYS_LOCATION("warmelt-macro.melt:3865:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1212__MEXPAND_DEBUG_MSG#5", NULL != (/*_.VALDATA___V1276*/ curfptr[1275])); ((basilysroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275]); - BASILYS_LOCATION("warmelt-macro.melt:3865:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V68*/ curfptr[67]); ((basilysroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V68*/ curfptr[67]); - BASILYS_LOCATION("warmelt-macro.melt:3865:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1212__MEXPAND_DEBUG_MSG#7", NULL != (/*_.VALDATA___V922*/ curfptr[921])); ((basilysroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V922*/ curfptr[921]); - BASILYS_LOCATION("warmelt-macro.melt:3865:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1212__MEXPAND_DEBUG_MSG#8", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3865:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1212__MEXPAND_DEBUG_MSG#9", NULL != (/*_.DISCR_INTEGER__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V52*/ curfptr[51]); - BASILYS_LOCATION("warmelt-macro.melt:3865:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V520*/ curfptr[519]); ((basilysroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V520*/ curfptr[519]); - BASILYS_LOCATION("warmelt-macro.melt:3865:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1275*/ curfptr[1274])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1212__MEXPAND_DEBUG_MSG#11", NULL != (/*_.VALDATA___V1268*/ curfptr[1267])); ((basilysroutine_ptr_t)/*_.VALROUT___V1275*/ curfptr[1274])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1268*/ curfptr[1267]); - BASILYS_LOCATION("warmelt-macro.melt:3865:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3870:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1275*/ curfptr[1274]); @@ -73735,89 +73814,89 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1279*/ curfptr[1278]); - BASILYS_LOCATION("warmelt-macro.melt:3926:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1281*/ curfptr[1280])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1218__MEXPAND_EXPORT_VALUES#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1281*/ curfptr[1280])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3926:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1281*/ curfptr[1280])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1218__MEXPAND_EXPORT_VALUES#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1281*/ curfptr[1280])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3926:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1281*/ curfptr[1280])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1218__MEXPAND_EXPORT_VALUES#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1281*/ curfptr[1280])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3926:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1281*/ curfptr[1280])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1218__MEXPAND_EXPORT_VALUES#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1281*/ curfptr[1280])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.melt:3926:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1281*/ curfptr[1280])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1218__MEXPAND_EXPORT_VALUES#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1281*/ curfptr[1280])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:3926:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1281*/ curfptr[1280])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1281*/ curfptr[1280])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3926:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1281*/ curfptr[1280])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1218__MEXPAND_EXPORT_VALUES#6", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1281*/ curfptr[1280])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:3926:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1281*/ curfptr[1280])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1218__MEXPAND_EXPORT_VALUES#7", NULL != (/*_.DEBUGMSG__V63*/ curfptr[62])); ((basilysroutine_ptr_t)/*_.VALROUT___V1281*/ curfptr[1280])->tabval[7] = (basilys_ptr_t)(/*_.DEBUGMSG__V63*/ curfptr[62]); - BASILYS_LOCATION("warmelt-macro.melt:3936:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3941:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1282*/ curfptr[1281])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1282*/ curfptr[1281])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3936:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1282*/ curfptr[1281])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1220__LAMBDA_#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1282*/ curfptr[1281])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:3936:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3941:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1282*/ curfptr[1281])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1220__LAMBDA_#2", NULL != (/*_.DEBUGMSG__V63*/ curfptr[62])); ((basilysroutine_ptr_t)/*_.VALROUT___V1282*/ curfptr[1281])->tabval[2] = (basilys_ptr_t)(/*_.DEBUGMSG__V63*/ curfptr[62]); - BASILYS_LOCATION("warmelt-macro.melt:3936:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3941:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1282*/ curfptr[1281]); - BASILYS_LOCATION("warmelt-macro.melt:3926:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1281*/ curfptr[1280])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1218__MEXPAND_EXPORT_VALUES#8", NULL != (/*_.VALROUT___V1282*/ curfptr[1281])); ((basilysroutine_ptr_t)/*_.VALROUT___V1281*/ curfptr[1280])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V1282*/ curfptr[1281]); - BASILYS_LOCATION("warmelt-macro.melt:3926:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1281*/ curfptr[1280])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V228*/ curfptr[227]); ((basilysroutine_ptr_t)/*_.VALROUT___V1281*/ curfptr[1280])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V228*/ curfptr[227]); - BASILYS_LOCATION("warmelt-macro.melt:3926:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3931:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1281*/ curfptr[1280]); @@ -73847,43 +73926,43 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1286*/ curfptr[1285]); - BASILYS_LOCATION("warmelt-macro.melt:3956:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1225__MEXPAND_EXPORT_MACRO#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3956:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1225__MEXPAND_EXPORT_MACRO#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3956:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1225__MEXPAND_EXPORT_MACRO#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3956:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3956:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1225__MEXPAND_EXPORT_MACRO#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:3956:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V240*/ curfptr[239]); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V240*/ curfptr[239]); - BASILYS_LOCATION("warmelt-macro.melt:3956:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3961:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1288*/ curfptr[1287]); @@ -73904,43 +73983,43 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1290*/ curfptr[1289]); - BASILYS_LOCATION("warmelt-macro.melt:3987:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1292*/ curfptr[1291])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1229__MEXPAND_EXPORT_PATMACRO#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1292*/ curfptr[1291])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:3987:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1292*/ curfptr[1291])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1229__MEXPAND_EXPORT_PATMACRO#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1292*/ curfptr[1291])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:3987:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1292*/ curfptr[1291])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1229__MEXPAND_EXPORT_PATMACRO#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1292*/ curfptr[1291])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:3987:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1292*/ curfptr[1291])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1292*/ curfptr[1291])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:3987:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1292*/ curfptr[1291])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1229__MEXPAND_EXPORT_PATMACRO#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1292*/ curfptr[1291])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:3987:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1292*/ curfptr[1291])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V254*/ curfptr[253]); ((basilysroutine_ptr_t)/*_.VALROUT___V1292*/ curfptr[1291])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V254*/ curfptr[253]); - BASILYS_LOCATION("warmelt-macro.melt:3987:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:3992:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1292*/ curfptr[1291]); @@ -73961,77 +74040,77 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1294*/ curfptr[1293]); - BASILYS_LOCATION("warmelt-macro.melt:4024:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1233__MEXPAND_EXPORT_CLASS#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:4024:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1233__MEXPAND_EXPORT_CLASS#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:4024:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1233__MEXPAND_EXPORT_CLASS#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:4024:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1233__MEXPAND_EXPORT_CLASS#3", NULL != (/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[3] = (basilys_ptr_t)(/*_.PAIRLIST_TO_MULTIPLE__V28*/ curfptr[27]); - BASILYS_LOCATION("warmelt-macro.melt:4024:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1233__MEXPAND_EXPORT_CLASS#4", NULL != (/*_.DISCR_MULTIPLE__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V10*/ curfptr[9]); - BASILYS_LOCATION("warmelt-macro.melt:4024:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:4024:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1233__MEXPAND_EXPORT_CLASS#6", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:4034:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:4039:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1297*/ curfptr[1296])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1297*/ curfptr[1296])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:4034:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4039:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1297*/ curfptr[1296])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1235__LAMBDA_#1", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1297*/ curfptr[1296])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:4034:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:4039:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1297*/ curfptr[1296]); - BASILYS_LOCATION("warmelt-macro.melt:4024:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1233__MEXPAND_EXPORT_CLASS#7", NULL != (/*_.VALROUT___V1297*/ curfptr[1296])); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1297*/ curfptr[1296]); - BASILYS_LOCATION("warmelt-macro.melt:4024:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V234*/ curfptr[233]); ((basilysroutine_ptr_t)/*_.VALROUT___V1296*/ curfptr[1295])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V234*/ curfptr[233]); - BASILYS_LOCATION("warmelt-macro.melt:4024:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:4029:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1296*/ curfptr[1295]); @@ -74052,31 +74131,31 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1299*/ curfptr[1298]); - BASILYS_LOCATION("warmelt-macro.melt:4052:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1301*/ curfptr[1300])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1238__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1301*/ curfptr[1300])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:4052:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1301*/ curfptr[1300])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1238__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1301*/ curfptr[1300])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:4052:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1301*/ curfptr[1300])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1238__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1301*/ curfptr[1300])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:4052:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1301*/ curfptr[1300])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V684*/ curfptr[683]); ((basilysroutine_ptr_t)/*_.VALROUT___V1301*/ curfptr[1300])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V684*/ curfptr[683]); - BASILYS_LOCATION("warmelt-macro.melt:4052:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:4057:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1301*/ curfptr[1300]); @@ -74097,31 +74176,31 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1303*/ curfptr[1302]); - BASILYS_LOCATION("warmelt-macro.melt:4077:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1305*/ curfptr[1304])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1242__MEXPAND_PARENT_MODULE_ENVIRONMENT#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1305*/ curfptr[1304])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:4077:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1305*/ curfptr[1304])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1242__MEXPAND_PARENT_MODULE_ENVIRONMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1305*/ curfptr[1304])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:4077:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1305*/ curfptr[1304])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1242__MEXPAND_PARENT_MODULE_ENVIRONMENT#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1305*/ curfptr[1304])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:4077:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1305*/ curfptr[1304])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V694*/ curfptr[693]); ((basilysroutine_ptr_t)/*_.VALROUT___V1305*/ curfptr[1304])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]); - BASILYS_LOCATION("warmelt-macro.melt:4077:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:4082:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1305*/ curfptr[1304]); @@ -74142,31 +74221,31 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1307*/ curfptr[1306]); - BASILYS_LOCATION("warmelt-macro.melt:4100:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1309*/ curfptr[1308])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1246__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1309*/ curfptr[1308])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:4100:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1309*/ curfptr[1308])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1246__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1309*/ curfptr[1308])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:4100:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1309*/ curfptr[1308])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1246__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1309*/ curfptr[1308])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:4100:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1309*/ curfptr[1308])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V700*/ curfptr[699]); ((basilysroutine_ptr_t)/*_.VALROUT___V1309*/ curfptr[1308])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V700*/ curfptr[699]); - BASILYS_LOCATION("warmelt-macro.melt:4100:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:4105:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1309*/ curfptr[1308]); @@ -74187,43 +74266,43 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1311*/ curfptr[1310]); - BASILYS_LOCATION("warmelt-macro.melt:4127:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1313*/ curfptr[1312])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1250__MEXPAND_FETCH_PREDEFINED#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1313*/ curfptr[1312])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:4127:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1313*/ curfptr[1312])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1250__MEXPAND_FETCH_PREDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1313*/ curfptr[1312])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:4127:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1313*/ curfptr[1312])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1250__MEXPAND_FETCH_PREDEFINED#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1313*/ curfptr[1312])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:4127:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1313*/ curfptr[1312])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1313*/ curfptr[1312])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:4127:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1313*/ curfptr[1312])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1250__MEXPAND_FETCH_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1313*/ curfptr[1312])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:4127:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1313*/ curfptr[1312])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V710*/ curfptr[709]); ((basilysroutine_ptr_t)/*_.VALROUT___V1313*/ curfptr[1312])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V710*/ curfptr[709]); - BASILYS_LOCATION("warmelt-macro.melt:4127:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:4132:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1313*/ curfptr[1312]); @@ -74244,43 +74323,43 @@ initial_frame_st curfram__; /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1315*/ curfptr[1314]); - BASILYS_LOCATION("warmelt-macro.melt:4153:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1317*/ curfptr[1316])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1254__MEXPAND_STORE_PREDEFINED#0", NULL != (/*_.CLASS_SEXPR__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1317*/ curfptr[1316])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SEXPR__V8*/ curfptr[7]); - BASILYS_LOCATION("warmelt-macro.melt:4153:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1317*/ curfptr[1316])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1254__MEXPAND_STORE_PREDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1317*/ curfptr[1316])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V9*/ curfptr[8]); - BASILYS_LOCATION("warmelt-macro.melt:4153:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1317*/ curfptr[1316])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1254__MEXPAND_STORE_PREDEFINED#2", NULL != (/*_.DEBUG_MSG_FUN__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V1317*/ curfptr[1316])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V12*/ curfptr[11]); - BASILYS_LOCATION("warmelt-macro.melt:4153:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1317*/ curfptr[1316])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V891*/ curfptr[890]); ((basilysroutine_ptr_t)/*_.VALROUT___V1317*/ curfptr[1316])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V891*/ curfptr[890]); - BASILYS_LOCATION("warmelt-macro.melt:4153:/ putroutconst"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1317*/ curfptr[1316])) == OBMAG_ROUTINE); if (basilys_HAS_INITIAL_ENVIRONMENT) basilys_checkmsg("putroutconst constnull.drout_1254__MEXPAND_STORE_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V1317*/ curfptr[1316])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V11*/ curfptr[10]); - BASILYS_LOCATION("warmelt-macro.melt:4153:/ putroutconstnotnull"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1317*/ curfptr[1316])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V720*/ curfptr[719]); ((basilysroutine_ptr_t)/*_.VALROUT___V1317*/ curfptr[1316])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V720*/ curfptr[719]); - BASILYS_LOCATION("warmelt-macro.melt:4153:/ touch"); + BASILYS_LOCATION("warmelt-macro.melt:4158:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1317*/ curfptr[1316]); @@ -74435,11 +74514,11 @@ initial_frame_st curfram__; /*clear*/ /*_.OR___V1343*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1515:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1520:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1515:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1520:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1044*/ curfptr[1043]; /*_.INSTALL_INITIAL_MACRO__V1346*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1047*/ curfptr[1046]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74448,17 +74527,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1346*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1516:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1521:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1347*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1516:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1521:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1516:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1521:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1044*/ curfptr[1043]; - BASILYS_LOCATION("warmelt-macro.melt:1516:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1521:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFPRIMITIVE*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74469,11 +74548,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1347*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1622:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1627:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1622:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1627:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1050*/ curfptr[1049]; /*_.INSTALL_INITIAL_MACRO__V1348*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74482,17 +74561,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1348*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1623:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1628:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1349*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1623:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1628:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1623:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1628:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1050*/ curfptr[1049]; - BASILYS_LOCATION("warmelt-macro.melt:1623:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1628:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFCITERATOR*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74503,11 +74582,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1349*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1784:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1789:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1784:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1789:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1055*/ curfptr[1054]; /*_.INSTALL_INITIAL_MACRO__V1350*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74516,17 +74595,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1350*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1785:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1790:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1351*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1785:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1790:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1785:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1790:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1055*/ curfptr[1054]; - BASILYS_LOCATION("warmelt-macro.melt:1785:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1790:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFCMATCHER*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74537,11 +74616,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1351*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1903:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1908:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1903:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1908:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1062*/ curfptr[1061]; /*_.INSTALL_INITIAL_MACRO__V1352*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1063*/ curfptr[1062]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74550,17 +74629,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1352*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1904:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1909:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1353*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1904:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1909:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1904:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1909:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1062*/ curfptr[1061]; - BASILYS_LOCATION("warmelt-macro.melt:1904:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1909:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFUNMATCHER*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74571,11 +74650,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1353*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1958:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1963:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1958:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1963:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1067*/ curfptr[1066]; /*_.INSTALL_INITIAL_MACRO__V1354*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V910*/ curfptr[909]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74584,17 +74663,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1354*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:1959:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:1964:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1355*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:1959:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:1964:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:1959:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1964:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1067*/ curfptr[1066]; - BASILYS_LOCATION("warmelt-macro.melt:1959:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:1964:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFUN*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74605,11 +74684,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1355*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2190:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2195:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2190:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2195:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1089*/ curfptr[1088]; /*_.INSTALL_INITIAL_MACRO__V1356*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V912*/ curfptr[911]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74618,17 +74697,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1356*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2191:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2196:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1357*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2191:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2196:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2191:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2196:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1089*/ curfptr[1088]; - BASILYS_LOCATION("warmelt-macro.melt:2191:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2196:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFCLASS*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74639,11 +74718,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1357*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2341:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2346:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2341:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2346:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1110*/ curfptr[1109]; /*_.INSTALL_INITIAL_MACRO__V1358*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1113*/ curfptr[1112]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74652,17 +74731,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1358*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2342:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2347:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1359*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2342:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2347:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2342:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2347:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1110*/ curfptr[1109]; - BASILYS_LOCATION("warmelt-macro.melt:2342:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2347:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFINSTANCE*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74673,11 +74752,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1359*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2435:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2440:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2435:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2440:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1116*/ curfptr[1115]; /*_.INSTALL_INITIAL_MACRO__V1360*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1117*/ curfptr[1116]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74686,17 +74765,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1360*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2436:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2441:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1361*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2436:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2441:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2436:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2441:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1116*/ curfptr[1115]; - BASILYS_LOCATION("warmelt-macro.melt:2436:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2441:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEFSELECTOR*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74707,11 +74786,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1361*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2497:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2502:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2497:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2502:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1120*/ curfptr[1119]; /*_.INSTALL_INITIAL_MACRO__V1362*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74720,17 +74799,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1362*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2498:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2503:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1363*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2498:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2503:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2498:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2503:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1120*/ curfptr[1119]; - BASILYS_LOCATION("warmelt-macro.melt:2498:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2503:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MAKE_INSTANCE*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74741,13 +74820,13 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1363*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2609:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2614:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2609:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2614:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1127*/ curfptr[1126]; - BASILYS_LOCATION("warmelt-macro.melt:2609:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2614:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1120*/ curfptr[1119]; /*_.INSTALL_INITIAL_PATMACRO__V1364*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1021*/ curfptr[1020]), (basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74756,19 +74835,19 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1364*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2610:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2615:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1365*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2610:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2615:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2610:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2615:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1120*/ curfptr[1119]; - BASILYS_LOCATION("warmelt-macro.melt:2610:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2615:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1127*/ curfptr[1126]; - BASILYS_LOCATION("warmelt-macro.melt:2610:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2615:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : INSTANCE*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74779,13 +74858,13 @@ initial_frame_st curfram__; /*clear*/ /*_.PATMACROXPORTER___V1365*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2688:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2693:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2688:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2693:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1131*/ curfptr[1130]; - BASILYS_LOCATION("warmelt-macro.melt:2688:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2693:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1133*/ curfptr[1132]; /*_.INSTALL_INITIAL_PATMACRO__V1366*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1021*/ curfptr[1020]), (basilys_ptr_t)(/*_.VALDATA___V1134*/ curfptr[1133]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74794,19 +74873,19 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1366*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2689:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2694:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1367*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2689:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2694:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2689:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2694:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1133*/ curfptr[1132]; - BASILYS_LOCATION("warmelt-macro.melt:2689:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2694:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1131*/ curfptr[1130]; - BASILYS_LOCATION("warmelt-macro.melt:2689:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2694:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : OBJECT*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74817,11 +74896,11 @@ initial_frame_st curfram__; /*clear*/ /*_.PATMACROXPORTER___V1367*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2736:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2741:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2736:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2741:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1137*/ curfptr[1136]; /*_.INSTALL_INITIAL_MACRO__V1368*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74830,17 +74909,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1368*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2737:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2742:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1369*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2737:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2742:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2737:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2742:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1137*/ curfptr[1136]; - BASILYS_LOCATION("warmelt-macro.melt:2737:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2742:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CODE_CHUNK*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74851,11 +74930,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1369*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2777:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2782:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2777:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2782:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1141*/ curfptr[1140]; /*_.INSTALL_INITIAL_MACRO__V1370*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74864,17 +74943,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1370*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2778:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2783:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1371*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2778:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2783:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2778:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2783:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1141*/ curfptr[1140]; - BASILYS_LOCATION("warmelt-macro.melt:2778:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2783:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : UNSAFE_PUT_FIELDS*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74885,11 +74964,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1371*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2817:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2822:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2817:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2822:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1145*/ curfptr[1144]; /*_.INSTALL_INITIAL_MACRO__V1372*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1146*/ curfptr[1145]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74898,17 +74977,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1372*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2818:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2823:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1373*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2818:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2823:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2818:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2823:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1145*/ curfptr[1144]; - BASILYS_LOCATION("warmelt-macro.melt:2818:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2823:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PUT_FIELDS*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74919,11 +74998,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1373*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2851:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2856:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2851:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2856:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1149*/ curfptr[1148]; /*_.INSTALL_INITIAL_MACRO__V1374*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74932,17 +75011,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1374*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2852:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2857:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1375*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2852:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2857:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2852:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2857:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1149*/ curfptr[1148]; - BASILYS_LOCATION("warmelt-macro.melt:2852:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2857:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : UNSAFE_GET_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74953,11 +75032,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1375*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2885:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2890:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2885:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2890:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1153*/ curfptr[1152]; /*_.INSTALL_INITIAL_MACRO__V1376*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1154*/ curfptr[1153]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -74966,17 +75045,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1376*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2886:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2891:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1377*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2886:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2891:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2886:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2891:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1153*/ curfptr[1152]; - BASILYS_LOCATION("warmelt-macro.melt:2886:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2891:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GET_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -74987,11 +75066,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1377*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2912:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2917:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2912:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2917:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1157*/ curfptr[1156]; /*_.INSTALL_INITIAL_MACRO__V1378*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1158*/ curfptr[1157]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75000,17 +75079,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1378*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2913:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2918:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1379*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2913:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2918:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2913:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2918:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1157*/ curfptr[1156]; - BASILYS_LOCATION("warmelt-macro.melt:2913:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2918:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SETQ*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75021,11 +75100,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1379*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2959:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2964:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2959:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2964:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1161*/ curfptr[1160]; /*_.INSTALL_INITIAL_MACRO__V1380*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75034,17 +75113,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1380*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:2960:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:2965:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1381*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:2960:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:2965:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:2960:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2965:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1161*/ curfptr[1160]; - BASILYS_LOCATION("warmelt-macro.melt:2960:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:2965:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : IF*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75055,11 +75134,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1381*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3009:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3014:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3009:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3014:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1165*/ curfptr[1164]; /*_.INSTALL_INITIAL_MACRO__V1382*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75068,17 +75147,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1382*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3010:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3015:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1383*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3010:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3015:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3010:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3015:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1165*/ curfptr[1164]; - BASILYS_LOCATION("warmelt-macro.melt:3010:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3015:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CPPIF*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75089,11 +75168,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1383*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3101:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3106:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3101:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3106:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1175*/ curfptr[1174]; /*_.INSTALL_INITIAL_MACRO__V1384*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1176*/ curfptr[1175]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75102,17 +75181,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1384*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3102:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3107:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1385*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3102:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3107:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3102:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3107:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1175*/ curfptr[1174]; - BASILYS_LOCATION("warmelt-macro.melt:3102:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3107:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COND*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75123,13 +75202,13 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1385*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3194:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3199:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3194:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3199:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1182*/ curfptr[1181]; - BASILYS_LOCATION("warmelt-macro.melt:3194:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3199:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1184*/ curfptr[1183]; /*_.INSTALL_INITIAL_PATMACRO__V1386*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1021*/ curfptr[1020]), (basilys_ptr_t)(/*_.VALDATA___V1185*/ curfptr[1184]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75138,19 +75217,19 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1386*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3195:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3200:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1387*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3195:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3200:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3195:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3200:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1184*/ curfptr[1183]; - BASILYS_LOCATION("warmelt-macro.melt:3195:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3200:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1182*/ curfptr[1181]; - BASILYS_LOCATION("warmelt-macro.melt:3195:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3200:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : AS*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75161,13 +75240,13 @@ initial_frame_st curfram__; /*clear*/ /*_.PATMACROXPORTER___V1387*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3217:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3222:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3217:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3222:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1188*/ curfptr[1187]; - BASILYS_LOCATION("warmelt-macro.melt:3217:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3222:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1180*/ curfptr[1179]; /*_.INSTALL_INITIAL_PATMACRO__V1388*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1021*/ curfptr[1020]), (basilys_ptr_t)(/*_.VALDATA___V1189*/ curfptr[1188]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75176,19 +75255,19 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1388*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3218:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3223:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1389*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3218:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3223:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3218:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3223:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1180*/ curfptr[1179]; - BASILYS_LOCATION("warmelt-macro.melt:3218:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3223:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1188*/ curfptr[1187]; - BASILYS_LOCATION("warmelt-macro.melt:3218:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3223:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : AND*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75199,13 +75278,13 @@ initial_frame_st curfram__; /*clear*/ /*_.PATMACROXPORTER___V1389*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3267:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3272:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3267:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3272:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1195*/ curfptr[1194]; - BASILYS_LOCATION("warmelt-macro.melt:3267:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3272:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1193*/ curfptr[1192]; /*_.INSTALL_INITIAL_PATMACRO__V1390*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1021*/ curfptr[1020]), (basilys_ptr_t)(/*_.VALDATA___V1196*/ curfptr[1195]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75214,19 +75293,19 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_PATMACRO__V1390*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3268:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3273:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 16, "SYSDATA_PATMACRO_EXPORTER");/*_.PATMACROXPORTER___V1391*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3268:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3273:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3268:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3273:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1193*/ curfptr[1192]; - BASILYS_LOCATION("warmelt-macro.melt:3268:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3273:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1195*/ curfptr[1194]; - BASILYS_LOCATION("warmelt-macro.melt:3268:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3273:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.pat : OR*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75237,11 +75316,11 @@ initial_frame_st curfram__; /*clear*/ /*_.PATMACROXPORTER___V1391*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3366:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3371:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3366:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3371:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1202*/ curfptr[1201]; /*_.INSTALL_INITIAL_MACRO__V1392*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1203*/ curfptr[1202]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75250,17 +75329,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1392*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3367:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3372:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1393*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3367:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3372:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3367:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3372:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1202*/ curfptr[1201]; - BASILYS_LOCATION("warmelt-macro.melt:3367:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3372:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MATCH*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75271,11 +75350,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1393*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3489:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3494:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3489:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3494:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1215*/ curfptr[1214]; /*_.INSTALL_INITIAL_MACRO__V1394*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1216*/ curfptr[1215]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75284,17 +75363,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1394*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3490:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3495:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1395*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3490:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3495:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3490:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3495:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1215*/ curfptr[1214]; - BASILYS_LOCATION("warmelt-macro.melt:3490:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3495:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LET*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75305,11 +75384,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1395*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3519:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3524:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3519:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3524:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1221*/ curfptr[1220]; /*_.INSTALL_INITIAL_MACRO__V1396*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1222*/ curfptr[1221]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75318,17 +75397,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1396*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3520:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3525:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1397*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3520:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3525:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3520:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3525:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1221*/ curfptr[1220]; - BASILYS_LOCATION("warmelt-macro.melt:3520:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3525:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LAMBDA*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75339,11 +75418,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1397*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3554:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3559:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3554:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3559:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1227*/ curfptr[1226]; /*_.INSTALL_INITIAL_MACRO__V1398*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1228*/ curfptr[1227]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75352,17 +75431,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1398*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3555:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3560:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1399*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3555:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3560:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3555:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3560:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1227*/ curfptr[1226]; - BASILYS_LOCATION("warmelt-macro.melt:3555:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3560:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MULTICALL*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75373,11 +75452,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1399*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3578:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3583:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3578:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3583:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1231*/ curfptr[1230]; /*_.INSTALL_INITIAL_MACRO__V1400*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1232*/ curfptr[1231]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75386,17 +75465,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1400*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3579:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3584:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1401*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3579:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3584:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3579:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3584:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1231*/ curfptr[1230]; - BASILYS_LOCATION("warmelt-macro.melt:3579:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3584:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : QUOTE*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75407,11 +75486,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1401*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3602:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3607:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3602:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3607:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1235*/ curfptr[1234]; /*_.INSTALL_INITIAL_MACRO__V1402*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1236*/ curfptr[1235]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75420,17 +75499,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1402*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3603:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3608:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1403*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3603:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3608:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3603:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3608:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1235*/ curfptr[1234]; - BASILYS_LOCATION("warmelt-macro.melt:3603:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3608:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COMMENT*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75441,11 +75520,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1403*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3655:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3660:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3655:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3660:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1242*/ curfptr[1241]; /*_.INSTALL_INITIAL_MACRO__V1404*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1243*/ curfptr[1242]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75454,17 +75533,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1404*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3656:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3661:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1405*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3656:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3661:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3656:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3661:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1242*/ curfptr[1241]; - BASILYS_LOCATION("warmelt-macro.melt:3656:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3661:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PROGN*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75475,11 +75554,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1405*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3669:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3674:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3669:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3674:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1246*/ curfptr[1245]; /*_.INSTALL_INITIAL_MACRO__V1406*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1247*/ curfptr[1246]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75488,17 +75567,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1406*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3670:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3675:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1407*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3670:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3675:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3670:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3675:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1246*/ curfptr[1245]; - BASILYS_LOCATION("warmelt-macro.melt:3670:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3675:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : RETURN*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75509,11 +75588,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1407*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3704:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3709:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3704:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3709:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1251*/ curfptr[1250]; /*_.INSTALL_INITIAL_MACRO__V1408*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1254*/ curfptr[1253]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75522,17 +75601,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1408*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3705:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3710:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1409*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3705:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3710:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3705:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3710:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1251*/ curfptr[1250]; - BASILYS_LOCATION("warmelt-macro.melt:3705:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3710:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FOREVER*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75543,11 +75622,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1409*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3740:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3745:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3740:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3745:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1258*/ curfptr[1257]; /*_.INSTALL_INITIAL_MACRO__V1410*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1259*/ curfptr[1258]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75556,17 +75635,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1410*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3741:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3746:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1411*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3741:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3746:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3741:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3746:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1258*/ curfptr[1257]; - BASILYS_LOCATION("warmelt-macro.melt:3741:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3746:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXIT*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75577,11 +75656,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1411*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3775:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3780:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3775:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3780:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1262*/ curfptr[1261]; /*_.INSTALL_INITIAL_MACRO__V1412*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1263*/ curfptr[1262]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75590,17 +75669,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1412*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3776:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3781:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1413*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3776:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3781:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3776:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3781:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1262*/ curfptr[1261]; - BASILYS_LOCATION("warmelt-macro.melt:3776:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3781:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COMPILE_WARNING*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75611,11 +75690,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1413*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3855:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3860:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3855:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3860:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1270*/ curfptr[1269]; /*_.INSTALL_INITIAL_MACRO__V1414*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1273*/ curfptr[1272]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75624,17 +75703,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1414*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3856:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3861:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1415*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3856:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3861:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3856:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3861:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1270*/ curfptr[1269]; - BASILYS_LOCATION("warmelt-macro.melt:3856:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3861:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ASSERT_MSG*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75645,11 +75724,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1415*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3921:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3926:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3921:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3926:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1278*/ curfptr[1277]; /*_.INSTALL_INITIAL_MACRO__V1416*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1279*/ curfptr[1278]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75658,17 +75737,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1416*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3922:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3927:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1417*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3922:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3927:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3922:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3927:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1278*/ curfptr[1277]; - BASILYS_LOCATION("warmelt-macro.melt:3922:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3927:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : DEBUG_MSG*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75679,11 +75758,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1417*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3951:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3956:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3951:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3956:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1283*/ curfptr[1282]; /*_.INSTALL_INITIAL_MACRO__V1418*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1286*/ curfptr[1285]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75692,17 +75771,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1418*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3952:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3957:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1419*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3952:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3957:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3952:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3957:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1283*/ curfptr[1282]; - BASILYS_LOCATION("warmelt-macro.melt:3952:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3957:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_VALUES*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75713,11 +75792,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1419*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3982:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3987:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3982:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3987:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1289*/ curfptr[1288]; /*_.INSTALL_INITIAL_MACRO__V1420*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1290*/ curfptr[1289]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75726,17 +75805,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1420*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:3983:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:3988:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1421*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:3983:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:3988:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:3983:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3988:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1289*/ curfptr[1288]; - BASILYS_LOCATION("warmelt-macro.melt:3983:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:3988:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_MACRO*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75747,11 +75826,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1421*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4019:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4024:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4019:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4024:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1293*/ curfptr[1292]; /*_.INSTALL_INITIAL_MACRO__V1422*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1294*/ curfptr[1293]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75760,17 +75839,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1422*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4020:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4025:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1423*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4020:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4025:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4020:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4025:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1293*/ curfptr[1292]; - BASILYS_LOCATION("warmelt-macro.melt:4020:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4025:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_PATMACRO*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75781,11 +75860,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1423*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4047:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4052:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4047:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4052:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1298*/ curfptr[1297]; /*_.INSTALL_INITIAL_MACRO__V1424*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1299*/ curfptr[1298]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75794,17 +75873,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1424*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4048:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4053:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1425*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4048:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4053:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4048:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4053:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1298*/ curfptr[1297]; - BASILYS_LOCATION("warmelt-macro.melt:4048:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4053:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_CLASS*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75815,11 +75894,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1425*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4071:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4076:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4071:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4076:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1302*/ curfptr[1301]; /*_.INSTALL_INITIAL_MACRO__V1426*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1303*/ curfptr[1302]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75828,17 +75907,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1426*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4072:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4077:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1427*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4072:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4077:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4072:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4077:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1302*/ curfptr[1301]; - BASILYS_LOCATION("warmelt-macro.melt:4072:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4077:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75849,11 +75928,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1427*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4093:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4098:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4093:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4098:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1306*/ curfptr[1305]; /*_.INSTALL_INITIAL_MACRO__V1428*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1307*/ curfptr[1306]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75862,17 +75941,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1428*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4094:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4099:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1429*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4094:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4099:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4094:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4099:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1306*/ curfptr[1305]; - BASILYS_LOCATION("warmelt-macro.melt:4094:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4099:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PARENT_MODULE_ENVIRONMENT*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75883,11 +75962,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1429*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4120:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4125:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4120:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4125:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1310*/ curfptr[1309]; /*_.INSTALL_INITIAL_MACRO__V1430*/ curfptr[1343] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1311*/ curfptr[1310]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75896,17 +75975,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1430*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4121:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4126:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1431*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4121:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4126:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4121:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4126:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1310*/ curfptr[1309]; - BASILYS_LOCATION("warmelt-macro.melt:4121:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4126:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75917,11 +75996,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1431*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4149:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4154:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4149:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4154:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1314*/ curfptr[1313]; /*_.INSTALL_INITIAL_MACRO__V1432*/ curfptr[1342] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1315*/ curfptr[1314]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75930,17 +76009,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1432*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4150:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4155:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1433*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4150:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4155:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4150:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4155:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1314*/ curfptr[1313]; - BASILYS_LOCATION("warmelt-macro.melt:4150:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4155:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : FETCH_PREDEFINED*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75951,11 +76030,11 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1433*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4182:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4182:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1318*/ curfptr[1317]; /*_.INSTALL_INITIAL_MACRO__V1434*/ curfptr[1344] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V1015*/ curfptr[1014]), (basilys_ptr_t)(/*_.VALDATA___V1319*/ curfptr[1318]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } @@ -75964,17 +76043,17 @@ initial_frame_st curfram__; /*clear*/ /*_.INSTALL_INITIAL_MACRO__V1434*/ curfptr[1344] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4183:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4188:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 5, "SYSDATA_MACRO_EXPORTER");/*_.MACROXPORTER___V1435*/ curfptr[1342] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4183:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4188:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4183:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4188:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1318*/ curfptr[1317]; - BASILYS_LOCATION("warmelt-macro.melt:4183:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4188:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : STORE_PREDEFINED*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -75985,2266 +76064,2266 @@ initial_frame_st curfram__; /*clear*/ /*_.MACROXPORTER___V1435*/ curfptr[1342] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4187:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1436*/ curfptr[1343] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V956*/ curfptr[955]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PATTEXPCONTEXT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V952*/ curfptr[951]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V959*/ curfptr[958]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTX_MEXPANDER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V966*/ curfptr[965]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V961*/ curfptr[960]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTX_PEXPANDER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V968*/ curfptr[967]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V963*/ curfptr[962]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PCTX_VARMAP*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V970*/ curfptr[969]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V68*/ curfptr[67]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_APPLY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V64*/ curfptr[63]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V71*/ curfptr[70]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SAPP_FUN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V76*/ curfptr[75]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V73*/ curfptr[72]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SAPP_ARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V78*/ curfptr[77]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V552*/ curfptr[551]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_CASEMATCH*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V555*/ curfptr[554]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCAM_PATT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V560*/ curfptr[559]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V557*/ curfptr[556]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCAM_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V562*/ curfptr[561]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V566*/ curfptr[565]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_CASEWHENMATCH*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V564*/ curfptr[563]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V569*/ curfptr[568]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCWM_WHEN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V114*/ curfptr[113]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_CITERATION*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V112*/ curfptr[111]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V117*/ curfptr[116]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCITER_OPER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V126*/ curfptr[125]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V119*/ curfptr[118]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCITER_ARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V128*/ curfptr[127]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V121*/ curfptr[120]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCITER_VARBIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V130*/ curfptr[129]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V123*/ curfptr[122]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCITER_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V132*/ curfptr[131]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V136*/ curfptr[135]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_CMATCHEXPR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V134*/ curfptr[133]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V139*/ curfptr[138]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCMATX_CMATCHER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V144*/ curfptr[143]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V141*/ curfptr[140]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCMATX_ARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V734*/ curfptr[733]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_CODECHUNK*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V737*/ curfptr[736]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCH_GENSYM*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V742*/ curfptr[741]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V739*/ curfptr[738]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCH_CHUNKS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V744*/ curfptr[743]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V198*/ curfptr[197]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_COMMENT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V196*/ curfptr[195]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V201*/ curfptr[200]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCOMM_STR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V204*/ curfptr[203]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V670*/ curfptr[669]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_COMPILEWARNING*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V668*/ curfptr[667]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V673*/ curfptr[672]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCWARN_MSG*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V675*/ curfptr[674]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCWARN_EXPR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V680*/ curfptr[679]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V520*/ curfptr[519]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_CPPIF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V523*/ curfptr[522]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SIFP_COND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V530*/ curfptr[529]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V525*/ curfptr[524]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SIFP_THEN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V532*/ curfptr[531]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V527*/ curfptr[526]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SIFP_ELSE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V534*/ curfptr[533]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V684*/ curfptr[683]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V682*/ curfptr[681]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V687*/ curfptr[686]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CMEC_COMMENT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V690*/ curfptr[689]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V308*/ curfptr[307]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_DEFCITERATOR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V311*/ curfptr[310]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCITERDEF_CITERATOR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V314*/ curfptr[313]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V368*/ curfptr[367]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_DEFCLASS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V366*/ curfptr[365]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V371*/ curfptr[370]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCLASS_CLABIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V378*/ curfptr[377]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V373*/ curfptr[372]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCLASS_SUPERBIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V380*/ curfptr[379]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V375*/ curfptr[374]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCLASS_FLDBINDS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V382*/ curfptr[381]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V318*/ curfptr[317]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_DEFCMATCHER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V316*/ curfptr[315]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V321*/ curfptr[320]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SCMATDEF_CMATCHER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V386*/ curfptr[385]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_DEFINSTANCE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V384*/ curfptr[383]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V389*/ curfptr[388]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SINST_CLASS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V391*/ curfptr[390]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SINST_CLABIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V400*/ curfptr[399]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V393*/ curfptr[392]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SINST_OBJNUM*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V402*/ curfptr[401]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V395*/ curfptr[394]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SINST_FIELDS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V404*/ curfptr[403]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V354*/ curfptr[353]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_DEFOBJCOMMON*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V357*/ curfptr[356]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SOBJ_PREDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V359*/ curfptr[358]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SOBJ_DOCSTR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V364*/ curfptr[363]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V294*/ curfptr[293]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_DEFPRIMITIVE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V297*/ curfptr[296]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPRIM_TYPE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V299*/ curfptr[298]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPRIM_EXPANSION*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V304*/ curfptr[303]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V408*/ curfptr[407]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_DEFSELECTOR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V406*/ curfptr[405]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V284*/ curfptr[283]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_DEFUN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V282*/ curfptr[281]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V287*/ curfptr[286]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFUN_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V290*/ curfptr[289]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V328*/ curfptr[327]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_DEFUNMATCHER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V326*/ curfptr[325]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V331*/ curfptr[330]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_INS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V342*/ curfptr[341]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V333*/ curfptr[332]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_OUTS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V344*/ curfptr[343]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V335*/ curfptr[334]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_MATCHF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V346*/ curfptr[345]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V337*/ curfptr[336]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_APPLYF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V348*/ curfptr[347]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V339*/ curfptr[338]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_DATA*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V350*/ curfptr[349]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V660*/ curfptr[659]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_EXIT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V658*/ curfptr[657]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V663*/ curfptr[662]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXI_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V666*/ curfptr[665]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V234*/ curfptr[233]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_EXPORT_CLASS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V232*/ curfptr[231]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V240*/ curfptr[239]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_EXPORT_MACRO*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V238*/ curfptr[237]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V243*/ curfptr[242]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXPMAC_MNAME*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V248*/ curfptr[247]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V245*/ curfptr[244]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXPMAC_MVAL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V250*/ curfptr[249]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V254*/ curfptr[253]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_EXPORT_PATMACRO*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V257*/ curfptr[256]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXPPAT_PVAL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V260*/ curfptr[259]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V228*/ curfptr[227]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_EXPORT_VALUES*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V226*/ curfptr[225]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V218*/ curfptr[217]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_EXPORTCOMMON*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V221*/ curfptr[220]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SEXPORT_NAMES*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V710*/ curfptr[709]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_FETCH_PREDEFINED*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V708*/ curfptr[707]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V713*/ curfptr[712]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFEPD_PREDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V716*/ curfptr[715]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V414*/ curfptr[413]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_FIELDASSIGN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V417*/ curfptr[416]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFLA_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V422*/ curfptr[421]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V419*/ curfptr[418]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFLA_EXPR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V424*/ curfptr[423]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V650*/ curfptr[649]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_FOREVER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V648*/ curfptr[647]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V653*/ curfptr[652]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFRV_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V656*/ curfptr[655]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V150*/ curfptr[149]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_FUNMATCHEXPR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V148*/ curfptr[147]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V153*/ curfptr[152]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFMATX_FMATCHER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V158*/ curfptr[157]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V155*/ curfptr[154]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFMATX_ARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V160*/ curfptr[159]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V446*/ curfptr[445]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_GET_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V449*/ curfptr[448]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SUGET_OBJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V454*/ curfptr[453]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V451*/ curfptr[450]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SUGET_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V456*/ curfptr[455]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V486*/ curfptr[485]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_IF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V489*/ curfptr[488]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SIF_TEST*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V494*/ curfptr[493]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V491*/ curfptr[490]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SIF_THEN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V496*/ curfptr[495]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V500*/ curfptr[499]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_IFELSE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V498*/ curfptr[497]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V503*/ curfptr[502]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SIF_ELSE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V506*/ curfptr[505]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V640*/ curfptr[639]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_LABELLED*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V638*/ curfptr[637]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V643*/ curfptr[642]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLABEL_BIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V646*/ curfptr[645]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V608*/ curfptr[607]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_LAMBDA*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V606*/ curfptr[605]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V611*/ curfptr[610]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLAM_ARGBIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V613*/ curfptr[612]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLAM_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V618*/ curfptr[617]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V594*/ curfptr[593]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_LET*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V592*/ curfptr[591]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V597*/ curfptr[596]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLET_BINDINGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V602*/ curfptr[601]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V599*/ curfptr[598]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLET_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V604*/ curfptr[603]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V576*/ curfptr[575]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_LETBINDING*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V579*/ curfptr[578]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLETB_TYPE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V586*/ curfptr[585]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V581*/ curfptr[580]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLETB_BINDER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V588*/ curfptr[587]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V583*/ curfptr[582]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SLETB_EXPR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V590*/ curfptr[589]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V428*/ curfptr[427]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_MAKE_INSTANCE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V426*/ curfptr[425]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V431*/ curfptr[430]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMINS_CLASS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V438*/ curfptr[437]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V433*/ curfptr[432]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMINS_CLABIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V440*/ curfptr[439]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V435*/ curfptr[434]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMINS_FIELDS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V442*/ curfptr[441]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V538*/ curfptr[537]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_MATCH*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V536*/ curfptr[535]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V541*/ curfptr[540]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMAT_MATCHEDX*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V546*/ curfptr[545]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V543*/ curfptr[542]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMAT_CASES*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V548*/ curfptr[547]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V82*/ curfptr[81]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_MSEND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V80*/ curfptr[79]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V85*/ curfptr[84]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MSEND_SELSYMB*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V92*/ curfptr[91]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V87*/ curfptr[86]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MSEND_RECV*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V94*/ curfptr[93]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V89*/ curfptr[88]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MSEND_ARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V96*/ curfptr[95]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V622*/ curfptr[621]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_MULTICALL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V620*/ curfptr[619]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V625*/ curfptr[624]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMULC_RESBIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V632*/ curfptr[631]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V627*/ curfptr[626]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMULC_CALL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V634*/ curfptr[633]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V629*/ curfptr[628]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SMULC_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V636*/ curfptr[635]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V510*/ curfptr[509]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_OR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V508*/ curfptr[507]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V513*/ curfptr[512]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SOR_DISJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V516*/ curfptr[515]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V694*/ curfptr[693]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_PARENT_MODULE_ENVIRONMENT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V692*/ curfptr[691]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V100*/ curfptr[99]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_PRIMITIVE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V98*/ curfptr[97]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V103*/ curfptr[102]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPRIM_OPER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V108*/ curfptr[107]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V105*/ curfptr[104]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPRIM_ARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V110*/ curfptr[109]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V164*/ curfptr[163]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_PROGN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V162*/ curfptr[161]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V167*/ curfptr[166]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPROGN_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V170*/ curfptr[169]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V466*/ curfptr[465]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_PUT_FIELDS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V469*/ curfptr[468]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SUPUT_OBJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V471*/ curfptr[470]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SUPUT_FIELDS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V476*/ curfptr[475]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V208*/ curfptr[207]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_QUOTE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V206*/ curfptr[205]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V211*/ curfptr[210]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SQUOTED*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V214*/ curfptr[213]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V174*/ curfptr[173]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_RETURN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V172*/ curfptr[171]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V177*/ curfptr[176]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SRETURN_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V180*/ curfptr[179]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V184*/ curfptr[183]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_SETQ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V187*/ curfptr[186]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SSTQ_VAR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V192*/ curfptr[191]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V189*/ curfptr[188]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SSTQ_EXPR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V194*/ curfptr[193]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V720*/ curfptr[719]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_STORE_PREDEFINED*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V718*/ curfptr[717]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V723*/ curfptr[722]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SSTPD_PREDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V728*/ curfptr[727]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V725*/ curfptr[724]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SSTPD_VALUE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V460*/ curfptr[459]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_UNSAFE_GET_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V458*/ curfptr[457]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V480*/ curfptr[479]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_UNSAFE_PUT_FIELDS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V478*/ curfptr[477]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V700*/ curfptr[699]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V698*/ curfptr[697]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V703*/ curfptr[702]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SUCME_COMMENT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V706*/ curfptr[705]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V264*/ curfptr[263]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V262*/ curfptr[261]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V267*/ curfptr[266]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SDEF_NAME*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V270*/ curfptr[269]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V274*/ curfptr[273]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCDEFORMAL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V272*/ curfptr[271]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V277*/ curfptr[276]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SFORMAL_ARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V280*/ curfptr[279]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V834*/ curfptr[833]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCFIELDPATTERN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V832*/ curfptr[831]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V837*/ curfptr[836]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAF_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V842*/ curfptr[841]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V839*/ curfptr[838]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAF_PATTERN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V844*/ curfptr[843]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V764*/ curfptr[763]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCPATTERN_AND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V762*/ curfptr[761]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V767*/ curfptr[766]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ANDPAT_CONJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V770*/ curfptr[769]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V748*/ curfptr[747]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCPATTERN_ANY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V746*/ curfptr[745]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V870*/ curfptr[869]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCPATTERN_ANYMATCH*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V868*/ curfptr[867]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V774*/ curfptr[773]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCPATTERN_AS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V772*/ curfptr[771]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V777*/ curfptr[776]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ASPAT_VARPAT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V779*/ curfptr[778]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ASPAT_SUBPAT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V876*/ curfptr[875]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCPATTERN_CMATCH*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V874*/ curfptr[873]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V848*/ curfptr[847]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCPATTERN_COMPOSITE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V851*/ curfptr[850]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAC_OPERATOR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V860*/ curfptr[859]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V853*/ curfptr[852]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAC_OPERBIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V862*/ curfptr[861]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V855*/ curfptr[854]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAC_INARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V864*/ curfptr[863]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V857*/ curfptr[856]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAC_OUTARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V866*/ curfptr[865]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V804*/ curfptr[803]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCPATTERN_CONSTANT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V802*/ curfptr[801]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V807*/ curfptr[806]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAT_CONSTX*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V828*/ curfptr[827]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCPATTERN_INSTANCE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V798*/ curfptr[797]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCPATTERN_JOKERVAR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V796*/ curfptr[795]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V814*/ curfptr[813]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCPATTERN_OBJECT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V817*/ curfptr[816]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAT_CLASS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V822*/ curfptr[821]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V819*/ curfptr[818]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAT_FIELDS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V754*/ curfptr[753]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCPATTERN_OR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V752*/ curfptr[751]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V757*/ curfptr[756]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : ORPAT_DISJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V760*/ curfptr[759]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V788*/ curfptr[787]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SRCPATTERN_VARIABLE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1436*/ curfptr[1343]), (basilys_ptr_t)(/*_.VALDATA___V786*/ curfptr[785]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V791*/ curfptr[790]; - BASILYS_LOCATION("warmelt-macro.melt:4187:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4192:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : SPAT_VAR*/ /*_.CONTENV___V2*/ curfptr[1]; @@ -78255,147 +78334,147 @@ initial_frame_st curfram__; /*clear*/ /*_.VALUEXPORTER___V1436*/ curfptr[1343] = 0 ;} /*block*/{ - BASILYS_LOCATION("warmelt-macro.melt:4258:/ getslot"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1437*/ curfptr[1344] = slot; }; ; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V908*/ curfptr[907]; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPAND_APPLY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1437*/ curfptr[1344]), (basilys_ptr_t)(/*_.VALDATA___V1321*/ curfptr[1320]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V893*/ curfptr[892]; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPAND_MSEND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1437*/ curfptr[1344]), (basilys_ptr_t)(/*_.VALDATA___V1323*/ curfptr[1322]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V895*/ curfptr[894]; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPAND_PAIRLIST_AS_TUPLE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1437*/ curfptr[1344]), (basilys_ptr_t)(/*_.VALDATA___V1325*/ curfptr[1324]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V897*/ curfptr[896]; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : EXPAND_PRIMITIVE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1437*/ curfptr[1344]), (basilys_ptr_t)(/*_.VALDATA___V1327*/ curfptr[1326]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1015*/ curfptr[1014]; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : INSTALL_INITIAL_MACRO*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1437*/ curfptr[1344]), (basilys_ptr_t)(/*_.VALDATA___V1329*/ curfptr[1328]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V902*/ curfptr[901]; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : LAMBDA_ARG_BINDINGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1437*/ curfptr[1344]), (basilys_ptr_t)(/*_.VALDATA___V1331*/ curfptr[1330]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V891*/ curfptr[890]; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MACROEXPAND_1*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1437*/ curfptr[1344]), (basilys_ptr_t)(/*_.VALDATA___V1333*/ curfptr[1332]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1003*/ curfptr[1002]; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : MACROEXPAND_TOPLEVEL_LIST*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1437*/ curfptr[1344]), (basilys_ptr_t)(/*_.VALDATA___V1335*/ curfptr[1334]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V973*/ curfptr[972]; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PATTERNEXPAND_1*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1437*/ curfptr[1344]), (basilys_ptr_t)(/*_.VALDATA___V1337*/ curfptr[1336]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V979*/ curfptr[978]; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PATTERNEXPAND_EXPR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1437*/ curfptr[1344]), (basilys_ptr_t)(/*_.VALDATA___V1339*/ curfptr[1338]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V986*/ curfptr[985]; - BASILYS_LOCATION("warmelt-macro.melt:4258:/ apply.arg"); + BASILYS_LOCATION("warmelt-macro.melt:4263:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ /*_.CONTENV___V2*/ curfptr[1]; |